Routine: LRCENDEL

Package	Total	Call Graph
Lab Service	7	NEW^LR7OB1 CEN1^LRCENDE1 DC^LROR6 SHOW^LROS ^LRPARAM (END,FX2,SET)^LRTSTOUT (DUZ,PT)^LRX
VA Fileman	3	YN^DICN ^DIE ^DIR
Kernel	1	$$CJ^XLFSTR

Package	Total	Caller Graph
Lab Service	3	LRCENDEL LRPHITE1 LRPHITE3

Entry Points

External References

Name	Field # of Occurrence
YN^DICN	LOOK+17
^DIE	EN1+19
^DIR	FIND+11, %+5
NEW^LR7OB1	EN1+17
CEN1^LRCENDE1	EN1+14
DC^LROR6	EN1+8
SHOW^LROS	LOOK+3
^LRPARAM	FIND
END^LRTSTOUT	END+6
FX2^LRTSTOUT	ONE+4, OUT+1
SET^LRTSTOUT	EN1+11
DUZ^LRX	EN1+21
PT^LRX	NAME+2
$$CJ^XLFSTR	LOOK+20, TSET+1, TSET+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: LRCENDEL+5
Function Call: WRITE	Prompt: !?3,"If lab has received the sample (i.e. the test has an accession),",!,"you can't change this order. If so, call the lab to change the test." Line Location: FIND+2
Function Call: WRITE	Prompt: !?3,"If lab has received the sample (i.e. the test has an accession),",!,?3,"you can't change this order. If so, use the REMOVE AN ACCESSION option",!,?3,"to change the test." Line Location: FIND+3
Function Call: WRITE	Prompt: @IOF Line Location: FIND+14
Function Call: WRITE	Prompt: !,"Not found." Line Location: LOOK+1
Function Call: WRITE	Prompt: !?5,"Someone Else is Editing this order, try later",! Line Location: LOOK+6
Function Call: WRITE	Prompt: !,"No order found with that number." Line Location: LOOK+9
Function Call: WRITE	Prompt: !!,"[ * All tests on this order # have already been dispositoned. * ]" Line Location: LOOK+10
Function Call: WRITE	Prompt: !!?5," You CAN NOT change the status of test(s) on this order." Line Location: LOOK+12
Function Call: WRITE	Prompt: !,"Test sample(s) have already been received into the laboratory." Line Location: LOOK+13
Function Call: WRITE	Prompt: !,"You must CONTACT the Laboratory to have test(s) status changed.",$C(7) Line Location: LOOK+14
Function Call: WRITE	Prompt: !,"You must use the REMOVE AN ACCESSION option to have the test(s) status changed.",$C(7) Line Location: LOOK+15
Function Call: WRITE	Prompt: !,"Change entire order" Line Location: LOOK+17
Function Call: WRITE	Prompt: "Answer 'Y'es or 'N'o." Line Location: LOOK+17
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" Can't change status of test(s) on this order.",IOM),! Line Location: LOOK+20
Function Call: WRITE	Prompt: !,?8,"entry",?15,"test",?40,"sample" Line Location: MORE+0
Function Call: WRITE	Prompt: !,?10,J,?15,$P(^LAB(60,$P(LRT(J),U,3),0),U),?40,$P(LRT(J),U,4) Line Location: MORE+1
Function Call: WRITE	Prompt: !,"All have been dispositioned from that order." Line Location: MORE+2
Function Call: READ	Prompt: "Change status of which entry: " Formatting: ! Timeout: DTIME Variable: LRJ Line Location: ONE+0
Function Call: WRITE	Prompt: !,"Enter a number between 1 and ",LRT,! Line Location: ONE+1
Function Call: WRITE	Prompt: !,"You've already dispositioned that one.",! Line Location: ONE+2
Function Call: WRITE	Prompt: !,"Does not exist ",! Line Location: EN1+1
Function Call: WRITE	Prompt: !!,$C(7),"NOTHING CHANGED" Line Location: EN1+8
Function Call: WRITE	Prompt: !?5,"Someone else is editing this entry",! Line Location: EN1+10
Function Call: READ	Timeout: DTIME Variable: % Line Location: ALLDEL+5
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: ALLDEL+5
Function Call: WRITE	Prompt: !,PNM,?30,SSN Line Location: NAME+0
Function Call: WRITE	Prompt: !,PNM,?30,HRCN Line Location: NAME+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Test(s) already verified for this order, cannot change ENTIRE order",IOM) Line Location: TSET+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" You must select individual test using the 'Delete Test from Accession' option.",IOM),!! Line Location: TSET+2
Routine Call	DIE Line Location: EN1+19
Routine Call	DIR Line Location: FIND+11 %+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LRO(69 - [#69]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	MORE+1, EN1+4
^LAB(61 - [#61]	TSET+7
^LR - [#63]	EN1+10, EN1+11, NAME+2
^LRO(68 - [#68]	EN1+3, EN1+9
^LRO(69 - [#69]	LOOK+1, LOOK+3, LOOK+5, LOOK+6, LOOK+7, EN1+1, EN1+2, EN1+18*, OUT+6, OUT+7 , UNL69+1, NAME+2, EN+1, TSET, TSET+4, TSET+7
^XUSEC("LRLAB"	EN1+14

Label References

Name	Line Occurrences
EN1	ONE+5, OUT+3
END	FIND, FIND+12, LOOK+8, LOOK+9, LOOK+11, LOOK+18, ONE+4, OUT+1
FIND	FIND+14, EN1+23, ALLDEL+3
LOOK	FIND+14, ONE+5
MORE	ONE, ONE+2
NAME	LOOK+10, LOOK+16
ONE	ONE+1, EN1+23
OUT	LOOK+18
TSET	EN+1
UNL69	LOOK+8, LOOK+9, LOOK+11, LOOK+20, ONE+4, ONE+5, EN1+12, OUT+1, OUT+4, TSET+3

Naked Globals

Name	Field # of Occurrence
^(	LOOK+7, TSET+4
^(0	EN1+18*, NAME+2, TSET+7
^(3	LOOK+3, TSET

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LOOK+17, LOOK+18, %+3!, %+6, END!
A	END!
AGE	END!
>> BLROPT	LRCENDEL+10*
>> BLROPT(0	LRCENDEL+10*
>> DA	EN1+19*
>> DA(1	EN1+19*
DFN	NAME+2*, END!
DIC	END!
DIE	EN1+19*, END!
DIR	FIND+5~, %+3!
DIR("?"	FIND+8*
DIR("??"	FIND+9*
DIR("A"	FIND+6*
DIR("S"	FIND+10*
DIR(0	FIND+7, %+4
>> DIROUT	FIND+12
>> DIRUT	FIND+12
DOB	END!
DQ	END!
DR	EN1+19*, END!
DTIME	ONE
>> DTOUT	FIND+12
>> DUOUT	FIND+12
DUZ	EN1+14, EN1+18, EN1+21
DWLW	END!
HRCN	NAME+2, END+4!
I	LOOK+17, TSET+4, TSET+7, END!
IOF	LRCENDEL+5, FIND+14
IOM	LOOK+20, TSET+1, TSET+2
J	LOOK+19, MORE+1, EN+1, TSET+7, END!
K	END!
LRAA	EN1+2, EN1+3, EN1+9, OUT+7, END!
LRACC	EN1+2, EN1+14, OUT+7, END!
LRACN	END+7!
LRACN0	END!
LRAD	EN1+2, EN1+9, OUT+7, END!
LRAN	EN1+2, EN1+9, OUT+7, END!
LRCANK	LRCENDEL+5~, LOOK+2, LOOK+7, LOOK+10, END+6!
LRCCOM	OUT+2, OUT+3*, END+6!
LRCCOM1	END+6!
LRCCOMX	OUT+2*, OUT+3, OUT+4!
LRCL	END!
LRCNT	LOOK+1, LOOK+3, LOOK+9, END!
LRCOL	LOOK+2, LOOK+5, LOOK+11, END!
LRDFN	FIND+1!, EN1+10, EN1+11, NAME+2*
LRDOC	END!
LRDPF	NAME+2*, END!
LRDTM	END!
LREND	FIND, LOOK+3, LOOK+6, LOOK+8, ONE+4, EN1, EN1+10, OUT+1, END!
LRI	EN1+16~, EN1+17, EN1+20!
LRI(	EN1+16*
LRIDT	EN1+9*, EN1+10, EN1+11, END!
LRJ	ONE, ONE+1, ONE+2, EN1, EN1+18, OUT, OUT+3*, END+7!
>> LRLABKY	TSET+6
LRLL	END+1!
LRLLOC	END+1!
LRMSTATI	ONE+5!, EN1+17
LRNATURE	FIND+1!, ONE+3!, EN1+8, EN1+17, ALLDEL+3!, END+4!
LRNOP	LOOK+17, EN1+2, EN1+15, EN1+23, OUT, OUT+7, EN+1, TSET+3*, END+1!
LRNOW	END+1!
LROD0	END+1!
LROD1	END+1!
LROD3	END+1!
LRODT	LOOK+1*, LOOK+3, LOOK+5, LOOK+7, EN1+1, EN1+2, EN1+17, EN1+18, EN1+19, OUT+6 , OUT+7, NAME+2, EN+1, TSET, TSET+4, TSET+7, END+1!
LRONE	FIND+1!, EN1+2, EN1+14!, OUT+7
LROOS	END+1!
LRORD	FIND+13*, LOOK+1, LOOK+3, LOOK+6, OUT+6, UNL69+1, NAME+2, EN+1, END+1!
LROS	END+1!
LROSD	END+1!
LROT	END+1!
LROV	LOOK+2, LOOK+3, LOOK+17, LOOK+18, END+1!
LRROD	END+1!
LRSCNXB	END+4!
LRSN	LOOK+2, LOOK+3, LOOK+5, LOOK+7, EN1, EN1+1, EN1+2, EN1+17, EN1+18, OUT+6 , OUT+7, EN+1*, TSET, TSET+4, TSET+7, END+4!
LRSPEC	TSET+7*, END+4!
LRSS	EN1+3*, EN1+10, EN1+11, END+4!
LRT	LOOK+19, LOOK+20, MORE+1, MORE+2, ONE+1, EN+1!, END+4!
LRT(	LOOK+19, MORE+1, ONE+2, EN1, OUT+3, TSET+7*
LRT(0	EN1+23
LRTC	END+4!
LRTN	LRCENDEL+5~, LOOK+7*, END+6!
>> LRTNM	EN1+4*
LRTP	END+4!
>> LRTSN	EN1+16
LRTSTI	ONE+5!, EN1*, EN1+1, EN1+2, EN1+15, EN1+18, EN1+19, OUT+7, END+7!
LRTSTS	EN1*, EN1+4, END+4!
LRTT	END+4!
LRURG	END+4!
LRUSI	END+4!
LRUSNM	END+4!
LRWRD	END+4!
>> LRX	EN1+2, OUT+7
ORIFN	EN1+2, OUT+7, END+4!
PNM	NAME+2, END+4!
SEX	END+4!
SSN	END+4!
T	END+4!
T(	EN1+18!
U	LRCENDEL+10, LOOK+3, LOOK+5, MORE+1, EN1, EN1+2, EN1+3, EN1+4, EN1+9, OUT+7 , NAME+2, TSET+6, TSET+7
X	FIND+13, LOOK+7, EN1+21, %+3!, %+6, TSET+4*, TSET+5, TSET+6, TSET+7, END+4!
X1	END+4!
X2	END+4!
X3	END+4!
X4	END+4!
>> XQY0	LRCENDEL+10
Y	%+3!, END+4!
Z	END+4!

Customize PDF page

Package: Lab Service

Routine: LRCENDEL

Information

Source Information

Call Graph

Call Graph Total: 11

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:

Name	Comments	DBIA/ICR reference
EN	;from LRPHITE3
END
LOOK	;
NAME	;S LRDFN=+^LRO(69,LRODT,1,$O(^LRO(69,"C",+LRORD,LRODT,0)),0),LRDPF=$P(^LR(LRDFN,0),U,2),DFN=$P(^(0),U,3) D PT^LRX W !,PNM,?30,SSN
TSET
ONE
EN1
UNL69	;
ALLDEL	;D:BLRLOG ^BLRSLTL("M","D",$G(BLROPT),"ORDER") ;IHS/OIRM TUC/AAB 11/14/96
OUT
FIND
MORE