Routine: AUMSCB

Information

AUMSCB ;IHS/OIT/NKD - SCB UPDATE ENVIRONMENT CHECK/PRE/POST INSTALL 3/08/2013 ;

Source Information

Source file <AUMSCB.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	2	$$CJ^XLFSTR $$VERSION^XPDUTL
Table Maintenance	1	POST^AUMSCBD
VA Fileman	1	IX^DIC

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Table Maintenance	2	AUM16P2 AUM16P3

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; EP FR KIDS ; IHS/OIT/NKD AUM14.02 REMOVE DATA FROM AUMDATA W/O CLEANING UP CONTROL CHARS - START OLD CODE
COUNT	; COUNT THE NUMBER OF ENTRIES FOR EACH TABLE
VCHK(AUMPRE,AUMVER,AUMPAT)	; Check patch level
GCHK(AUMGL,AUMMSG)	; Check for global
LAST(PKG,VER)	; EP - returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released
DISP(AUMPRE,AUMVER,AUMPAT,AUMV,AUMP,AUMR)	; Display requirement checking results
SORRY(X)	;
PCHK(PKG,VER,PAT)	; Check specific patch
POST	; EP FR KIDS

External References

Name	Field # of Occurrence
POST^AUMSCBD	POST+3
IX^DIC	AUMSCB+22
$$CJ^XLFSTR	AUMSCB+12, AUMSCB+13, AUMSCB+24, AUMSCB+25, AUMSCB+29, AUMSCB+31, SORRY+3, GCHK+6, PCHK+10, DISP+6
$$VERSION^XPDUTL	VCHK+2, LAST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUMSCB+7
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: AUMSCB+9
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: AUMSCB+12
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: AUMSCB+13
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUM"" prefix.",IOM) Line Location: AUMSCB+24
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: AUMSCB+25
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: AUMSCB+29
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: AUMSCB+31
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(AUMS,IOM) Line Location: GCHK+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(AUMS,IOM) Line Location: PCHK+10
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(AUMS,IOM) Line Location: DISP+6
Routine Call	DIC Line Location: AUMSCB+22

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUMDATA - [#9003103]	PRE+5!, COUNT+2, COUNT+4
^AUMDATA(0	PRE+6*
^DIC(9.4 - [#9.4]	AUMSCB+23, PCHK+5, PCHK+6, PCHK+7, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^TMP("AUM"	POST+1!, POST+4!, COUNT+6*
^VA(200 - [#200]	AUMSCB+11

Label References

Name	Line Occurrences
$$LAST	VCHK+5
$$PCHK	AUMSCB+17
$$VCHK	AUMSCB+15, AUMSCB+16, AUMSCB+18
COUNT	POST+2
DISP	VCHK+3, VCHK+4, VCHK+6, VCHK+7
SORRY	AUMSCB+7, AUMSCB+9, AUMSCB+26

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AUMA	COUNT+1~, COUNT+3, COUNT+5
AUMC	COUNT+1~, COUNT+5*
AUMGL	GCHK~, GCHK+1, GCHK+3, GCHK+4, GCHK+7
AUMI	PRE+4~, PRE+5, PRE+6, COUNT+1~, COUNT+2*, COUNT+4
AUMMSG	GCHK~, GCHK+3
AUMP	VCHK+1~, VCHK+3, VCHK+4, VCHK+5*, VCHK+6, VCHK+7, DISP~, DISP+4
AUMPAT	VCHK~, VCHK+3, VCHK+4, VCHK+6, VCHK+7, DISP~, DISP+3
AUMPRE	VCHK~, VCHK+2, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+3, DISP+4
AUMR	DISP~, DISP+5
AUMS	GCHK+2~, GCHK+3, GCHK+4, GCHK+6, PCHK+1~, PCHK+3, PCHK+8, PCHK+10, DISP+2~, DISP+3* , DISP+4, DISP+5, DISP+6
AUMT	COUNT+1~, COUNT+3, COUNT+4, COUNT+5*, COUNT+6
AUMV	VCHK+1~, VCHK+2*, VCHK+3, VCHK+4, DISP~, DISP+4
AUMVER	VCHK~, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+3
>> D	AUMSCB+21*
DA	AUMSCB+20~
DIC	AUMSCB+20~, AUMSCB+21*
DIC(0	AUMSCB+21*
DIFQ	SORRY+1!, VCHK+3!, VCHK+6!
DUZ	AUMSCB+7, AUMSCB+11
DUZ(0	AUMSCB+9
IOM	AUMSCB+12, AUMSCB+13, AUMSCB+24, AUMSCB+25, AUMSCB+29, AUMSCB+31, SORRY+3, GCHK+6, PCHK+10, DISP+6
LATEST	LAST+2~, LAST+6, LAST+8, LAST+9, LAST+10
PAT	PCHK~, PCHK+2*, PCHK+3, PCHK+7
PATCH	LAST+2~, LAST+6, LAST+8, LAST+9*, LAST+10
PATIEN	PCHK+1~, PCHK+7*, PCHK+8, PCHK+11
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
SUBIEN	LAST+2~, LAST+6, LAST+7, LAST+8, LAST+9
U	AUMSCB+11, LAST+8, LAST+9, LAST+10, COUNT+4
VER	PCHK~, PCHK+2, PCHK+3, PCHK+6, LAST~, LAST+3, LAST+5
VERIEN	PCHK+1~, PCHK+6, PCHK+7, LAST+2~, LAST+5, LAST+7, LAST+8, LAST+9
X	AUMSCB+11, AUMSCB+12, AUMSCB+21, SORRY~, SORRY+2
>> XPDDIQ("XPZ1"	AUMSCB+36*
>> XPDDIQ("XPZ2"	AUMSCB+36*
>> XPDENV	AUMSCB+33
>> XPDQUIT	AUMSCB+15, AUMSCB+16, AUMSCB+17, AUMSCB+18, AUMSCB+29, SORRY+2*
>> Y	AUMSCB+23

Customize PDF page

Package: Table Maintenance

Routine: AUMSCB

Call Graph Total: 4

Caller Graph Total: 2