แก้ไข diagnosis ให้ขึ้นทุกราย ใช้ตัวแปรไหนครับ ในใบสังยา

[manat2519]

******************* org
* พิมพ์ใบสั่งยา *
* *
********* ตัวแปร ที่ใช้ **********************
* vital = (T,4)+" "+(P,3)+" "+(R,3)+" "+(BP,8)+" "+(Ht,5)+" "+(Wt,6)
* i_orx ถ้า IPD = space(8)+"X" , ถ้า OPD ="X"+space(8)
* temno = เลขที่ใบสั่งยา
* pag = .t.(ใบสั่งยาเก่า หรือ สำเนา)
* fonnam = คำนำหน้าชื่อ
* m.fname= ชื่อ
* m.lname= นามสกุล
* m.hn = HN
* b.vstdate= วันที่ (วว/ดด/คส.)
* pt_ad = อายุวัน
* pt_am = อายุเดือน
* pt_ay = อายุปี
* doccu = อาชีพ
* dlow = สิทธิ
* m.allergy =ข้อระวัง
* diagnosis = วินิจฉัย
* iwnn = WARD
*
***********************************************
set printer on
set console off
nn=12 &&จำนวนบรรทัดที่พิมพ์รายการได้ ต่อ 1 หน้า
??? chr(27)+chr(67)+chr(0)+chr(6)
if alltr(drv) $ "DYNAdyna"
?? chr(27)+chr(51)+chr(lspc+14)
endif
select 14
DOCTORNAME=''
if seek(h+dtos(d)+t)
fdrug0=recno()
else
fdrug0=0
endif
more=1
lpp=1
lpp2=1
do while more >0
??? chr12
?? spac(44)+i_orx+iif(a=3,space(6)+"สำเนา"+space(5),space(8)+iif(pag,"X"," ")+space(7))+iif(more>1,"X"," ")+space(9)+right("0000"+alltrim(temno),4)
? space(43)+m.hn+space(8)+left(dtoc(b.vstdate),6)+STR(YEAr(b.vstdate),4,0)+space(8)+s_time(b.vsttime,":")
? space(43)+left(fonnam+rtrim(m.fname)+" "+m.lname+space(55),49)
? space(43)
if pt_ay < 1
if pt_am <1>0.and.len(diagnosis) <60> 60 ,substr(diagnosis,61,60),"")
? space(9)+iif(len(diagnosis) > 120 ,substr(diagnosis,121,60),"")
more=0
if fdrug0 > 0
select 14
go fdrug0
lpp=1
more=0
do while hn=h.and.vstdate=d.and.times=t.and.lpp > 0
sumd1=sumd1+price
if j.print <0>>>> มีต่อ ","")
? space(6)+iif(at(",",doctorname,2)=0,doctorname,substr(doctorname,at(",",doctorname,2)+1))
? space(6)+"ค้างชำระ :"+str(cred+cred1,10,2)+" ยอดวันนี้ :"+str(iif(sumd>0,sumd,sumd1),10,2)+" รวม = "+str(cred+cred1+iif(sumd>0,sumd,sumd1),10,2) +" บาท."
? space(6)+" จ่ายสด :"+str(payd,10,2)+ " ใช้สิทธิ :"+str(fred,10,2)+" บาท."
* save to c:\memorder.mem
*********************สิ้นสุดการแก้ไข***************
eject page
enddo
*****************************************************
if msexr=0
hide wind mess
endif
set console on
set printer off
return

****************************************

เนื่องจาก diagnosis ที่ ไม่ใช้เป็น diag principal จะไม่ออก จะต้องแก้ไขอย่างไร

เนื่องจากจะตรวจการบันทึก ICD10

[mit]

ไม่เข้าใจวัตถุประสงค์ ถ้าต้องการตรวจสอบใช้วิธีตรวจทางข้อมูลไม่ดีกว่าหรือ แต่ถ้าต้องการให้พิมพ์ออกมาก็ทำได้เดิมก็เป็นอย่างนั้น ต่อมามีผู้ใช้ต้องการให้พิมพ์เฉพาะ principal ทีนี้จะต้องหาแนวทางที่ถูกต้องก่อน

สำหรับทำเองก็อาจต้องเขียนโปรแกรมไว้ที่ส่วนหัวก่อน set print on ครับ
เช่น
icd10list= ''
select 3
seek h+dtos(d)+t
scan rest while hn=h.and.vstdate=d.and.times=t
icd10list=icd10list+';'+left(c.icd10,5)
endscan
จากนี้เหมือนเดิม แล้วจะพิมพ์ icd10list ตรงไหนก็แทรกคำสั่งบรรทัดนี้
? icd10list ตรงนั้นได้ครับ (? ให้ขึ้นบรรทัดใหม่ก่อนพิมพ์ , ?? ให้พิมพ์ต่อไป)

[manat2519]

วันที่ในใบสั่งยาเปลี่ยน ถ้าเพิ่มตามที่ให้มา