Routine: RTSM

Information

RTSM ;MJK/TROY ISC;Site Manager's Menu; ; 4/21/87 2:05 PM ;

Source file <RTSM.m>

Name	Comments	DBIA/ICR reference
A
1	;;Application
2	;;File Room
L2
Q2
FR
3	;;File Room/Remote Set-up (site mgr)
4	;;[]
5	;;Overall Parameters
6	;;Admitting Area
L6
Q6
AA
7	;;Imaging Area (Radiology)
L7
Q7
8	;;Templates
9	;;Initialize Records
10	;;Patient Labels
11	;;In-Patient Labels
12	;;Create Terminal Digit Sort Global
13	;;Delete Terminal Digit Sort Global
14	;;Initialize Borrowers
Q14
ASK
RTB
15	;;Re-compile
16	;;Clinic Request Init
17	;;Purge Data
18	;;1 Clinic Request Init
19	;;Dailey Clinic Request Init
MAS
RAD
BOTH

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A+1
Function Call: WRITE	Prompt: ! Line Location: 1+1
Function Call: WRITE	Prompt: ! Line Location: FR+0
Function Call: WRITE	Prompt: ! Line Location: 5+1
Function Call: WRITE	Prompt: ! Line Location: AA+0
Function Call: WRITE	Prompt: !!,"Record Tracking's ",RTEMP," Templates: " Line Location: 8+2
Function Call: WRITE	Prompt: !!,"OK. This may take awhile..." Line Location: 14+5
Function Call: WRITE	Prompt: "." Line Location: RTB+0
Function Call: WRITE	Prompt: !!?3,*7,"Current application is not the 'Medical Records' application." Line Location: MAS+0
Function Call: WRITE	Prompt: !!?3,*7,"Current application is not the 'Film Tracking' application." Line Location: RAD+0
Function Call: WRITE	Prompt: !!?3,*7,"Current application is not the 'Film Tracking' nor the" Line Location: BOTH+2
Function Call: WRITE	Prompt: !?3,"'Medical Records' application." Line Location: BOTH+3