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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRUPT

Package: Lab Service

Routine: LRUPT


Information

LRUPT ;AVAMC/REG/WTY - PATIENT TESTS ORDERED BY DATE ;9/25/00

Source Information

Source file <LRUPT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 4 ^LRDPA  $$STATUS^LREVENT  (D,YN)^LRU  $$Y2K^LRX  
Kernel 1 ^%ZIS  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRUPT  

Entry Points

Name Comments DBIA/ICR reference
ASK
REST
GETP
SHOW
S
FIX
A
YRCHK ;Increment year and look for accession
DATA
DAY
LIST
MORE
HDR
AUTO
AP
REF ; if referred test, get referral status
END

External References

Name Field # of Occurrence
^%ZIS LRUPT+8
^DIC ASK+1
^LRDPA GETP
$$STATUS^LREVENT REF+2
D^LRU AUTO+1
YN^LRU GETP+1
$$Y2K^LRX FIX+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Is this the patient "
  • Line Location: GETP+1
Function Call: WRITE
  • Prompt: " TESTS ORDERED"
  • Line Location: SHOW+0
Function Call: WRITE
  • Prompt: !?5,"*** No ",LRAA(1)," entries ***",!!
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: " ",$E(Z(11),1,10)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !!,LRDATE,?18,Z(12),?37,$E(Z(5),1,12)
  • Line Location: DATA+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: ?13,"UID: "_LRUID
  • Line Location: LIST+3
Function Call: READ
  • Formatting: !
  • Prompt: "MORE TESTS ? NO// "
  • Variable: A("A")
  • Timeout: DTIME
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(7),!,"Answer YES or NO"
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: @IOF,LRP," SSN: ",SSN
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: LRDATE,?18,Z(12)
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: !,"Spec Date/time",?18,"Acc #"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: ?59,"Tests"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: ?37,"PHYSICIAN",?51,"SPECIMEN(S)"
  • Condition for execution: "CYEMSP"[LRSS
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $C(7),!,"No autopsy !!!"
  • Line Location: AUTO+0
Function Call: WRITE
  • Prompt: !,"Autopsy date/time",?19,"Autopsy #"
  • Line Location: AUTO+2
Function Call: WRITE
  • Prompt: !,$S(Y[1700:"???",1:Y),?23,$S($D(Z(6)):Z(6),1:"??")
  • Line Location: AUTO+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B>1
  • Line Location: REF+4
Function Call: WRITE
  • Prompt: ?35,"Shipping Manifest: "_LRMAN
  • Line Location: REF+4
Function Call: WRITE
  • Prompt: !,?(79-$L(LRX)),LRX
  • Line Location: REF+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REF+5
Routine Call
  • %ZIS
  • Line Location:
    • LRUPT+8
Routine Call
  • DIC
  • Line Location:
    • ASK+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] LIST
^LAB(61 - [#61] S+2
^LAB(62 - [#62] FIX+24
^LR - [#63] GETP, SHOW+2, SHOW+3, AUTO, AUTO+1, AP
^LRO(68 - [#68] FIX+7, FIX+10, FIX+15, FIX+20, FIX+21, YRCHK+3, DAY, LIST+3
^VA(200 - [#200] FIX+6

Label References

Name Line Occurrences
@( A+1
A FIX+5
ASK ASK+2
AUTO SHOW+1
DATA FIX+9, A
END ASK+1
GETP GETP+1
HDR SHOW+3, MORE+1
LIST DAY
MORE FIX+4, DAY, MORE
REF LIST+4
REST ASK+2
S SHOW+3
SHOW GETP+1
YRCHK FIX+13, FIX+19

Naked Globals

Name Field # of Occurrence
^( DAY, AP+2
^(0 SHOW+3, S+2
^(3 FIX+15, FIX+20, FIX+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GETP+1*, END!
A SHOW+3*, SHOW+4, END!
A("A" GETP*, SHOW+3, FIX+4, DAY, MORE*
B DAY*, LIST+1*, LIST+2, LIST+3, AP*, AP+1, REF+4, REF+5, END!
>> C AP*, AP+2
DFN END!
DIC ASK+1*!, GETP!, END!
DIC("B" ASK*
DIC(0 ASK+1*
DOB END!
DTIME MORE
FND FIX+3*, FIX+14*, FIX+17, END+2!
I END!
IOF SHOW, MORE+1
>> IOP LRUPT+8*
K END!
LRAA LRUPT+7, ASK+1!*, REST*, FIX+7, FIX+10, FIX+15, FIX+20, FIX+21, YRCHK+3, DAY
, LIST+3
LRAA(1 LRUPT+7, ASK+1*, REST*, SHOW, SHOW+2, SHOW+4
LRADM END!
LRADX END!
LRAWRD END!
>> LRDATE FIX+2*, FIX+8, DATA, MORE+1
LRDFN GETP, SHOW+2, SHOW+3, FIX+15, FIX+20, FIX+21, AUTO, AUTO+1, AP, END+1!
LRDPAF LRUPT+8*, END!
LRDPF END+1!
LREND END+1!
LREVNT REF+1~, REF+2*, REF+3, REF+4, REF+5
LREXP END+1!
LRFNAM END+1!
LRLLOC END!
LRMAN REF+1~, REF+2*, REF+4*
LRMD END+1!
LRP SHOW, MORE+1, END!
LRPF END+1!
LRPFN END+1!
LRS END+1!
LRSS LRUPT+7, ASK+1!*, REST*, SHOW, SHOW+1, SHOW+2, SHOW+3, S+1, S+4, S+5
, FIX+1, FIX+5, FIX+7, FIX+9, FIX+21, FIX+22, A+1, HDR, HDR+1, AP
LRSVC END+1!
LRTEST END+2!
LRUID LIST+3*, REF+2, END+2!
LRX REF+1~, REF+5*
N SHOW+3*, AP, END+2!
P END+1!
PNM END+1!
POP END+1!
QFLG FIX+3*, FIX+9, FIX+10, FIX+13, FIX+17*, FIX+19, FIX+20*, YRCHK+3*, DATA+1, END+2!
SEX END+2!
SSN SHOW, MORE+1, END!
T GETP!
T( DAY*, LIST, REF+2
U REST, S, S+1, S+2, FIX+24, LIST, LIST+2, MORE, AUTO+1, AP+2
X DAY*, LIST, REF+2, END+2!
X(0 LIST*, LIST+2
X1 YRCHK+1*, YRCHK+2*, END+2!
X2 YRCHK+1*, YRCHK+2, END+2!
Y ASK+1, REST, S*, S+3*, FIX+1, FIX+2, AUTO+1*, AUTO+3, END+2!
Y(0 REST
Z ASK+1!, END!
Z(0 LRUPT+7*, ASK, ASK+1, ASK+2!
Z(1 LRUPT+7*, ASK+1
Z(11 S+1*, FIX+22*, FIX+23, FIX+24*, A+1
Z(12 S*, S+4, S+5*, FIX+8, DATA, MORE+1
Z(15 YRCHK+2*, YRCHK+3, YRCHK+4
Z(2 LRUPT+7*, ASK+1
Z(3 REST*, S+3, FIX+1
Z(4 S*, FIX+6
Z(5 S+1*, S+2*, FIX+6*, FIX+8, FIX+24, DATA
Z(6 S*, FIX*, FIX+4, FIX+7, FIX+10, FIX+15, FIX+20, FIX+21, YRCHK+3, DAY
, LIST+3, AUTO+1*, AUTO+3
Z(7 SHOW+3*, S, S+1, S+3, S+5, FIX+1, FIX+15, FIX+20, FIX+21, AUTO+1*
Z(8 REST*, FIX
Z(9 FIX+1*, FIX+4, FIX+7, FIX+10, FIX+15, FIX+20, FIX+21, YRCHK+1, YRCHK+4*, DAY
, LIST+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All