Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 EN^XQH  

Caller Graph

Caller Graph Total: 44

Package Total Caller Graph
Record Tracking 43 RTB  RTB2  RTDEL  RTDPA  RTDPA1  RTDPA2  RTLDIV  RTNQ1  
RTNQ2  RTP  RTP1  RTP2  RTP3  RTP31  RTP4  RTP40  
RTP5  RTP51  RTPSET1  RTPURGE  RTQ1  RTQ3  RTQ4  RTQ41  
RTQ5  RTRAD  RTRPT  RTRPT2  RTRPT3  RTSM  RTSM1  RTSM2  
RTSM3  RTT  RTT1  RTT11  RTT12  RTT2  RTT3  RTT4  
RTUTL2  RTUTL4  RTUTL5  
Radiology Nuclear Medicine 1 RAPTLU  

Entry Points

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

    External References

    Name Field # of Occurrence
    EN^XQH HELP+1

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Timeout: $S($D(RTRD("DTIME")):+RTRD("DTIME"),1:DTIME)
    • Variable: X
    • 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
    • Timeout: X="?"
    • Variable: S X1=X G HELP
    • 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
    • Timeout: X["?"
    • Variable: G QUES
    • 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
    • Timeout: DTIME
    • Variable: X
    • Line Location: ESC+0

    Label References

    Name Line Occurrences
    ERR SEL1+1, LOOP, LOOP+2, RANGE
    HELP READ+2
    LOOP LOOP+2, RANGE+1
    Q READ+2, READ+3, READ+4, READ+6
    QUES SEL1
    R READ+2, SEL1
    RANGE LOOP+1
    READ HELP+4
    SEL1 QUES+3
    SELQ SEL+1, SEL1, LOOP+1
    SET HELP+1
    UPPER SET+1, READ+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    C Q!, UPPER+1*, UPPER+2!, SEL+1*, SEL1*, LOOP+2*, RANGE*, SELQ!
    DTIME R, ESC
    DTOUT READ+2*, READ+3, Q!
    I SET+1*, READ!, READ+6*, HELP+3*, Q!, SEL+1*, SEL1*, LOOP*
    J READ!, UPPER+1*
    L READ!, READ+2*, READ+4, READ+6, Q!
    >> N RANGE*
    >> RTC SEL*, LOOP+2, RANGE, QUES, SELQ*
    >> RTESC ESC*
    >> RTRD( SET+1*, READ+1, READ+3, READ+4, READ+6, HELP+3
    >> RTRD("A" READ, SEL1
    >> RTRD("B" READ+1, READ+4, SEL1
    >> RTRD("DTIME" R
    >> RTRD("DTOUT" READ+3
    >> RTRD("XQH" HELP+1
    >> RTRD(0 SET*, SET+1
    >> RTS SEL
    >> RTS( SEL+1, LOOP+2, RANGE
    >> RTS(1 SEL
    >> RTSEL SEL, SEL+1, SEL1+1, LOOP+1, QUES, QUES+1
    RTY SEL!, SEL1!
    RTY( SEL+1*, LOOP+2*, RANGE*
    RTY(1 SEL*
    S SET+1, READ!, READ+6, Q!, UPPER+1*
    V SET+1*, READ+5*, UPPER+1, UPPER+2!
    >> X R*, READ+2*, READ+3*, READ+4*, READ+5, READ+6*, SEL*, SEL+1*, SEL1*, SEL1+1
    , LOOP, ESC*
    X1 READ+2*, LOOP*, LOOP+1, LOOP+2, RANGE, SELQ!
    >> XQH HELP+1*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All