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

Package: Lab Service

Routine: LRSPT


Information

LRSPT ;AVAMC/REG/WTY - AP PRELIMINARY REPORTS ;10/16/01

Source Information

Source file <LRSPT.m>

Entry Points

Name Comments DBIA/ICR reference
GETP
CH
DEV ;
QUE ;
K
D
AU
H ;from LRAPPF1
END
SGL
CONT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Preliminary reports for ",LRO(68)
  • Line Location: LRSPT+10
Function Call: WRITE
  • Prompt: !!,"Save preliminary reports for reprinting "
  • Line Location: CH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"Request Queued, #",ZTSK
  • Condition for execution: $D(ZTSK)
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !,"ANATOMIC PATHOLOGY",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: $C(7),!!,"OK TO DELETE THE ",LRO(68)," PRELIMINARY REPORT LIST"
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $C(7),!,"LIST DELETED !"
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"FINE, LET'S FORGET IT",!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Info |  Source |  Entry Points |  Interaction Calls