Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls