Routine: BLRPRE36

Information

BLRPRE36 ; IHS/MSC/MKK - IHS Lab Patch LR*5.2*1036 Pre/Environment Routine ; 16-Jul-2015 06:30 ; MKK

Source Information

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Kernel	7	HOME^%ZIS ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$HTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR (EXIT,TITLE)^XPDID (BMES,MES)^XPDUTL
IHS Changes To Lab	5	POST^BLR35PST (PRESSKEY,SHOWBOX)^BLRGMENU (OKAY,TABMENU,TABMESG)^BLRKIDSU (BOKAY,ENVHEADR,NEEDIT,PASSMESG,SORRY)^BLRPRE31 SORRYEND^BLRPRE33
VA Fileman	3	DTNOLF^DICRW $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; EP - Ask for confirmation of Backup
CHKBCKUP	; EP - Check to determine if BACKUP has been performed.
INITSCR	; EP - Initialize screen. Cloned from INIT^XPDID
WOTCNT(BLRVERN)	; EP - Counter for ^XTMP
OKBACKUP()	; EP - Backup Confirmed.
BLANK	; EP - Blank Line
ENVICHEK	; EP - Environment Checker
SAVEOFF	; EP - Save off all routines being updated by this patch into the ^rBACKUP global.
BACKUP()	; EP - Confirm Backup
NOBACKUP()	; EP - No backup message
MESCNTR(STR)	; EP - Center a line and use XPDUTL to display it
ENVIVARS()	; EP - Setup the Environment variables
DEBUG	; EP - Debugging Line Label for environment checker
SETEVARS	; EP - SET standard "Enviroment" VARiables.

External References

Name	Field # of Occurrence
HOME^%ZIS	ENVIVARS+29
ENDR^%ZISS	INITSCR+6
POST^BLR35PST	DEBUG+42
PRESSKEY^BLRGMENU	DEBUG+29
SHOWBOX^BLRGMENU	BACKUP+3
OKAY^BLRKIDSU	OKBACKUP+2
TABMENU^BLRKIDSU	OKBACKUP+5
TABMESG^BLRKIDSU	PRE+20, NOBACKUP+3, NOBACKUP+4, NOBACKUP+5
BOKAY^BLRPRE31	ENVICHEK+13, CHKBCKUP+27
ENVHEADR^BLRPRE31	ENVICHEK+5
NEEDIT^BLRPRE31	ENVICHEK+9
PASSMESG^BLRPRE31	NOBACKUP+2, CHKBCKUP+4, CHKBCKUP+16
SORRY^BLRPRE31	ENVIVARS+13, ENVIVARS+18, ENVIVARS+19
SORRYEND^BLRPRE33	ENVICHEK+11
DTNOLF^DICRW	ENVIVARS+30
$$GET1^DIQ	ENVIVARS+19, OKBACKUP+2, NOBACKUP+4, CHKBCKUP+18, CHKBCKUP+27
^DIR	BACKUP+12, DEBUG+40, CHKBCKUP+11
^XBFMK	BACKUP+5, DEBUG+36, CHKBCKUP+7
FRAME^XGF	INITSCR+9
IOXY^XGF	INITSCR+11
PREP^XGF	INITSCR+3, INITSCR+4
$$DT^XLFDT	ENVIVARS+3, ENVIVARS+7, WOTCNT+3
$$HTE^XLFDT	PRE+20, BACKUP+23, CHKBCKUP+25
$$HTFM^XLFDT	ENVIVARS+7
$$NOW^XLFDT	ENVIVARS+9
$$CJ^XLFSTR	MESCNTR+1
$$UP^XLFSTR	PRE+20
EXIT^XPDID	PRE+23
TITLE^XPDID	PRE+9, PRE+15
BMES^XPDUTL	PRE+10, PRE+16, CHKBCKUP+17, CHKBCKUP+18, CHKBCKUP+19
MES^XPDUTL	OKBACKUP+1, OKBACKUP+4, BLANK+1, MESCNTR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BACKUP+13
Function Call: WRITE	Prompt: @IOSTBM Line Location: INITSCR+8
Function Call: WRITE	Prompt: !! Line Location: DEBUG+9
Function Call: WRITE	Prompt: "Debug Routine ",BLRVERN," Begins:",!! Line Location: DEBUG+10
Function Call: WRITE	Prompt: ! Line Location: DEBUG+24
Function Call: WRITE	Prompt: !!! Line Location: DEBUG+34
Function Call: WRITE	Prompt: !!,"Debug Routine ",BLRVERN," Ends.",!! Line Location: DEBUG+44
Function Call: WRITE	Prompt: ! Line Location: CHKBCKUP+5
Function Call: WRITE	Prompt: ! Line Location: CHKBCKUP+12
Routine Call	%ZIS Line Location: ENVIVARS+29
Routine Call	DIR Line Location: BACKUP+12 DEBUG+40 CHKBCKUP+11

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRINSTL("LAB PATCH"	BACKUP+20, BACKUP+21, BACKUP+22, BACKUP+23, CHKBCKUP+23, CHKBCKUP+24, CHKBCKUP+25*
^ROUTINE(	SAVEOFF+5, SAVEOFF+6
^VA(200 - [#200]	BACKUP+21, CHKBCKUP+24
^XTMP(	ENVIVARS+7, ENVIVARS+8, ENVIVARS+9, WOTCNT+5, WOTCNT+6

Label References

Name	Line Occurrences
$$BACKUP	PRE+12
$$ENVIVARS	ENVICHEK+3
$$NOBACKUP	BACKUP+15
$$OKBACKUP	BACKUP+17, BACKUP+25
$$WOTCNT	ENVIVARS+4
BLANK	ENVICHEK+5, ENVICHEK+9, PRE+10, PRE+16
ENVICHEK	DEBUG+28
INITSCR	PRE+8, PRE+14
PRE	DEBUG+33
SAVEOFF	ENVICHEK+7
SETEVARS	ENVIVARS+1, PRE+4, DEBUG+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BCKUPCNT	PRE+2~, BACKUP+1~, BACKUP+20, BACKUP+21, BACKUP+22, BACKUP+23, CHKBCKUP+23, CHKBCKUP+24, CHKBCKUP+25
BEGTIME	DEBUG+1~
BLRVERN	ENVICHEK+1~, ENVIVARS+4, ENVIVARS+7, ENVIVARS+8, ENVIVARS+9, PRE+1~, PRE+10, PRE+16, SETEVARS+3*, WOTCNT~ , WOTCNT+5, WOTCNT+6, DEBUG+1~, DEBUG+10, DEBUG+44
CNT	PRE+1~, WOTCNT+1~, WOTCNT+5*, WOTCNT+6, WOTCNT+7
CP	ENVICHEK+1~, ENVICHEK+5, ENVICHEK+9, ENVICHEK+11, ENVIVARS+13, ENVIVARS+18, ENVIVARS+19, PRE+1~, BACKUP+20, BACKUP+21 , BACKUP+22, BACKUP+23, SETEVARS+1, SETEVARS+2, DEBUG+1~, CHKBCKUP+1~, CHKBCKUP+2, CHKBCKUP+23, CHKBCKUP+24, CHKBCKUP+25
CPSTR	ENVIVARS+7, PRE+1~, PRE+9, PRE+15, SETEVARS+2*, DEBUG+1~, DEBUG+25
CRTLINE	PRE+1~
DEBUG	BACKUP+17, OKBACKUP+3, DEBUG+1~, DEBUG+22*
>> DILOCKTM	SAVEOFF+1
>> DIR("?"	BACKUP+11*
>> DIR("A"	BACKUP+10, DEBUG+39, CHKBCKUP+10*
>> DIR("B"	BACKUP+7, DEBUG+38, CHKBCKUP+9*
>> DIR(0	BACKUP+6, DEBUG+37, CHKBCKUP+8*
DIRASTR	PRE+1~
>> DISYS	SAVEOFF+1
DT	SAVEOFF+1
DTIME	SAVEOFF+1
DUZ	ENVIVARS+8, ENVIVARS+18, ENVIVARS+19, BACKUP+21, BACKUP+22, OKBACKUP+2, NOBACKUP+4, CHKBCKUP+18, CHKBCKUP+24, CHKBCKUP+27 , SAVEOFF+1
ENDTIME	DEBUG+1~
ERRARRAY	ENVICHEK+1~, ENVICHEK+9, ENVICHEK+11, DEBUG+1~
ERRS	SAVEOFF+4!, SAVEOFF+7
FDAROOT	PRE+1~
IEN	PRE+1~
IENS	PRE+1~
IO	INITSCR+2, SAVEOFF+1
IO(0	INITSCR+2
>> IOBM	INITSCR+7*
>> IOBS	SAVEOFF+1
IOF	SAVEOFF+1
IOM	MESCNTR+1, INITSCR+9, SAVEOFF+1
ION	SAVEOFF+1
>> IOS	SAVEOFF+1
IOSL	INITSCR+7, SAVEOFF+1
IOST	BACKUP+8, INITSCR+2, SAVEOFF+1
>> IOSTBM	INITSCR+8
>> IOT	SAVEOFF+1
>> IOTM	INITSCR+7*, INITSCR+9, INITSCR+11
>> IOXY	SAVEOFF+1
LASTLOGI	DEBUG+1~
>> LN	SAVEOFF+5*, SAVEOFF+6
LRBLNOW	DEBUG+2~
MSGROOT	PRE+1~
PATCHNUM	SETEVARS+1*, DEBUG+2~
PREREQ	DEBUG+2~
QFLG	DEBUG+2~
ROWSTARS	ENVICHEK+1~, ENVIVARS+5*, DEBUG+2~
RPMS	ENVICHEK+1~, ENVICHEK+5, ENVIVARS+15*, DEBUG+2~
RPMSVER	ENVICHEK+1~, ENVICHEK+5, ENVIVARS+16*, DEBUG+2~
>> RTN	SAVEOFF+3*, SAVEOFF+5, SAVEOFF+6, SAVEOFF+7
RTNA	SAVEOFF+4!, SAVEOFF+7
RTNA(	SAVEOFF+6*
STR	MESCNTR~, MESCNTR+1, DEBUG+2~
SUCCSTR	BACKUP+1~, BACKUP+8, BACKUP+9, BACKUP+10, DEBUG+3~
TODAY	ENVICHEK+1~, ENVIVARS+3, ENVIVARS+8, ENVIVARS+9, WOTCNT+1~, WOTCNT+3, WOTCNT+5, WOTCNT+6, DEBUG+3~
U	BACKUP+21, CHKBCKUP+24, SAVEOFF+1
WHATCNT	DEBUG+3~
WOTCNT	ENVICHEK+1~, ENVIVARS+4*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~
X	ENVIVARS+25, INITSCR+1~, INITSCR+5, SAVEOFF+7*
>> XPARSYS	SAVEOFF+1
XPDABORT	ENVICHEK+11, ENVIVARS+27, NOBACKUP+1, DEBUG+3~, DEBUG+31, CHKBCKUP+15*
>> XPDDIQ(	ENVIVARS+25*
XPDENV	DEBUG+3~, DEBUG+26*
>> XPDIDVT	INITSCR+2, INITSCR+3, INITSCR+5*
XPDNM	ENVIVARS+13, ENVIVARS+15, ENVIVARS+16, DEBUG+3~, DEBUG+25*
>> XPDNOQUE	ENVIVARS+21*
XPDSTR	INITSCR+1~, INITSCR+5*
>> XQXFLG	SAVEOFF+1
>> XUMF	ENVIVARS+11, PRE+6
>> Y	BACKUP+15, DEBUG+42, CHKBCKUP+14

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPRE36

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	SETEVARS+1, SETEVARS+3, CHKBCKUP+2
$T(PREP^XGF	INITSCR+3