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

Package: Lab Service

Routine: LRUPAD2


Information

LRUPAD2 ;AVAMC/REG/WTY - LAB ACCESSION LIST BY PATIENT ;9/25/00

Source Information

Source file <LRUPAD2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (F,L,M,S,SSN,V,WAIT)^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 LRUPAD  

Entry Points

Name Comments DBIA/ICR reference
QUE
NEW
W
O
L
T
XT
A
B
C
P
H
H1
H2
END

External References

Name Field # of Occurrence
^DIC P+10, P+12
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU P+14
V^LRU END
WAIT^LRU QUE
BEG^LRUTL LRUPAD2+6
END^LRUTL QUE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?11,$E(V,1,19),?31,$J(N,5)
  • Line Location: NEW+1
Function Call: WRITE
  • Prompt: ?37,$E($P(LRX,"^"),1,5),?44,$P(LRX,"^",5),?52,$E($P(LRX,"^",2),1,5)
  • Line Location: NEW+3
Function Call: WRITE
  • Prompt: ?40,"Entry not in lab data file."
  • Line Location: O+1
Function Call: WRITE
  • Prompt: ?44,Z(2)
  • Line Location: L+1
Function Call: WRITE
  • Prompt: ?45,$S($D(^LAB(61,C(3),0)):$E($P(^LAB(61,C(3),0),"^"),1,26),1:"")
  • Line Location: L+2
Function Call: WRITE
  • Prompt: ?59,$E($P(^LAB(60,+Z(1),0),"^"),1,15)
  • Line Location: T+1
Function Call: WRITE
  • Prompt: ?76,$E(TECH,1,4)
  • Line Location: T+4
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?11,$E(V,1,19)
  • Line Location: B+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>0
  • Line Location: C+0
Function Call: WRITE
  • Prompt: ?31,$J(N,5),?37,$J($P(LRX,"^"),5),?44,$P(LRX,"^",5)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: ?52,$E($P(LRX,"^",2),1,5)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,LRO(68)," ACCESSIONS(",LRSTR,"-",LRLST,")"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"# = Not VA patient",?36,$S("AUBBCYEMSP"[LRSS:"% =Incomplete",1:"")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"Count",?7,"ID",?11,"Patient",?32,"ACC#"
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?11,$E(V,1,19)
  • Line Location: H2+0
Routine Call
  • DIC
  • Line Location:
    • P+10
    • P+12

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] P+12
^LAB(60 - [#60] T+1
^LAB(61 - [#61] L+2, P+2
^LR - [#63] W, O+1, O+2, O+4, O+5, P+9, P+16
^LRO(68 - [#68] QUE+2, W+1, W+2, P+1, P+3, P+5, P+8
^TMP($J QUE!, QUE+3, NEW+2, XT, A, B+2, B+3, P+18*
^VA(200 - [#200] T+3

Label References

Name Line Occurrences
A XT
B A
C B+4
END LRUPAD2+6, QUE+5
H QUE+3, NEW, B, H1, H2
H2 L, B+4
L O+5
NEW T+6
O C+1
P QUE+2
T W+2
W C+1
XT QUE+3

Naked Globals

Name Field # of Occurrence
^("AU" P+16
^(0 W, P+1, P+9
^(3 P+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A W+1*, T
>> A(3 P+4*, P+6*, P+7*, P+18
>> B QUE+2*, QUE+3*, NEW+1, B+1, H2
>> B(5 P*, P+1*, P+2*, P+16*, P+18, P+19*
>> C(1 P*, P+1*
>> C(3 O+5*, L+2
>> C(4 O+3*, O+4*, O+5
DA P+9*, P+12, P+13!
DIC P+10*, P+11!, P+12*, P+13!
DIC(0 P+10*, P+12*
>> E B+2*, C
>> F O+4*, O+6, L
>> I QUE+2*, P+1, P+3, P+5, P+8, P+18
IO QUE
IOF QUE+4
IOSL L, T+6, B, B+4
IOST QUE, QUE+4, H
>> LR("%" H+7
>> LR("F" QUE+3*, H
>> LR("FORM" QUE+4
>> LR("Q" QUE+3, NEW, W+1, O, O+4, O+6, L, T+6, XT, A
, B, B+2, B+4, H, H2
>> LRAA QUE+2, W+1, W+2, P+1, P+3, P+5, P+8
>> LRDFN W, O+1, O+2, O+4, O+5, B+3*, P+5*, P+9, P+16, P+18
, P+19*
>> LRDPF P+9*
>> LRF P+8*, P+18
>> LRI QUE+1*, W, O+1, O+2, O+4, O+5, B+3*, P+4*, P+18, P+19*
>> LRLDT QUE+2
>> LRLST H+2
>> LRO(68 H+2
>> LRP P+13*, P+15*, P+18
>> LRSA QUE+2*
>> LRSDT QUE+2
>> LRSS W, O, O+1, O+2, O+4, O+5, C+1, P+16, H+3, H+5
>> LRSTR H+2
>> LRX NEW+2*, NEW+3, B+3*, C, C+1
>> M NEW+1, NEW+2, XT*, A, B+1, B+2, B+3, H2
>> N QUE+2*, NEW+1, NEW+2, W+1, W+2, B+1*, B+2*, B+3, C, P+1
, P+3, P+5, P+8, P+18
>> O NEW+2, W+1, W+2, A*, B+2, B+3
>> P(0 P+11*, P+15
>> POP LRUPAD2+6
>> SSN P+13*, P+17, P+18
TECH T+2*, T+3*, T+4, T+5!
>> V QUE+2, QUE+3*, NEW+1, NEW+2, XT, A, B+1, B+2, B+3, H2
>> V(1 QUE+1*, QUE+2
>> X P+1*, P+3*, P+4, P+5*, P+6, P+9*, P+12*
Y XT*, P+10, P+11!, P+12, P+13!
Y(0 P+11, P+13
>> Z W*, W+1*, W+2
>> Z(1 W+2*, T+1, T+2
>> Z(2 W*, O+2*, L+1
>> ZTRTN LRUPAD2+6*
>> ZTSK LRUPAD2+6
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