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

Package: Lab Service

Routine: LRAPQAR


Information

LRAPQAR ; IHS/DIR/AAB - 10% SURG PATH REVIEW 19:35 ; [ 05/28/98 2:04 PM ]

Source Information

Source file <LRAPQAR.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 7 ^LRAP  ASK^LRAPQAFS  L^LRAPQAMR  EN^LRSPRPT  (B,F,L,L1,M,S,V,XR,YN)^LRU  (,EN2,SET)^LRUA  (BEG,END)^LRUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPQAR  

Entry Points

Name Comments DBIA/ICR reference
A
C
B ;F LRAN=0:0 S LRAN=$O(^TMP("LRAP",$J,LRY,LRAN)) Q:'LRAN!(LR("Q")) S X=^(LRAN),LRP=$P(X,"^"),SSN=$P(X,"^",2),LRI=$P(X,"^",3),LRDFN=$P(X,"^",4),LRAC=$P(X,U,5) D:$Y>(IOSL-6) H1 Q:LR("Q") D R
END
D ;S LRDFN=$O(^LR("ASPA",LRY,LRABV,LRAN,0)),LRI=$O(^(LRDFN,0)),LRAC=$P($G(^LR(LRDFN,LRSS,LRI,0)),U,6) D:LRQA EN^LRSPRPT D:'LRQA ^LRUA S ^TMP("LRAP",$J,LRY,LRAN)=LRP_U_SSN_U_LRI_U_LRDFN_U_LRAC D:LRC L^LRAPQAMR Q
H2 ;D H1 Q:LR("Q") W !,LRAC,?18,LRP,?50,SSN Q
H
H1 ;D H Q:LR("Q") W !,"ACC #",?20,"NAME",?55,"SSN",!,LR("%") Q
M
T1
S
R ;W !,LRAC,?18,LRP,?50,SSN I LRI F LRT=0:0 S LRT=$O(^LR(LRDFN,LRSS,LRI,2,LRT)) Q:'LRT!(LR("Q")) S X=+^(LRT,0),LRX=$P(^LAB(61,X,0),"^") D:$Y>(IOSL-6) H2 Q:LR("Q") W !?5,LRX D M
QUE
T
W
H3

External References

Name Field # of Occurrence
^LRAP LRAPQAR+3
ASK^LRAPQAFS LRAPQAR+5
L^LRAPQAMR D+1
EN^LRSPRPT D+1
B^LRU LRAPQAR+6
F^LRU H+1
L^LRU QUE
L1^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
XR^LRU QUE
YN^LRU LRAPQAR+4
^LRUA D+1
EN2^LRUA QUE+2
SET^LRUA QUE+2
BEG^LRUTL LRAPQAR+7
END^LRUTL QUE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPQAR+6
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !,"Total accessions:",?23,$J(LRG,5),!
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !?3,"Topography ",X,": ",$J(^(X),4)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: D
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?5,LRX
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !?5,LRX
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !?10,M
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,"10% ",LRAA(1)," Review from ",LRSTR," to ",LRLST
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"ACC #",?20,"NAME",?55,"SSN",!,LR("%")
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"ACC #",?20,"NAME",?55,"HRCN",!,LR("%")
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,LRAC,?18,LRP,?50,SSN
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,LRAC,?18,LRP,?50,HRCN
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: !?5,LRX
  • Line Location: H3+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] T1, R+1
^LAB(61.1 - [#61.1] M
^LR - [#63] QUE+1, T, T1, D+1, R+1, M
^LR("ASPA" D+1
^TMP("LRAP" QUE!, QUE+3!, W+1, W+2, D+1*, B+1, S+1*, S+2*
^TMP($J QUE!, T1*, A, A+1!, A+2, C*, C+1*, S+1!, S+2!

Label References

Name Line Occurrences
A QUE+2
B W+2
C A
D W+1
END LRAPQAR+3, LRAPQAR+5, LRAPQAR+6, LRAPQAR+7, QUE+3
H QUE, H1+1
H1 W, B+1, H2+1
H2 R+1, H3
H3 M
M R+1
R B+1
S A+2
T QUE+1
T1 T
W QUE+2

Naked Globals

Name Field # of Occurrence
^( T1, A+1, A+2, D+1, B+1, R+1, M, S+2
^(0 T, T1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRAPQAR+4*, LRAPQAR+5
>> A T*, T1, C*, S*
>> B C*, S*
>> C A+2*, C*, C+1, S+2*
>> E S+2*
>> F S+1*, S+2*
>> HRCN D+1, B+1*, R+1, H2+1
IO QUE
IOSL B+1, R+1, M
IOST H
>> LR QUE*
>> LR("%" QUE, R+2, H1+1
>> LR("A" QUE*
>> LR("DIWF" QUE*
>> LR("F" QUE*, H
>> LR("Q" W, W+1, W+2, B+1, R+1, M, H, H1+1, H2+1, H3
>> LR(1 QUE*
>> LR(2 QUE*
>> LR(3 QUE*
>> LRA QUE+2*
>> LRAA(1 H+1
>> LRABV T, D+1
>> LRAC D+1*, B+1*, R+1, H2+1
>> LRAN W+1*, D+1, B+1*
>> LRC D+1
>> LRDFN QUE+1*, T, T1, D+1*, B+1*, R+1, M
>> LRDICS LRAPQAR+3*
>> LRG QUE*, QUE+2, T1*, W
>> LRI QUE+1*, T, T1, D+1*, B+1*, R+1, M
>> LRJ QUE*, W, S+1*, S+2*
>> LRLDT LRAPQAR+6*, QUE+1
>> LRLST H+1
>> LRM M*
>> LRN QUE*
>> LRO(68 LRAPQAR+4
>> LRP D+1, B+1*, R+1, H2+1
>> LRQ QUE+2*, W+2*
>> LRQ(2 QUE*
>> LRQ(9 QUE*
>> LRQA W, W+2, D+1
>> LRS(5 QUE*
>> LRS(99 QUE*
>> LRSDT LRAPQAR+6*, QUE+1*
>> LRSS D+1, R+1, M
>> LRSTR H+1
>> LRT R+1*, M
>> LRX R+1*, H3
>> LRXR QUE+1
>> LRY W+1*, W+2*, D+1, B+1
>> M M*
>> N S*, S+2
>> POP LRAPQAR+7
>> T A+2*, S, S+1, S+2
U T, T1, D+1, B+1
>> X QUE+1*, T*, T1*, A*, A+1*, A+2*, B+1*, R+1*, M*, C
, C+1, S+1, S+2
>> Y LRAPQAR+3, LRAPQAR+6, T1*, A+1*, S+2*
>> Z T*, T1
>> ZTRTN LRAPQAR+7*
>> ZTSK LRAPQAR+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All