Routine: LRCENDEL

Package	Total	Call Graph
Lab Service	7	NEW^LR7OB1 CEN1^LRCENDE1 DC^LROR6 SHOW^LROS ^LRPARAM ($$CHK63,END,FX2,LEDICHK,LEDISET,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

Name	Comments	DBIA/ICR reference
FIND
LOOK	;
MORE
ONE
PANEL	;
EN1
OUT
UNL69	;
NAME
EN	;from LRPHITE3
TSET
GET63	;
L63	;
L63ALL	;
UNL63	;
CHK63(LRDFN,LRODT,LRSN,LRTSTI)	; ccr_5538n - Check if tests being NP already have results in file #63.
END

Name	Field # of Occurrence
YN^DICN	LOOK+15
^DIE	EN1+20
^DIR	FIND+10
NEW^LR7OB1	EN1+18
CEN1^LRCENDE1	EN1+15
DC^LROR6	EN1+5
SHOW^LROS	LOOK+3
^LRPARAM	FIND
$$CHK63^LRTSTOUT	CHK63+13
END^LRTSTOUT	END+3
FX2^LRTSTOUT	ONE+5, OUT+2
LEDICHK^LRTSTOUT	EN1+9
LEDISET^LRTSTOUT	ONE+12, OUT+6
SET^LRTSTOUT	EN1+8
DUZ^LRX	EN1+22
PT^LRX	NAME
$$CJ^XLFSTR	LOOK+18, TSET+1, TSET+2, TSET+12, TSET+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: LRCENDEL+3
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: @IOF Line Location: FIND+13
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+5
Function Call: WRITE	Prompt: !,"No order found with that number." Line Location: LOOK+8
Function Call: WRITE	Prompt: !!,"[ * All tests on this order # have already been dispositioned. * ]" Line Location: LOOK+9
Function Call: WRITE	Prompt: !!?5," You CAN NOT change the status of test(s) on this order." Line Location: LOOK+11
Function Call: WRITE	Prompt: !,"Test sample(s) have already been received into the laboratory." Line Location: LOOK+12
Function Call: WRITE	Prompt: !,"You must CONTACT the Laboratory to have test(s) status changed.",$C(7) Line Location: LOOK+13
Function Call: WRITE	Prompt: !,"Change entire order" Line Location: LOOK+15
Function Call: WRITE	Prompt: "Answer 'Y'es or 'N'o." Line Location: LOOK+15
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" Can't change status of test(s) on this order.",IOM),! Line Location: LOOK+18
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	Formatting: ! Prompt: "Change status of which entry: " Variable: LRJ Timeout: DTIME 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+5
Function Call: WRITE	Prompt: !?5,"Someone else is editing this entry",! Line Location: EN1+7
Function Call: READ	Variable: % Timeout: DTIME Line Location: OUT+12
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: OUT+12
Function Call: WRITE	Prompt: !,PNM,?30,SSN Line Location: NAME+0
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
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Test result(s) already entered for this order; cannot change order.",IOM) Line Location: TSET+12
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You must select individual test using the 'Delete test from accession' option.",IOM),!! Line Location: TSET+13
Function Call: WRITE	Prompt: !?5,"Someone else is editing this entry",! Line Location: L63+5
Function Call: WRITE	Prompt: !?5,"Someone else is editing this entry",! Line Location: L63ALL+9
Routine Call	DIE Line Location: EN1+20
Routine Call	DIR Line Location: FIND+10

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

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	MORE+1, ONE+11, PANEL+5, PANEL+6, EN1+4
^LAB(61 - [#61]	TSET+19
^LR - [#63]	NAME, L63+5, L63ALL+9, UNL63+6
^LRO(68 - [#68]	EN1+3, EN1+6, GET63+5, GET63+7, CHK63+10, CHK63+12
^LRO(69 - [#69]	LOOK+1, LOOK+3, LOOK+4, LOOK+5, LOOK+6, EN1+1, EN1+2, EN1+19*, OUT+9, OUT+10 , UNL69+1, NAME, EN+1, TSET, TSET+4, TSET+19, CHK63+4, CHK63+5
^XUSEC("LRLAB"	EN1+15

Name	Line Occurrences
$$CHK63	TSET+10
%	%
EN1	ONE+7, PANEL+17, OUT+5
END	FIND, FIND+11, LOOK+7, LOOK+8, LOOK+10, LOOK+16, ONE+3, ONE+5, OUT+1, OUT+2
FIND	FIND+15, EN1+24, OUT+11
GET63	TSET+19
L63	ONE+3
L63ALL	OUT+1
LOOK	FIND+15, ONE+14
MORE	ONE, ONE+2
NAME	LOOK+9, LOOK+14
ONE	ONE+1, EN1+24
OUT	LOOK+16
PANEL	ONE+11
TSET	EN+1
UNL63	ONE+3, ONE+5, ONE+13, OUT+2, OUT+7, L63ALL+10
UNL69	LOOK+7, LOOK+8, LOOK+10, LOOK+18, ONE+3, ONE+5, ONE+13, EN1+10, OUT+1, OUT+2 , OUT+7, TSET+3, TSET+14

Name	Field # of Occurrence
^(	LOOK+6, TSET+4
^(0	EN1+19*, NAME, TSET+19
^(3	LOOK+3, TSET

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Lab Service

Routine: LRCENDEL

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

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: