Ì 2
ess.referrals.action.ref.gp (ess.referrals.action.gp)
[ess.ref.act.gp.facility,ess.ref.act.gp.period,ess.ref.act.gp.action,ess.ref.act.gp.source,ess.ref.act.gp.ref.gp]
:WSERAG[gqb,gp,wac,wrs,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.ref.act.gp.facility 10 FREE L MIS.FACILITY gqb
ess.ref.act.gp.period 10 FREE L MIS.GL.PERIOD gp
ess.ref.act.gp.action 10 FREE L WL.ACTION.DICT wac
ess.ref.act.gp.source 10 FREE L WL.REF.SOURCE wrs
ess.ref.act.gp.ref.gp 10 FREE L MIS.DOC.DICT ggg
ess.ref.act.gp.count 5 INT R :WSERAG[gqb,gp,wac,wrs,ggg]|0
Ì 2
ess.referrals.action.svc (ess.referrals.action.svc)
[ess.ref.act.svc.facility,ess.ref.act.svc.period,ess.ref.act.svc.action,ess.ref.act.svc.source,ess.ref.act.svc.service]
:WSERAS[gqb,gp,wac,wrs,ggs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.ref.act.svc.facility 10 FREE L MIS.FACILITY gqb
ess.ref.act.svc.period 10 FREE L MIS.GL.PERIOD gp
ess.ref.act.svc.action 10 FREE L WL.ACTION.DICT wac
ess.ref.act.svc.source 10 FREE L WL.REF.SOURCE wrs
ess.ref.act.svc.service 10 FREE L MIS.SVC.DICT ggs
ess.ref.act.svc.count 5 INT R :WSERAS[gqb,gp,wac,wrs,ggs]|0
Ì 2
ess.referrals.dor (ess.referrals.dors)
[ess.ref.dor.facility,ess.ref.dor.period,ess.ref.dor.consultant,ess.ref.dor.purchaser,ess.ref.dor.dor]
:WSERD[gqb,gp,ggg,ggm,gge]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.ref.dor.facility 10 FREE L MIS.FACILITY gqb
ess.ref.dor.period 10 FREE L MIS.GL.PERIOD gp
ess.ref.dor.consultant 10 FREE L MIS.DOC.DICT ggg
ess.ref.dor.purchaser 10 FREE L MIS.INS.DICT ggm
ess.ref.dor.dor 10 FREE L MIS.CNTY.DICT gge
ess.ref.dor.count 5 INT R :WSERD[gqb,gp,ggg,ggm,gge]|0
Ì 2
ess.referrals.ref.gp (ess.referrals.ref.gps)
[ess.ref.ref.gp.facility,ess.ref.ref.gp.period,ess.ref.ref.gp.consultant,ess.ref.ref.gp.purchaser,ess.ref.ref.gp.ref.gp
:WSERG[gqb,gp,ggg,ggm,rgp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.ref.ref.gp.facility 10 FREE L MIS.FACILITY gqb
ess.ref.ref.gp.period 10 FREE L MIS.GL.PERIOD gp
ess.ref.ref.gp.consultant 10 FREE L MIS.DOC.DICT ggg
ess.ref.ref.gp.purchaser 10 FREE L MIS.INS.DICT ggm
ess.ref.ref.gp.ref.gp 10 FREE L MIS.DOC.DICT rgp
ess.ref.ref.gp.count 5 INT R :WSERG[gqb,gp,ggg,ggm,rgp]|0
Ì 2
ess.wait.consultant (ess.wait.consultants)
[ess.wait.con.facility,ess.wait.con.period,ess.wait.con.intent,ess.wait.con.service,ess.wait.con.consultant,ess.wait.co
:WSEWC[gqb,gp,wmi,ggs,ggg,wp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.wait.con.facility 10 FREE L MIS.FACILITY gqb
ess.wait.con.period 10 FREE L MIS.GL.PERIOD gp
ess.wait.con.intent 10 FREE L WL.MANAGEMENT wmi
ess.wait.con.service 10 FREE L MIS.SVC.DICT ggs
ess.wait.con.consultant 10 FREE L MIS.DOC.DICT ggg
ess.wait.con.wait 3 FREE L wp
ess.wait.con.date 5 INT R :WSEWC[gqb,gp,wmi,ggs,ggg,wp]|0
ess.wait.con.no.date 5 INT R :WSEWC[gqb,gp,wmi,ggs,ggg,wp]|1
Ì 2
ess.wait.dor (ess.wait.dors)
[ess.wait.dor.facility,ess.wait.dor.period,ess.wait.dor.intent,ess.wait.dor.consultant,ess.wait.dor.wait,ess.wait.dor.p
:WSEWD[gqb,gp,wmi,ggg,wp,djc,gge]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.wait.dor.facility 10 FREE L MIS.FACILITY gqb
ess.wait.dor.period 10 FREE L MIS.GL.PERIOD gp
ess.wait.dor.intent 10 FREE L WL.MANAGEMENT wmi
ess.wait.dor.consultant 10 FREE L MIS.DOC.DICT ggg
ess.wait.dor.wait 3 FREE L wp
ess.wait.dor.procedure 5 FREE L ABS.PROC djc
ess.wait.dor.dor 10 FREE L MIS.CNTY.DICT gge
ess.wait.dor.date 5 INT R :WSEWD[gqb,gp,wmi,ggg,wp,djc,gge]|0
ess.wait.dor.no.date 5 INT R :WSEWD[gqb,gp,wmi,ggg,wp,djc,gge]|1
Ì 2
ess.wait.purchaser (ess.wait.purchasers)
[ess.wait.purch.facility,ess.wait.purch.period,ess.wait.purch.intent,ess.wait.purch.consultant,ess.wait.purch.wait,ess.
:WSEWP[gqb,gp,wmi,ggg,wp,djc,ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.wait.purch.facility 10 FREE L MIS.FACILITY gqb
ess.wait.purch.period 10 FREE L MIS.GL.PERIOD gp
ess.wait.purch.intent 10 FREE L WL.MANAGEMENT wmi
ess.wait.purch.consultant 10 FREE L MIS.DOC.DICT ggg
ess.wait.purch.wait 3 FREE L wp
ess.wait.purch.procedure 5 FREE L ABS.PROC djc
ess.wait.purch.purchaser 10 FREE L MIS.INS.DICT ggm
ess.wait.purch.date 5 INT R :WSEWP[gqb,gp,wmi,ggg,wp,djc,ggm]|0
ess.wait.purch.no.date 5 INT R :WSEWP[gqb,gp,wmi,ggg,wp,djc,ggm]|1
Ì 2
ess.wait.ref.gps (ess.wait.ref.gps)
[ess.wait.gp.facility,ess.wait.gp.period,ess.wait.gp.intent,ess.wait.gp.consultant,ess.wait.gp.wait,ess.wait.gp.procedu
:WSEWG[gqb,gp,wmi,ggg,wp,djc,rgp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.wait.gp.facility 10 FREE L MIS.FACILITY gqb
ess.wait.gp.period 10 FREE L MIS.GL.PERIOD gp
ess.wait.gp.intent 10 FREE L WL.MANAGEMENT wmi
ess.wait.gp.consultant 10 FREE L MIS.DOC.DICT ggg
ess.wait.gp.wait 3 FREE L wp
ess.wait.gp.procedure 5 FREE L ABS.PROC djc
ess.wait.gp.ref.gp 10 FREE L MIS.DOC.DICT rgp
ess.wait.gp.date 5 INT R :WSEWG[gqb,gp,wmi,ggg,wp,djc,rgp]|0
ess.wait.gp.no.date 5 INT R :WSEWG[gqb,gp,wmi,ggg,wp,djc,rgp]|1
Ì 2
fce's per month, main (fce)
[fce.date,fce.reg.group]
:WSFCE[gp,wrtG]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fce.date 10 FREE L MIS.GL.PERIOD gp
fce.reg.group 10 FREE L WL.REG.TYP.GRP wrtG
Ì € 2
fce's by consultant (fce.by.con)
[fce.date,fce.reg.group, fce.consultant,fce.con.purchaser]
:WSFCE[gp,wrtG]CON[ggg,ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fce.consultant 10 FREE L MIS.DOC.DICT ggg
fce.con.purchaser 10 FREE L MIS.INS.DICT ggm
con.actual.fce 5 INT R :WSFCE[gp,wrtG]CON[ggg,ggm]|0
con.annual.fce 6 INT R :WSFCE[gp,wrtG]CON[ggg,ggm]|2
con.target.fce 5 INT R :WSFCE[gp,wrtG]CON[ggg,ggm]|1
Ì € 2
fce's by purchaser, contract (fce.by.purch.contract)
[fce.date,fce.reg.group, fce.pcon.purchaser,fce.pcon.contract]
:WSFCE[gp,wrtG]PCON[ggm,wcon]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fce.pcon.purchaser 10 FREE L MIS.INS.DICT ggm
fce.pcon.contract 20 FREE L WL.CONTRACTS wcon
pcon.actual.fce 5 INT R :WSFCE[gp,wrtG]PCON[ggm,wcon]|0
pcon.annual.fce 6 INT R :WSFCE[gp,wrtG]PCON[ggm,wcon]|2
pcon.target.fce 5 INT R :WSFCE[gp,wrtG]PCON[ggm,wcon]|1
Ì € 2
fce's by purchaser, ref gp (fce.by.purch.ref.gp)
[fce.date,fce.reg.group, fce.pref.purchaser,fce.pref.ref.gp]
:WSFCE[gp,wrtG]PREF[ggm,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fce.pref.purchaser 10 FREE L MIS.INS.DICT ggm
fce.pref.ref.gp 10 FREE L MIS.DOC.DICT ggg
pref.actual.fce 5 INT R :WSFCE[gp,wrtG]PREF[ggm,ggg]|0
pref.annual.fce 6 INT R :WSFCE[gp,wrtG]PREF[ggm,ggg]|2
pref.target.fce 5 INT R :WSFCE[gp,wrtG]PREF[ggm,ggg]|1
Ì € 2
fce's by service (fce.by.svc)
[fce.date,fce.reg.group, fce.service,fce.purchaser]
:WSFCE[gp,wrtG]SVC[ggs,ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fce.service 10 FREE L MIS.SVC.DICT ggs
fce.purchaser 10 FREE L MIS.INS.DICT ggm
svc.actual.fce 5 INT R :WSFCE[gp,wrtG]SVC[ggs,ggm]|0
svc.annual.fce 6 INT R :WSFCE[gp,wrtG]SVC[ggs,ggm]|2
svc.target.fce 5 INT R :WSFCE[gp,wrtG]SVC[ggs,ggm]|1
Ì € 2
fce's by service by contract (fce.by.svc.con)
[fce.date,fce.reg.group, fce.svc,fce.purch,fce.contract]
:WSFCE[gp,wrtG]SVCON[ggs,ggm,wcon]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fce.svc 10 FREE L MIS.SVC.DICT ggs
fce.purch 10 FREE L MIS.INS.DICT ggm
fce.contract 20 FREE L WL.CONTRACTS wcon
svcon.actual.fce 5 INT R :WSFCE[gp,wrtG]SVCON[ggs,ggm,wcon]|0
svcon.annual.fce 6 INT R :WSFCE[gp,wrtG]SVCON[ggs,ggm,wcon]|2
svcon.target.fce 5 INT R :WSFCE[gp,wrtG]SVCON[ggs,ggm,wcon]|1
Ì 2
fce.daily.doctor (fce.daily.doctor)
[fce.daily.doc.date,fce.daily.doc.purchaser,fce.daily.doc.contract,fce.daily.doc.reg.group,fce.daily.doc.doctor]
:WSFCEDD[dt,ggm,wcon,wrtg,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fce.daily.doc.date 8 DATE L dt
fce.daily.doc.purchaser 10 FREE L MIS.INS.DICT ggm
fce.daily.doc.contract 20 FREE L WL.CONTRACTS wcon
fce.daily.doc.reg.group 10 FREE L WL.REG.TYP.GRP wrtg
fce.daily.doc.doctor 10 FREE L MIS.DOC.DICT ggg
fce.daily.doc.con.actual 6 INT R :WSFCEDD[dt,ggm,wcon,wrtg,ggg]|0
fce.daily.doc.gp.actual 6 INT R :WSFCEDD[dt,ggm,wcon,wrtg,ggg]|1
Ì 2
fce.daily.stats (fce.daily.service)
[fce.daily.svc.date,fce.daily.svc.purchaser,fce.daily.svc.contract,fce.daily.svc.reg.group,fce.daily.svc.specialty]
:WSFCEDS[dt,ggm,wcon,wrtg,ggs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fce.daily.svc.date 8 DATE L dt
fce.daily.svc.purchaser 10 FREE L MIS.INS.DICT ggm
fce.daily.svc.contract 20 FREE L WL.CONTRACTS wcon
fce.daily.svc.reg.group 10 FREE L WL.REG.TYP.GRP wrtg
fce.daily.svc.specialty 10 FREE L MIS.SVC.DICT ggs
fce.daily.svc.actual 6 INT R :WSFCEDS[dt,ggm,wcon,wrtg,ggs]|0
fce.daily.svc.count 6 DEC R :WSFCEDS[dt,ggm,wcon,wrtg,ggs]|2
fce.daily.svc.target 6 DEC R :WSFCEDS[dt,ggm,wcon,wrtg,ggs]|1
Ì 2
local data defs for WL.STATS (locals)
Field Name Len Dat Typ J DPM Offset/Local/VAL
..consultant 10 FREE L MIS.DOC.DICT
..date 10 FREE L MIS.GL.PERIOD
..facility 10 FREE L MIS.FACILITY
..management.intent 10 FREE L WL.MANAGEMENT
..procedure 15 FREE L SS.OP
..purchaser 10 FREE L MIS.INS.DICT
..purchaser.cat 10 FREE L MIS.INS.GROUP
..ref.gp 10 FREE L MIS.DOC.DICT
..ref.gp.practice 10 FREE L MIS.DOC.GRP
..reg.cat 10 FREE L MIS.CAN.REGCAT
..service 10 FREE L MIS.SVC.DICT
..wait.period 3 FREE L
Ì 2
month.end (month.end)
[me.year,me.month,me.facility,me.purchaser,me.dor,me.consultant,me.specialty,me.funded.by,me.patient.type]
:WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]
Field Name Len Dat Typ J DPM Offset/Local/VAL
me.year 4 PINT R mey
me.month 2 PINT R mem
me.facility 10 FREE L MIS.FACILITY gqb
me.purchaser 10 FREE L MIS.INS.DICT ggm
me.dor 10 FREE L MIS.CNTY.DICT gge
me.consultant 10 FREE L MIS.DOC.DICT ggg
me.specialty 10 FREE L MIS.SVC.DICT ggs
me.funded.by 3 CHOICE L mefb
me.patient.type 3 CHOICE L mept
me.tot.added.date 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|4
me.tot.added.no.date 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|5
me.tot.admits 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|6
me.tot.cbh 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|8
me.tot.cbp 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|7
me.tot.coth 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|10
me.tot.date 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|0
me.tot.deferred 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|2
me.tot.dna 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|9
me.tot.dor.dc.add.date 6 PINT R VAL=@me.tot.added.date["DOR","D/C"]
me.tot.dor.dc.add.no.date 6 PINT R VAL=@me.tot.added.no.date["DOR","D/C"]
me.tot.dor.dc.admits 6 PINT R VAL=@me.tot.admits["DOR","D/C"]
me.tot.dor.dc.cbh 6 PINT R VAL=@me.tot.cbh["DOR","D/C"]
me.tot.dor.dc.cbp 6 PINT R VAL=@me.tot.cbp["DOR","D/C"]
me.tot.dor.dc.coth 6 PINT R VAL=@me.tot.coth["DOR","D/C"]
me.tot.dor.dc.date 6 PINT R VAL=@me.tot.date["DOR","D/C"]
me.tot.dor.dc.deferred 6 PINT R VAL=@me.tot.deferred["DOR","D/C"]
me.tot.dor.dc.dna 6 PINT R VAL=@me.tot.dna["DOR","D/C"]
me.tot.dor.dc.no.date 6 PINT R VAL=@me.tot.no.date["DOR","D/C"]
me.tot.dor.dc.planned 6 PINT R VAL=@me.tot.planned["DOR","D/C"]
me.tot.dor.dc.removed 6 PINT R VAL=@me.tot.removed["DOR","D/C"]
me.tot.dor.in.add.date 6 PINT R VAL=@me.tot.added.date["DOR","IN"]
me.tot.dor.in.add.no.date 6 PINT R VAL=@me.tot.added.no.date["DOR","IN"]
me.tot.dor.in.admits 6 PINT R VAL=@me.tot.admits["DOR","IN"]
me.tot.dor.in.cbh 6 PINT R VAL=@me.tot.cbh["DOR","IN"]
me.tot.dor.in.cbp 6 PINT R VAL=@me.tot.cbp["DOR","IN"]
me.tot.dor.in.coth 6 PINT R VAL=@me.tot.coth["DOR","IN"]
me.tot.dor.in.date 6 PINT R VAL=@me.tot.date["DOR","IN"]
me.tot.dor.in.deferred 6 PINT R VAL=@me.tot.deferred["DOR","IN"]
me.tot.dor.in.dna 6 PINT R VAL=@me.tot.dna["DOR","IN"]
me.tot.dor.in.no.date 6 PINT R VAL=@me.tot.no.date["DOR","IN"]
me.tot.dor.in.planned 6 PINT R VAL=@me.tot.planned["DOR","IN"]
me.tot.dor.in.removed 6 PINT R VAL=@me.tot.removed["DOR","IN"]
me.tot.gp.dc.add.date 6 PINT R VAL=@me.tot.added.date["GP","D/C"]
me.tot.gp.dc.add.no.date 6 PINT R VAL=@me.tot.added.no.date["GP","D/C"]
me.tot.gp.dc.admits 6 PINT R VAL=@me.tot.admits["GP","D/C"]
me.tot.gp.dc.cbh 6 PINT R VAL=@me.tot.cbh["GP","D/C"]
me.tot.gp.dc.cbp 6 PINT R VAL=@me.tot.cbp["GP","D/C"]
me.tot.gp.dc.coth 6 PINT R VAL=@me.tot.coth["GP","D/C"]
me.tot.gp.dc.date 6 PINT R VAL=@me.tot.date["GP","D/C"]
me.tot.gp.dc.deferred 6 PINT R VAL=@me.tot.deferred["GP","D/C"]
me.tot.gp.dc.dna 6 PINT R VAL=@me.tot.dna["GP","D/C"]
me.tot.gp.dc.no.date 6 PINT R VAL=@me.tot.no.date["GP","D/C"]
me.tot.gp.dc.planned 6 PINT R VAL=@me.tot.planned["GP","D/C"]
me.tot.gp.dc.removed 6 PINT R VAL=@me.tot.removed["GP","D/C"]
me.tot.gp.in.add.date 6 PINT R VAL=@me.tot.added.date["GP","IN"]
me.tot.gp.in.add.no.date 6 PINT R VAL=@me.tot.added.no.date["GP","IN"]
me.tot.gp.in.admits 6 PINT R VAL=@me.tot.admits["GP","IN"]
me.tot.gp.in.cbh 6 PINT R VAL=@me.tot.cbh["GP","IN"]
me.tot.gp.in.cbp 6 PINT R VAL=@me.tot.cbp["GP","IN"]
me.tot.gp.in.coth 6 PINT R VAL=@me.tot.coth["GP","IN"]
me.tot.gp.in.date 6 PINT R VAL=@me.tot.date["GP","IN"]
me.tot.gp.in.deferred 6 PINT R VAL=@me.tot.deferred["GP","IN"]
me.tot.gp.in.dna 6 PINT R VAL=@me.tot.dna["GP","IN"]
me.tot.gp.in.no.date 6 PINT R VAL=@me.tot.no.date["GP","IN"]
me.tot.gp.in.planned 6 PINT R VAL=@me.tot.planned["GP","IN"]
me.tot.gp.in.removed 6 PINT R VAL=@me.tot.removed["GP","IN"]
me.tot.no.date 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|1
me.tot.planned 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|3
me.tot.removed 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]|11
Ì € 2
month.end.waits (month.end.waits)
[me.year,me.month,me.facility,me.purchaser,me.dor,me.consultant,me.specialty,me.funded.by,me.patient.type, me.tot.wait.
:WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]WT[memw]
Field Name Len Dat Typ J DPM Offset/Local/VAL
me.tot.wait.months 5 INT R memw
me.tot.wait 6 PINT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]WT[memw]|0
me.tot.wait.dor.dc 6 PINT R VAL=@me.tot.wait["DOR","D/C",@me.tot.wait.months]
me.tot.wait.dor.in 6 PINT R VAL=@me.tot.wait["DOR","IN",@me.tot.wait.months]
me.tot.wait.gp.dc 6 PINT R VAL=@me.tot.wait["GP","D/C",@me.tot.wait.months]
me.tot.wait.gp.in 6 PINT R VAL=@me.tot.wait["GP","IN",@me.tot.wait.months]
Ì € 2
month.end.wait.procedure (month.end.wait.proc)
[me.year,me.month,me.facility,me.purchaser,me.dor,me.consultant,me.specialty,me.funded.by,me.patient.type,me.tot.wait.m
:WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]WT[memw]PROC[djc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
me.tot.wait.proc 5 FREE L ABS.PROC djc
me.tot.wait.proc.date 6 INT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]WT[memw]PROC[djc
me.tot.wait.proc.no.date 6 INT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]WT[memw]PROC[djc
Ì € 2
month.end.wait.ref.gp (month.end.wait.gp)
[me.year,me.month,me.facility,me.purchaser,me.dor,me.consultant,me.specialty,me.funded.by,me.patient.type,me.tot.wait.m
:WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]WT[memw]PROC[djc]GP[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
me.tot.wait.gp 10 FREE L MIS.DOC.DICT ggg
me.tot.wait.gp.date 6 INT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]WT[memw]PROC[djc
me.tot.wait.gp.no.date 6 INT R :WSME[mey,mem,gqb,ggm,gge,ggg,ggs,mefb,mept]WT[memw]PROC[djc
Ì 2
main for patient referral stat (referrals)
[ref.facility,ref.date,ref.con.act,ref.source]
:WSREF[gqb,dt,wac,wrs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ref.facility 10 FREE L MIS.FACILITY gqb
ref.date 8 DATE L dt
ref.con.act 10 FREE L WL.ACTION.DICT wac
ref.source 10 FREE L WL.REF.SOURCE wrs
Ì € 2
referrals by consultant (ref.by.con)
[ref.facility,ref.date,ref.con.act,ref.source, con.consultant]
:WSREF[gqb,dt,wac,wrs]CON[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
con.consultant 10 FREE L MIS.DOC.DICT ggg
con.referral.count 5 INT R :WSREF[gqb,dt,wac,wrs]CON[ggg]|0
ref.referral.count 5 INT R :WSREF[gqb,dt,wac,wrs]CON[ggg]|1
Ì € 2
referrals by purchaser (ref.by.purch)
[ref.facility,ref.date,ref.con.act,ref.source, purch.purchaser]
:WSREF[gqb,dt,wac,wrs]PURCH[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
purch.purchaser 10 FREE L MIS.INS.DICT ggm
purch.referral.count 5 INT R :WSREF[gqb,dt,wac,wrs]PURCH[ggm]|0
Ì € 2
referrals by service (ref.by.svc)
[ref.facility,ref.date,ref.con.act,ref.source, svc.service]
:WSREF[gqb,dt,wac,wrs]SVC[ggs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
svc.service 10 FREE L MIS.SVC.DICT ggs
svc.referral.count 5 INT R :WSREF[gqb,dt,wac,wrs]SVC[ggs]|0
Ì 2
waiting for admit (wait.for.adm)
[facility,date,management.intent,service]
:WSWFA[gqb,gp,wmi,ggs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
facility 10 FREE L MIS.FACILITY gqb
date 10 FREE L MIS.GL.PERIOD gp
management.intent 10 FREE L WL.MANAGEMENT wmi
service 10 FREE L MIS.SVC.DICT ggs
Ì € 2
waiting for adm with date cons (wait.for.adm.con)
[facility,date,management.intent,service, consultant]
:WSWFA[gqb,gp,wmi,ggs]C[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
consultant 10 FREE L MIS.DOC.DICT ggg
wait.adm.w.date.con.cnt 5 INT R :WSWFA[gqb,gp,wmi,ggs]C[ggg]|0
wait.adm.w.date.ref.cnt 5 INT R :WSWFA[gqb,gp,wmi,ggs]C[ggg]|1
Ì € 2
waiting for adm by proc (wait.for.adm.proc)
[facility,date,management.intent,service, procedure]
:WSWFA[gqb,gp,wmi,ggs]PROC[ssop]
Field Name Len Dat Typ J DPM Offset/Local/VAL
procedure 15 FREE L SS.OP ssop
proc.wait.adm.w.dt.cnt 5 INT R :WSWFA[gqb,gp,wmi,ggs]PROC[ssop]|0
Ì € 2
waiting for adm by purchaser (wait.for.adm.purch)
[facility,date,management.intent,service, purchaser]
:WSWFA[gqb,gp,wmi,ggs]PURCH[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
purchaser 10 FREE L MIS.INS.DICT ggm
purch.wait.adm.w.dt.cnt 5 INT R :WSWFA[gqb,gp,wmi,ggs]PURCH[ggm]|0
Ì 2
waiting for admit by proc, gp (wait.for.adm.proc.ref.gp)
[pr.facility,pr.date,pr.management.intent,pr.procedure,pr.ref.gp]
:WSWFAP[gqb,gp,wmi,ssop,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pr.facility 10 FREE L MIS.FACILITY gqb
pr.date 10 FREE L MIS.GL.PERIOD gp
pr.management.intent 10 FREE L WL.MANAGEMENT wmi
pr.procedure 15 FREE L SS.OP ssop
pr.ref.gp 10 FREE L MIS.DOC.DICT ggg
pr.wait.adm.w.dt.cnt 5 INT R :WSWFAP[gqb,gp,wmi,ssop,ggg]|0
Ì 2
wait for adm by proc, wait per (wait.for.adm.proc.wait)
[pwp.facility,pwp.date,pwp.management.intent,pwp.service,pwp.procedure,pwp.wait.period]
:WSWFAPWP[gqb,gp,wmi,ggs,ssop,wp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pwp.facility 10 FREE L MIS.FACILITY gqb
pwp.date 10 FREE L MIS.GL.PERIOD gp
pwp.management.intent 10 FREE L WL.MANAGEMENT wmi
pwp.service 10 FREE L MIS.SVC.DICT ggs
pwp.procedure 15 FREE L SS.OP ssop
pwp.wait.period 3 FREE L wp
pwp.wait.adm.wout.dt 5 INT R :WSWFAPWP[gqb,gp,wmi,ggs,ssop,wp]|0
Ì 2
wait for adm by, purch,con,wp (wait.for.adm.pur.con)
[puc.facility,puc.date,puc.service,puc.purchaser,puc.consultant,puc.wait.period]
:WSWFAPUC[gqb,gp,ggs,ggm,ggg,wp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
puc.facility 10 FREE L MIS.FACILITY gqb
puc.date 10 FREE L MIS.GL.PERIOD gp
puc.service 10 FREE L MIS.SVC.DICT ggs
puc.purchaser 10 FREE L MIS.INS.DICT ggm
puc.consultant 10 FREE L MIS.DOC.DICT ggg
puc.wait.period 3 FREE L wp
puc.wait.adm.wout.dt 5 INT R :WSWFAPUC[gqb,gp,ggs,ggm,ggg,wp]|0
Ì 2
wait for adm by purch, wait pe (wait.for.adm.purch.wp)
[puwp.facility,puwp.date,puwp.management.intent,puwp.service,puwp.purchaser,puwp.wait.period]
:WSWFAPUWP[gqb,gp,wmi,ggs,ggm,wp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
puwp.facility 10 FREE L MIS.FACILITY gqb
puwp.date 10 FREE L MIS.GL.PERIOD gp
puwp.management.intent 10 FREE L WL.MANAGEMENT wmi
puwp.service 10 FREE L MIS.SVC.DICT ggs
puwp.purchaser 10 FREE L MIS.INS.DICT ggm
puwp.wait.period 3 FREE L wp
puwp.wait.adm.wout.dt 5 INT R :WSWFAPUWP[gqb,gp,wmi,ggs,ggm,wp]|0
Ì 2
waiting for adm by wait period (wait.for.adm.wait.period)
[wp.facility,wp.date,wp.management.intent,wp.consultant,wp.wait.period]
:WSWFAWP[gqb,gp,wmi,ggg,wp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
wp.facility 10 FREE L MIS.FACILITY gqb
wp.date 10 FREE L MIS.GL.PERIOD gp
wp.management.intent 10 FREE L WL.MANAGEMENT wmi
wp.consultant 10 FREE L MIS.DOC.DICT ggg
wp.wait.period 3 FREE L wp
wp.wait.adm.wout.dt 5 INT R :WSWFAWP[gqb,gp,wmi,ggg,wp]|0
Ì 2
wait for adm by wait, ref gp (wait.for.adm.wp.ref.gp)
[wpr.facility,wpr.date,wpr.management.intent,wpr.service,wpr.wait.period,wpr.ref.gp]
:WSWFAWPR[gqb,gp,wmi,ggs,wp,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
wpr.facility 10 FREE L MIS.FACILITY gqb
wpr.date 10 FREE L MIS.GL.PERIOD gp
wpr.management.intent 10 FREE L WL.MANAGEMENT wmi
wpr.service 10 FREE L MIS.SVC.DICT ggs
wpr.wait.period 3 FREE L wp
wpr.ref.gp 10 FREE L MIS.DOC.DICT ggg
wpr.wait.adm.wout.dt 5 INT R :WSWFAWPR[gqb,gp,wmi,ggs,wp,ggg]|0
Ì 2
put.on.wl.stats (wl.counts)
[wl.count.facility,wl.count.method,wl.count.management,wl.count.date]
?WSC[gqb,wlm,wlmi,wld]
Field Name Len Dat Typ J DPM Offset/Local/VAL
wl.count.facility 10 FREE L MIS.FACILITY gqb
wl.count.method 10 FREE L wlm
wl.count.management 10 FREE L wlmi
wl.count.date 8 DATE L wld
wl.adm.count 4 FREE L ?WSC[gqb,wlm,wlmi,wld]|1
wl.cancel.total.count 4 FREE L ?WSC[gqb,wlm,wlmi,wld]|2
wl.log.count 4 FREE L ?WSC[gqb,wlm,wlmi,wld]|0
wl.removal.total.count 4 FREE L ?WSC[gqb,wlm,wlmi,wld]|3
Ì 2
wl.removal (wl.removal)
[wl.removal.facility,wl.removal.method,wl.removal.management,wl.removal.reason,wl.removal.date]
?WSR[gqb,wlm,wlmi,wlrr,wld]
Field Name Len Dat Typ J DPM Offset/Local/VAL
wl.removal.facility 10 FREE L MIS.FACILITY gqb
wl.removal.method 10 FREE L wlm
wl.removal.management 10 FREE L wlmi
wl.removal.reason 10 FREE L wlrr
wl.removal.date 8 DATE L wld
wl.removal.count 4 FREE L ?WSR[gqb,wlm,wlmi,wlrr,wld]|0
Ì 2
wl.tci.cancel (wl.tci.cancel)
[wl.cancel.facility,wl.cancel.method,wl.cancel.management,wl.cancel.outcome,wl.cancel.date]
?WSTC[gqb,wlm,wlmi,wlco,wld]
Field Name Len Dat Typ J DPM Offset/Local/VAL
wl.cancel.facility 10 FREE L MIS.FACILITY gqb
wl.cancel.method 10 FREE L wlm
wl.cancel.management 10 FREE L wlmi
wl.cancel.outcome 10 FREE L wlco
wl.cancel.date 8 DATE L wld
wl.cancel.count 4 FREE L ?WSTC[gqb,wlm,wlmi,wlco,wld]|0
|
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |