ผู้เขียน หัวข้อ: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP  (อ่าน 8248 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ tiwakorn

  • Newbie
  • *
  • กระทู้: 8
  • Respect: 0
    • ดูรายละเอียด
ไม่ทราบว่ามีวิธีนำเข้าข้อมูลจาก สกส. รึเปล่าครับ โรงพยาบาลไหนมีวิธีนำเข้าขอความกรุณาช่วยโรงพยาบาลพยัคฆ์ด้วยครับ ( ข้อมูลที่อนุมัติแต่ละเดือนก็หลายร้อยคนครับ ผมต้องมานั่งคีย์ทีละคนไม่ไหวครับ ช่วยด้วยครับ ...ขอบพระคุณมากครับ ) ::)
 

ออฟไลน์ manoi

  • Hero Member
  • *****
  • กระทู้: 8,669
  • Respect: +170
    • ดูรายละเอียด
    • HOSxP Community Center
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #1 เมื่อ: กุมภาพันธ์ 16, 2007, 03:36:21 AM »
0
นำเข้าจาก สกส. ไปไว้ที่ไหนครับ
HOSxP Project Manager / Cheif Developer / BMS MD

ออฟไลน์ tiwakorn

  • Newbie
  • *
  • กระทู้: 8
  • Respect: 0
    • ดูรายละเอียด
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #2 เมื่อ: กุมภาพันธ์ 16, 2007, 21:33:40 PM »
0
นำเข้าเลขที่กรมบัญชีกลางครับอาจารย์ ที่เมนูระบบผู้ป่วยนอก ข้อมูลทั่วไป 2 ตรงช่องเลขที่กรมบัญชีกลาง ครับอาจารย์ ไม่ทราบว่าเข้าใจรึเปล่า ช่วยผมด้วยนะครับ ขอบคุณครับ
 

ออฟไลน์ tonmoke

  • Newbie
  • *
  • กระทู้: 12
  • Respect: 0
    • ดูรายละเอียด
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #3 เมื่อ: กุมภาพันธ์ 16, 2007, 21:40:21 PM »
0
ส่วนของผมอยากเปลี่ยนข้อมูลสิทธิผู้ป่วยนะครับ ให้เป็นสิทธิเข้าโครงการจ่ายตรง โดยเอาข้อมูลจากที่ สกส.อนุมัติแล้วส่งมาให้นะครับ
 

ออฟไลน์ manoi

  • Hero Member
  • *****
  • กระทู้: 8,669
  • Respect: +170
    • ดูรายละเอียด
    • HOSxP Community Center
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #4 เมื่อ: กุมภาพันธ์ 16, 2007, 22:19:01 PM »
0
ส่งตัวอย่างข้อมูลที่จะนำเข้าให้ผมด้วยครับที่ manoi_rx at yahoo.com
HOSxP Project Manager / Cheif Developer / BMS MD

ออฟไลน์ tiwakorn

  • Newbie
  • *
  • กระทู้: 8
  • Respect: 0
    • ดูรายละเอียด
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #5 เมื่อ: กุมภาพันธ์ 16, 2007, 22:41:02 PM »
0
ส่งไฟล์ที่ต้องการนำเข้าจาก สกส. ครับ มีทั้ง Text และ dbf ครับอาจารย์
 

doramon

  • บุคคลทั่วไป
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #6 เมื่อ: กุมภาพันธ์ 17, 2007, 06:21:33 AM »
0
มีอยู่แล้วครับในบอร์ดเก่าๆๆ

ออฟไลน์ tiwakorn

  • Newbie
  • *
  • กระทู้: 8
  • Respect: 0
    • ดูรายละเอียด
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #7 เมื่อ: กุมภาพันธ์ 17, 2007, 20:21:31 PM »
0
อาจารย์ครับ....ตอบผมด้วยครับ...ผมยังรออยู่ครับ
 

doramon

  • บุคคลทั่วไป
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #8 เมื่อ: กุมภาพันธ์ 17, 2007, 23:27:37 PM »
0
สำหรับโรงพยาบาลที่ใช้ HN 7  หลักครับ
โค๊ด: Pascal
  1.  
  2. function checkpid(pid:string):boolean;
  3.   try
  4.  
  5.     cv := strtoint(copy(pid, 1, 1));
  6.     nValue := cv * 13;
  7.  
  8.     for i := 2 to 12 do
  9.     begin
  10.       cv := strtoint(copy(pid, i, 1));
  11.       nValue := nValue + (cv * (14 - i));
  12.  
  13.     end;
  14.  
  15.     nMod := 11 - (nValue mod 11);
  16.     snmod := inttostr(nmod);
  17.     snmod := copy(snmod, length(snmod), 1);
  18.     result := copy(pid, 13, 1) = snmod;
  19.  
  20.   except
  21.     result := false;
  22.  
  23.   end;
  24.  
  25. end;
  26.  
  27. function MakeFullCID(cid: string): string;
  28. begin
  29.   result := cid;
  30.   if length(cid) = 17 then
  31.     exit;
  32.   result := '';
  33.   if length(cid) <> 13 then
  34.     exit;
  35.   result := copy(cid, 1, 1) + '-' +
  36.     copy(cid, 2, 4) + '-' +
  37.     copy(cid, 6, 5) + '-' +
  38.     copy(cid, 11, 2) + '-' +
  39.     copy(cid, 13, 1);
  40. end;
  41.  
  42.  
  43.  
  44. Procedure Main;
  45. var
  46.   i:integer;
  47.   dbf:TDBF;
  48.   tc:tclientdataset;
  49.   tcid:tclientdataset;
  50. begin
  51.  
  52.   dbf:=tdbf.create(nil);
  53.   dbf.tablename:='c:\CSCDMEM.DBF';
  54.   dbf.open;
  55.   dbf.first;
  56.   tc:=tclientdataset.create(nil);
  57.   tcid:=tclientdataset.create(nil);
  58.   while not dbf.eof do
  59.   begin
  60.     tc.data:=HoSxP_GetDataset('select * from patient where hn = "'+copy(dbf.fieldbyname('hn').asstring,3,7)+'"');
  61.     if tc.recordcount>0 then
  62.     begin
  63.       showdebugtext('Update patient : '+tc.fieldbyname('hn').asstring);
  64.       tc.edit;
  65.       tc.fieldbyname('gov_chronic_id').asstring:=dbf.fieldbyname('memberno').asstring;
  66.       tc.fieldbyname('pttype').asstring:= '40';
  67.       if checkpid(dbf.fieldbyname('cspid').asstring) then
  68.       begin
  69.         tc.fieldbyname('cid').asstring:=dbf.fieldbyname('cspid').asstring;
  70.         tcid.data:=HOSxP_GetDataset('select * from ptcardno where hn="'+copy(dbf.fieldbyname('hn').asstring,3,7)+'" and cardtype="01"');
  71.         if tcid.recordcount>0 then
  72.         begin
  73.           tcid.edit;
  74.  
  75.         end else
  76.         begin
  77.           tcid.insert;
  78.         end;
  79.  
  80.         tcid.fieldbyname('hn').asstring:=copy(dbf.fieldbyname('hn').asstring,3,7);
  81.         tcid.fieldbyname('cardno').asstring:=makefullcid(dbf.fieldbyname('cspid').asstring);
  82.         tcid.fieldbyname('cardtype').asstring:='01';
  83.         tcid.post;
  84.         if tcid.changecount>0 then
  85.          HOSxP_UpdateDelta(tcid.delta, 'select * from ptcardno where hn="'+copy(dbf.fieldbyname('hn').asstring,3,7)+'" and cardtype="01"');
  86.       end;
  87.       tc.post;
  88.  
  89.       if tc.changecount>0 then
  90.       HOSxP_UpdateDelta(tc.delta,'select * from patient where hn = "'+copy(dbf.fieldbyname('hn').asstring,3,7)+'"');
  91.  
  92.     end;
  93.     dbf.next;
  94.   end;
  95.  
  96.  
  97.   dbf.free;
  98.   tc.free;
  99.   showmessage('done.');
  100. end;
  101.  
  102.  
  103.  
  104.  
  105.  
  106. end.
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
« แก้ไขครั้งสุดท้าย: กุมภาพันธ์ 17, 2007, 23:36:38 PM โดย doraemon(saiyok) »

ออฟไลน์ tiwakorn

  • Newbie
  • *
  • กระทู้: 8
  • Respect: 0
    • ดูรายละเอียด
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #9 เมื่อ: กุมภาพันธ์ 18, 2007, 01:04:20 AM »
0
ขอบคุณมากครับ...ผมจะลองดู ได้ผลยังไงแล้วผมจะแจ้งให้ทราบอีกทีครับ ... ขอบคุณอีกครั้งครับ
 

ออฟไลน์ tiwakorn

  • Newbie
  • *
  • กระทู้: 8
  • Respect: 0
    • ดูรายละเอียด
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #10 เมื่อ: กุมภาพันธ์ 18, 2007, 21:02:28 PM »
0
อาจารย์ครับ....ความสามารถไม่ถึงครับ อาจารย์ช่วยทำเหมือนการนำเข้าข้อมูล welfare ไม่ได้หรือครับ ทีมงานเราขีดความสามารถยังไม่ดีเท่าไรครับ
 

ออฟไลน์ por

  • Hero Member
  • *****
  • กระทู้: 1,087
  • เพราะว่าเธอคือดวงใจของฉัน
  • Respect: 0
    • ดูรายละเอียด
    • Blog Adminpor
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #11 เมื่อ: กุมภาพันธ์ 19, 2007, 13:10:56 PM »
0
ผมว่าน่าจะนำเข้าไปรวมกับ hipdata เลยได้ใหมครับ
adminpor
ICT @ Office of Public Health.Nakhonsi Province.
Mobile.083-1740976
Office.075-343409 to 106

doramon

  • บุคคลทั่วไป
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #12 เมื่อ: กุมภาพันธ์ 20, 2007, 04:28:55 AM »
0
ครับจะรองทำดูครับ

ออฟไลน์ tiwakorn

  • Newbie
  • *
  • กระทู้: 8
  • Respect: 0
    • ดูรายละเอียด
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #13 เมื่อ: กุมภาพันธ์ 22, 2007, 21:51:28 PM »
0
ทำไมกระทู้ผมไม่ได้รับคำตอบที่ต้องการเลยครับ ใครที่มีความสามารถที่จะช่วยผมได้กรุณาแสดงตัวด้วยครับ โค๊ดที่ให้มาผมทำไม่เป็นครับ ช่วยบอกทีละขั้นตอนได้มั้ย ....  จักขอบพระคุณอย่างสูง
 

ออฟไลน์ draran

  • Full Member
  • ***
  • กระทู้: 121
  • Respect: 0
    • ดูรายละเอียด
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #14 เมื่อ: กุมภาพันธ์ 22, 2007, 23:55:55 PM »
0
ทำไมกระทู้ผมไม่ได้รับคำตอบที่ต้องการเลยครับ ใครที่มีความสามารถที่จะช่วยผมได้กรุณาแสดงตัวด้วยครับ โค๊ดที่ให้มาผมทำไม่เป็นครับ ช่วยบอกทีละขั้นตอนได้มั้ย ....  จักขอบพระคุณอย่างสูง
สำหรับผู้ดูแลระบบ ผมว่าสำคัญคือการเรียนรู้ที่จะเรียนรู้ บางคำถามมีคำตอบแล้ว บางคำถามมีแนวคำตอบแล้ว ลองค้นจากเวบบอร์ดรวมถึง เวบบอร์ดเก่า เพราะปัญหามันไม่เคยหมด
script ของอ.อ๊อดให้ลองรันใน รูปสายฟ้า>script copy code มา paste แล้ว excute ดูครับ
ความช่วยเหลือ จะมายังผู้ที่พยายาม
Administrator,Programmer,Thungyangdaeng Hospital,Pattani
SERVER: Intel Xeon Dual-Core 5140 2.33GHz. Cach 4NB.1333Mhz ,RAM DDR2 512MB*2,HDD SATA2 160 GB*2,
OS:CentOS 4.4 x86_64 MySQL 4.1.20 ,Replicate: Pentium4 WindowsXP RAM 512 MB, Client:Celeron,Sempron,PentiumIII WindowsXP

ออฟไลน์ por

  • Hero Member
  • *****
  • กระทู้: 1,087
  • เพราะว่าเธอคือดวงใจของฉัน
  • Respect: 0
    • ดูรายละเอียด
    • Blog Adminpor
Re: การนำเข้าข้อมูลเบิกจ่ายตรงที่อนุมัติจาก สกส. ใน HOSxP
« ตอบกลับ #15 เมื่อ: กุมภาพันธ์ 23, 2007, 04:47:00 AM »
0
อ.อ็อดครับ ผมเอาcode  ของอ.มาใช้แล้วไม่ผ่านครับ
adminpor
ICT @ Office of Public Health.Nakhonsi Province.
Mobile.083-1740976
Office.075-343409 to 106