custom รง.0110 หน้า 2 V.3.51.5.9

[อู๋kokha50]

รายงาน custom รง.0110 หน้า 2 Hosxp 3.51.5.9
   ส่วนที่ 3 ไม่ออกครับ
   ผมใช้ HOS_PCU 3.51.4.30 + Hos 3.51.5.9 ใช้ห้องตรวจแพทย์แบบ PCU

[อู๋kokha50]

ผมแก้ไขตารางวัคซีน 2 ที่ครับ เพราะของเดิมไม่ครบ จึงแก้ไขให้ครบ ไม่รู้ว่าเกี่ยวข้องกับหรือเปล่าครับ
 ผมส่งตารางวัคซีนมาให้ดูด้วยครับ

[doramon]

 

[doramon]

  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+'" ');

[doramon]

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;

[อู๋kokha50]

ตาราง person_epi ไม่พบข้อมูลครับ

[doramon]

select * from person_epi

[อู๋kokha50]

ทดสอบใหม่ โดย UP structure จาก 3.51.4.17--> 4.30-->5.4--> ขึ้นมาเป็น 3.51.5.9c
ยังเป็นเหมือนเดิม คือ ไม่พบข้อมูลในตาราง person_EPI ครับ

[อู๋kokha50]

ท่านผู้รู้ ...ช่วยดู.....ให้ด้วยครับ ยอมแพ้แล้ว

[doramon]

น่าจะเกิดปัญหาจากการทำงานที่ไม่เข้าใจขั้นตอนมากกว่าครับ

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

 

[jdadmin1]

นี่คือปัญหาของส่งเสริมระบบใหม่เลย มีหลาย รพ.ที่ยังไม่เข้าใจลำดับหรือขั้นตอนการให้บริการงานส่งเสริมใหม่
ผมก็ยังสอบถามพี่ ๆ admin หลาย ๆ ท่านเพื่อปรับข้อมูลและรหัสในตาราง รอ VDO อ.อ๊อดอยู่นะครับ..แห่ะ ๆ ๆ
                                       

[doramon]

นี่คือปัญหาของส่งเสริมระบบใหม่เลย มีหลาย รพ.ที่ยังไม่เข้าใจลำดับหรือขั้นตอนการให้บริการงานส่งเสริมใหม่
ผมก็ยังสอบถามพี่ ๆ admin หลาย ๆ ท่านเพื่อปรับข้อมูลและรหัสในตาราง รอ VDO อ.อ๊อดอยู่นะครับ..แห่ะ ๆ ๆ
                                       

ครับ
รออีกระยะหนึ่ง

[nuttavut]

ทดสอบใหม่ โดย UP structure จาก 3.51.4.17--> 4.30-->5.4--> ขึ้นมาเป็น 3.51.5.9c
ยังเป็นเหมือนเดิม คือ ไม่พบข้อมูลในตาราง person_EPI ครับ

ลอง UP structure  โดยใช้ HOSxP_PCU ครับ...จะมี data เพิ่มมาให้

[อู๋kokha50]

เอา version ไหนดีครับ hos_pcu เพราะตอนนี้ hosxp เป็น 3.51.5.9c ครับ

[อู๋kokha50]

ผมใช้ hos_pcu 3.51.4.30 แล้ว ออกรายงานได้ แต่ ข้อมูลตาราง person_EPI ยังไม่มา จะเป็นไรมั้ยครับ

[manoi]

person_epi จะมีข้อมูลมาจากบัญชี 4 ครับ

[nuttavut]

เอา version ไหนดีครับ hos_pcu เพราะตอนนี้ hosxp เป็น 3.51.5.9c ครับ

hos_pcu ตัวที่เวอร์ชั่นใกล้กันที่สุดครับ

[อู๋kokha50]

ขอบคุณครับ อ.MN ทำได้แล้วครับ