Routine: LROS

Package	Total	Call Graph
Lab Service	3	(,END)^LRDPA DATE^LRWU (DD,DOC,DT)^LRX
VA Fileman	3	^%DT C^%DTC YN^DICN
IHS Changes To Lab	1	REVIDEO^BLRUTIL3
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Lab Service	12	LRCE LRCENDEL LRHYDEL LROE LROE1 LROR1 LRORD1 LRORD1GU LRORD2A LRORDD LROS LRTSTOUT
IHS Changes To Lab	3	BLRORD1 BLRORD2A BLRSGNSP

Entry Points

Name	Comments	DBIA/ICR reference
COM(LRMMODE)	;
CANC	;For Canceled tests
COMWRT(LRODT,LRSN,LRTSTI,NODE,TAB)	;
DATE
ORDER	;call with LRSN, from LROE, LROE1, LRORD1, LROW2, LROR1
NO2
LREND
NOTACC
TST2	;
TST1
EN
SHOW	;call with LRSN,LRODT, from LRCENDEL, LRTSTJAN
HED	; D WAIT:$E(IOST,1)="C"&($Y>18) Q:$G(LREND) W @IOF,!," Test",?20,"Urgency",?30,"Status",?64,"Accession"
L2	; S LRSN=$O(^LRO(69,LRODT,1,"AA",LRDFN,0)) I LRSN<1 S Y=LRODT D DD^LRX W !,"No orders for ",Y S X1=LRODT,X2=-1 D C^%DTC S LRODT=X I LRODT<LRLDAT W !!,"NO REMAINING ACTIVE ORDERS",! G LREND
L0
L1
ENTRY
WAIT
WRITE	;
TEST
ENT	;from LROE, LROE1, LRORD1, LROW2
OERR(X)	;Get order status for predefined patient

External References

Name	Field # of Occurrence
^%DT	L1
C^%DTC	L2+1, L2+4
REVIDEO^BLRUTIL3	ORDER+4, WRITE+9
YN^DICN	L2+3
^LRDPA	EN+1
END^LRDPA	OERR+5
DATE^LRWU	L1
DD^LRX	L2+1, L2+3
DOC^LRX	ORDER+4
DT^LRX	L0
$$FMTE^XLFDT	DATE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No orders for ",Y Line Location: L2+0
Function Call: WRITE	Prompt: !!,"NO REMAINING ACTIVE ORDERS",! Line Location: L2+0
Function Call: WRITE	Prompt: !!,"NO REMAINING ACTIVE ORDERS",! Line Location: L2+1
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: !,"Lab Order # " Line Location: ORDER+4
Function Call: WRITE	Prompt: ?45,"Provider: ",$E(LRDOC,1,25) Line Location: ORDER+4
Function Call: WRITE	Prompt: !?3,$P(LROD1,U,6) Line Location: ORDER+6
Function Call: WRITE	Prompt: !,?5,"Visit Number(s): ",$G(^("PCE")) Line Location: ORDER+7
Function Call: WRITE	Prompt: !?5,": ",^(I,0) Line Location: ORDER+8
Function Call: WRITE	Prompt: !!,"BAD ORDER ",LRSN,!,$C(7) Line Location: TEST+5
Function Call: WRITE	Prompt: !,?20,$P(LROD1,U,6) Line Location: TST1+3
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: ! Line Location: WRITE+2
Function Call: WRITE	Prompt: ?20,$S($D(^LAB(62.05,+LRURG,0)):$P(^(0),U),1:"")," " Line Location: WRITE+3
Function Call: WRITE	Prompt: ! Line Location: WRITE+4
Function Call: WRITE	Prompt: ?28,LROT," ",LROS,?43," ",LROSD Line Location: WRITE+5
Function Call: WRITE	Prompt: !?46," See order: ",LRROD Line Location: WRITE+8
Function Call: WRITE	Prompt: !?46," See order: " Line Location: WRITE+9
Function Call: WRITE	Prompt: !,"Sign or Symptom: ",$G(^LRO(69,LRODT,1,LRSN,2,LRACN,9999999)) Line Location: WRITE+12
Function Call: WRITE	Prompt: !,?2,"Clinical Indication: ",$$GET1^DIQ(69.03,LRACN_","_LRSN_","_LRODT,"PROVIDER NARRATIVE") Line Location: WRITE+19
Function Call: WRITE	Prompt: !,?15,"SNOMED: ",$$GET1^DIQ(69.03,LRACN_","_LRSN_","_LRODT,"SNOMED") Line Location: WRITE+20
Function Call: WRITE	Prompt: !,?18,"ICD: ",$$GET1^DIQ(69.05,"1,"_LRACN_","_LRSN_","_LRODT,.01) Line Location: WRITE+21
Function Call: WRITE	Prompt: !,?20,$P(LROD1,U,6) Line Location: NO2+4
Function Call: WRITE	Prompt: @IOF,!," Test",?20,"Urgency",?30,"Status",?64,"Accession" Line Location: HED+0
Function Call: WRITE	Prompt: @IOF,!," Test",?20,"Urgency",?30,"Status",?62,"Accession" Line Location: HED+1
Function Call: WRITE	Prompt: @IOF Line Location: LREND+0
Function Call: WRITE	Prompt: !,"Order Test",?20,"Urgency",?30,"Status",?64,"Accession" Line Location: SHOW+2
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: WAIT+1
Function Call: WRITE	Prompt: !," PRESS '^' TO STOP " Line Location: WAIT+1
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+1
Function Call: WRITE	Prompt: !!?5,"NO PATIENT SELECTED",! Line Location: OERR+2
Function Call: WRITE	Prompt: !,"Lab test status for: "_$P(^DPT(DFN,0),"^") Line Location: OERR+7

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
CANC	TEST+2
COM	TST2+4, TST2+7, NO2+3, CANC+2
COMWRT	COM+6
DATE	TST2+4, TST2+5, NO2
EN	EN+1
ENT	L0
ENTRY	L2+4
HED	ENTRY, ENTRY+1
L0	EN+1, OERR+8
L2	L2+2, L2+5
LREND	EN+1, L1, L2+1, L2+2, L2+3, L2+4
NO2	NOTACC, NOTACC+1
NOTACC	TEST+6, TST1+1
ORDER	ENTRY+1, SHOW+2
TEST	ORDER+9
TST2	TST1+2
WAIT	L2+2, ORDER+4, ORDER+6, ORDER+7, ORDER+8, TEST+5, TST1+3, WRITE+2, WRITE+3, WRITE+4 , WRITE+9, COMWRT+6, NO2+4, HED+1
WRITE	TST2+4, TST2+7, NO2+3, CANC+2

Naked Globals

Name	Field # of Occurrence
^(	ORDER+4, ORDER+8, ORDER+9, TST1+2, WRITE+7, COMWRT+6
^("PCE"	ORDER+7
^(0	L1, ORDER+5, ORDER+9, WRITE+1, WRITE+3, COMWRT+6
^(1	ORDER+2
^(3	ORDER+2, TST1+1
^(9	TST1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	L2+3*, LREND+2!
>> %DT	L0, L1
>> %DT("A"	L1*
>> %DT("B"	EN!
%Y	LREND+2!
A	LREND+2!
D	ORDER+1!
DFN	LREND+2!, OERR+3~, OERR+4*, OERR+7
DIC	EN!, LREND+2!
DIC(0	EN*
DIWL	LREND+2!
DIWR	LREND+2!
DPF	LREND+2!
DTIME	WAIT+1
>> DTOUT	EN+1
>> DUOUT	EN+1
I	ORDER+8, TST1+2, TST2+1~, LREND+2!
IOF	HED+1, LREND, WAIT, WAIT+1
IOSL	ENTRY+1, WAIT
IOST	HED+1, LREND, WAIT
K	LREND+2!
LRACC	TST1+2*, TST2+2, TST2+4, LREND+2!
>> LRACD	TST1+1*
LRACN	ORDER+9*, WRITE+17, LREND+2!
LRACN0	ORDER+9*, TEST+1, TEST+2, TEST+5, TST1, NO2+1, LREND+2!, CANC+1
LRDFN	EN+1, L2+1, ENTRY+1, LREND+2!, OERR+3~, OERR+6
LRDOC	ORDER+4, LREND+2!
LRDPA	OERR+3~
LRDPAF	EN!
LRDPF	LREND+2!, OERR+4*
LRDT0	OERR+3~
LREND	L1, L2+2, L2+4, ENTRY, ENTRY+1, ORDER+1, ORDER+4, ORDER+6, ORDER+7, ORDER+8 , ORDER+9, TST1+2, WRITE+2, WRITE+3, WRITE+4, COMWRT+6, HED+1, LREND+2!, SHOW+1, WAIT+1
LRI	COMWRT+5~, COMWRT+6*
LRLDAT	L1*, L2+1, LREND+2!
LRLL	TEST+1, TST2+4, TST2+5, LREND+2!
LRLOOKUP	LROS+3~*
LRMMODE	COM~, COM+4*, COM+6
LROD0	ORDER+2*, ORDER+4, ORDER+5, TEST+3, NO2, LREND+2!
LROD1	ORDER+2*, ORDER+6, TEST+4, TEST+6, TST1+3, TST2+6, NO2, NO2+4, LREND+2!
LROD3	ORDER+2*, TST2+5, NOTACC, NOTACC+1, NOTACC+2, NO2, LREND+2!
LRODT	L1, L2+1, L2+3, L2+4*, ENTRY+1, ORDER+2, ORDER+4, ORDER+5, ORDER+7, ORDER+8 , ORDER+9, WRITE+17, COM+5, COM+6, COMWRT~, COMWRT+2, COMWRT+3, COMWRT+6, NO2, LREND+2!
LROOS	TEST+4, TST2+4, TST2+6, LREND+2!
LROS	TEST+1, TEST+4, TST2+4, TST2+5, TST2+6, WRITE+5, NOTACC, NOTACC+1, NOTACC+2, NO2+2* , LREND+2!
LROSD	TEST+1, TST2+4, TST2+5, WRITE+5, NO2, LREND+2!
LROT	TEST+1, TEST+3, TEST+4, TST2+4, WRITE+5, LREND+2!, CANC+1*
LRROD	TEST+1*, WRITE+9, NO2+2, LREND+2!
LRSDT	L1*, L2+3, LREND+2!
LRSN	L2+1, L2+2, ENTRY+1, ORDER+2, ORDER+4, ORDER+5, ORDER+7, ORDER+8, ORDER+9, TEST+5 , WRITE+17, COM+5, COM+6, COMWRT~, COMWRT+2, COMWRT+3, COMWRT+6, LREND+2!
LRTSTI	COM+3~, COM+5*, COM+6, COMWRT~, COMWRT+2, COMWRT+3, COMWRT+6
LRTSTS	TST1+2, TST2+3, WRITE+1, COM+5, NO2+1, NO2+3, LREND+2!, CANC+1*, CANC+2
LRTT	ORDER+1!, LREND+2!
LRTT(	TST1+2*
LRURG	TEST~, TEST+1, TST2+2, WRITE+3, NO2+1*, LREND+2!
LRY	TEST~
NODE	COMWRT~, COMWRT+2, COMWRT+6
PNM	LREND+2!
TAB	COMWRT~, COMWRT+4*, COMWRT+6
U	L1, ORDER+4, ORDER+5, ORDER+6, TEST+1, TEST+3, TEST+4, TST1, TST1+3, TST2+2 , TST2+4, TST2+5, WRITE+1, WRITE+3, NOTACC+1, NOTACC+2, NO2, NO2+1, NO2+4, CANC+1
VA200	OERR+3~
X	L1, L2+1, L2+4, ORDER+4, ORDER+5, ORDER+8, TEST+3, TEST+4, LREND+2!, WAIT+1 , OERR~, OERR+2, OERR+4
X1	L2+1, L2+4, TST1*, TST1+1, TST1+2, WRITE+7, LREND+2!
X2	L2+1, L2+4, TST1*, TST1+1, TST1+2, WRITE+7, LREND+2!
X3	TEST+1, TST1, TST1+1, TST1+2, WRITE+7, LREND+2!
X4	ORDER+5*, ORDER+8, LREND+2!
Y	L1, L2+1, L2+3, TEST+1, TST2+4, TST2+5, NOTACC+1, NOTACC+2, NO2, DATE* , LREND+2!
Z	LREND+2!
>> ZTQUEUED	LREND+1
>> ZTREQ	LREND+1*

Customize PDF page

Package: Lab Service

Routine: LROS

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: