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
Print Page as PDF
Routine: LRAPPA

Package: Lab Service

Routine: LRAPPA


Information

LRAPPA ;AVAMC/REG - CY/EM/SP PATIENT RPT ;8/12/95 08:15 ;

Source Information

Source file <LRAPPA.m>

Entry Points

Name Comments DBIA/ICR reference
A1
A2
D
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRAA(1)," FINAL PATIENT REPORTS DISPLAY"
  • Line Location: LRAPPA+4
Function Call: READ
  • Formatting: !
  • Prompt: "Start with accession #: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number from 1 to 99999"
  • Line Location: A1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Go to accession #: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number from 1 to 99999"
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: A2+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !,$P(X,"^"),?38,"SSN: ",$P(X,"^",9)
  • Line Location: D+0
Info |  Source |  Entry Points |  Interaction Calls