Routine: DGENRPT2

Package	Total	Call Graph
Registration	7	$$FINDCUR^DGENA ($$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
PRESORT	;First get the current EGT Setting from file #27.16.
WRD	;Get the patient WARD.
ENRED	;Get the patient ENROLLMENT END DATE.
END	;At the end of the display.
PCPVD	;Get the patient PC PROVIDER.
PT	;Get the patient NAME and SSN
ENPT	;Preliminary Detailed Report selected.
INFAP	;Ask the user if Future Appointments is wanted on the report.
EXIT	;Clean up upon exit of the routine.
FAP1	;Get the patient FUTURE APPOINTMENTS.
FAP0	;See if the patient has future appointment.
EGTP	;Get patients EGT Priority.
ENRST	;Get the patient ENROLLMENT STATUS.
PFCLTY	;Get the patient PREFFERED FACILITY.
DETHD	;General header for the Preliminary Detailed Report.
DETHD1	;Header for the Preliminary Detailed Report, with Future Appointments.
DETHD0	;Header for the Preliminary Detailed Report, no Future Appointments.
BYSRT	;Sort patients by last name for "BY(0)".
EP	;Get the patient EGT Priority.
FAPCHK(DFN)	;

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No EGT setting on file." Line Location: ENPT+2
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: X Line Location: FAP1+10
Function Call: WRITE	Prompt: !,?79,X Line Location: FAP1+11
Function Call: WRITE	Prompt: !,?79,"More Appts" Line Location: FAP1+12
Function Call: WRITE	Prompt: !,?((IOM-38)\2),"EGT Preliminary Detailed Impact Report" Line Location: DETHD+6
Function Call: WRITE	Prompt: !,?((IOM-22-$L(RDT))\2),"Date/Time Report Run: ",RDT Line Location: DETHD+7
Function Call: WRITE	Prompt: !,?((IOM-45-$L(EGT_EGTSUB_EGTTP_EGTEDT))\2),"EGT Setting: ",EGT_EGTSUB," EGT Type: ",EGTTP," EGT Effective Date: ",EGTEDT Line Location: DETHD+8
Function Call: WRITE	Prompt: !,?((IOM-28-$L(EGTLDT))\2),"Date/Time Last EGT Setting: ",EGTLDT Line Location: DETHD+9
Function Call: WRITE	Prompt: !!,"IMPORTANT NOTE:",!,"Preliminary report is based on a comparison of the EGT setting to the veterans current enrollment priority as shown in VISTA." Line Location: DETHD+10
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: ",TOTAL Line Location: END+5
Routine Call	DIR Line Location: INFAP+4

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]	PRESORT+19, 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!, PRESORT+18!, PRESORT+23, BYSRT+1, FAPCHK+1, END+2, END+3, EXIT+2!
^UTILITY("VASD"	FAP1+2!, FAP1+5, FAP1+6, FAP1+7, FAP1+13, FAP0+2!, FAP0+5

Label References

Name	Line Occurrences
$$FAPCHK	FAP1+3, FAP0+3
BYSRT	PRESORT+22
DETHD	DETHD1+1, DETHD0+1
EGTP	PRESORT+21
EXIT	ENPT+20
INFAP	ENPT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DETHD+3
ABV	PRESORT+16~, PRESORT+17, PRESORT+21, EGTP+1, EGTP+6*
ADT	FAP1+1~, FAP1+7, FAP1+8*, FAP1+9
BY	ENPT+5~
BY(0	ENPT+9*
>> D0	PT+2, EP+3, EP+5, ENRED+2, ENRST+2
DFN	ENPT+5~, PRESORT+16~, PRESORT+17, PRESORT+19, PRESORT+20, EGTP+6, BYSRT+1, PT+1, PT+2, PT+3 , FAP1+3, FAP1+4, FAP0+3, FAP0+4, FAPCHK~, FAPCHK+1, PCPVD+3, PFCLTY+2
DHD	ENPT+5~, ENPT+14, ENPT+17
DIC	ENPT+5~, ENPT+8*
DIOBEG	ENPT+5~, ENPT+10*
DIOEND	ENPT+5~, ENPT+18*
DIR	INFAP+1~
DIR("A"	INFAP+3*
DIR(0	INFAP+2*
>> DTOUT	ENPT+4, INFAP+5
EGT	ENPT+5~, ENPT+6, PRESORT+6, DETHD+8
EGTEDT	ENPT+5~, ENPT+6, PRESORT+9, DETHD+8
EGTLDT	ENPT+5~, ENPT+6, PRESORT+11, DETHD+9
EGTSUB	ENPT+5~, ENPT+6, PRESORT+7, PRESORT+24, PRESORT+25, DETHD+8
EGTTP	ENPT+5~, ENPT+6, PRESORT+13, PRESORT+14*, DETHD+8
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+4
GETEGTS("EFFDATE"	PRESORT+9
GETEGTS("ENTDATE"	PRESORT+11
GETEGTS("PRIORITY"	PRESORT+6
GETEGTS("SUBGRP"	PRESORT+7
GETEGTS("TYPE"	PRESORT+13
IND	PRESORT+16~, PRESORT+17, PRESORT+20, PRESORT+21, EGTP+2, EGTP+3, EGTP+4, EGTP+5, BYSRT+1
INFAP	ENPT+3~, ENPT+4, ENPT+12, ENPT+15, INFAP+4
IOM	DETHD+6, DETHD+7, DETHD+8, DETHD+9
J	FAP1+1~, FAP1+5, FAP1+6, FAP1+7, FAP1+10, FAP1+11, FAP1+12, END+1~, END+2, END+3
L	ENPT+5~, ENPT+9*
L(0	ENPT+9*
NM	PRESORT+16~, PRESORT+17, PRESORT+22, BYSRT+1
POP	FAP1+1~, FAP1+5, FAP1+12
PRT	PRESORT+16~, PRESORT+17, PRESORT+23, EGTP+1, EGTP+2, EGTP+3, EGTP+6, EGTP+7, EGTP+10, EP+2~* , EP+3, EP+4, EP+8, EP+9
PRTSUB	PRESORT+16~, PRESORT+17, 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~, PRESORT+16~, PRESORT+17, PRESORT+23, PT+1, PT+3, END+1~, END+3
RDT	DETHD+2~, DETHD+4, DETHD+7
REC	PRESORT+1~, PRESORT+2, PRESORT+3, PRESORT+4
TOTAL	ENPT+5~, ENPT+6, END+4, END+5
TP	PRESORT+1~, PRESORT+4
U	PRESORT+23, 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+6, FAP1+7, PCPVD+5
>> VADM(1	PRESORT+22!, PT+1!, PT+3
>> VADM(2	PRESORT+22!, PRESORT+23, PT+1!, PT+3
VAERR	ENPT+5~
>> VAIP(5	WRD+1!, WRD+2
VASD	ENPT+5~
X	ENPT+5~, INFAP+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+3, FAP1+6, FAP1+9 , FAP1+10, FAP1+11, FAP1+12, FAP1+13, FAP0+1, FAP0+3, FAP0+5, PCPVD+2, PCPVD+3, PCPVD+4 , PCPVD+5, PFCLTY+1, PFCLTY+2, PFCLTY+3
Y	INFAP+1~, INFAP+4, DETHD+2~, DETHD+3, DETHD+4

Customize PDF page

Package: Registration

Routine: DGENRPT2

Information

Source Information

Call Graph

Call Graph Total: 12

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: