Routine: BLRKIDS2

Package	Total	Call Graph
Kernel	5	HOME^%ZIS ($$DT,$$HTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$TRIM,$$UP)^XLFSTR ($$ADD,$$LKOPT,OUT)^XPDMENU ($$PATCH,$$VERSION,BMES,MES)^XPDUTL
IHS Changes To Lab	4	(EEP,PRESSKEY)^BLRGMENU PASSMESG^BLRKIDS2 (OKAY,TABMENU)^BLRKIDSU MAILALMI^BLRUTIL3
VA Fileman	4	FIND^DIC DTNOLF^DICRW FILE^DIE $$GET1^DIQ
IHS VA Utilities	3	^XBCLS $$LOC^XBFUNC EN^XBVIDEO

Package	Total	Caller Graph
IHS Changes To Lab	8	BLR35PST BLR7OB1 BLRKIDS2 BLRPRE37 BLRPRE39 BLRPRE40 BLRPRE41 BLRPRE42

Entry Points

Name	Comments	DBIA/ICR reference
EEP	; EP - Ersatz EP
SORRYFIN	; EP -- "Fin" of Final Fatal Message
ENVHEADR(CP,RPMSVER,RPMS)	; EP -- Environment Header ; CP = Patch Number to be installed ; RPMSVER = RPMS Version of Module (e.g.: for Lab, it's 5.2) ; RPMS = RPMS Module (i.e., LA, LR, etc.)
SORRYHED	; EP -- "Header" of Final Fatal Message
NTABLINE(LINE,TAB)	; EP - Newline, then use XPDUTL to display line, tabbed over TAB spaces. Default 5 spaces.
SORRYEND(WOTERR,CP)	; EP -- ALL the errors detected during the environment check. ; WOTERR = Error Array. Pass by Reference. ; CP = Patch Number to be installed
MESCNTR(STR)	; EP - Center a line and use XPDUTL to display it
BLANK	; EP - Blank Line using XPDUTL
ADDMESG	; EP
BOKAY(MSG,TAB)
TABLINE(LINE,TAB)	; EP - Use XPDUTL to display line, tabbed over TAB spaces. Default 5 spaces.
NOSNAPS(QUIET)	; EP - Make certain TAKE SNAPSHOTS field in BLR MASTER CONTROL file is OFF ; QUIET = Boolean. If YES (1), then do NOT print any information. ; If NO (0), then do print information.
BANNERL(LC,ASTR)	; EP -- Stores "Banner" Line in STR array ; LC = Line Counter. Pass by Reference. ; ASTR = String to Add to STR array
ENVIVARS(CP,BLRVERN)	; EP - Setup the Environment variables ; CP = Patch Number to be installed ; BLRVERN = Current Routine Name
SORRY(CP,MSG,MODE,MSG2)
NMESCNTR(STR)	; EP - Newline, then Center a line and use XPDUTL to display it
MKBANNRL(ASTR)	; EP - MaKe the BANNeR Line ; ASTR = String to Manipulate
NLBLANK	; EP - Newline, then Blank Line using XPDUTL
DEONARDY(TOMENU,OPTION,SYNONYM)	; EP - Checks Options ; Returns 1 if TOMENU doesn't exist OR ; if OPTION doesn't exist OR ; if OPTION already on TOMENU with SYNONYM
NEEDIT(CP,MODULE,VERSION,PATCH,ERRARRAY)
WOTCNT(BLRVERN)	; EP - Counter for ^XTMP ; BLRVERN = Current Routine Name
NEEDMSG(MESSAGE)	; EP ; MESSAGE = String to display
PASSMESG(WOT)	; EP -- Splash message ; WOT = String to display
DEBUG(PATCH,ROUTINE)	; EP - Debug Environment/Backup/Post Install sections of ROUTINE
ADDOPTS(TOMENU,OPTION,SYNONYM,TAB)	; EP - Add new OPTION to TOMENU with SYNONYM synonym
ADDLINE(LC,ASTR,CENTER)	; EP -- Add a line to the STR array; CENTER if requested ; LC = Line Counter. Pass by Reference. ; ASTR = String to Add to STR array ; CENTER = Boolean. If YES, then Center ASTR, else don't. ;
INACTOPT(SEED,OUTMSG,EXCPTION)	; EP - Inactivate/Activate options. ; If the OUTMSG variable is NOT NULL, then the the OUT^XPDMENU routine ; will put the string into the OUT OF ORDER MESSAGE field of the options.

External References

Name	Field # of Occurrence
HOME^%ZIS	ENVIVARS+30
EEP^BLRGMENU	EEP+1
PRESSKEY^BLRGMENU	DEBUG+22, DEBUG+28, DEBUG+34, DEBUG+37
PASSMESG^BLRKIDS2	DEBUG+16, DEBUG+24, DEBUG+30, DEBUG+36
OKAY^BLRKIDSU	NEEDIT+28, NEEDIT+31, NEEDIT+38
TABMENU^BLRKIDSU	NOSNAPS+19
MAILALMI^BLRUTIL3	SORRY+50
FIND^DIC	NEEDIT+13
DTNOLF^DICRW	ENVIVARS+31
FILE^DIE	NOSNAPS+12
$$GET1^DIQ	ENVIVARS+20, NOSNAPS+7, NOSNAPS+19
^XBCLS	ENVHEADR+15, DEBUG+16, DEBUG+24, DEBUG+30, DEBUG+36
$$LOC^XBFUNC	SORRY+26
EN^XBVIDEO	PASSMESG+6
$$DT^XLFDT	ENVIVARS+4, ENVIVARS+8, WOTCNT+5
$$HTE^XLFDT	ENVHEADR+13
$$HTFM^XLFDT	ENVIVARS+8
$$NOW^XLFDT	ENVIVARS+10
$$CJ^XLFSTR	ENVHEADR+13, ENVHEADR+17, ENVHEADR+18, MESCNTR+1, NMESCNTR+1, PASSMESG+15, PASSMESG+16, PASSMESG+17, ADDLINE+6
$$TRIM^XLFSTR	NEEDMSG+9
$$UP^XLFSTR	ENVHEADR+13, ADDOPTS+16
$$ADD^XPDMENU	ADDOPTS+10
$$LKOPT^XPDMENU	DEONARDY+6, DEONARDY+9
OUT^XPDMENU	INACTOPT+14
$$PATCH^XPDUTL	NEEDIT+33
$$VERSION^XPDUTL	NEEDIT+17
BMES^XPDUTL	BOKAY+4, NLBLANK+1, NTABLINE+2, NOSNAPS+17, NOSNAPS+20, SORRY+46, SORRYEND+15, ADDOPTS+9
MES^XPDUTL	BLANK+1, TABLINE+2, MESCNTR+1, NMESCNTR+1, ADDOPTS+12, ADDOPTS+15, ADDOPTS+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: STARS,! Line Location: ENVHEADR+16
Function Call: WRITE	Prompt: $TR($$CJ^XLFSTR(STR,IOM)," @","* "),! Line Location: ENVHEADR+17
Function Call: WRITE	Prompt: $TR($$CJ^XLFSTR(TIMESTR,IOM)," @","* "),! Line Location: ENVHEADR+18
Function Call: WRITE	Prompt: STARS,! Line Location: ENVHEADR+19
Function Call: WRITE	Prompt: $J("",80),! Line Location: PASSMESG+5
Function Call: WRITE	Prompt: !! Line Location: PASSMESG+12
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","*"),! Line Location: PASSMESG+13
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","*"),! Line Location: PASSMESG+14
Function Call: WRITE	Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),! Line Location: PASSMESG+15
Function Call: WRITE	Prompt: $TR($$CJ^XLFSTR(MAXIT,IOM)," @","* "),! Line Location: PASSMESG+16
Function Call: WRITE	Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),! Line Location: PASSMESG+17
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","*"),! Line Location: PASSMESG+18
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","*"),! Line Location: PASSMESG+19
Function Call: WRITE	Prompt: !!,"DEBUG: ENVCHK^",ROUTINE," Completed." Line Location: DEBUG+20
Function Call: WRITE	Prompt: !!,ROWPLUS Line Location: DEBUG+21
Function Call: WRITE	Prompt: !!,"DEBUG: BACKUP^",ROUTINE," Completed." Line Location: DEBUG+26
Function Call: WRITE	Prompt: !!,ROWPLUS Line Location: DEBUG+27
Function Call: WRITE	Prompt: !!,"DEBUG: POST^",ROUTINE," Completed." Line Location: DEBUG+32
Function Call: WRITE	Prompt: !!,ROWPLUS Line Location: DEBUG+33
Routine Call	%ZIS Line Location: ENVIVARS+30
Routine Call	DIC Line Location: NEEDIT+13
Routine Call	DIE Line Location: NOSNAPS+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(9.4 - [#9.4]	FIND^DIC
^BLRSITE - [#9009029]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRSITE - [#9009029]	NOSNAPS+6
^DIC(19 - [#19]	DEONARDY+12, DEONARDY+15, INACTOPT+10
^XTMP(	ENVIVARS+8, ENVIVARS+9, ENVIVARS+10, WOTCNT+7, WOTCNT+8

Label References

Name	Line Occurrences
$$DEONARDY	ADDOPTS+1
$$MKBANNRL	BANNERL+4
$$WOTCNT	ENVIVARS+5
@(	DEBUG+18, DEBUG+25, DEBUG+31
ADDLINE	SORRY+23, SORRY+24, SORRY+25, SORRY+26, SORRY+27, SORRY+28, SORRY+29, SORRY+32, SORRY+34, SORRY+37 , SORRY+38, SORRY+39, SORRY+40, SORRY+41, SORRY+43, SORRY+44, SORRYHED+2, SORRYHED+3, SORRYHED+4, SORRYHED+5 , SORRYHED+6, SORRYHED+7, SORRYHED+8, SORRYHED+9, ADDMESG+3, ADDMESG+17, ADDMESG+20, ADDMESG+21, SORRYFIN+1, SORRYFIN+2 , SORRYFIN+3, SORRYFIN+4, SORRYFIN+5, SORRYFIN+6, SORRYFIN+7
ADDMESG	SORRYEND+11
BANNERL	SORRY+30, SORRY+31
NEEDMSG	NEEDIT+24, NEEDIT+25, NEEDIT+36
SORRY	ENVIVARS+14, ENVIVARS+19, ENVIVARS+20, NEEDMSG+6, NEEDMSG+10
SORRYFIN	SORRYEND+13
SORRYHED	SORRYEND+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AROUND	PASSMESG+3~, PASSMESG+9*, PASSMESG+15, PASSMESG+17
ASTR	ADDLINE~, ADDLINE+5*, ADDLINE+6, BANNERL~, BANNERL+4, MKBANNRL~, MKBANNRL+7, MKBANNRL+9
BLRVERN	ENVIVARS~, ENVIVARS+5, ENVIVARS+8, ENVIVARS+9, ENVIVARS+10, WOTCNT~, WOTCNT+7, WOTCNT+8, DEBUG+10*
CENTER	ADDLINE~, ADDLINE+6
CNT	WOTCNT+3~, WOTCNT+7, WOTCNT+8, WOTCNT+9, NOSNAPS+3~, NOSNAPS+5, NOSNAPS+9*, NOSNAPS+14
CNT(	NOSNAPS+9*, NOSNAPS+19
CP	ENVHEADR~, ENVHEADR+9, ENVIVARS~, ENVIVARS+14, ENVIVARS+19, ENVIVARS+20, NEEDIT~, NEEDMSG+6, NEEDMSG+10, SORRY~ , SORRY+50, SORRYEND~, DEBUG+8*
>> CPSTR	ENVIVARS+8, DEBUG+9*
CRTLINE	PASSMESG+3~, PASSMESG+5*
>> DEBUG	SORRY+48, DEBUG+11*
DESC	NOSNAPS+3~
DIFQ	SORRY+18!
>> DILOCKTM	DEBUG+1
>> DISYS	DEBUG+1
DT	DEBUG+1
DTIME	DEBUG+1
DUZ	ENVIVARS+9, ENVIVARS+19, ENVIVARS+20, DEBUG+1
ERRARRAY	NEEDIT~
ERRARRAY(	NEEDIT+23, NEEDIT+35
EXCPTION	INACTOPT~, INACTOPT+11
EXCPTION(	INACTOPT+12
FDA	NOSNAPS+3~, NOSNAPS+10!
FDA(9009029	NOSNAPS+11*
HALFLEN	MKBANNRL+3~, MKBANNRL+7*, MKBANNRL+8
HEREYAGO	NEEDIT+9~
HEREYAGO("DILIST"	NEEDIT+14, NEEDIT+15
IEN	NOSNAPS+3~, NOSNAPS+5, NOSNAPS+6, NOSNAPS+7, NOSNAPS+9, NOSNAPS+11, NOSNAPS+18, NOSNAPS+19
IO	DEBUG+1
>> IOBS	DEBUG+1
IOF	DEBUG+1
IOM	ENVHEADR+6, ENVHEADR+17, ENVHEADR+18, MESCNTR+1, NMESCNTR+1, PASSMESG+13, PASSMESG+14, PASSMESG+15, PASSMESG+16, PASSMESG+17 , PASSMESG+18, PASSMESG+19, DEBUG+1, DEBUG+14
ION	DEBUG+1
>> IOS	DEBUG+1
IOSL	DEBUG+1
IOST	DEBUG+1
>> IOT	DEBUG+1
>> IOXY	DEBUG+1
J	PASSMESG+8, MKBANNRL+3~, MKBANNRL+11
LC	ADDLINE~, ADDLINE+6, ADDLINE+7, BANNERL~, BANNERL+4, BANNERL+5
LINE	TABLINE~, TABLINE+2, NTABLINE~, NTABLINE+2
LINECNT	SORRY+21~, SORRY+22, SORRY+23, SORRY+24, SORRY+25, SORRY+26, SORRY+27, SORRY+28, SORRY+29, SORRY+30 , SORRY+31, SORRY+32, SORRY+34, SORRY+37, SORRY+38, SORRY+39, SORRY+40, SORRY+41, SORRY+43, SORRY+44 , SORRYEND+4~, SORRYHED+1, SORRYHED+2, SORRYHED+3, SORRYHED+4, SORRYHED+5, SORRYHED+6, SORRYHED+7, SORRYHED+8, SORRYHED+9 , ADDMESG+3, ADDMESG+17, ADDMESG+20, ADDMESG+21, SORRYFIN+1, SORRYFIN+2, SORRYFIN+3, SORRYFIN+4, SORRYFIN+5, SORRYFIN+6 , SORRYFIN+7
MAXIT	PASSMESG+3~, PASSMESG+7, PASSMESG+8, PASSMESG+9, PASSMESG+10*, PASSMESG+16
MESSAGE	NEEDMSG~, NEEDMSG+5, NEEDMSG+8, NEEDMSG+9, SORRY+6~, SORRY+13, SORRY+16, SORRY+28, SORRY+34
MODE	SORRY~, SORRY+10*, SORRY+12, SORRY+16, SORRY+34, SORRY+36, SORRY+50
MODESTR	SORRY+21~
MODULE	NEEDIT~, NEEDIT+13, NEEDIT+17, NEEDIT+23, NEEDIT+25, NEEDIT+33, NEEDIT+35, NEEDIT+36, SORRYEND+4~, SORRYEND+8* , SORRYEND+9*, SORRYEND+10, SORRYEND+11, ADDMESG+3, ADDMESG+5
MSG	BOKAY~, BOKAY+4, SORRY~, SORRY+30
MSG2	SORRY~, SORRY+31
NAME	NEEDIT+7~, NEEDIT+15, NEEDIT+19, NEEDIT+23, NEEDIT+35, SORRYEND+4~, SORRYEND+8, SORRYEND+10*, SORRYEND+11, ADDMESG+3 , ADDMESG+5
NAMESYS	NEEDIT+11~, NEEDIT+19*, NEEDIT+24, NEEDIT+28
NAMEVER	NEEDIT+11~, NEEDIT+19*, NEEDIT+24, NEEDIT+28, NEEDIT+31, NEEDIT+36, NEEDIT+38
OPTIEN	DEONARDY+5~, DEONARDY+9*, DEONARDY+10, DEONARDY+15
OPTION	ADDOPTS~, ADDOPTS+1, ADDOPTS+6, ADDOPTS+10, ADDOPTS+12, ADDOPTS+15, DEONARDY~, DEONARDY+9, INACTOPT+7~, INACTOPT+9* , INACTOPT+10*, INACTOPT+11, INACTOPT+12, INACTOPT+14
OUTMSG	INACTOPT~, INACTOPT+14
PATCH	NEEDIT~, NEEDIT+30, NEEDIT+33, NEEDIT+35, NEEDIT+36, NEEDIT+38, SORRYEND+4~, DEBUG~, DEBUG+1, DEBUG+8 , DEBUG+9, DEBUG+12
>> PATCHNUM	DEBUG+8*
PTR	NEEDIT+8~, NEEDIT+14*
QUIET	NOSNAPS~, NOSNAPS+15
RM	MKBANNRL+3~, MKBANNRL+5*, MKBANNRL+7, MKBANNRL+11
ROUTINE	DEBUG~, DEBUG+1, DEBUG+10, DEBUG+18, DEBUG+20, DEBUG+25, DEBUG+26, DEBUG+31, DEBUG+32
>> ROWPLUS	DEBUG+14*, DEBUG+21, DEBUG+27, DEBUG+33
ROWSTARS	ENVIVARS+6, SORRY+6~, SORRY+8, SORRY+24, SORRY+43, SORRYHED+3, SORRYFIN+6
RPMS	ENVHEADR~, ENVHEADR+11, ENVIVARS+16*
RPMSVER	ENVHEADR~, ENVHEADR+10, ENVIVARS+17*
SEED	INACTOPT~, INACTOPT+9, INACTOPT+10
SEEDLEN	INACTOPT+7~, INACTOPT+9*, INACTOPT+10
STARS	ENVHEADR+5~, ENVHEADR+6*, ENVHEADR+16, ENVHEADR+19
STR	ENVHEADR+5~, ENVHEADR+8, ENVHEADR+9, ENVHEADR+10, ENVHEADR+11, ENVHEADR+13, ENVHEADR+17, MESCNTR~, MESCNTR+1, NMESCNTR~ , NMESCNTR+1, SORRY+21~, SORRY+46, SORRY+50, SORRYEND+4~, SORRYEND+15
STR(	ADDLINE+6, BANNERL+4
STR1	NEEDIT+9~, NEEDMSG+3~, NEEDMSG+5, NEEDMSG+6, NEEDMSG+8, NEEDMSG+10
STR2	NEEDIT+9~, NEEDMSG+3~, NEEDMSG+9*, NEEDMSG+10
STRLEN	MKBANNRL+3~, MKBANNRL+10*, MKBANNRL+11
SYNIEN	DEONARDY+5~, DEONARDY+12*, DEONARDY+15
SYNONYM	ADDOPTS~, ADDOPTS+1, ADDOPTS+7, ADDOPTS+10, DEONARDY~, DEONARDY+12
SYSPATCH	NEEDIT+10~, NEEDIT+33*, NEEDIT+34
SYSVER	NEEDIT+10~, NEEDIT+17*, NEEDIT+19, NEEDIT+22, NEEDIT+23, NEEDIT+24, NEEDIT+25, NEEDIT+28
TAB	BOKAY~, BOKAY+4, TABLINE~, TABLINE+1, TABLINE+2, NTABLINE~, NTABLINE+1, NTABLINE+2, ADDOPTS~, ADDOPTS+5* , ADDOPTS+12, ADDOPTS+15, ADDOPTS+16
TIMESTR	ENVHEADR+5~, ENVHEADR+13*, ENVHEADR+18
TMP	SORRYEND+4~, ADDMESG+6, ADDMESG+10, ADDMESG+11, ADDMESG+14, ADDMESG+17, ADDMESG+18*, ADDMESG+20
TMPSTR	MKBANNRL+3~, MKBANNRL+8, MKBANNRL+9, MKBANNRL+10, MKBANNRL+11*, MKBANNRL+12
TODAY	ENVIVARS+4, ENVIVARS+9, ENVIVARS+10, WOTCNT+3~, WOTCNT+5, WOTCNT+7, WOTCNT+8
TOIEN	DEONARDY+5~, DEONARDY+6*, DEONARDY+7, DEONARDY+12, DEONARDY+15
TOMENU	ADDOPTS~, ADDOPTS+1, ADDOPTS+8, ADDOPTS+10, ADDOPTS+12, ADDOPTS+15, DEONARDY~, DEONARDY+6
U	DEBUG+1
VERSION	NEEDIT~, NEEDIT+19, NEEDIT+22, NEEDIT+23, NEEDIT+28, NEEDIT+33, NEEDIT+35, SORRYEND+4~, SORRYEND+8, SORRYEND+11 , ADDMESG+5, ADDMESG+6, ADDMESG+10
WOT	PASSMESG~, PASSMESG+8, ADDMESG+1~, ADDMESG+5*, ADDMESG+7, ADDMESG+11, ADDMESG+14, ADDMESG+18
>> WOTCNT	ENVIVARS+5*, ENVIVARS+9, ENVIVARS+10
WOTERR	SORRYEND~
WOTERR(	SORRYEND+9, SORRYEND+10, SORRYEND+11, ADDMESG+5
WOTWRONG	ADDMESG+1~, ADDMESG+7*, ADDMESG+9, ADDMESG+13, ADDMESG+16
>> X	ENVIVARS+26, ADDOPTS+6, ADDOPTS+7, ADDOPTS+8, ADDOPTS+9, ADDOPTS+10*, ADDOPTS+12, ADDOPTS+13, ADDOPTS+16
>> XPARSYS	DEBUG+1
>> XPDABORT	ENVIVARS+28, SORRY+14
>> XPDDIQ(	ENVIVARS+26*
>> XPDENV	DEBUG+13*
>> XPDNM	ENVIVARS+14, ENVIVARS+16, ENVIVARS+17, DEBUG+12*
>> XPDNOQUE	ENVIVARS+22*
>> XQXFLG	DEBUG+1
>> XUMF	ENVIVARS+12*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRKIDS2

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: