Routine: BLR138PO

Information

BLR138PO ; IHS/MSC/MKK - Modified version of LR*5.2*138 Post Install Routine ; [ 09/30/2012 8:00 AM ]

Source Information

Source file <BLR138PO.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	FIND^DIC FILE^DICN ^DIE ($$GET1,GETS)^DIQ
Kernel	1	(BMES,MES)^XPDUTL
Lab Service	1	SHOW^LRCAPPH2
Registration	1	$$SITE^VASITE

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRPRE31

Entry Points

Name	Comments	DBIA/ICR reference
VAR(IEN,SC)	; set up variables for ADD and EDIT calls based on existing entry
VARQ
ERRORS	; list of error messages
LOADB
CHKQ
EN	;Builds Laboratory OOS Location
ADD(SCNAME,SCPKG)	; add new entry
EDIT(SCIEN,SCNAME,SCINST,SCSTOP,SCPKG,SCINACT)	; update fields
SET
SCREEN(PKG)	; screen to only allow OOS locations for specified package
LK	;
LOC(NAME,INST,STOP,PKG,IEN,INACT)	; add/edit location for ancillary app
NEW(IEN,PKG)	; create new entry given parameters from existing entry
ERRCHKQ
ERR(NUMBER)	; return error message corresponding to the number passed in
LOCMAKE	;
END	;
CHK(IEN)	; check to see if patterns exist for IEN
PKGIENQ
LOCQ
ERRCHK(SC,RAD)	; check input variables for consistency
EXEMPT()	; screen on clinic stop file to select only OOS stops
UPD(IEN,PKG)	; update existing entry
PKGNM(SCPKG)	; Return Name of Package ; Input: SCPKG - Pointer to Package File (9.4) ; Returned: Name of Package or 'Bad or Missing Pointer'
PKGIEN(PKG)	; get IEN of package file entry
DIV(INST)	; return division associated with institution
NONCOUNT(IEN)	; convert location to non-count

External References

Name	Field # of Occurrence
FIND^DIC	LK+5
FILE^DICN	ADD+5
^DIE	NONCOUNT+7, EDIT+22
$$GET1^DIQ	SET+5
GETS^DIQ	PKGNM+5
SHOW^LRCAPPH2	LOADB+7
$$SITE^VASITE	SET+3
BMES^XPDUTL	EN+2, LOCMAKE+4, LOCMAKE+5, LOCMAKE+8, SET+6, SET+9, SET+11, SET+12, SET+13, LK+8 , LK+9, LOADB+5, LOADB+8
MES^XPDUTL	SET+10, SET+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Load SD5.363 Patch",80),!! Line Location: LOADB+1
Function Call: WRITE	Prompt: !,"LROK = ",LROK Line Location: LOADB+4
Routine Call	DIE Line Location: NONCOUNT+7 EDIT+22
Routine Call	DIC Line Location: LK+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(40.7 - [#40.7]	FIND^DIC
^SC - [#44]	Classic Fileman Calls
^LAB(69.9 - [#69.9]	GET1^DIQ
^DIC(9.4 - [#9.4]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	LOADB+2
^DG(40.8 - [#40.8]	VAR+12, DIV+1
^DIC(4 - [#4]	LK+4, ERRCHK+11
^DIC(40.7 - [#40.7]	LOC+27, ERRCHK+21
^DIC(9.4 - [#9.4]	LOCMAKE+1, LOCMAKE+2, PKGIEN+9, PKGIEN+10
^LAB(69.9 - [#69.9]	SET+1*, SET+3, SET+4
^LRO(67.9 - [#67.9]	SET+1, SET+2
^SC - [#44]	LOC+30, ERRCHK+9, ERRCHK+13, ERRCHK+15, VAR+8, CHK+7, CHK+8, CHK+9, CHK+10
^SC("B"	LOADB

Label References

Name	Line Occurrences
$$ADD	LOC+35, NEW+8
$$ERR	LOC+27, LOC+32, LOC+34, LOC+35, ERRCHK+10, ERRCHK+12, ERRCHK+14, ERRCHK+16, ERRCHK+17, ERRCHK+22
$$ERRCHK	LOC+25
$$LOC	LOADB+3
$$PKGIEN	LOC+23, SCREEN+1
CHKQ	CHK+7, CHK+8, CHK+9
EDIT	LOC+31, LOC+36, UPD+8, NEW+9
END	LOCMAKE+3, SET+4
ERRCHKQ	ERRCHK+6, ERRCHK+17, ERRCHK+18
LK	SET+1, SET+2, SET+3
LOADB	LK+12
LOCQ	LOC+26, LOC+27
PKGIENQ	PKGIEN+7, PKGIEN+8, PKGIEN+9, PKGIEN+10
VAR	UPD+7, NEW+7
VARQ	VAR+11

Naked Globals

Name	Field # of Occurrence
^(	SET+3*
^(99	LK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLROUT	LK+3~
BLROUT("DILIST"	LK+6
DA	END+2!, LOADB+9!, NONCOUNT+5~, NONCOUNT+6, EDIT+2~, EDIT+3
DATA	END+2!
DD	ADD+2~
DIC	END+2!, LOADB+9!, ADD+2~, ADD+3*
DIC("DR"	ADD+4*
DIC(0	ADD+3*
DIE	END+2!, LOADB+9!, NONCOUNT+5~, NONCOUNT+6, EDIT+2~, EDIT+3
DIK	END+2!
DINUM	ADD+2~
DIR	LOADB+9!
DIV	VAR+7~, VAR+12*
DO	ADD+2~
DR	END+2!, NONCOUNT+5~, NONCOUNT+6, EDIT+2~, EDIT+3, EDIT+4, EDIT+5, EDIT+7, EDIT+8, EDIT+9* , EDIT+10, EDIT+11, EDIT+12, EDIT+13, EDIT+14, EDIT+15, EDIT+16, EDIT+17, EDIT+18, EDIT+20 , EDIT+21*
DT	ERRCHK+14
ERR	LOC+22~, LOC+25, LOC+26, LOC+32, LOC+34, LOC+35, LOCQ
I	LOC+22~, LOC+24, LOC+34, CHK+5~, CHK+10*
IEN	LOC~, LOC+28, LOC+30, LOC+31, LOC+35, LOC+36, LOCQ, ERRCHK+7~, ERRCHK+8, ERRCHK+9 , ERRCHK+13, ERRCHK+15, NONCOUNT~, NONCOUNT+6, UPD~, UPD+7, UPD+8, NEW~, NEW+7, NEW+8* , NEW+9, NEW+10, VAR~, VAR+8, CHK~, CHK+7, CHK+8, CHK+9, CHK+10
INACT	LOC~, LOC+31
INST	LOC~, LOC+31, LOC+36, DIV~, DIV+1, EDIT+2~
IOM	SET+8
LOC	ERRCHK+4~, ERRCHK+9*, ERRCHK+10, ERRCHK+12
>> LRDBUG	END+1, LOADB+4, LOADB+9
LRDIV	END+2!, LK+4*, LK+11
LRDIVN	SET+1, SET+2, SET+3*, END+2!, LK+4, LOADB+3
LRNAME	END+2!, LK+11, LOADB, LOADB+3
LROK	SET, SET+1, SET+2, SET+3, END+2!, LOADB+3, LOADB+4, LOADB+5
LRPKG	LOCMAKE+1, LOCMAKE+2, LOCMAKE+3, END+2!, LOADB+3
LRSCODE	END+2!, LK+6*, LK+7, LK+11, LOADB+3
>> LRSDCX	LK+1
LRVN	SET+1*, SET+2, END+2!
LRVN1	SET+2*, END+3!
NAME	LOC~, LOC+31, LOC+35, LOC+36
NUMBER	ERR~, ERR+5
OK	ERRCHK+4~, CHK+5~, CHK+6, CHK+7, CHK+8, CHK+9, CHK+10*, CHKQ
PKG	LOC~, LOC+23, LOC+31, LOC+35, LOC+36, ERRCHK+17, UPD~, UPD+8, NEW~, NEW+8 , NEW+9, PKGIEN~, PKGIEN+6, PKGIEN+7, PKGIEN+8, PKGIEN+9, PKGIEN+10, SCREEN~, SCREEN+1
RAD	ERRCHK~, ERRCHK+11
SC	ERRCHK~, UPD+6~, UPD+7, NEW+6~, NEW+7, VAR~
SC("IEN"	ERRCHK+6, ERRCHK+8
SC("INST"	ERRCHK+11, UPD+8, NEW+9, VAR+11, VAR+12
SC("NAME"	UPD+8, NEW+8, NEW+9, VAR+9*
SC("PKG"	ERRCHK+16
SC("STOP"	ERRCHK+18, ERRCHK+20, UPD+8, NEW+9, VAR+10*
SCERR	LOC+22~, LOC+25
SCERR(	LOC+24*
SCIEN	EDIT~, EDIT+3
SCINACT	EDIT~, EDIT+19
SCINST	EDIT~, EDIT+6
SCNAME	ADD~, ADD+3, EDIT~, EDIT+4
SCOS	PKGNM+4~
SCOS(	PKGNM+6
SCPKG	ADD~, EDIT~, PKGNM~, PKGNM+5, PKGNM+6
SCSTOP	EDIT~, EDIT+9
STOP	LOC~, LOC+27, LOC+31, LOC+36, ERRCHK+19~, ERRCHK+20, ERRCHK+21*, ERRCHK+22
>> STR	SET+5, SET+6, SET+8, SET+9, SET+10, SET+13, SET+14
U	LK+4, LOADB+5
X	END+3!, LOADB+2, LOC+22~, LOC+29~, LOC+30, LOC+31, ERRCHK+4~, ERRCHK+13, ERRCHK+14, ERRCHK+15 , ERRCHK+16, VAR+7~, VAR+8, VAR+9, VAR+10, VAR+11, VAR+12, ADD+2~, ADD+3, EDIT+2~
>> XPDQUIT	LOCMAKE+6, SET+15
Y	LOC+27, ERRCHK+4~, ERRCHK+5, ERRCHK+6, ERRCHK+10, ERRCHK+11, ERRCHK+12, ERRCHK+14, ERRCHK+16, ERRCHK+17* , ERRCHK+18, ERRCHK+22, ERRCHKQ, PKGIEN+5~, PKGIEN+7, PKGIEN+8, PKGIEN+9, PKGIEN+10, PKGIEN+11, PKGIENQ , ADD+2~, ADD+6

Customize PDF page

Package: IHS Changes To Lab

Routine: BLR138PO

Call Graph Total: 7

Caller Graph Total: 1