ถ้าจะเพิ่ม รหัสโรค ในใบสั่งยา

[11419]

ถ้าจะเพิ่ม รหัสโรค ในใบสั่งยา
*****DIAGNOSIS
? SPACE(14)+':'+left(alltrim(diagnosis),60)

.......ถ้าจะเพิ่มรหัส ICD 10 ตรงนี้ ใช้คำสั่งอย่างไรครับ......

*********รายการยา/บริการ/กิจกรรม******
...

[mit]

ตัดบางส่วนมาจาก p_order.prg
..........
if alltr(drv) $ "DYNAdyna"
?? chr(27)+chr(51)+chr(lspc+14)
endif
**********เพิ่มตั้งแต่ตรงนี้
priv icd_list
icd_list = ''
select 3
IF seek(h+dtos(d)+t)
mnext = 0
SCAN REST while MNEXT <= 6
IF hn= h .and.vstdate= d .and.times= t
MNEXT = IIF(MNEXT > 3,INDX_MRK(PROGRAM(),LINENO(1),3),0)
IF dxtype $ "15" &&principal and Rule out (dxtype =5)
icd_list=icd_list+iif(empty(icd_list),'',',')+left(icd10,5)
ENDIF
ELSE
MNEXT = MNEXT+1
ENDIF
ENDSCAN
ENDIF
**************** จบ เอา icd_list ไปใช้ได้เลย
select 14
DOCTORNAME=''
if seek(h+dtos(d)+t)
fdrug0=recno()
.....