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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRUPA2

Package: Lab Service

Routine: LRUPA2


Information

LRUPA2 ;AVAMC/REG/WTY - LAB ACCESSION LIST BY PAT ;9/25/00

Source Information

Source file <LRUPA2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (D,DT,F,L,M,S,SSN,V)^LRU  (BEG,END)^LRUTL  
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 LRUPA  

Entry Points

Name Comments DBIA/ICR reference
QUE
W
O
L
XT
A
C
B
PRT
D
H
H1
H2
END

External References

Name Field # of Occurrence
^DIC PRT+6, PRT+8
D^LRU PRT+13
DT^LRU D
F^LRU H+1
L^LRU QUE+2
M^LRU H
S^LRU QUE+2
SSN^LRU PRT+10
V^LRU END
BEG^LRUTL LRUPA2+7
END^LRUTL QUE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?50,"Not in lab results file"
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?40,"Entry not in lab result file #63."
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>0
  • Line Location: O+1
Function Call: WRITE
  • Prompt: ?43,$S($D(^LAB(61,C(3),0)):$E($P(^(0),"^"),1,35),1:"")
  • Line Location: O+1
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?12,V
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !?12,M," "
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !?12,M," "
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,LRO(68)," ACCESSIONS for ",Z(1)," BY PATIENT"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"# =Not VA patient",?36,$S("AUBBCYEMSP"[LRSS:"% =Incomplete",1:"")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Count",?7,"ID",?12,"Patient",?35,"ACC#"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?36
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?50,"Test",?76,"Tech"
  • Condition for execution: "AUBBCYEMSP"'[LRSS "Specimen" W:LRSS="BB" "Specimen date" W:"AUCYEMSP"'[LRSS
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?43,"Organ/tissue"
  • Condition for execution: "CYEMSP"[LRSS
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?40,"Date/time of Autopsy"
  • Condition for execution: LRSS="AU"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?12,V
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?12,V,?33,$J(N,4)
  • Line Location: H2+0
Routine Call
  • DIC
  • Line Location:
    • PRT+6
    • PRT+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC - [#1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] PRT+8
^LAB(60 - [#60] L, L+1
^LAB(61 - [#61] O+1, PRT+3
^LAB(62 - [#62] PRT+3
^LR - [#63] W, O, O+1, A, PRT+5, PRT+12, PRT+15, D
^LRO(68 - [#68] QUE+1, W+1, PRT, PRT+1
^TMP($J QUE!, QUE+2, QUE+4!, XT, A, A+1, PRT+16*
^VA(200 - [#200] L+1

Label References

Name Line Occurrences
A XT
B C
C A+1
D C
END LRUPA2+7, QUE+4
H QUE+2, A, H1, H2
H1 C
H2 O+1
L W+1
O B+1
PRT QUE+1
W C
XT QUE+2

Naked Globals

Name Field # of Occurrence
^( W+1, O+1, A, A+1
^("AU" PRT+13
^(0 QUE+1, W, O+1, PRT+5, PRT+15
^(3 PRT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A W+1*, L+1
>> A(3 PRT*, PRT+2*
>> B QUE+1*, QUE+2*, A, H1, H2
>> B(2 A+1*, C, H1*
>> B(3 A+1*, B, D
>> B(4 A+1*, C, D*
>> B(5 QUE*, QUE+1*, PRT+3*, PRT+4*, PRT+13*, PRT+14*, PRT+15*, PRT+16, PRT+17*
>> C(1 QUE*, QUE+1*, PRT+3, PRT+4
>> C(3 O+1*
>> C(4 O*, O+1*
DA PRT+5*, PRT+8, PRT+9!
DIC PRT+6*, PRT+7!, PRT+8*, PRT+9!
DIC(0 PRT+6*, PRT+8*
>> E O+1*, O+2, H2*
IO QUE
IOF QUE+3
IOSL O+1, A, C
IOST QUE+3, H
>> LR("%" H+4
>> LR("F" QUE+2*, H
>> LR("FORM" QUE+3
>> LR("Q" QUE+2, W+1, O+1, O+2, L, XT, A, A+1, C, B+2
, H, H1, H2
>> LRAA QUE+1, W+1, PRT, PRT+1
>> LRAD QUE+1, W+1, PRT, PRT+1
>> LRDFN W, O, O+1, A+1*, B*, PRT+1*, PRT+5, PRT+12, PRT+15, PRT+16
, PRT+17*
>> LRDPF PRT+5*
>> LRI W, O, O+1, A+1*, B*, B+2, PRT+1*, PRT+13*, PRT+15, PRT+16
, PRT+17*
>> LRO(68 H+1
>> LRP PRT+9*, PRT+11*, PRT+16
>> LRSS W, W+1, O, O+1, L+1, A, C, B+1, B+2, PRT+12
, PRT+14, PRT+15, H+2, H+3
>> M XT*, A, A+1, H1, H2
>> N QUE*, QUE+1*, W+1, A+1*, C, PRT, PRT+1, PRT+16, H2
>> N(1 QUE
>> N(2 QUE+1
>> P(0 PRT+7*, PRT+11
>> POP LRUPA2+7
>> SSN PRT+9*, PRT+16
>> V QUE+2*, XT, A, A+1, H1, H2
>> X QUE+1*, W*, W+1, L+1*, A*, PRT*, PRT+1*, PRT+2, PRT+5*, PRT+8*
, PRT+13*
Y XT*, PRT+6, PRT+7!, PRT+8, PRT+9!, PRT+13*, D*
Y(0 PRT+7, PRT+9
>> Z W+1*, L, L+1
>> Z(1 H+1
>> Z(2 W+1*, L+1
>> Z(3 W+1*, L+1
>> ZTRTN LRUPA2+7*
>> ZTSK LRUPA2+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All