Routine: SROREA

Information

SROREA ;B'HAM ISC/MAM - DELAY REASONS ; 3 DEC 1990 2:20 PM

Source file <SROREA.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"TOTAL DELAY REASONS",?65,$J(^TMP("SR",$J),5) Line Location: SROREA+5
Function Call: WRITE	Prompt: !,$P(^SRO(132.4,CAUSE,0),"^"),?65,$J(^TMP("SR",$J,CAUSE),5) Line Location: PRINT+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: PAGE+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to continue displaying the delay reasons for the entire",!,"medical center." Line Location: PAGE+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(80-$L(SRINST)\2),SRINST,!,?32,"SURGICAL SERVICE" Condition for execution: $E(IOST)="P" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?28,"REPORT OF DELAY REASONS",!,?27,"FROM "_X_" TO "_Y Line Location: HDR+3
Function Call: WRITE	Prompt: !!,?21,"REVIEWED BY:",?45,"DATE REVIEWED:",!! Line Location: HDR+4
Function Call: WRITE	Prompt: !! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: WRITE	Prompt: !! Line Location: HDR+6