Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLRKIDS2

Package: IHS Changes To Lab

Routine: BLRKIDS2


Information

BLRKIDS2 ; IHS/OIT/MKK - IHS Lab KIDS utilities, part 2 ; 20-May-2016 07:03 ; MKK

Source Information

Source file <BLRKIDS2.m>

Call Graph

Call Graph Total: 16

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  

Caller Graph

Caller Graph Total: 8

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All