Routine: EASMTRPT

Package	Total	Call Graph
VA FileMan	3	WAIT^DICD $$GET1^DIQ ^DIR
Kernel	2	($$FMADD,$$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
Enrollment Application System	1	($$DECEASED,PAUSE)^EASMTUTL
Registration	1	(KVA,PID)^VADPT

Package	Total	Caller Graph
Enrollment Application System	3	EAS MT STATISTICS SUMMARY EAS MT SUMMARY REPORT EAS MT UNRETURNED LETTERS
Kernel	1	^DIC(19

Name	Comments	DBIA/ICR reference
UNRTN	; Unreturned letters report
PRT1	;
LTRSTAT	; Means Test Letter Statistics Report
QUE2	; Queued entry point for letters statistics
PRT2	;
SUMMRY	; Automated MT Ltrs Summary
QUE3	; PROCESSING SUMMARY REPORT
HDR(TITLE,SDISP,EDISP)	; Print report header
ASK(PRMPT)
INCPRHB(EASN,EAPRHB)	; Increment Prohibited Letters Flag count ; Input ; EASN - ; EAPRHB -
LAST4(EASIEN)	; Return last four for patient

Name	Field # of Occurrence
WAIT^DICD	UNRTN+4
$$GET1^DIQ	QUE2+19, QUE3+16, QUE3+28, LAST4+3
^DIR	HDR+5, ASK+9, ASK+18
$$DECEASED^EASMTUTL	QUE3+17
PAUSE^EASMTUTL	PRT1+11, PRT2+22
KVA^VADPT	LAST4+7
PID^VADPT	LAST4+5
$$FMADD^XLFDT	QUE2+9, SUMMRY+7
$$FMTE^XLFDT	PRT2+5, PRT2+6, QUE3+18, QUE3+20, QUE3+21, QUE3+24, QUE3+26, QUE3+27, QUE3+32, QUE3+33 , HDR+10, HDR+12, ASK+15
$$NOW^XLFDT	PRT2+6, HDR+12
EN^XUTMDEVQ	LTRSTAT+9, SUMMRY+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: UNRTN+3
Function Call: WRITE	Prompt: !!,$CHAR(7),"Summary of Most Recent Unreturned Means Test Letters" Line Location: PRT1+1
Function Call: WRITE	Prompt: !!,"60-day letters printed: ",$J(CTR(60),6) Line Location: PRT1+3
Function Call: WRITE	Prompt: !!,"30-day letters printed: ",$J(CTR(30),6) Line Location: PRT1+4
Function Call: WRITE	Prompt: !!," 0-day letters printed: ",$J(CTR(0),6) Line Location: PRT1+5
Function Call: WRITE	Prompt: !,"==============================" Line Location: PRT1+6
Function Call: WRITE	Prompt: !!," Total: ",$J(TOT,6) Line Location: PRT1+8
Function Call: WRITE	Prompt: !! Line Location: PRT1+10
Function Call: WRITE	Prompt: @IOF Line Location: PRT2+3
Function Call: WRITE	Prompt: !,"MEANS TEST LETTERS STATISTIC REPORT" Line Location: PRT2+4
Function Call: WRITE	Prompt: !,"Letter Processing Date Range: ",$$FMTE^XLFDT(EASB)," thru ",$$FMTE^XLFDT(EASE) Line Location: PRT2+5
Function Call: WRITE	Prompt: !,"Print Date: ",$$FMTE^XLFDT($$NOW^XLFDT) Line Location: PRT2+6
Function Call: WRITE	Prompt: !!,"Letter type:",?25,"60-day",?35,"30-day",?45,"0-day",?55,"Totals" Line Location: PRT2+8
Function Call: WRITE	Prompt: !,LINE Line Location: PRT2+9
Function Call: WRITE	Prompt: !!,"Letters printed:" Line Location: PRT2+11
Function Call: WRITE	Prompt: ?25,EAYTOT(60),?35,EAYTOT(30),?45,EAYTOT(0) Line Location: PRT2+12
Function Call: WRITE	Prompt: ?55,EAYTOT(60)+EAYTOT(30)+EAYTOT(0) Line Location: PRT2+13
Function Call: WRITE	Prompt: !!,"Means Test returned Totals" Line Location: PRT2+15
Function Call: WRITE	Prompt: !," AUTO-GENERATED:",?35,$FN(EAYRTN("AG"),",") Line Location: PRT2+16
Function Call: WRITE	Prompt: !," Future MT:",?35,$FN(EAYRTN("FUT"),",") Line Location: PRT2+17
Function Call: WRITE	Prompt: !," Owned by Other Site:",?35,$FN(EAYRTN("OWN"),",") Line Location: PRT2+18
Function Call: WRITE	Prompt: !," Returned by Veteran:",?35,$FN(EAYRTN("OTR"),",") Line Location: PRT2+19
Function Call: WRITE	Prompt: !," Total:",?35,$FN(EAYRTN("AG")+EAYRTN("OWN")+EAYRTN("OTR")+EAYRTN("FUT"),",") Line Location: PRT2+20
Function Call: WRITE	Prompt: !!,"Count of patient records set to prohibit letter during date range: ",$G(EAPRHB) Line Location: PRT2+21
Function Call: WRITE	Prompt: !!,$CHAR(7),"A 132-Column printer is required for this report" Line Location: SUMMRY+9
Function Call: WRITE	Prompt: !!,"Entry",?COL2,"Patient",?COL3,"Means Test",?COL4,"Letter",?COL5,"Print",?COL6,"Flag to",?COL7,"Letter",?COL8,"Print",?COL9,"Prohibit" Line Location: QUE3+8
Function Call: WRITE	Prompt: !,?COL3,"Date",?COL4,"Type",?COL5,"Date",?COL6,"Print",?COL7,"Printed?",?COL8,"Date",?COL9,"Flag?",! Line Location: QUE3+9
Function Call: WRITE	Prompt: !,EASIEN,?COL2,$E($$GET1^DIQ(713.2,EASIEN,2),1,25)_" ("_$$LAST4($P(EANODE0,U,2))_")" Line Location: QUE3+16
Function Call: WRITE	Prompt: " D" Line Location: QUE3+17
Function Call: WRITE	Prompt: ?COL3,$$FMTE^XLFDT($P(EANODE0,U,3),"2D") Line Location: QUE3+18
Function Call: WRITE	Prompt: ?COL4,"60-Day",?COL5,$$FMTE^XLFDT($P(EANODE6,U,1),"2D"),?COL6,$S($P(EANODE6,U,2)=1:"YES",1:"NO") Line Location: QUE3+20
Function Call: WRITE	Prompt: ?COL7,$S($P(EANODE6,U,3)=1:"YES",1:"NO"),?COL8,$$FMTE^XLFDT($P(EANODE6,U,4),"2D"),?COL9 Line Location: QUE3+21
Function Call: WRITE	Prompt: "YES" Line Location: QUE3+22
Function Call: WRITE	Prompt: ! Line Location: QUE3+23
Function Call: WRITE	Prompt: ?15,"MT Returned: ",$$FMTE^XLFDT($P(EANODE0,U,5),"2D") Line Location: QUE3+24
Function Call: WRITE	Prompt: ?COL4,"30-Day",?COL5,$$FMTE^XLFDT($P(EANODE4,U,1),"2D"),?COL6,$S($P(EANODE4,U,2)=1:"YES",1:"NO") Line Location: QUE3+26
Function Call: WRITE	Prompt: ?COL7,$S($P(EANODE4,U,3)=1:"YES",1:"NO"),?COL8,$$FMTE^XLFDT($P(EANODE4,U,4),"2D"),! Line Location: QUE3+27
Function Call: WRITE	Prompt: ?15 Line Location: QUE3+28
Function Call: WRITE	Prompt: $E(WP(1),1,30) Line Location: QUE3+30
Function Call: WRITE	Prompt: ?COL4,"0-Day",?COL5,$$FMTE^XLFDT($P(EANODEZ,U,1),"2D"),?COL6,$S($P(EANODEZ,U,2)=1:"YES",1:"NO") Line Location: QUE3+32
Function Call: WRITE	Prompt: ?COL7,$S($P(EANODEZ,U,3)=1:"YES",1:"NO"),?COL8,$$FMTE^XLFDT($P(EANODEZ,U,4),"2D"),! Line Location: QUE3+33
Function Call: WRITE	Prompt: !?42,$E(LINE,1,IOM-42) Line Location: QUE3+34
Function Call: WRITE	Prompt: !!,"Entry",?COL2,"Patient",?COL3,"Means Test",?COL4,"Letter",?COL5,"Print",?COL6,"Flag to",?COL7,"Letter",?COL8,"Print",?COL9,"Prohibit" Line Location: QUE3+38
Function Call: WRITE	Prompt: !,?COL3,"Date",?COL4,"Type",?COL5,"Date",?COL6,"Print",?COL7,"Printed?",?COL8,"Date",?COL9,"Flag?",! Line Location: QUE3+39
Function Call: WRITE	Prompt: @IOF Line Location: HDR+8
Function Call: WRITE	Prompt: TITLE Line Location: HDR+9
Function Call: WRITE	Prompt: !,"Date Range: ",$$FMTE^XLFDT(SDISP)," thru ",$$FMTE^XLFDT(EDISP) Line Location: HDR+10
Function Call: WRITE	Prompt: !!,"Print Date: ",$$FMTE^XLFDT($$NOW^XLFDT) Line Location: HDR+12
Function Call: WRITE	Prompt: ?TAB,"Page "_PAGE Line Location: HDR+14
Function Call: WRITE	Prompt: !,LINE Line Location: HDR+16
Routine Call	DIR Line Location: HDR+5 ASK+9 ASK+18

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

Name	Line Occurrences (* Changed, ! Killed)
^EAS(713.1 - [#713.1]	QUE3+22, INCPRHB+10, INCPRHB+12
^EAS(713.2 - [#713.2]	UNRTN+9, UNRTN+10, UNRTN+11, UNRTN+12, QUE2+10, QUE2+12, QUE2+13, QUE2+14, QUE2+15, QUE2+17 , QUE3+12, QUE3+14, QUE3+15, QUE3+19, QUE3+25, QUE3+31, INCPRHB+8

Name	Line Occurrences
$$ASK	LTRSTAT+3, SUMMRY+3
$$LAST4	QUE3+16
HDR	QUE3+6, QUE3+36
INCPRHB	QUE2+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COL	QUE3+1~
COL1	QUE3+2~, QUE3+4*
COL2	QUE3+2~, QUE3+4*, QUE3+8, QUE3+16, QUE3+38
COL3	QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+18, QUE3+38, QUE3+39
COL4	QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+20, QUE3+26, QUE3+32, QUE3+38, QUE3+39
COL5	QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+20, QUE3+26, QUE3+32, QUE3+38, QUE3+39
COL6	QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+20, QUE3+26, QUE3+32, QUE3+38, QUE3+39
COL7	QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+21, QUE3+27, QUE3+33, QUE3+38, QUE3+39
COL8	QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+21, QUE3+27, QUE3+33, QUE3+38, QUE3+39
COL9	QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+21, QUE3+38, QUE3+39
CTR	UNRTN+1~
CTR(	UNRTN+6*
CTR(0	UNRTN+10*, PRT1+5, PRT1+7
CTR(30	UNRTN+11*, PRT1+4, PRT1+7
CTR(60	UNRTN+12*, PRT1+3, PRT1+7
DFN	LAST4+1~, LAST4+3*, LAST4+4
DIR	HDR+5!, ASK+1~, ASK+18!
DIR("?"	ASK+6, ASK+7, ASK+15, ASK+16
DIR("A"	ASK+5, ASK+14
DIR("B"	ASK+8, ASK+17
DIR(0	HDR+4, ASK+4, ASK+13*
DIRUT	ASK+1~, ASK+10, ASK+19
EAIEN	QUE2+1~, QUE2+11, QUE2+12, QUE2+13, QUE2+14, QUE2+15, QUE2+16, QUE2+17, QUE2+19
EALNE	QUE3+1~
EANODE	QUE3+1~
EANODE0	QUE3+15!*, QUE3+16, QUE3+18, QUE3+22, QUE3+24, QUE3+28
EANODE4	QUE3+25!*, QUE3+26, QUE3+27
EANODE6	QUE3+19!*, QUE3+20, QUE3+21
EANODEZ	QUE3+31!*, QUE3+32, QUE3+33
EAPRHB	QUE2+1~, QUE2+5, QUE2+16, PRT2+21, INCPRHB~, INCPRHB+11
EAPRHB(	INCPRHB+13*
EAS1	QUE2+1~, QUE2+9, QUE2+10, QUE2+12
EAS6	UNRTN+1~
EASABRT	QUE3+1~, QUE3+12, QUE3+14, QUE3+37, HDR+3, HDR+6*
EASB	LTRSTAT+1~, LTRSTAT+6*, QUE2+9, PRT2+5
EASCMT	QUE2+1~, QUE2+18!
EASCMT(1	QUE2+20, QUE2+21, QUE2+22
EASDFN	INCPRHB+5~, INCPRHB+12*, INCPRHB+13
EASDT	LTRSTAT+1~, LTRSTAT+3, LTRSTAT+4, LTRSTAT+6, SUMMRY+1~, SUMMRY+3, SUMMRY+4, SUMMRY+5, SUMMRY+6
EASE	LTRSTAT+1~, LTRSTAT+6*, QUE2+10, PRT2+5
EASIEN	UNRTN+1~, UNRTN+8, UNRTN+9, UNRTN+10, UNRTN+11, UNRTN+12, QUE3+1~, QUE3+13, QUE3+14, QUE3+15 , QUE3+16, QUE3+17, QUE3+19, QUE3+25, QUE3+28, QUE3+31, LAST4~, LAST4+3
EASN	UNRTN+1~, QUE3+1~, QUE3+11, QUE3+12, QUE3+14, INCPRHB~, INCPRHB+7, INCPRHB+8
EASNODE	UNRTN+1~
EASPAT	INCPRHB+5~, INCPRHB+8*, INCPRHB+9, INCPRHB+10, INCPRHB+12
EASX	QUE2+1~, QUE2+6, QUE2+7
EATYP	QUE3+1~
EAWP	QUE3+1~, QUE3+28*, QUE3+29
EAX	UNRTN+1~, UNRTN+6, QUE2+1~, QUE2+19, SUMMRY+1~
EAYRTN	QUE2+1~
EAYRTN(	QUE2+7*
EAYRTN("AG"	QUE2+20*, PRT2+16, PRT2+20
EAYRTN("FUT"	QUE2+22*, PRT2+17, PRT2+20
EAYRTN("OTR"	QUE2+23*, PRT2+19, PRT2+20
EAYRTN("OWN"	QUE2+21*, PRT2+18, PRT2+20
EAYTOT	QUE2+1~
EAYTOT(	QUE2+6*
EAYTOT(0	QUE2+13*, PRT2+12, PRT2+13
EAYTOT(30	QUE2+14*, PRT2+12, PRT2+13
EAYTOT(60	QUE2+15*, PRT2+12, PRT2+13
EDATE	SUMMRY+1~, SUMMRY+6, QUE3+12, ASK+1~, ASK+20, ASK+21
EDISP	SUMMRY+1~, SUMMRY+6*, QUE3+6, QUE3+36, HDR~, HDR+10
IOF	UNRTN+3, PRT2+3, HDR+8
IOM	PRT2+9, QUE3+34, HDR+13, HDR+16
IOSL	QUE3+35
IOST	PRT2+22, HDR+3
LINE	PRT2+1~, PRT2+9, QUE3+34, HDR+1~, HDR+16*
PAGE	QUE3+1~, QUE3+5, HDR+14
PRMPT	ASK~, ASK+5, ASK+14
RSLT	LAST4+1~, LAST4+6*, LAST4+8
SDATE	SUMMRY+1~, SUMMRY+5, SUMMRY+7, QUE3+11, ASK+1~, ASK+11*, ASK+13, ASK+15, ASK+21
SDISP	SUMMRY+1~, SUMMRY+5*, QUE3+6, QUE3+36, HDR~, HDR+10
TAB	PRT2+1~, HDR+1~, HDR+13*, HDR+14
TITLE	HDR~, HDR+9
TOT	UNRTN+1~, PRT1+7*, PRT1+8
U	UNRTN+10, UNRTN+11, UNRTN+12, LTRSTAT+6, QUE2+13, QUE2+14, QUE2+15, QUE2+17, SUMMRY+5, SUMMRY+6 , QUE3+16, QUE3+18, QUE3+20, QUE3+21, QUE3+22, QUE3+24, QUE3+26, QUE3+27, QUE3+28, QUE3+32 , QUE3+33, ASK+21
>> VA("BID"	LAST4+6
WP	QUE3+1~, QUE3+28!
WP(1	QUE3+30
>> Y	HDR+6, ASK+11, ASK+20
ZTSAVE	LTRSTAT+1~, LTRSTAT+9, SUMMRY+10
ZTSAVE("EASB"	LTRSTAT+7*
ZTSAVE("EASE"	LTRSTAT+7*
ZTSAVE("EDATE"	SUMMRY+8*
ZTSAVE("EDISP"	SUMMRY+8*
ZTSAVE("SDATE"	SUMMRY+8*
ZTSAVE("SDISP"	SUMMRY+8*

Customize PDF page

Package: Enrollment Application System

Routine: EASMTRPT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: