Routine: BLRRLTDR

Call Graph

Call Graph Total: 21

Package	Total	Call Graph
IHS Changes To Lab	7	^BLRALAF ^BLREVTQ EEP^BLRGMENU $$RELAHMID^BLRRLMUU (STORTXNS,XTMPISET,XTMPNSET)^BLRRLTDU ($$ADDON,$$ISPIMS)^BLRUTIL MAILALMI^BLRUTIL3
Lab Service	7	NEW^LR7OB1 $$VER^LR7OU1 DC^LRCENDE1 ^LRPARAM END^LRTSTJAM XREF^LRVER3A PT^LRX
Kernel	3	($$FMTE,$$NOW)^XLFDT ($$TRIM,$$UP)^XLFSTR DUZ^XUP
VA Fileman	3	(,UPDATE)^DIE $$GET1^DIQ ^DIR
Automated Lab Instruments	1	EN^LA7ADL

Package	Total	Caller Graph
IHS Changes To Lab	2	BLRMANPU BLRRLTDU
Automated Lab Instruments	1	LA7VCIN9

Package

Total

Caller Graph

IHS Changes To Lab

BLRMANPU BLRRLTDU

Automated Lab Instruments

LA7VCIN9

Entry Points

Name	Comments	DBIA/ICR reference
63(LRDFN,LRSS,LRIDT,LRTNM,LRCCOM)	; EP
NOTPERF(UID,CANCLRSN)	; EP - Not Performed
DEMO	; EP
USELAHG(UID)	; EP - Use the LAH global. If successful, quit with "OK"
PEP	; EP
EEP	; Ersatz EP
LMIMAIL(UID,CANCLRSN)	; EP - E-mail LMI Mail Group with Ref Lab Cancellations
ADDSPCON(UID)	; EP - Add the SPECIMEN CONDITION from the SPM segment, if it exists
GETNTEC(MSG,ARRAY)	; EP - Stuff ARRAY with NTE comments from message
SET	; EP
ROL	; EP
TESTGET	; EP - IEN into 62.49 Passed in
FX1	; EP
FX3	; EP ; S (LRCCOM,LRCCOMX)="*NP Reason:Reference Lab Rejected Test."
FX2	; EP
LREND	; EP
LRACC	; EP
631	; EP
END	; EP
CHG	; EP ; Have LRACN,LRUID,LRDFN,LRSS,LRIDT and CANCLRSN
FIX	; EP
UNLOCK	; EP
EP	; EP
SHOWTST	; EP
GETSPMC(MSG,ARRAY)	; EP - Stuff ARRAY with SPM comments from message
COMPDATE(LRAA,LRAD,LRAN)	; EP - Put Completed Date on Accession
CLNPENDG	;Remove pending from Lab test when set to not performed
EXIT	; EP
ADDCOMNT(LRDFN,LRIDT,MSG)	; EP - Add the Ref Lab comments from the NTE segments to file 63

External References

Name	Field # of Occurrence
^BLRALAF	CHG+18
^BLREVTQ	CHG+21
EEP^BLRGMENU	EEP+1
$$RELAHMID^BLRRLMUU	ADDSPCON+5
STORTXNS^BLRRLTDU	SET+19
XTMPISET^BLRRLTDU	NOTPERF+9, FIX+6, FIX+8, FIX+16, FIX+18, CHG+7, LRACC+7
XTMPNSET^BLRRLTDU	SET+18
$$ADDON^BLRUTIL	CHG+18
$$ISPIMS^BLRUTIL	END+4
MAILALMI^BLRUTIL3	LMIMAIL+16
^DIE	63+19, 631+7
UPDATE^DIE	COMPDATE+8, ADDCOMNT+10
$$GET1^DIQ	NOTPERF+13, NOTPERF+15, NOTPERF+16, LMIMAIL+3, LMIMAIL+9, FX1+3, TESTGET+2, 63+11, ADDSPCON+20, ADDSPCON+22 , ADDSPCON+23, USELAHG+3, USELAHG+9
^DIR	SHOWTST+9
EN^LA7ADL	SET+25
NEW^LR7OB1	SET+12
$$VER^LR7OU1	SET+13
DC^LRCENDE1	SET+13
^LRPARAM	NOTPERF+3
END^LRTSTJAM	END+5
XREF^LRVER3A	SET+24
PT^LRX	FIX+14
$$FMTE^XLFDT	SHOWTST+8, SET+10, 63+9, 63+12, 63+15
$$NOW^XLFDT	COMPDATE+6, FIX+1, SET+1, 63+5
$$TRIM^XLFSTR	GETNTEC+10, GETSPMC+10
$$UP^XLFSTR	TESTGET+6
DUZ^XUP	LMIMAIL+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,$P(^(0),U) Line Location: SHOWTST+7
Function Call: WRITE	Prompt: ?35," "_$S($L($P(LRIC,U,3)):$P(LRIC,U,3),1:"Completed")_" "_$$FMTE^XLFDT($P(LRIC,U,2),"5FMPZ")_" by "_$P(LRIC,U) Line Location: SHOWTST+8
Function Call: WRITE	Prompt: !,PNM,?50,HRCN Line Location: DEMO+1
Function Call: WRITE	Prompt: !,"TESTS ON ACCESSION: ",LRACN,?40,"UID: ",LRUID Line Location: DEMO+2
Routine Call	DIE Line Location: COMPDATE+8 ADDCOMNT+10
Routine Call	DIE Line Location: 63+19 631+7
Routine Call	DIR Line Location: SHOWTST+9

FileNo	Call Tags
^LAB(60 - [#60]	GET1^DIQ
^LAB(62.4 - [#62.4]	GET1^DIQ
^LRO(68 - [#68]	GET1^DIQ
68.02	GET1^DIQ
68.04	GET1^DIQ
^BLRSITE - [#9009029]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TESTGET+16, CHG+11, SHOWTST+7, CLNPENDG+2
^LAB(62.4 - [#62.4]	USELAHG+6
^LAH(	USELAHG+12, USELAHG+14
^LAHM(62.49 - [#62.49]	TESTGET+9, TESTGET+10, TESTGET+11, GETNTEC+4, GETNTEC+5, GETNTEC+7, GETSPMC+4, GETSPMC+5, GETSPMC+7, ADDSPCON+9 , ADDSPCON+10, ADDSPCON+14
^LR - [#63]	FIX+12, FIX+16, FIX+18, SET+22, UNLOCK+1, CLNPENDG+4, ADDCOMNT+7, ADDSPCON+25, ADDSPCON+26, USELAHG+21
^LRO(68 - [#68]	NOTPERF+6, LMIMAIL+8, FIX+6, FIX+8, FIX+10, FIX+16, FX1+2, TESTGET+20, TESTGET+21, CHG+14 , SHOWTST+6, SHOWTST+7, SHOWTST+10, SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25 , ROL+1, ROL+2*, LRACC+4, LRACC+6, UNLOCK+1, ADDSPCON+19
^LRO(69 - [#69]	CHG+7, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+14* , SET+15*

Label References

Name	Line Occurrences
$$GETNTEC	ADDCOMNT+3
$$USELAHG	ADDSPCON+3
63	SET+23
@(	END+4
ADDSPCON	63+21
CHG	NOTPERF+25, FX1+4
CLNPENDG	CHG+14
COMPDATE	NOTPERF+27
DEMO	SHOWTST+5, SHOWTST+9
END	NOTPERF+23, NOTPERF+24, NOTPERF+25, CHG+7, UNLOCK+2
FIX	NOTPERF+23
FX2	CHG+9
LMIMAIL	NOTPERF+29
LRACC	FIX+2
ROL	SET+20, SET+21
SET	CHG+14
UNLOCK	FIX+18, CHG+7

Name	Field # of Occurrence
^(	FIX+10, SET+5
^(0	FIX+12, CHG+12, SHOWTST+7, SET+5, SET+6, SET+8, SET+14, SET+17
^(4	SET+17, ROL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	GETNTEC~, GETSPMC~
ARRAY(	GETNTEC+15, GETSPMC+15
ARRAYL	ADDCOMNT+1~, ADDCOMNT+3*, ADDCOMNT+4, ADDCOMNT+6
AUTOIEN	ADDSPCON+1~, USELAHG+1~, USELAHG+6*, USELAHG+7, USELAHG+9
AUTOINSP	ADDSPCON+1~
>> BLRLOG	NOTPERF+4*, CHG+21
>> BLROPT	NOTPERF+18*, CHG+21
CANCELDT	COMPDATE+1~, COMPDATE+6*, COMPDATE+7
CANCLRSN	NOTPERF~, NOTPERF+1, NOTPERF+29, LMIMAIL~, LMIMAIL+14, FX3+2
CL	ADDCOMNT+1~, ADDCOMNT+6*, ADDCOMNT+8
COMARRAY	ADDCOMNT+1~, ADDCOMNT+3
COMARRAY(	ADDCOMNT+8
COML	GETNTEC+1~, GETNTEC+3, GETNTEC+14, GETNTEC+15, GETNTEC+18, GETSPMC+1~, GETSPMC+3, GETSPMC+14, GETSPMC+15, GETSPMC+18
COMLS	GETNTEC+1~, GETNTEC+10, GETNTEC+12, GETNTEC+15, GETNTEC+16, GETSPMC+1~, GETSPMC+10, GETSPMC+12, GETSPMC+15, GETSPMC+16
COMLS(	GETNTEC+12, GETNTEC+16, GETSPMC+12, GETSPMC+16
CONDSPEC	ADDSPCON+16, ADDSPCON+17, ADDSPCON+25, USELAHG+1~, USELAHG+18, USELAHG+19, USELAHG+21
D0	63+1~, 631+1!
D1	63+1~, 631+1!
DA	63+1~, 63+17, 631+1!, 631+3
DA(1	LRACC+6, 63+17, 631+3*
DA(2	LRACC+6*
>> DFN	FIX+12*
DI	END+2!
DIC	NOTPERF+25!, CHG+3!, 63+1~, 631+1!, 631+3*
DIC(0	63+4, 631+2
DIE	63+1~, 63+17, 631+1!, 631+3
>> DILOCKTM	NOTPERF+1
DIR	SHOWTST+3~, END+2!
DIR(0	SHOWTST+4*
>> DISYS	NOTPERF+1
DLAYGO	63+1~, 63+4*
DR	63+1~, 63+19, 631+1!, 631+6
DT	NOTPERF+1, SET+11, SET+24
DTIME	NOTPERF+1
DUZ	NOTPERF+1, LMIMAIL+5~, SET+7, SET+14, SET+15, SET+17, ROL+2, 63+9, 63+12, 63+15
DUZ(2	LMIMAIL+3, TESTGET+2, CHG+18, USELAHG+3
ERRS	COMPDATE+1~
>> F60IEN	FX1+3, FX1+4, TESTGET+1, TESTGET+16*, TESTGET+21
>> F60SYN	TESTGET+8, TESTGET+9, TESTGET+11, TESTGET+13, TESTGET+16
FDA	COMPDATE+1~, COMPDATE+5!, ADDCOMNT+1~
FDA(	COMPDATE+7, ADDCOMNT+8
FOUNDIT	ADDSPCON+1~, ADDSPCON+8, ADDSPCON+9, ADDSPCON+10, ADDSPCON+12, ADDSPCON+14
HRCN	DEMO+1, END+6!
IEN	NOTPERF+14, NOTPERF+15, NOTPERF+16, COMPDATE+1~, COMPDATE+3, COMPDATE+7, ADDSPCON+1~, ADDSPCON+21, ADDSPCON+22, ADDSPCON+23 , USELAHG+12, USELAHG+14
IENS	ADDCOMNT+1~
IENS(1	ADDCOMNT+7*
II	SET+3~, SET+5!, SET+12
II(	SET+5*
INST	ADDSPCON+1~
INSTUID	ADDSPCON+1~
IO	NOTPERF+1
>> IOBS	NOTPERF+1
IOF	NOTPERF+1
IOM	NOTPERF+1
ION	NOTPERF+1
>> IOS	NOTPERF+1
IOSL	NOTPERF+1
IOST	NOTPERF+1
>> IOT	NOTPERF+1
>> IOXY	NOTPERF+1
>> LA76249	TESTGET+9, TESTGET+10, TESTGET+11
LA7INST	TESTGET+2, TESTGET+3, TESTGET+6, ADDSPCON+1~, USELAHG+1~, USELAHG+3, USELAHG+4, USELAHG+6
LOADWORK	ADDSPCON+1~, USELAHG+1~, USELAHG+9*, USELAHG+12, USELAHG+14
LRAA	NOTPERF+6, NOTPERF+9, NOTPERF+11, NOTPERF+13, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8, LMIMAIL+9 , FIX+6, FIX+8, FIX+10, FIX+16, FX1+2, FX1+3, TESTGET+20, TESTGET+21, CHG+14, CHG+21 , SHOWTST+6, SHOWTST+7, SHOWTST+10, SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25 , ROL+1, ROL+2, LRACC+3, LRACC+4, LRACC+6, UNLOCK+1, ADDSPCON+19*, ADDSPCON+20, ADDSPCON+21
LRACC	FIX+2*, FIX+4!
LRACN	FIX+10*, DEMO+2, EXIT+1!, END+2!
LRACN0	END+2!
LRAD	NOTPERF+6, NOTPERF+9, NOTPERF+11, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8, LMIMAIL+9, FIX+6 , FIX+8, FIX+10, FIX+16, FX1+2, FX1+3, TESTGET+20, TESTGET+21, CHG+14, CHG+21, SHOWTST+6 , SHOWTST+7, SHOWTST+10, SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25, LRACC+6 , UNLOCK+1, ADDSPCON+19*, ADDSPCON+21
LRAGE	END+2!
LRAN	NOTPERF+6, NOTPERF+9, NOTPERF+11, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8, LMIMAIL+9, FIX+4 , FIX+6, FIX+8, FIX+10, FIX+16, FX1+2, FX1+3, TESTGET+20, TESTGET+21, CHG+14, CHG+21 , SHOWTST+6, SHOWTST+7, SHOWTST+10, SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25 , ROL+1, ROL+2, LRACC+3, LRACC+7, UNLOCK+1, ADDSPCON+19, ADDSPCON+21
LRAS	LMIMAIL+1~, LMIMAIL+9*, LMIMAIL+13, LMIMAIL+16
LRCCOM	CHG+3!, CHG+6, SET+9, SET+22, SET+23, FX3+2, 63~, 631+4, 631+5, 631+6
LRCCOM0	END+1!, 63+1~, 63+12, 63+15, 63+18*, 63+19
LRCCOM1	END+1!
LRCCOMX	END+1!, FX3+2*
LRCOM	END+2!
LRCTST	CHG+3!, CHG+23!, END+2!
>> LRDBUG	SET+4
LRDFN	NOTPERF+15, FIX+11, FIX+12, FIX+16, FIX+18, SET+22, SET+23, ROL+1, UNLOCK+1, 63~ , 63+17, 631+3, CLNPENDG+4, ADDCOMNT~, ADDCOMNT+7, ADDCOMNT+8, ADDSPCON+22*, ADDSPCON+25, ADDSPCON+26, USELAHG+21
LRDOC	END+2!
>> LRDPF	FIX+12*
LREND	NOTPERF+23, NOTPERF+24, FIX+1, FIX+4, CHG+6, CHG+9, CHG+23, LRACC+1, LREND+1, END+1! , FX2+1*
LREXMPT	LRACC+1*!
LRI	SHOWTST+3~, SHOWTST+6, SHOWTST+7, SET+3~, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10 , SET+11, SET+14, SET+15, END+1!
LRIC	SHOWTST+3~, SHOWTST+7*, SHOWTST+8
LRIDT	NOTPERF+16, FIX+16, FIX+18, SET+22, SET+23, UNLOCK+1, 63~, 63+17, 631+3, CLNPENDG+4 , ADDCOMNT~, ADDCOMNT+7, ADDCOMNT+8, ADDSPCON+23*, ADDSPCON+25, ADDSPCON+26, USELAHG+21
LRIFN	CHG+4~, CLNPENDG+1~, CLNPENDG+2*, CLNPENDG+3, CLNPENDG+4
LRL	END+1!, FX2+2*
LRLABRV	EXIT+1!
LRLL	END+2!
>> LRLLOC	SET+2*
LRMSTATI	SET+12, END+1!
LRN	SHOWTST+3~, SHOWTST+6, SHOWTST+7, SHOWTST+9*
LRNATURE	FIX+4!, SET+9, SET+12, END+1!
LRNOECHO	EXIT+1!, FX2+7!, 63+1~, 63+6*
LRNOP	NOTPERF+23, NOTPERF+25, FIX+1, FIX+2, FIX+6, FIX+8, FIX+16, FIX+18, LRACC+7*, END+1!
LRNOW	FIX+1, SET+1, SET+10, SET+17, ROL+2, EXIT+1!, END+2!, 63+5*, 63+9, 63+12 , 63+15
LROD0	END+3!
LROD1	END+3!
LROD3	END+3!
>> LRODT	FIX+11, CHG+7, SHOWTST+10, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10 , SET+11, SET+12, SET+14, SET+15
LROOS	END+3!
LRORDTST	CHG+14*, END+1!
LROS	END+3!
LROSD	END+3!
LROT	END+3!
LROWDT	SET+20, SET+21, ROL+1, ROL+2, END+1!
LRPRAC	END+1!
LRROD	END+3!
LRSCN	END+1!, FX2+8, FX2+10
LRSCNX	EXIT+1!
LRSCNXB	NOTPERF+22!, FX2+7!, FX2+10*
>> LRSN	FIX+11, CHG+7, SHOWTST+10, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10 , SET+11, SET+12, SET+14, SET+15
LRSS	NOTPERF+13, FIX+16, FIX+18, SET+22, SET+23, LRACC+6, LRACC+7, UNLOCK+1, 63~, 63+17 , 63+23, 631+3, CLNPENDG+4, ADDSPCON+20*, ADDSPCON+25, ADDSPCON+26, USELAHG+21
LRSTATUS	SET+3~, SET+5*, SET+12
LRTNM	CHG+12*, SET+23, 63~, 63+9, 63+15
LRTSTS	FX1+1, FX1+2, FX1+3, FX1+4, TESTGET+19, TESTGET+20, TESTGET+21, CHG+11, CHG+14, SET+5 , SET+17, SET+18, SET+19, ROL+1, ROL+2, END+1!, 63+11, CLNPENDG+2
LRTT	END+3!
LRUID	FIX+10*, DEMO+2, END+1!
>> LRX	FIX+10*, FIX+11
LRXX	NOTPERF+22!, END+2!
LRY	SHOWTST+3~, SHOWTST+6, SHOWTST+9*
MSG	ADDCOMNT~, ADDCOMNT+3, GETNTEC~, GETNTEC+4, GETNTEC+5, GETNTEC+7, GETSPMC~, GETSPMC+4, GETSPMC+5, GETSPMC+7
MSGARRAY	LMIMAIL+1~, LMIMAIL+16
MSGARRAY(1	LMIMAIL+12*
MSGARRAY(2	LMIMAIL+12*
MSGARRAY(3	LMIMAIL+13*
MSGARRAY(4	LMIMAIL+13*
MSGARRAY(5	LMIMAIL+14*
MSGARRAY(6	LMIMAIL+14*
OCXTRACE	SET+3~, SET+4*
ORIFN	SET+6*, SET+12, SET+13, SET+16!
ORSTS	SET+16!
>> PIEN	ADDSPCON+5*, ADDSPCON+6, ADDSPCON+9, ADDSPCON+10, ADDSPCON+14, ADDSPCON+26
>> PNM	DEMO+1
PRNTNAM	63+2~, 63+11*, 63+12
Q9	END+2!
REFLAB	LMIMAIL+1~, LMIMAIL+3*, LMIMAIL+12
>> SAVLRAA	NOTPERF+11*, NOTPERF+27
>> SAVLRAD	NOTPERF+11*, NOTPERF+27
>> SAVLRAN	NOTPERF+11*, NOTPERF+27
SEG	TESTGET+8, TESTGET+9, TESTGET+10, TESTGET+11, ADDCOMNT+1~, GETNTEC+1~, GETNTEC+3, GETNTEC+4, GETNTEC+5, GETNTEC+7 , GETSPMC+1~, GETSPMC+3, GETSPMC+4, GETSPMC+5, GETSPMC+7
SEGCNT	ADDSPCON+1~, ADDSPCON+8, ADDSPCON+9, ADDSPCON+10
STR	ADDCOMNT+1~, GETNTEC+1~, GETNTEC+7, GETNTEC+8, GETNTEC+10, GETSPMC+1~, GETSPMC+7, GETSPMC+8, GETSPMC+10, ADDSPCON+14* , ADDSPCON+16, USELAHG+14*, USELAHG+18
TAB	LMIMAIL+1~, LMIMAIL+11*, LMIMAIL+12, LMIMAIL+13, LMIMAIL+14
>> TESTDESC	NOTPERF+1
TMPSTR	63+2~, 63+9*, 63+10, 63+15
U	NOTPERF+1, FIX+6, FIX+10, FIX+11, FIX+12, FIX+16, CHG+12, CHG+14, SHOWTST+7, SHOWTST+8 , SHOWTST+9, SHOWTST+10, SET+2, SET+6, SET+7, SET+8, SET+9, SET+14, SET+17, SET+20 , ROL+2, LRACC+6, CLNPENDG+2, CLNPENDG+4
UID	NOTPERF~, NOTPERF+1, NOTPERF+6, NOTPERF+9, NOTPERF+29, LMIMAIL~, LMIMAIL+8, 63+21, ADDSPCON~, ADDSPCON+3 , ADDSPCON+5, ADDSPCON+19, USELAHG~, USELAHG+12
WHCHTEST	TESTGET+18~, TESTGET+19, TESTGET+20, TESTGET+21
>> WOTPIECE	TESTGET+6*, TESTGET+11
X	NOTPERF+6, LMIMAIL+8, SHOWTST+3~, SHOWTST+9, SHOWTST+10, SET+3~, SET+8, SET+9, SET+10, SET+11 , FX2+5, 63+1~, ADDSPCON+19*
X(1	SET+8, SET+9, SET+11
X4	END+3!
>> XPARSYS	NOTPERF+1
>> XQXFLG	NOTPERF+1
Y	FX2+5*, FX2+10, 63+1~
Y(0	FX2+5*, FX2+10

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLTDR

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: