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

Package: Lab Service

Routine: LRUPQ


Information

LRUPQ ;AVAMC/REG - LAB RESULTS BY ACCESSION AREA ;2/18/93 13:12 ;

Source Information

Source file <LRUPQ.m>

Entry Points

Name Comments DBIA/ICR reference
A
N1
N2
QUE
H
L
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LR(1)," ACCESSION LIST"
  • Line Location: LRUPQ+3
Function Call: WRITE
  • Prompt: !!,"Accession list date: ",Z(1)," OK "
  • Line Location: LRUPQ+5
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No accession numbers for ",Z(1)
  • Line Location: A+2
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: FIRST // "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter NUMBERS only"
  • Line Location: N1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: N1+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!"
  • Line Location: N1+1
Function Call: READ
  • Formatting: !
  • Prompt: "Go to Acc #: LAST // "
  • Variable: N(2)
  • Timeout: DTIME
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!",!!
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: !,LR(4)
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE ",?22,LR(1)," ACCESSIONS for ",Z(1)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Acc #",?7,"Patient",?28,"SSN",?35,"LOC",?41,"Specimen",?56,"Received",?68,"Verified",!,LR("%")
  • Line Location: H+2
Info |  Source |  Entry Points |  Interaction Calls