Routine: BLR2SORD

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Lab Service	2	^LRWU3 (DASH,PT,STAMP)^LRX
VA Fileman	1	^DIC

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	BLR2SORD+15
^%ZISC	END
^%ZTLOAD	BLR2SORD+16
^DIC	BLR2SORD+9
^LRWU3	BLR2SORD+15
DASH^LRX	HDR+1
PT^LRX	PRINT
STAMP^LRX	HDR

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "DUZ NOT SET - ABORT" Line Location: BLR2SORD+4
Function Call: WRITE	Prompt: "NOT A VALID USER - ABORTING" Line Location: BLR2SORD+5
Function Call: WRITE	Prompt: !!,"Provider: "_DWPRVNA,!,PNM,?35,HRCN Line Location: PRINT+1
Function Call: WRITE	Prompt: " ",$S($D(^DPT(DFN,.1)):^(.1),1:LRLLOC) Condition for execution: LRDPF=2 Line Location: PRINT+1
Function Call: WRITE	Prompt: ?60,$P(L0,U,6) Line Location: PRINT+1
Function Call: WRITE	Prompt: !,?35,"Collection Date/Time: "_DWY Condition for execution: $D(DWY) Line Location: PRINT+1
Function Call: WRITE	Prompt: !,?5,$J($P(^LAB(60,LRTX,0),U,1),20),$J($P(T(I),U,1),8)," ",$P(T(I),U,2) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?45,"Low: "_DWRLOW,?60,"High: "_DWRHIGH Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF,"SPECAL REPORT: SEARCHING FOR ABNORMAL & CRITICAL FLAGS ** By Selected Provider",!,?50," " Line Location: HDR+0
Function Call: READ	Timeout: DTIME Line Location: WAIT+0
Function Call: WRITE	Prompt: *7 Line Location: WAIT+0
Function Call: WRITE	Prompt: !,?7,"AIH Search for ABNORMAL & CRITICAL Flags by Slected Provider" Line Location: HEADING+0
Function Call: WRITE	Prompt: !!!,"Note: This report will only show results for which",!,DWNA," is recorded as being the ordering provider in the computer!" Line Location: HEADING+1
Function Call: WRITE	Prompt: !!," Verified results display based on the ORDERING Date.",!!! Line Location: HEADING+2
Routine Call	DIC Line Location: BLR2SORD+9
Routine Call	%ZIS Line Location: BLR2SORD+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SETUPDT+4
^DPT - [#2]	PRINT+1
^LAB(60 - [#60]	PRINT+2, SETRANGE+3, SETRANGE+4
^LR - [#63]	LOOK, LOOK+1, PRINT
^LRO(69 - [#69]	DT, LRLLOC, PT, LRIDT, DWSETPRV+1, C1
^VA(200 - [#200]	BLR2SORD+5, BLR2SORD+7, C1+1

Label References

Name	Line Occurrences
C1	DWSETPRV+1
DWSETPRV	PT
END	BLR2SORD+16
HDR	DQ, PRINT+1, PRINT+2
HEADING	BLR2SORD+14
LOOK	LRIDT
LRIDT	PT
LRLLOC	DT
PRINT	LOOK+2
PT	LRLLOC
SETRANGE	PRINT+2
SETUPDT	PRINT
WAIT	HDR
ZTLOAD	BLR2SORD+16

Naked Globals

Name	Field # of Occurrence
^(	LOOK+1, PRINT+1
^(0	LOOK

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	END+3!
>> %ZIS	BLR2SORD+15*
>> AZQ21	DQ*
>> DFN	PRINT*, PRINT+1
DIC	BLR2SORD+8*, BLR2SORD+9!, END+1!
DIC("A"	BLR2SORD+7*
DIC("B"	BLR2SORD+7*
DIC("S"	BLR2SORD+8*
DIC(0	BLR2SORD+8*
DTIME	WAIT, HEADING+3
DTOUT	END+3!
DUZ	BLR2SORD+4, BLR2SORD+5, BLR2SORD+7
DWNA	BLR2SORD+10*, END+1!, HEADING+1
DWP	END+1!, PT, DWSETPRV+1, C1
DWPDFN	BLR2SORD+12*, END+1!, PT
DWPRVNA	END+1!, PRINT+1, C1+1*
DWPRVNUM	END+1!, PT, DWSETPRV, C1, C1+1
DWR1	END+1!, SETRANGE+2*, SETRANGE+3, SETRANGE+4
DWRANGE	END+1!, SETRANGE+4*, SETRANGE+5, SETRANGE+6
DWRHIGH	END+1!, PRINT+2, SETRANGE, SETRANGE+6
>> DWRL0W	SETRANGE*
DWRLOW	END+1!, PRINT+2, SETRANGE+6*
>> DWT	SETUPDT+5*
DWY	END+1!, PRINT+1, SETUPDT, SETUPDT+2, SETUPDT+3, SETUPDT+5
HRCN	END+3!, PRINT+1
I	END+3!, LOOK+1, PRINT+2
IO	DQ
IO("Q"	BLR2SORD+16!
IOF	HDR
IOSL	PRINT+1, PRINT+2
IOST	WAIT
L0	END+3!, LOOK*, PRINT+1, SETUPDT, SETUPDT+1, SETRANGE, SETRANGE+2
LAST	END+3!
LRAA	END+3!
LRAD	END+3!
LRDFN	END+3!, PT*, LRIDT, LOOK, LOOK+1, PRINT, DWSETPRV+1
LRDPF	END+3!, PRINT*, PRINT+1
LREDT	BLR2SORD+15*, DT, END+2!
LREND	BLR2SORD+15, DQ, DT, END+3!, LRLLOC, PT, LRIDT, PRINT+1, PRINT+2, HDR , WAIT*
LRFAN	END+3!
LRIDT	END+3!, LRIDT*, LOOK, LOOK+1
LRLAN	END+3!
LRLLOC	END+3!, LRLLOC*, PT, LRIDT, PRINT+1
LRLOX	END+3!, LRLLOC*
LRPDT	DT*, END+3!, LRLLOC, PT, LRIDT, DWSETPRV+1, C1
LRSDT	DT, END+2!
LRSTAR	END+3!
LRTX	END+3!, PRINT+2*, SETRANGE+1, SETRANGE+3, SETRANGE+4
LRWDTL	END+3!
PNM	END+3!, PRINT+1
POP	BLR2SORD+15, END+3!
SSN	END+3!
T	END+3!, LOOK!, LOOK+1*, LOOK+2
T(	LOOK+1*, PRINT+2
U	LOOK+1, PRINT, PRINT+1, PRINT+2
>> X	PRINT, WAIT, HEADING+3*
>> XDW	SETRANGE+5*
>> Y	BLR2SORD+9, BLR2SORD+10, BLR2SORD+12, SETUPDT+1*, SETUPDT+2, SETUPDT+3, SETUPDT+5
>> ZSAVE("DWY"	ZTLOAD*
>> ZSAVW("DWRLOW"	ZTLOAD*
ZTDESC	END+2!
ZTIO	END+2!
ZTRTN	BLR2SORD+16*, END+2!
ZTSAVE	END+2!
ZTSAVE("DWNA"	ZTLOAD*
ZTSAVE("DWP"	ZTLOAD*
ZTSAVE("DWPDFN"	ZTLOAD*
ZTSAVE("DWPRVNA"	ZTLOAD*
ZTSAVE("DWPRVNUM"	ZTLOAD*
ZTSAVE("DWRHIGH"	ZTLOAD*
ZTSAVE("LREDT"	ZTLOAD*
ZTSAVE("LRSDT"	ZTLOAD*
ZTSK	END+2!

Customize PDF page

Package: IHS Changes To Lab

Routine: BLR2SORD

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: