Routine: DG53467P

Package	Total	Call Graph
Kernel	5	HOME^%ZIS ($$PWD,CLOSE,OPEN)^%ZISH ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
VA Fileman	3	EN1^DIP $$GET1^DIQ ^DIR
Income Verification Match	1	$$EN^IVMCMD
MailMan	1	^XMD
Registration	1	PID^VADPT6

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entry point for means test cleanup
HDR	; Print Report header
CHECK()	; Check for an existing XTMP global from a previous search. If one is found, ; continue processing means test records for deletion.
REPORT	; Print report of found MT records stored in the XTMP global
QUE	; Que off a task to search for means test records with a missing status
BUILD	; Build list of means test records and store in temporary global
CLNUP	; Process XTMP global means test records for deletion
PRINT	; Print a report of the means test records found without a status
QUERY	; Report query
DISPLY(NODE0,MTIEN)	; Display the means test record being processed for deletion
NOTIFY	; Send notification message when clenup session is completed

External References

Name	Field # of Occurrence
HOME^%ZIS	QUE+16, PRINT+7
$$PWD^%ZISH	NOTIFY+5
CLOSE^%ZISH	NOTIFY+15
OPEN^%ZISH	NOTIFY+7
^%ZTLOAD	QUE+12
EN1^DIP	QUERY+12
$$GET1^DIQ	DISPLY+5, DISPLY+9, DISPLY+11, DISPLY+12, DISPLY+13, DISPLY+15, REPORT+9, REPORT+12, REPORT+13, REPORT+14
^DIR	CHECK+12, CHECK+24, CLNUP+7, CLNUP+11, CLNUP+19, CLNUP+29
$$EN^IVMCMD	CLNUP+24
PID^VADPT6	DISPLY+4, REPORT+8
$$FMADD^XLFDT	BUILD+3
$$FMTE^XLFDT	CHECK+9, CHECK+21, DISPLY+7, REPORT+11, HDR+4, NOTIFY+18
$$NOW^XLFDT	HDR+4, NOTIFY+4, NOTIFY+18
^XMD	NOTIFY+28
EN^XUTMDEVQ	PRINT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> You must have the Means Test Delete key to run this cleanup!",$CHAR(7) Line Location: EN+2
Function Call: WRITE	Prompt: !!?3,"Cleanup complete, the ^XTMP global has been removed." Line Location: EN+9
Function Call: WRITE	Prompt: @IOF Line Location: QUE+3
Function Call: WRITE	Prompt: !!?3,"This will task off the search for Means Test records with a missing means" Line Location: QUE+4
Function Call: WRITE	Prompt: !?3,"test status. Re-running this entry point after completion of the search" Line Location: QUE+5
Function Call: WRITE	Prompt: !?3,"will initiate the cleanup process of these means test records." Line Location: QUE+6
Function Call: WRITE	Prompt: !!?5,"Search canceled!" Line Location: QUE+14
Function Call: WRITE	Prompt: !!?5,"Search queued! [ ",ZTSK," ]" Line Location: QUE+15
Function Call: WRITE	Prompt: !!?3,">> The means test search for records with a missing status is still in" Line Location: CHECK+5
Function Call: WRITE	Prompt: !?3,">> progress. Please check back later." Line Location: CHECK+6
Function Call: WRITE	Prompt: !?3,">> The cleanup search was completed on "_$$FMTE^XLFDT($P(^XTMP("DG467",0),U,2)) Line Location: CHECK+9
Function Call: WRITE	Prompt: !?3," There were no means test records found." Line Location: CHECK+10
Function Call: WRITE	Prompt: @IOF Line Location: CLNUP+13
Function Call: WRITE	Prompt: !?5,">>> DELETED" Line Location: CLNUP+25
Function Call: WRITE	Prompt: !?5,"The deletion call was unable to remove record ",NDX Line Location: CLNUP+27
Function Call: WRITE	Prompt: !!,"Report requires 132-col printer." Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF Line Location: DISPLY+3
Function Call: WRITE	Prompt: !?3,"Name : ",$$GET1^DIQ(2,DFN,.01) Line Location: DISPLY+5
Function Call: WRITE	Prompt: !?3,"SSN : ",VA("PID") Line Location: DISPLY+6
Function Call: WRITE	Prompt: !?3,"Date of Test : ",$$FMTE^XLFDT($P(NODE0,U,1)) Line Location: DISPLY+7
Function Call: WRITE	Prompt: !?3,"Status : " Line Location: DISPLY+8
Function Call: WRITE	Prompt: $$GET1^DIQ(408.32,$P(NODE0,U,3),.01) Line Location: DISPLY+9
Function Call: WRITE	Prompt: !?3,"Completed By : " Line Location: DISPLY+10
Function Call: WRITE	Prompt: $$GET1^DIQ(2,$P(NODE0,U,6),.01) Line Location: DISPLY+11
Function Call: WRITE	Prompt: !?3,"Prim Inc Test for Yr : ",$$GET1^DIQ(408.31,NDX,2) Line Location: DISPLY+12
Function Call: WRITE	Prompt: !?3,"Test Determined Status : ",$$GET1^DIQ(408.32,+$$GET1^DIQ(408.31,NDX,2.03),.01) Line Location: DISPLY+13
Function Call: WRITE	Prompt: !?3,"Source of Income Test : " Line Location: DISPLY+14
Function Call: WRITE	Prompt: $$GET1^DIQ(408.34,$P(NODE0,U,23),.01) Line Location: DISPLY+15
Function Call: WRITE	Prompt: ! Line Location: DISPLY+16
Function Call: WRITE	Prompt: !,$$GET1^DIQ(2,DFN,.01) Line Location: REPORT+9
Function Call: WRITE	Prompt: ?30,VA("BID") Line Location: REPORT+10
Function Call: WRITE	Prompt: ?40,$$FMTE^XLFDT($P(NODE,U,1)) Line Location: REPORT+11
Function Call: WRITE	Prompt: ?56,$$GET1^DIQ(2,$P(NODE,U,6),.01) Line Location: REPORT+12
Function Call: WRITE	Prompt: ?85,$$GET1^DIQ(408.31,NDX,2) Line Location: REPORT+13
Function Call: WRITE	Prompt: ?98,$$GET1^DIQ(408.32,+$$GET1^DIQ(408.31,NDX,2.03),.01) Line Location: REPORT+14
Function Call: WRITE	Prompt: "Report of Means Test Records with Missing Status not yet Processed" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Print Date: ",$$FMTE^XLFDT($$NOW^XLFDT) Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Page ",PAGE Line Location: HDR+5
Function Call: WRITE	Prompt: !!?85,"Principle" Line Location: HDR+6
Function Call: WRITE	Prompt: !?30,"Last",?40,"Date",?85,"Inc. Test",?98,"Test-Determined" Line Location: HDR+7
Function Call: WRITE	Prompt: !,"Name",?30,"Four",?40,"of Test",?56,"Completed by",?85,"for Year",?98,"Status" Line Location: HDR+8
Function Call: WRITE	Prompt: !,DDASH Line Location: HDR+9
Function Call: WRITE	Prompt: NDX_" \| (0) "_$G(^TMP("DG467",$J,NDX,0)),! Line Location: NOTIFY+12
Function Call: WRITE	Prompt: NDX_" \| (2) "_$G(^TMP("DG467",$J,NDX,2)),! Line Location: NOTIFY+13
Function Call: WRITE	Prompt: NDX_" \| (PRIM) "_$G(^TMP("DG467",$J,NDX,"PRIM")),! Line Location: NOTIFY+14
Routine Call	%ZIS Line Location: QUE+16 PRINT+7
Routine Call	DIR Line Location: CHECK+12 CHECK+24 CLNUP+7 CLNUP+11 CLNUP+19 CLNUP+29

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGMT(408.31 - [#408.31]	Classic Fileman Calls, GET1^DIQ
^DG(408.32 - [#408.32]	GET1^DIQ
^DG(408.34 - [#408.34]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	BUILD+6, BUILD+7, CLNUP+21, CLNUP+22, CLNUP+23
^TMP("DG467"	CLNUP+3!, CLNUP+21, CLNUP+22, CLNUP+23*, CLNUP+30!, NOTIFY+11, NOTIFY+12, NOTIFY+13, NOTIFY+14
^XTMP("DG467"	EN+5, EN+8, BUILD+3, BUILD+10, BUILD+11*, CHECK+4, CHECK+8, CHECK+9, CHECK+13!, CHECK+15 , CHECK+17, CLNUP+16, CLNUP+17, CLNUP+31!, CLNUP+35, CLNUP+36!, REPORT+6, REPORT+7
^XUSEC("DG MTDELETE"	EN+2

Label References

Name	Line Occurrences
$$CHECK	EN+6
CLNUP	EN+7
DISPLY	CLNUP+17
HDR	REPORT+4
NOTIFY	CLNUP+33
PRINT	CLNUP+8
QUE	EN+10, CHECK+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BY	QUERY+1~, QUERY+6*
CNT	CHECK+2~, CHECK+16, CHECK+17, CHECK+20
DDASH	HDR+1~, HDR+9*
DFN	DISPLY+1~, DISPLY+4, DISPLY+5, REPORT+1~, REPORT+8, REPORT+9
DHD	QUERY+1~, QUERY+10*
DIC	QUERY+1~, QUERY+4*
DIR	CHECK+2~, CHECK+12!, CHECK+24!, CLNUP+1~, CLNUP+7!, CLNUP+11!, CLNUP+19!, CLNUP+29!, PRINT+1~
DIR("?"	CHECK+23*
DIR("A"	CHECK+11, CHECK+20, CHECK+21, CHECK+22, CLNUP+5, CLNUP+6, CLNUP+10, CLNUP+18, CLNUP+28*
DIR("B"	CHECK+11, CHECK+19, CLNUP+5, CLNUP+18
DIR(0	CHECK+11, CHECK+19, CLNUP+5, CLNUP+10, CLNUP+18, CLNUP+28
DIRUT	CHECK+25, CLNUP+1~, CLNUP+16, CLNUP+20
DT	BUILD+3
DUZ	EN+2, NOTIFY+25
FLDS	QUERY+1~, QUERY+5*
FNAME	NOTIFY+1~, NOTIFY+4*, NOTIFY+7, NOTIFY+21
FR	QUERY+1~, QUERY+7*
IO	NOTIFY+1~, NOTIFY+9
IOF	QUE+3, CLNUP+13, DISPLY+3
IOM	HDR+9
L	QUERY+1~, QUERY+3*
LASTDT	CHECK+2~, CHECK+15*, CHECK+21
MSG	NOTIFY+1~
MSG(	NOTIFY+20*
MSG(1	NOTIFY+17*
MSG(2	NOTIFY+18*
MSG(3	NOTIFY+19*
MSG(4	NOTIFY+21*
MSG(5	NOTIFY+22*
MTIEN	BUILD+1~, BUILD+5, BUILD+6, BUILD+7, BUILD+10, DISPLY~
MTNDE	BUILD+1~, BUILD+7*, BUILD+8, BUILD+9, BUILD+10
NDX	CHECK+2~, CHECK+16, CHECK+17, CLNUP+1~, CLNUP+15, CLNUP+16, CLNUP+17, CLNUP+21, CLNUP+22, CLNUP+23 , CLNUP+24, CLNUP+27, CLNUP+30, CLNUP+31, DISPLY+12, DISPLY+13, REPORT+1~, REPORT+5, REPORT+6, REPORT+7 , REPORT+13, REPORT+14, NOTIFY+1~, NOTIFY+10, NOTIFY+11, NOTIFY+12, NOTIFY+13, NOTIFY+14
NODE	REPORT+1~, REPORT+7*, REPORT+8, REPORT+11, REPORT+12
NODE0	DISPLY~, DISPLY+4, DISPLY+7, DISPLY+9, DISPLY+11, DISPLY+15
PAGE	REPORT+1~, REPORT+3*, HDR+5
PATH	NOTIFY+1~, NOTIFY+5*, NOTIFY+7, NOTIFY+22
PG	QUERY+1~, QUERY+9*
POP	NOTIFY+1~, NOTIFY+8
RSLT	CHECK+2~, CLNUP+1~, CLNUP+24*, CLNUP+25
RTN	CHECK+2~
TO	QUERY+1~, QUERY+8*
U	BUILD+8, BUILD+9, CHECK+9, CHECK+15, DISPLY+4, DISPLY+7, DISPLY+9, DISPLY+11, DISPLY+15, REPORT+8 , REPORT+11, REPORT+12
VA	DISPLY+1~, REPORT+1~
VA("BID"	REPORT+10
VA("PID"	DISPLY+6
X	NOTIFY+1~, NOTIFY+4*
XMDUZ	NOTIFY+1~, NOTIFY+26*
XMSUB	NOTIFY+1~, NOTIFY+24*
XMTEXT	NOTIFY+1~, NOTIFY+27*
XMY	NOTIFY+1~
XMY(	NOTIFY+25*
Y	CHECK+2~, CHECK+13, CHECK+25, CLNUP+1~, CLNUP+8, CLNUP+20
ZNODE	BUILD+1~
ZTDESC	QUE+1~, QUE+9*
ZTDTH	QUE+1~, QUE+10*
ZTIO	QUE+1~, QUE+11*
ZTQUEUED	QUE+1~
ZTRTN	QUE+1~, QUE+8*
ZTSAVE	QUE+1~, PRINT+1~, PRINT+5
ZTSAVE("DUZ"	PRINT+4*
ZTSK	QUE+1~, QUE+14, QUE+15

Customize PDF page

Package: Registration

Routine: DG53467P

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: