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: LRSOR

Package: Lab Service

Routine: LRSOR


Information

LRSOR ; IHS/DIR/AAB - SOME SPECIAL OUTPUT ROUTINES 2/6/91 15:19 ; [ 11/13/97 9:46 AM ]

Source Information

Source file <LRSOR.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 3 EN^LRDIQ  ^LRDPA  (DD,DT,PT)^LRX  
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 1 ^%DT  

Entry Points

Name Comments DBIA/ICR reference
LRA ;LISTS ALL LAB RESULTS
LRC ;NON SMAC CHEMISTRIES
HIS ;HISTOLOGY & CYTOLOGY
LRCC
SER ;SEROLOGY
LROK
MIC ;MICROBIOLOGY
LPT
LPT1
HEAD ;W !!,"WORK COPY ONLY - DO NOT FILE",!,PNM,?30,SSN,?50,LRDT0,! Q
LRP ;SURGICAL PATHOLOGY
LRR ;RADIO IMMUNO ASSAY / NUCLEAR ENDOCRINOLOGY
DONE
DIFF ;DIFFERENTIAL
HEM ;HEMATOLOGY
LUR ;URINALYSIS
LPC
LPB
LPA ;
WAIT ;I $E(IOST,1,2)="C-" W !,PNM," ",SSN," PRESS '^' TO STOP " R X:DTIME S:$L(X) LREND=".^"[X Q

External References

Name Field # of Occurrence
^%DT LPT, LPT1+1
^%ZIS LPT1+2
^%ZISC DONE
EN^LRDIQ LRCC+1, LPC+4
^LRDPA LRSOR+3
DD^LRX LPC+1
DT^LRX LPT1+3
PT^LRX LPT1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO DATA",!
  • Line Location: LRC+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: LRCC+1
Function Call: READ
  • Prompt: "Starting Date: N//"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: LPT+0
Function Call: WRITE
  • Prompt: !,"First data of any kind on ",$E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3)
  • Line Location: LPT+2
Function Call: READ
  • Prompt: "Number of days to check for data: 20//"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: LPT1+0
Function Call: WRITE
  • Prompt: !,"Type a number between 1 and 99999."
  • Line Location: LPT1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LPB+0
Function Call: WRITE
  • Prompt: !,"DATE&TIME: ",Y
  • Line Location: LPC+2
Function Call: WRITE
  • Prompt: ?35,"METHOD/SITE: ",$P(Z,U,8)
  • Condition for execution: $L($P(Z,U,8))
  • Line Location: LPC+2
Function Call: WRITE
  • Prompt: ?55,"ACC: ",$P(Z,U,6)
  • Line Location: LPC+2
Function Call: WRITE
  • Prompt: !,"SPECIMEN: ",$S($D(^LAB(61,+X,0)):$P(^(0),U,1),1:"??"),!?2
  • Line Location: LPC+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: !,PNM," ",SSN," PRESS '^' TO STOP "
  • Line Location: WAIT+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: !,PNM," ",HRCN," PRESS '^' TO STOP "
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST)="P"
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: !!,"WORK COPY ONLY - DO NOT FILE",!,PNM,?30,HRCN,?50,LRDT0,!
  • Line Location: HEAD+1
Routine Call
  • %ZIS
  • Line Location:
    • LPT1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] LPC+3
^LR - [#63] LRCC+1, LROK, LPT+1, LPT1+3, LPB, LPC, LPC+1

Label References

Name Line Occurrences
DONE LRSOR+3, LRCC, LRCC+2, LPB+1, LRR+1, LRP+1, MIC+1, HIS+1, SER+1, LUR+1
, HEM+1, DIFF+1, LRA+1
HEAD LPT1+3
HEM LRC+3
LPA LRCC, LRR+1, LRP+1, MIC+1, HIS+1, SER+1, LUR+1, HEM+1, DIFF+1, LRA+1
LPB LRR+1, LRP+1, MIC+1, HIS+1, SER+1, LUR+1, HEM+1, DIFF+1, LRA+1
LPC LPB
LPT LPT
LPT1 LPT1, LPT1+1
LRA LRSOR+3
LROK LRCC+1
LRR LRC+3
WAIT LRCC+1, LPC+4

Naked Globals

Name Field # of Occurrence
^( LRCC+1
^(0 LPT1+3, LPC+3
^(40 LRCC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT LPT*, LPT1+1*
%ZIS LPT1+2!
>> DA LRCC+1*, LPC+1*
>> DFN LPT1+3*
>> DIC LRCC*, LPA+1*, LPT1+3*, LPB*
>> DR LRCC+1*, LPC+4*
DTIME LRC+2, LPT, LPT1, WAIT+1
DX LPC+4!
>> HRCN WAIT+1, HEAD+1
IO LPT1+3
IOF WAIT+2
IOSL WAIT+2
IOST WAIT+1, WAIT+2
>> LRDFN LRSOR+3, LRC+1, LRCC+1, LROK, LPA+1, LPA+2, LPT+1, LPT1+3, LPB, LPC
, LPC+1
>> LRDPF LPT1+3*
LRDR LPC*, DONE!
LRDR1 LPC, LRR+1*, SER+1*, LUR+1*, HEM+1*, DIFF+1*, LRA+1*, DONE!
LRDR2 LPC, LRR+1*, SER+1*, LUR+1*, HEM+1*, DIFF+1*, LRA+1*, DONE!
>> LRDT0 HEAD+1
>> LREDT LPA+1
>> LREND LRCC+1, LPA+1*, LPT1+3*, LPB, WAIT+1*
>> LRIDT LRCC+1*, LROK, LPB*, LPC, LPC+1
LRIDTE LPA+1*, LPT+1*, LPB, DONE!
LRIDTS LPA+1*, LPT1+1*, LPB, DONE!
>> LRMETH LRCC+1*
>> LROK LRCC+1, LROK*
>> LRPRETTY LPA+1
>> LRSDT LPA+1
>> LRSS LPB, LPC, LPC+1, LRR+1*, LRP+1*, MIC+1*, HIS+1*, SER+1*, LUR+1*, HEM+1*
, DIFF+1*, LRA+1*
>> LRZX LROK*
>> PNM WAIT+1, HEAD+1
>> POP LRCC, LPA+2*, LPT1+2, LRR+1, LRP+1, MIC+1, HIS+1, SER+1, LUR+1, HEM+1
, DIFF+1, LRA+1
>> Q LRCC, LPA+1*, LPT1+3*, LPB
U LRCC+1, LROK, LPT1+3, LPB, LPC+1, LPC+2, LPC+3
>> X LRC+2*, LRC+3, LPT*, LPT+1*, LPT+2, LPT1*, LPT1+1*, LPC+1*, LPC+3, WAIT+1*
>> Y LPT, LPT+1*, LPT1+1, LPC+1*, LPC+2
>> Z LPC+1*, LPC+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All