Routine: RTRD

Package	Total	Call Graph
Kernel	1	EN^XQH

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
R
SET
READ
HELP	;
Q
UPPER	;
SEL
SEL1
LOOP
RANGE
ERR
QUES
SELQ
ESC		ICR #585 Status: Active Usage: Private

Name	Field # of Occurrence
EN^XQH	HELP+1

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

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*