Routine: LR138PO

Package	Total	Call Graph
Kernel	2	$$CJ^XLFSTR $$ADD^XPDMENU
Lab Service	2	LOADB^LRCAPPH2 EQUALS^LRX
Registration	1	$$SITE^VASITE
VA Fileman	1	EN^DIQ

Package	Total	Caller Graph
Lab Service	1	LRBLFX72

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;
SET
END	;
LK	;
EN	;Builds Laboratory OOS Locations for each LMIP valid WKLD Divison
MSG

External References

Name	Field # of Occurrence
EN^DIQ	SET+6
LOADB^LRCAPPH2	LK+4
EQUALS^LRX	SET+7, SET+9
$$SITE^VASITE	SET+3
$$CJ^XLFSTR	EN+2, LOC+4, LOC+5, LOC+6, SET+4, SET+6, SET+8, MSG+1, MSG+2
$$ADD^XPDMENU	EN+6, EN+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Starting Post Install Process",80),!! Line Location: EN+2
Function Call: WRITE	Prompt: !?5,"Cant lock ^LRO(69,AA) GLOBAL POST INSTALL ABORTED",! Line Location: EN+5
Function Call: WRITE	Prompt: !!,"Option [LR WKLD LOCATIONS] was ",$S(X:"Added",1:"NOT ADDED")," to [LR LIM/WKLD] MENU ",!! Line Location: EN+7
Function Call: WRITE	Prompt: !!,"Option [LR WKLD ACC AREA LOCATIONS] was ",$S(X:"Added",1:"NOT ADDED")," to [LR LIM/WKLD] MENU ",!! Line Location: EN+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("POST INSTALL ABORTED",80) Line Location: LOC+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Creating Laboratory OOS Workload Locations",80),!! Line Location: LOC+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Database Upgrade Completed Successfully",80),!! Line Location: SET+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("DEFAULT LAB OOS LOCATION IS",80),!! Line Location: SET+6
Function Call: WRITE	Prompt: ! Line Location: SET+6
Function Call: WRITE	Prompt: !! Line Location: SET+7
Function Call: WRITE	Prompt: $C(7) Line Location: SET+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" Database Upgrade was INCOMPLETE ",80) Line Location: SET+8
Function Call: WRITE	Prompt: !! Line Location: SET+9
Function Call: WRITE	Prompt: $C(7) Line Location: SET+9
Function Call: WRITE	Prompt: ! Line Location: SET+10
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PCE/VSIT ON (#615) field in LABORATORY SITE (#69.9) file",80) Line Location: MSG+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("has been set to BOTH PCE/VSIT AND STOP CODES",80),!! Line Location: MSG+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LK+2
^DIC(9.4 - [#9.4]	LOC+1, LOC+2
^LAB(69.9 - [#69.9]	SET+1, SET+3, SET+4, SET+5, MSG
^LAM(0	EN+3
^LRO(67.9 - [#67.9]	SET+1, SET+2
^LRO(69 - [#69]	EN+4, END+1

Label References

Name	Line Occurrences
END	EN+4, LOC+3
LK	SET+1, SET+2, SET+3
MSG	SET+4

Naked Globals

Name	Field # of Occurrence
^(	SET+3*
^(0	EN+3*
^(99	LK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	SET+5!*, END+3!
DATA	END+3!
DIC	SET+5!*, END+3!
DIE	SET+5!, END+3!
DIK	END+3!
DR	SET+5*, END+3!
>> I	SET+7, SET+9
>> LRDBUG	END+2
LRDIV	END+3!, LK+2*, LK+3
LRDIVN	SET+1, SET+2, SET+3*, END+3!, LK+2
LRNAME	END+3!, LK+3*
LROK	SET*, SET+1, SET+2, SET+3, END+3!
LRPKG	LOC+1, LOC+2, LOC+3, END+3!
LRSCODE	END+3!, LK+3*
>> LRSDCX	LK+1
LRVN	SET+1*, SET+2, END+3!
LRVN1	SET+2*, END+4!
U	EN+3, MSG, LK+2
X	EN+6, EN+7, EN+8, EN+9, END+4!
>> XPDQUIT	LOC+4*

Customize PDF page

Package: Lab Service

Routine: LR138PO

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: