Routine: LRHYDEL

Package	Total	Call Graph
Lab Service	10	NEW^LR7OB1 $$VER^LR7OU1 DC^LRCENDE1 EN1^LRHY22 SHOW^LROS ^LRPARAM END^LRTSTJAM XREF^LRVER3A ^LRWU4 PT^LRX
VA Fileman	3	^DIC ^DIE ^DIR
Automated Lab Instruments	1	EN^LA7ADL
Kernel	1	($$FMTE,$$NOW)^XLFDT
Registration	1	KVA^VADPT

Package	Total	Caller Graph
Lab Service	1	LRHY22

Name	Comments	DBIA/ICR reference
631
EN	;
ROL	;
CHG
DEMO
FIX
63(LRDFN,LRSS,LRIDT,LRTNM,LRCCOM)	;
FX1	;
FX3
FX2	;
LREND
UNLOCK	;
SET	;
EXIT	;
LRACC
END	;
SHOWTST	;

Name	Field # of Occurrence
^DIC	CHG+3
^DIE	63+9, 631+5
^DIR	FIX+14, SHOWTST+7
EN^LA7ADL	SET+25
NEW^LR7OB1	SET+12
$$VER^LR7OU1	SET+13
DC^LRCENDE1	SET+13
EN1^LRHY22	FX3+19
SHOW^LROS	FIX+13
^LRPARAM	EN+1
END^LRTSTJAM	END+4
XREF^LRVER3A	SET+24
^LRWU4	LRACC+1
PT^LRX	FIX+8
KVA^VADPT	END+4
$$FMTE^XLFDT	SHOWTST+6, SET+10, 63+6
$$NOW^XLFDT	FIX, SET+1, 63+4

Interaction Calls

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

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

Name	Line Occurrences
63	SET+23
CHG	EN+6
DEMO	SHOWTST+3, SHOWTST+7
END	EN+4, EN+5, EN+6, CHG+7, CHG+8, UNLOCK+1
FIX	EN+4
FX2	CHG+11, FX2+18, FX3+9
FX3	FX2+1, FX2+4
LRACC	FIX+1
ROL	SET+18, SET+19
SET	CHG+14
SHOWTST	FX1+1
UNLOCK	FIX+10, CHG+7, CHG+8

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Lab Service

Routine: LRHYDEL

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: