Routine: LR7OB1

Package	Total	Call Graph
Lab Service	3	(EN1,EN2)^LR7OB0 $$VER^LR7OU1 EN^LR7OV2
Kernel	1	MSG^XQOR

Package	Total	Caller Graph
Lab Service	22	LR7OB0 LR7OB63D LR7OC0 LRAUAW LRBLPE LRCENDE1 LRCENDEL LRHYDEL LRMISTF1 LRMIUT1 LROC LRORDST LROW2A LRPHITE1 LRPHITEM LRPHSET2 LRTSTJAN LRTSTOUT LRTSTSET LRUDEL LRVER3A LRWLST
IHS Changes To Lab	13	BLR7OB1 BLRADDCD BLRAG05B BLRAG05D BLRAG08 BLRDIAG1 BLRMANP2 BLRMANPU BLRRLTAR BLRRLTDR BLRSGNS3 BLRSGNSP BLRUTIL7

Entry Points

Name	Comments	DBIA/ICR reference
ACC(AC,ACDT,ACN,CONTROL,NAT)	;Set-up order message for BB,SP,EM,CY,AU accessions
ORD(ORD)	;Set test nodes in LRTMPO("LRIFN" for given Lab #
RESULTS(OREMSG,CNTRL)	;Results only protocol
ORD1(ODT,SN,TST)	;Set test nodes in LRTMPO("LRIFN" for given LRODT & LRSN (includes combined tests)
CALL(CNTRL)	;Make protocol calls
NEW(ODT,SN,CONTROL,NAT,TESTS,LRSTATI)	;Set-up order message	ICR #5480 Status: Pending Usage: Private

Name	Field # of Occurrence
EN1^LR7OB0	NEW+16, NEW+21, NEW+22
EN2^LR7OB0	ACC+7
$$VER^LR7OU1	NEW+8
EN^LR7OV2	NEW+11
MSG^XQOR	NEW+6, CALL+1, CALL+3, CALL+4, CALL+5, RESULTS+2, ACC+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	NEW+8
^LR - [#63]	NEW+8, NEW+12
^LRO(69 - [#69]	NEW+7, NEW+10*, NEW+21, ORD+5, ORD1+8, ORD1+12
^ORD(100.99 - [#100.99]	NEW+8, NEW+9
^TMP("LRAP"	NEW+14!, NEW+16!, NEW+21!, NEW+22!, CALL+5, ACC+6!, ACC+9!
^TMP("LRBB"	NEW+14!, NEW+16!, NEW+21!, NEW+22!, CALL+4, ACC+6!, ACC+9!
^TMP("LRCH"	NEW+14!, NEW+16!, NEW+21!, NEW+22!, CALL+3, ACC+6!, ACC+9!

Name	Field # of Occurrence
^(	ORD+5, ORD1+8
^(0	NEW+7, ORD1+12

Name	Field # of Occurrence
AC	ACC~, ACC+7
ACDT	ACC~, ACC+7
ACN	ACC~, ACC+7
APMSG	ACC+5~, ACC+7
BBMSG	ACC+5~, ACC+7
CHMSG	ACC+5~, ACC+7
CNTRL	CALL~, CALL+2*, CALL+3, CALL+4, CALL+5, RESULTS~, RESULTS+1
CONTROL	NEW~, NEW+16, NEW+21, NEW+22, ACC~, ACC+7, ACC+8, ORD1+9
CTR	ORD+4, ORD+6, ORD1+6~, ORD1+7, ORD1+10, ORD1+12*
DFN	NEW+8~*, NEW+9, NEW+11
I	NEW+13~
IFN	ORD+3~, ORD+5, ORD1+6~, ORD1+7, ORD1+8*
LRDPF	NEW+8~*, NEW+11
LRNIFN	NEW+13~, NEW+17*
LRSTATI	NEW~, NEW+21*
LRTMPO	NEW+13~
LRTMPO("LRIFN"	NEW+16, NEW+17, ORD+2!, ORD+6, ORD1+5!, ORD1+9, ORD1+10, ORD1+12
LRX0	NEW+7~*, NEW+8, NEW+12
MSG	NEW+13~, ACC+5~
NAT	NEW~, NEW+16, NEW+21, NEW+22, ACC~, ACC+7
ODT	NEW~, NEW+7, NEW+10, NEW+15, NEW+16, NEW+19~, NEW+20, NEW+21, NEW+22, ORD+3~ , ORD+4, ORD+5*, ORD1~, ORD1+5, ORD1+8
ORAPMSG	NEW+13~, CALL+5*
ORBBMSG	NEW+13~, CALL+4*
ORCHMSG	NEW+13~, CALL+3*
ORD	ORD~, ORD+2, ORD+5
OREMSG	RESULTS~, RESULTS+1, RESULTS+2
SN	NEW~, NEW+7, NEW+10, NEW+15, NEW+16, NEW+19~, NEW+20, NEW+21, NEW+22, ORD+3~ , ORD+5, ORD1~, ORD1+5, ORD1+8
TESTS	NEW~, NEW+15
TST	ORD1~
TST(	ORD1+10
TST(0	ORD1+10
X	NEW+17, NEW+18, NEW+19, NEW+20, ORD+3~, ORD+5, ORD+6, ORD1+6~, ORD1+8, ORD1+9 , ORD1+10, ORD1+11, ORD1+12*
Y	NEW+8~*

Name	Field # of Occurrence
$T(MSG^XQOR	NEW+6, CALL+1, ACC+4