BLRKIDS2 ; IHS/OIT/MKK - IHS Lab KIDS utilities, part 2 ; 20-May-2016 07:03 ; MKK
Source file <BLRKIDS2.m>
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 |
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. |
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^DIC(9.4 - [#9.4] | FIND^DIC |
^BLRSITE - [#9009029] | GET1^DIQ |
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* |
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 |
>> | 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* |