Routine: AG6P15

Package	Total	Call Graph
Kernel	4	^%ZTLOAD ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU ($$VERSION,BMES,MES)^XPDUTL
VA Fileman	4	(,IX)^DIC FILE^DICN ^DIE ENALL^DIK
IHS VA Utilities	3	$$VAL^XBDIQ1 $$DIR^XBDIR $$C^XBFUNC
IHS Patient Registration	2	^AGEDNAME AFTSAV^AGTXCONF
IHS Patient	1	^AUPNPCTR
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP - From KIDS.
BEFSAV	;this is the same s/r as in AGTXCONF.
SINGLE(K)	; Get holders of a single key K.
P4	; -- Update AGMENU exit action to include call to HL7 routine
INDEXAI	; REINDEX AI XREF PREVIOUS COMMUNITY
P14()	; Determine if P14 was installed.
BEF	; These are the "before p15" routines.
OPTSAV(AGM)	;
SORRY(X)	;
IP14	; Items from patch 14.
KT
MAIL	; Send install mail message.
POST	;EP - From KIDS.
OPTRES(AGM)	;

External References

Name	Field # of Occurrence
^%ZTLOAD	IP14+10
^AGEDNAME	IP14+9
AFTSAV^AGTXCONF	IP14+6
^AUPNPCTR	INDEXAI+12
^DIC	P14+6, P14+9, P14+12
IX^DIC	AG6P15+35
FILE^DICN	IP14+23
^DIE	POST+24, P4+8
ENALL^DIK	INDEXAI+25
$$VAL^XBDIQ1	POST+18
$$DIR^XBDIR	AG6P15+41, AG6P15+56, SORRY+3
$$C^XBFUNC	AG6P15+10, AG6P15+11, AG6P15+14, AG6P15+18, AG6P15+22, AG6P15+26, AG6P15+30, AG6P15+37, AG6P15+38, AG6P15+39 , AG6P15+43, AG6P15+54, SORRY+3
$$FMADD^XLFDT	OPTSAV+2
$$FMDIFF^XLFDT	POST+21, INDEXAI+31
$$FMTE^XLFDT	INDEXAI+19, INDEXAI+30
$$NOW^XLFDT	INDEXAI+18, INDEXAI+29
^XMD	MAIL+8
$$ADD^XPDMENU	POST+11, POST+15, OPTRES+4, IP14+15, IP14+29, IP14+33
$$VERSION^XPDUTL	AG6P15+13, AG6P15+17, AG6P15+21, AG6P15+25, AG6P15+29
BMES^XPDUTL	AG6P15+49, AG6P15+50, PRE+2, PRE+3, POST+1, POST+5, POST+10, POST+11, POST+12, POST+14 , POST+15, POST+16, POST+26, POST+29, POST+33, POST+36, INDEXAI+13, INDEXAI+14, INDEXAI+15, INDEXAI+19 , INDEXAI+30, INDEXAI+31, OPTSAV+1, OPTSAV+5, OPTRES+2, OPTRES+4, IP14+1, IP14+5, IP14+8, IP14+12 , IP14+14, IP14+15, IP14+26, IP14+28, IP14+29, IP14+30, IP14+32, IP14+33, IP14+34
MES^XPDUTL	POST+27, BEFSAV+9, BEFSAV+11, IP14+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AG6P15+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AG6P15+7
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,",")) Line Location: AG6P15+10
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".") Line Location: AG6P15+11
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("Need AG v 6.0.....AG v "_X_" Present") Line Location: AG6P15+14
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Need at least FileMan 21.....FileMan "_X_" Present") Line Location: AG6P15+18
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Need at least Kernel 8.....Kernel "_X_" Present") Line Location: AG6P15+22
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Need at least AUT 98.1.....AUT "_X_" Present") Line Location: AG6P15+26
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Need at least AUPN 99.1.....AUPN "_X_" Present") Line Location: AG6P15+30
Function Call: WRITE	Prompt: !!,7,7,$$C^XBFUNC("You Have More Than One Entry In The"),!,$$C^XBFUNC("PACKAGE File with an ""AG"" prefix.") Line Location: AG6P15+37
Function Call: WRITE	Prompt: !,$$C^XBFUNC("One entry needs to be deleted.") Line Location: AG6P15+38
Function Call: WRITE	Prompt: !,$$C^XBFUNC("FIX IT! Before Proceeding."),!!,7,7,*7 Line Location: AG6P15+39
Function Call: WRITE	Prompt: !,$$C^XBFUNC("No 'AG' dups in PACKAGE file") Line Location: AG6P15+43
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("ENVIRONMENT OK.") Line Location: AG6P15+54
Function Call: WRITE	Prompt: " \| ",$J(DA(1)/AGP3*100,0,0),"%" Line Location: INDEXAI+26
Routine Call	DIE Line Location: POST+24 P4+8
Routine Call	DIC Line Location: P14+6 P14+9 P14+12
Routine Call	DIC Line Location: AG6P15+35

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	BEFSAV+6
^%ZOSF("SAVE"	BEFSAV+10
^%ZOSF("TEST"	BEFSAV+8
^ABMDCLM - [#9002274.3]	POST+21
^AUPNPAT - [#9000001]	INDEXAI+23
^AUPNPAT(0	INDEXAI+22
^DIC(19 - [#19]	OPTSAV+4, OPTSAV+7, P4+5, P4+6
^DIC(19.1 - [#19.1]	IP14+17
^DIC(9.4 - [#9.4]	AG6P15+36
^TMP("AG6P15MS"	MAIL+2!, MAIL+3, MAIL+5, MAIL+9!
^TMP("AGTXCONF"	KT!
^VA(200 - [#200]	AG6P15+9, IP14+21
^XTMP("AG6P15"	OPTSAV+1, OPTSAV+2, OPTSAV+7, OPTRES+2, OPTRES+4
^XTMP("XPDI"	MAIL+5
^XUSEC(	SINGLE+3, SINGLE+4
^XUSEC("AGZREPORTS"	IP14+20

Label References

Name	Line Occurrences
$$P14	AG6P15+49, POST+3
BEFSAV	AG6P15+49
INDEXAI	IP14+3
IP14	POST+3
KT	BEFSAV+3, BEFSAV+13
MAIL	POST+34
OPTRES	POST+6
OPTSAV	AG6P15+51
P4	POST+8
SINGLE	MAIL+7
SORRY	AG6P15+5, AG6P15+7, AG6P15+15, AG6P15+19, AG6P15+23, AG6P15+27, AG6P15+31, AG6P15+40, AG6P15+56

Naked Globals

Name	Field # of Occurrence
^(	MAIL+5, OPTRES+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MAIL+4, MAIL+5, MAIL+7*
A	OPTSAV+3~, OPTSAV+6, OPTSAV+7
AG	POST+19~, POST+20, POST+21, BEFSAV+1~, BEFSAV+2, OPTRES+1~, OPTRES+3, OPTRES+4, IP14+16~, IP14+17 , IP14+20*, IP14+21, IP14+22
AG("RPT"	IP14+17*, IP14+18
AG("STD"	IP14+17*, IP14+18, IP14+21, IP14+22
AGB	INDEXAI+17~, INDEXAI+18*, INDEXAI+19, INDEXAI+31
AGE	INDEXAI+17~, INDEXAI+29*, INDEXAI+30, INDEXAI+31
AGI	OPTRES+1~, OPTRES+4*
AGM	BEFSAV+1~, BEFSAV+5*, BEFSAV+9, BEFSAV+11, OPTSAV~, OPTSAV+1, OPTSAV+4, OPTSAV+5, OPTSAV+7, OPTRES~ , OPTRES+2, OPTRES+4
AGP3	INDEXAI+21~, INDEXAI+22*, INDEXAI+26
>> D	AG6P15+34*
DA	AG6P15+33~, POST+22~, POST+23, INDEXAI+21~, IP14+16~, P4+3~, P4+4, P4+5*, P4+6
DA(1	INDEXAI+22, INDEXAI+23, INDEXAI+24, INDEXAI+26, IP14+22*
DIC	AG6P15+33~, AG6P15+34, IP14+16~, IP14+22, P14+3~, P14+5, P14+8, P14+11*
DIC("P"	IP14+19*
DIC(0	AG6P15+34, IP14+19, P14+5*
DIE	POST+22~, POST+23, BEFSAV+1~, BEFSAV+4, P4+3~, P4+7*
DIF	BEFSAV+1~, BEFSAV+4*
DIFQ	SORRY+1!
DIFROM	MAIL+1~
DIK	INDEXAI+21~, INDEXAI+24*
DIK(1	INDEXAI+22*
DINUM	IP14+16~, IP14+22*
DR	POST+22~, POST+23, P4+3~, P4+7
DT	POST+21, OPTSAV+2
DUZ	AG6P15+5, AG6P15+9, MAIL+6
DUZ(0	AG6P15+7
I	OPTSAV+3~, OPTSAV+4*, OPTSAV+5, OPTSAV+7
K	SINGLE~, SINGLE+3, SINGLE+4
U	AG6P15+9, INDEXAI+22, OPTSAV+2, OPTSAV+7, OPTRES+4
X	AG6P15+9, AG6P15+10, AG6P15+13, AG6P15+14, AG6P15+15, AG6P15+17, AG6P15+18, AG6P15+19, AG6P15+21, AG6P15+22 , AG6P15+23, AG6P15+25, AG6P15+26, AG6P15+27, AG6P15+29, AG6P15+30, AG6P15+31, AG6P15+34, SORRY~, SORRY+2 , BEFSAV+4, BEFSAV+5, BEFSAV+7, BEFSAV+9, BEFSAV+11, IP14+22, P14+3~, P14+4, P14+8, P14+11*
XCN	BEFSAV+1~, BEFSAV+4*
XCNP	BEFSAV+1~, BEFSAV+4*
XMDUZ	MAIL+1~, MAIL+6*
XMSUB	MAIL+1~, MAIL+6*
XMTEXT	MAIL+1~, MAIL+6*
XMY	MAIL+1~
XMY(	MAIL+6, SINGLE+4
XMY(1	MAIL+6*
>> XPDA	MAIL+5
>> XPDBLD	MAIL+5
>> XPDDIQ("XPZ1"	AG6P15+48*
>> XPDDIQ("XPZ2"	AG6P15+48*
>> XPDENV	AG6P15+45
>> XPDQUIT	SORRY+2*
Y	AG6P15+36, POST+25, SINGLE+1~, SINGLE+2, SINGLE+4, P14+3~, P14+7, P14+8, P14+10, P14+11 , P14+13
>> ZTDESC	IP14+9*
>> ZTDTH	IP14+9*
>> ZTIO	IP14+9*
>> ZTQUEUED	SORRY+3, INDEXAI+20, INDEXAI+26
>> ZTRTN	IP14+9*
>> ZTSK	IP14+11

Marked Items

Name	Field # of Occurrence
$T(	AG6P15+11, MAIL+6, INDEXAI+12, IP14+9
$T(BEF+AG	BEFSAV+4, BEFSAV+7
$T(P4+1	P4+6, P4+7

Customize PDF page

Package: IHS Patient Registration

Routine: AG6P15

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items