Routine: AUPN9926

Information

AUPN9926 ; IHS/OIT/FBD&NKD - AUPN V99.1 PATCH 26 ENVIRONMENT CHECKS AND POST-INIT PROCESS ; 11/07/2017

Source Information

Source file <AUPN9926.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	3	HOME^%ZIS $$CJ^XLFSTR ($$VERSION,BMES)^XPDUTL
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; EP FR KIDS
VCHK(PRE,VER,PAT)	; Check patch level
SINGLE(K)	;----- GET HOLDERS OF A SINGLE KEY K.
GCHK(GL,MSG)	; Check for global
LAST(PKG,VER)	; EP - returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released
DISP(PRE,VER,PAT,V,P,R)	; Display requirement checking results
SORRY(X)	; Environment check failure message
MAIL	;----- SEND INSTALL MAIL MESSAGE
PCHK(PKG,VER,PAT)	; Check specific patch
POST	; EP FR KIDS

External References

Name	Field # of Occurrence
HOME^%ZIS	AUPN9926+4
$$CJ^XLFSTR	AUPN9926+16, AUPN9926+17, AUPN9926+29, SORRY+3, GCHK+5, PCHK+9, DISP+5
^XMD	MAIL+9
$$VERSION^XPDUTL	VCHK+2, LAST+3
BMES^XPDUTL	POST+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUPN9926+11
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUPN9926+13
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUPN9926+16
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_$S($L($P($T(+2),";",5))>4:" Patch "_$P($T(+2),";",5),1:"")_".",IOM),! Line Location: AUPN9926+17
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AUPN9926+29
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(S,IOM) Line Location: GCHK+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(S,IOM) Line Location: PCHK+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(S,IOM) Line Location: DISP+5
Routine Call	%ZIS Line Location: AUPN9926+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	PCHK+5, PCHK+6, PCHK+7, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^TMP("AUPN9926"	MAIL+3!, MAIL+4, MAIL+6, MAIL+10!
^VA(200 - [#200]	AUPN9926+15
^XTMP("XPDI"	MAIL+6
^XUSEC(	SINGLE+1, SINGLE+2

Label References

Name	Line Occurrences
$$LAST	VCHK+5
$$VCHK	AUPN9926+20, AUPN9926+21, AUPN9926+22
DISP	VCHK+3, VCHK+4, VCHK+6, VCHK+7
MAIL	POST+2
SINGLE	MAIL+8
SORRY	AUPN9926+11, AUPN9926+13, AUPN9926+31

Naked Globals

Name	Field # of Occurrence
^(	MAIL+6
^(0	LAST+8, LAST+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MAIL+5, MAIL+6, MAIL+8*
DIFQ	SORRY+1!, VCHK+3!, VCHK+6!
DIFROM	MAIL+2~
DUZ	AUPN9926+11, AUPN9926+15, MAIL+7
DUZ(0	AUPN9926+13
GL	GCHK~, GCHK+1, GCHK+3, GCHK+4, GCHK+6
IOM	AUPN9926+4, AUPN9926+16, AUPN9926+17, AUPN9926+29, SORRY+3, GCHK+5, PCHK+9, DISP+5
K	SINGLE~, SINGLE+1, SINGLE+2
LATEST	LAST+2~, LAST+6, LAST+8, LAST+9, LAST+10
MSG	GCHK~, GCHK+3
P	VCHK+1~, VCHK+3, VCHK+4, VCHK+5*, VCHK+6, VCHK+7, DISP~, DISP+3
PAT	VCHK~, VCHK+3, VCHK+4, VCHK+6, VCHK+7, PCHK~, PCHK+2*, PCHK+3, PCHK+7, DISP~ , DISP+2
PATCH	LAST+2~, LAST+6, LAST+8, LAST+9*, LAST+10
PATIEN	PCHK+1~, PCHK+7*, PCHK+8, PCHK+10
PKG	PCHK~, PCHK+2*, PCHK+3, PCHK+5, LAST~, LAST+3, LAST+4
PKGIEN	PCHK+1~, PCHK+5, PCHK+6, PCHK+7, LAST+2~, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
PRE	VCHK~, VCHK+2, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+2, DISP+3
R	DISP~, DISP+4
S	GCHK+2~, GCHK+3, GCHK+4, GCHK+5, PCHK+1~, PCHK+3, PCHK+8, PCHK+9, DISP+1~, DISP+2* , DISP+3, DISP+4, DISP+5
SUBIEN	LAST+2~, LAST+6, LAST+7, LAST+8, LAST+9
U	AUPN9926+15, LAST+8, LAST+9, LAST+10
V	VCHK+1~, VCHK+2*, VCHK+3, VCHK+4, DISP~, DISP+3
VER	VCHK~, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, PCHK~, PCHK+2, PCHK+3, PCHK+6 , DISP~, DISP+2, LAST~, LAST+3, LAST+5
VERIEN	PCHK+1~, PCHK+6, PCHK+7, LAST+2~, LAST+5, LAST+7, LAST+8, LAST+9
X	AUPN9926+9, AUPN9926+15, AUPN9926+16, SORRY~, SORRY+2
XMDUZ	MAIL+2~, MAIL+7*
XMSUB	MAIL+2~, MAIL+7*
XMTEXT	MAIL+2~, MAIL+7*
XMY	MAIL+2~
XMY(	MAIL+7, SINGLE+2
XMY(1	MAIL+7*
>> XPDA	MAIL+6
>> XPDBLD	MAIL+6
>> XPDDIQ(	AUPN9926+9*
>> XPDDIQ("XPZ1"	AUPN9926+8*
>> XPDDIQ("XPZ2"	AUPN9926+8*
>> XPDENV	AUPN9926+8
>> XPDNM	POST+1
>> XPDQUIT	AUPN9926+20, AUPN9926+21, AUPN9926+22, AUPN9926+29, AUPN9926+31, SORRY+2
Y	SINGLE+2~*

Marked Items

Name	Field # of Occurrence
$T(	AUPN9926+17, MAIL+7

Customize PDF page

Package: IHS Patient

Routine: AUPN9926

Call Graph Total: 4