Ì € 2
main
[version,code]
*(DRG)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
abs.drg.prefix 6 FREE L VAL=*(DRG)
active 1 YN L *(DRG)DRB[ssw,drb]|0
alt.desc.grp 15 FREE L
last.user 10 FREE L MIS.USER *(DRG)DRB[ssw,drb]USR
name 60 FREE L *(DRG)DRB[ssw,drb]|1
name.50 50 FREE L VAL=(@LAB.C.DIAG.name$50)
name.display 60 FREE L VAL=@LAB.C.DIAG.name
name.display.50 50 FREE L VAL=@LAB.C.DIAG.name$50
name.real 60 FREE L VAL=@name$L(@name,"* DO NOT USE *"):"S"
|