Routine: SROALESS

Information

SROALESS ;BIR/ADM-List of Assessments Missing Information ; [ 01/11/95 3:21 PM ]

Name	Comments	DBIA/ICR reference
START
DATE
TRAN
PRT
IO
RUN	; entry point when queued
END
MONTH	; get name of month
QUE	; queue transmission of report to national database

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report of Monthly Case Workload Totals",!!,"This option provides a report of the monthly risk assessment surgical case",!,"workload totals for the following categories:",! Line Location: START+0
Function Call: WRITE	Prompt: ?5,"1. All cases performed",!,?5,"2. Excluded cases",!,?5,"3. Assessed cases",!,?5,"4. Non-assessed cases",!,?5,"5. Cardiac cases",!,?5,"6. Non-cardiac cases",!,?5,"7. Assessed cases per day (based on 20 days/month)" Line Location: START+1
Function Call: WRITE	Prompt: !!,"This report may be printed and/or transmitted to the national database." Line Location: START+2
Function Call: WRITE	Prompt: !! Line Location: DATE+1
Function Call: WRITE	Prompt: !! Line Location: TRAN+0
Function Call: WRITE	Prompt: !! Line Location: PRT+0
Function Call: WRITE	Prompt: ! Line Location: IO+0
Function Call: WRITE	Prompt: !! Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Routine Call	DIR Line Location: DATE+2 DATE+5 TRAN+1 PRT+1 END
Routine Call	%ZIS Line Location: IO

Name	Line Occurrences
DATE	DATE+3
END	START, DATE+2, DATE+3, TRAN+1, PRT+1, IO, IO+1, QUE+1, QUE+2
IO	TRAN+2
MONTH	DATE, DATE+4
QUE	PRT+2

Name	Field # of Occurrence
%DT	QUE+1!*
%DT("A"	QUE+1*
%DT("B"	QUE+1*
%DT(0	QUE+1*
%ZIS	IO!*
%ZIS("A"	IO*
DIR	DATE+1!, DATE+5!, TRAN!, PRT!, END!
DIR("?"	DATE+1, DATE+2, TRAN, TRAN+1, PRT, PRT+1
DIR("A"	DATE+1, DATE+5, TRAN, PRT, END*
DIR("B"	DATE+1, DATE+5, TRAN, PRT
DIR(0	DATE+1, DATE+5, TRAN+1, PRT+1, END*
DT	DATE
>> DTOUT	DATE+2, DATE+5, TRAN+1, PRT+1
>> DUOUT	DATE+2, DATE+5, TRAN+1, PRT+1
IO("Q"	IO!, IO+1!
IOF	START, END+1, END+2
IOST	END, END+1
POP	IO!
>> SRD	DATE*, DATE+4
SRDT	DATE+3*, DATE+4, DATE+6!
>> SRINST	SROALESS+2*
>> SRM	DATE+1, DATE+5, MONTH+1*
>> SRP	SROALESS+2, PRT, PRT+1*, PRT+2
>> SRSOUT	SROALESS+2, START, DATE+2, DATE+3, DATE+5, TRAN+1, PRT+1, IO, IO+1, END , QUE+1
>> SRSTATN	SROALESS+2*
>> SRT	SROALESS+2, PRT
SRTN	END+2!
>> SRY	DATE, DATE+1, DATE+4, DATE+5
>> X	SROALESS+2, DATE
>> Y	DATE+2, DATE+3, DATE+4, DATE+6, TRAN+2, PRT+1, QUE+1, QUE+2
>> Z	DATE, DATE+4, MONTH+1
>> ZTDESC	IO+1, QUE+2
>> ZTDTH	QUE+2*
>> ZTIO	QUE+2*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	IO+1, QUE+2
>> ZTSAVE("SRDT"	IO+1, QUE+2
>> ZTSAVE("SRINST"	IO+1, QUE+2
>> ZTSAVE("SRP"	IO+1, QUE+2
>> ZTSAVE("SRSTATN"	IO+1, QUE+2
>> ZTSAVE("SRT"	IO+1, QUE+2
>> ZTSTOP	END+1