Routine: AGACAL

Package	Total	Call Graph
IHS Patient Registration	3	PTLK^AG ^AGACAL $$ENC^AGACALV
Kernel	3	($$DT,$$FMTE,$$NOW)^XLFDT $$NAMEFMT^XLFNAME $$TITLE^XLFSTR
VA Fileman	3	UPDATE^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	2	^XBDBQUE ^XBFMK
IHS Patient	1	($$BEN,$$ELIGSTAT)^AUPNPAT

Package	Total	Caller Graph
IHS Patient Registration	1	AGACAL

Entry Points

Name	Comments	DBIA/ICR reference
BODY	;BODY TEXT
EN	;EP
ZIS	;DEVICE
EOJ	;
ELCHK(AGDFN)	;EP - CHECK PT ELIGIBILITY
EXIT	;EP
PRINT	;EP - PRINT ACA LETTER
SELPT	;SELECT PATIENT
KEYCHK()	;EP - CHECK AGZACA SIGN KEY
HDR	;HEADER TEXT

External References

Name	Field # of Occurrence
PTLK^AG	SELPT+2
^AGACAL	EN+2, PRINT+29
$$ENC^AGACALV	PRINT+27
$$BEN^AUPNPAT	ELCHK+3, ELCHK+14
$$ELIGSTAT^AUPNPAT	ELCHK+4, ELCHK+15
UPDATE^DIE	PRINT+14, PRINT+37
$$GET1^DIQ	PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26
^DIR	KEYCHK+3, KEYCHK+4, ELCHK+10, ELCHK+16, PRINT+39
^XBDBQUE	ZIS+2
^XBFMK	EXIT+2, EOJ+1
$$DT^XLFDT	PRINT+6
$$FMTE^XLFDT	PRINT+17
$$NOW^XLFDT	PRINT+12
$$NAMEFMT^XLFNAME	PRINT+18, PRINT+26
$$TITLE^XLFSTR	PRINT+23, PRINT+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AGTEXT Line Location: EN+3
Function Call: WRITE	Prompt: !,"<AG SIGN SECURITY KEY NOT ASSIGNED>" Line Location: KEYCHK+3
Function Call: WRITE	Prompt: !,"<AG SIGN SECURITY KEY ASSIGNED TO MORE THAN ONE USER>" Line Location: KEYCHK+4
Function Call: WRITE	Prompt: !!,">>> Warning the patient you have selected is a NON-INDIAN BENEFICIARY," Line Location: ELCHK+7
Function Call: WRITE	Prompt: !,">>> but listed as eligible for services." Line Location: ELCHK+8
Function Call: WRITE	Prompt: !,">>> Are you sure you want to continue to print?" Line Location: ELCHK+9
Function Call: WRITE	Prompt: !!,">>> Warning the patient you have selected is not eligible based on the following information:" Line Location: ELCHK+13
Function Call: WRITE	Prompt: !," CLASSIFICATION/BENEFICIARY : "_$$BEN^AUPNPAT(AGDFN,"E") Line Location: ELCHK+14
Function Call: WRITE	Prompt: !," ELIGIBILITY STATUS : "_$$ELIGSTAT^AUPNPAT(AGDFN,"E"),! Line Location: ELCHK+15
Function Call: WRITE	Prompt: ! Line Location: PRINT+30
Function Call: WRITE	Prompt: AGTMP Line Location: PRINT+32
Function Call: WRITE	Prompt: @($P(AGTMP,"@",2)) Line Location: PRINT+33
Function Call: WRITE	Prompt: ! Line Location: PRINT+39
Routine Call	DIE Line Location: PRINT+14 PRINT+37
Routine Call	DIR Line Location: KEYCHK+3 KEYCHK+4 ELCHK+10 ELCHK+16 PRINT+39

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ
^AUTTAREA - [#9999999.21]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGACAL - [#9009063.5]	PRINT+7
^AGACAL(0	PRINT+7
^AUPNPAT - [#9000001]	PRINT+2
^DPT - [#2]	PRINT+2
^XUSEC("AGZACA SIGN"	KEYCHK+2, KEYCHK+4, PRINT+26

Label References

Name	Line Occurrences
$$ELCHK	SELPT+4
$$KEYCHK	EN+4
EOJ	PRINT+40
EXIT	EN+4, SELPT+3, SELPT+4, SELPT+7, ZIS+3
ZIS	SELPT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+5!
AGADD1	PRINT+5~, PRINT+19*, EOJ+4!
AGADD2	PRINT+5~, PRINT+20*, EOJ+4!
AGBEN	ELCHK+2~, ELCHK+3*, ELCHK+5, ELCHK+6, ELCHK+12
AGCNT	EN+1~, EN+2, PRINT+4~, PRINT+29, EOJ+3!
AGCNT2	PRINT+4~, PRINT+31*, EOJ+3!
AGDFN	SELPT+1~, SELPT+5*, ELCHK~, ELCHK+1, ELCHK+3, ELCHK+4, ELCHK+14, ELCHK+15, EXIT+1!, PRINT+1 , PRINT+2, PRINT+9, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+27
AGDOB	PRINT+5~, PRINT+21*, EOJ+4!
AGDT	PRINT+5~, PRINT+6*, PRINT+11, PRINT+17, PRINT+27, EOJ+4!
AGDTE	PRINT+5~, PRINT+17*, EOJ+4!
AGDUZ	SELPT+1~, SELPT+5*, EXIT+1!, PRINT+1, PRINT+10, PRINT+27
AGDUZ2	SELPT+1~, SELPT+5*, EXIT+1!, PRINT+1, PRINT+13, PRINT+23, PRINT+24, PRINT+25
AGDUZAN	PRINT+5~, PRINT+24*, EOJ+4!
AGDUZN	PRINT+5~, PRINT+23*, EOJ+4!
AGDUZPH	PRINT+5~, PRINT+25*, EOJ+4!
AGELIG	ELCHK+2~, ELCHK+4*, ELCHK+5, ELCHK+6, ELCHK+12
AGLI	PRINT+5~, PRINT+15*, PRINT+27, PRINT+36, EOJ+4!
AGNAME	PRINT+5~, PRINT+18*, EOJ+4!
AGOVER	EXIT+1!
AGRES	ELCHK+2~, ELCHK+5, ELCHK+11, ELCHK+17
AGSIGN	KEYCHK+1~, KEYCHK+2, KEYCHK+3, KEYCHK+4, PRINT+5~, PRINT+26, EOJ+4!
AGSSN	PRINT+5~, PRINT+22*, EOJ+4!
AGTEXT	EN+1~, EN+2, EN+3, PRINT+4~, PRINT+29, PRINT+31, EOJ+3!
AGTMP	PRINT+4~, PRINT+31*, PRINT+32, PRINT+33, EOJ+3!
AGUID	PRINT+5~, PRINT+27*, PRINT+36, EOJ+4!
AUPNDAYS	EXIT+1!, EOJ+2!
AUPNDOB	EXIT+1!, EOJ+2!
AUPNDOD	EXIT+1!, EOJ+2!
AUPNPAT	EXIT+1!, EOJ+2!
AUPNSEX	EXIT+1!, EOJ+2!
B	EOJ+5!
C	EOJ+5!
DFN	SELPT+3, SELPT+4, SELPT+5, EXIT+1!
DINUM	PRINT+4~, PRINT+7*, PRINT+8, EOJ+3!
DIR	KEYCHK+3!, KEYCHK+4!, ELCHK+10!, ELCHK+16!, PRINT+39!
DIR("A"	KEYCHK+3, KEYCHK+4, ELCHK+10, ELCHK+16, PRINT+39*
DIR("B"	ELCHK+10*
DIR(0	KEYCHK+3, KEYCHK+4, ELCHK+10, ELCHK+16, PRINT+39*
DUZ	SELPT+5
DUZ(2	SELPT+3, SELPT+5
E	EOJ+5!
F	EOJ+5!
FDA	PRINT+4~, PRINT+35!, EOJ+3!
FDA(	PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+36
H	EOJ+5!
IO	PRINT+39
IO(0	PRINT+39
IOST	PRINT+39
J	EOJ+5!
L	EOJ+5!
N	EOJ+5!
NEWIEN	PRINT+4~, EOJ+3!
NEWIEN(1	PRINT+8*, PRINT+15
P	EOJ+5!
T	EOJ+5!
W	EOJ+5!
X	EOJ+5!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	ELCHK+11, EOJ+5!

Marked Items

Name	Field # of Occurrence
$T(BODY+AGCNT^AGACAL	PRINT+29
$T(HDR+AGCNT^AGACAL	EN+2

Customize PDF page

Package: IHS Patient Registration

Routine: AGACAL

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:

Marked Items