Routine: EASMTL10

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT EN^XUTMDEVQ
Enrollment Application System	4	($$FACNUM,$$THRSHLD)^EASMTL6 ($$CHKADR,LETTER)^EASMTL6A ($$CHECKMT,$$DECEASED,$$FUTMT)^EASMTUTL $$UESTAT^EASUER
VA FileMan	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Enrollment Application System	2	EAS MT REPRINT LETTERS EAS MT REPRINT SINGLE LETTER
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
RERUN	; Main entry point to rerun a processing date
FILTER(EASLOC)	; Filter by Patient Preferred Location ; Input: None
ASKDT(EATYP,EASDDD)	; Ask for processing date to look for letters ; Input EATYP Type of letter to be reprinted
AGN
ASKQ
GETDT()	;
LTRTYPE(EATYP)	; Ask for a specific type of letter to print ; Input None
QUE1	; Queue off the print job
QUEIT	;
EN1	; Queued entry point for letter rerun
PRINT(EASTMP,EATYP)	;
BLD(EATYP,EASLOC,EASDDD,EASTMP)	; Sort letters for processing date in groups by type
SINGLE	; Rerun a single letter
ASKPAT	; Select patient to reprint a letter for
ASKLTR	; Select LETTER STATUS file entry
ASKTYP	; Allow only letters already sent to be reprinted
QUE2	; Que off print letter
EN2	; Queued entry point to re-run a single letter
LIST	; List last processing dates for the Letter Status file
NOTICE	;

External References

Name	Field # of Occurrence
^%ZIS	QUE1+5
HOME^%ZIS	RERUN+3, QUEIT+11
^%ZISC	QUE1+9
^%ZTLOAD	QUEIT+8
$$GET1^DIQ	FILTER+13, QUE1+4, BLD+6, BLD+7, BLD+9, ASKLTR+9
^DIR	FILTER+17, AGN+19, GETDT+6, LTRTYPE+16, PRINT+9, ASKPAT+4, ASKLTR+5, ASKTYP+13
$$FACNUM^EASMTL6	FILTER+21
$$THRSHLD^EASMTL6	BLD+10
$$CHKADR^EASMTL6A	BLD+16
LETTER^EASMTL6A	PRINT+6, EN2+2
$$CHECKMT^EASMTUTL	BLD+13, ASKLTR+12
$$DECEASED^EASMTUTL	BLD+15, ASKPAT+12
$$FUTMT^EASMTUTL	BLD+14
$$UESTAT^EASUER	BLD+18
$$FMADD^XLFDT	AGN+4
$$FMTE^XLFDT	AGN+7, AGN+10, AGN+11, AGN+16, LIST+6
EN^XUTMDEVQ	QUE2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: RERUN+4
Function Call: WRITE	Prompt: !?2,$P($T(NOTICE+XX),";;",2) Line Location: RERUN+5
Function Call: WRITE	Prompt: !!,"No valid processing date could be found for ",$S(EATYP=2:30,EATYP=4:0,1:60),"-day letters for ",$$FMTE^XLFDT(EASDT),"." Line Location: AGN+7
Function Call: WRITE	Prompt: !,"Please select another date." Line Location: AGN+8
Function Call: WRITE	Prompt: !!,"To re-print "_$S(EATYP=2:30,EATYP=4:0,1:60)_"-day letters for "_$$FMTE^XLFDT(EASDT) Line Location: AGN+10
Function Call: WRITE	Prompt: !,"the Search/Processing date of "_$$FMTE^XLFDT(EAX)_" will be used." Line Location: AGN+11
Function Call: WRITE	Prompt: !,"Please note: all valid "_$S(EATYP=2:30,EATYP=4:0,1:60)_"-day letters for this processing date will print" Line Location: AGN+13
Function Call: WRITE	Prompt: !!?5,"Reprint canceled" Line Location: QUEIT+9
Function Call: WRITE	Prompt: !!?5,"Letters queued, [",ZTSK,"]" Line Location: QUEIT+10
Function Call: WRITE	Prompt: !,"...Gathering letters to re-print..." Line Location: EN1+6
Function Call: WRITE	Prompt: !?3,$CHAR(7),">> No letters found to reprint for these parameters.",! Line Location: EN1+9
Function Call: WRITE	Prompt: !!?4,$CHAR(7),"The Prohibit flag is set for this patient" Line Location: ASKPAT+11
Function Call: WRITE	Prompt: !!?4,$CHAR(7),"Patient is deceased" Line Location: ASKPAT+13
Function Call: WRITE	Prompt: !!?4,$CHAR(7),"A Means Test has already been returned by this patient" Line Location: ASKLTR+10
Function Call: WRITE	Prompt: !!?4,$CHAR(7),"Patient's Means Test is no longer required" Line Location: ASKLTR+13
Function Call: WRITE	Prompt: !!?4,$CHAR(7),"There are no letters to re-print for this patient" Line Location: ASKTYP+9
Function Call: WRITE	Prompt: !!,"Available Processing Dates:" Line Location: LIST+3
Function Call: WRITE	Prompt: !?6,$$FMTE^XLFDT(EAX,"2D") Line Location: LIST+6
Routine Call	%ZIS Line Location: QUE1+5
Routine Call	%ZIS Line Location: RERUN+3 QUEIT+11
Routine Call	DIR Line Location: FILTER+17 AGN+19 GETDT+6 LTRTYPE+16 PRINT+9 ASKPAT+4 ASKLTR+5 ASKTYP+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^EAS(713 - [#713]	GET1^DIQ
^EAS(713.1 - [#713.1]	GET1^DIQ
^EAS(713.2 - [#713.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^EAS(713.1 - [#713.1]	BLD+12, ASKPAT+10
^EAS(713.2 - [#713.2]	AGN+5, BLD+4, BLD+11, ASKTYP+4, LIST+5

Label References

Name	Line Occurrences
$$ASKDT	RERUN+9
$$FILTER	RERUN+7
$$GETDT	AGN
$$LTRTYPE	RERUN+8
AGN	AGN+6, AGN+21
ASKQ	AGN+1, AGN+20
BLD	EN1+7
EN1	QUE1+8
PRINT	EN1+10
QUE1	RERUN+10
QUEIT	QUE1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	QUE1+4*, QUE1+5!
%ZIS("B"	QUE1+4*
DFN	BLD+1~, BLD+7, BLD+9, BLD+18, SINGLE+1~, ASKPAT+7, ASKPAT+8, ASKPAT+12
DIR	FILTER+10~, FILTER+17!, AGN+19!, GETDT+1~, GETDT+6!, LTRTYPE+11~, LTRTYPE+16!, PRINT+9!, SINGLE+1~, ASKPAT+4! , ASKLTR+5!, ASKTYP+13!
DIR("?"	FILTER+16, AGN+16, GETDT+4, LTRTYPE+15, ASKPAT+3, ASKLTR+2, ASKTYP+12*
DIR("A"	FILTER+14, AGN+17, GETDT+5, LTRTYPE+14, ASKPAT+2, ASKLTR+3, ASKTYP+11*
DIR("B"	FILTER+15, AGN+18
DIR("S"	ASKLTR+4*
DIR(0	FILTER+14, FILTER+20, AGN+15, GETDT+3, LTRTYPE+13, PRINT+8, ASKPAT+1, ASKLTR+1, ASKTYP+11*
DIRUT	FILTER+10~, FILTER+13, FILTER+18, AGN+20, GETDT+1~, GETDT+7, LTRTYPE+11~, LTRTYPE+17, SINGLE+1~, ASKPAT+5 , ASKLTR+6, ASKTYP+14
EASABRT	EN1+1~, PRINT+1~, PRINT+5, PRINT+10*
EASDDD	RERUN+1~, RERUN+9, ASKDT~, AGN+23*, EN1+7, BLD~, BLD+4
EASDT	ASKDT+9~, AGN*, AGN+1, AGN+4, AGN+7, AGN+10
EASIEN	EN1+1~, PRINT+1~, PRINT+4, PRINT+5, PRINT+6, BLD+1~, BLD+3, BLD+4, BLD+6, BLD+10 , BLD+11, BLD+13, BLD+14, BLD+15, BLD+20, SINGLE+1~, ASKLTR+7*, ASKLTR+9, ASKLTR+12, ASKTYP+4 , EN2+2
EASLOC	RERUN+1~, RERUN+7, FILTER~, FILTER+12, FILTER+19, FILTER+21, FILTER+23, EN1+7, BLD~, BLD+9 , SINGLE+1~
EASLTR	BLD+1~
EASOFST	ASKDT+9~, AGN+3*, AGN+4
EASPTR	BLD+1~, BLD+6, BLD+7, BLD+12, BLD+13, BLD+16, SINGLE+1~, ASKPAT+6, ASKPAT+10, ASKLTR+12
EASSC	ASKTYP+1~, ASKTYP+5, ASKTYP+6, ASKTYP+7*, ASKTYP+8, ASKTYP+11
EASTMP	EN1+1~, EN1+3*, EN1+4, EN1+7, EN1+8, EN1+10, EN1+11, PRINT~, PRINT+5, BLD~ , BLD+20
EASUE	BLD+18~*, BLD+19
EASX	QUEIT+1~, QUEIT+5*
EATYP	RERUN+1~, RERUN+8, RERUN+9, ASKDT~, AGN+3, AGN+7, AGN+10, AGN+13, LTRTYPE~, LTRTYPE+18* , EN1+7, EN1+10, PRINT~, PRINT+6, BLD~, BLD+10, BLD+16, BLD+20, ASKTYP+15*, EN2+2
EAX	ASKDT+9~, AGN+4, AGN+5, AGN+6, AGN+11, AGN+16, AGN+23, SINGLE+1~, ASKTYP+1~, ASKTYP+3* , ASKTYP+4, ASKTYP+5, ASKTYP+6, ASKTYP+7, LIST+1~, LIST+4, LIST+5, LIST+6
IO	PRINT+3
IO("Q"	QUE1+1!, QUE1+7, PRINT+7
IOF	RERUN+3, RERUN+4
IOP	QUE1+1!, SINGLE+1~
IOST	PRINT+7
POP	QUE1+2~, QUE1+6
PRNOVRD	SINGLE+1~
RSLT	ASKDT+9~, ASKDT+11, AGN+24, ASKQ
U	ASKTYP+4
XX	RERUN+1~, RERUN+5*
Y	FILTER+19, AGN+21, GETDT+7*, GETDT+8, LTRTYPE+18, PRINT+10, SINGLE+1~, ASKPAT+6, ASKLTR+7, ASKTYP+15
Y(0	ASKPAT+7
ZTDESC	QUEIT+1~, QUEIT+4*
ZTDTH	QUEIT+1~, QUEIT+6*
ZTQUEUED	QUEIT+1~, EN1+6, EN1+8
ZTRTN	QUEIT+1~, QUEIT+3*
ZTSAVE	QUEIT+1~, SINGLE+1~, QUE2+2
ZTSAVE(	QUEIT+5*
ZTSAVE("EASIEN"	QUE2+1*
ZTSAVE("EASLOC"	QUE2+1*
ZTSAVE("EASPTR"	QUE2+1*
ZTSAVE("EATYP"	QUE2+1*
ZTSK	QUEIT+1~, QUEIT+9, QUEIT+10

Marked Items

Name	Field # of Occurrence
$T(NOTICE+XX	RERUN+5

Customize PDF page

Package: Enrollment Application System

Routine: EASMTL10

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items