Routine: DGPMBSP3

Information

DGPMBSP3 ;ALB/LM - BSR PRINT, CONT.; 13 JUNE 90 ; 1/13/05 3:48pm

Name	Comments	DBIA/ICR reference
A
Q
WR
CUM
TL
TWR
PTOT	; Calc Vacant, Overcapacity Beds for Totals
MTL

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: WR+0
Function Call: WRITE	Prompt: W Line Location: WR+0
Function Call: WRITE	Prompt: ?+$P(TAB,"^",W),$J($P(DGWOR,"^",W),$P(JUS,"^",W)) Line Location: WR+0
Function Call: WRITE	Prompt: ! Condition for execution: UL["-" Line Location: TWR+2
Function Call: WRITE	Prompt: UL Line Location: TWR+2
Function Call: WRITE	Prompt: $C(13) Line Location: TWR+4
Function Call: WRITE	Prompt: ! Condition for execution: UL["-" Line Location: TWR+4
Function Call: WRITE	Prompt: UL Line Location: TWR+4
Function Call: WRITE	Prompt: $P(DGWTOR,"^") Line Location: PTOT+3
Function Call: WRITE	Prompt: ?+$P(TAB,"^",I),$J($P(W,"^",I),$P(JUS,"^",I)) Line Location: PTOT+4
Function Call: WRITE	Prompt: ?+$P(TAB,"^",I),$J(X(I),$P(JUS,"^",I)) Line Location: PTOT+10
Function Call: WRITE	Prompt: ?131,"" Condition for execution: $Y<131 Line Location: PTOT+11
Function Call: WRITE	Prompt: $C(13) Line Location: PTOT+11
Function Call: WRITE	Prompt: ! Condition for execution: UL["-" Line Location: PTOT+11
Function Call: WRITE	Prompt: UL Line Location: PTOT+11