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 |  Marked Items |  All
Print Page as PDF
Routine: BLRPRE33

Package: IHS Changes To Lab

Routine: BLRPRE33


Information

BLRPRE33 ; IHS/MSC/MKK - IHS Lab Patch Pre/Post/Environment Routine ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRPRE33.m>

Call Graph

Call Graph Total: 22

Package Total Call Graph
Kernel 6 HOME^%ZIS  ($$DT,$$FMDIFF,$$HTE,$$HTFM,$$NOW)^XLFDT  ($$TRIM,$$UP)^XLFSTR  (EXIT,INIT,TITLE)^XPDID  ($$ADD,$$DELETE,$$LKOPT)^XPDMENU  (BMES,MES)^XPDUTL  
VA Fileman 6 ($$FIND1,FIND)^DIC  DTNOLF^DICRW  FILE^DIE  ^DIK  $$GET1^DIQ  ^DIR  
IHS Changes To Lab 5 PRESSKEY^BLRGMENU  (OKAY,TABMENU)^BLRKIDSU  EMAIL^BLRLTRRR  (ADDLINE,BOKAY,ENDINSTL,ENVHEADR,NEEDIT,PASSMESG,SORRY,SORRYFIN,SORRYHED)^BLRPRE31  (MAILALMI,SNDALERT)^BLRUTIL3  
IHS Standard Terminology 1 $$SEARCH^BSTSAPI  
IHS VA Utilities 1 ^XBFMK  
MailMan 1 CHKGROUP^XMBGRP  
Toolkit 1 EN^XPAR  
Uncategorized 1 (DISABLE,ENABLE)^%NOJRN  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Changes To Lab 4 BLRPRE35  BLRPRE36  BLRPRE37  BLRPRE38  

Entry Points

Name Comments DBIA/ICR reference
NEWKEYLA ; EP - Add LRSUPER Security Key to LA MI VERIFY AUTO option
NOSNAPS ; EP - Make certain TAKE SNAPSHOTS field in BLR MASTER CONTROL file is OFF
USERID ; EP - CHECK FOR USER ID
ENVICHEK ; Environment Checker
GLUCACHE ; EP - Make sure IHS Terminology Server has GLUCOMETER in its cache
PRE ; EP -- Ask for confirmation of Backup
TURNOFF ; EP - LA7HDR entry in file 62.48 must be set to INACTIVE
SORRYEND(WOTERR,CP) ; EP -- ALL the errors detected during the environment check.
NEWKEYON ; EP - Make sure new BLRRLZ Security Key is added to BLRREFLABMENU option
CHKLABMG ; EP - Check Lab Mail Groups
CHKMAILG(CP,MAILGRP,ERRARRAY)
GETREADY ; EP
FILESDEL ; EP - The following deletions are necessatry in order to prevent errors during installation
ADDMESG ; EP
NOTOKAY(MSG,TAB)
DEBUG ; EP - Debugging Line Label for environment checker
POST ; EP -- POST INSTALL
VALIDMBR(MGRPIEN) ; EP - Determine if Mail Group has at least one valid member
COPYPROT ; EP - Have to copy the entries for LR7O ALL EVSEND RESULTS Protocol
ADDHLOPT ; EP - Add new option to the BLRREFLABMENU
ADDOPTS ; EP - Add new options to the BLRMENU
WOTCNT() ; EP - Counter for ^XTMP

External References

Name Field # of Occurrence
DISABLE^%NOJRN FILESDEL+5
ENABLE^%NOJRN FILESDEL+25
HOME^%ZIS GETREADY+9
PRESSKEY^BLRGMENU DEBUG+22
OKAY^BLRKIDSU CHKMAILG+9, CHKMAILG+11, POST+18, TURNOFF+14
TABMENU^BLRKIDSU NOSNAPS+16
EMAIL^BLRLTRRR POST+32
ADDLINE^BLRPRE31 ADDMESG+3, ADDMESG+17, ADDMESG+20, ADDMESG+21
BOKAY^BLRPRE31 GETREADY+27, PRE+38
ENDINSTL^BLRPRE31 POST+38
ENVHEADR^BLRPRE31 GETREADY+12
NEEDIT^BLRPRE31 GETREADY+18, GETREADY+19, GETREADY+20, GETREADY+21
PASSMESG^BLRPRE31 PRE+14, PRE+28
SORRY^BLRPRE31 ENVICHEK+18, USERID+1, USERID+3, CHKMAILG+6, CHKMAILG+13
SORRYFIN^BLRPRE31 SORRYEND+10
SORRYHED^BLRPRE31 SORRYEND+3
MAILALMI^BLRUTIL3 POST+53
SNDALERT^BLRUTIL3 TURNOFF+18
$$SEARCH^BSTSAPI GLUCACHE+3
$$FIND1^DIC TURNOFF+3
FIND^DIC COPYPROT+2
DTNOLF^DICRW GETREADY+10
FILE^DIE TURNOFF+11, NEWKEYON+7, NEWKEYLA+7, NOSNAPS+10
^DIK FILESDEL+21
$$GET1^DIQ USERID+3, CHKLABMG+3, VALIDMBR+4, VALIDMBR+5, VALIDMBR+6, VALIDMBR+7, PRE+30, PRE+38, NOSNAPS+5, NOSNAPS+16
^DIR DEBUG+33, PRE+23
^XBFMK DEBUG+29, PRE+17, FILESDEL+18, TURNOFF+8, NEWKEYON+5, NEWKEYLA+5
$$DT^XLFDT ENVICHEK+7, ENVICHEK+10, WOTCNT+4, COPYPROT+10, POST+7
$$FMDIFF^XLFDT VALIDMBR+8
$$HTE^XLFDT PRE+36, PRE+50
$$HTFM^XLFDT ENVICHEK+10, COPYPROT+10
$$NOW^XLFDT ENVICHEK+12, VALIDMBR+8, POST+44, POST+55
$$TRIM^XLFSTR DEBUG+3, DEBUG+45
$$UP^XLFSTR CHKLABMG+3, PRE+50, ADDOPTS+9, ADDHLOPT+9
CHKGROUP^XMBGRP CHKMAILG+3
EN^XPAR POST+35
EXIT^XPDID DEBUG+35
INIT^XPDID PRE+9, PRE+41
TITLE^XPDID PRE+10, PRE+42
$$ADD^XPDMENU DEBUG+38, ADDOPTS+5, ADDHLOPT+5
$$DELETE^XPDMENU POST+15
$$LKOPT^XPDMENU NEWKEYON+2, NEWKEYLA+2
BMES^XPDUTL PRE+12, PRE+29, PRE+30, PRE+31, PRE+44, PRE+50, POST+10, POST+40, POST+42, ADDOPTS+4
, ADDHLOPT+4, TURNOFF+6, NOSNAPS+14, NOSNAPS+17, NOTOKAY+1, SORRYEND+12
MES^XPDUTL GETREADY+14, GETREADY+23, POST+11, POST+19, POST+36, ADDOPTS+6, ADDOPTS+8, ADDOPTS+9, ADDOPTS+11, ADDHLOPT+6
, ADDHLOPT+8, ADDHLOPT+9, ADDHLOPT+11, TURNOFF+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEBUG+2
Function Call: WRITE
  • Prompt: "Debug Begins:",$$TRIM^XLFSTR($P($T(+1),";"),"LR"," "),!!
  • Line Location: DEBUG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEBUG+17
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DEBUG+27
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DEBUG+40
Function Call: WRITE
  • Prompt: !!,"Debug Ends:",$$TRIM^XLFSTR($P($T(+1),";"),"LR"," ")
  • Line Location: DEBUG+45
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRE+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PRE+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRE+43
Function Call: WRITE
  • Prompt: !,?4,FILENUM
  • Line Location: FILESDEL+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: FILESDEL+16
Function Call: WRITE
  • Prompt: !,?4
  • Condition for execution: $X>75
  • Line Location: FILESDEL+16
Function Call: WRITE
  • Prompt: !
  • Line Location: FILESDEL+23
Routine Call
  • %ZIS
  • Line Location:
    • GETREADY+9
Routine Call
  • DIC
  • Line Location:
    • COPYPROT+2
Routine Call
  • DIC
  • Line Location:
    • TURNOFF+3
Routine Call
  • DIE
  • Line Location:
    • TURNOFF+11
    • NEWKEYON+7
    • NEWKEYLA+7
    • NOSNAPS+10
Routine Call
  • DIR
  • Line Location:
    • DEBUG+33
    • PRE+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND^DIC
^VA(200 - [#200] GET1^DIQ
3.81 GET1^DIQ
^LAHM(62.48 - [#62.48] FIND1^DIC
^BLRSITE - [#9009029] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRINSTL("LAB PATCH" PRE+34, PRE+35*, PRE+36*
^BLRSITE - [#9009029] NOSNAPS+4
^LAB( FILESDEL+15
^ORD(101 - [#101] COPYPROT+11
^VA(200 - [#200] PRE+35
^XMB(3.8 - [#3.8] VALIDMBR+3
^XTMP( ENVICHEK+10*, ENVICHEK+11*, ENVICHEK+12*, WOTCNT+6, WOTCNT+7*, POST+44*, POST+55*
^XTMP("LR7O ALL EVSEND RESULTS" COPYPROT+10*, COPYPROT+11*

Label References

Name Line Occurrences
$$VALIDMBR CHKMAILG+11
$$WOTCNT ENVICHEK+8, POST+8
ADDHLOPT POST+24
ADDMESG SORRYEND+8
ADDOPTS POST+23
CHKLABMG GETREADY+16
CHKMAILG CHKLABMG+7, CHKLABMG+8, CHKLABMG+9
COPYPROT PRE+48
ENVICHEK DEBUG+21
FILESDEL PRE+46
GLUCACHE POST+29
NEWKEYLA POST+27
NEWKEYON POST+26
NOSNAPS POST+28
NOTOKAY TURNOFF+17
POST DEBUG+39
PRE DEBUG+26
SORRYEND GETREADY+25
TURNOFF POST+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BCKUPCNT PRE+2~, PRE+34*, PRE+35, PRE+36
BEGTIME ENVICHEK+3~
BLRVERN ENVICHEK+3~, ENVICHEK+6*, ENVICHEK+10, ENVICHEK+11, ENVICHEK+12, WOTCNT+1~, WOTCNT+3*, WOTCNT+6, WOTCNT+7, PRE+1~
, PRE+5*, PRE+12, PRE+44, POST+1~, POST+6*, POST+44, POST+47, POST+55
CHKIT POST+1~
CNT WOTCNT+1~, WOTCNT+6*, WOTCNT+7, WOTCNT+8, PRE+1~, FILESDEL+1~, FILESDEL+13*, FILESDEL+16, FILESDEL+17*, NOSNAPS+1~
, NOSNAPS+3*, NOSNAPS+7*, NOSNAPS+12
CNT( NOSNAPS+7*, NOSNAPS+16
CP ENVICHEK+1~, ENVICHEK+17*, ENVICHEK+18, ENVICHEK+20*, USERID+1, USERID+3, GETREADY+12, GETREADY+18, GETREADY+19, GETREADY+20
, GETREADY+21, GETREADY+25, CHKLABMG+7, CHKLABMG+8, CHKLABMG+9, CHKMAILG~, CHKMAILG+6, CHKMAILG+13, DEBUG+1~, PRE+1~
, PRE+4*, PRE+34, PRE+35, PRE+36, POST+1~, POST+3*, POST+10, POST+38, POST+42, POST+49
, POST+53, SORRYEND~
CRTLINE PRE+1~
>> DA FILESDEL+19*
DEBUG DEBUG+1~, DEBUG+8*, FILESDEL+20, POST+32, POST+44
DESC NOSNAPS+1~
>> DIK FILESDEL+19*
>> DIR("A" DEBUG+32*, PRE+22*
>> DIR("B" DEBUG+31*, PRE+19*
>> DIR(0 DEBUG+30*, PRE+18*
DIRASTR PRE+1~, PRE+20*, PRE+21*, PRE+22
DUZ ENVICHEK+11, USERID+1, USERID+3, CHKLABMG+3, PRE+30, PRE+35, PRE+38
ENDTIME ENVICHEK+3~
ERRARRAY ENVICHEK+2~, GETREADY+19, GETREADY+20, GETREADY+21, GETREADY+25, CHKLABMG+7, CHKLABMG+8, CHKLABMG+9, CHKMAILG~
ERRARRAY("XMB" CHKMAILG+7*, CHKMAILG+14*
>> ERRARRY GETREADY+18
ERRS COPYPROT+1~, COPYPROT+3, POST+1~, POST+35, POST+36, TURNOFF+1~, TURNOFF+13, NEWKEYON+1~, NEWKEYLA+1~
FDA POST+1~, TURNOFF+1~, TURNOFF+9!, NEWKEYON+1~, NEWKEYLA+1~, NOSNAPS+1~, NOSNAPS+8!
FDA( TURNOFF+10*
FDA(19 NEWKEYON+6*, NEWKEYLA+6*
FDA(9009029 NOSNAPS+9*
FDAROOT PRE+1~
FILENUM FILESDEL+1~, FILESDEL+12*, FILESDEL+14, FILESDEL+15, FILESDEL+19
FNAME CHKLABMG+1~, CHKLABMG+3*, CHKLABMG+5
FOUND COPYPROT+1~
FOUND("DILIST" COPYPROT+5
IEN PRE+1~, FILESDEL+1~, FILESDEL+13*, FILESDEL+15*, FILESDEL+19, COPYPROT+1~, COPYPROT+5*, COPYPROT+6, COPYPROT+11, POST+1~
, TURNOFF+1~, TURNOFF+3*, TURNOFF+4, TURNOFF+10, NEWKEYON+1~, NEWKEYON+2*, NEWKEYON+3, NEWKEYON+6, NEWKEYLA+1~, NEWKEYLA+2*
, NEWKEYLA+3, NEWKEYLA+6, NOSNAPS+1~, NOSNAPS+3*, NOSNAPS+4*, NOSNAPS+5, NOSNAPS+7, NOSNAPS+9, NOSNAPS+15*, NOSNAPS+16*
IENS PRE+1~
IN GLUCACHE+1~, GLUCACHE+2*, GLUCACHE+3
IOST PRE+20, PRE+21
>> LASTLOGI VALIDMBR+7*, VALIDMBR+8
LINECNT SORRYEND+1~, ADDMESG+3, ADDMESG+17, ADDMESG+20, ADDMESG+21
LNAME CHKLABMG+1~, CHKLABMG+3*, CHKLABMG+5
MAILGRP CHKMAILG~, CHKMAILG+3, CHKMAILG+6, CHKMAILG+7, CHKMAILG+9, CHKMAILG+11, CHKMAILG+13, CHKMAILG+14
MEM CHKMAILG+1~, VALIDMBR+1*, VALIDMBR+3*, VALIDMBR+4
MEMBER CHKMAILG+1~, VALIDMBR+4*, VALIDMBR+5, VALIDMBR+6, VALIDMBR+7, VALIDMBR+10
MEMOKAY CHKMAILG+1~
MENUOPT DEBUG+38*, POST+1~, POST+14*, POST+15, POST+18, ADDOPTS+1*, ADDOPTS+2, ADDOPTS+3, ADDHLOPT+1*, ADDHLOPT+2
, ADDHLOPT+3
MGRPIEN CHKMAILG+1~, CHKMAILG+3, CHKMAILG+5, CHKMAILG+11, VALIDMBR~, VALIDMBR+3, VALIDMBR+4
MODULE SORRYEND+1~, SORRYEND+5*, SORRYEND+6*, SORRYEND+7, SORRYEND+8, ADDMESG+3, ADDMESG+5
MSG NOTOKAY~, NOTOKAY+1
MSGROOT PRE+1~
NAME SORRYEND+1~, SORRYEND+5*, SORRYEND+7*, SORRYEND+8, ADDMESG+3, ADDMESG+5
NEWOPT POST+1~, ADDOPTS+2*, ADDOPTS+4, ADDOPTS+5, ADDOPTS+6, ADDOPTS+8, ADDHLOPT+2*, ADDHLOPT+4, ADDHLOPT+5, ADDHLOPT+6
, ADDHLOPT+8
NEWOPTM POST+1~, ADDOPTS+3*, ADDOPTS+5, ADDHLOPT+3*, ADDHLOPT+5
OUT GLUCACHE+1~, GLUCACHE+2*, GLUCACHE+3
PATCH SORRYEND+1~
PATCHNUM ENVICHEK+3~, ENVICHEK+5*, ENVICHEK+10, COPYPROT+1~, COPYPROT+8*, COPYPROT+10, POST+1~, POST+5*
PREREQ ENVICHEK+1~
QFLG ENVICHEK+1~, DEBUG+1~
ROWSTARS ENVICHEK+1~, ENVICHEK+24*
RPMS ENVICHEK+1~, ENVICHEK+21*, GETREADY+12, DEBUG+1~
RPMSVER ENVICHEK+1~, ENVICHEK+22*, GETREADY+12, DEBUG+1~
STR ENVICHEK+1~, DEBUG+1~, POST+1~, POST+53, SORRYEND+1~, SORRYEND+12
STR(1 POST+46*
STR(2 POST+47*
STR(3 POST+48*
STR(4 POST+49*
STR(5 POST+50*
TAB POST+1~, POST+21*, ADDOPTS+6, ADDOPTS+8, ADDOPTS+9, ADDHLOPT+6, ADDHLOPT+8, ADDHLOPT+9, NOTOKAY~, NOTOKAY+1
TMP SORRYEND+1~, ADDMESG+6*, ADDMESG+10*, ADDMESG+11*, ADDMESG+14*, ADDMESG+17, ADDMESG+18*, ADDMESG+20
TODAY ENVICHEK+1~, ENVICHEK+7*, ENVICHEK+11, ENVICHEK+12, WOTCNT+1~, WOTCNT+4*, WOTCNT+6, WOTCNT+7, POST+1~, POST+7*
, POST+44, POST+55
U PRE+35
USERNAME CHKLABMG+1~, CHKLABMG+3*
VALIDMBR CHKMAILG+1~, VALIDMBR+1*, VALIDMBR+3, VALIDMBR+10*, VALIDMBR+12
VARS GLUCACHE+1~
VERSION SORRYEND+1~, SORRYEND+5*, SORRYEND+8*, ADDMESG+5, ADDMESG+6, ADDMESG+10
WHATCNT ENVICHEK+3~
WOT ADDMESG+1~, ADDMESG+5*, ADDMESG+7, ADDMESG+11, ADDMESG+14, ADDMESG+18
WOTCNT ENVICHEK+1~, ENVICHEK+8*, ENVICHEK+11, ENVICHEK+12, POST+1~, POST+8*, POST+44, POST+55
WOTERR SORRYEND~
WOTERR( SORRYEND+6, SORRYEND+7, SORRYEND+8, ADDMESG+5
WOTWRONG ADDMESG+1~, ADDMESG+7*, ADDMESG+9, ADDMESG+13, ADDMESG+16
>> X GETREADY+5*, DEBUG+38*, ADDOPTS+5*, ADDOPTS+6, ADDOPTS+7, ADDOPTS+9, ADDHLOPT+5*, ADDHLOPT+6, ADDHLOPT+7, ADDHLOPT+9
, GLUCACHE+3*
>> XPDABORT GETREADY+7*, GETREADY+25, DEBUG+24, PRE+27*
>> XPDDIQ( GETREADY+5*
>> XPDENV DEBUG+19*
>> XPDNM ENVICHEK+16, ENVICHEK+20, ENVICHEK+21, ENVICHEK+22, DEBUG+18*
>> XPDNOQUE GETREADY+1*
>> XUMF ENVICHEK+14*, GETREADY+29*, PRE+7*, FILESDEL+3*
>> Y DEBUG+37, PRE+26

Marked Items

Name Field # of Occurrence
$T( ENVICHEK+5, ENVICHEK+6, ENVICHEK+17, WOTCNT+3, DEBUG+3, DEBUG+18, DEBUG+45, PRE+4, PRE+5, COPYPROT+8
, POST+3, POST+5, POST+6, POST+53
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 |  Marked Items |  All