Routine: AG7ENV

Information

AG7ENV ;IHS/ASDS/EFG - Patient Registration 7.0 ;

Source Information

Source file <AG7ENV.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Kernel	5	^%ZTLOAD ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR $$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,DELAFT)^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
IP15	;
INDEXAI	; REINDEX AI XREF PREVIOUS COMMUNITY
VCHK(AGPRE,AGVER,AGQUIT)	; Check versions needed. ;
OPTSAV(AGM)	;
BEF	; These are the "before p15" routines.
SORRY(X)	;
INSTALLD(AGINSTAL)	;EP - Determine if patch AGINSTAL was installed, where AGINSTAL is ; the name of the INSTALL. E.g "AG6.010".
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+7
^AGEDNAME	IP14+6
AFTSAV^AGTXCONF	POST+13
DELAFT^AGTXCONF	POST+13
^AUPNPCTR	INDEXAI+12
^DIC	INSTALLD+10, INSTALLD+13
IX^DIC	AG7ENV+25, INSTALLD+7
FILE^DICN	IP14+20
^DIE	IP15+17, P4+8
ENALL^DIK	INDEXAI+25
$$VAL^XBDIQ1	IP15+11
$$DIR^XBDIR	AG7ENV+31, AG7ENV+46, SORRY+3, VCHK+5
$$C^XBFUNC	AG7ENV+10, AG7ENV+11, AG7ENV+18, AG7ENV+27, AG7ENV+28, AG7ENV+29, AG7ENV+33, AG7ENV+44, SORRY+3
$$FMADD^XLFDT	OPTSAV+2
$$FMDIFF^XLFDT	INDEXAI+31, IP15+14
$$FMTE^XLFDT	INDEXAI+19, INDEXAI+30
$$NOW^XLFDT	INDEXAI+18, INDEXAI+29
$$CJ^XLFSTR	VCHK+4, VCHK+5
^XMD	MAIL+8
$$ADD^XPDMENU	OPTRES+4, IP14+12, IP14+26, IP14+30, IP15+4, IP15+8
$$VERSION^XPDUTL	AG7ENV+17, VCHK+3
BMES^XPDUTL	AG7ENV+39, AG7ENV+40, POST+1, POST+7, POST+12, POST+15, POST+18, 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+9 , IP14+11, IP14+12, IP14+23, IP14+25, IP14+26, IP14+27, IP14+29, IP14+30, IP14+31, IP15+1 , IP15+3, IP15+4, IP15+5, IP15+7, IP15+8, IP15+9, IP15+19, IP15+22
MES^XPDUTL	BEFSAV+9, BEFSAV+11, IP14+8, IP15+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AG7ENV+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AG7ENV+7
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,",")) Line Location: AG7ENV+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: AG7ENV+11
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Need at least AUT 98.1.....AUT "_X_" Present") Line Location: AG7ENV+18
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: AG7ENV+27
Function Call: WRITE	Prompt: !,$$C^XBFUNC("One entry needs to be deleted.") Line Location: AG7ENV+28
Function Call: WRITE	Prompt: !,$$C^XBFUNC("FIX IT! Before Proceeding."),!!,7,7,*7 Line Location: AG7ENV+29
Function Call: WRITE	Prompt: !,$$C^XBFUNC("No 'AG' dups in PACKAGE file") Line Location: AG7ENV+33
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("ENVIRONMENT OK.") Line Location: AG7ENV+44
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_AGPRE_" v "_AGVER_"....."_AGPRE_" v "_AGV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....",IOM) Line Location: VCHK+5
Function Call: WRITE	Prompt: " \| ",$J(DA(1)/AGP3*100,0,0),"%" Line Location: INDEXAI+26
Routine Call	DIE Line Location: IP15+17 P4+8
Routine Call	DIC Line Location: INSTALLD+10 INSTALLD+13
Routine Call	DIC Line Location: AG7ENV+25 INSTALLD+7

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]	IP15+14
^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+14
^DIC(9.4 - [#9.4]	AG7ENV+26
^TMP("AG6P16MS"	MAIL+2!, MAIL+3, MAIL+5, MAIL+9!
^TMP("AGTXCONF"	KT!
^VA(200 - [#200]	AG7ENV+9, IP14+18
^XTMP("AG6P16"	OPTSAV+1, OPTSAV+2, OPTSAV+7, OPTRES+2, OPTRES+4
^XTMP("XPDI"	MAIL+5
^XUSEC(	SINGLE+3, SINGLE+4
^XUSEC("AGZREPORTS"	IP14+17

Label References

Name	Line Occurrences
$$INSTALLD	AG7ENV+39, POST+3, POST+5
$$VCHK	AG7ENV+13, AG7ENV+14, AG7ENV+15, AG7ENV+21
BEFSAV	AG7ENV+39
INDEXAI	IP14+3
IP14	POST+3
IP15	POST+5
KT	BEFSAV+3, BEFSAV+13
MAIL	POST+16
OPTRES	POST+8
OPTSAV	AG7ENV+41
P4	POST+10
SINGLE	MAIL+7
SORRY	AG7ENV+5, AG7ENV+7, AG7ENV+19, AG7ENV+30, AG7ENV+46

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	BEFSAV+1~, BEFSAV+2, OPTRES+1~, OPTRES+3, OPTRES+4, IP14+13~, IP14+14, IP14+17, IP14+18, IP14+19 , IP15+12~, IP15+13, IP15+14*
AG("RPT"	IP14+14*, IP14+15
AG("STD"	IP14+14*, IP14+15, IP14+18, IP14+19
AGB	INDEXAI+17~, INDEXAI+18*, INDEXAI+19, INDEXAI+31
AGE	INDEXAI+17~, INDEXAI+29*, INDEXAI+30, INDEXAI+31
AGI	OPTRES+1~, OPTRES+4*
AGINSTAL	INSTALLD~, INSTALLD+5, INSTALLD+9, INSTALLD+12
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
AGPRE	VCHK~, VCHK+3, VCHK+4
AGQUIT	VCHK~, VCHK+5
AGV	VCHK+2~, VCHK+3, VCHK+4, VCHK+5
AGVER	VCHK~, VCHK+4, VCHK+5
>> D	AG7ENV+24, INSTALLD+6
DA	AG7ENV+23~, INDEXAI+21~, IP14+13~, IP15+15~, IP15+16, P4+3~, P4+4, P4+5*, P4+6
DA(1	INDEXAI+22, INDEXAI+23, INDEXAI+24, INDEXAI+26, IP14+19*
DIC	AG7ENV+23~, AG7ENV+24, IP14+13~, IP14+19, INSTALLD+4~, INSTALLD+6, INSTALLD+9, INSTALLD+12*
DIC("P"	IP14+16*
DIC(0	AG7ENV+24, IP14+16, INSTALLD+6*
DIE	BEFSAV+1~, BEFSAV+4, IP15+15~, IP15+16, P4+3~, P4+7*
DIF	BEFSAV+1~, BEFSAV+4*
DIFQ	SORRY+1!, VCHK+5!
DIFROM	MAIL+1~
DIK	INDEXAI+21~, INDEXAI+24*
DIK(1	INDEXAI+22*
DINUM	IP14+13~, IP14+19*
DR	IP15+15~, IP15+16, P4+3~, P4+7
DT	OPTSAV+2, IP15+14
DUZ	AG7ENV+5, AG7ENV+9, MAIL+6
DUZ(0	AG7ENV+7
I	OPTSAV+3~, OPTSAV+4*, OPTSAV+5, OPTSAV+7
IOM	VCHK+4, VCHK+5
K	SINGLE~, SINGLE+3, SINGLE+4
U	AG7ENV+9, INDEXAI+22, OPTSAV+2, OPTSAV+7, OPTRES+4
X	AG7ENV+9, AG7ENV+10, AG7ENV+17, AG7ENV+18, AG7ENV+19, AG7ENV+24, SORRY~, SORRY+2, BEFSAV+4, BEFSAV+5 , BEFSAV+7, BEFSAV+9, BEFSAV+11, IP14+19, INSTALLD+4~, INSTALLD+5, INSTALLD+9, INSTALLD+12*
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"	AG7ENV+38*
>> XPDDIQ("XPZ2"	AG7ENV+38*
>> XPDENV	AG7ENV+35
>> XPDQUIT	SORRY+2, VCHK+5
Y	AG7ENV+26, SINGLE+1~, SINGLE+2, SINGLE+4, IP15+18, INSTALLD+4~, INSTALLD+8, INSTALLD+9, INSTALLD+11, INSTALLD+12 , INSTALLD+14
>> ZTDESC	IP14+6*
>> ZTDTH	IP14+6*
>> ZTIO	IP14+6*
>> ZTQUEUED	SORRY+3, INDEXAI+20, INDEXAI+26
>> ZTRTN	IP14+6*
>> ZTSK	IP14+8

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

Customize PDF page

Package: IHS Patient Registration

Routine: AG7ENV

Call Graph Total: 16