Routine: LR7OU1

Package	Total	Call Graph
Order Entry Results Reporting	1	$$VALUE^ORCSAVE2
VA Fileman	1	^DIC

Package

Total

Call Graph

Order Entry Results Reporting

$$VALUE^ORCSAVE2

VA Fileman

^DIC

Package	Total	Caller Graph
Lab Service	32	LR7OB1 LR7OB63C LR7OB63D LR7OB69 LR7OC0 LR7OF5 LR7OMERG LR7OPOS LR7OR1 LR7OR2 LR7OU3 LR7OV2 LRBLPE LRCENDE1 LREXECU LRHYDEL LRMISTF1 LRMIUT1 LROR1 LROR6 LRORDST LROW1 LROW2 LRPHITE1 LRPHITEM LRPHSET2 LRTSTJAN LRTSTOUT LRTSTSET LRVER3A LRWD LRWLST
IHS Changes To Lab	9	BLR7OB1 BLRADDCD BLRAG05B BLRAG08 BLRDIAG1 BLRMANP2 BLRPRE31 BLRRLTAR BLRRLTDR
VueCentric RPMS Support	2	CIAZPLBB CIAZPLCH

Package

Total

Caller Graph

Lab Service

LR7OB1  LR7OB63C  LR7OB63D  LR7OB69  LR7OC0  LR7OF5  LR7OMERG  LR7OPOS
LR7OR1  LR7OR2  LR7OU3  LR7OV2  LRBLPE  LRCENDE1  LREXECU  LRHYDEL
LRMISTF1  LRMIUT1  LROR1  LROR6  LRORDST  LROW1  LROW2  LRPHITE1
LRPHITEM  LRPHSET2  LRTSTJAN  LRTSTOUT  LRTSTSET  LRVER3A  LRWD  LRWLST

IHS Changes To Lab

BLR7OB1 BLRADDCD BLRAG05B BLRAG08 BLRDIAG1 BLRMANP2 BLRPRE31 BLRRLTAR
BLRRLTDR

VueCentric RPMS Support

CIAZPLBB CIAZPLCH

Entry Points

Name	Comments	DBIA/ICR reference
SAMPCOM(PK,IFN)	;Get Ward Remarks (specimen) for lab order
WC(PK,IFN)	;Get collection type for print fields
EN(TST,SUB)	;Expand a lab panel
SPLIT(TXT,ARAY,CTR,LENGTH,PRE,POST)	;Splits text into an array
ACC(PK,IFN)	;Get accession numbers for print fields
SAMP(ODT,SN)	;Get collection sample pointer from lab order
COL(PK,IFN)	;Get collection sample with Tube type for print fields	ICR #2955 Status: Active Usage: Controlled Subscription
STRIP(X)	; -- Strip leading spaces from text X
LU(PK,IFN)	;Get urgency for print fields	ICR #2955 Status: Active Usage: Controlled Subscription
EXPAND(TEST,ARAY)	;Expand a lab test panel	ICR #2955 Status: Active Usage: Controlled Subscription
EX(TST)	;
GET0(ODT,SN)	;Get zero node: ^LRO(69,ODT,1,SN,0) for an ORIFN
TEST	;Test expanding panel
WARDCOM(PK,IFN)	;Get General Ward comments on a test order
VER()	;Check OE/RR version #
GETST(ODT,SN,IFN)	;Find test node from LRODT,LRSN for a given ORIFN
UPPER(X)	; Convert lower case X to UPPER CASE
GETTEST(IFN)	;Get Lab test from Order entry
TYPE(ODT,SN)	;Get collection type internal value from lab order

Name	Field # of Occurrence
^DIC	TEST+1
$$VALUE^ORCSAVE2	GETTEST+4

Name	Line Occurrences (* Changed, ! Killed)
^DD(100	VER+2
^LAB(60 - [#60]	EN+6, SAMPCOM+4, EX+2, EX+4
^LAB(62 - [#62]	COL+3
^LAB(62.05 - [#62.05]	LU+2
^LRO(68 - [#68]	ACC+2
^LRO(69 - [#69]	GETST+3, GETST+6, GETST+7, GET0+3
^ORD(101.43 - [#101.43]	GETTEST+5

Name	Line Occurrences
$$GET0	SAMP+2, TYPE+2
$$GETST	ACC+2, LU+2, SAMPCOM+2, WARDCOM+2
$$GETTEST	GETST+5
$$SAMP	COL+2, SAMPCOM+3
$$STRIP	SPLIT+15, SPLIT+18
$$TYPE	WC+2
EN	EN+6, TEST+2
EX	EXPAND+4, EX+4
SPLIT	SPLIT+19

Name	Field # of Occurrence
^(	EN+6, EX+4
^("VR"	VER+2
^(0	ACC+2, COL+3, GETST+7, EX+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARAY	EXPAND~, EXPAND+5*, SPLIT~, SPLIT+10, SPLIT+15, SPLIT+18, SPLIT+19
CTR	SPLIT~, SPLIT+11, SPLIT+15, SPLIT+18*, SPLIT+19
>> DIC	TEST+1*
>> DIC(0	TEST+1*
END	GETST+4~, GETST+5, GETST+6, GETST+7, SPLIT+9~, SPLIT+16, SPLIT+17, SPLIT+18, SPLIT+19
I	STRIP+1~, STRIP+2*
IFN	WC~, ACC~, ACC+2, LU~, LU+2, COL~, GETTEST~, GETTEST+2, GETTEST+4, GETST~ , GETST+2, GETST+5, SAMPCOM~, SAMPCOM+2, WARDCOM~, WARDCOM+2
INARAY	EXPAND+3~, EXPAND+5
INARAY(	EX+3*
J	EN+4~, EN+6, EX+1~, EX+4
LENGTH	SPLIT~, SPLIT+12*, SPLIT+15, SPLIT+16, SPLIT+18, SPLIT+19
ODT	GETST~, GETST+2, GETST+3, GETST+6, GETST+7, GET0~, GET0+2, GET0+3, SAMP~, SAMP+2 , TYPE~, TYPE+2
PK	WC~, WC+2, ACC~, ACC+2, LU~, LU+2, COL~, COL+2, SAMPCOM~, SAMPCOM+2 , SAMPCOM+3, WARDCOM~, WARDCOM+2
POST	SPLIT~, SPLIT+14*, SPLIT+15, SPLIT+18, SPLIT+19
PRE	SPLIT~, SPLIT+13*, SPLIT+15, SPLIT+18, SPLIT+19
S2	EN+4~, EN+5*
SN	GETST~, GETST+2, GETST+3, GETST+6, GETST+7, GET0~, GET0+2, GET0+3, SAMP~, SAMP+2 , TYPE~, TYPE+2
SPEC	SAMPCOM+1~, SAMPCOM+3, SAMPCOM+4, SAMPCOM+5
SUB	EN~, EN+5, EX+1~, EX+2*, EX+3
T	GETST+4~, GETST+5, GETST+6, GETST+7
TEST	SAMPCOM+1~, SAMPCOM+2, SAMPCOM+4, SAMPCOM+5, WARDCOM+1~, WARDCOM+2, WARDCOM+3, EXPAND~, EXPAND+4
TST	EN~, EN+5, EN+6, GETST+4~, GETST+5*, GETST+7, EX~, EX+2, EX+3, EX+4
TSTY	TEST+2~
TSTY(	EN+5*
TXT	SPLIT~, SPLIT+10, SPLIT+15, SPLIT+16, SPLIT+18, SPLIT+19
VER	VER+2~*, VER+3
X	EN+4~, EN+6, UPPER~, UPPER+1, WC+1~, WC+2, ACC+1~, ACC+2, ACC+3, LU+1~ , LU+2, LU+3, COL+1~, COL+2, COL+3, GETTEST+3~, GETTEST+4, GETTEST+5, GETTEST+6, GETST+4~ , GETST+5, GETST+7, GETST+8, EX+1~, EX+4, STRIP~, STRIP+2
Y	TEST+1, TEST+2, WC+2, WC+3, ACC+1~, ACC+2, COL+1~, COL+3, COL+4, STRIP+1~ , STRIP+2*, STRIP+3
Y(0	TEST+2

Customize PDF page

Package: Lab Service

Routine: LR7OU1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 43

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: