Routine: RAPMW3

Information

RAPMW3 ;HOIFO/SWM-Radiology Wait Time reports ;3/20/09 14:10

Source file <RAPMW3.m>

Name	Comments	DBIA/ICR reference
EN1	;
R1
EOF
PARSE(RA)	; parse Descriptor -- remove double quotes and trailing blanks if any
DATDEL	; Delete all data from file 73.2
SETREC	;
S2
ABEND
DISP	;display one-line text either interactively or within KIDS installation
CLEANUP	;
HD	;Header for email <=30 Days Performance Value Summary.
HDSUM	;
HD1	;Header for email Wait and Time Performamce Report.
HDSUM1	;
RAJOB	;PARTIAL process email wait and time report
COLHDS(X)	; moved from RAPMW1
FOOTS	;
RAJOB1	;process mail wait and time report
COL1(X)	; moved from RAPMW1
FOOTS2	;
DAY14	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"*****************************************************************" Line Location: EN1+1
Function Call: WRITE	Prompt: !,"This routine requires a tab-delimited VMS text file for input." Line Location: EN1+2
Function Call: WRITE	Prompt: !,"This text file should come from Sherrill Snuggs' Xcel file." Line Location: EN1+3
Function Call: WRITE	Prompt: !,"ALL DATA FROM FILE 73.2 WILL BE DELETED BEFORE IMPORTING VMS FILE." Line Location: EN1+4
Function Call: WRITE	Prompt: !,"Only the 1st of duplicate CPT Codes would be imported." Line Location: EN1+5
Function Call: WRITE	Prompt: !,"*****************************************************************" Line Location: EN1+6
Function Call: WRITE	Prompt: !!,"Enter VMS directory :"_RADIR_"//" Line Location: EN1+8
Function Call: WRITE	Prompt: !!,"Full name of input file is ",RAFILE,! Line Location: EN1+13
Function Call: WRITE	Prompt: !!?5,"Nothing Done." Line Location: EN1+17
Function Call: WRITE	Prompt: !?3," This file cannot be opened. " Line Location: EN1+19
Function Call: READ	Variable: X Timeout: DTIME Line Location: R1+0
Function Call: WRITE	Prompt: "." Line Location: R1+17
Function Call: WRITE	Prompt: !,"Processing abended." Line Location: ABEND+0
Function Call: WRITE	Prompt: !!?5,RATXT Line Location: DISP+1