Ì 2
mis.facility.code (zcus.main)
[zcus.mnemonic]
\GFACZCUS[gfac]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.mnemonic 10 FREE L gfac
zcus.active 1 YN L \GFACZCUS[gfac]|0
zcus.adm.appr.form.pgm 60 FREE L \GFACZCUS[gfac]|4
zcus.last.update 60 FREE L \GFACZCUS[gfac]UPD
zcus.name 30 FREE L \GFACZCUS[gfac]|1
zcus.sch.appr.form.pgm 60 FREE L \GFACZCUS[gfac]|3
zcus.this.provider.code 10 FREE L VAL=IF{@MIS.ZCUS.FAC.zcus.provider.code[@.facility,@.t
VAL=oday];@MIS.ZCUS.FAC.zcus.provider.code[@.facility,
VAL=-@MIS.ZCUS.FAC.zcus.dates[@.facility,@.today]]}
zcus.this.reg.site.code 10 FREE L VAL=IF{@MIS.ZCUS.FAC.zcus.region.site.code[@.facility,
VAL=@.today];@MIS.ZCUS.FAC.zcus.region.site.code[@.fac
VAL=ility,-@MIS.ZCUS.FAC.zcus.dates[@.facility,@.today
VAL=]]}
zcus.this.site.code 10 FREE L VAL=IF{@MIS.ZCUS.FAC.zcus.site.code[@.facility,@.today
VAL=];@MIS.ZCUS.FAC.zcus.site.code[@.facility,-@MIS.ZC
VAL=US.FAC.zcus.dates[@.facility,@.today]]}
zcus.wl.appr.form.pgm 60 FREE L \GFACZCUS[gfac]|2
Ì € 2
zcus.facility.date (zcus.dates)
[zcus.mnemonic, zcus.effective.date]
\GFACZCUS[gfac]ZCUSEFD[zefd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.effective.date 8 DATE L zefd
zcus.provider.code 10 FREE L \GFACZCUS[gfac]ZCUSEFD[zefd]|0
zcus.region.site.code 10 FREE L \GFACZCUS[gfac]ZCUSEFD[zefd]|2
zcus.site.code 10 FREE L \GFACZCUS[gfac]ZCUSEFD[zefd]|1
|
|