Routine: BLRPRE38

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
Kernel	8	HOME^%ZIS ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$HTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR (EXIT,TITLE)^XPDID $$ADD^XPDMENU (BMES,MES)^XPDUTL
IHS Changes To Lab	5	SHOWBOX^BLRGMENU (OKAY,TABMENU,TABMESG)^BLRKIDSU (BOKAY,ENVHEADR,NEEDIT,PASSMESG,SORRY)^BLRPRE31 SORRYEND^BLRPRE33 MAILALMI^BLRUTIL3
VA Fileman	5	DTNOLF^DICRW UPDATE^DIE ^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK
Uncategorized	1	(DISABLE,ENABLE)^%NOJRN

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; EP - Ask for confirmation of Backup
ADDPARMS	; EP - Ensure that new file 90475.7 has its .01 field = PARAMETERS
EXITKIDG	; EP - EXIT KIDS Graphics mode ; Get out of graphics mode so that any "output" done during this phase ; of the install process will be printed in the INSTALL file log if the ; BMES^XPDUTL and MES^XPDUTL procedures are used.
INITSCR	; EP - Initialize screen. Cloned from INIT^XPDID
WOTCNT(BLRVERN)	; EP - Counter for ^XTMP
SAVEOFF	; EP - Save off all routines being updated by this patch into the ^rBACKUP global.
POSTMAIL(BLRVERN,CPSTR)	; EP - Post Install MailMan Message
OKBACKUP()	; EP - Backup Confirmed.
BLANK	; EP - Blank Line
ENVICHEK	; EP - Environment Checker
OPTADD(NEWOPT,NEWOPTM,TAB)	; EP
FILEDEL	; EP
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
ADDOPTS	; EP - Add new option to BLRMENU
SETEVARS	; EP - SET standard "Enviroment" VARiables.

External References

Name	Field # of Occurrence
DISABLE^%NOJRN	FILEDEL+3
ENABLE^%NOJRN	FILEDEL+17
HOME^%ZIS	ENVIVARS+29
ENDR^%ZISS	INITSCR+6
SHOWBOX^BLRGMENU	BACKUP+3
OKAY^BLRKIDSU	OKBACKUP+2, ADDPARMS+9, SAVEOFF+7, SAVEOFF+30
TABMENU^BLRKIDSU	OKBACKUP+5
TABMESG^BLRKIDSU	PRE+23, NOBACKUP+3, NOBACKUP+4, NOBACKUP+5
BOKAY^BLRPRE31	ENVICHEK+11
ENVHEADR^BLRPRE31	ENVICHEK+5
NEEDIT^BLRPRE31	ENVICHEK+7
PASSMESG^BLRPRE31	NOBACKUP+2
SORRY^BLRPRE31	ENVIVARS+13, ENVIVARS+18, ENVIVARS+19
SORRYEND^BLRPRE33	ENVICHEK+9
MAILALMI^BLRUTIL3	POSTMAIL+12
DTNOLF^DICRW	ENVIVARS+30
UPDATE^DIE	ADDPARMS+6
^DIK	FILEDEL+13
$$GET1^DIQ	ENVIVARS+19, OKBACKUP+2, NOBACKUP+4, ADDPARMS+3
^DIR	BACKUP+12, DEBUG+27
^XBFMK	BACKUP+5, DEBUG+23, FILEDEL+10
FRAME^XGF	INITSCR+9
IOXY^XGF	INITSCR+11
PREP^XGF	INITSCR+3, INITSCR+4
$$DT^XLFDT	ENVIVARS+3, ENVIVARS+7, POST+7, WOTCNT+3
$$HTE^XLFDT	PRE+23, BACKUP+23, SAVEOFF+27
$$HTFM^XLFDT	ENVIVARS+7
$$NOW^XLFDT	ENVIVARS+9, POST+20
$$CJ^XLFSTR	MESCNTR+1
$$UP^XLFSTR	PRE+23, OPTADD+6
EXIT^XPDID	PRE+26, EXITKIDG+5
TITLE^XPDID	PRE+9, PRE+15
$$ADD^XPDMENU	OPTADD+2
BMES^XPDUTL	PRE+10, PRE+16, POST+14, OPTADD+1, SAVEOFF+8, SAVEOFF+15, SAVEOFF+35, SAVEOFF+36
MES^XPDUTL	OKBACKUP+1, OKBACKUP+4, EXITKIDG+6, OPTADD+3, OPTADD+5, OPTADD+6, OPTADD+8, ADDPARMS+8, BLANK+1, MESCNTR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BACKUP+13
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
Function Call: WRITE	Prompt: !,?4,"IHS UCUM Deletions" Line Location: FILEDEL+5
Function Call: WRITE	Prompt: "." Line Location: FILEDEL+9
Function Call: WRITE	Prompt: !,?4 Condition for execution: $X>75 Line Location: FILEDEL+9
Function Call: WRITE	Prompt: ! Line Location: FILEDEL+15
Routine Call	%ZIS Line Location: ENVIVARS+29
Routine Call	DIR Line Location: BACKUP+12 DEBUG+27
Routine Call	DIE Line Location: ADDPARMS+6

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^BLRUCUM - [#90475.3]	Classic Fileman Calls
^BLRLSRP - [#90475.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRINSTL("LAB PATCH"	BACKUP+20, BACKUP+21, BACKUP+22, BACKUP+23, SAVEOFF+27, SAVEOFF+28*
^BLRUCUM - [#90475.3]	FILEDEL+7
^ROUTINE(	SAVEOFF+18, SAVEOFF+24
^VA(200 - [#200]	BACKUP+21
^XPD(9.6 - [#9.6]	SAVEOFF+12, SAVEOFF+17
^XTMP(	ENVIVARS+7, ENVIVARS+8, ENVIVARS+9, POST+20, 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, POST+8
ADDOPTS	POST+10
ADDPARMS	POST+12
BLANK	ENVICHEK+5, ENVICHEK+7, PRE+10, PRE+16, POST+14, SAVEOFF+7
EXITKIDG	POST+3
FILEDEL	PRE+21
INITSCR	PRE+8, PRE+14
OPTADD	ADDOPTS+6, ADDOPTS+10, ADDOPTS+14
POST	DEBUG+29
POSTMAIL	POST+18
PRE	DEBUG+18
SAVEOFF	PRE+19
SETEVARS	ENVIVARS+1, PRE+4, DEBUG+7, POST+5

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
BEGTIME	DEBUG+1~
BLRVERN	ENVICHEK+1~, ENVIVARS+4, ENVIVARS+7, ENVIVARS+8, ENVIVARS+9, PRE+1~, PRE+10, PRE+16, DEBUG+1~, DEBUG+10 , DEBUG+31, POST+1~, POST+8, POST+18, POST+20, SAVEOFF+3, SAVEOFF+7, SETEVARS+3, WOTCNT~, WOTCNT+5 , WOTCNT+6, POSTMAIL~, POSTMAIL+4, POSTMAIL+12
>> BUILD	SAVEOFF+11*, SAVEOFF+12
CNT	PRE+1~, SAVEOFF+16, SAVEOFF+31, SAVEOFF+36, WOTCNT+1~, WOTCNT+5, WOTCNT+6, WOTCNT+7, FILEDEL+1~, FILEDEL+6 , FILEDEL+8*, FILEDEL+9
CP	ENVICHEK+1~, ENVICHEK+5, ENVICHEK+7, ENVICHEK+9, ENVIVARS+13, ENVIVARS+18, ENVIVARS+19, PRE+1~, BACKUP+20, BACKUP+21 , BACKUP+22, BACKUP+23, DEBUG+1~, POST+1~, SETEVARS+1*, SETEVARS+2
CPSTR	ENVIVARS+7, PRE+1~, PRE+9, PRE+15, DEBUG+1~, DEBUG+15, POST+1~, POST+14, POST+18, SETEVARS+2* , POSTMAIL~, POSTMAIL+6, POSTMAIL+12
CRTLINE	PRE+1~
>> DA	FILEDEL+11*
DEBUG	BACKUP+17, OKBACKUP+3, DEBUG+1~, DEBUG+12*, POST+16, ADDPARMS+1, SAVEOFF+1, SAVEOFF+5, POSTMAIL+9, FILEDEL+12
>> DIK	FILEDEL+11*
>> DILOCKTM	ADDPARMS+1, SAVEOFF+1
>> DIR("?"	BACKUP+11*
>> DIR("A"	BACKUP+10, DEBUG+26
>> DIR("B"	BACKUP+7, DEBUG+25
>> DIR(0	BACKUP+6, DEBUG+24
DIRASTR	PRE+1~
>> DISYS	ADDPARMS+1, SAVEOFF+1
DT	ADDPARMS+1, SAVEOFF+1
DTIME	ADDPARMS+1, SAVEOFF+1
DUZ	ENVIVARS+8, ENVIVARS+18, ENVIVARS+19, BACKUP+21, BACKUP+22, OKBACKUP+2, NOBACKUP+4, ADDPARMS+1, SAVEOFF+1
ENDTIME	DEBUG+1~
ERRARRAY	ENVICHEK+1~, ENVICHEK+7, ENVICHEK+9, DEBUG+1~
ERRS	ADDPARMS+7, SAVEOFF+23!, SAVEOFF+25, SAVEOFF+28, SAVEOFF+29
>> FDA(	ADDPARMS+5*
FDAROOT	PRE+1~
IEN	PRE+1~, FILEDEL+1~, FILEDEL+6, FILEDEL+7, FILEDEL+11
IENS	PRE+1~
IO	ADDPARMS+1, SAVEOFF+1, INITSCR+2
IO(0	INITSCR+2
>> IOBM	INITSCR+7*
>> IOBS	ADDPARMS+1, SAVEOFF+1
IOF	ADDPARMS+1, SAVEOFF+1
IOM	ADDPARMS+1, SAVEOFF+1, MESCNTR+1, INITSCR+9
ION	ADDPARMS+1, SAVEOFF+1
>> IOS	ADDPARMS+1, SAVEOFF+1
IOSL	ADDPARMS+1, SAVEOFF+1, INITSCR+7
IOST	BACKUP+8, ADDPARMS+1, SAVEOFF+1, INITSCR+2
>> IOSTBM	INITSCR+8
>> IOT	ADDPARMS+1, SAVEOFF+1
>> IOTM	INITSCR+7*, INITSCR+9, INITSCR+11
>> IOXY	ADDPARMS+1, SAVEOFF+1
LASTLOGI	DEBUG+1~
>> LN	SAVEOFF+24*
LRBLNOW	DEBUG+2~
MSGROOT	PRE+1~
NEWOPT	ADDOPTS+1~, ADDOPTS+4, ADDOPTS+6, ADDOPTS+8, ADDOPTS+10, ADDOPTS+12*, ADDOPTS+14, OPTADD~, OPTADD+1, OPTADD+2 , OPTADD+3, OPTADD+5
NEWOPTM	ADDOPTS+1~, ADDOPTS+5, ADDOPTS+6, ADDOPTS+9, ADDOPTS+10, ADDOPTS+13*, ADDOPTS+14, OPTADD~, OPTADD+2
>> NOW	SAVEOFF+26*, SAVEOFF+27, SAVEOFF+28
>> PATCH	SAVEOFF+10*, SAVEOFF+11, SAVEOFF+20, SAVEOFF+27, SAVEOFF+28
>> PATCHIEN	SAVEOFF+12*, SAVEOFF+13, SAVEOFF+17
PATCHNUM	DEBUG+2~, POST+1~, SETEVARS+1*
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+16, SAVEOFF+17, SAVEOFF+18, SAVEOFF+24, SAVEOFF+25, SAVEOFF+28, SAVEOFF+30
RTNA	SAVEOFF+23!, SAVEOFF+25
RTNA(	SAVEOFF+24*
>> RTNCNT	SAVEOFF+16, SAVEOFF+22, SAVEOFF+33, SAVEOFF+35
>> RTNPATCH	SAVEOFF+18*, SAVEOFF+19, SAVEOFF+20
STR	DEBUG+2~, MESCNTR~, MESCNTR+1, POSTMAIL+1~, POSTMAIL+12
STR(1	POSTMAIL+3*
STR(2	POSTMAIL+4*
STR(3	POSTMAIL+5*
STR(4	POSTMAIL+6*
STR(5	POSTMAIL+7*
SUCCSTR	BACKUP+1~, BACKUP+8, BACKUP+9, BACKUP+10, DEBUG+3~
TAB	ADDOPTS+1~, ADDOPTS+3, ADDOPTS+6, ADDOPTS+10, ADDOPTS+14, OPTADD~, OPTADD+3, OPTADD+5, OPTADD+6, SAVEOFF+6 , SAVEOFF+8, SAVEOFF+34*, SAVEOFF+35, SAVEOFF+36
TODAY	ENVICHEK+1~, ENVIVARS+3, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+1~, POST+7, POST+20, WOTCNT+1~, WOTCNT+3* , WOTCNT+5, WOTCNT+6
U	BACKUP+21, ADDPARMS+1, SAVEOFF+1
WHATCNT	DEBUG+3~
WOTCNT	ENVICHEK+1~, ENVIVARS+4, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+1~, POST+8, POST+20
X	ENVIVARS+25, EXITKIDG+4, EXITKIDG+5, OPTADD+2, OPTADD+3, OPTADD+4, OPTADD+6, SAVEOFF+25, INITSCR+1~, INITSCR+5*
>> XPARSYS	ADDPARMS+1, SAVEOFF+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	ADDPARMS+1, SAVEOFF+1
>> XUMF	ENVIVARS+11, PRE+6
>> Y	BACKUP+15, DEBUG+29

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPRE38

Information

Source Information

Call Graph

Call Graph Total: 20

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(	SAVEOFF+3, SAVEOFF+10, SETEVARS+1, SETEVARS+3
$T(PREP^XGF	INITSCR+3