Routine: RTPSET

Package	Total	Call Graph
Record Tracking	2	FR^RTPSET1 (DIV,TYPE1)^RTUTL
VA FileMan	2	^%DT ^DIC

Package	Total	Caller Graph
Record Tracking	45	RT RT CHANGE PULL LIST STATUS RT CHANGE REQUEST STATUS RT CHARGE RT EDIT REQUEST RT FOUND RT MAS-EXPED-MENU RT MAS-FILE-CLERK-MENU RT MAS-SUPER-MENU RT MISSING RT NEW RECORD RT OVERALL RT PULL LIST RT RAD-FILE-CLERK-MENU RT RAD-SUPER-MENU RT REQUEST RTCC RTCP RTCR RTCS RTCU RTDPA1 RTL RTM RTMAS RTNQ RTNQ1 RTNQ2 RTNQ3 RTNQ4 RTP RTPSET1 RTQ RTQ3 RTQ4 RTQ41 RTQ5 RTRAD RTRPT RTSM RTSYS RTT RTT1 RTT4 RTTR
Kernel	1	^DIC(19
Radiology Nuclear Medicine	1	RAPROQ

Entry Points

Name	Comments	DBIA/ICR reference
DUZ	;sets up RTDUZ variable for template use
SET	;entry point to assign file room parameters; RTAPL defined
KILL
DIV	;entry point to get file room institution; RTAPL and RTFR defined
DIV1	;entry point to determine institution for non-file room users
APL	;entry point to set-up local variables for application; X is defined as the application's name
APL1		ICR #583 Status: Active Usage: Private
APL2
INFO
XR
MR
SETUP
OVERALL	;entry point for RT OVERALL menu
TYPE
MAS
RAD

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"WARNING: User 'institution' and file room's 'institution' are different:",!?20,"USER : ",$S($D(^DIC(4,+DUZ(2),0)):$P(^(0),"^"),1:DUZ(2)),!?20,"FILE ROOM : ",$P(^DIC(4,RTDIV,0),"^") Line Location: SET+5
Function Call: WRITE	Prompt: !!,"You are tracking '",$S($D(RTTY):$P($P(RTTY,"^"),";",2)_"S'",1:$P($P(RTAPL,"^"),";",2)_"' records"),!?10,"..."," from the '",$P(^SC(+$P(RTFR,"^",2),0),"^"),"' file room.",! Line Location: INFO+0
Routine Call	DIC Line Location: DIV1+3 APL+1 APL2 OVERALL+1 TYPE

Name	Line Occurrences (* Changed, ! Killed)
^DIC(195.1 - [#195.1]	DIV1+1, DIV1+2, APL1
^DIC(195.4 - [#195.4]	APL1, XR, MR, MAS, RAD
^DIC(4 - [#4]	SET+5, DIV1+1, DIV1+2
^SC - [#44]	INFO

Name	Line Occurrences
APL	RTPSET+6
APL1	APL+1, APL2, SETUP, OVERALL+1, TYPE+1, MAS, RAD
DIV	SET+4, TYPE+2
INFO	SET+4
SET	RTPSET+6, OVERALL+1
SETUP	XR

Name	Field # of Occurrence
^(	DIV1+1
^(0	SET+5, DIV1+1, APL1

Name	Field # of Occurrence
%	KILL+1!
%DT	SET+1*!
%H	KILL+1!
%I	KILL+1!
A	KILL+1!
C	SET+6!
D	SET+6!, KILL+1!
D0	KILL+1!
DA	KILL+1!
DGO	KILL+1!
DIC	KILL+1!, DIV1+2, DIV1+3!, APL+1, APL2, OVERALL+1, TYPE*!
DIC("A"	DIV1+2, TYPE
DIC("B"	DIV1+2*
DIC("S"	DIV1+2, TYPE
DIC(0	DIV1+2, APL+1, APL2, OVERALL+1, TYPE*
DIC1	KILL+1!
DICS	KILL!
DIE	KILL+1!
DIY	KILL+1!
DIYS	KILL+1!
DO	KILL+1!
DR	KILL+1!
DT	SET+1*
DUOUT	OVERALL+1!
DUZ	DUZ+1
DUZ(2	SET+5, DIV1+2
F	SET+6!, KILL+1!
F1	SET+6!
I	SET+6!, KILL+1!, DIV1+1*
IO("Q"	KILL+1!
J	KILL+1!
N	KILL+1!
O	KILL+1!
P	KILL+1!
POP	KILL+1!
RTAPL	RTPSET+5, RTPSET+6!, SET+2, KILL!, DIV1+1, DIV1+2, APL+1, APL1!*, APL2!, INFO , SETUP!, OVERALL+1, TYPE+1, TYPE+2!
RTC	KILL!
RTDIV	RTPSET+5, RTPSET+6!, SET+2, SET+3!, SET+4, SET+5, SET+6!, KILL!, DIV+1!, DIV1+1! , DIV1+3*, TYPE!, TYPE+2!
>> RTDUZ	DUZ+1*
RTFR	RTPSET+5, RTPSET+6!, SET+2, SET+3!, SET+4, SET+6!, KILL!, DIV+1, INFO, TYPE! , TYPE+2!
RTINST	DIV+1!
RTSYS	RTPSET+5, RTPSET+6!, SET+2, KILL!, APL+1, APL1!*, APL2!, OVERALL+1
RTTY	INFO, SETUP!, TYPE!, TYPE+1*, TYPE+2!
V	KILL+1!
>> X	SET+1*
X1	KILL+1!, DIV+1*!
XQUIT	RTPSET+5!, RTPSET+6, SET+2!, SET+3, SET+4!, APL+1!, APL2!, OVERALL+1!, TYPE*, TYPE+2!
>> Y	SET+1, DIV1+3, APL+1, APL1, APL2, XR, MR, SETUP, OVERALL+1, TYPE , TYPE+1, MAS, RAD
>> Y(0	TYPE+1
Z	KILL+1!