Routine: BLR35PST

Call Graph

Call Graph Total: 21

Package	Total	Call Graph
IHS Changes To Lab	9	OERRSTSC^BLR7OB1 (EEP,PRESSKEY)^BLRGMENU (BOKAY,NOSNAPS)^BLRKIDS2 TABMENU^BLRKIDSU PASSMESG^BLRPRE31 (ENVICHEK,PRE)^BLRPRE35 MAILALMI^BLRUTIL3 $$PATCH^BLRUTIL4 ($$PLURAL,$$PLURALI)^BLRUTIL7
Kernel	6	ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$HTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR ($$ADD,$$LKOPT)^XPDMENU (BMES,MES)^XPDUTL
VA Fileman	5	$$FIND1^DIC (FILE,UPDATE)^DIE ^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
IHS Changes To Lab	2	BLRPRE35 BLRPRE36

Package

Total

Caller Graph

IHS Changes To Lab

BLRPRE35 BLRPRE36

Entry Points

Name	Comments	DBIA/ICR reference
PEP	; EP
EEP	; EP - Ersatz EP
CLEANUP	; EP - Ensure ^BLRENTRY global is purged
SETEVARS	; EP - SET standard "Enviroment" VARiables.
ENDINSTL(CURPATCH)	; EP - End Installation
INITSCR	; EP - Initialize screen. Cloned from INIT^XPDID
ADDNOPTS	; EP - ADD New OPTionS
WARMFZZY(ORDCNT)	; EP - "Warm Fuzzy" for user
MESCNTR(STR)	; EP - Center a line and use XPDUTL to display it
BLANK	; EP - Blank Line
POSTMAIL(BLRVERN,CPSTR)	; EP - Post Install MailMan Message
NEWOPT(MENU,NEWOPTN,NEWSYNM,NEWORD)	; EP - Add Option to a Menu
POSTDBG	; EP - POST INSTALL for DEBUG
CHKOERRT(LRODT,LRSP,LROT)	; EP - Delete invalid OERR #'s at the Test level
POSTIT(CP,MSG,BL)	; EP - Write the MSG string and store into the INSTALL file
BADOERRC	; EP - Clean Up OERR Data in File 69
DEBUG	; EP - Debugging Line Label for environment checker
POST	; EP - POST INSTALL
NOPCEON	; EP - Ensure LABORATORY SITE (#69.9) file's PCE VISIT ON field is OFF if PCE not installed.
WOTCNT(BLRVERN)	; EP - Counter for ^XTMP
SAVERRS(FDA,ERR,MSG)	; EP
CHKBCKUP	; EP - Check to determine if BACKUP has been performed.
LABJRNL	; EP - Get rid of pointers in file 61.2 that point to an empty File 95.
CHKOERRO(LRODT,LRSP)	; EP - Delete invalid OERR #'s at the Order level

External References

Name	Field # of Occurrence
ENDR^%ZISS	INITSCR+6
OERRSTSC^BLR7OB1	POSTDBG+11
EEP^BLRGMENU	EEP+1
PRESSKEY^BLRGMENU	DEBUG+27
BOKAY^BLRKIDS2	CHKBCKUP+27, NOPCEON+9, BADOERRC+17
NOSNAPS^BLRKIDS2	POSTDBG+9
TABMENU^BLRKIDSU	BADOERRC+18, BADOERRC+20, BADOERRC+21, BADOERRC+22, BADOERRC+23, BADOERRC+24
PASSMESG^BLRPRE31	CHKBCKUP+4, CHKBCKUP+16
ENVICHEK^BLRPRE35	DEBUG+26
PRE^BLRPRE35	DEBUG+31
MAILALMI^BLRUTIL3	POSTMAIL+12
$$PATCH^BLRUTIL4	NOPCEON+3
$$PLURAL^BLRUTIL7	BADOERRC+24
$$PLURALI^BLRUTIL7	BADOERRC+20, BADOERRC+21, BADOERRC+22, BADOERRC+23
$$FIND1^DIC	NEWOPT+6
FILE^DIE	CHKOERRO+11, CHKOERRT+11
UPDATE^DIE	NOPCEON+7
^DIK	LABJRNL+17
$$GET1^DIQ	CHKBCKUP+18, CHKBCKUP+27, ENDINSTL+5
^DIR	DEBUG+38, CHKBCKUP+11
^XBFMK	DEBUG+34, CHKBCKUP+7
FRAME^XGF	INITSCR+9
IOXY^XGF	INITSCR+11
PREP^XGF	INITSCR+3, INITSCR+4
$$DT^XLFDT	POSTDBG+4, LABJRNL+10, WOTCNT+3
$$HTE^XLFDT	CHKBCKUP+25, ENDINSTL+6
$$HTFM^XLFDT	LABJRNL+10, SAVERRS+3
$$NOW^XLFDT	POSTDBG+24
$$CJ^XLFSTR	MESCNTR+1
$$UP^XLFSTR	NEWOPT+15
$$ADD^XPDMENU	NEWOPT+10
$$LKOPT^XPDMENU	NEWOPT+5
BMES^XPDUTL	POSTDBG+7, POSTDBG+18, NEWOPT+8, CHKBCKUP+17, CHKBCKUP+18, CHKBCKUP+19, NOPCEON+11, BADOERRC+3, POSTIT+4
MES^XPDUTL	NEWOPT+12, NEWOPT+14, NEWOPT+15, BLANK+1, MESCNTR+1, POSTIT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOSTBM Line Location: INITSCR+8
Function Call: WRITE	Prompt: !! Line Location: DEBUG+7
Function Call: WRITE	Prompt: "Debug Routine ",BLRVERN," Begins:",!! Line Location: DEBUG+8
Function Call: WRITE	Prompt: ! Line Location: DEBUG+22
Function Call: WRITE	Prompt: !!! Line Location: DEBUG+32
Function Call: WRITE	Prompt: !!,"Debug Routine ",BLRVERN," Ends.",!! Line Location: DEBUG+43
Function Call: WRITE	Prompt: ! Line Location: CHKBCKUP+5
Function Call: WRITE	Prompt: ! Line Location: CHKBCKUP+12
Function Call: WRITE	Prompt: ?4 Line Location: BADOERRC+5
Routine Call	DIE Line Location: NOPCEON+7
Routine Call	DIC Line Location: NEWOPT+6
Routine Call	DIE Line Location: CHKOERRO+11 CHKOERRT+11
Routine Call	DIR Line Location: DEBUG+38 CHKBCKUP+11

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRENTRY	CLEANUP+3
^BLRINSTL("LAB PATCH"	CHKBCKUP+23, CHKBCKUP+24, CHKBCKUP+25, ENDINSTL+3, ENDINSTL+5, ENDINSTL+6
^LAB(61.2 - [#61.2]	LABJRNL+6, LABJRNL+7, LABJRNL+12
^LAB(95 - [#95]	LABJRNL+3
^LRO(69 - [#69]	BADOERRC+6, BADOERRC+8, BADOERRC+12, CHKOERRO+3, CHKOERRT+3
^OR(100 - [#100]	CHKOERRO+5, CHKOERRT+5
^VA(200 - [#200]	CHKBCKUP+24
^XPD(9.7 - [#9.7]	POSTIT+8, POSTIT+10, POSTIT+11, POSTIT+12
^XTMP(	POSTDBG+24, WOTCNT+5, WOTCNT+6
^XTMP("BLRPRE35"	SAVERRS+4, SAVERRS+5, SAVERRS+7, SAVERRS+8, SAVERRS+9*
^XTMP("LABJOURNL"	LABJRNL+10, LABJRNL+11, LABJRNL+12, LABJRNL+19

Label References

Name	Line Occurrences
$$WOTCNT	POSTDBG+5
BADOERRC	POSTDBG+14
BLANK	POSTDBG+7, POSTDBG+16, NEWOPT+12, NEWOPT+15
CHKOERRO	BADOERRC+10
CHKOERRT	BADOERRC+13
CLEANUP	POSTDBG+13
ENDINSTL	POSTDBG+16
LABJRNL	POSTDBG+10
NEWOPT	ADDNOPTS+5, ADDNOPTS+6, ADDNOPTS+7, ADDNOPTS+8, ADDNOPTS+9
NOPCEON	POSTDBG+12
POSTDBG	DEBUG+41
POSTMAIL	POSTDBG+22
SAVERRS	CHKOERRO+15, CHKOERRT+15
SETEVARS	POSTDBG+2, DEBUG+5
WARMFZZY	BADOERRC+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BADCNT	BADOERRC+4, BADOERRC+18, BADOERRC+20, CHKOERRO+7, CHKOERRT+7*
>> BADOCNT	BADOERRC+4, BADOERRC+21, BADOERRC+22, CHKOERRO+8
>> BADTCNT	BADOERRC+4, BADOERRC+22, CHKOERRT+8
>> BCKUPCNT	CHKBCKUP+23*, CHKBCKUP+24, CHKBCKUP+25
BL	POSTIT~, POSTIT+1, POSTIT+3*, POSTIT+4, POSTIT+5, POSTIT+11
BLRIEN	NEWOPT+1~, NEWOPT+5*, NEWOPT+6
BLRVERN	POSTDBG+5, POSTDBG+22, POSTDBG+24, POSTMAIL~, POSTMAIL+4, POSTMAIL+12, SETEVARS+3*, WOTCNT~, WOTCNT+5, WOTCNT+6 , DEBUG+8, DEBUG+43
CNT	LABJRNL+5, LABJRNL+8, LABJRNL+9, LABJRNL+19, WOTCNT+1~, WOTCNT+5, WOTCNT+6, WOTCNT+7, BADOERRC+4
CP	POSTDBG+16, SETEVARS+1, SETEVARS+2, CHKBCKUP+1~, CHKBCKUP+2, CHKBCKUP+23, CHKBCKUP+24, CHKBCKUP+25, POSTIT~, POSTIT+1 , POSTIT+8
CPSTR	POSTDBG+7, POSTDBG+18, POSTDBG+22, POSTMAIL~, POSTMAIL+6, POSTMAIL+12, SETEVARS+2*, DEBUG+23
CURPATCH	ENDINSTL~, ENDINSTL+3, ENDINSTL+5, ENDINSTL+6
DA	LABJRNL+14!, LABJRNL+15*
DA(1	LABJRNL+15*, LABJRNL+16
DAYSPURG	SAVERRS+1~, SAVERRS+3*, SAVERRS+4
>> DEBUG	POSTDBG+20, ADDNOPTS+1, POSTMAIL+9, DEBUG+20*
DEBUGGLO	CLEANUP+1~, CLEANUP+5*, CLEANUP+6
>> DELCNT	BADOERRC+4, BADOERRC+23, CHKOERRO+13, CHKOERRT+13*
>> DIK	LABJRNL+16*
>> DILOCKTM	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
>> DIR("A"	DEBUG+37, CHKBCKUP+10
>> DIR("B"	DEBUG+36, CHKBCKUP+9
>> DIR(0	DEBUG+35, CHKBCKUP+8
>> DISYS	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
DT	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, SAVERRS+4, SAVERRS+5, POSTIT+1
DTIME	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
DUZ	POST+1, LABJRNL+1, DEBUG+1, CHKBCKUP+18, CHKBCKUP+24, CHKBCKUP+27, ENDINSTL+5, BADOERRC+1, POSTIT+1
ERR	SAVERRS~
ERRS	NOPCEON+1~, NOPCEON+8, CHKOERRO+1~, CHKOERRO+9!, CHKOERRO+13, CHKOERRO+15, CHKOERRT+1~, CHKOERRT+9!, CHKOERRT+13, CHKOERRT+15 , SAVERRS+8
>> ERRSCNT	BADOERRC+4, BADOERRC+24, CHKOERRT+15
FDA	NOPCEON+1~, CHKOERRO+1~, CHKOERRO+9!, CHKOERRO+15, CHKOERRT+1~, CHKOERRT+9!, CHKOERRT+15, SAVERRS~, SAVERRS+7
FDA(	NOPCEON+6, CHKOERRO+10, CHKOERRT+10*
>> IEN	LABJRNL+5, LABJRNL+6, LABJRNL+7, LABJRNL+11, LABJRNL+12, LABJRNL+15, POSTIT+8*, POSTIT+10, POSTIT+11, POSTIT+12
INSTCNT	ENDINSTL+1~, ENDINSTL+3*, ENDINSTL+5, ENDINSTL+6
IO	POST+1, LABJRNL+1, INITSCR+2, DEBUG+1, BADOERRC+1, POSTIT+1
IO(0	INITSCR+2
>> IOBM	INITSCR+7*
>> IOBS	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
IOF	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
IOM	POST+1, LABJRNL+1, MESCNTR+1, INITSCR+9, DEBUG+1, BADOERRC+1, POSTIT+1
ION	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
>> IOS	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
IOSL	POST+1, LABJRNL+1, INITSCR+7, DEBUG+1, BADOERRC+1, POSTIT+1
IOST	POST+1, LABJRNL+1, INITSCR+2, DEBUG+1, BADOERRC+1, POSTIT+1
>> IOSTBM	INITSCR+8
>> IOT	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
>> IOTM	INITSCR+7*, INITSCR+9, INITSCR+11
>> IOXY	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
>> JOURN	LABJRNL+7*, LABJRNL+12, LABJRNL+15
>> LINE	POSTIT+10, POSTIT+11, POSTIT+12
LRODT	BADOERRC+4, BADOERRC+6, BADOERRC+8, BADOERRC+10, BADOERRC+12, BADOERRC+13, CHKOERRO~, CHKOERRO+3, CHKOERRO+10, CHKOERRT~ , CHKOERRT+3, CHKOERRT+10
LROT	BADOERRC+11, BADOERRC+12, BADOERRC+13, CHKOERRT~, CHKOERRT+3, CHKOERRT+10
LRSP	BADOERRC+7, BADOERRC+8, BADOERRC+10, BADOERRC+12, BADOERRC+13, CHKOERRO~, CHKOERRO+3, CHKOERRO+10, CHKOERRT~, CHKOERRT+3 , CHKOERRT+10
MENU	NEWOPT~, NEWOPT+5, NEWOPT+8, NEWOPT+10, NEWOPT+12, NEWOPT+14
MSG	SAVERRS~, SAVERRS+9, POSTIT~, POSTIT+1, POSTIT+4, POSTIT+5, POSTIT+12
NEWOPTN	NEWOPT~, NEWOPT+8, NEWOPT+10, NEWOPT+12, NEWOPT+14
NEWORD	NEWOPT~, NEWOPT+10
NEWSYNM	NEWOPT~, NEWOPT+6, NEWOPT+10
NOW	SAVERRS+1~, SAVERRS+6*, SAVERRS+7, SAVERRS+8, SAVERRS+9
OERRNUM	CHKOERRO+1~, CHKOERRO+3, CHKOERRO+4, CHKOERRO+5, CHKOERRT+1~, CHKOERRT+3, CHKOERRT+4, CHKOERRT+5
ORDCNT	BADOERRC+4, BADOERRC+9, BADOERRC+17, WARMFZZY~, WARMFZZY+1, WARMFZZY+2
>> PATCHNUM	SETEVARS+1*
>> QUIET	POST+3, POSTDBG+9, DEBUG+40
STR	POSTMAIL+1~, POSTMAIL+12, MESCNTR~, MESCNTR+1
STR(1	POSTMAIL+3*
STR(2	POSTMAIL+4*
STR(3	POSTMAIL+5*
STR(4	POSTMAIL+6*
STR(5	POSTMAIL+7*
TAB	ADDNOPTS+3, NEWOPT+1~, NEWOPT+3, NEWOPT+12, NEWOPT+14, NEWOPT+15
TODAY	POSTDBG+4, POSTDBG+24, WOTCNT+1~, WOTCNT+3, WOTCNT+5, WOTCNT+6
U	POST+1, LABJRNL+1, DEBUG+1, CHKBCKUP+24, BADOERRC+1, CHKOERRO+3, CHKOERRT+3, SAVERRS+4, SAVERRS+5, POSTIT+1
>> WOTCNT	POSTDBG+5*, POSTDBG+24
X	NEWOPT+10, NEWOPT+12, NEWOPT+15, INITSCR+1~, INITSCR+5
>> XPARSYS	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
>> XPDABORT	DEBUG+29, CHKBCKUP+15*
>> XPDENV	DEBUG+24*
>> XPDIDVT	INITSCR+2, INITSCR+3, INITSCR+5*
>> XPDNM	DEBUG+23*
XPDSTR	INITSCR+1~, INITSCR+5*
>> XQXFLG	POST+1, LABJRNL+1, DEBUG+1, BADOERRC+1, POSTIT+1
>> Y	DEBUG+41, CHKBCKUP+14

Customize PDF page

Package: IHS Changes To Lab

Routine: BLR35PST

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 2

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