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 ; IHS/DIR/AAB - TC CODE SEARCH 09:38 ; [ 05/28/98 2:04 PM ]

Source Information

Source file <LRAPQAT.m>

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

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPQAT  

Entry Points

Name Comments DBIA/ICR reference
A
C
B ;S X=^LR(LRDFN,0),Y=$P(X,"^",3),(LRDPF,LR)=$P(X,"^",2),X=^DIC(LR,0,"GL"),X=@(X_Y_",0)"),SSN=$P(X,"^",9) D SSN^LRU S ^TMP("LRAP",$J,$P(X,"^"),LRDFN)=SSN_"^"_$S(LR=2:Y,1:"")_"^"_$P(X,"^",3)_"^"_$P(X,"^",2) Q
END
D
H2
H ;D H2 W !,"Patient",?35,"SSN",?45,"Acc#",?60,"Date obtained",!,LR("%") Q
H1
ASK
P
QUE
W
Y
X

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPQAT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPQAT+5
Function Call: WRITE
  • Prompt: !!,"Also print cumulative path data summaries "
  • Line Location: LRAPQAT+6
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
  • Timeout: DTIME
  • Variable: Z
  • 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
  • Timeout: DTIME
  • Variable: X(1)
  • 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: !,"Patient",?35,"HRCN",?45,"Acc#",?60,"Date obtained",!,LR("%")
  • Line Location: H+1
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+1
^LR - [#63] QUE+1, B+1
^TMP("LRAP" P, B+1*, END!
^TMP($J QUE!, Y, D, X*, X+1*

Label References

Name Line Occurrences
A C+1, C+2, C+3
ASK LRAPQAT+4, ASK, C
B X, X+1
D Y
END LRAPQAT+3, LRAPQAT+5, LRAPQAT+6, LRAPQAT+7, QUE+6
H QUE, QUE+2, H1
H1 D
H2 QUE+3, H+1
P QUE+2
W LRAPQAT+3
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+3, LRAPQAT+6*, W*
>> A X*, X+1
>> B LRAPQAT+4*, LRAPQAT+5, ASK, C*
DTIME ASK, C
>> HRCN B+1
IO QUE
IOSL QUE+2, D
IOST H2
>> L A*
>> L(1 A*, C+1*
>> LR B+1*
>> LR("%" QUE+3, H+1
>> LR("F" QUE*, H2
>> LR("Q" QUE+2, QUE+3, QUE+4, Y, D, H2
>> LRA LRAPQAT+5*, 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+1
>> LRDPF B+1*
>> LRE D*
>> LRF D*
>> LRG LRAPQAT+6*, QUE+6
>> LRI QUE+1*
>> LRLDT LRAPQAT+5*, 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+5
>> 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+7
>> SSN B+1*
U LRAPQAT+4, QUE+1, ASK, C
>> X QUE+1*, X, X+1, B+1*, A*, C, C+1
>> X(1 C*, C+1*, C+2, C+3, C+4
>> Y LRAPQAT+3, LRAPQAT+5, QUE+1*, D*, X, X+1, B+1*
>> Z LRAPQAT+4, ASK*, A, C, C+4
>> ZTRTN LRAPQAT+7*
>> ZTSK LRAPQAT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All