Routine: SRSPUT1

Information

SRSPUT1 ;B'HAM ISC/MAM - SPECIALTY UTILIZATION (CONT) ; 22 MAY 1990 9:45 PM

Source file <SRSPUT1.m>

Package	Total	Call Graph
Surgery	2	^SROSTOP ^SRSPUT2
VA Fileman	1	D^DIQ

Package	Total	Caller Graph
Surgery	1	SRSPUT0

Name	Comments	DBIA/ICR reference
PRINT	; print or info
HDR	; print heading
MON
TIMES	; put hrs and mins in readable format

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P(SRSP,"("),?28,SRPERC,?54,CASES,?72,SROPTIME,?104,SROT,!! Line Location: PRINT+9
Function Call: WRITE	Prompt: "-" Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?122,"PAGE "_PAGE,!,?56,"SURGICAL SERVICE",!,?50,"SURGICAL SPECIALTY UTILIZATION REPORT" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRSP)\2),SRSP Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(132-$L(SRHDR)\2),SRHDR,!! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"SURGICAL SPECIALTY",?21,"PERCENT UTILIZATION",?48,"NUMBER OF CASES",?71,"TOTAL OPERATION TIME",?100,"TIME WORKED OUTSIDE NORMAL HRS",!! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5

Name	Line Occurrences (* Changed, ! Killed)
^TMP("SR"	SRSPUT1+6, PRINT+2

Name	Field # of Occurrence
>> CASES	PRINT+2*, PRINT+9
>> HOUR	PRINT+5, PRINT+7, TIMES+1, TIMES+2
IOF	HDR+2
IOSL	PRINT+1
>> LINE	PRINT+9, HDR+4, HDR+5*
>> MIN	PRINT+5, PRINT+7, TIMES+1, TIMES+2, TIMES+3
>> PAGE	HDR+2*
>> SRED	SRSPUT1+2
>> SREDT	SRSPUT1+2, SRSPUT1+4
>> SRFLG	SRSPUT1+5, HDR+3
>> SRHALT	HDR+1
>> SRHDR	HDR+4
>> SRINST	HDR+2
>> SROPT	PRINT+3*, PRINT+5
>> SROPTIME	PRINT+6*, PRINT+9
>> SROT	PRINT+3, PRINT+7, PRINT+8*, PRINT+9
>> SRPERC	PRINT+4*, PRINT+9
>> SRPOSS	PRINT+3*, PRINT+4
>> SRSD	SRSPUT1+2
>> SRSDT	SRSPUT1+2, SRSPUT1+3
>> SRSOUT	SRSPUT1+5, SRSPUT1+6, SRSPUT1+7, PRINT+1, HDR+1*
>> SRSP	SRSPUT1+6*, PRINT+2, PRINT+9, HDR+3
>> SRUTL	PRINT+2*, PRINT+3, PRINT+7
>> SRUTT	PRINT+3*, PRINT+4
>> TIME	PRINT+6, PRINT+8, TIMES+1, TIMES+2, TIMES+3, TIMES+4
>> X	SRSPUT1+3, SRSPUT1+4, MON*
>> Y	SRSPUT1+2*
>> ZTQUEUED	HDR+1