Routine: BLRPRE42

Package	Total	Call Graph
Kernel	7	HOME^%ZIS ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$FMADD,$$HTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$TRIM,$$UP)^XLFSTR TITLE^XPDID (BMES,MES)^XPDUTL
IHS Changes To Lab	5	STORERRS^BLREMERA SHOWBOX^BLRGMENU (BOKAY,ENVHEADR,NEEDIT,PASSMESG,SORRY,SORRYEND)^BLRKIDS2 (OKAY,TABMENU,TABMESG)^BLRKIDSU MAILALMI^BLRUTIL3
VA Fileman	4	$$FIND1^DIC DTNOLF^DICRW $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK
Toolkit	1	EN^XPAR

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; EP - Ask for confirmation of Backup
BLANK	; EP - Blank Line
INITSCR	; EP - Initialize screen. Cloned from INIT^XPDID
WOTCNT(BLRVERN)	; EP - Counter for ^XTMP
POSTMAIL(BLRVERN,CPSTR)	; EP - Post Install MailMan Message
OKBACKUP()	; EP - Backup Confirmed.
XTMPHEAD	; EP - Initialize XTMP for this patch
ENVICHEK	; EP - Environment Checker
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
POST	; EP - Post-Install
FORCENO	; EP - Force any new parameters to be NO
GETPARS(PARSLIST)	; EP - Function to get Parameters from BUILD file
SETBLRVS(TWO)	; EP - Set the BLRVERN variable(s)
SETEVARS	; EP - SET standard "Enviroment" VARiables.

External References

Name	Field # of Occurrence
HOME^%ZIS	ENVIVARS+29
ENDR^%ZISS	INITSCR+6
STORERRS^BLREMERA	FORCENO+19
SHOWBOX^BLRGMENU	BACKUP+3
BOKAY^BLRKIDS2	ENVICHEK+11
ENVHEADR^BLRKIDS2	ENVICHEK+5
NEEDIT^BLRKIDS2	ENVICHEK+7
PASSMESG^BLRKIDS2	NOBACKUP+2
SORRY^BLRKIDS2	ENVIVARS+13, ENVIVARS+18, ENVIVARS+19
SORRYEND^BLRKIDS2	ENVICHEK+9
OKAY^BLRKIDSU	OKBACKUP+2, FORCENO+8
TABMENU^BLRKIDSU	OKBACKUP+5
TABMESG^BLRKIDSU	NOBACKUP+3, NOBACKUP+4, NOBACKUP+5
MAILALMI^BLRUTIL3	POSTMAIL+12
$$FIND1^DIC	GETPARS+5
DTNOLF^DICRW	ENVIVARS+30
$$GET1^DIQ	ENVIVARS+19, OKBACKUP+2, NOBACKUP+4
^DIR	BACKUP+13, DEBUG+27
^XBFMK	BACKUP+8, DEBUG+23
FRAME^XGF	INITSCR+9
IOXY^XGF	INITSCR+11
PREP^XGF	INITSCR+3, INITSCR+4
$$DT^XLFDT	ENVIVARS+3, ENVIVARS+7, POST+9, XTMPHEAD+4, WOTCNT+3
$$FMADD^XLFDT	XTMPHEAD+4
$$HTE^XLFDT	PRE+10, PRE+14, BACKUP+24, POST+6, POST+15
$$HTFM^XLFDT	ENVIVARS+7
$$NOW^XLFDT	ENVIVARS+9, POST+20
$$CJ^XLFSTR	MESCNTR+1
$$TRIM^XLFSTR	XTMPHEAD+3
$$UP^XLFSTR	PRE+10, PRE+14, POST+6, POST+15
EN^XPAR	FORCENO+16
TITLE^XPDID	PRE+9
BMES^XPDUTL	PRE+10, PRE+14, POST+6, POST+15
MES^XPDUTL	FORCENO+11, FORCENO+18, BLANK+1, MESCNTR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BACKUP+14
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+14
Function Call: WRITE	Prompt: !!! Line Location: DEBUG+21
Function Call: WRITE	Prompt: !!,"Debug Routine ",BLRVERN," Ends.",!! Line Location: DEBUG+31
Function Call: WRITE	Prompt: @IOSTBM Line Location: INITSCR+8
Routine Call	%ZIS Line Location: ENVIVARS+29
Routine Call	DIC Line Location: GETPARS+5
Routine Call	DIR Line Location: BACKUP+13 DEBUG+27

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^XPD(9.6 - [#9.6]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRINSTL("LAB PATCH"	BACKUP+21, BACKUP+22, BACKUP+23, BACKUP+24*
^VA(200 - [#200]	BACKUP+22
^XPD(9.6 - [#9.6]	GETPARS+9
^XTMP(	ENVIVARS+7, ENVIVARS+8, ENVIVARS+9, POST+20, XTMPHEAD+4, WOTCNT+5, WOTCNT+6

Label References

Name	Line Occurrences
$$BACKUP	PRE+12
$$ENVIVARS	ENVICHEK+3
$$GETPARS	FORCENO+4
$$NOBACKUP	BACKUP+16
$$OKBACKUP	BACKUP+18, BACKUP+26
$$WOTCNT	ENVIVARS+4, POST+10
BLANK	ENVICHEK+5, ENVICHEK+7, PRE+10, OKBACKUP+1, OKBACKUP+4, POST+5, POST+7, POST+14, POST+16, FORCENO+8 , FORCENO+18
FORCENO	POST+12
INITSCR	PRE+8
POST	DEBUG+29
POSTMAIL	POST+18
PRE	DEBUG+18
SETBLRVS	FORCENO+3, SETEVARS+3, XTMPHEAD+2
SETEVARS	ENVIVARS+1, PRE+4, DEBUG+7, POST+3, GETPARS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BCKUPCNT	PRE+2~, BACKUP+1~, BACKUP+21*, BACKUP+22, BACKUP+23, BACKUP+24
BEGTIME	DEBUG+1~
BLRVERN	ENVICHEK+1~, ENVIVARS+4, ENVIVARS+7, ENVIVARS+8, ENVIVARS+9, PRE+1~, DEBUG+1~, DEBUG+10, DEBUG+31, POST+1~ , POST+10, POST+18, POST+20, FORCENO+8, SETBLRVS+1!, SETBLRVS+3*, XTMPHEAD+1~, XTMPHEAD+4, WOTCNT~, WOTCNT+5 , WOTCNT+6, POSTMAIL~, POSTMAIL+6, POSTMAIL+12
BLRVERN2	ENVICHEK+1~, PRE+1~, POST+1~, SETBLRVS+1!, SETBLRVS+4*, XTMPHEAD+1~
>> BUILDIEN	GETPARS+5*, GETPARS+6, GETPARS+9
CNT	PRE+1~, GETPARS+8, GETPARS+10, GETPARS+12, WOTCNT+1~, WOTCNT+5*, WOTCNT+6, WOTCNT+7
CP	ENVICHEK+1~, ENVICHEK+5, ENVICHEK+7, ENVICHEK+9, ENVIVARS+13, ENVIVARS+18, ENVIVARS+19, PRE+1~, BACKUP+21, BACKUP+22 , BACKUP+23, BACKUP+24, DEBUG+1~, POST+1~, SETEVARS+1*, SETEVARS+2
CPSTR	ENVIVARS+7, PRE+1~, PRE+9, DEBUG+1~, DEBUG+15, POST+1~, POST+6, POST+15, POST+18, GETPARS+5 , SETEVARS+2*, POSTMAIL~, POSTMAIL+8, POSTMAIL+12
CRTLINE	PRE+1~
DEBUG	BACKUP+18, OKBACKUP+3, DEBUG+1~, DEBUG+12*, FORCENO+1, FORCENO+6, GETPARS+1, POSTMAIL+1
>> DILOCKTM	FORCENO+1, GETPARS+1
>> DIR("?"	BACKUP+12*
>> DIR("A"	BACKUP+11, DEBUG+26
>> DIR("B"	BACKUP+10, DEBUG+25
>> DIR(0	BACKUP+9, DEBUG+24
DIRASTR	PRE+1~
>> DISYS	FORCENO+1, GETPARS+1
DT	FORCENO+1, GETPARS+1
DTIME	FORCENO+1, GETPARS+1
DUZ	ENVIVARS+8, ENVIVARS+18, ENVIVARS+19, BACKUP+22, BACKUP+23, OKBACKUP+2, NOBACKUP+4, FORCENO+1, GETPARS+1
ENDTIME	DEBUG+1~
ERRARRAY	ENVICHEK+1~, ENVICHEK+7, ENVICHEK+9, DEBUG+1~
ERRS	FORCENO+15!, FORCENO+16, FORCENO+17, FORCENO+19
FDAROOT	PRE+1~
IEN	PRE+1~
IENS	PRE+1~
IO	FORCENO+1, GETPARS+1, INITSCR+2
IO(0	INITSCR+2
>> IOBM	INITSCR+7*
>> IOBS	FORCENO+1, GETPARS+1
IOF	FORCENO+1, GETPARS+1
IOM	FORCENO+1, GETPARS+1, MESCNTR+1, INITSCR+9
ION	FORCENO+1, GETPARS+1
>> IOS	FORCENO+1, GETPARS+1
IOSL	FORCENO+1, GETPARS+1, INITSCR+7
IOST	BACKUP+5, FORCENO+1, GETPARS+1, INITSCR+2
>> IOSTBM	INITSCR+8
>> IOT	FORCENO+1, GETPARS+1
>> IOTM	INITSCR+7*, INITSCR+9, INITSCR+11
>> IOXY	FORCENO+1, GETPARS+1
LASTLOGI	DEBUG+1~
LRBLNOW	DEBUG+2~
MSGROOT	PRE+1~
>> PARAMETER	FORCENO+9, FORCENO+10, FORCENO+11, FORCENO+13, FORCENO+14, FORCENO+16, FORCENO+18, FORCENO+19
>> PARAMTRS	GETPARS+8, GETPARS+9, GETPARS+10
PARSLIST	FORCENO+4, GETPARS~, GETPARS+1
PARSLIST(	FORCENO+10, FORCENO+14, GETPARS+10*
PATCHNUM	DEBUG+2~, POST+1~, SETEVARS+1*
PREREQ	DEBUG+2~
PTCHNAME	XTMPHEAD+1~, XTMPHEAD+3*, XTMPHEAD+4
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~
STR	DEBUG+2~, MESCNTR~, MESCNTR+1, POSTMAIL+3~, POSTMAIL+12
STR(1	POSTMAIL+5*
STR(2	POSTMAIL+6*
STR(3	POSTMAIL+7*
STR(4	POSTMAIL+8*
STR(5	POSTMAIL+9*
SUCCSTR	BACKUP+1~, BACKUP+5, BACKUP+6, BACKUP+11, DEBUG+3~
>> TAB	FORCENO+7*, FORCENO+11
TODAY	ENVICHEK+1~, ENVIVARS+3, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+1~, POST+9, POST+20, WOTCNT+1~, WOTCNT+3* , WOTCNT+5, WOTCNT+6
TWO	SETBLRVS~, SETBLRVS+4
U	BACKUP+22, FORCENO+1, GETPARS+1, XTMPHEAD+4
WHATCNT	DEBUG+3~
WOTCNT	ENVICHEK+1~, ENVIVARS+4, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+1~, POST+10, POST+20
X	ENVIVARS+25, INITSCR+1~, INITSCR+5
>> XPARSYS	FORCENO+1, GETPARS+1
XPDABORT	ENVICHEK+9, ENVIVARS+27, NOBACKUP+1, DEBUG+3~, DEBUG+16*, DEBUG+19
>> XPDDIQ(	ENVIVARS+25*
XPDENV	DEBUG+3~, DEBUG+16*
>> XPDIDVT	INITSCR+2, INITSCR+3, INITSCR+5*
XPDNM	ENVIVARS+13, ENVIVARS+15, ENVIVARS+16, DEBUG+3~, DEBUG+15*
>> XPDNOQUE	ENVIVARS+21*
XPDSTR	INITSCR+1~, INITSCR+5*
>> XQXFLG	FORCENO+1, GETPARS+1
>> XUMF	ENVIVARS+11, PRE+6
>> Y	BACKUP+16, DEBUG+29

Marked Items

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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPRE42

Information

Source Information

Call Graph

Call Graph Total: 18

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items