Routine: BLR36PST

Information

BLR36PST ; IHS/MSC/MKK - IHS Lab Patch LR*5.2*1036 Post Routine ; 28-Jul-2015 06:30 ; MKK

Source Information

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Kernel	6	ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$HTE,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR ($$ADD,$$LKOPT)^XPDMENU (BMES,MES)^XPDUTL
IHS Changes To Lab	3	(EEP,PRESSKEY)^BLRGMENU (ENVICHEK,PRE)^BLRPRE35 MAILALMI^BLRUTIL3
VA Fileman	3	$$FIND1^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
ENDINSTL(CURPATCH)	; EP - End Installation
NEWOPT(MENU,NEWOPTN,NEWSYNM,NEWORD)	; EP - Add Option to a Menu
WOTCNT(BLRVERN)	; EP - Counter for ^XTMP
POSTDBG	; EP - POST INSTALL for DEBUG
POSTIT(CP,MSG,BL)	; EP - Write the MSG string and store into the INSTALL file
PEP	; EP
EEP	; EP - Ersatz EP
ADDNOPTS
WARMFZZY(ORDCNT)	; EP - "Warm Fuzzy" for user
INITSCR	; EP - Initialize screen. Cloned from INIT^XPDID
MESCNTR(STR)	; EP - Center a line and use XPDUTL to display it
BLANK	; EP - Blank Line
DEBUG	; EP - Debugging Line Label for environment checker
POST	; EP - POST INSTALL
POSTMAIL(BLRVERN,CPSTR)	; EP - Post Install MailMan Message
SETEVARS	; EP - SET standard "Enviroment" VARiables.

External References

Name	Field # of Occurrence
ENDR^%ZISS	INITSCR+6
EEP^BLRGMENU	EEP+1
PRESSKEY^BLRGMENU	DEBUG+27
ENVICHEK^BLRPRE35	DEBUG+26
PRE^BLRPRE35	DEBUG+31
MAILALMI^BLRUTIL3	POSTMAIL+12
$$FIND1^DIC	NEWOPT+6
$$GET1^DIQ	ENDINSTL+5
^DIR	DEBUG+38
^XBFMK	DEBUG+34
FRAME^XGF	INITSCR+9
IOXY^XGF	INITSCR+11
PREP^XGF	INITSCR+3, INITSCR+4
$$DT^XLFDT	POSTDBG+4, WOTCNT+3
$$HTE^XLFDT	ENDINSTL+6
$$NOW^XLFDT	POSTDBG+19
$$CJ^XLFSTR	MESCNTR+1
$$UP^XLFSTR	NEWOPT+15
$$ADD^XPDMENU	NEWOPT+10
$$LKOPT^XPDMENU	NEWOPT+5
BMES^XPDUTL	POSTDBG+7, POSTDBG+13, NEWOPT+8, 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
Routine Call	DIC Line Location: NEWOPT+6
Routine Call	DIR Line Location: DEBUG+38

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

Name	Line Occurrences (* Changed, ! Killed)
^BLRINSTL("LAB PATCH"	ENDINSTL+3, ENDINSTL+5, ENDINSTL+6
^XPD(9.7 - [#9.7]	POSTIT+8, POSTIT+10, POSTIT+11, POSTIT+12
^XTMP(	POSTDBG+19, WOTCNT+5, WOTCNT+6

Name	Line Occurrences
$$WOTCNT	POSTDBG+5
ADDNOPTS	POSTDBG+9
BLANK	POSTDBG+7, POSTDBG+11, NEWOPT+12, NEWOPT+15
ENDINSTL	POSTDBG+11
NEWOPT	ADDNOPTS+5
POSTDBG	DEBUG+41
POSTMAIL	POSTDBG+17
SETEVARS	POSTDBG+2, DEBUG+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BL	POSTIT~, POSTIT+1, POSTIT+3*, POSTIT+4, POSTIT+5, POSTIT+11
BLRIEN	NEWOPT+1~, NEWOPT+5*, NEWOPT+6
BLRVERN	POSTDBG+5, POSTDBG+17, POSTDBG+19, POSTMAIL~, POSTMAIL+4, POSTMAIL+12, SETEVARS+3*, WOTCNT~, WOTCNT+5, WOTCNT+6 , DEBUG+8, DEBUG+43
CNT	WOTCNT+1~, WOTCNT+5*, WOTCNT+6, WOTCNT+7
CP	POSTDBG+11, SETEVARS+1*, SETEVARS+2, POSTIT~, POSTIT+1, POSTIT+8
CPSTR	POSTDBG+7, POSTDBG+13, POSTDBG+17, POSTMAIL~, POSTMAIL+6, POSTMAIL+12, SETEVARS+2*, DEBUG+23
CURPATCH	ENDINSTL~, ENDINSTL+3, ENDINSTL+5, ENDINSTL+6
>> DEBUG	POSTDBG+15, ADDNOPTS+1, POSTMAIL+9, DEBUG+20*
>> DILOCKTM	POST+1, DEBUG+1, POSTIT+1
>> DIR("A"	DEBUG+37*
>> DIR("B"	DEBUG+36*
>> DIR(0	DEBUG+35*
>> DISYS	POST+1, DEBUG+1, POSTIT+1
DT	POST+1, DEBUG+1, POSTIT+1
DTIME	POST+1, DEBUG+1, POSTIT+1
DUZ	POST+1, DEBUG+1, ENDINSTL+5, POSTIT+1
>> IEN	POSTIT+8*, POSTIT+10, POSTIT+11, POSTIT+12
INSTCNT	ENDINSTL+1~, ENDINSTL+3*, ENDINSTL+5, ENDINSTL+6
IO	POST+1, INITSCR+2, DEBUG+1, POSTIT+1
IO(0	INITSCR+2
>> IOBM	INITSCR+7*
>> IOBS	POST+1, DEBUG+1, POSTIT+1
IOF	POST+1, DEBUG+1, POSTIT+1
IOM	POST+1, MESCNTR+1, INITSCR+9, DEBUG+1, POSTIT+1
ION	POST+1, DEBUG+1, POSTIT+1
>> IOS	POST+1, DEBUG+1, POSTIT+1
IOSL	POST+1, INITSCR+7, DEBUG+1, POSTIT+1
IOST	POST+1, INITSCR+2, DEBUG+1, POSTIT+1
>> IOSTBM	INITSCR+8
>> IOT	POST+1, DEBUG+1, POSTIT+1
>> IOTM	INITSCR+7*, INITSCR+9, INITSCR+11
>> IOXY	POST+1, DEBUG+1, POSTIT+1
>> LINE	POSTIT+10, POSTIT+11, POSTIT+12
MENU	NEWOPT~, NEWOPT+5, NEWOPT+8, NEWOPT+10, NEWOPT+12, NEWOPT+14
MSG	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
ORDCNT	WARMFZZY~, WARMFZZY+1*, WARMFZZY+2
>> PATCHNUM	SETEVARS+1*
>> QUIET	POST+3, 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+19, WOTCNT+1~, WOTCNT+3, WOTCNT+5, WOTCNT+6
U	POST+1, DEBUG+1, POSTIT+1
>> WOTCNT	POSTDBG+5*, POSTDBG+19
X	NEWOPT+10, NEWOPT+12, NEWOPT+15, INITSCR+1~, INITSCR+5
>> XPARSYS	POST+1, DEBUG+1, POSTIT+1
>> XPDABORT	DEBUG+29
>> XPDENV	DEBUG+24*
>> XPDIDVT	INITSCR+2, INITSCR+3, INITSCR+5*
>> XPDNM	DEBUG+23*
XPDSTR	INITSCR+1~, INITSCR+5*
>> XQXFLG	POST+1, DEBUG+1, POSTIT+1
>> Y	DEBUG+41

Customize PDF page

Package: IHS Changes To Lab

Routine: BLR36PST

Information

Source Information

Call Graph

Call Graph Total: 13

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
$T(PREP^XGF	INITSCR+3