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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRPRE30

Package: IHS Changes To Lab

Routine: BLRPRE30


Information

BLRPRE30 ; IHS/OIT/MKK - IHS Lab PATCH 1030 PRE/POST/Environment Routine ; [ JUNE 25, 2010 9:58 AM ]

Source Information

Source file <BLRPRE30.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Kernel 5 HOME^%ZIS  ($$HTE,$$NOW)^XLFDT  ($$CJ,$$TRIM)^XLFSTR  ($$PATCH,$$VERSION,BMES)^XPDUTL  SETUP^XQALERT  
IHS Changes To Lab 3 PRESSKEY^BLRGMENU  OKAY^BLRKIDSU  NEWEAG^BLRPR30P  
IHS VA Utilities 3 ^XBCLS  ^XBFMK  $$LOC^XBFUNC  
MailMan 3 CHK^XMA21  CHKGROUP^XMBGRP  ^XMD  
VA Fileman 3 FIND^DIC  DTNOLF^DICRW  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
SORRYFIN ; EP -- "Fin" of Final Fatal Message
ENVICHEK ; Environment Checker
ENVHEADR(CP,RPMSVER,RPMS) ; EP -- Environment Header
PRE ; EP
ENDINSTL(CURPATCH)
SORRYEND(WOTERR,CP) ; EP -- ALL the errors detected during the environment check.
BACKUPS ; EP -- Ask for confirmation of Backup
ADDMESG ; EP
CHKMAILG(CP,MAILGRP,ERRARRAY)
GETREADY ; EP
PASSMESG(WOT) ; EP -- Splash message
BANNERL(LC,ASTR) ; EP -- Stores "Banner" Line in STR array
SORRYHED ; EP -- "Header" of Final Fatal Message
NEEDIT(CP,MODULE,VERSION,PATCH,ERRARRAY)
DEBUG ; EP - Debugging Line Label for environment checker
POST ; EP -- POST INSTALL
MKBANNRL(ASTR) ; EP - MaKe the BANNeR Line
BOKAY(MSG,TAB)
PRESSKEY(TAB,MSGSTR)
SORRY(CP,MSG,MODE,MSG2)
SENDMAIL(SUBJECT) ; EP -- Send MailMan E-mail to LMI group AND Installer
NEEDMSG(MESSAGE) ; EP
NINLMI(CHKDUZ) ; EP -- Check to see if DUZ is NOT part of LMI Mail Group
USERID ; EP - CHECK FOR USER ID
ADDLINE(LC,ASTR,CENTER) ; EP -- Add a line to the STR array; CENTER if requested
SNDALERT(ALERTMSG) ; EP - Send alert to LMI group AND Installer

External References

Name Field # of Occurrence
HOME^%ZIS GETREADY+9
PRESSKEY^BLRGMENU DEBUG+20
OKAY^BLRKIDSU CHKMAILG+4, NEEDIT+22, NEEDIT+25, NEEDIT+32
NEWEAG^BLRPR30P POST+5
FIND^DIC NEEDIT+7
DTNOLF^DICRW GETREADY+10
^DIR DEBUG+12, DEBUG+29, PRESSKEY+8, BACKUPS+9
^XBCLS ENVHEADR+9, PASSMESG+8
^XBFMK DEBUG+8, DEBUG+25, PRESSKEY+5, BACKUPS+5
$$LOC^XBFUNC SORRY+21
$$HTE^XLFDT ENDINSTL+6, BACKUPS+24
$$NOW^XLFDT SENDMAIL+11
$$CJ^XLFSTR ENVHEADR+11, ADDLINE+2, PASSMESG+11, PASSMESG+12, PASSMESG+13
$$TRIM^XLFSTR NEEDMSG+7
CHK^XMA21 NINLMI+11
CHKGROUP^XMBGRP NINLMI+4, CHKMAILG+2
^XMD SENDMAIL+17
$$PATCH^XPDUTL NEEDIT+27
$$VERSION^XPDUTL NEEDIT+11
BMES^XPDUTL PRE+4, POST+12, BOKAY+1, SORRY+41, SENDMAIL+20, SENDMAIL+21, SENDMAIL+22, SORRYEND+13, CHKMAILG+6, BACKUPS+15
, BACKUPS+16, BACKUPS+17, BACKUPS+18, BACKUPS+26, BACKUPS+27
SETUP^XQALERT SNDALERT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEBUG+2
Function Call: WRITE
  • Prompt: "Debug BLRPRE30.",!!
  • Line Location: DEBUG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEBUG+15
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DEBUG+23
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DEBUG+32
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESSKEY+4
Function Call: WRITE
  • Prompt: STARS,!
  • Line Location: ENVHEADR+10
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(STR,IOM)," @","* "),!
  • Line Location: ENVHEADR+11
Function Call: WRITE
  • Prompt: STARS,!
  • Line Location: ENVHEADR+12
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+9
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+10
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),!
  • Line Location: PASSMESG+11
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(MAXIT,IOM)," @","* "),!
  • Line Location: PASSMESG+12
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),!
  • Line Location: PASSMESG+13
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+14
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+15
Function Call: WRITE
  • Prompt: !
  • Line Location: BACKUPS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BACKUPS+10
Routine Call
  • %ZIS
  • Line Location:
    • GETREADY+9
Routine Call
  • DIC
  • Line Location:
    • NEEDIT+7
Routine Call
  • DIR
  • Line Location:
    • DEBUG+12
    • DEBUG+29
    • PRESSKEY+8
    • BACKUPS+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRINSTL("LAB PATCH" ENDINSTL+3, ENDINSTL+5*, ENDINSTL+6*, BACKUPS+22, BACKUPS+23*, BACKUPS+24*
^VA(200 - [#200] USERID+3, ENDINSTL+5, BACKUPS+23, BACKUPS+27

Label References

Name Line Occurrences
$$MKBANNRL BANNERL+2
$$NINLMI SNDALERT+7, SENDMAIL+9
ADDLINE SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+27, SORRY+29, SORRY+32
, SORRY+33, SORRY+34, SORRY+35, SORRY+36, SORRY+38, SORRY+39, SORRYHED+2, SORRYHED+3, SORRYHED+4, SORRYHED+5
, SORRYHED+6, SORRYHED+7, SORRYHED+8, SORRYHED+9, ADDMESG+3, ADDMESG+13, ADDMESG+14, SORRYFIN+1, SORRYFIN+2, SORRYFIN+3
, SORRYFIN+4, SORRYFIN+5, SORRYFIN+6
ADDMESG SORRYEND+9
BACKUPS DEBUG+19
BANNERL SORRY+25, SORRY+26
BOKAY ENVICHEK+17
CHKMAILG ENVICHEK+3, ENVICHEK+4
ENDINSTL POST+10
ENVHEADR ENVICHEK+1
NEEDIT ENVICHEK+6, ENVICHEK+8, ENVICHEK+9, ENVICHEK+10, ENVICHEK+11, ENVICHEK+12, ENVICHEK+13
NEEDMSG NEEDIT+18, NEEDIT+19, NEEDIT+30
PASSMESG BACKUPS+2, BACKUPS+14
POST DEBUG+31
PRE DEBUG+22
SENDMAIL POST+21, SORRY+47
SNDALERT POST+14, SORRY+46
SORRY PRE+8, USERID+1, USERID+3, CHKMAILG+7, NEEDMSG+4, NEEDMSG+8
SORRYEND ENVICHEK+15
SORRYFIN SORRYEND+11
SORRYHED SORRYEND+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALERTMSG SNDALERT~, SNDALERT+3
AROUND PASSMESG+1~, PASSMESG+5*, PASSMESG+11, PASSMESG+13
ASTR ADDLINE~, ADDLINE+1*, ADDLINE+2, BANNERL~, BANNERL+2, MKBANNRL~, MKBANNRL+5, MKBANNRL+7
BCKUPCNT BACKUPS+21~, BACKUPS+22*, BACKUPS+23, BACKUPS+24
CENTER ADDLINE~, ADDLINE+2
CHKDUZ NINLMI~
CP PRE+1~, PRE+7*, PRE+8, PRE+10*, USERID+1, USERID+3, ENVICHEK+1, ENVICHEK+3, ENVICHEK+4, ENVICHEK+6
, ENVICHEK+8, ENVICHEK+9, ENVICHEK+10, ENVICHEK+11, ENVICHEK+12, ENVICHEK+13, ENVICHEK+15, POST+1~, POST+3*, POST+10
, POST+12, POST+14, POST+19, POST+21, DEBUG+1~, ENVHEADR~, ENVHEADR+5, SORRY~, SORRY+46, SORRY+47
, SORRYEND~, CHKMAILG~, CHKMAILG+7, NEEDIT~, NEEDMSG+4, NEEDMSG+8, BACKUPS+1*, BACKUPS+22, BACKUPS+23, BACKUPS+24
CURPATCH ENDINSTL~, ENDINSTL+3, ENDINSTL+5, ENDINSTL+6
>> DEBUG DEBUG+7*, DEBUG+13*, SORRY+43, SNDALERT+1, SENDMAIL+1
DIFQ SORRY+13!
DIFROM SENDMAIL+3~
>> DIR("A" DEBUG+11*, DEBUG+28*, PRESSKEY+7*, BACKUPS+8*
>> DIR("B" DEBUG+10*, DEBUG+27*, BACKUPS+7*
>> DIR(0 DEBUG+9*, DEBUG+26*, PRESSKEY+6*, BACKUPS+6*
>> DUOUT PRESSKEY+9
DUZ USERID+1, USERID+3, ENDINSTL+5, SNDALERT+7, NINLMI+9, SENDMAIL+9, BACKUPS+23, BACKUPS+27
ERRARRAY PRE+2~, ENVICHEK+3, ENVICHEK+4, ENVICHEK+6, ENVICHEK+8, ENVICHEK+9, ENVICHEK+10, ENVICHEK+11, ENVICHEK+12, ENVICHEK+13
, ENVICHEK+15, CHKMAILG~, NEEDIT~
ERRARRAY( NEEDIT+17*, NEEDIT+29*
ERRARRAY("XMB" CHKMAILG+8*
HALFLEN MKBANNRL+1~, MKBANNRL+5*, MKBANNRL+6
HEREYAGO NEEDIT+3~
HEREYAGO("DILIST" NEEDIT+8, NEEDIT+9
INSTCNT ENDINSTL+1~, ENDINSTL+3*, ENDINSTL+5, ENDINSTL+6
IOM ENVHEADR+2, ENVHEADR+11, PASSMESG+9, PASSMESG+10, PASSMESG+11, PASSMESG+12, PASSMESG+13, PASSMESG+14, PASSMESG+15
J MKBANNRL+1~, MKBANNRL+9*, PASSMESG+4*
LC ADDLINE~, ADDLINE+2, ADDLINE+3*, BANNERL~, BANNERL+2, BANNERL+3*
LINECNT SORRY+16~, SORRY+17*, SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+25
, SORRY+26, SORRY+27, SORRY+29, SORRY+32, SORRY+33, SORRY+34, SORRY+35, SORRY+36, SORRY+38, SORRY+39
, SORRYEND+1~, SORRYHED+1*, SORRYHED+2, SORRYHED+3, SORRYHED+4, SORRYHED+5, SORRYHED+6, SORRYHED+7, SORRYHED+8, SORRYHED+9
, ADDMESG+3, ADDMESG+13, ADDMESG+14, SORRYFIN+1, SORRYFIN+2, SORRYFIN+3, SORRYFIN+4, SORRYFIN+5, SORRYFIN+6
>> LRBLNOW SENDMAIL+11*
MAILGRP CHKMAILG~, CHKMAILG+2, CHKMAILG+4, CHKMAILG+7, CHKMAILG+8
MAXIT PASSMESG+1~, PASSMESG+3*, PASSMESG+4*, PASSMESG+5, PASSMESG+6*, PASSMESG+12
MESSAGE SORRY+1~, SORRY+8*, SORRY+11*, SORRY+23, SORRY+29, NEEDMSG~, NEEDMSG+3, NEEDMSG+6, NEEDMSG+7
MGRPIEN NINLMI+1~, NINLMI+4, NINLMI+5, NINLMI+10, CHKMAILG+1~, CHKMAILG+2, CHKMAILG+3
MODE SORRY~, SORRY+5*, SORRY+7, SORRY+11, SORRY+29, SORRY+31, SORRY+45, SORRY+47
MODESTR SORRY+16~, SORRY+45*, SORRY+46
MODULE SORRYEND+1~, SORRYEND+5*, SORRYEND+6*, SORRYEND+7, SORRYEND+8, ADDMESG+3, ADDMESG+5, NEEDIT~, NEEDIT+7, NEEDIT+11
, NEEDIT+17, NEEDIT+19, NEEDIT+27, NEEDIT+29
MSG BOKAY~, BOKAY+1, SORRY~, SORRY+25, SORRY+46
MSG2 SORRY~, SORRY+26
MSGSTR PRESSKEY~, PRESSKEY+2
NAME SORRYEND+1~, SORRYEND+5*, SORRYEND+7*, SORRYEND+8, ADDMESG+3, ADDMESG+5, NEEDIT+1~, NEEDIT+9*, NEEDIT+13, NEEDIT+17
, NEEDIT+29
NAMESYS NEEDIT+5~, NEEDIT+13*, NEEDIT+18, NEEDIT+22
NAMEVER NEEDIT+5~, NEEDIT+13*, NEEDIT+18, NEEDIT+22, NEEDIT+25, NEEDIT+30, NEEDIT+32
PATCH SORRYEND+1~, NEEDIT~, NEEDIT+24, NEEDIT+27, NEEDIT+29, NEEDIT+30, NEEDIT+32
PREREQ PRE+1~
PTR NEEDIT+2~, NEEDIT+8*
QFLG PRE+1~, DEBUG+1~, PRESSKEY+9*
RM MKBANNRL+1~, MKBANNRL+3*, MKBANNRL+5, MKBANNRL+9
ROWSTARS PRE+1~, PRE+14*, SORRY+1~, SORRY+3*, SORRY+19, SORRY+38, SORRYHED+3, SORRYFIN+5
RPMS PRE+1~, PRE+11*, ENVICHEK+1, DEBUG+1~, ENVHEADR~, ENVHEADR+7
RPMSVER PRE+1~, PRE+12*, ENVICHEK+1, DEBUG+1~, ENVHEADR~, ENVHEADR+6
STARS ENVHEADR+1~, ENVHEADR+2*, ENVHEADR+10, ENVHEADR+12
STR PRE+1~, POST+1~, DEBUG+1~, ENVHEADR+1~, ENVHEADR+4*, ENVHEADR+5*, ENVHEADR+6*, ENVHEADR+7*, ENVHEADR+11, SORRY+16~
, SORRY+41, SORRYEND+1~, SORRYEND+13
STR( ADDLINE+2*, BANNERL+2*
STR(1 POST+16*
STR(2 POST+17*
STR(3 POST+18*
STR(4 POST+19*
STR(5 POST+20*
STR1 NEEDIT+3~, NEEDMSG+1~, NEEDMSG+3*, NEEDMSG+4, NEEDMSG+6*, NEEDMSG+8
STR2 NEEDIT+3~, NEEDMSG+1~, NEEDMSG+7*, NEEDMSG+8
STRLEN MKBANNRL+1~, MKBANNRL+8*, MKBANNRL+9
SUBJECT SENDMAIL~, SENDMAIL+13
SYSPATCH NEEDIT+4~, NEEDIT+27*, NEEDIT+28
SYSVER NEEDIT+4~, NEEDIT+11*, NEEDIT+13, NEEDIT+16, NEEDIT+17, NEEDIT+18, NEEDIT+19, NEEDIT+22
TAB POST+1~, POST+7*, PRESSKEY~, PRESSKEY+2, BOKAY~, BOKAY+1
TABSTR PRESSKEY+1~, PRESSKEY+2*, PRESSKEY+7
TMP SORRYEND+1~, ADDMESG+6*, ADDMESG+8*, ADDMESG+9*, ADDMESG+11*, ADDMESG+13
TMPSTR MKBANNRL+1~, MKBANNRL+6*, MKBANNRL+7*, MKBANNRL+8, MKBANNRL+9*, MKBANNRL+10
U USERID+3, ENDINSTL+5, BACKUPS+23, BACKUPS+27
VERSION SORRYEND+1~, SORRYEND+5*, SORRYEND+8*, ADDMESG+5, ADDMESG+6, ADDMESG+8, NEEDIT~, NEEDIT+13, NEEDIT+16, NEEDIT+17
, NEEDIT+22, NEEDIT+27, NEEDIT+29
WOT ADDMESG+1~, ADDMESG+5*, ADDMESG+7, ADDMESG+9, ADDMESG+10, ADDMESG+11, PASSMESG~, PASSMESG+4
WOTERR SORRYEND~
WOTERR( SORRYEND+6, SORRYEND+7, SORRYEND+8, ADDMESG+5
X GETREADY+5*, SENDMAIL+24!
XMDUZ NINLMI+1~, NINLMI+9*, SENDMAIL+15*, SENDMAIL+24!
>> XMMG SENDMAIL+19, SENDMAIL+22
XMSUB SENDMAIL+13*, SENDMAIL+24!
XMTEXT SENDMAIL+14*, SENDMAIL+24!
XMY SENDMAIL+5!, SENDMAIL+24!
XMY( SENDMAIL+9*
XMY("G.LMI" SENDMAIL+6*
XMZ SENDMAIL+16*, SENDMAIL+19, SENDMAIL+21, SENDMAIL+24!
>> XPDABORT GETREADY+7*, ENVICHEK+15, SORRY+9*, BACKUPS+13*
>> XPDDIQ( GETREADY+5*
>> XPDENV DEBUG+17*
>> XPDNM PRE+6, PRE+10, PRE+11, PRE+12, DEBUG+16*
>> XPDNOQUE GETREADY+1*
XQA SNDALERT+10!
XQA( SNDALERT+7*
XQA("G.LMI" SNDALERT+4*
XQAMSG SNDALERT+3*, SNDALERT+10!
Y DEBUG+13, DEBUG+31, NINLMI+10*, SENDMAIL+24!, BACKUPS+12

Marked Items

Name Field # of Occurrence
$T( PRE+7, POST+3, SENDMAIL+15, BACKUPS+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All