แจ้งและขอครับ

แจ้งและขอครับ

โพสต์โดย sutthipongr เมื่อ พุธ ต.ค. 16, 2013 12:02 pm

1.ระบบนัดตอนนี้ ถ้าลงทะเบียน ผู้ป่วยนัด จะนำ "เหตุผลการนัด" มาใส่ในอาการที่มา
มีปัญหาบางประการคือ ตอนซักประวัติ พยาบาลจะดึงแบบฟอร์ม CC PI PH มาทำให้ต้องมาลบเ้หตุผลที่ดึงมาจากระบบนัด ต้องการให้สามารถ config ตรงนี้ได้ครับ
2.การพิมพ์ประวัติผู้ป่วย เนื่องจากที่ รพ.ยังพิมพ์ประัวัติเก็บใน OPD CARD ตอนนี้ ถ้าพิมพ์ ตรงชื่อแพทย์จะออกมาเป็นชื่อเจ้าหน้าที่ห้องบัตรที่ลงทะเบียน แต่ถ้าพิมพ์ต่อ ไปอีก หลาย hn ตรงชื่อหมอจะออกมาถูกต้อง
โค้ด: เลือกทั้งหมด
? 'แพทย์รับผิดชอบ :' +  ;
  ALLTRIM(f.prename) + f.doctor

ไม่แน่ใจครับว่า f.doctor ถูกต้องไหมหรือใช้ตัวแปรอื่น
3.เรื่องแพ้ยาเนื่องจาก version 9 ปรับเรื่อง allergy
ต้องการให้ชื่อยาและอาการออกมาใน OPD CARDและใบสั่งยา (เหมือนตั้งค่าแบบพิมพ์ เป็น ORG ในข้อ 3=>9)ต้องเขียนเพิ่มยังไงครับ
รบกวนขอตัวอย่างครับ
***เราพิสูจน์ได้ด้วย ผลงานของเรา***

พอเพียง และ เพียงพอ ตามรอยพ่อของแผ่นดิน
sutthipongr
 
โพสต์: 788
ลงทะเบียนเมื่อ: พุธ ต.ค. 29, 2008 5:07 pm
ที่อยู่: โรงพยาบาลบางแก้ว จ.พัทลุง

Re: แจ้งและขอครับ

โพสต์โดย mit เมื่อ พฤหัสฯ. ต.ค. 17, 2013 9:13 am

1.จะทำให้ตามนี้ ครับ สร้าง folder ชื่อ CONF ในระบบงาน เช่น G:\hospital\conf แล้วสร้างแฟ้มชื่อ CC_ADD.NO ไว้ โปรแกรมเจอตัวนี้ก็จะไม่ add ให้
2.จะตรวจสอบให้ครับ
3.เนื่องจากตอนพิมพ์ OPD มีตัวแปรอยู่แล้ว ก็นำไปเพิ่มเข้าในแบบพิมพ์เลย
? CHR(27)+chr(87)+chr(1)
?? 'บันทึกการแพ้ยา'
? CHR(27)+chr(87)+chr(0)
if _alle1 > 0
for mnext = 1 to _alle1
IF TYPE('_alle2(mnext,1)')='C' .AND. TYPE('_alle2(mnext,2)')='C'
? LEFT(ALLTRIM(_alle2(mnext, 1))+SPACE(9),9)+LEFT( IIF(SEEK(ALLTRIM(_alle2(mnext, 1)), 'J'), J.drug_name, '')+SPACE(40),40) +SPACE(2)+'อาการ: '+ ALLTRIM(_alle2(mnext, 2))
ENDIF
next
else
? ' '+iif(empty(_alle2(1,1)).or._alle2(1,1)#"NOxxxxxxx","ไม่ได้ซักประวัติแพ้ยา"," ปฏิเสธแพ้ยา")
endif
mit
 
โพสต์: 314
ลงทะเบียนเมื่อ: จันทร์ ต.ค. 27, 2008 11:47 pm


ย้อนกลับไปยัง ถาม-ตอบ ปัญหาต่างๆ เกี่ยวกับโปรแกรม MIT-NET

ผู้ใช้งานขณะนี้

กำลังดูบอร์ดนี้: Google [Bot] และ บุคคลทั่วไป 12 ท่าน

cron