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

Package: Lab Service

Routine: LRAPSA


Information

LRAPSA ; IHS/DIR/AAB - TISSUE STAIN LIST 8/12/95 13:19 ;

Source Information

Source file <LRAPSA.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 4 ^LRAP  S^LRAPST  (D,DT,F,L,M,S,SSN,V,XR,YN)^LRU  (BEG,END)^LRUTL  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPSA  

Entry Points

Name Comments DBIA/ICR reference
A
C
B
END
H2
H
H1 ;D H Q:LR("Q") W !!,LRAN,?16,LRA(6)," ",LRP," ",SSN Q
AUS
S
QUE
T
W ;S X=^LR(LRDFN,0),LRA(9)=$S(LRSS'="AU":^(LRSS,LRI,0),1:^("AU")),LRTK=+LRA(9),Y=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D SSN^LRU
H3
N1
N2
AU
AUT

External References

Name Field # of Occurrence
^%DT LRAPSA+4, A
^LRAP LRAPSA+3
S^LRAPST QUE
D^LRU LRAPSA+4, A, W+2
DT^LRU C
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU W+1
V^LRU END
XR^LRU QUE
YN^LRU LRAPSA+5
BEG^LRUTL N2+1
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRO(68)," STAIN LIST"
  • Line Location: LRAPSA+4
Function Call: WRITE
  • Prompt: !!,"Stain list date: ",LRD," OK "
  • Line Location: LRAPSA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: READ
  • Prompt: "Start with Acc #: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: N(1)
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!"
  • Line Location: N1+0
Function Call: READ
  • Prompt: "Go to Acc #: LAST // "
  • Formatting: !
  • Timeout: DTIME
  • Variable: N(2)
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!",!!
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: !,$P(LRA,"^")
  • Line Location: W+5
Function Call: WRITE
  • Prompt: !,LRA
  • Line Location: AU+0
Function Call: WRITE
  • Prompt: !,LRSS(LRSS,E),!?3,LRA(1),?16,"Stain/Procedure"
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !?16,$P(^LAB(60,C,0),U),?47
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $J(X,5)
  • Condition for execution: X
  • Line Location: C+0
Function Call: WRITE
  • Prompt: ?52,"/",Z
  • Condition for execution: Z
  • Line Location: C+0
Function Call: WRITE
  • Prompt: ?59,Y
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,LRO(68)," (",LRABV,")",$S(LRSS="SP":" BLOCKS",LRSS="CY":" PROCEDURES",1:""),"/STAINS",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,LRAN,?16,LRA(6)," ",LRP," ",SSN
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,LRAN,?16,LRA(6)," ",LRP," ",HRCN
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,LRA
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !!?3,LRA(1),?16,"Stain/Procedure"
  • Line Location: H3+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] W+1
^LAB(60 - [#60] C
^LR - [#63] QUE+1, W+1, W+5, S, T, AU, AUS, AUT

Label References

Name Line Occurrences
AU W+4
AUS AU
AUT AUS
B S, AUS
C T, AUT
END LRAPSA+3, LRAPSA+5, A, N1, N2, N2+1, QUE+2
H QUE, W+4, H1+1
H1 W+5, AU, H2
H2 S, AUS, H3
H3 T, AUT
N1 N1
N2 N2
S W+5
T S
W QUE+1

Naked Globals

Name Field # of Occurrence
^( QUE+1, W+1, W+5, S, T, AU, AUS, AUT
^("AU" W+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRAPSA+5*, A
%DT LRAPSA+4*, A*!
%DT("A" A*
>> A W+5*, S, T, AU*, AUS, AUT
>> B S*, T, AUS*, AUT
>> C T*, AUT*, C
>> DFN W+1*
DTIME N1, N2
>> E S*, T, AUS*, AUT, B
>> F S*, AUS*
>> HRCN W+4, H1+1
IO QUE
IOSL W+4, W+5, S, T, AU, AUS, AUT
IOST H
>> LR("%" H+1
>> LR("F" QUE*, H
>> LR("Q" QUE+1, W+4, W+5, S, T, AU, AUS, AUT, H, H1+1
, H2, H3
>> LRA W+5*, AU*, H2
>> LRA(1 S*, AUS*, B, H3
>> LRA(6 W+2*, W+4, H1+1
>> LRA(8 QUE+1*
>> LRA(9 W+1*, W+2
>> LRABV QUE+1, H+1
LRAN W+2!*, W+4, H1+1
>> LRD LRAPSA+4*, LRAPSA+5, A*
>> LRDFN QUE+1*, W+1, W+5, S, T, AU, AUS, AUT
>> LRDPF W+1*
>> LRI QUE+1*, W+1, W+5, S, T
>> LRO(68 LRAPSA+4, H+1
>> LRP W+1*, W+4, H1+1
>> LRSS W+1, W+4, W+5, S, T, B, H+1
>> LRSS( B
>> LRTK W+1*
>> LRW W+4*
>> LRX T*, AUT*, C
>> LRXREF QUE+1
>> LRY A+1*, QUE+1
>> N(1 N1*, QUE*, QUE+1
>> N(2 N2*, QUE+1
>> POP N2+1
>> SSN W+1*
U N1, N2, W+2, S, AU, AUS, C
>> X LRAPSA+4*, A*, W+1*, C*
>> Y LRAPSA+3, LRAPSA+4*, A*, A+1, W+1*, W+2*, C*
>> Z C*
>> ZTRTN N2+1*
>> ZTSK N2+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All