Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRAPWE

Package: Lab Service

Routine: LRAPWE


Information

LRAPWE ;AVAMC/REG/CYM- DATE/TIME GRIDS SCANNED/PRINTS MADE ;2/13/98 11:07

Source Information

Source file <LRAPWE.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
W
REST
B
S
T
M
H
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Ask 'Date/time grids scanned:' prompt for each accession "
  • Line Location: LRAPWE+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: LRAN
  • Timeout: DTIME
  • 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
  • Formatting: !
  • Prompt: "'^' TO STOP: "
  • Variable: LRM
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: @IOF,LRP," ",SSN(1)," Acc #: ",LRAC," Date: ",LRE,!,?15,"GRIDS",?24,"GRIDS",?32,"PRINTS",?40,"LAST DATE/TIME",?60,"LAST DATE/TIME"
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !?5,"BLOCK ID",?14,"PREPARED",?23,"SCANNED",?33,"MADE",?44,"SCANNED",?62,"PRINTS MADE"
  • Line Location: H+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call