Routine: LRTSTOUT

Package	Total	Call Graph
Lab Service	11	NEW^LR7OB1 $$VER^LR7OU1 DC^LRCENDE1 COM^LRNUM DC^LROR6 SHOW^LROS ^LRPARAM END^LRTSTJAM XREF^LRVER3A ^LRWU4 PT^LRX
IHS Changes To Lab	3	^BLRALAF ^BLREVTQ ($$ADDON,$$ISPIMS)^BLRUTIL
VA Fileman	3	^DIC ^DIE ^DIR
Automated Lab Instruments	1	EN^LA7ADL
Kernel	1	($$FMTE,$$NOW)^XLFDT

Package

Total

Call Graph

Lab Service

NEW^LR7OB1 $$VER^LR7OU1 DC^LRCENDE1 COM^LRNUM DC^LROR6 SHOW^LROS ^LRPARAM END^LRTSTJAM
XREF^LRVER3A ^LRWU4 PT^LRX

IHS Changes To Lab

^BLRALAF ^BLREVTQ ($$ADDON,$$ISPIMS)^BLRUTIL

VA Fileman

^DIC ^DIE ^DIR

Automated Lab Instruments

EN^LA7ADL

Kernel

($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Lab Service	7	LR7OMERG LRCENDEL LRPHITE2 LRPHITEM LRTSTJAM LRTSTJAN LRTSTOUT
IHS Changes To Lab	2	BLRMANPU BLRSGNSP

Package

Total

Caller Graph

Lab Service

LR7OMERG LRCENDEL LRPHITE2 LRPHITEM LRTSTJAM LRTSTJAN LRTSTOUT

IHS Changes To Lab

BLRMANPU BLRSGNSP

Entry Points

Name	Comments	DBIA/ICR reference
631
EN	;
ROL	;
CHG
DEMO	; W !,PNM,?50,SSN
FIX
63(LRDFN,LRSS,LRIDT,LRTNM,LRCCOM)	;
FX1	;
FX3
FX2	;
LREND
CLNPENDG	;Remove pending from Lab test when set to not performed
UNLOCK	;
SET	;
EXIT	;
LRACC
END	;
SHOWTST	;

External References

Name	Field # of Occurrence
^BLRALAF	CHG+21
^BLREVTQ	CHG+22
$$ADDON^BLRUTIL	CHG+21
$$ISPIMS^BLRUTIL	END+7
^DIC	CHG+4
^DIE	63+8, 631+6
^DIR	FIX+17, SHOWTST+7, FX2+16, FX3+3, FX3+11
EN^LA7ADL	SET+22
NEW^LR7OB1	SET+11
$$VER^LR7OU1	SET+12
DC^LRCENDE1	SET+12
COM^LRNUM	FX3+5
DC^LROR6	FX2+2
SHOW^LROS	FIX+16
^LRPARAM	EN+3
END^LRTSTJAM	END+8
XREF^LRVER3A	SET+21
^LRWU4	LRACC+1
PT^LRX	FIX+10
$$FMTE^XLFDT	SHOWTST+6, SET+9, 63+5
$$NOW^XLFDT	FIX, SET+1, 63+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"You are not authorized to change test status.",!,$C(7) Line Location: EN+4
Function Call: WRITE	Prompt: @IOF Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: FIX+1
Function Call: WRITE	Prompt: !?5,"Accession has no Test ",! Line Location: FIX+3
Function Call: WRITE	Prompt: !,"Someone else is working on this accession",! Line Location: FIX+4
Function Call: WRITE	Prompt: !,PNM,?30,SSN Line Location: FIX+9
Function Call: WRITE	Prompt: !,PNM,?30,HRCN Line Location: FIX+10
Function Call: WRITE	Prompt: !,"Someone else is working on this data." Line Location: FIX+12
Function Call: WRITE	Prompt: !?5," Can't find Lab Data for this accession",! Line Location: FIX+13
Function Call: WRITE	Prompt: ! Line Location: CHG+0
Function Call: WRITE	Prompt: !?5,"No Test Selected",! Line Location: CHG+7
Function Call: WRITE	Prompt: !,"NO CHANGE" Line Location: CHG+8
Function Call: WRITE	Prompt: !?5,"There is no Order for this Accession",! Line Location: CHG+9
Function Call: WRITE	Prompt: @IOF,!!?5,"Change Accession : ",LRACN,?40,"UID: ",LRUID Line Location: CHG+10
Function Call: WRITE	Prompt: !?10,LRCTST(I) Line Location: CHG+11
Function Call: WRITE	Prompt: !,?5,$P(^(0),U) Line Location: SHOWTST+5
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+6
Function Call: WRITE	Prompt: !,PNM,?50,SSN Line Location: DEMO+0
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
Function Call: WRITE	Prompt: !?5,"No Subscript for this Accession Area ",!! Line Location: LRACC+4
Function Call: WRITE	Prompt: !!,$C(7),"Nothing Changed",! Line Location: FX2+2
Function Call: WRITE	Prompt: ! Line Location: FX2+4
Function Call: WRITE	Prompt: ! Line Location: FX3+0
Function Call: WRITE	Prompt: !,"You must enter Reason",! Line Location: FX3+4
Function Call: WRITE	Prompt: !,"("_LRCCOM_")" Line Location: FX3+9
Function Call: WRITE	Prompt: ! Line Location: FX3+11
Routine Call	DIE Line Location: 63+8 631+6
Routine Call	DIC Line Location: CHG+4
Routine Call	DIR Line Location: FIX+17 SHOWTST+7 FX2+16 FX3+3 FX3+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	CHG+4, CHG+14, SHOWTST+5, CLNPENDG+2
^LR - [#63]	FIX+7, FIX+12, FIX+13, CHG+6, SET+19, UNLOCK+1, CLNPENDG+4*
^LRO(68 - [#68]	FIX+3, FIX+4, FIX+5, FIX+12, CHG+6, CHG+15, SHOWTST+4, SHOWTST+5, SHOWTST+8, SET+16 , SET+17, SET+18, SET+21, SET+22, ROL+1, ROL+2*, LRACC+2, LRACC+3, UNLOCK+1
^LRO(69 - [#69]	FIX+14, CHG+9, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+13 , SET+14*

Label References

Name	Line Occurrences
63	SET+20
@(	END+7
CHG	EN+8
CLNPENDG	CHG+15
DEMO	SHOWTST+3, SHOWTST+7
END	EN+6, EN+7, EN+8, CHG+8, CHG+9, UNLOCK+1
FIX	EN+6
FX2	CHG+12, FX2+17, FX3+4, FX3+6, FX3+12
FX3	FX2+3
LRACC	FIX+1
ROL	SET+17, SET+18
SET	CHG+15
SHOWTST	FX1+1
UNLOCK	FIX+13, CHG+8, CHG+9

Name	Field # of Occurrence
^(	FIX+5, SET+5
^(0	FIX+7, CHG+14, SHOWTST+5, SET+5, SET+6, SET+7, SET+13, SET+16
^(4	SET+16, ROL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLRLOG	CHG+22
>> BLROPT	EN+1*, CHG+22
D0	63+1~, 631!
D1	63+1~, 631!
DA	63+1~, 63+6, 631!, 631+2
DA(1	LRACC+3, 63+6, 631+2*
DA(2	LRACC+3*
>> DFN	FIX+7*
DI	END+2!
DIC	EN+8!, CHG!, CHG+3, CHG+5!, 63+1~, 631!, 631+2
DIC("A"	CHG+2, CHG+4
DIC("S"	CHG+3*
DIC(0	CHG+3, 63+2, 631+1*
DIE	63+1~, 63+6, 631!, 631+2
DIR	FIX+17!, SHOWTST+1~, END+2!, FX2+4!, FX3!, FX3+10!, FX3+11!
DIR("?"	FX2+6, FX2+7, FX2+8, FX2+9, FX2+10, FX2+11, FX2+12, FX2+13
DIR("A"	FX2+5, FX3+1, FX3+10*
DIR("B"	FX2+5, FX3+1, FX3+10*
DIR(0	FIX+17, SHOWTST+2, FX2+5, FX3+2, FX3+10*
DLAYGO	63+1~, 63+2*
DR	63+1~, 63+8, 631!, 631+5
DT	SET+10, SET+21
DUZ	SET+13, SET+14, SET+16, ROL+2, 63+5
DUZ(2	CHG+21
HRCN	FIX+10, DEMO+1, END+9!
>> I	CHG+11*
II	SET+3~, SET+5!, SET+11
II(	SET+5*
IOF	EN+5, CHG+10
LRAA	FIX+3, FIX+4, FIX+5, FIX+12, FIX+15~, CHG+3, CHG+6, CHG+15, CHG+22, SHOWTST+4 , SHOWTST+5, SHOWTST+8, SET+16, SET+17, SET+18, SET+21, SET+22, ROL+1, ROL+2, LRACC+2 , LRACC+3, UNLOCK+1
LRACC	FIX+1*, FIX+2!
LRACN	FIX+5*, FIX+15~, CHG+10, DEMO+2, EXIT+1!, END+2!
LRACN0	END+2!
LRAD	FIX+3, FIX+4, FIX+5, FIX+12, FIX+15~, CHG+3, CHG+6, CHG+15, CHG+22, SHOWTST+4 , SHOWTST+5, SHOWTST+8, SET+16, SET+17, SET+18, SET+21, SET+22, LRACC+3, UNLOCK+1
LRAGE	END+2!
LRAN	FIX+2, FIX+3, FIX+4, FIX+5, FIX+12, CHG+3, CHG+6, CHG+15, CHG+22, SHOWTST+4 , SHOWTST+5, SHOWTST+8, SET+16, SET+17, SET+18, SET+21, SET+22, ROL+1, ROL+2, LRACC! , LRACC+2, LRACC+4*, UNLOCK+1
LRCCOM	CHG+9!, SET+8, SET+19, SET+20, FX3+8, FX3+9, FX3+13, 63~, 631+3, 631+4* , 631+5
LRCCOM0	END+1!, 63+1~, 63+5, 63+7, 63+8
LRCCOM1	END+1!, FX2+4*
LRCCOMX	END+1!, FX3+8*
LRCOM	END+2!, FX2+4*
LRCTST	CHG!, CHG+25!, END+2!
LRCTST(	CHG+4*, CHG+11, CHG+13
LRCTST(0	CHG+5
>> LRDBUG	SET+4
LRDFN	FIX+6*, FIX+7, FIX+12, FIX+13, CHG+6, SET+19, SET+20, ROL+1, UNLOCK+1, 63~ , 63+6, 631+2, CLNPENDG+4
LRDOC	END+2!
>> LRDPF	FIX+7*
LREND	EN+3, EN+4, EN+6, EN+7, FIX, FIX+2, CHG+9, CHG+12, CHG+16, CHG+25* , LRACC+1, LREND, END+1!, FX2+1, FX2+2, FX2+16, FX3+3
LREXMPT	LRACC+1*!
LRI	SHOWTST+1~, SHOWTST+4, SHOWTST+5, SET+3~, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10 , SET+13, SET+14, END+1!
LRIC	SHOWTST+1~, SHOWTST+5*, SHOWTST+6
LRIDT	FIX+12*, FIX+13, CHG+6, SET+19, SET+20, UNLOCK+1, 63~, 63+6, 631+2, CLNPENDG+4
LRIFN	CHG+1~, CLNPENDG+1~, CLNPENDG+2*, CLNPENDG+3, CLNPENDG+4
LRL	END+1!, FX2+3*, FX3+2, FX3+5
>> LRLABKY	EN+4, CHG+16, SET+9, FX2+3, FX3+1, FX3+5, FX3+9, FX3+13, 63+5
LRLABRV	EXIT+1!
LRLL	END+2!
>> LRLLOC	SET+2*
>> LRMERG	SET+9, SET+16, 63+5
LRMSTATI	SET+11, END+1!
LRN	SHOWTST+1~, SHOWTST+4, SHOWTST+5, SHOWTST+7*
LRNATURE	FIX+2!, SET+8, SET+11, END+1!, FX2+2
LRNOECHO	EXIT+1!, FX2+14!, 63+1~, 63+4*
LRNOP	EN+6, EN+8, FIX, FIX+1, FIX+3, FIX+4, FIX+12, FIX+13, FIX+17, LRACC+4 , END+1!
LRNOW	FIX, SET+1, SET+9, SET+16, ROL+2, EXIT+1!, END+2!, 63+3*, 63+5
LROD0	END+3!
LROD1	END+3!
LROD3	END+3!
>> LRODT	FIX+6, FIX+14, CHG+8, CHG+9, SHOWTST+8, SET+2, SET+5, SET+6, SET+7, SET+8 , SET+9, SET+10, SET+11, SET+13, SET+14
LROOS	END+3!
LRORDTST	CHG+15*, END+1!
LROS	END+3!
LROSD	END+3!
LROT	END+3!
LROWDT	SET+17, SET+18, ROL+1, ROL+2, END+1!
LRPRAC	END+1!
LRROD	END+3!
LRSCN	END+1!, FX2+15, FX2+17, FX2+18*, FX3+5
LRSCNX	EXIT+1!
LRSCNXB	EN+5!, FX2+5, FX2+14!, FX2+17, FX2+18
>> LRSN	FIX+6, FIX+14, CHG+8, CHG+9, SHOWTST+8, SET+2, SET+5, SET+6, SET+7, SET+8 , SET+9, SET+10, SET+11, SET+13, SET+14
LRSS	FIX+12, FIX+13, CHG+6, SET+19, SET+20, LRACC+3*, LRACC+4, UNLOCK+1, 63~, 63+6 , 63+9, 631+2, CLNPENDG+4
LRSTATUS	SET+3~, SET+5*, SET+11
LRTNM	CHG+14*, CHG+16, SET+20, 63~, 63+5
LRTSTS	CHG+13*, CHG+14, CHG+15, SET+5, SET+16, ROL+1, ROL+2, END+1!, CLNPENDG+2
LRTT	END+3!
LRUID	FIX+5*, CHG+10, DEMO+2, END+1!
>> LRX	FIX+5*, FIX+6
LRXX	EN+5!, END+2!, FX3+1, FX3+5*
LRY	SHOWTST+1~, SHOWTST+4, SHOWTST+7*
OCXTRACE	SET+3~, SET+4*
ORIFN	SET+6*, SET+11, SET+12, SET+15!
ORSTS	SET+15!
>> PNM	FIX+10, DEMO+1
Q9	END+2!, FX3+5*
U	FIX+3, FIX+5, FIX+6, FIX+7, FIX+12, FIX+17, CHG+4, CHG+14, CHG+15, SHOWTST+5 , SHOWTST+6, SHOWTST+7, SHOWTST+8, SET+2, SET+6, SET+7, SET+8, SET+13, SET+16, SET+17 , ROL+2, LRACC+3, FX2+16, FX3+3, CLNPENDG+2, CLNPENDG+4
X	FIX+17, SHOWTST+1~, SHOWTST+7, SHOWTST+8, SET+3~, SET+7, SET+8, SET+9, SET+10, FX2+16 , FX2+17, FX2+18, FX3+3, FX3+4, FX3+6, FX3+7, FX3+8, 63+1~
X(1	SET+7, SET+8, SET+10
X4	END+3!
Y	CHG+4, FX2+18, FX3+5, FX3+12, 63+1~
Y(0	FX2+18

Customize PDF page

Package: Lab Service

Routine: LRTSTOUT

Information

Source Information