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 [ 04/15/2003 9:38 AM ]

Source Information

Source file <LRUPAD2.m>

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

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRUPAD  

Entry Points

Name Comments DBIA/ICR reference
A
C
B ;D:$Y>(IOSL-8) H Q:LR("Q")
END
H2
H
H1
L
O
P
QUE
T
W
NEW ;D H Q:LR("Q")
XT

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?5,M,?12,$E(V,1,19),?31,$J(N,5),?37
  • Line Location: NEW+5
Function Call: WRITE
  • Prompt: $E($P(LRX,"^"),1,5),?44,$P(LRX,"^",5),?52,$E($P(LRX,"^",2),1,5)
  • Line Location: NEW+5
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),")",?5,M,?12,$E(V,1,19)
  • Line Location: B+3
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 IHS patient",?36,$S("AUBBCYEMSP"[LRSS:"% =Incomplete",1:"")
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,"Count",?7,"ID",?11,"Patient",?32,"ACC#"
  • Line Location: H+6
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
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?5,M,?12,$E(V,1,19)
  • Line Location: H2+2
Routine Call
  • DIC
  • Line Location:
    • P+12
    • P+16

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

Label References

Name Line Occurrences
A XT
B A
C B+7
END LRUPAD2+7, QUE+5
H QUE+3, NEW+5, B+3, H1, H2, H2+2
H2 L, B+7
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+24
^(0 W, P+3, P+11
^(3 P+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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