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

Package: Lab Service

Routine: LRAPOLD


Information

LRAPOLD ;AVAMC/REG - ENTER OLD AP ACCESSIONS ;8/12/95 08:04 ;

Source Information

Source file <LRAPOLD.m>

Entry Points

Name Comments DBIA/ICR reference
GETP
REST
DT
R
A
FIX
X
SP
CY
EM
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?20,"Enter old pathology records",!!
  • Line Location: LRAPOLD+2
Function Call: WRITE
  • Prompt: !!,"Enter Etiology, Function, Procedure & Disease "
  • Line Location: LRAPOLD+5
Function Call: WRITE
  • Prompt: !!,"Enter Special Studies "
  • Line Location: LRAPOLD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GETP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+0
Function Call: READ
  • Variable: Q
  • Timeout: Y<1
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Date received must be after date taken.",!
  • Line Location: R+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter Accession number: "
  • Variable: LRAN
  • Timeout: DTIME
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter up to 5 numbers",!!
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!,"AC #",LRAN," in ",LRO(68)," for ",$E(LRF,2,3),!?5,"Patient: ",LRP," ID: ",SSN
  • Line Location: A+1
Function Call: WRITE
  • Prompt: $C(7),!!,"All Prompts were not answered <ENTRY DELETED>"
  • Line Location: A+7

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