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

Package: Lab Service

Routine: LRAPTT1


Information

LRAPTT1 ;AVAMC/REG/CYM - TURNAROUND TIME PATH ;2/13/98 09:42 ;

Source Information

Source file <LRAPTT1.m>

Entry Points

Name Comments DBIA/ICR reference
T
F
E

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " (Exceeding ",LRB," ",$S(LRB=1:"day",1:"days"),")"
  • Condition for execution: LRL
  • Line Location: LRAPTT1+3
Function Call: WRITE
  • Prompt: !,"From: ",LRSTR," To: ",LRLST,?57,"Lab work"
  • Line Location: LRAPTT1+3
Function Call: READ
  • Formatting: !
  • Prompt: "Enter limit in days: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: T+0
Function Call: WRITE
  • Prompt: $C(7),!,"Must be 1-120 days."
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !!,"Total ",$P(^DIC(LRA,0),U)," file cases: ",LRM(LRA)
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !?3,"Incomplete cases:",$J(X,4)
  • Condition for execution: X
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !?3,"Complete cases:",$J(LRF(LRA),4)
  • Line Location: E+0
Info |  Source |  Entry Points |  Interaction Calls