Ì € i 2
main
[mnemonic]
&(W)WRG[wrg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L wrg
active 1 YN L &(W)WRG[wrg]|0
cd.screen 15 FREE L MIS.SCREEN &(W)WRG[wrg]|2
department 10 FREE L MIS.LOCN &(W)WRG[wrg]|3
department.name 30 FREE L VAL=@MIS.LOCN.name[@department]
dept.access.ok 1 YN L VAL=%SCH.ACCESS.check.M.dept(department,@.user)
description 30 FREE L &(W)WRG[wrg]|1
last.update 10 PINT R &(W)WRG[wrg]UPD
or.pha.site 10 FREE L PHA.SITE &(W)WRG[wrg]OR|1
or.type 1 YN L &(W)WRG[wrg]OR|0
phone 18 PHONE L &(W)WRG[wrg]|4
phone.out 18 PHONE L VAL=IF{@phone;@MIS.LOCN.phone.number[@department]}
phys.practice 10 FREE L MIS.DOC.GRP &(W)WRG[wrg]|5
pt.appts.ok 1 YN L &(W)WRG[wrg]|6
rsrc.grp.access.ok 1 YN L VAL=%SCH.ACCESS.check.M.rsrc.grp(mnemonic,@.user)
Ì € i 2
group.formats
[mnemonic, group.fmt.seq.no]
&(W)WRG[wrg]G[wrgG]
Field Name Len Dat Typ J DPM Offset/Local/VAL
group.fmt.seq.no 2 PINT R wrgG
group.format 15 FREE L SCH.PROGRAM &(W)WRG[wrg]G[wrgG]|0
group.format.desc 35 FREE L VAL=@SCH.PROGRAM.description[@group.format]
Ì € i 2
schedule.formats
[mnemonic, schedule.format.seq.no]
&(W)WRG[wrg]S[wrgSI]
Field Name Len Dat Typ J DPM Offset/Local/VAL
schedule.format.seq.no 2 PINT R wrgSI
schedule.format 15 FREE L SCH.PROGRAM &(W)WRG[wrg]S[wrgSI]|0
schedule.format.desc 35 FREE L VAL=@SCH.PROGRAM.description[@schedule.format]
Index Files Subscripts/Physical Base
dept.x [department,mnemonic]
&(W)WRGD[ggn,wrg]
id.x [description,mnemonic]
&(W)WRGI[wrgD,wrg]
practice.x [phys.practice,mnemonic]
&(W)WRGP[ggh,wrg]
|
|
| |