BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: อู๋kokha50 ที่ พฤษภาคม 13, 2008, 12:56:11 PM

หัวข้อ: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: อู๋kokha50 ที่ พฤษภาคม 13, 2008, 12:56:11 PM
รายงาน custom รง.0110 หน้า 2 Hosxp 3.51.5.9
   ส่วนที่ 3 ไม่ออกครับ
   ผมใช้ HOS_PCU 3.51.4.30 + Hos 3.51.5.9 ใช้ห้องตรวจแพทย์แบบ PCU
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: อู๋kokha50 ที่ พฤษภาคม 13, 2008, 12:59:11 PM
ผมแก้ไขตารางวัคซีน 2 ที่ครับ เพราะของเดิมไม่ครบ จึงแก้ไขให้ครบ ไม่รู้ว่าเกี่ยวข้องกับหรือเปล่าครับ
 ผมส่งตารางวัคซีนมาให้ดูด้วยครับ
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: doramon ที่ พฤษภาคม 13, 2008, 13:00:47 PM
 ???
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: doramon ที่ พฤษภาคม 13, 2008, 13:09:30 PM
  Value := GetSQLIntegerData(
' select count(p1.person_wbc_id) as cc '+
' from person_wbc p1 , person p2 , person_wbc_service p3,person_wbc_vaccine_detail p4 '+
' where p1.person_id = p2.person_id '+
' and p2.pttype in ('+pc2+','+pc4+') '+
' and p1.person_wbc_id = p3.person_wbc_id '+
' and p3.person_wbc_service_id = p4.person_wbc_service_id '+
' and p4.wbc_vaccine_id in ('+dtp_vaccine_id+') '+
' and p1.out_region="N" '+
' and p3.service_date between "'+d1+'" and "'+d2+'" ') +

GetSQLIntegerData(
' select count(p1.person_epi_id) as cc '+
' from person_epi p1 , person p2 , person_epi_vaccine p3,person_epi_vaccine_list p4 '+
' where p1.person_id = p2.person_id '+
' and p2.pttype in ('+pc3+','+pc4+') '+
' and p1.person_epi_id = p3.person_epi_id '+
' and p3.person_epi_vaccine_id = p4.person_epi_vaccine_id '+
' and p4.epi_vaccine_id in ('+dtp_vaccine_id2+') '+
' and p1.out_region = "N" '+
' and p3.vaccine_date between "'+d1+'" and "'+d2+'" ');
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: doramon ที่ พฤษภาคม 13, 2008, 13:10:52 PM
procedure GlobalOnCreate;
begin
     GetDateRangeDialog(td1, td2);
     ds1:=formatdatetime('yyyy-mm-dd',td1);
     ds2:=formatdatetime('yyyy-mm-dd',td2);
     
     d1:=ds1;
     d2:=ds2;
     
      pc1 := getsqlsubquerydata('select pttype from pttype where pcode in ("A2")');
  pc2 := getsqlsubquerydata('select pttype from pttype where pcode in ("A7")');
  pc3 :=
    getsqlsubquerydata('select pttype from pttype where pcode in ("UC","UA")');
  pc4 :=
    getsqlsubquerydata('select pttype from pttype where pcode in ("AA","AB","AC","AD","AE","AF","AG","AH","AI","AJ","AK","UB")');
 
  pc5 := getsqlsubquerydata('select pttype from pttype where pcode in ("AL")');
 
  pc6 := getsqlsubquerydata('select pttype from pttype where pcode in ("AM")');
 
  pc7 := getsqlsubquerydata('select pttype from pttype where pcode not in (' +
    '"A2","A7","UC","UA","UB","AA","AB","AC","AD","AE","AF","AG","AH","AI","AJ","AK",' +
    '"AL","AM" ) ');
   
  pc7:=pc7+','+getsqlsubquerydata('select pttype from pttype where pcode IS NULL');


  dm1 := getsqlsubquerydata('select hn from clinicmember where clinic="' +
    gethosvariable('dm_clinic_code') + '"');
  ht1 := getsqlsubquerydata('select hn from clinicmember where clinic="' +
    gethosvariable('ht_clinic_code') + '"');

  new_dm1 := getsqlsubquerydata('select hn from clinicmember where clinic="' +
    gethosvariable('dm_clinic_code') + '" and regdate between "' + d1 + '" and "'
      + d2 + '" ');
  new_ht1 := getsqlsubquerydata('select hn from clinicmember where clinic="' +
    gethosvariable('ht_clinic_code') + '" and regdate between "' + d1 + '" and "'
      + d2 + '" ');

  baby_vn :=
    getsqlsubquerydata('select distinct b1.vn from baby_visit b1,ovst o where o.vstdate '
    +
    ' between "' + d1 + '" and "' + d2 + '" and o.vn=b1.vn ');

  fp_vn :=
    getsqlsubquerydata('select distinct b1.vn from fp_visit b1,ovst o where o.vstdate '
    +
    ' between "' + d1 + '" and "' + d2 + '" and o.vn=b1.vn ');

   anc_vn :=
    getsqlsubquerydata('select distinct b1.vn from anc_visit b1,ovst o where o.vstdate '
    +
    ' between "' + d1 + '" and "' + d2 + '" and o.vn=b1.vn ');

  service_exclude_cri:=' and vn not in ('+baby_vn+','+fp_vn+','+anc_vn+') ';
     
     
      pt_subtype_cri := ' and pt_subtype in ("0","","2") ';
     
       pt_subtype_cri_pcu := ' and pt_subtype in ("1") ';
       
       
   dtp_vaccine_id := getsqlsubquerydata('select wbc_vaccine_id from wbc_vaccine where wbc_vaccine_code in ("DTP1","DTP2","DTP3")');
   bcg_vaccine_id := getsqlsubquerydata('select wbc_vaccine_id from wbc_vaccine where wbc_vaccine_code in ("BCG")');
   mmr_vaccine_id := getsqlsubquerydata('select wbc_vaccine_id from wbc_vaccine where wbc_vaccine_code in ("MMR")');
   hbv_vaccine_id := getsqlsubquerydata('select wbc_vaccine_id from wbc_vaccine where wbc_vaccine_code in ("HBV1","HBV2","HBV3")');
   
   dtp_vaccine_id2 := getsqlsubquerydata('select epi_vaccine_id from epi_vaccine where vaccine_code in ("DTP4","DTP5")');
       
     
end;
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: อู๋kokha50 ที่ พฤษภาคม 13, 2008, 13:17:50 PM
ตาราง person_epi ไม่พบข้อมูลครับ
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: doramon ที่ พฤษภาคม 13, 2008, 13:20:26 PM
select * from person_epi
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: อู๋kokha50 ที่ พฤษภาคม 13, 2008, 19:31:32 PM
ทดสอบใหม่ โดย UP structure จาก 3.51.4.17--> 4.30-->5.4--> ขึ้นมาเป็น 3.51.5.9c
ยังเป็นเหมือนเดิม คือ ไม่พบข้อมูลในตาราง person_EPI ครับ
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: อู๋kokha50 ที่ พฤษภาคม 13, 2008, 19:36:56 PM
ท่านผู้รู้ ...ช่วยดู.....ให้ด้วยครับ ยอมแพ้แล้ว
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: doramon ที่ พฤษภาคม 13, 2008, 22:14:28 PM
น่าจะเกิดปัญหาจากการทำงานที่ไม่เข้าใจขั้นตอนมากกว่าครับ

เพราะว่าผมก็ยังลงทะเบียนได้อยู่ครับ

 ;D
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: jdadmin1 ที่ พฤษภาคม 13, 2008, 22:47:12 PM
นี่คือปัญหาของส่งเสริมระบบใหม่เลย มีหลาย รพ.ที่ยังไม่เข้าใจลำดับหรือขั้นตอนการให้บริการงานส่งเสริมใหม่
ผมก็ยังสอบถามพี่ ๆ admin หลาย ๆ ท่านเพื่อปรับข้อมูลและรหัสในตาราง รอ VDO อ.อ๊อดอยู่นะครับ..แห่ะ ๆ ๆ
                                        ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;)
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: doramon ที่ พฤษภาคม 13, 2008, 23:23:51 PM
นี่คือปัญหาของส่งเสริมระบบใหม่เลย มีหลาย รพ.ที่ยังไม่เข้าใจลำดับหรือขั้นตอนการให้บริการงานส่งเสริมใหม่
ผมก็ยังสอบถามพี่ ๆ admin หลาย ๆ ท่านเพื่อปรับข้อมูลและรหัสในตาราง รอ VDO อ.อ๊อดอยู่นะครับ..แห่ะ ๆ ๆ
                                        ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;)

ครับ
รออีกระยะหนึ่ง
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: nuttavut ที่ พฤษภาคม 14, 2008, 08:44:31 AM
ทดสอบใหม่ โดย UP structure จาก 3.51.4.17--> 4.30-->5.4--> ขึ้นมาเป็น 3.51.5.9c
ยังเป็นเหมือนเดิม คือ ไม่พบข้อมูลในตาราง person_EPI ครับ


ลอง UP structure  โดยใช้ HOSxP_PCU ครับ...จะมี data เพิ่มมาให้
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: อู๋kokha50 ที่ พฤษภาคม 14, 2008, 08:57:04 AM
เอา version ไหนดีครับ hos_pcu เพราะตอนนี้ hosxp เป็น 3.51.5.9c ครับ
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: อู๋kokha50 ที่ พฤษภาคม 14, 2008, 11:35:48 AM
ผมใช้ hos_pcu 3.51.4.30 แล้ว ออกรายงานได้ แต่ ข้อมูลตาราง person_EPI ยังไม่มา จะเป็นไรมั้ยครับ
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: manoi ที่ พฤษภาคม 14, 2008, 11:53:41 AM
person_epi จะมีข้อมูลมาจากบัญชี 4 ครับ
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: nuttavut ที่ พฤษภาคม 14, 2008, 12:18:56 PM
เอา version ไหนดีครับ hos_pcu เพราะตอนนี้ hosxp เป็น 3.51.5.9c ครับ

hos_pcu ตัวที่เวอร์ชั่นใกล้กันที่สุดครับ
หัวข้อ: Re: custom รง.0110 หน้า 2 V.3.51.5.9
เริ่มหัวข้อโดย: อู๋kokha50 ที่ พฤษภาคม 14, 2008, 13:13:44 PM
ขอบคุณครับ อ.MN ทำได้แล้วครับ