Routine: DGENRPT4

Package	Total	Call Graph
Registration	8	$$FINDCUR^DGENA $$CATEGORY^DGENA4 ($$FINDCUR,$$GET)^DGENEGT $$ABOVE^DGENEGT1 $$PREF^DGENPTA (BLDUTL,GETAPPT)^DGENRPT5 $$PCPRACT^DGSDUTL (DEM,IN5,KVA)^VADPT
VA Fileman	4	NOW^%DTC $$EXTERNAL^DILFD EN1^DIP ^DIR
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	1	DGENRPT

Entry Points

Name	Comments	DBIA/ICR reference
FAP1	;Get the patient FUTURE APPOINTMENTS.
FAP0	;See if the patient has future appointment.
PRESRT1	;Sort for patient's current record and get the potentially affected.
ENRED	;Get the patient ENROLLMENT END DATE.
PCPVD	;Get the patient PC PROVIDER.
DETHD1	;Header for the Preliminary Detailed Report, with Future Appointments.
DETHD0	;Header for the Preliminary Detailed Report, no Future Appointments.
PRESORT	;First get the current EGT Setting from file #27.16.
WRD	;Get the patient WARD.
END	;At the end of the display.
PFCLTY	;Get the patient PREFFERED FACILITY.
RPDT2
EP	;Get the patient EGT Priority.
PT	;Get the patient NAME and SSN
ENPT	;Actual Detailed Report selected.
INFAP	;Ask the user if Future Appointments is wanted on the report.
DETHD	;General header for the Preliminary Detailed Report.
EGTP	;Get patients EGT Priority.
ENRST	;Get the patient ENROLLMENT STATUS.
RPDT	;Ask the user the Report Begin Date and Report End Date.
EXIT	;Clean up upon exit of the routine.
BYSRT	;Sort patients by last name for "BY(0)".

External References

Name	Field # of Occurrence
NOW^%DTC	DETHD+3
$$FINDCUR^DGENA	PRESRT1+5
$$CATEGORY^DGENA4	PRESRT1+9
$$FINDCUR^DGENEGT	PRESORT+2
$$GET^DGENEGT	PRESORT+5
$$ABOVE^DGENEGT1	EGTP+6
$$PREF^DGENPTA	PFCLTY+2
BLDUTL^DGENRPT5	FAP1+5, FAP0+7
GETAPPT^DGENRPT5	PRESRT1+15
$$PCPRACT^DGSDUTL	PCPVD+3
$$EXTERNAL^DILFD	PRESORT+16, PRESRT1+14, EGTP+8, EP+6
EN1^DIP	ENPT+19
^DIR	INFAP+4, RPDT+5, RPDT2+3
DEM^VADPT	PRESRT1+11, PT+3
IN5^VADPT	WRD+2
KVA^VADPT	EXIT+1
$$FMTE^XLFDT	PRESORT+11, PRESORT+13, DETHD+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* This report requires a 132 column printer. *",!! Line Location: ENPT+7
Function Call: WRITE	Prompt: *7 Line Location: INFAP+5
Function Call: WRITE	Prompt: *7 Line Location: RPDT+7
Function Call: WRITE	Prompt: *7 Line Location: RPDT2+5
Function Call: WRITE	Prompt: !,"No EGT setting on file.",! Line Location: PRESORT+4
Function Call: WRITE	Prompt: !,"No EGT setting on file.",! Line Location: PRESORT+8
Function Call: WRITE	Prompt: X Line Location: FAP1+11
Function Call: WRITE	Prompt: !,?79,X Line Location: FAP1+12
Function Call: WRITE	Prompt: !,?79,"More Appts" Line Location: FAP1+13
Function Call: WRITE	Prompt: !,?((IOM-33)\2),"EGT Actual Detailed Impact Report" Line Location: DETHD+7
Function Call: WRITE	Prompt: !,?((IOM-38-$L(DT1_DT2))\2),"Date Range of Enrollment End Date: ",DT1," - ",DT2 Line Location: DETHD+8
Function Call: WRITE	Prompt: !,?((IOM-22-$L(RDT))\2),"Date/Time Report Run: ",RDT Line Location: DETHD+9
Function Call: WRITE	Prompt: !,?((IOM-45-$L(RLEGT_EGTSUB_EGTTP_EGTEDT))\2),"EGT Setting: ",RLEGT_EGTSUB," EGT Type: ",EGTTP," EGT Effective Date: ",EGTEDT Line Location: DETHD+10
Function Call: WRITE	Prompt: !,?((IOM-28-$L(EGTLDT))\2),"Date/Time Last EGT Setting: ",EGTLDT Line Location: DETHD+11
Function Call: WRITE	Prompt: !!,"IMPORTANT NOTE: Actual report is based on a comparison of the EGT Setting and the Enrollment Category as provided by HEC." Line Location: DETHD+12
Function Call: WRITE	Prompt: !!,"NAME",?21,"SSN",?32,"EP",?36,"ENROLLMENT",?48,"ENROLLMENT",?62,"WARD",?79,"FUTURE",?109,"PC",?120,"PREF" Line Location: DETHD1+2
Function Call: WRITE	Prompt: !,?36,"END DATE",?48,"STATUS",?79,"APPOINTMENTS",?109,"PROVIDER",?120,"FACILITY",!! Line Location: DETHD1+3
Function Call: WRITE	Prompt: !!,"NAME",?21,"SSN",?32,"EP",?36,"ENROLLMENT",?48,"ENROLLMENT",?62,"WARD",?79,"FUTURE",?87,"PC",?99,"PREF" Line Location: DETHD0+2
Function Call: WRITE	Prompt: !,?36,"END DATE",?48,"STATUS",?79,"APPTS",?87,"PROVIDER",?99,"FACILITY",!! Line Location: DETHD0+3
Function Call: WRITE	Prompt: !,"TOTAL PATIENTS (UNIQUE SSNS) FOR THIS FACILITY: ",COUNT Line Location: END+4
Routine Call	DIR Line Location: INFAP+4 RPDT+5 RPDT2+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGEN(27.11 - [#27.11]	Classic Fileman Calls, EXTERNAL^DILFD
^DGEN(27.16 - [#27.16]	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DETHD+3
^DGEN(27.11 - [#27.11]	PRESRT1+4, PRESRT1+8, EGTP+2, EGTP+3, EGTP+4, EGTP+5, PT+2, EP+3, EP+5, ENRED+2 , ENRST+2
^DGEN(27.15 - [#27.15]	ENRST+3
^TMP($J	ENPT+1!, PRESRT1+3!, PRESRT1+12, BYSRT+1, FAP1+4, FAP0+6, END+2, END+3, EXIT+2!
^UTILITY("VASD"	FAP1+2!, FAP1+6, FAP1+7, FAP1+8, FAP1+14, FAP0+2!, FAP0+8

Label References

Name	Line Occurrences
BYSRT	PRESRT1+11
DETHD	DETHD1+1, DETHD0+1
EGTP	PRESRT1+7
EXIT	ENPT+20
INFAP	ENPT+4
PRESRT1	PRESORT+4
RPDT	ENPT+3
RPDT2	RPDT2+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DETHD+3
ABV	PRESRT1+1~, PRESRT1+2, PRESRT1+10, EGTP+1, EGTP+6*
ADT	FAP1+1~, FAP1+8, FAP1+9*, FAP1+10
BDT	ENPT+2~, ENPT+3, RPDT+5, RPDT+6, RPDT2+6, PRESRT1+10, DETHD+5
BY	ENPT+5~
BY(0	ENPT+10*
COUNT	END+1~, END+3, END+4
>> D0	PT+2, EP+3, EP+5, ENRED+2, ENRST+2
DFN	ENPT+5~, PRESRT1+1~, PRESRT1+2, PRESRT1+4, PRESRT1+5, PRESRT1+9, EGTP+6, BYSRT+1, PT+1, PT+2 , PT+3, FAP1+5, FAP0+7, PCPVD+3, PFCLTY+2
DHD	ENPT+5~, ENPT+14, ENPT+17
DIC	ENPT+5~, ENPT+8*
DIOBEG	ENPT+5~, ENPT+9*
DIOEND	ENPT+5~, ENPT+18*
DIR	INFAP+1~, RPDT+1~
DIR("?"	RPDT+4, RPDT2+2
DIR("A"	INFAP+3, RPDT+3, RPDT2+1*
DIR(0	INFAP+2, RPDT+2, RPDT2*
DT1	DETHD+2~, DETHD+5, DETHD+8
DT2	DETHD+2~, DETHD+5, DETHD+8
>> DTOUT	ENPT+3, ENPT+4, INFAP+5, RPDT+7, RPDT2+5
EDT	ENPT+2~, ENPT+3, RPDT2+3, RPDT2+4, RPDT2+6, PRESRT1+10, DETHD+5
EGT	ENPT+5~, ENPT+6, PRESORT+4, PRESORT+7, PRESORT+8
EGTEDT	ENPT+5~, ENPT+6, PRESORT+11, DETHD+10
EGTLDT	ENPT+5~, ENPT+6, PRESORT+13, DETHD+11
EGTSUB	ENPT+5~, ENPT+6, PRESORT+9, PRESRT1+13, PRESRT1+14, DETHD+10
EGTTP	ENPT+5~, ENPT+6, PRESORT+15, PRESORT+16*, DETHD+10
ENRDT	ENPT+5~, EGTP+1, EGTP+4, EGTP+5*
FCTY	ENPT+5~, ENPT+6, PFCLTY+1, PFCLTY+2
FLDS	ENPT+5~, ENPT+11*
FLDS(2	ENPT+13, ENPT+16
GETEGTS	PRESORT+1~*, PRESORT+5
GETEGTS("EFFDATE"	PRESORT+11
GETEGTS("ENTDATE"	PRESORT+13
GETEGTS("PRIORITY"	PRESORT+7
GETEGTS("SUBGRP"	PRESORT+9
GETEGTS("TYPE"	PRESORT+15
IND	PRESRT1+1~, PRESRT1+2, PRESRT1+5, PRESRT1+6, PRESRT1+8, EGTP+2, EGTP+3, EGTP+4, EGTP+5, BYSRT+1
INFAP	ENPT+2~, ENPT+4, ENPT+12, ENPT+15, INFAP+4
IOM	DETHD+7, DETHD+8, DETHD+9, DETHD+10, DETHD+11
J	FAP1+1~, FAP1+6, FAP1+7, FAP1+8, FAP1+11, FAP1+12, FAP1+13, END+1~, END+2, END+3
L	ENPT+5~, ENPT+10*
L(0	ENPT+10*
NM	PRESRT1+1~, PRESRT1+2, PRESRT1+11, BYSRT+1
PCTRY	PRESRT1+1~, PRESRT1+2, PRESRT1+9, PRESRT1+10
PEDT	PRESRT1+1~, PRESRT1+2, PRESRT1+8, PRESRT1+10
POP	FAP1+1~, FAP1+6, FAP1+13
PRT	PRESRT1+1~, PRESRT1+2, PRESRT1+12, EGTP+1, EGTP+2, EGTP+3, EGTP+6, EGTP+7, EGTP+10, EP+2~* , EP+3, EP+4, EP+8, EP+9
PRTSUB	PRESRT1+1~, PRESRT1+2, EGTP+1, EGTP+3, EGTP+6, EGTP+8, EGTP+9, EGTP+10, EP+2~, EP+5* , EP+6, EP+7, EP+8
PSSN	ENPT+5~, PRESRT1+1~, PRESRT1+2, PRESRT1+12, PT+1, PT+3, END+1~, END+3
RDT	DETHD+2~, DETHD+4, DETHD+9
REC	PRESORT+1~, PRESORT+2, PRESORT+4, PRESORT+5
RLEGT	ENPT+5~, ENPT+6, PRESORT+7, DETHD+10
TP	PRESORT+1~, PRESORT+5
U	PRESRT1+8, PRESRT1+12, EGTP+2, EGTP+3, EGTP+4, EGTP+5, PT+2, PT+3, EP+3, EP+5 , ENRED+2, ENRST+2, ENRST+3, WRD+2, FAP1+7, FAP1+8, PCPVD+5
>> VADM(1	PRESRT1+11!, PT+1!, PT+3
>> VADM(2	PRESRT1+11!, PRESRT1+12, PT+1!, PT+3
VAERR	ENPT+5~
>> VAIP(5	WRD+1!, WRD+2
VASD	ENPT+5~
X	ENPT+5~, INFAP+1~, RPDT+1~, PT+1, PT+3, EP+1, EP+9, ENRED+1, ENRED+2, ENRED+3* , ENRED+4, ENRST+1, ENRST+2, ENRST+3, WRD+1, WRD+2, WRD+3, FAP1+1, FAP1+4, FAP1+7 , FAP1+10, FAP1+11, FAP1+12, FAP1+13, FAP1+14, FAP0+1, FAP0+6, FAP0+8, PCPVD+2, PCPVD+3 , PCPVD+4, PCPVD+5, PFCLTY+1, PFCLTY+2, PFCLTY+3*
Y	INFAP+1~, INFAP+4, RPDT+1~, RPDT+5, RPDT2+3, DETHD+2~, DETHD+3, DETHD+4

Customize PDF page

Package: Registration

Routine: DGENRPT4

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: