Routine: SROAWL

Package	Total	Call Graph
Surgery	4	^SROAWL1 $$INST^SROUTL0 $$SITE^SROVAR ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT NOW^%DTC ^DIR

Package

Total

Call Graph

Surgery

^SROAWL1 $$INST^SROUTL0 $$SITE^SROVAR ^SRSKILL

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT NOW^%DTC ^DIR

Package	Total	Caller Graph
Surgery	1	SROA MONTHLY WORKLOAD REPORT

Package

Total

Caller Graph

Surgery

SROA MONTHLY WORKLOAD REPORT

Entry Points

Name	Field # of Occurrence
^%DT	QUE+1
NOW^%DTC	TASK+1
^%ZIS	IO
^%ZISC	END+2
^%ZTLOAD	IO+1, QUE+2
^DIR	START+3, DATE+1, DATE+4, TRAN+2, PRT+1, END, TWO+3, DT2+2
^SROAWL1	RUN+1, TASK+4
$$INST^SROUTL0	DIV+2
$$SITE^SROVAR	TASK+3
^SRSKILL	END+2, STOP

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report of Monthly Case Workload Totals",!! Line Location: START+0
Function Call: WRITE	Prompt: @IOF,"This option provides a report of the monthly risk assessment surgical case",!,"workload totals which include the following categories:",! Line Location: START+5
Function Call: WRITE	Prompt: ?5,"1. All cases performed",!,?5,"2. Eligible cases",!,?5,"3. Eligible cases meeting exclusion criteria" Line Location: START+6
Function Call: WRITE	Prompt: !,?5,"4. Assessed cases",!,?5,"5. Not logged eligible cases" Line Location: START+7
Function Call: WRITE	Prompt: !,?5,"6. Cardiac cases",!,?5,"7. Non-cardiac cases",!,?5,"8. Assessed cases per day (based on 20 days/month)" Line Location: START+8
Function Call: WRITE	Prompt: !!,"The second part of this report provides the total number of incomplete",!,"assessments remaining for the month selected and the prior 12 months." Line Location: START+9
Function Call: WRITE	Prompt: ! Line Location: DATE+0
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
Function Call: WRITE	Prompt: ! Line Location: TWO+1
Function Call: WRITE	Prompt: ! Line Location: DT2+0
Function Call: WRITE	Prompt: !!,"Ending date must not be earlier than starting date!" Line Location: DT2+4
Routine Call	DIR Line Location: START+3 DATE+1 DATE+4 TRAN+2 PRT+1 END TWO+3 DT2+2
Routine Call	%ZIS Line Location: IO

Name	Line Occurrences (* Changed, ! Killed)
^SRO(133 - [#133]	DIV, TASK+2, TASK+4*
^TMP("SRM"	END+1!

Label References

Name	Line Occurrences
DATE	DATE+2
DIV	DT2+5
DT2	DT2+3
END	START, START+3, DATE+1, DATE+2, DIV+2, TRAN+2, PRT+1, IO, IO+1, TWO+3 , DT2+2, QUE+1, QUE+2
GETDT	DATE, TWO+4, TASK+1
IO	DIV+3, TRAN+3
MONTH	DATE+3, GETDT
QUE	PRT+2
STOP	TASK+2
TRAN	DIV+1
TWO	START+4, DT2+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TASK+1
%DT	QUE+1!*
%DT("A"	QUE+1*
%DT("B"	QUE+1*
%DT(0	QUE+1*
>> %I(2	TASK+1
%ZIS	IO!*
%ZIS("A"	IO*
DIR	START+1!, START+3!, DATE!, DATE+4!, TRAN!, PRT!, END!, TWO+1!, DT2!
DIR("?"	DATE, DATE+1, TRAN+1, TRAN+2, PRT, PRT+1, TWO+2, TWO+3, DT2+1, DT2+2
DIR("A"	START+1, START+2, DATE, DATE+4, TRAN, TRAN+1, PRT, END, TWO+1, DT2
DIR("B"	START+2, DATE, DATE+4, TRAN+1, PRT, TWO+2, DT2*
DIR(0	START+3, DATE, DATE+4, TRAN+2, PRT+1, END, TWO+2, DT2
DT	TWO, GETDT
>> DTOUT	START+3, DATE+1, DATE+4, TRAN+2, PRT+1, TWO+3, DT2+2
>> DUOUT	START+3, DATE+1, DATE+4, TRAN+2, PRT+1, TWO+3, DT2+2
IO("Q"	IO!, IO+1!
IOF	START, START+5, END+1, END+2
IOST	END, END+1
POP	IO!
>> SRCNT	DIV*, DIV+1
>> SRD	DATE+3, TWO, GETDT, TASK+1, TASK+2
>> SRDAY	TASK+1*
SRDT	DATE+2, DATE+3, DATE+5!, TWO+4, DT2+4, TASK+1*, TASK+4
SREDT	DT2+3*, DT2+4!
>> SRINST	SROAWL+2, DIV+2, DIV+3, TASK+3*
SRINSTP	SROAWL+2~, DIV+2, TASK+3*
>> SRL	TASK+2*
>> SRM	DATE, DATE+4, TWO, TWO+2, DT2, MONTH+1
>> SRNOW	TASK+1*
>> SRP	SROAWL+2, PRT, PRT+1, PRT+2, TASK+3
>> SRS	TASK+2, TASK+4
SRSEL	SROAWL+2~, START+4, DIV+1, DIV+3, IO+3, TASK+3
>> SRSITE("DIV"	SROAWL+2
>> SRSITE("SITE"	SROAWL+2
>> SRSOUT	SROAWL+2, START, START+3, DATE+1, DATE+2, DATE+4, TRAN+2, PRT+1, IO, IO+1 , END, TWO+3, DT2+2, QUE+1*
>> SRT	SROAWL+2, PRT, TASK+3*
SRTN	END+2!, STOP!
>> SRY	DATE, DATE+3, DATE+4, TWO, DT2, GETDT*
>> X	DIV, TWO, GETDT, TASK+3
>> Y	START+4, DATE+1, DATE+2, DATE+3, DATE+5, TRAN+3, PRT+1, TWO+3, TWO+4, DT2+2 , DT2+3, QUE+1, QUE+2
>> Z	DATE+3, GETDT, 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+2, QUE+2
>> ZTSAVE("SREDT"	IO+3*
>> ZTSAVE("SRINST"	IO+2, QUE+2
>> ZTSAVE("SRINSTP"	IO+2, QUE+2
>> ZTSAVE("SRP"	IO+2, QUE+2
>> ZTSAVE("SRSEL"	IO+2, QUE+2
>> ZTSAVE("SRSTATN"	QUE+2*
>> ZTSAVE("SRT"	IO+2, QUE+2
>> ZTSTOP	END+1

Customize PDF page

Package: Surgery

Routine: SROAWL

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
TASK	; automatic transmission of workload report called by nightly process
RUN	; entry point when queued
PRT
GETDT
TRAN
STOP
TWO
MONTH	; get name of month
START
QUE	; queue transmission of report to national database
IO
DT2
DATE
END
DIV