Routine: DGENRPT1

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Registration	4	$$FINDCUR^DGENA ($$FINDCUR,$$GET)^DGENEGT $$ABOVE^DGENEGT1 (DEM,IN5,KVA)^VADPT
VA FileMan	2	NOW^%DTC $$EXTERNAL^DILFD

Package	Total	Caller Graph
Registration	1	DGENRPT

Entry Points

Name	Comments	DBIA/ICR reference
ENPT	;Preliminary Summary Report selected.
GETEGTS	;First get the current EGT parameters from file #27.16.
PRESRT1	;Sort for patient's current record and get the potentially affected.
PRESRT2	;Sort the sorted.
EGTP	;Decide if the patient is above EGT.
PRINT	;Print the report.
WRITER	;Write out the report.
EXIT
PSHEAD	;Header for the Preliminary Detailed Report.
DATA	;Get all the data for the report.

External References

Name	Field # of Occurrence
NOW^%DTC	PSHEAD+3
^%ZIS	PRINT+2
HOME^%ZIS	PRINT+8
^%ZISC	WRITER+9
^%ZTLOAD	PRINT+5
$$FINDCUR^DGENA	PRESRT1+5
$$FINDCUR^DGENEGT	ENPT+2, GETEGTS+2
$$GET^DGENEGT	GETEGTS+3
$$ABOVE^DGENEGT1	EGTP+6
$$EXTERNAL^DILFD	GETEGTS+13, EGTP+8, PSHEAD+5
DEM^VADPT	PRESRT1+8
IN5^VADPT	PRESRT1+7
KVA^VADPT	EXIT+1
$$FMTE^XLFDT	GETEGTS+8, GETEGTS+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No EGT setting on file." Line Location: ENPT+2
Function Call: WRITE	Prompt: !!,"Report queued! Task number: ",ZTSK Line Location: PRINT+7
Function Call: WRITE	Prompt: @IOF Line Location: WRITER+2
Function Call: WRITE	Prompt: !,?((IOM-38)\2),"EGT Preliminary Summary Impact Report" Line Location: PSHEAD+8
Function Call: WRITE	Prompt: !,?((IOM-22-$L(RDT))\2),"Date/Time Report Run: ",RDT Line Location: PSHEAD+9
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: PSHEAD+10
Function Call: WRITE	Prompt: !,?((IOM-28-$L(EGTLDT))\2),"Date/Time Last EGT Setting: ",EGTLDT Line Location: PSHEAD+11
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: PSHEAD+12
Function Call: WRITE	Prompt: !!,"ENROLLMENT PRIORITY",?23,"TOTAL (UNIQUE SSN)",?43,"# INPATIENT",?57,"# OUTPATIENT",! Line Location: PSHEAD+13
Function Call: WRITE	Prompt: !,EP,?25,TLT,?45,INPT,?59,OPT Line Location: DATA+5
Function Call: WRITE	Prompt: !,"TOTAL PATIENTS (UNIQUE SSNS) FOR THIS FACILITY: ",COUNT Line Location: DATA+6
Routine Call	%ZIS Line Location: PRINT+2
Routine Call	%ZIS Line Location: PRINT+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGEN(27.11 - [#27.11]	EXTERNAL^DILFD
^DGEN(27.16 - [#27.16]	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSHEAD+3
^DGEN(27.11 - [#27.11]	PRESRT1+4, EGTP+2, EGTP+3, EGTP+4, EGTP+5
^TMP($J	ENPT+1!, PRESRT1+3!, PRESRT1+9, PRESRT2+3, PRESRT2+5, PRESRT2+6, PRESRT2+8, PRESRT2+9!, EXIT+2!, DATA+2 , DATA+3

Label References

Name	Line Occurrences
DATA	WRITER+8
EGTP	PRESRT1+6
EXIT	PRINT+2, PRINT+3
GETEGTS	WRITER+5
PRESRT1	WRITER+6
PRINT	ENPT+3
PSHEAD	WRITER+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSHEAD+3
%ZIS	PRINT+1~, PRINT+2*
ABV	PRESRT1+1~, PRESRT1+2, PRESRT1+6, EGTP+1, EGTP+6*
CNT	PRESRT2+1~, PRESRT2+4, PRESRT2+7, PRESRT2+8
COUNT	DATA+1~, DATA+4, DATA+6
DFN	PRESRT1+1~, PRESRT1+2, PRESRT1+4, PRESRT1+5, EGTP+6
EGT	GETEGTS+5, WRITER+3~, WRITER+4, PSHEAD+6, PSHEAD+10
EGTEDT	GETEGTS+8, WRITER+3~, WRITER+4, PSHEAD+10
EGTLDT	GETEGTS+10, WRITER+3~, WRITER+4, PSHEAD+11
EGTSUB	GETEGTS+6, WRITER+3~, WRITER+4, PSHEAD+5, PSHEAD+6, PSHEAD+10
EGTTP	GETEGTS+12, GETEGTS+13, WRITER+3~, WRITER+4*, PSHEAD+10
ENRDT	EGTP+1, EGTP+4, EGTP+5*, WRITER+3~
EP	DATA+1~, DATA+3, DATA+5
GETEGTS	GETEGTS+1~*, GETEGTS+3
GETEGTS("EFFDATE"	GETEGTS+8
GETEGTS("ENTDATE"	GETEGTS+10
GETEGTS("PRIORITY"	GETEGTS+5
GETEGTS("SUBGRP"	GETEGTS+6
GETEGTS("TYPE"	GETEGTS+12
ICNT	PRESRT2+1~, PRESRT2+4, PRESRT2+7, PRESRT2+8
IND	PRESRT1+1~, PRESRT1+2, PRESRT1+5, PRESRT1+6, EGTP+2, EGTP+3, EGTP+4, EGTP+5
INPT	PRESRT1+1~, PRESRT1+2, PRESRT1+7, PRESRT1+9, PRESRT2+6, PRESRT2+7, DATA+1~, DATA+3*, DATA+5
IO	PRINT+1~, WRITER+1
IO("Q"	PRINT+3
IOBS	PRINT+1~
IOF	PRINT+1~, WRITER+2
IOHG	PRINT+1~
IOM	PRINT+1~, PSHEAD+8, PSHEAD+9, PSHEAD+10, PSHEAD+11
ION	PRINT+1~
IOPAR	PRINT+1~
IOS	PRINT+1~
IOSL	PRINT+1~
IOST	PRINT+1~, WRITER+2
IOT	PRINT+1~
IOUPAR	PRINT+1~
IOXY	PRINT+1~
J	PRESRT2+1~, PRESRT2+2, PRESRT2+3, PRESRT2+5, PRESRT2+6, PRESRT2+8
K	PRESRT2+1~, PRESRT2+2, PRESRT2+5, PRESRT2+6
OCNT	PRESRT2+1~, PRESRT2+4, PRESRT2+7, PRESRT2+8
OPT	DATA+1~, DATA+3, DATA+5
POP	PRINT+1~, PRINT+2
PRT	PRESRT1+1~, PRESRT1+2, PRESRT1+9, EGTP+1, EGTP+2, EGTP+3, EGTP+6, EGTP+7, EGTP+10
PRTSUB	PRESRT1+1~, PRESRT1+2, EGTP+1, EGTP+3, EGTP+6, EGTP+8, EGTP+9*, EGTP+10
PSSN	PRESRT1+1~, PRESRT1+2, PRESRT1+8, PRESRT1+9
RDT	PSHEAD+2~, PSHEAD+4, PSHEAD+9
REC	GETEGTS+1~, GETEGTS+2, GETEGTS+3
T	DATA+1~, DATA+2, DATA+3
TLT	DATA+1~, DATA+3, DATA+4, DATA+5
TMP	PRESRT1+1~, PRESRT1+2, PRESRT1+7
TP	GETEGTS+1~, GETEGTS+3
TSK	PRINT+1~, PRINT+6*, PRINT+7
U	PRESRT1+7, PRESRT1+8, PRESRT2+6, EGTP+2, EGTP+3, EGTP+4, EGTP+5, DATA+3
>> VADM(2	PRESRT1+8!
>> VAIP(2	PRESRT1+7!
Y	PSHEAD+2~, PSHEAD+3, PSHEAD+4
ZTDESC	PRINT+1~, PRINT+4*
>> ZTQUEUED	EXIT
>> ZTREQ	EXIT*
ZTRTN	PRINT+1~, PRINT+4*
ZTSAVE	PRINT+1~
>> ZTSK	PRINT+6, PRINT+7

Customize PDF page

Package: Registration

Routine: DGENRPT1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

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: