แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - naj

หน้า: 1 2 [3] 4 5 ... 48
101
 :) :) :) :)
ที่ Arm บอกว่าตรงอาจจะเป็นเพราะรหัสของตาราง income_group ของ Arm ตรงกับ income และ income_sss_group  เดิมอยุ่แล้ว จึงไม่เห็นความแตกต่าง ลองบันทึกค่าใช้จ่ายที่ รหัส  income_group กับ income_sss_group ไม่ตรงกันสิครับ

102
ผมไม่แน่ใจว่า code ที่ Arm เขียน ตอนที่ส่งออกข้อมูลเข้า SSNData Sub v.1.3 ในแต่ละกลุ่มค่าใช้จ่าย ได้กรณีคนไข้นอก น่าจะกำหนดเป็น i.income_sss_group_code หรือเปล่าครับ เพราะเท่าที่ใน code กรณีที่เป็นผู้ป่วยใน อ.mn ใช้ i.income_group ซึ่งตรงกับ MedicalServiceFee

103
ที่กลุ่มค่าใช้จ่ายของ รพ มีมากก็เนื่องมาจากเดิมตั้งตามใจชอบครับ จะแก้ปรับให้เท่ากับกรมบัญชีกลาง ก็จะยุ่งยากพอควร เลยปล่อยเลยตามเลยครับ แต่เท่า ผมก็ลองไล่ code ดู เทียบกับตารางของ SSNData Sub v1.3 ที่อิงตาม MedicalOutpatientServiceFee น่าจะถูกต้อง แต่ถ้าใช้ MedicalServiceFee น่าจะไม่ใช่ครับ

104
ฝาก Arm ดูเรื่องค่าใช้จ่ายที่ส่งออก เข้าในโปรแกรม เท่าที่ตรวจสอบดูมันไม่ตรงกับหมวดที่เราจับคู่ใน HOSxP ครับ

105
ลองทดสอบส่งออก SSNData Main พบ error ตามรูปที่แนบมาครับ

106
HOSxP PCU / Re: 55.7.10 Error ระบบ Inventory
« เมื่อ: กรกฎาคม 15, 2012, 16:19:06 PM »
 :) :) :)

107
ทำตัวส่งออกข้อมูลประกันสังคมตามที่ อ.mn ได้ให้ source code มาปรับปรุง (ส่งออกเฉพาะคนไข้นอก) จะลองให้งานประกันที่ รพ.ทดสอบดูก่อนนะครับว่ามี error อะไรหรือเปล่า

108
เขียน procedure เปล่าๆ เอาไว้ด้านบนก่อนก็ได้ครับ

procedure resyncan(an:string);
begin

end;

ขอบคุณครับ
ตอนแรกผม comment ออกไปแล้ว แต่ไม่แน่ใจว่าจำเป็นต้องใช้หรือเปล่าครับ เลยสอบถามให้แน่ใจ :D :D :D ;D

109
จะลองเอา Unit มา Compile แต่ติดที่หา Procedure resyncan ไม่เจอครับ   :) :) :)
หมายเหตุ
ลืมบอกไปว่า ผมเอา Turbo HOSxP Project ที่ได้ตอนไปอบรมกับ BMS มา compile ครับ

110
HOSxP Inventory / Re: HOSxP PCU 3.55.7.12 เรื่อง Inventory
« เมื่อ: กรกฎาคม 12, 2012, 17:03:02 PM »
ใช้งานได้แล้วครับ ขอบคุณมาก  :) :) :) :) :)

111
HOSxP Inventory / HOSxP PCU 3.55.7.12 เรื่อง Inventory
« เมื่อ: กรกฎาคม 12, 2012, 15:45:10 PM »
ฝากทีม BMS Inventory Team ช่วยดู error ตามภาพที่แนบมาให้หน่อยยนะครับ ได้รับแจ้งจาก รพสต.มาว่า ตรงปุ่มรายงานสรุปยอดคงคลัง ตอนที่กดปุ่มแสดงฟ้องหา substock_date
ขอบคุณครับ  :) :) :) :)

112
แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 / Re: hosxp v.3.55.7.12
« เมื่อ: กรกฎาคม 12, 2012, 15:06:34 PM »
ยังพบปัญหาเพิ่มเติมในส่วนของ Patient EMR ว่ายังไม่สามารถกดปุ่มดูข้อมูลเรื่องการแพ้ยาได้ครับ

113
Development / Re: HOSxP PCU 3.55.7.4
« เมื่อ: กรกฎาคม 06, 2012, 06:03:57 AM »
 :) :) :) :) :) :)

114
Development / Re: HOSxP PCU 3.55.7.4
« เมื่อ: กรกฎาคม 05, 2012, 16:01:28 PM »
;D  ต้องยก รพ. ไปใกล้ สายสัญญาณ  อีกนิดนะ  ;D
:) :) :) :) :) :) :) :) :)

115
Development / Re: HOSxP PCU 3.55.7.4
« เมื่อ: กรกฎาคม 05, 2012, 15:22:39 PM »
net ไม่ค่อยแรง ลอง d/l ใหม่อีกครั้งครับ  :) :) :) :) :) :)

116
Development / Re: HOSxP PCU 3.55.7.4
« เมื่อ: กรกฎาคม 05, 2012, 14:58:59 PM »
ลอง D/L  มาแล้วเปิดไม่ได้ครับ

117
ใช้ชื่อ ฟอร์มนี้ครับ FORM-Doctor-OPDCARD-EMR

118
ผมลองแล้วยัง run ได้นะครับ แต่แจ้งปัญหาเรื่องการใช้งานแผนไทย เกี่ยวกับการลง Dx มากกว่า 1 โรค จะฟ้อง error ตามภาพที่แนบมาครับ

120
HOSxP Inventory / Re: ปัญหา Inventory HOSxP 3.55.6.8
« เมื่อ: มิถุนายน 19, 2012, 15:19:43 PM »
ไม่แน่ใจครับ แต่เท่าทีตรวจสอบ รายการมันไม่ได้แสดงในคลังย่อยที่ตั้งค่าไว้ครับ

121
HOSxP Inventory / ปัญหา Inventory HOSxP 3.55.6.8
« เมื่อ: มิถุนายน 19, 2012, 11:37:00 AM »
error ตอนที่ลงรับรับยาครับ

122
Report Exchange / Re: script ปรับการแสดง pt_priority อัตโนมัติ
« เมื่อ: มิถุนายน 15, 2012, 11:30:44 AM »
คงอย่างที่ อ.เกื้อบอกครับ ว่าความต้องการไม่มีที่สิ้นสุด แต่ก็เข้าใจงาน OPD เขาอยากพัฒนางานบริการให้กับผู้มารับบริการ เลยถูกบังคับทางอ้อม ว่าทำให้หน่อย   :D :D :D :D
หลังจากที่ไปหาแรงบันดาลใจมา   ;D ;D ;D ;D ;D  เลยได้ Idea ในการจัดการกรณีที่เป็นพระภิกษุ แม่ชี สามเณร โดยเพิ่ม code ในส่วนที่เป็นอักษรสีแดง 
 unit YindeeAndTan;
 procedure main;
 var
 s1,s2,s3,fhn:string;

 begin
     s2:=report_value(3);
     //showmessage(s2);
     s1:=report_value(2);
     s1:=trim(copy(s1,1,2));
    // Showmessage(s1);
    fhn:=GetSqldata('select hn  from ovst where vn="'+s2+'" and cur_dep="010" limit 1');
    s3:=GetSqlData('select count(*) as dd from patient where hn="'+fhn+'"and pname in("พระ","แม่ชี","สามเณร") ');

    //Showmessage(s3);
      if (s1='FU') or (s1='Un') then
     s1:='0' ;
     
      if (strtoint(s1)>=70) or ((strtoint(s1)<5)) or ((strtoint(s3)>0)) then
      if getsqldata('select count(*) as dd from ovst where vn="'+s2+'" and cur_dep="010" limit 1 ')>0 then
      begin
        zquery.close;
        zquery.sql.text:='update ovst set pt_priority="1" where vn="'+s2+'" and cur_dep="010" ';
        zquery.execsql;
        zquery.close;
      //showmessage('You Can Done...');
     
     end;
     
         
     
 end;
 end.
ปล..
ดีใจหลาย ที่ Spain ชนะกับเขาเป็นบ้างเสียที  ;D ;D ;D ;D ;D ;D

123
Report Exchange / Re: script ปรับการแสดง pt_priority อัตโนมัติ
« เมื่อ: มิถุนายน 14, 2012, 17:02:46 PM »
ได้รับโจทย์เพิ่มว่าให้นอกจากผู้ป่วยสูงอายุและเด็ก ทางงาน OPD อยากให้ครอบคลุมถึง พระ ชี สามเณร  ด้วย   คงต้องปล่อยให้ขอไปก่อน ...ตอนนี้ยังคิดไม่ออก  ;D ;D ;D ;D ;D

124
Report Exchange / Re: script ปรับการแสดง pt_priority อัตโนมัติ
« เมื่อ: มิถุนายน 14, 2012, 13:47:42 PM »
ขออภัยด้วยครับ แก้ไข code ให้ใหม่แล้ว ทดสอบกับระบบจริงของ รพ. น่าจะ Ok แล้วนะครับ (สังเกตจากไม่มีเสียงโทรศัพท์มา  :D :D :D :D)
Thanks  For Gowf_Win มากที่ช่วยตรวจสอบให้ครับ
Code....
 unit YindeeAndTan;
 procedure main;
 var
 s1,s2,s3:string;
 tc:Tclientdatset;
 begin
     s2:=report_value(3);
     //showmessage(s2);
     s1:=report_value(2);
     s1:=trim(copy(s1,1,2));
    // Showmessage(s1);
      if (s1='FU') or (s1='Un') then
     s1:='0' ;
     
      if (strtoint(s1)>=70) or ((strtoint(s1)<5)) then
      if getsqldata('select count(*) as dd from ovst where vn="'+s2+'" and cur_dep="010" ')>0 then
      begin
        zquery.close;
        zquery.sql.text:='update ovst set pt_priority="1" where vn="'+s2+'" and cur_dep="010" ';
        zquery.execsql;
        zquery.close;

      //showmessage('You Can Done...');
     
     end;
     
         
     
 end;
 end.

125
Report Exchange / Re: script ปรับการแสดง pt_priority อัตโนมัติ
« เมื่อ: มิถุนายน 14, 2012, 12:04:32 PM »
report_value(2);
report_value(3);


รับค่าจากอะไร แล้วส่งค่าอะไรออกมาครับพี่นาจ
report_value(2) คือ Fullage
report_value(3) คือ VN

126
Report Exchange / Re: script ปรับการแสดง pt_priority อัตโนมัติ
« เมื่อ: มิถุนายน 14, 2012, 11:55:36 AM »
Script ที่ผมเขียนมันยังมี error อยู่นะครับ โดยมันจะไปเปลี่ยน pt_priority ของผู้ป่วยรายอื่นด้วย
 ขอบคุณน้อง Golf_Win มากครับที่แจ้งปัญหามาให้ทราบ  เดี๋ยวจะแก้ไขให้ใหม่นะครับ
สงสัยเหมือนกันตอนที่ทดสอบใน NoteBook ไม่พบ error นี้  ;D ;D ;D ;D ;D

127
Report Exchange / script ปรับการแสดง pt_priority อัตโนมัติ
« เมื่อ: มิถุนายน 13, 2012, 22:58:37 PM »
ขออธิบายนิดหนึ่งนะครับ ว่าทางหน่วยงาน OPD(cur_dep=010) ของ รพ ผม ต้องการเปิดช่องทางพิเศษให้กับผู้สูงอายุ(>70 ปีขึ้นไป) และเด็ก(อายุ<5 ปี) ได้รับการตรวจก่อนผู้ป่วยทั่วไป เลยได้ Idea ว่าจะให้ห้องบัตรเป็นคนเลือกความเร่งด่วนของผู้ป่วยตอนที่ส่งตรวจเป็น มาก ซึ่งโปแกรมในหน้าเมนูคัดกรอง ทางพยาบาลที่คัดกรองก็จะเห็นสัญลักษณ์รูปหน้าคนยิ้ม ก็จะได้เรียกผู้ป่วยมาคัดกรองก่อน จะได้ไม่ต้องรอนาน  แต่มีปัญหาว่าห้องบัตรไม่สะดวกที่ต้องมากำหนดเองทุกครั้ง บางครั้งส่งผิดก็ต้องเสียเวลากลับมาแก้ไขใหม่(แทนที่จะช่วยให้บริการง่ายขึ้น กลับเพิ่มความยุ่งยากให้กับเจ้าหน้าที่..) พี่หัวหน้าห้องบัตรเลยเสนอว่าน่าจะผลักให้เป็นหน้าที่ของโปรแกรม(admin งานเข้า  :) :) :) :D :D :D) จัดการให้ auto น่าจะดี  เลยลองเขียนคำสั่งในการตรวจสอบฝากไว้ใน FORM-RxORDER1 (ที่ รพ. ผม ห้องบัตร print ฟอร์มนี้ ให้กับ pt ทุกคนที่มารักษา ) ท่านใด
สนใจที่จะลองไปทดสอบก็ตามสบายเลยครับ  :D :D :D :D
ดั้งนั้น ตอนที่ส่งตรวจแค่ให้เจ้าหน้าที่เลือกความเร่งด่วนเป็น ปกติ เท่านั้น เดี๋ยว script ใน FORM-RxORDER1 จะตรวจสอบให้เองครับ
ตัวอย่าง code
 unit TanReg;
 procedure main;
 var
 s1,s2,s3:string;
 tc:Tclientdatset;
 begin
     s2:=report_value(3);
     //showmessage(s2);
     s1:=report_value(2);
     s1:=trim(copy(s1,1,2));
    // Showmessage(s1);
      if (s1='FU') or (s1='Un') then
     s1:='0' ;
     
      if (strtoint(s1)>=70) or ((strtoint(s1)<6)) then
      if getsqldata('select count(*) as dd from ovst where vn="'+s2+'" and cur_dep="010" ')>0 then
      begin
      tc:=Tclientdataset.create(nil);
      tc.data:=Hosxp_getdataset('select pt_priority from ovst where  vn="'+s2+'"');
      tc.open;
      tc.edit;
      tc['pt_priority']:='1';
      tc.post;
       hosxp_updatedelta(tc.delta,'select pt_priority from ovst where  vn="'+s2+'"');
       tc.free;
      //showmessage('You Can Done...');
     
     end;
     
         
     
 end;
 end.

128
ผมลองทดสอบก็ส่งออกได้นะครับ แต่ยังไม่ได้ลองตรวจสอบว่า field ตรงตามที่ ปกส กำหนดหรือเปล่าครับและยังไม่ได้ลองนำเข้าโปแกรมของประกันสังคม

129
ลองลบตามภาพครับ โปรแกรมลบค่าใช้จ่ายใน Finance sheet ออกได้แต่ในหน้าหัตถการผู้ป่วยในลบออกไม่ได้ครับ

130
ยินดีต้อนรับ / ทดสอบการใช้งาน Webboard
« เมื่อ: พฤษภาคม 23, 2012, 13:07:44 PM »
Test  :) :) :) :) :)

131
HOSxP Inventory / ปัญหาการใช้งานระบบ Inventory
« เมื่อ: พฤษภาคม 22, 2012, 11:11:07 AM »
ตอนนี้ทั้ง HOSxP และ HOSxP PCU version ตั้งแต่ปี 55 เป็นต้นมา ระบบ Inventory ยังไม่สามารถใช้งานได้ จะมีปัญหามากสำหรับ รพสต.ในจังหวัดนครปฐม ที่ต้องใช้ ระบบคลังด้วย ครับตอนนี้แก้ปัญหาชั่วคราวโดยการใช้ HOSxP PCU 3.54.12.15  สำหรับเครื่องที่ทำ Stock ยังงัยรบกวนทาง BMS ช่วยแก้ไข

132
Delphi / Pascal / Re: ปรึกษาผู้ใช้ Reportbuilder บน delphi ด้วยครับ
« เมื่อ: พฤษภาคม 14, 2012, 21:14:05 PM »
เพิ่งสังเกตว่า Report Builder Enterprise edition v.11.07 เวลาที่เราคลิ๊ก ppreport component โดยตรงจะพบปัญหาแบบที่คุณ Kumpol Khonburi  เจอ ลองแก้แบบนี้ครับ ถ้าต้องการออกแบบรายงานผ่าน ppreport แนะนำให้สร้างปุ่ม(button) ขึ้นมาใหม่แล้วเขียน code กำกับตามรูปที่แนบมา  อย่าลืมนำ ppDesigner มาวางคู่กับ ppreยort ด้วยนะครับ
หมายเหตุ
แต่ผมลองทดสอบ  Report Builder Enterprise edition v.14.04 ใน Delphi XE II สามารถ click ที่ Component ppreport ได้เลยโดยไม่ต้อง uses unit raIDE ครับ

133
Delphi / Pascal / Re: ปรึกษาผู้ใช้ Reportbuilder บน delphi ด้วยครับ
« เมื่อ: พฤษภาคม 14, 2012, 17:07:47 PM »
ผมไม่แน่ใจนะครับ ว่า Project ที่ทำหมายถึงสร้างขึ้นมาใหม่ทั้งหมด หรือใช้ TurBO HOSxP มา Compile ครับ

134
Delphi / Pascal / Re: ปรึกษาผู้ใช้ Reportbuilder บน delphi ด้วยครับ
« เมื่อ: พฤษภาคม 14, 2012, 16:45:02 PM »
ผมลองทดสอบใน Delphi 2007 ก็ Compile ผ่านนะครับ  :)
(ผมได้ Component ตอนที่ไปอบรม  Delphi Part I เมื่อปี 53 ถ้าจำไม่ผิดนะครับ)

135
Delphi / Pascal / Re: ปรึกษาผู้ใช้ Reportbuilder บน delphi ด้วยครับ
« เมื่อ: พฤษภาคม 14, 2012, 16:16:36 PM »
ลองเพิ่ม raIDE ตัวเดียวก่อนก็ได้ครับ
หมายเหตุ
ใช้ Reportbuilder version ไหนครับ

136
Delphi / Pascal / Re: ปรึกษาผู้ใช้ Reportbuilder บน delphi ด้วยครับ
« เมื่อ: พฤษภาคม 14, 2012, 15:29:15 PM »
ลองเอา units (raIDE,ppCTDsgn,myChkBoxDesign, ppChrtUI)พวกนี้ไป uses ใน Project ตามภาพที่แนบมาครับ

137
Delphi / Pascal / JVCL and JCL Component INSTALL Video
« เมื่อ: พฤษภาคม 14, 2012, 12:19:35 PM »
สำหรับท่านที่สนใจจะลองติดตั้ง JVCL and JCL Component
http://www.youtube.com/watch?v=s6SHOXSDff8&feature=relmfu

138
12:55 กลับมาล่มอีกครั้ง    :) :) :) :)

139
ได้รับคำตอบจาก จนท.TOT ว่า Cable แถวชุมพร ขาด  สงสัยเจอสมอเรือ  :D :D :D :D

140
ไม่เป็นไรครับ ที่ รพ ผมก็โดนด้วยเหมือนกัน ใช้ Net ของ TOT  :D :D :D :D

141
ยินดีด้วยครับ

เรื่องการเปลี่ยนแปลง ต่างๆ ไงก็ต้องเกิดขึ้นอยู่แล้วครับ

อย่างน้อย
1. เรื่องการย้าย ที่ทำงานของ นักคอมฯ
2. การดูดนักคอม
3. การคัดกรองนักคอมฯ  ที่เข้มขึ้น
4. คนนอกวงการ  ก็อยากมาทำงานในหน่วยงานรัฐเพิ่มขึ้น จากเดิมที่แหยงๆ

ผมมองว่าเป็นเรื่องปกติ  ครับ สำหรับการเปลี่ยนแปลงที่ดีขึ้น

ยินดีกับ น้องแจ็ค(หรือเปล่า) กับการเปลี่ยนแปลง ที่เกิดขึ้นครับ


:D :D :D :D :D :D :D

142
เป็นความสงสัยส่วนตัวเรื่องระบบคลังนะครับ สังเกตช่วงหลังจะพบปัญหาการใช้งานค่อนข้างบ่อยทั้งใน HOSxP PCU และ HOSxP เลยอยากสอบถามทางบริษัท BMS ว่าระบบ Inventory ที่สามารถใช้งานได้นั้น จำเป็นต้องซื้อต่างหากใช่ไหมครับ เพราะทาง รพสต ในจังหวัดนครปฐมบางแห่ง สอบถามมา ผมเองก็ไม่สามารถที่จะตอบแทนได้

144
พบปัญหาจากการใข้งาน เกี่ยวกับปรับยอดคลังย่อยแล้ว แต่ข้อมูลไม่เปลี่ยนแปลง ของ รพสต ในจังหวัดนครปฐม
http://nptho.moph.go.th/webboard2/view.php?category=nptho&wb_id=558
ฝากทางทีม Call Center ช่วย Remote ไปตรวจสอบให้หน่อยนะครับ เดี๋ยวจะให้ทาง รพสต ที่พบปัญหาโทรประสานไปนะครับ
หมายเหตุ
ขอบคุณมากครับ
 ผมลองเข้าไปแก้เองก็ยังไม่สำเร็จ  :-[ :-[ :-[ :-[ :-[ :-[ :-\ :-\ :-\ :-\ :-\
และเจอปัญหาลงรับยาไม่ได้ใน HOSxP PCU เวอร์ชั่น 55.4.25 ด้วยครับ ตามภาพที่แนบมาด้วย

145
ยินดีต้อนรับ / Re: ปุ่ม CF ของ HOSxP PCU
« เมื่อ: เมษายน 26, 2012, 22:06:39 PM »
เจอแล้วครับ
SYS_ONESTOPSERVICE_FORM
ถามเอง ตอบเอง .....ซะง้าน   ;D ;D ;D ;D ;D

146
ยินดีต้อนรับ / ปุ่ม CF ของ HOSxP PCU
« เมื่อ: เมษายน 26, 2012, 22:03:21 PM »
มีใครพอทราบไหมครับว่าปุ่ม CF ของ HOSxP PCU  นี้ใช่ปุ่มเดียวกันกับCustom FORM ใน HOSxP หรือเปล่าครับ และมันใช้ชื่ออะไรในการเรียกครับ  :) :) :) :)

147
แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 / Re: HOSxP 3.55.4.25
« เมื่อ: เมษายน 26, 2012, 13:45:07 PM »
PEFR % ในหน้าคัดกรองยังไม่มีครับ
เนื่องจาก  ที่ รพ ผมทำระบบคลินิกหอบหืดอยู่ครับ ทางพยาบาลที่ทำงานคัดกรองอยากจะให้มีในหน้าคัดกรองด้วยครับ เนื่องจากถ้าต้องสลับไปลงข้อมูลหน้าห้องแพทย์ ไม่ค่อยสะดวก ครับ

148
หาช่องบันทึก pefr_percent ยังไม่เจอเลยครับ ไม่ทราบว่าอยู่ตรงส่วนไหนครับ

149
มี Version 2 ขอลองทดสอบก่อนนะครับว่าจะออกหัวหรือก้อย  :D :D :D :D :D

150
ใช้งานจริงเมื่อ  17/4/55 เวลา 10:00 น่าจะ OK  :D :D :D :D :D

หน้า: 1 2 [3] 4 5 ... 48