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

Package: Lab Service

Routine: LRAPQAT


Information

LRAPQAT ;AVAMC/REG/CYM - TC CODE SEARCH ;7/31/97 09:38

Source Information

Source file <LRAPQAT.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 5 A^LRAPD  ^LRAPQAT1  (B,D,F,L,M,S,SSN,V,XR,YN)^LRU  (,Q)^LRUB  (BEG,END)^LRUTL  

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 LRAPQAT  

Entry Points

Name Comments DBIA/ICR reference
QUE
P
Y
D
X
B
ASK
A
C
H2
H
H1
END
W

External References

Name Field # of Occurrence
A^LRAPD LRAPQAT+2
^LRAPQAT1 QUE+6
B^LRU LRAPQAT+4
D^LRU D
F^LRU H2+1
L^LRU QUE
M^LRU H2
S^LRU QUE
SSN^LRU B
V^LRU END
XR^LRU QUE
YN^LRU LRAPQAT+5, W
^LRUB A
Q^LRUB C+1
BEG^LRUTL LRAPQAT+6
END^LRUTL QUE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPQAT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPQAT+4
Function Call: WRITE
  • Prompt: !!,"Also print cumulative path data summaries "
  • Line Location: LRAPQAT+5
Function Call: WRITE
  • Prompt: !!,"TC Code: ",LRA," ",LRM(LRA,0)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!?15,"No Accesions in Time period"
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!?10,"TC Code",?20,"Count",?30,"% of Accessions"
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?12,LRA,?20,$J(LRM(LRA),5),?35,$J(LRM(LRA)*100/LRZ,5,2)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?20,"-----",!,"Total",?20,$J(LRZ,5),!
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !,"TC Code: ",LRA,?12,LRM(LRA,0)
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !,LRP,?32,$P(LRX,"^"),?46,$J(LRE,5),?62
  • Line Location: D+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: D+0
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!!?18,"Only numbers 0,1,2,3,4,5,6,7,8 or 9 allowed.",!?18,"A repeat selection replaces the original one.",!
  • Line Location: ASK+0
Function Call: READ
  • Variable: X(1)
  • Timeout: DTIME
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!,"You must enter an identifying comment <SELECTION DELETED>",!
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!,"Deletion not allowed"
  • Line Location: C+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter free text 2-68 characters."
  • Line Location: C+3
Function Call: WRITE
  • Prompt: !,LRO(68)," -TC Code Search from ",LRSTR," to ",LRLST
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: !,"Patient",?35,"SSN",?45,"Acc#",?60,"Date obtained",!,LR("%")
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!,"TC Code: ",LRA," ",LRM(LRA,0)
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!?10,LRO(68)," (",LRABV,") -TC CODE SEARCH",!!,"This report may take a while and should be queued to print at non-peak hours.",!?32,"OK to continue "
  • Line Location: W+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] B
^LR - [#63] QUE+1, B
^TMP("LRAP" P, B*, END!
^TMP($J QUE!, Y, D, X*, X+1*

Label References

Name Line Occurrences
A C+1, C+2, C+3
ASK LRAPQAT+3, ASK, C
B X, X+1
D Y
END LRAPQAT+2, LRAPQAT+4, LRAPQAT+5, LRAPQAT+6, QUE+6
H QUE, QUE+2, H1
H1 D
H2 QUE+3, H
P QUE+2
W LRAPQAT+2
X QUE+1
Y P

Naked Globals

Name Field # of Occurrence
^( P
^(0 QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRAPQAT+2, LRAPQAT+5*, W*
>> A X*, X+1
>> B LRAPQAT+3*, LRAPQAT+4, ASK, C*
DTIME ASK, C
IO QUE
IOSL QUE+2, D
IOST H2
>> L A*
>> L(1 A*, C+1*
>> LR B*
>> LR("%" QUE+3, H
>> LR("F" QUE*, H2
>> LR("Q" QUE+2, QUE+3, QUE+4, Y, D, H2
>> LRA LRAPQAT+4*, QUE+1*, QUE+2*, QUE+4*, QUE+5*, Y, D, H1
>> LRABV QUE+1, W
>> LRB QUE+2*, QUE+4*, QUE+5*
>> LRC P*
>> LRD Y*, D
>> LRDFN QUE+1*, P*, Y, D, X, X+1, B
>> LRDPF B*
>> LRE D*
>> LRF D*
>> LRG LRAPQAT+5*, QUE+6
>> LRI QUE+1*
>> LRLDT LRAPQAT+4*, QUE+1
>> LRLST H2+1
>> LRM( QUE+2, QUE+4, QUE+5, X+1*, C!, C+4*, H1
>> LRM("NONE" QUE*, X*
>> LRO(68 H2+1, W
>> LRP QUE+2*, P*, D
>> LRQ(9 QUE*
>> LRSDT LRAPQAT+4
>> LRSS QUE+1
>> LRSTR H2+1
>> LRX QUE+1*, P*, D
>> LRXR QUE+1
>> LRZ QUE*, QUE+3, QUE+4, QUE+5, X*
>> POP LRAPQAT+6
>> SSN B*
U LRAPQAT+3, QUE+1, ASK, C
>> X QUE+1*, X, X+1, B*, A*, C, C+1
>> X(1 C*, C+1*, C+2, C+3, C+4
>> Y LRAPQAT+2, LRAPQAT+4, QUE+1*, D*, X, X+1, B*
>> Z LRAPQAT+3, ASK*, A, C, C+4
>> ZTRTN LRAPQAT+6*
>> ZTSK LRAPQAT+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All