โดย mit เมื่อ ศุกร์ ส.ค. 06, 2010 1:21 pm
ได้ทำ function ไว้ให้ในส่วน MIT-NET เพื่อคืนค่าเป็น VITAL SIGN คือ
vitalsig(cHN,dDATE,cTime,lLast) โดยคืนค่าเป็นตัวหนังสือขนาด 80 ตัวอักษร จะใช้ค่าใด ก็ตัดเอาได้ครับด้วย function SUBSTR() เช่น
1.ต้องการเฉพาะน้ำหนักที่บันทึกในครั้งหลังสุด ของผู้ป่วย HN='000000001' ;วันที่ 09/08/2553 ; Visit ที่ 1
cWeight = Substr(vitalsig('000000001',ctod('09/08/2010'),'1',.T.),71,6)
2.ต้องการค่า vital sign ที่บันทึกในครั้งแรก ของผู้ป่วย HN='000000001' ;วันที่ 09/08/2553 ; Visit ที่ 1
cVital = vitalsig('000000001',ctod('09/08/2010'),'1')
ดังนั้นใน P_ADMIT แบบส่งข้อมูลก็เพียงเพิ่มบรรทัด
? "vital"+CHR(1)+vitalsig('000000001',ctod('09/08/2010'),'1')
ด้าน Mit-Utility จะมีตัวแปร DOS_VITAL เอาไปใช้งานได้เลย