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

Package: Record Tracking

Routine: RTRD


Information

RTRD ;MJK/TROY ISC;Read Processor Routine; ; 2/24/87 12:43 PM ;

Source Information

Source file <RTRD.m>

Entry Points

Name Comments DBIA/ICR reference
R
SET
READ
HELP ;
Q
UPPER ;
SEL
SEL1
LOOP
RANGE
ERR
QUES
SELQ
ESC
  • ICR #585
    • Status: Active
    • Usage: Private

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Variable: X
    • Timeout: $S($D(RTRD("DTIME")):+RTRD("DTIME"),1:DTIME)
    • Line Location: R+0
    Function Call: WRITE
    • Prompt: !!,$S($D(RTRD("A")):RTRD("A"),1:"Enter Response: ")
    • Line Location: READ+0
    Function Call: WRITE
    • Prompt: $P(RTRD(RTRD("B")),"^",1),"// "
    • Line Location: READ+1
    Function Call: READ
    • Variable: S X1=X G HELP
    • Timeout: X="?"
    • Line Location: READ+2
    Function Call: WRITE
    • Prompt: $E(X,L+1,99)
    • Line Location: READ+6
    Function Call: WRITE
    • Prompt: *7
    • Line Location: READ+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: HELP+1
    Function Call: WRITE
    • Prompt: !!?2,"Enter one of the following:"
    • Line Location: HELP+2
    Function Call: WRITE
    • Prompt: !?5,"'",$P(RTRD(I),"^",1),"'",?25,"to ",$E($P(RTRD(I),"^",2),1,79-$X)
    • Line Location: HELP+3
    Function Call: WRITE
    • Prompt: !?5,"^",?25,"to stop."
    • Line Location: HELP+4
    Function Call: READ
    • Variable: G QUES
    • Timeout: X["?"
    • Line Location: SEL1+0
    Function Call: WRITE
    • Prompt: !!,$S($D(RTRD("A")):RTRD("A"),1:"Select: ")
    • Line Location: SEL1+0
    Function Call: WRITE
    • Prompt: RTRD("B"),"// "
    • Condition for execution: $D(RTRD("B"))
    • Line Location: SEL1+0
    Function Call: WRITE
    • Prompt: !,*7,"Your input is invalid."
    • Line Location: ERR+0
    Function Call: WRITE
    • Prompt: !!,"Enter ",?6,$S(RTSEL["S":"a) ",1:""),"a single number between 1 and ",RTC
    • Line Location: QUES+0
    Function Call: WRITE
    • Prompt: !!?3,"...OR enter an '^' to stop."
    • Line Location: QUES+2
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: ESC+0
    Info |  Source |  Entry Points |  Interaction Calls