RECORD TRACKING RTPSET1 FOR GUI REGISTRATION ICR (3479)

Name

Value

NUMBER

3479

IA #

3479

DATE CREATED

2003/04/21

CUSTODIAL PACKAGE

RECORD TRACKING

CUSTODIAL ISC

Albany

USAGE

Private

TYPE

Routine

ROUTINE

RTPSET1

NAME

RECORD TRACKING RTPSET1 FOR GUI REGISTRATION

GENERAL DESCRIPTION

Registration needs to call RTPSET1 during the GUI
version of the Register a Patient functionality.  Entry points SAVE and
restore will save RT namespaced variables into a temporary array and then
later restore them to their original values.

STATUS

Retired

KEYWORDS

GUI REGISTRATION

DURATION

Till Otherwise Agreed

RTPSET1

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

SAVE

Subroutine saves "RTAPL","RTSYS","RTFR","RTDIV" into
an array RTNEW().

VARIABLES	TYPE	VARIABLES DESCRIPTION
RTAPP	Input	The application being used - either MAS or RAD.
RTSYS	Input	The Record Tracking Application.

RTFR	Input	Input Device from the Borrower/File Area file (#195.9).
RTDIV	Input	The Borrower/File Area location.

RESTORE

Restores variables saves into RTNEW in subroutine
SAVE.

VARIABLES	TYPE	VARIABLES DESCRIPTION
RTAPL	Output	The application being used - either MAS or RAD.
RTSYS	Output	The Record Tracking Application.
RTFR	Output	Input device from the Borrowers/File Area file (195.9)
RTDIV	Output	The Borrower/File Area location.

SUBSCRIBING PACKAGE

SUBSCRIBING PACKAGE	ISC
REGISTRATION	Albany