Routine: LROS

Call Graph

Call Graph Total: 8

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

Package

Total

Caller Graph

Lab Service

LRCE LRCENDEL LRHYDEL LROE LROE1 LROR1 LRORD1 LRORD1GU
LRORD2A LRORDD LROS LRTSTOUT

IHS Changes To Lab

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

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

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: