Routine: LRCAPPH2

Package	Total	Call Graph
VA Fileman	3	^DIE EN^DIQ ^DIR
Kernel	1	$$CJ^XLFSTR
Scheduling	1	($$EXEMPT,$$LOC)^SCDXUAPI

Package	Total	Caller Graph
Lab Service	3	LR WKLD ACC AREA LOCATION LR WKLD LOCATION LR138PO
IHS Changes To Lab	1	BLR138PO

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	;
END0
CHK	;
EN	;
END	;
SHOW
44	;
LOADB
DETAIL
SCODE	;
DIV	;
DEND
ACC	;
DIS	;

External References

Name	Field # of Occurrence
^DIE	ACC+13
EN^DIQ	SHOW
^DIR	EN+13, DIV+3, SCODE+2, DIS+4, ACC+2, 44+2
$$EXEMPT^SCDXUAPI	SCODE+2
$$LOC^SCDXUAPI	LOAD+3
$$CJ^XLFSTR	EN+3, EN+4, EN+11, EN+12, DIV+1, DIS+2, LOAD+7, ACC+6, ACC+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Not able to find 'LAB SERVICE' in your Package (#9.4) file.",80),!,$$CJ^XLFSTR("Contact your IRM Service !!",80),!!,$C(7) Line Location: EN+3
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("List of already defined Laboratory OOS Locations",80),! Line Location: EN+4
Function Call: WRITE	Prompt: !,$P(X,U),?32,$P($G(^DIC(4,+$P(X,U,4),99)),U),?40,$P($G(^DIC(40.7,+$P(X,U,7),0)),U,2) Line Location: EN+6
Function Call: WRITE	Prompt: !,$P(X,U),?32,$P($G(^DIC(4,+$P(X,U,4),99)),U),?40,$P($G(^DIC(40.7,$P(X,U,7),0)),U,2) Line Location: EN+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("NONE ARE CURRENTLY DEFINED",80) Line Location: EN+11
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("INSTALL PATCH LR5.2138",80),! Line Location: EN+12
Function Call: WRITE	Prompt: !! Line Location: EN+14
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" You may define a new Laboratory OOS Location ",80),! Line Location: DIV+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ONCE DEFINED - IT CAN NOT BE DELETED",80),! Line Location: DIS+2
Function Call: WRITE	Prompt: !! Line Location: CHK+1
Function Call: WRITE	Prompt: @IOF,!?20,LRNAME,!?5," This location is already defined ",!,$C(7) Line Location: CHK+5
Function Call: WRITE	Prompt: @IOF Line Location: CHK+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Load SD5.363 Patch",80),!! Line Location: LOAD+1
Function Call: WRITE	Prompt: !,"LROK = ",LROK Line Location: LOAD+4
Function Call: WRITE	Prompt: !!?5,$P(LROK,U,2),!,"LOCATION NOT CREATED",!,$C(7) Line Location: LOAD+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("LAB Location Added",80),!! Line Location: LOAD+7
Function Call: WRITE	Prompt: !! Line Location: SHOW+0
Function Call: WRITE	Prompt: @IOF,!,$$CJ^XLFSTR("Current Laboratory OOS Location",80),! Line Location: ACC+6
Function Call: WRITE	Prompt: $$CJ^XLFSTR("For [ "_$P(Y,U,2)_" ] Accession Area ",80) Line Location: ACC+7
Function Call: WRITE	Prompt: !?10,"NO SELECTION MADE ",!! Line Location: ACC+10
Function Call: WRITE	Prompt: !?10,"DONE",! Line Location: ACC+14
Routine Call	DIE Line Location: ACC+13
Routine Call	DIR Line Location: EN+13 DIV+3 SCODE+2 DIS+4 ACC+2 44+2

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	LOAD+2
^DIC(4 - [#4]	EN+8, DIV+5
^DIC(40.7 - [#40.7]	EN+8
^DIC(9.4 - [#9.4]	EN+1, EN+2
^LAB(69.9 - [#69.9]	ACC+9
^LRO(68 - [#68]	ACC+5, ACC+9
^SC - [#44]	EN+5, ACC+9
^SC("B"	CHK+4, LOADB

Name	Field # of Occurrence
^(	EN+5
^(0	EN+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	EN+5, EN+8, EN+10
DA	LOAD+8!, SHOW!, END0!, DEND!, ACC+13!
DIC	DIV+2!, LOAD+8!, SHOW!*, END0!, DEND!, 44+1!
DIE	LOAD+8!, SHOW!, ACC+13!*
DIR	EN+13!, EN+14!, DIV+2!, SCODE+1!, DIS+3!, CHK+1!, LOAD+8!, END0!, DETAIL!, DEND! , ACC+1!, ACC+6!, ACC+9!
DIR("A"	EN+13, DIV+2, SCODE+1, DIS+3, ACC+1, ACC+9, 44+1*
DIR("B"	EN+13, DIS+4, ACC+9*
DIR("S"	DIV+3, SCODE+2, 44+1*
DIR(0	EN+13, DIV+2, SCODE+1, DIS+4, ACC+1, 44+1
>> DIRUT	EN+15, DIV+4, SCODE+3, CHK+2, DETAIL+1, ACC+3, ACC+11
DR	SHOW, END0!, ACC+13
>> DTOUT	EN+15, DIV+4, SCODE+3, CHK+2, DETAIL+1, ACC+3, ACC+11
>> DUOUT	EN+15, DIV+4, SCODE+3, CHK+2, DETAIL+1, ACC+3, ACC+11
>> I	EN+5*
IOF	CHK+5, CHK+7, ACC+6
LRAA	END0+1!, ACC+4*, ACC+5, ACC+9, ACC+13
>> LRDBUG	LOAD+4, LOAD+8, END+1
LRDIV	DIV+5*, DIS+1, END0!
LRDIVN	DIV+5*, LOAD+3, END0!
LRLOC	END0+1!, ACC+12*, ACC+13
LRNAME	DIS+1, DIS+3, CHK+4, CHK+5, LOADB, LOAD+3, END0!
LROK	LOAD+3, LOAD+4, LOAD+5, SHOW, DETAIL+2, DEND!, ACC+5*, ACC+9!
>> LRPKG	EN+1, EN+2, EN+3, LOAD+3
LRSCODE	SCODE+4*, DIS+1, LOAD+3, END0!
LRSCODEN	SCODE+4*, END0!
S	END0!
SCERR	END0!
U	EN+5, EN+8, DIV+5, SCODE+4, LOAD+5, ACC+7, ACC+9
>> X	EN+5, EN+8, LOAD+2
>> Y	EN+16, DIV+5, SCODE+4, CHK+3, DETAIL+2, ACC+3, ACC+4, ACC+7, ACC+10, ACC+11 , ACC+12
>> Y(0	SCODE+4

Customize PDF page

Package: Lab Service

Routine: LRCAPPH2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
44	DETAIL, ACC+9
ACC	ACC+10, ACC+14
DEND	DETAIL+1
DETAIL	EN+16, DETAIL+2
DIV	CHK+3, CHK+7
EN	EN+16, CHK+4
END	EN+3, EN+10, EN+15, DIV+4, DIV+5, SCODE+3, SCODE+4, CHK+2, ACC+3, ACC+11
END0	CHK+6, CHK+7
LOAD	CHK+7
SHOW	LOAD+6, DETAIL+2, ACC+8