Routine: DGENRPT3

Information

DGENRPT3 ;ALB/DW,LBD - EGT Actual Summary Impact Report ; 04/24/03 2:40pm ; 07/22/02 9:40am

Source Information

Call Graph

Call Graph Total: 12

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGENRPT

Entry Points

Name	Comments	DBIA/ICR reference
ENPT	;Actual Summary Report selected.
WRITER	;Write out the report.
EGTP	;Get patients EGT Priority.
RPDT	;Ask the user the Report Begin Date and Report End Date.
GETEGTS	;First get the current EGT parameters from file #27.16.
RPDT2
PRESRT1	;Sort for patient's current record and get the potentially affected.
PRINT	;Print the report.
EXIT
PSHEAD	;Header for the Preliminary Detailed Report.
DATA	;Get all the data for the report.
PRESRT2	;Sort the sorted.

External References

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

Interaction Calls

Name	Line Occurrences
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: GETEGTS+6
Function Call: WRITE	Prompt: !!,"Report queued! Task number: ",ZTSK Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF Line Location: WRITER+2
Function Call: WRITE	Prompt: !,"No EGT setting on file.",! Line Location: WRITER+5
Function Call: WRITE	Prompt: !,?((IOM-32)\2),"EGT Actual Summary Impact Report" Line Location: PSHEAD+9
Function Call: WRITE	Prompt: !,?((IOM-62)\2),"Date Range of Enrollment End Date: ",DT1," - ",DT2 Line Location: PSHEAD+10
Function Call: WRITE	Prompt: !,?((IOM-41)\2),"Date/Time Report Run: ",RDT Line Location: PSHEAD+11
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: PSHEAD+12
Function Call: WRITE	Prompt: !,?((IOM-28-$L(EGTLDT))\2),"Date/Time Last EGT Setting: ",EGTLDT Line Location: PSHEAD+13
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: PSHEAD+14
Function Call: WRITE	Prompt: !!,"ENROLLMENT PRIORITY",?23,"TOTAL (UNIQUE SSN)",?43,"# INPATIENT",?57,"# OUTPATIENT",! Line Location: PSHEAD+15
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+9
Routine Call	DIR Line Location: RPDT+5 RPDT2+3
Routine Call	%ZIS Line Location: PRINT+2

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

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

Name	Line Occurrences
DATA	WRITER+9
EGTP	PRESRT1+6
EXIT	PRINT+2, PRINT+3
GETEGTS	WRITER+6
PRESRT1	WRITER+7
PRINT	ENPT+4
PSHEAD	WRITER+8
RPDT	ENPT+3
RPDT2	RPDT2+6

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+9, EGTP+1, EGTP+6*
BDT	ENPT+2~, ENPT+3, RPDT+5, RPDT+6, RPDT2+6, PRESRT1+9, PSHEAD+5
CNT	PRESRT2+1~, PRESRT2+4, PRESRT2+7, PRESRT2+8
COUNT	WRITER+3~, WRITER+4, DATA+4, DATA+6
DFN	PRESRT1+1~, PRESRT1+2, PRESRT1+4, PRESRT1+5, PRESRT1+8, EGTP+6
DIR	RPDT+1~
DIR("?"	RPDT+4, RPDT2+2
DIR("A"	RPDT+3, RPDT2+1
DIR(0	RPDT+2, RPDT2
DT1	PSHEAD+2~, PSHEAD+5, PSHEAD+10
DT2	PSHEAD+2~, PSHEAD+5, PSHEAD+10
>> DTOUT	ENPT+3, RPDT+7, RPDT2+5
EDT	ENPT+2~, ENPT+3, RPDT2+3, RPDT2+4, RPDT2+6, PRESRT1+9, PSHEAD+5
EGT	GETEGTS+5, GETEGTS+6, WRITER+3~, WRITER+4, WRITER+5, PSHEAD+7
EGTEDT	GETEGTS+9, WRITER+3~, WRITER+4, PSHEAD+12
EGTLDT	GETEGTS+11, WRITER+3~, WRITER+4, PSHEAD+13
EGTSUB	GETEGTS+7, WRITER+3~, WRITER+4, PSHEAD+6, PSHEAD+7, PSHEAD+12
EGTTP	GETEGTS+13, GETEGTS+14, WRITER+3~, WRITER+4*, PSHEAD+12
ENRDT	EGTP+1, EGTP+4, EGTP+5*, WRITER+3~
EP	DATA+1~, DATA+3, DATA+5
GETEGTS	GETEGTS+1~*, GETEGTS+3
GETEGTS("EFFDATE"	GETEGTS+9
GETEGTS("ENTDATE"	GETEGTS+11
GETEGTS("PRIORITY"	GETEGTS+5
GETEGTS("SUBGRP"	GETEGTS+7
GETEGTS("TYPE"	GETEGTS+13
ICNT	PRESRT2+1~, PRESRT2+4, PRESRT2+7, PRESRT2+8
IND	PRESRT1+1~, PRESRT1+2, PRESRT1+5, PRESRT1+7, EGTP+2, EGTP+3, EGTP+4, EGTP+5
INPT	PRESRT1+1~, PRESRT1+2, PRESRT1+10, PRESRT1+12, 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+9, PSHEAD+10, PSHEAD+11, PSHEAD+12, PSHEAD+13
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
PCTRY	PRESRT1+1~, PRESRT1+2, PRESRT1+8, PRESRT1+9
PEDT	PRESRT1+1~, PRESRT1+2, PRESRT1+7, PRESRT1+9
POP	PRINT+1~, PRINT+2
PRT	PRESRT1+1~, PRESRT1+2, PRESRT1+12, 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+11, PRESRT1+12
RDT	PSHEAD+2~, PSHEAD+4, PSHEAD+11
REC	GETEGTS+1~, GETEGTS+2, GETEGTS+3
RLEGT	GETEGTS+5, WRITER+3~, WRITER+4, PSHEAD+12
T	DATA+1~, DATA+2, DATA+3
TLT	DATA+1~, DATA+3, DATA+4, DATA+5
TMP	PRESRT1+1~, PRESRT1+2, PRESRT1+10
TP	GETEGTS+1~, GETEGTS+3
TSK	PRINT+1~, PRINT+7*, PRINT+8
U	PRESRT1+7, PRESRT1+10, PRESRT1+11, PRESRT2+6, EGTP+2, EGTP+3, EGTP+4, EGTP+5, DATA+3
>> VADM(2	PRESRT1+11!
>> VAIP(2	PRESRT1+10!
X	RPDT+1~
Y	RPDT+1~, RPDT+5, RPDT2+3, PSHEAD+2~, PSHEAD+3, PSHEAD+4
ZTDESC	PRINT+1~, PRINT+4*
>> ZTQUEUED	EXIT
>> ZTREQ	EXIT*
ZTRTN	PRINT+1~, PRINT+4*
ZTSAVE	PRINT+1~
ZTSAVE("BDT"	PRINT+5*
ZTSAVE("EDT"	PRINT+5*
>> ZTSK	PRINT+7, PRINT+8

Customize PDF page

Package: Registration

Routine: DGENRPT3

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: