Routine: RTSM5

Information

RTSM5 ;RPW/BUF,PKE/TROY-Init RT pull list 1 clinic; 7-27-87 ; 10/6/87 16:16 ;

Source file <RTSM5.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Clinic Record Request Initialization",! Line Location: 18+0
Function Call: WRITE	Prompt: !,7,"This location is NOT a CLINIC",7,! Line Location: AGN+1
Function Call: WRITE	Prompt: @IOF,!,"Clinic Record Requests Initialization Program",!!,"Start Time: ",Y Line Location: START+0
Function Call: WRITE	Prompt: !!,"Number of requests made or reaffirmed:" Line Location: START+3
Function Call: WRITE	Prompt: !?3,Y," = ",$E(RTSCOUNT(RTMASS,Z)_" ",1,6)_$S($D(RTSCOUNT(RTRAD,Z)):" X-ray Requests = "_RTSCOUNT(RTRAD,Z),1:"") Line Location: START+4
Function Call: WRITE	Prompt: " 0" Line Location: START+5
Function Call: WRITE	Prompt: !!,"Finished Time: ",Y Line Location: START+6
Function Call: WRITE	Prompt: "." Line Location: RTQ+0