Routine: AG6P14

Call Graph

Call Graph Total: 13

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

Package

Total

Call Graph

Kernel

^%ZTLOAD ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU ($$VERSION,BMES,MES)^XPDUTL

IHS VA Utilities

$$DIR^XBDIR $$C^XBFUNC MAIL^XBMAIL

VA Fileman

IX^DIC FILE^DICN ENALL^DIK

IHS Patient Registration

^AGEDNAME AFTSAV^AGTXCONF

IHS Patient

^AUPNPCTR

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP - From KIDS.
BEFSAV	;this is the same s/r as in AGTXCONF.
INDEXAI	; REINDEX AI XREF PREVIOUS COMMUNITY
BEF	; These are the "before p14" routines.
OPTSAV(AGM)	;
SORRY(X)	;
KT
POST	;EP - From KIDS.
SAVE	; Save first few lines of install message into tmp global.
OPTRES(AGM)	;

External References

Name	Field # of Occurrence
^%ZTLOAD	POST+9
^AGEDNAME	POST+8
AFTSAV^AGTXCONF	POST+5
^AUPNPCTR	INDEXAI+12
IX^DIC	AG6P14+37
FILE^DICN	POST+22
ENALL^DIK	INDEXAI+25
$$DIR^XBDIR	AG6P14+43, AG6P14+61, AG6P14+63, AG6P14+67, SORRY+3
$$C^XBFUNC	AG6P14+12, AG6P14+13, AG6P14+16, AG6P14+20, AG6P14+24, AG6P14+28, AG6P14+32, AG6P14+39, AG6P14+40, AG6P14+41 , AG6P14+45, AG6P14+57, SORRY+3
MAIL^XBMAIL	POST+41
$$FMADD^XLFDT	OPTSAV+2
$$FMDIFF^XLFDT	INDEXAI+31
$$FMTE^XLFDT	INDEXAI+19, INDEXAI+30
$$NOW^XLFDT	INDEXAI+18, INDEXAI+29
$$ADD^XPDMENU	POST+14, POST+28, POST+32, OPTRES+4
$$VERSION^XPDUTL	AG6P14+15, AG6P14+19, AG6P14+23, AG6P14+27, AG6P14+31
BMES^XPDUTL	AG6P14+51, AG6P14+53, PRE+2, PRE+3, POST+1, POST+4, POST+7, POST+11, POST+13, POST+14 , POST+25, POST+27, POST+28, POST+29, POST+31, POST+32, POST+33, POST+35, POST+38, POST+45 , INDEXAI+13, INDEXAI+14, INDEXAI+15, INDEXAI+19, INDEXAI+30, INDEXAI+31, OPTSAV+1, OPTSAV+5, OPTRES+2, OPTRES+4
MES^XPDUTL	POST+10, BEFSAV+9, BEFSAV+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AG6P14+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AG6P14+7
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,",")) Line Location: AG6P14+12
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: AG6P14+13
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("Need AG v 6.0.....AG v "_X_" Present") Line Location: AG6P14+16
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Need at least FileMan 21.....FileMan "_X_" Present") Line Location: AG6P14+20
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Need at least Kernel 8.....Kernel "_X_" Present") Line Location: AG6P14+24
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Need at least AUT 98.1.....AUT "_X_" Present") Line Location: AG6P14+28
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Need at least AUPN 99.1.....AUPN "_X_" Present") Line Location: AG6P14+32
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: AG6P14+39
Function Call: WRITE	Prompt: !,$$C^XBFUNC("One entry needs to be deleted.") Line Location: AG6P14+40
Function Call: WRITE	Prompt: !,$$C^XBFUNC("FIX IT! Before Proceeding."),!!,7,7,*7 Line Location: AG6P14+41
Function Call: WRITE	Prompt: !,$$C^XBFUNC("No 'AG' dups in PACKAGE file") Line Location: AG6P14+45
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("ENVIRONMENT OK.") Line Location: AG6P14+57
Function Call: WRITE	Prompt: !,^(%,0) Line Location: AG6P14+63
Function Call: WRITE	Prompt: " \| ",$J(DA(1)/AGP3*100,0,0),"%" Line Location: INDEXAI+26
Routine Call	DIC Line Location: AG6P14+37

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("DEL"	POST+43
^%ZOSF("LOAD"	BEFSAV+6
^%ZOSF("SAVE"	SAVE+11, BEFSAV+10
^%ZOSF("TEST"	BEFSAV+8
^AUPNPAT - [#9000001]	INDEXAI+23
^AUPNPAT(0	INDEXAI+22
^DIC(19 - [#19]	OPTSAV+4, OPTSAV+7
^DIC(19.1 - [#19.1]	POST+16
^DIC(9.4 - [#9.4]	AG6P14+38
^TMP("AG6P14MS"	SAVE+1!, SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+6, SAVE+8, SAVE+12!
^TMP("AGTXCONF"	KT!
^VA(200 - [#200]	AG6P14+11, POST+20
^XTMP("AG6P14"	OPTSAV+1, OPTSAV+2, OPTSAV+7, OPTRES+2, OPTRES+4
^XTMP("XPDI"	AG6P14+60, AG6P14+63, SAVE+8
^XUSEC("AGZREPORTS"	POST+19

Name	Line Occurrences
BEFSAV	AG6P14+52
INDEXAI	POST+2
KT	BEFSAV+3, BEFSAV+13
OPTRES	POST+36
OPTSAV	AG6P14+54
SAVE	POST+39
SORRY	AG6P14+5, AG6P14+7, AG6P14+9, AG6P14+17, AG6P14+21, AG6P14+25, AG6P14+29, AG6P14+33, AG6P14+42, AG6P14+67

Name	Field # of Occurrence
^(	AG6P14+63, SAVE+8, OPTRES+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AG6P14+62, AG6P14+63, SAVE+7, SAVE+8
A	OPTSAV+3~, OPTSAV+6, OPTSAV+7
AG	POST+15~, POST+16, POST+19, POST+20, POST+21, BEFSAV+1~, BEFSAV+2, OPTRES+1~, OPTRES+3, OPTRES+4*
AG("RPT"	POST+16*, POST+17
AG("STD"	POST+16*, POST+17, POST+20, POST+21
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
B	AG6P14+59~, AG6P14+60*, AG6P14+61, AG6P14+63, AG6P14+65!
>> D	AG6P14+36*
DA	AG6P14+35~, POST+15~, INDEXAI+21~
DA(1	POST+21, INDEXAI+22, INDEXAI+23*, INDEXAI+24, INDEXAI+26
DIC	AG6P14+35~, AG6P14+36, POST+15~, POST+21
DIC("P"	POST+18*
DIC(0	AG6P14+36, POST+18
DIE	SAVE+9~, SAVE+10, BEFSAV+1~, BEFSAV+4
DIF	BEFSAV+1~, BEFSAV+4*
DIFQ	SORRY+1!
DIFROM	POST+40~
DIK	INDEXAI+21~, INDEXAI+24*
DIK(1	INDEXAI+22*
DINUM	POST+15~, POST+21*
DT	OPTSAV+2
DUZ	AG6P14+5, AG6P14+11
DUZ(0	AG6P14+7, AG6P14+9
I	OPTSAV+3~, OPTSAV+4*, OPTSAV+5, OPTSAV+7
U	AG6P14+11, INDEXAI+22, OPTSAV+2, OPTSAV+7, OPTRES+4
X	AG6P14+11, AG6P14+12, AG6P14+15, AG6P14+16, AG6P14+17, AG6P14+19, AG6P14+20, AG6P14+21, AG6P14+23, AG6P14+24 , AG6P14+25, AG6P14+27, AG6P14+28, AG6P14+29, AG6P14+31, AG6P14+32, AG6P14+33, AG6P14+36, SORRY~, SORRY+2 , POST+21, POST+42, SAVE+10, BEFSAV+4, BEFSAV+5, BEFSAV+7, BEFSAV+9, BEFSAV+11
XCM	SAVE+9~
XCN	SAVE+9~, SAVE+10, BEFSAV+1~, BEFSAV+4
XCNP	BEFSAV+1~, BEFSAV+4*
>> XPDA	AG6P14+60, AG6P14+63, SAVE+8
>> XPDBLD	SAVE+8
>> XPDDIQ("XPZ1"	AG6P14+50*
>> XPDDIQ("XPZ2"	AG6P14+50*
>> XPDENV	AG6P14+47
>> XPDQUIT	SORRY+2*
>> XPDQUIT("AG614"	SORRY+2*
>> Y	AG6P14+38
>> ZTDESC	POST+8*
>> ZTDTH	POST+8*
>> ZTIO	POST+8*
>> ZTQUEUED	AG6P14+9, SORRY+3, INDEXAI+20, INDEXAI+26
>> ZTRTN	POST+8*
>> ZTSK	POST+10

Customize PDF page

Package: IHS Patient Registration

Routine: AG6P14

Information

Source Information

Call Graph

Call Graph Total: 13

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

Name	Field # of Occurrence
$T(	AG6P14+13, POST+8, SAVE+3, SAVE+5, INDEXAI+12
$T(BEF+AG	BEFSAV+4, BEFSAV+7