Ì € i 2
main
[problem]
&(G)GPDB[gpdb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
problem 75 FREE L gpdb
active 1 YN L &(G)GPDB[gpdb]|0
confidential 1 YN L &(G)GPDB[gpdb]|4
cus.active 1 YN L &(G)GPDB[gpdb]C|0
cus.description 75 FREE L &(G)GPDB[gpdb]C|4
last.update 10 PINT R &(G)GPDB[gpdb]UPD|0
last.update.date 8 DATE L VAL=%Z.date.in.magic(@last.update)
last.update.date.time 15 FREE L VAL=%Z.date.out(@last.update.date,"",10)_"-"_@last.upd
VAL=ate.time'="-"
last.update.time 4 HHMM L VAL=%Z.time.out(@last.update)
last.update.user 10 FREE L MIS.USER &(G)GPDB[gpdb]UPD|1
last.update.user.out 30 FREE L VAL=%Z.convert.to.mixed.case(@MIS.USER.name[@last.upda
VAL=te.user],"",1)
problem.uc 75 FREE L
restrict.edm 1 YN L &(G)GPDB[gpdb]C|1
restrict.mpm 1 YN L &(G)GPDB[gpdb]C|3
restrict.pcm 1 YN L &(G)GPDB[gpdb]C|2
retired 1 YN L &(G)GPDB[gpdb]|1
standard 1 YN L &(G)GPDB[gpdb]|3
umls.cui 15 FREE L &(G)GPDB[gpdb]|2
Ì € i 2
codes
[problem, code.q]
&(G)GPDB[gpdb]D[gpdbD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
code.q 3 PINT R gpdbD
code 15 FREE L &(G)GPDB[gpdb]D[gpdbD]|1
code.active 1 YN L &(G)GPDB[gpdb]D[gpdbD]|2
code.type 8 CHOICE L &(G)GPDB[gpdb]D[gpdbD]|0
Ì € i 2
codes.customer
[problem, code.cus.q]
&(G)GPDB[gpdb]DC[gpdbQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
code.cus.q 3 PINT R gpdbQ
code.cus 15 FREE L &(G)GPDB[gpdb]DC[gpdbQ]|1
code.cus.type 8 CHOICE L &(G)GPDB[gpdb]DC[gpdbQ]|0
Ì € i 2
keywords
[problem, keyword.q]
&(G)GPDB[gpdb]K[gpdbK]
Field Name Len Dat Typ J DPM Offset/Local/VAL
keyword.q 3 PINT R gpdbK
keyword 25 FREE L &(G)GPDB[gpdb]K[gpdbK]|0
keyword.active 1 YN L &(G)GPDB[gpdb]K[gpdbK]|1
Ì € i 2
keywords.customer
[problem, keyword.cus.q]
&(G)GPDB[gpdb]KC[gpdbC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
keyword.cus.q 3 PINT R gpdbC
keyword.cus 25 FREE L &(G)GPDB[gpdb]KC[gpdbC]|0
Index Files Subscripts/Physical Base
code.x [code.type,code,problem]
&(G)GPDBC[gpdbT,gpdbI,gpdb]
keyword.x [keyword,problem]
&(G)GPDBK[gpdbW,gpdb]
|
|
| | | |