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

Package: Lab Service

Routine: LRAPT


Information

LRAPT ;AVAMC/REG/WTY - AP PATIENT RPT ;9/22/00

Source Information

Source file <LRAPT.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
QUE
LOOP
AU
H ;from LRAPT2, LRAPT3
H1
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?28,"Cum path data summaries"
  • Line Location: LRAPT+10
Function Call: WRITE
  • Prompt: !!?14,"1. DISPLAY cum path data summary for A patient"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?14,"2. PRINT cum path data summary for patient(s)",!
  • Line Location: ASK+1
Function Call: READ
  • Prompt: "Select (1-2): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Answer 1 or 2",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"NO PATHOLOGY ENTRIES IN LAB FILE !",!
  • Line Location: AU+1
Function Call: WRITE
  • Prompt: !,"ANATOMIC PATHOLOGY"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LRAA(1)," QA from ",LRSTR," to ",LRLST
  • Condition for execution: $D(LR("W"))
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LRP,?32,SSN,?52,"DOB:",DOB
  • Line Location: H1+0
Info |  Source |  Entry Points |  Interaction Calls