Routine: AGSSLBAT

Package	Total	Call Graph
VA Fileman	4	YX^%DTC ^DIC DT^DICRW ^DIR
IHS Patient Registration	2	^AGSSLPRT $$S^AGVDF
IHS VA Utilities	1	^XBDBQUE
Kernel	1	^%ZIS

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	;EP
AGSSHDR	;EP header
END	;EP
PATPRT	;print patient letters for a batch
SCAN	;scan SSN Ver Stat Indx / build
REVIEW	;review previous printing
RPTPRT	;print summary report
AGSSPG	;EP
START
CONTINUE	;EP
EAGSSPG
PRINT
AGSSHD	;EP column
PRTLTR	;print letter

External References

Name	Field # of Occurrence
YX^%DTC	AGSSHDR+1
^%ZIS	START
^AGSSLPRT	PRTLTR+2
$$S^AGVDF	START+1
^DIC	LOAD+2, SCAN+2
DT^DICRW	START
^DIR	REVIEW+1, REVIEW+13, LOAD+5, CONTINUE+1, AGSSPG+2
^XBDBQUE	CONTINUE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!,"This will send SSN Notification Letters to those patients",! Line Location: START+1
Function Call: WRITE	Prompt: "that have had their SSN ADDED by the SSA/SSN Matching Process.",!! Line Location: START+1
Function Call: WRITE	Prompt: !!,"There is no temporary SSN global to print batches from." Line Location: REVIEW+1
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS",?25,$J(AGSSTP,5) Line Location: REVIEW+3
Function Call: WRITE	Prompt: !,"Letters Per Batch",?25,$J(AGSSLPB,5) Line Location: REVIEW+4
Function Call: WRITE	Prompt: !,"Batches for Printing",?25,$J(AGSSBFP,5) Line Location: REVIEW+5
Function Call: WRITE	Prompt: !!,"Batch Numbers Completed",! Line Location: REVIEW+6
Function Call: WRITE	Prompt: ! Condition for execution: $X>75 Line Location: REVIEW+7
Function Call: WRITE	Prompt: $J(AGSI,5) Line Location: REVIEW+7
Function Call: WRITE	Prompt: ! Condition for execution: $X>75 Line Location: REVIEW+8
Function Call: WRITE	Prompt: $J(AGSSBFP,5) Line Location: REVIEW+8
Function Call: WRITE	Prompt: !!,"Batch Numbers to Print",! Line Location: REVIEW+9
Function Call: WRITE	Prompt: ! Condition for execution: $X>75 Line Location: REVIEW+10
Function Call: WRITE	Prompt: $J(AGSI,5) Line Location: REVIEW+10
Function Call: WRITE	Prompt: ! Condition for execution: $X>75 Line Location: REVIEW+11
Function Call: WRITE	Prompt: $J(AGSSBFP,5) Line Location: REVIEW+11
Function Call: WRITE	Prompt: !,"There are ",AGSSMORE," batches to Print",! Line Location: REVIEW+12
Function Call: WRITE	Prompt: !,"There are ",AGSSC," potential patients to receive letters. ",! Line Location: LOAD+4
Function Call: WRITE	Prompt: ?AGSSCL,$J(AGSHRN,6)," ",AGSSNM Line Location: RPTPRT+6
Function Call: WRITE	Prompt: " *"_^AGSSLTMP(AGSSIEN) Condition for execution: ($G(^AGSSLTMP(AGSSIEN))]"") Line Location: RPTPRT+6
Function Call: WRITE	Prompt: ! Line Location: RPTPRT+6
Function Call: WRITE	Prompt: !!,"TOTAL = ",AGSSC Line Location: RPTPRT+8
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: AGSSHDR+1
Function Call: WRITE	Prompt: ! Line Location: AGSSHDR+1
Function Call: WRITE	Prompt: ?(IOM-40-$L(AGSSPG("HDR"))/2),AGSSPG("HDR"),?(IOM-40),AGSSPG("DT"),?(IOM-10),"PAGE: ",AGSSPG("PG"),!,AGSSPG("LINE") Line Location: AGSSHDR+2
Function Call: WRITE	Prompt: !!," * BAD Patient Record -- LETTER NOT PRINTED",!! Line Location: AGSSHD+1
Function Call: WRITE	Prompt: !," A - Address D - Date of Death R - Record Disposition S - Patient Status",! Line Location: AGSSHD+2
Routine Call	DIC Line Location: LOAD+2 SCAN+2
Routine Call	DIR Line Location: REVIEW+1 REVIEW+13 LOAD+5 CONTINUE+1 AGSSPG+2
Routine Call	%ZIS Line Location: START

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTSSN - [#9999999.78]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGSSLTMP	REVIEW+1, LOAD+3, SCAN+4, PATPRT+2, PRTLTR+1, PRTLTR+2*, RPTPRT+4, RPTPRT+6
^AGSSLTMP("A"	SCAN+1, SCAN+3, SCAN+4
^AGSSLTMP("BAT"	REVIEW+7, REVIEW+8, REVIEW+10, REVIEW+11, PATPRT+2*
^AGSSLTMP("BFP"	LOAD+7*
^AGSSLTMP("TP"	REVIEW+2
^AUPNPAT - [#9000001]	RPTPRT+5
^AUPNPAT("AS"	LOAD+3, SCAN+3
^AUTTSITE(1	RPTPRT+2
^DPT - [#2]	SCAN+3

Label References

Name	Line Occurrences
AGSSHDR	RPTPRT+3
AGSSPG	RPTPRT+6
CONTINUE	REVIEW+15
END	REVIEW+1, REVIEW+15, REVIEW+17, LOAD+5, PRINT+2
LOAD	REVIEW+1, REVIEW+14
PATPRT	PRINT
PRTLTR	PATPRT+2
RPTPRT	PRINT
START	REVIEW+14, REVIEW+16, CONTINUE+1

Naked Globals

Name	Field # of Occurrence
^(	PRTLTR+1, RPTPRT+4
^("BFP"	REVIEW+2
^("LPB"	REVIEW+2, LOAD+7*
^("TP"	LOAD+7*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	AGSSHDR+1*
AGBOT	END+2!
AGI	END+2!
AGIN	END+2!
AGSC	REVIEW+7, REVIEW+8, REVIEW+10, REVIEW+11, END+1!
AGSHRN	RPTPRT+5*, RPTPRT+6, END+1!
AGSI	REVIEW+7, REVIEW+10, END+1!
AGSITE	RPTPRT+2*, RPTPRT+5, END+1!
AGSS	END+1!
AGSSBFP	REVIEW+2, REVIEW+5, REVIEW+7, REVIEW+8, REVIEW+10, REVIEW+11, LOAD+6, LOAD+7, CONTINUE+1, END+1!
AGSSC	LOAD+3, LOAD+4, LOAD+6, LOAD+7, SCAN+3, SCAN+4, RPTPRT+4, RPTPRT+6, RPTPRT+7*, RPTPRT+8 , END+1!
AGSSCL	RPTPRT+6*, END+1!
AGSSI	PRINT*, END+2!
AGSSIEN	LOAD+2, LOAD+3, SCAN+2, SCAN+3, PATPRT+2, PRTLTR+1, PRTLTR+2, RPTPRT+4, RPTPRT+6, END+1!
AGSSLBC	END+2!
AGSSLPB	REVIEW+2, REVIEW+4, REVIEW+7, REVIEW+10, LOAD+5, LOAD+6, LOAD+7, PATPRT+2, RPTPRT+4, END+1! , END+2!
AGSSMORE	REVIEW+9!, REVIEW+12
AGSSNB	PRINT*, PATPRT+2, RPTPRT+3, RPTPRT+4, END+1!
AGSSNM	SCAN+3, SCAN+4, PRTLTR+1, RPTPRT+4, RPTPRT+6, END+1!
AGSSNUM	CONTINUE+1*, PRINT, END+1!
>> AGSSPG("DT"	AGSSHDR+1*, AGSSHDR+2, EAGSSPG!
>> AGSSPG("HDR"	RPTPRT+3*, AGSSHDR+1, AGSSHDR+2, EAGSSPG!
>> AGSSPG("LINE"	AGSSHDR+1*, AGSSHDR+2, EAGSSPG!
>> AGSSPG("PG"	RPTPRT+3, AGSSPG+2, AGSSHDR+1*, AGSSHDR+2, EAGSSPG!
AGSST	PRTLTR+2!
AGSSTP	REVIEW+2*, REVIEW+3, REVIEW+8, REVIEW+11, END+1!
>> AGTMP	REVIEW+16, LOAD+1
DA	END+2!
DFN	LOAD+3, SCAN+3, SCAN+4, PRTLTR+1, RPTPRT+4*, RPTPRT+5, END+2!
>> DFOUT	AGSSPG+2
DIC	LOAD+2!, SCAN+2!
DIC(0	LOAD+2, SCAN+2
DIR	REVIEW+1!, REVIEW+13!, LOAD+5!, CONTINUE+1!, END+2!, AGSSPG+2!
DIR("A"	REVIEW+1, LOAD+5, CONTINUE+1*
DIR("B"	REVIEW+1, REVIEW+13
DIR(0	REVIEW+1, REVIEW+13, LOAD+5, CONTINUE+1, AGSSPG+2*
>> DIROUT	AGSSPG+2, AGSSHD+3
>> DOUT	AGSSPG+2
DR	END+2!
>> DROUT	AGSSPG+2, AGSSHD+3
>> DTOUT	AGSSPG+2, AGSSHD+3
>> DUOUT	REVIEW+1, LOAD+5, CONTINUE+1, AGSSPG+2, AGSSHD+3
IO	PRINT+1, PATPRT+1, AGSSHDR+2
IOF	PRINT+1, PATPRT+1, AGSSHDR+1
IOM	AGSSHDR+1, AGSSHDR+2
>> IOP	START*
IOSL	AGSSPG+2
IOST	AGSSPG+2
U	SCAN+3
>> X	LOAD+2, SCAN+2
>> XBNS	CONTINUE+2*
>> XBRC	CONTINUE+2*
>> XBRP	CONTINUE+2*
>> XBRX	CONTINUE+2*
>> Y	REVIEW+1, REVIEW+14, REVIEW+15, REVIEW+16, LOAD+2, LOAD+5, CONTINUE+1, SCAN+2, AGSSHDR+1

Customize PDF page

Package: IHS Patient Registration

Routine: AGSSLBAT

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: