Routine: BLRLROS

Package	Total	Call Graph
VA Fileman	5	^%DT C^%DTC YN^DICN $$GET1^DIQ ^DIR
Lab Service	3	^LRDPA DATE^LRWU (DD,DT)^LRX
IHS Changes To Lab	2	LINEWRAP^BLRGMENU REVIDEO^BLRUTIL3
DRG Grouper	1	$$ICDDX^ICDEX
IHS VA Utilities	1	^XBCLS
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
COM(LRMMODE)	; EP
CANC	; EP - For Canceled tests
COMWRT(LRODT,LRSN,LRTSTI,NODE,TAB)	; EP
PEP	; EP
HEDBAN	; EP
DATE	; EP
ORDER	; EP - call with LRSN, from LROE, LROE1, LRORD1, LROW2, LROR1
NO2	; EP
CLININDD	; EP - Display 'Clinical Indication' Data
WAITBAN	; EP
LREND
NOTACC	; EP
TST2	; EP
TST1	; EP
ORDERHED	; EP
SHOW	; EP - call with LRSN,LRODT, from LRCENDEL, LRTSTJAN
NEWHEAD	; EP
HED	; EP ; D:$E(IOST,1)="C"&($Y>18) WAIT
L2	; EP
L0	; EP
L1	; EP
ENTRY
EP	; EP
WAIT	; EP
WRITE	; EP+
TEST	; EP
ENT	; EP - from LROE, LROE1, LRORD1, LROW2

External References

Name	Field # of Occurrence
^%DT	L1+2
C^%DTC	L2+2, L2+33
LINEWRAP^BLRGMENU	CLININDD+14, CLININDD+22, COMWRT+12
REVIDEO^BLRUTIL3	WRITE+7, ORDERHED+3
YN^DICN	L2+32
$$GET1^DIQ	ORDER+8, ORDER+9, CLININDD+4, CLININDD+5, CLININDD+19
^DIR	HED+8, WAIT+7, HEDBAN+9, WAITBAN+7
$$ICDDX^ICDEX	CLININDD+20
^LRDPA	PEP+6
DATE^LRWU	L1+1
DD^LRX	L2+2, L2+32
DT^LRX	L0+1
^XBCLS	L2+25
$$FMADD^XLFDT	L2+5
$$FMTE^XLFDT	DATE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO REMAINING ACTIVE ORDERS",! Line Location: L2+2
Function Call: WRITE	Prompt: !! Line Location: L2+27
Function Call: WRITE	Prompt: !?3,$P(LROD1,U,6) Line Location: ORDER+14
Function Call: WRITE	Prompt: !,?5,"Visit Number(s): ",$G(^("PCE")) Line Location: ORDER+15
Function Call: WRITE	Prompt: !?5,": ",^(I,0) Line Location: ORDER+16
Function Call: WRITE	Prompt: !!,"BAD ORDER ",LRSN,!,$C(7) Line Location: TEST+6
Function Call: WRITE	Prompt: !,?20,$P(LROD1,U,6) Line Location: TST1+4
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: " Line Location: WRITE+7
Function Call: WRITE	Prompt: !,?9,"Clinical Indication: " Line Location: CLININDD+14
Function Call: WRITE	Prompt: ! Line Location: CLININDD+18
Function Call: WRITE	Prompt: ?9,"ICD:",$P(ICDSTR,"^",2) Line Location: CLININDD+21
Function Call: WRITE	Prompt: !,?TAB,": " Line Location: COMWRT+11
Function Call: WRITE	Prompt: !,?20,$P(LROD1,U,6) Line Location: NO2+5
Function Call: WRITE	Prompt: ! Line Location: HED+5
Function Call: WRITE	Prompt: @IOF Line Location: LREND+0
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+2
Function Call: WRITE	Prompt: ! Line Location: WAIT+4
Function Call: WRITE	Prompt: @IOF Line Location: HEDBAN+4
Function Call: WRITE	Prompt: ! Line Location: HEDBAN+6
Function Call: WRITE	Prompt: ! Line Location: HEDBAN+13
Function Call: WRITE	Prompt: @IOF Line Location: WAITBAN+2
Function Call: WRITE	Prompt: ! Line Location: WAITBAN+4
Function Call: WRITE	Prompt: ! Line Location: WAITBAN+11
Function Call: WRITE	Prompt: !,$$COLHEAD^BLRGMENU("Order Date: "_$$FMTE^XLFDT(LRODT,"5DZ"),80) Line Location: ORDERHED+2
Function Call: WRITE	Prompt: !,"Lab Order #: " Line Location: ORDERHED+3
Function Call: WRITE	Prompt: ?45,"Provider: ",$E(LRDOC,1,25) Line Location: ORDERHED+4
Function Call: WRITE	Prompt: @IOF Line Location: NEWHEAD+1
Function Call: WRITE	Prompt: ?2,"Test",?20,"Urgency",?30,"Status",?62,"Accession" Line Location: NEWHEAD+2
Function Call: WRITE	Prompt: ! Line Location: NEWHEAD+3
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","-") Line Location: NEWHEAD+4
Routine Call	DIR Line Location: HED+8 WAIT+7 HEDBAN+9 WAITBAN+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
69.01	GET1^DIQ
69.03	GET1^DIQ
69.05	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	WRITE+1
^LAB(61 - [#61]	ORDER+13
^LAB(62 - [#62]	ORDER+13
^LAB(62.05 - [#62.05]	WRITE+3
^LAB(69.9 - [#69.9]	L1+2
^LRO(68 - [#68]	TST1+2, TST1+3, WRITE+6, CLININDD+6
^LRO(69 - [#69]	L2+1, L2+6, L2+8, L2+9, ENTRY+1, ORDER+4, ORDER+6, ORDER+13, ORDER+15, ORDER+16 , ORDER+17, WRITE+9, CLININDD+17, COM+6, COMWRT+3, COMWRT+7, COMWRT+8
^TMP("BLRLROS"	L2+4!, L2+11*, L2+16, L2+18, L2+20, L2+28!
^VA(200 - [#200]	CANC+1

Label References

Name	Line Occurrences
CANC	TEST+3
CLININDD	WRITE+9
COM	TST2+4, TST2+7, NO2+4, CANC+2
COMWRT	COM+7
DATE	TST2+4, TST2+5, NO2+1
ENT	L0+1
ENTRY	L2+33
EP	PEP+7
HED	L2+23, ENTRY, ENTRY+1
HEDBAN	ORDER+14, ORDER+15, ORDER+16, TEST+6, TST1+4
L0	PEP+7
L2	L2+31, L2+34
LREND	PEP+6, L1+1, L2+2, L2+31, L2+32, L2+33
NEWHEAD	L2+13, HED+11, SHOW+2, WAIT+10, HEDBAN+12, WAITBAN+10, ORDERHED+1
NO2	NOTACC+1, NOTACC+2
NOTACC	TEST+7, TST1+2
ORDER	L2+21, ENTRY+1, SHOW+3
ORDERHED	ORDER+11, HEDBAN+13, WAITBAN+11
TEST	ORDER+17
TST2	TST1+3
WAIT	L2+31, COMWRT+13, NO2+5
WAITBAN	ORDER+12, WRITE+2, WRITE+3, WRITE+4, WRITE+7
WRITE	TST2+4, TST2+7, NO2+4, CANC+2

Naked Globals

Name	Field # of Occurrence
^(	ORDER+16, ORDER+17, TST1+3, WRITE+6
^("PCE"	ORDER+15
^(0	L1+2, ORDER+13, ORDER+17, WRITE+1, WRITE+3
^(1	ORDER+6
^(3	ORDER+6, TST1+2
^(9	TST1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	L2+32*, LREND+2!
>> %DT	L0+1, L1+1, L1+2*
>> %DT("A"	L1+1*
>> %DT("B"	PEP+5!
%Y	LREND+2!
A	LREND+2!
CLININD	CLININDD+1~, CLININDD+4*, CLININDD+14
D	ORDER+3!
DFN	LREND+2!
DIC	PEP+5!, LREND+2!
DIC(0	PEP+5*
>> DILOCKTM	PEP+1
DIR	HED+6!, WAIT+5!, HEDBAN+7!, WAITBAN+5!
DIR(0	HED+7, WAIT+6, HEDBAN+8, WAITBAN+6
>> DIRUT	HED+9, WAIT+8, HEDBAN+10, WAITBAN+8
>> DISYS	PEP+1
DIWL	LREND+2!
DIWR	LREND+2!
DPF	LREND+2!
DT	PEP+1
DTIME	PEP+1
>> DTOUT	PEP+6
>> DUOUT	PEP+6
DUZ	PEP+1
I	ORDER+16, TST1+3, TST2+1~, LREND+2!
ICD	CLININDD+1~, CLININDD+16, CLININDD+17, CLININDD+19
>> ICDCNT	CLININDD+16*
ICDCODE	CLININDD+1~
ICDIEN	CLININDD+1~, CLININDD+19*, CLININDD+20
ICDSTR	CLININDD+1~, CLININDD+20*, CLININDD+21, CLININDD+22
IO	PEP+1
>> IOBS	PEP+1
IOF	PEP+1, LREND, WAIT+2, HEDBAN+4, WAITBAN+2, NEWHEAD+1
IOM	PEP+1, CLININDD+14, COMWRT+12, NEWHEAD+4
ION	PEP+1
>> IOS	PEP+1
IOSL	PEP+1, L2+23, ENTRY+1, WAIT+1, WAITBAN+1, ORDERHED+1
IOST	PEP+1, LREND, WAIT+2, HEDBAN+4, WAITBAN+2
>> IOT	PEP+1
>> IOXY	PEP+1
K	LREND+2!
LINES	COMWRT+5~, COMWRT+6*
LRACC	TST1+3*, TST2+2, TST2+4, LREND+2!
>> LRACD	TST1+2*
LRACN	ORDER+17*, WRITE+9, CLININDD+3, CLININDD+17, LREND+2!
LRACN0	ORDER+17*, TEST+2, TEST+3, TEST+6, TST1+1, NO2+2, LREND+2!, CANC+1
LRDFN	PEP+6, L2+1, L2+6, L2+8, ENTRY+1, LREND+2!
LRDOC	ORDER+1~, ORDER+9*, LREND+2!, ORDERHED+4
LRDPAF	PEP+5!
LRDPF	LREND+2!
LREND	L1+1, L2+15, L2+16, L2+18, L2+20, L2+22, L2+25, L2+31, L2+33, ENTRY , ENTRY+1, ORDER+3, ORDER+12, ORDER+14, ORDER+15, ORDER+16, ORDER+17, TST1+3, TST2+4, WRITE+2 , WRITE+3, WRITE+4, WRITE+7, COM+1, COMWRT+7, HED+2, HED+9, LREND+2!, SHOW+1, WAIT+8 , HEDBAN+1, HEDBAN+10, WAITBAN+8
LRI	COMWRT+5~, COMWRT+6, COMWRT+7, COMWRT+8
LRLDAT	L1+2*, L2+2, LREND+2!
LRLL	TEST+2, TST2+4, TST2+5, LREND+2!
>> LRLOOKUP	PEP+3*
LRMMODE	COM~, COM+5*, COM+7
LROD0	ORDER+6*, ORDER+13, TEST+4, NO2+1, LREND+2!
LROD1	ORDER+6*, ORDER+14, TEST+5, TEST+7, TST1+4, TST2+6, NO2+1, NO2+5, LREND+2!
LROD3	ORDER+6*, TST2+5, NOTACC+1, NOTACC+2, NOTACC+3, NO2+1, LREND+2!
LRODT	L1+2, L2+1, L2+2, L2+5, L2+6, L2+8, L2+9, L2+11, L2+15, L2+16 , L2+18, L2+20, L2+32, L2+33*, ENTRY+1, ORDER+4, ORDER+6, ORDER+8, ORDER+9, ORDER+13 , ORDER+15, ORDER+16, ORDER+17, WRITE+9, CLININDD+3, CLININDD+17, COM+6, COM+7, COMWRT~, COMWRT+2 , COMWRT+3, COMWRT+7, COMWRT+8, NO2+1, LREND+2!
LROOS	TEST+5, TST2+4, TST2+6, LREND+2!
LROS	TEST+2, TEST+5, TST2+4, TST2+5, TST2+6, WRITE+5, NOTACC+1, NOTACC+2, NOTACC+3, NO2+3* , LREND+2!
LROSD	TEST+2, TST2+4, TST2+5, WRITE+5, NO2+1, LREND+2!
LROT	TEST+2, TEST+4, TEST+5, TST2+4, WRITE+5, LREND+2!, CANC+1*
LRROD	TEST+2*, WRITE+7, NO2+3, LREND+2!
LRSDT	L1+2*, L2+32, LREND+2!
LRSN	L2+1, L2+2, L2+19, L2+20, L2+31, ENTRY+1, ORDER+4, ORDER+6, ORDER+8, ORDER+9 , ORDER+13, ORDER+15, ORDER+16, ORDER+17, TEST+6, WRITE+9, CLININDD+3, CLININDD+17, COM+6, COM+7 , COMWRT~, COMWRT+2, COMWRT+3, COMWRT+7, COMWRT+8, LREND+2!
>> LRSP	L2+7, L2+8, L2+9, L2+11
LRTSTI	COM+4~, COM+6*, COM+7, COMWRT~, COMWRT+2, COMWRT+3, COMWRT+7, COMWRT+8
LRTSTS	TST1+3, TST2+3, WRITE+1, COM+6, NO2+2, NO2+4, LREND+2!, CANC+1*, CANC+2
LRTT	ORDER+3!, LREND+2!
LRTT(	TST1+3*
LRURG	TEST+1~, TEST+2, TST2+2, WRITE+3, NO2+2*, LREND+2!
LRY	TEST+1~
NODE	COMWRT~, COMWRT+2, COMWRT+7, COMWRT+8
ORDERNUM	ORDER+1~, ORDER+8*, ORDERHED+3
ORDIEN	CLININDD+1~, CLININDD+3*, CLININDD+4, CLININDD+5, CLININDD+19
>> ORDNUM	L2+9, L2+10, L2+11, L2+17, L2+18*, L2+20
>> PG	HEDBAN+13, WAITBAN+11, NEWHEAD+5*
PNM	LREND+2!
SNOMED	CLININDD+1~, CLININDD+5*, CLININDD+9, CLININDD+11
STR	COMWRT+5~, COMWRT+8*, COMWRT+9, COMWRT+12
TAB	CLININDD+1~, CLININDD+7, COMWRT~, COMWRT+4, COMWRT+11, COMWRT+12
U	PEP+1, L1+2, ORDER+13, ORDER+14, TEST+2, TEST+4, TEST+5, TST1+1, TST1+4, TST2+2 , TST2+4, TST2+5, WRITE+1, WRITE+3, NOTACC+2, NOTACC+3, NO2+1, NO2+2, NO2+5, CANC+1
UID	CLININDD+1~, CLININDD+6*, CLININDD+9, CLININDD+12
X	L1+2, L2+2, L2+33, ORDER+13, ORDER+16, TEST+4, TEST+5, HED+6!, HED+9, LREND+2! , WAIT+5!, WAIT+8, HEDBAN+7!, HEDBAN+10, WAITBAN+5!, WAITBAN+8
X1	L2+2, L2+33, TST1+1*, TST1+2, TST1+3, WRITE+6, CLININDD+6, LREND+2!
X2	L2+2, L2+33, TST1+1*, TST1+2, TST1+3, WRITE+6, CLININDD+6, LREND+2!
X3	TEST+2, TST1+1, TST1+2, TST1+3, WRITE+6, CLININDD+6, LREND+2!
X4	ORDER+13*, ORDER+16, LREND+2!
>> XPARSYS	PEP+1
>> XQXFLG	PEP+1
Y	L1+1, L1+2, L2+2, L2+32, TEST+2, TST2+4, TST2+5, NOTACC+2, NOTACC+3, NO2+1 , DATE+1*, HED+6!, LREND+2!, WAIT+5!, HEDBAN+7!, WAITBAN+5!
Z	LREND+2!
>> ZTQUEUED	LREND+1
>> ZTREQ	LREND+1*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRLROS

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: