Ì 2
lab.c.diag.main (main)
[version,code]
*DRB[ssw,drb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L LAB.C.ICD.VER ssw
code 7 FREE L drb
active 1 YN L *DRB[ssw,drb]|0
alt.desc.grp 15 FREE L
id 7 FREE L
last.update 50 FREE L *DRB[ssw,drb]UPD
last.user 10 FREE L MIS.USER *DRB[ssw,drb]USR
name 60 FREE L *DRB[ssw,drb]|1
name.50 50 FREE L VAL=(@LAB.C.DIAG.name$50)
name.display 60 FREE L VAL=IF{O(*S,/.LAB.ICD),@LAB.C.DIAG.name^LAB.C.DIAG.nam
VAL=e,C(*U),LAB.C.DIAG.name}
name.display.50 50 FREE L VAL=IF{O(*S,/.LAB.ICD),@LAB.C.DIAG.name^LAB.C.DIAG.nam
VAL=e,C(*U),LAB.C.DIAG.name$50}
name.real 60 FREE L VAL=@name$L(@name,"* DO NOT USE *"):"S"
|