Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BLR2SORD

Package: IHS Changes To Lab

Routine: BLR2SORD


Information

BLR2SORD ; IHS/DIR/FJE - SLC/RWF- ABNORMAL & CRITICAL VALUE REPORT 9/26/95 14:18 ;

Source Information

Source file <BLR2SORD.m>

Call Graph

Call Graph Total: 6

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

Entry Points

Name Comments DBIA/ICR reference
END
LOOK
PT
SETUPDT
DWSETPRV
ZTLOAD
HEADING
HDR
LRLLOC
SETRANGE
PRINT
DT
WAIT
C1
LRIDT
DQ

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All