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

Package: Lab Service

Routine: LRAPBS1


Information

LRAPBS1 ;AVAMC/REG - BLOCK/SLIDE DATA ENTRY;3/25/2002

Source Information

Source file <LRAPBS1.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
W ;
REST ;
A
CK
SP
AU
END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: " ",LRH(0)
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Select Accession Number: ",LRN,$S(LRN:"// ",1:"")
  • Line Location: W+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter a number."
  • Line Location: W+6
Function Call: WRITE
  • Prompt: " for ",LRH(0)
  • Line Location: REST+1
Function Call: WRITE
  • Prompt: !,LRP," ID: ",SSN
  • Line Location: REST+7
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+18
Function Call: WRITE
  • Prompt: $C(7),!,"Date/time must not be before date/time blocks prepared("
  • Line Location: REST+20
Function Call: WRITE
  • Prompt: Y,")."
  • Line Location: REST+20
Function Call: WRITE
  • Prompt: !!,"Data displayed ok "
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING THIS ENTRY!"
  • Line Location: A+2
Function Call: WRITE
  • Prompt: $C(7),!,"Date/time must not be before date/time ",$S("SPCYEM"[LRSS:"specimen received (",1:"autopsy performed (")
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: Y,")"
  • Line Location: CK+0

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