Routine: LRAPTT1

Information

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

Source file <LRAPTT1.m>

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