Routine: LR7OSOS

Package	Total	Call Graph
Lab Service	2	$$LRDFN^LR7OR1 (DD,DOC)^LRX
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
HED
CANC	;For Canceled tests
OERR(X,ALPHA,OMEGA)	;Get order status for predefined patient	ICR #2985 Status: Active Usage: Private
NO2
TST2	;
WRITE	;
DATE
EN(OMEGA,ALPHA)	;'...the last shall be first...the first shall be last'
COM(COMNODE)	;Write comment
TEST	;
ENTRY
NOTACC
ORDER	;call with LRODT,LRSN
TST1
WAIT

External References

Name	Field # of Occurrence
$$LRDFN^LR7OR1	OERR+7
DD^LRX	HED+1
DOC^LRX	ORDER+3
$$FMTE^XLFDT	DATE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,"Lab Order # ",$S($D(^LRO(69,LRODT,1,LRSN,.1)):^(.1),1:"") Line Location: ORDER+3
Function Call: WRITE	Prompt: ?45,"Provider: ",$E(LRDOC,1,25) Line Location: ORDER+3
Function Call: WRITE	Prompt: !?5,": ",^(I,0) Line Location: ORDER+5
Function Call: WRITE	Prompt: !!,"BAD ORDER ",LRSN,!,$C(7) Line Location: TEST+5
Function Call: WRITE	Prompt: !!,"BAD ACCESSION TEST POINTER: ",LRTSTS Line Location: TST2+3
Function Call: WRITE	Prompt: !?2,$S($D(^LAB(60,+LRTSTS,0)):$P(^(0),U),1:"BAD TEST POINTER") Line Location: WRITE+1
Function Call: WRITE	Prompt: ! Condition for execution: $X>20 Line Location: WRITE+1
Function Call: WRITE	Prompt: ?20,$S($D(^LAB(62.05,+LRURG,0)):$P(^(0),U),1:"")," " Line Location: WRITE+1
Function Call: WRITE	Prompt: ! Condition for execution: $X>28 Line Location: WRITE+2
Function Call: WRITE	Prompt: ?28,LROT," ",LROS,?48," ",LROSD Line Location: WRITE+2
Function Call: WRITE	Prompt: !?3,": "_^(I,0) Line Location: COM+3
Function Call: WRITE	Prompt: !!,"Orders for date: " Line Location: HED+1
Function Call: WRITE	Prompt: Y Line Location: HED+1
Function Call: WRITE	Prompt: @IOF," Test",?20,"Urgency",?30,"Status",?64,"Accession" Line Location: HED+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: WAIT+0
Function Call: WRITE	Prompt: !," PRESS '^' TO STOP " Line Location: WAIT+0
Function Call: WRITE	Prompt: !!?5,"NO PATIENT SELECTED",! Line Location: OERR+4
Function Call: WRITE	Prompt: !,"Lab test status for: "_$P(^DPT(DFN,0),"^") Line Location: OERR+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	OERR+9
^LAB(60 - [#60]	WRITE+1
^LAB(61 - [#61]	ORDER+4
^LAB(62 - [#62]	ORDER+4
^LAB(62.05 - [#62.05]	WRITE+1
^LRO(68 - [#68]	TST1+1, TST1+2, WRITE+3
^LRO(69 - [#69]	EN+4, ENTRY+2, ORDER+2, ORDER+3, ORDER+4, ORDER+5, ORDER+6, COM+3, HED+1
^VA(200 - [#200]	CANC+2

Label References

Name	Line Occurrences
CANC	TEST+3
COM	TST2+4, TST2+7, NO2+3, CANC+3
DATE	TST2+4, TST2+5, NO2
EN	OERR+10
ENTRY	EN+4
HED	ENTRY, ENTRY+2
NO2	NOTACC, NOTACC+1
NOTACC	TEST+6, TST1+1
ORDER	ENTRY+2
TEST	ORDER+6
TST2	TST1+2
WAIT	HED
WRITE	TST2+4, TST2+7, NO2+3, CANC+3

Naked Globals

Name	Field # of Occurrence
^(	ORDER+3, ORDER+5, ORDER+6, TST1+2, WRITE+3, COM+3
^(0	ORDER+4, ORDER+6, WRITE+1
^(1	ORDER+2
^(3	ORDER+2, TST1+1
^(9	TST1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALPHA	EN~, EN+3, OERR~, OERR+5, OERR+10
COMNODE	COM~, COM+2*, COM+3
D	ORDER+2!
DFN	OERR+6~, OERR+7*, OERR+9
DTIME	WAIT
I	ORDER+1~, ORDER+5, TST1+2, TST2+1~, COM+3*
IO	EN+2
IOF	HED+2
IOSL	ENTRY+2
IOST	HED
LRACC	TEST+1~, TST1+2*, TST2+2, TST2+4
LRACD	TEST+1~, TST1+1*
LRACN	ORDER+1~, ORDER+6*, COM+3
LRACN0	ORDER+1~, ORDER+6*, TEST+2, TEST+3, TEST+5, TST1, COM+3, NO2+1, CANC+2
LRDFN	EN+4, ENTRY+2, HED+1, OERR+6~, OERR+7*, OERR+8
LRDOC	ORDER+1~, ORDER+3
LRDPF	OERR+6~, OERR+7*
LRDT0	OERR+6~
LREND	EN+1~, EN+3, EN+4, ENTRY+2, HED, WAIT
LRLL	TEST+1~, TEST+2, TST2+1~, TST2+4, TST2+5
LROD0	ORDER+1~, ORDER+2*, ORDER+3, ORDER+4, TEST+4, NO2
LROD1	ORDER+1~, ORDER+2*, TEST+5, TEST+6, TST1+3, TST2+6, NO2, NO2+4
LROD3	ORDER+1~, ORDER+2*, TST2+5, NOTACC, NOTACC+1, NOTACC+2, NO2
LRODT	EN+1~, EN+3, EN+4, ENTRY+2, ORDER+2, ORDER+3, ORDER+4, ORDER+5, ORDER+6, COM+3 , NO2, HED+1
LROOS	TEST+1~, TEST+5, TST2+4, TST2+6
LROS	TEST+1~, TEST+2, TEST+5, TST2+1~, TST2+4, TST2+5, TST2+6, WRITE+2, NOTACC, NOTACC+1* , NOTACC+2, NO2+2
LROSD	TEST+1~, TEST+2, TST2+1~, TST2+4, TST2+5, WRITE+2, NO2
LROT	TEST+1~, TEST+2, TEST+4, TEST+5, TST2+1~, TST2+4, WRITE+2, CANC+2*
LRROD	TEST+1~, TEST+2*, WRITE+3, NO2+2
LRSN	EN+1~, ENTRY+1, ENTRY+2, ORDER+2, ORDER+3, ORDER+4, ORDER+5, ORDER+6, TEST+5, COM+3
LRTSTS	TEST+1~, TST1+2, TST2+3, WRITE+1, COM+3, NO2+1, NO2+3, CANC+1~, CANC+2*, CANC+3
LRTT	ORDER+2!
LRTT(	TST1+2*
LRURG	TEST+1~, TEST+2, TST2+1~, TST2+2, WRITE+1, NO2+1*
LRY	TEST+1~
OMEGA	EN~, EN+4, OERR~, OERR+5, OERR+10
U	ORDER+3, ORDER+4, TEST+2, TEST+4, TEST+5, TST1, TST1+3, TST2+2, TST2+4, TST2+5 , WRITE+1, NOTACC+1, NOTACC+2, NO2, NO2+1, NO2+4
VA200	OERR+6~
X	ORDER+1~, ORDER+3, ORDER+4, ORDER+5, TEST+1~, TEST+4, TEST+5, WAIT*, OERR~, OERR+4 , OERR+7
X1	TEST+1~, TST1*, TST1+1, TST1+2, WRITE+3
X2	TEST+1~, TST1*, TST1+1, TST1+2, WRITE+3
X3	TEST+1~, TEST+2, TST1, TST1+1, TST1+2, WRITE+3
X4	ORDER+1~, ORDER+4*, ORDER+5
Y	TEST+1~, TEST+2, TST2+1~, TST2+4, TST2+5, NOTACC+1, NOTACC+2, NO2, DATE, HED+1

Customize PDF page

Package: Lab Service

Routine: LR7OSOS

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: