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

Package: Lab Service

Routine: LRAPWE


Information

LRAPWE ; IHS/DIR/AAB - DATE/TIME GRIDS SCANNED/PRINTS MADE 2/13/98 11:07 ; [ 2/13/98 9:20 AM ]

Source Information

Source file <LRAPWE.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 7 ^LRAP  S^LRAPST  (,EM)^LRAPWE1  ^LRAPWEA  (,W)^LRAPWU  (CK,D,FRE,V,YN)^LRU  ^LRUP  
Kernel 2 ^%ZIS  $$FMTE^XLFDT  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPWE  

Entry Points

Name Comments DBIA/ICR reference
B
END
H ;W @IOF,LRP," ",SSN(1)," Acc #: ",LRAC," Date: ",LRE,!,?15,"GRIDS",?24,"GRIDS",?32,"PRINTS",?40,"LAST DATE/TIME",?60,"LAST DATE/TIME"
M
REST
S
T
W
ASK

External References

Name Field # of Occurrence
^%DT ASK, ASK+1
^%ZIS B
^LRAP LRAPWE+4
S^LRAPST LRAPWE+4
^LRAPWE1 B+3
EM^LRAPWE1 LRAPWE+4
^LRAPWEA B+4
^LRAPWU REST+4
W^LRAPWU REST+2, REST+3
CK^LRU B+4
D^LRU B+1
FRE^LRU B+4
V^LRU END
YN^LRU LRAPWE+5, B+3
^LRUP REST+1
$$FMTE^XLFDT T+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Ask 'Date/time grids scanned:' prompt for each accession "
  • Line Location: LRAPWE+5
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: K
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"Select ",LRO(68)," Accession Number: ",LRN,$S(LRN:"//",1:"")
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"Select ",LRO(68)," Accession Number: ",LRN,$S(LRN:"//",1:"")
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in ACCESSION file",!!
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Use 'Blocks, Stains, Procedures, anat path' option to enter date",!,"grids (thin sections) processed. This must be done before entering date",!,"grids scanned, photos taken and prints made."
  • Line Location: REST+5
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: !,"*",$J(LR,2),") ",$P(LRB(1),U),?15,$J(+LRZ(6),3),?24,$J(+LRZ(8),3),?33,$J(+LRZ(10),3),?40,$$FMTE^XLFDT(LRZ(5)),?60,$$FMTE^XLFDT(LRZ(11))
  • Line Location: T+2
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,!,?15,"GRIDS",?24,"GRIDS",?32,"PRINTS",?40,"LAST DATE/TIME",?60,"LAST DATE/TIME"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?5,"BLOCK ID",?14,"PREPARED",?23,"SCANNED",?33,"MADE",?44,"SCANNED",?62,"PRINTS MADE"
  • Line Location: H+2
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)
^LR - [#63] REST+1, B+1, B+2, S, T
^LRO(68 - [#68] ASK+3, W+1, REST, REST+1

Label References

Name Line Occurrences
ASK ASK+1
B B+5
END LRAPWE+4, ASK, W
H B+2, M
M B+2, S
REST W+1
S B+2
T S
W W, W+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRAPWE+5*, B+3*
>> %DT ASK*, ASK+1*
>> %DT("A" REST+2*, REST+3*
>> A B+2*, S, T, T+1
>> B S*, T, T+1
>> DA B+4*
>> DIE B+4*
DTIME ASK, W, M
>> E S*, T, T+1
>> F REST+5
>> HRCN H+1
IOF B, H+1
>> IOP B*
IOSL B+2, S
>> J LRAPWE+4
LR B!*, B+4, T+1*, T+2
LR( T+1*
LR("CK" W!, B, B+4
>> LRA B+1*
>> LRAA ASK+3, W+1, REST, REST+1
>> LRAC REST+1*, H+1
>> LRAD ASK+2*, ASK+3, W+1, REST, REST+1
>> LRAN W*, W+1, REST, REST+1
>> LRB B+2*
>> LRB(1 S*, T+2
>> LRDFN REST+1*, B+1, B+2, S, T
>> LRDICS LRAPWE+4*
>> LRE B+1*, H+1
>> LRH(0 ASK+1*, ASK+3, REST
>> LRI REST+1*, B+1, B+2, B+4, S, T
>> LRK REST+2*, REST+3*, REST+4
>> LRK(1 REST+2*, REST+4
>> LRM B+2*, S, M*
>> LRN ASK+2*, W*, W+1*
>> LRO(68 ASK+3, W
>> LRP H+1
>> LRSS B+1, B+2, S, T
>> LRV LRAPWE+5*, REST+2
>> LRW T
>> LRY ASK*, ASK+1*, ASK+2
>> LRZ(10 T*, T+1, T+2
>> LRZ(11 T*, T+1, T+2
>> LRZ(5 T*, T+1, T+2
>> LRZ(6 T*, T+1, T+2
>> LRZ(8 T*, T+1, T+2
U ASK, W, REST+1, B+2, S, T, T+1, T+2, M
>> V T*, T+1
>> X ASK*, REST+1*, T*
Y LRAPWE+4!, ASK, ASK+1, B+1*, T*, T+1
>> Z T*
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