Routine: LRHYPH0

Package	Total	Call Graph
Lab Service	7	(,STD,STOP)^LRCAPV Q15^LRHYPH2 QUICK^LROE1 (,LROEND)^LRORDK ^LRPARAM $$SELPL^LRVERA (PT,YMD)^LRX
VA Fileman	4	^%DT NOW^%DTC YN^DICN ^DIR
Kernel	2	^%ZTLOAD ($$DT,$$FMTE)^XLFDT

Package

Total

Call Graph

Lab Service

(,STD,STOP)^LRCAPV Q15^LRHYPH2 QUICK^LROE1 (,LROEND)^LRORDK ^LRPARAM $$SELPL^LRVERA (PT,YMD)^LRX

VA Fileman

^%DT NOW^%DTC YN^DICN ^DIR

Kernel

^%ZTLOAD ($$DT,$$FMTE)^XLFDT

Package	Total	Caller Graph
Lab Service	1	LRHYAFT

Package

Total

Caller Graph

Lab Service

LRHYAFT

Entry Points

Name	Comments	DBIA/ICR reference
T549	; ADDED FOR PPOC APPROACH
STAT	;
EN	;
END
GOT(ORD,ODT)	;See if all tests have been canceled
LROE	;
YN
TIME1
EN01	; ENTER ORDER # THEN ENTER DATA
LROEN
TIME2
NEXT	;
PAST	; HOWDY IN HERE
LROE2	;
L5	;
TIME	;from LROE1, LRORD1
QMSG
BCE	;
UNL69	;
TASK	; ; If traditional Howdy is used this is where labels print-control passes to GT549 ; If alternative Howdy is used label printing is delayed.
MORE	;

External References

Name	Field # of Occurrence
^%DT	NEXT+8, TIME+5, TIME+7, TIME2
NOW^%DTC	TIME+1, TASK+6
^%ZTLOAD	T549+8, BCE+9
YN^DICN	TIME2
^DIR	NEXT+7
^LRCAPV	NEXT+2
STD^LRCAPV	T549+10, BCE+11
STOP^LRCAPV	T549+11, END+1, BCE+12
Q15^LRHYPH2	MORE+7
QUICK^LROE1	PAST+1
^LRORDK	END+1
LROEND^LRORDK	END+1
^LRPARAM	LRHYPH0+5, STAT+1
$$SELPL^LRVERA	STAT+5
PT^LRX	LROE2+5
YMD^LRX	STAT+10
$$DT^XLFDT	NEXT+3
$$FMTE^XLFDT	NEXT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"ROLLOVER ",$S($P(^("RO"),U,2):"IS RUNNING.",1:"HAS NOT RUN.")," ACCESSIONING SHOULDN'T BE DONE NOW.",$C(7),! Line Location: NEXT+5
Function Call: WRITE	Prompt: !,"OK, try later." Line Location: NEXT+7
Function Call: READ	Timeout: DTIME Variable: LRORD Line Location: NEXT+10
Function Call: WRITE	Prompt: !!,"Select Order number: " Line Location: NEXT+10
Function Call: WRITE	Prompt: ! Line Location: NEXT+10
Function Call: WRITE	Prompt: @IOF Line Location: PAST+1
Function Call: WRITE	Prompt: !!?10,"No order exist with that number ",$C(7),! Line Location: PAST+3
Function Call: WRITE	Prompt: !,"The order has already been",$S(LRCHK<1:" partially",1:"")," accessioned." Line Location: PAST+7
Function Call: WRITE	Prompt: !,"No order exists with that number." Line Location: PAST+8
Function Call: WRITE	Prompt: !?5,"Someone else is editing this Order",!!,$C(7) Line Location: PAST+15
Function Call: WRITE	Prompt: !,"Enter the order entry number assigned when the test was ordered." Line Location: QMSG+0
Function Call: WRITE	Prompt: !,"To exit, type the ""^"" key and RETURN key." Line Location: QMSG+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: YN+0
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: YN+1
Function Call: WRITE	Prompt: !!?10,"You do not have the proper security Keys",! Line Location: STAT+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: TIME+2
Function Call: WRITE	Prompt: !,"You have specified a collection time in the future. Are you sure" Line Location: TIME2+0
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o." Line Location: TIME2+0
Routine Call	DIR Line Location: NEXT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	TASK+3, TASK+20, BCE+8
^LAB(69.9 - [#69.9]	NEXT+4
^LR - [#63]	LROE2+5
^LRO(68 - [#68]	TASK+12, TASK+13, TASK+15, TASK+17, T549+10, BCE+11
^LRO(69 - [#69]	PAST+3, PAST+5, PAST+6, PAST+14, MORE+3, MORE+5, LROE2+1, LROE2+4, LROE2+5, GOT+3 , GOT+4, GOT+5, GOT+6, UNL69+1
^XTMP("LRHY LABELS"	TASK+18*

Name	Line Occurrences
$$GOT	PAST+9
END	NEXT+7, LROEN+1, STAT+6, STAT+12
LROE	LROEN+1, STAT+11
LROE2	PAST+6
QMSG	PAST+2
T549	TASK+3
TASK	MORE+8
TIME	PAST+18, TIME+5, TIME+7
TIME1	TIME+7
TIME2	TIME1
UNL69	PAST+19, MORE+8
YN	YN+1

Name	Field # of Occurrence
^(	GOT+6
^("RO"	NEXT+4, NEXT+5
^(0	LROE2+5, GOT+6
^(1	LROE2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TIME+1, TIME2*, TIME2+1, TASK+7
%DT	NEXT+8, PAST+16!, PAST+18!, TIME+2, TIME2*
%DT("B"	PAST+17*, TIME+2, TIME+3
>> %H	STAT+10*
>> DA	PAST+6*, LROE2+1, LROE2+3
>> DFN	LROE2+5*
DIC	NEXT+9!
>> DILOCKTM	PAST+14
DIR	NEXT+1!, PAST+10!, PAST+12!, END!
DIR("A"	NEXT+6, PAST+10
DIR("B"	NEXT+6, PAST+11
DIR(0	NEXT+6, PAST+10
DIRUT	NEXT+7, PAST+13, END!
DT	NEXT+3*, TIME+6, TASK+12, TASK+13, TASK+14
DTIME	NEXT+10, YN, TIME+2
>> DTOUT	YN*
DUZ(2	STAT+5, STAT+7
IO	BCE+7*
IOF	PAST+1
>> LR3T	TASK+7*, TASK+18
>> LR3X	LROE2+5*
LRAA	MORE+7!, T549+10, BCE+11
LRAD	TASK+4~, TASK+12, TASK+13, TASK+14, TASK+15, TASK+17, TASK+19!
LRCCOM	T549+11!, BCE+12!
LRCDT	PAST+19, PAST+20, PAST+21!, TIME+1, TIME+2, TIME+5, TIME+6, TIME+7*
>> LRCE	T549+1, T549+6, BCE+1
>> LRCHK	PAST+4, PAST+6, PAST+7, LROE2+1*
LRCOM	T549+11!, BCE+12!
>> LRCSQ	T549+10, BCE+11
>> LRDEV	TASK+3, TASK+20, BCE+6*, BCE+7, BCE+8
>> LRDFN	LROE2+5*, TASK+18
>> LRDPF	LROE2+5*
LREND	LRHYPH0+3!, LRHYPH0+6*, NEXT+2, STAT+11!
LRHYGOT	END!, GOT+2, GOT+4, GOT+6, GOT+7
LRHYI	GOT+1~, GOT+6*
>> LRLABKY	STAT+2
>> LRLABLIO	T549+8, BCE+2, BCE+5, BCE+6
LRLBL	T549+9!, BCE+10!
LRLBL(	TASK+9, TASK+11, TASK+16, TASK+18, T549+3, T549+5, T549+6
LRLONG	NEXT+2!, NEXT+10, QMSG+1, STAT+9*, STAT+11!
>> LRLWC	LRHYPH0+4*
LRNATURE	LRHYPH0+3!
LRNCWL	LROEN*, LROEN+1!
>> LRNONE	PAST+4, PAST+6, PAST+7, PAST+8, LROE2+1*
>> LRODT	NEXT+3, PAST+4, PAST+5, PAST+6, PAST+9, MORE+2, MORE+3*, MORE+5, LROE2+1, LROE2+4 , LROE2+5
>> LRODT0	NEXT+3*
LROESTAT	NEXT+2, STAT+9*, STAT+11!
>> LRORD	NEXT+10, PAST+1, PAST+2, PAST+3, PAST+5, PAST+6, PAST+9, PAST+14, MORE+3, MORE+5 , TASK+16, T549+1, UNL69+1, BCE+1
LRORDRR	LRHYPH0+3!
LRORIFN	LRHYPH0+3!
LRPANEL	NEXT+2!, STAT+9*
>> LRPARAM	NEXT+2
LRPL	STAT+7~*
LRSN	NEXT+9!, PAST+13!, PAST+21!, MORE+6, MORE+7!, LROE2+2!, LROE2+3, LROE2+4, LROE2+5
LRSN(	MORE+6, LROE2+3
LRSND	NEXT+9!, MORE+2, MORE+4, MORE+5*, MORE+6
LRSPCDSC	T549+11!, BCE+12!
>> LRSTATUS	PAST+17*
LRTCOM	T549+11!, BCE+12!
>> LRTIM	PAST+20*
LRTM60	STAT+10*, STAT+11!
>> LRTM7	NEXT+8*
>> LRUID	TASK+15, TASK+17, TASK+18
>> LRUN	PAST+21*
LRX	TASK+5~, TASK+8, TASK+9, TASK+11, TASK+12, TASK+13, TASK+15, TASK+16, TASK+17, TASK+18 , T549+2, T549+3, T549+5, T549+6
LRY	TASK+5~, TASK+10, TASK+11, TASK+15, TASK+16, TASK+17, TASK+18, T549+4, T549+5, T549+6
>> M9	PAST+1, PAST+4, MORE+1, LROE2+5
ODT	GOT~, GOT+1~, GOT+2, GOT+3, GOT+4, GOT+5, GOT+6
ORD	GOT~, GOT+3, GOT+4
SN	GOT+1~, GOT+2, GOT+4, GOT+5, GOT+6
U	NEXT+2, NEXT+4, NEXT+5, PAST+21, LROE2+1, LROE2+5, TASK+12, TASK+13, TASK+15, TASK+16 , TASK+17, T549+6, T549+10, BCE+8, BCE+11
>> X	NEXT+3, NEXT+8, YN, STAT+5, STAT+6, STAT+7, STAT+10, TIME+2, TIME+3, TIME+4 , TIME+5, TIME+6, TIME+7, TIME1, TIME2, TIME2+1
X1	TIME1!, TIME2+1
>> Y	NEXT+7, NEXT+8, PAST+12, PAST+13, TIME+5, TIME+7, TIME1, TIME2
Y1	TIME1*!, TIME2
>> ZTDESC	T549+8, BCE+4
>> ZTDTH	T549+8, BCE+4
>> ZTIO	T549+8, BCE+5, BCE+8*
>> ZTQUEUED	T549+8
>> ZTREQ	T549+8*
>> ZTRTN	T549+8, BCE+4
>> ZTSAVE("IO*"	BCE+7*
>> ZTSAVE("L*"	T549+7, BCE+3
>> ZTSAVE("LRLBL("	T549+8*

Customize PDF page

Package: Lab Service

Routine: LRHYPH0

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: