Ì 2
mis.read (main)
[version,code]
\GZRR[gzrcv,gzrr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L MIS.ZCUS.RC.VERgzrcv
code 5 FREE L gzrr
active 1 YN L \GZRR[gzrcv,gzrr]|0
comp.comorb 1 YN L \GZRR[gzrcv,gzrr]|3
descriptor.only 1 YN L \GZRR[gzrcv,gzrr]|2
id 5 FREE L
last.update 50 FREE L \GZRR[gzrcv,gzrr]UPD
last.user 10 FREE L MIS.USER \GZRR[gzrcv,gzrr]USR
name 60 FREE L \GZRR[gzrcv,gzrr]|1
name.50 50 FREE L VAL=(@ABS.ZCUS.READ.name$50)
name.real 60 FREE L VAL=@name$L(@name,"* DO NOT USE *"):"S"
|