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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRAPWR

Package: Lab Service

Routine: LRAPWR


Information

LRAPWR ; IHS/DIR/AAB - DATE/TIME SLIDES READ 11:10 ; [ 8/15/95 ]

Source Information

Source file <LRAPWR.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Lab Service 6 ^LRAP  S^LRAPST  (,CY)^LRAPWR1  (,W)^LRAPWU  (CK,D,DA,FRE,V,YN)^LRU  ^LRUP  
Kernel 1 ^%ZIS  
VA Fileman 1 (,DD)^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPWR  

Entry Points

Name Comments DBIA/ICR reference
A
CK
B
E
H ;W @IOF,LRP," ",SSN(1)," Acc #: ",LRAC," Date: ",LRE,!?47,"Slide/Ctrl",?60,"Date Slides Examined" Q
M
REST
N
S
T
W
ASK
END

External References

Name Field # of Occurrence
^%DT ASK, ASK+1, N
DD^%DT CK
^%ZIS B
^LRAP LRAPWR+3
S^LRAPST LRAPWR+3
^LRAPWR1 B+3
CY^LRAPWR1 LRAPWR+3
^LRAPWU REST+2
W^LRAPWU REST+2
CK^LRU B+4
D^LRU B+1, A
DA^LRU N
FRE^LRU B+4
V^LRU END
YN^LRU B+3
^LRUP REST+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " ",LRH(0)
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRO(68)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: ASK+3
Function Call: READ
  • Timeout: DTIME
  • Variable: LRAN
  • Line Location: W+0
Function Call: WRITE
  • Prompt: END
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter a number, no leading zero's."
  • Line Location: W+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in ACCESSION file",!!
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: Q:LRK<1
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Use 'Blocks, Stains, Procedures, anat path' option to enter date slides",!,"stained. This must be done before entering date slides examined."
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: !,$P(LRB,U)
  • Line Location: B+2
Function Call: WRITE
  • Prompt: !,"Data displayed ok "
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !,LRSS(LRSS,E)
  • Condition for execution: F=1
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !?3,$P(LRB(1),U),?16,"Stain/Procedure"
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !,?15,"*",$J(LR,2),")",?20,$S($D(^LAB(60,C,0)):$E($P(^(0),"^"),1,25),1:C),?47
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $J(X,5)
  • Condition for execution: X
  • Line Location: A+0
Function Call: WRITE
  • Prompt: ?52,"/",Z
  • Condition for execution: Z
  • Line Location: A+0
Function Call: WRITE
  • Prompt: ?60,Y
  • Line Location: A+0
Function Call: READ
  • Prompt: "Select *Stain #: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: LRX
  • Line Location: E+0
Function Call: WRITE
  • Prompt: $C(7)," Select a number from 1 to ",LR
  • Line Location: E+0
Function Call: WRITE
  • Prompt: " ",$P(^LR(LRDFN,LRSS,LRI,.1,A,E,B,0),U)," ",$P(^LAB(60,C,0),U)
  • Line Location: E+1
Function Call: WRITE
  • Prompt: $C(7),!?3,"Date/time slides examined ("
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: Y,") cannot be before",!?3,"Date/time slides stained"
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Condition for execution: Y]""
  • Line Location: CK+0
Function Call: READ
  • Prompt: "'^' TO STOP: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: LRM
  • Line Location: M+0
Function Call: WRITE
  • Prompt: @IOF,LRP," ",HRCN," Acc #: ",LRAC," Date: ",LRE,!?47,"Slide/Ctrl",?60,"Date Slides Examined"
  • Line Location: H+1
Routine Call
  • %ZIS
  • Line Location:
    • B

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] A, E+1
^LR - [#63] REST+1, B+1, B+2, S, T, E+1, N
^LRO(68 - [#68] ASK+3, W+2, REST, REST+1

Label References

Name Line Occurrences
A T
ASK ASK+1
B B+5
CK N
E B+4, E, N, N+1
END LRAPWR+3, ASK, W
H B+2, M
M B+2, S, T
REST W+2
S B+2
T S
W W+1, W+2

Naked Globals

Name Field # of Occurrence
^( REST+1, B+2, S, T
^(0 REST+1, T*, A, N, N+1*
^(3 REST+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % B+3*
%DT ASK*, ASK+1*, N*!
%DT("A" REST+2*, N*
%DT("B" N*
%DT(0 N*
>> A B+2*, S, T, A, E+1*, N
>> B S*, T, A, E+1*, N
>> C T*, A, E+1*, N
>> DA B+4*
>> DIE B+4*
DTIME ASK, W, E, M
>> E S*, T, A, E+1*, N
>> F REST+2, S*
>> HRCN H+1
IOF B, H+1
>> IOP B*
IOSL B+2, S, T
LR B!*, B+4, A*, E
LR( A*, E, E+1, N+1*
LR("CK" W!, B, B+4
>> LRA B+1*
>> LRAA ASK+3, W+2, REST, REST+1
>> LRABV W
>> LRAC REST+1*, H+1
>> LRAD ASK+2*, ASK+3, W+2, REST, REST+1
>> LRAN W*, W+1, W+2, REST, REST+1
>> LRB B+2*
>> LRB(1 S*
>> LRDFN REST+1*, B+1, B+2, S, T, E+1, N
>> LRDICS LRAPWR+3*
>> LRE B+1*, H+1
>> LRH(0 ASK+1*, ASK+3, REST
>> LRI REST+1*, B+1, B+2, B+4, S, T, E+1, N
>> LRK REST+2
>> LRM B+2*, S, T, M*
>> LRN ASK+2*, W, W+1*, W+2*
>> LRO(68 ASK+3, W
>> LRP H+1
>> LRSS B+1, B+2, S, T, E+1, N
>> LRSS( S
>> LRW B+1*
>> LRX E*, E+1, N+1
>> LRY ASK*, ASK+1*, ASK+2
>> LRZ T*, A*
U ASK, W, REST+1, B+2, S, T, E, E+1, N, N+1
, M
>> V T*
>> X ASK*, REST+1*, T*, A, E+1*
>> X(4 N*, CK
Y LRAPWR+3!, ASK, ASK+1, B+1*, T*, A*, N*, N+1, CK*
>> Z T*, A
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All