Routine: BLRPRE33

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

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

Package

Total

Caller Graph

IHS Changes To Lab

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

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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPRE33

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items