Routine: DGPTODB1

Information

DGPTODB1 ;ALB/AS - PTF DRG BREAKEVEN REPORTS (DRIVER ROUTINE) ; 26 JUN 87 10:00

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HD+0
Function Call: WRITE	Prompt: !!?64,"-",DGPAG,"-",! Line Location: HD+1
Function Call: WRITE	Prompt: @IOF,!!,"BREAKEVEN Report for ",DGFLAG,?110,"PRINTED: " Line Location: HD+2
Function Call: WRITE	Prompt: $P(Y,"@"),!,$P(DGCPG(2),U) Line Location: HD+2
Function Call: WRITE	Prompt: $P(Y,"@"),!,$P(DGCPG(2),U) Line Location: HD+2
Function Call: WRITE	Prompt: !!?37,"\|",?42,"BELOW BREAKEVEN",?60,"\| ABOVE BREAKEVEN \|",?92,"TOTAL",?107,"\|",!?29,"Facility\|----------------------\|----------------------\|-----------------------\|",!,?16,"National",?31,"Break" Line Location: HD+3
Function Call: WRITE	Prompt: " \| Total Total ALOS/ \| Total Total ALOS/ \| Total Total ALOS/ \| ",?110,"Total",?120,"Estimated",!,"DRG Low High ALOS WWU Even \| Disch LOS Disch \| Disch LOS Disch \| Disch LOS Disch \|" Line Location: HD+4
Function Call: WRITE	Prompt: ?111,"WWU",?121,"Total $",!,DGLN Line Location: HD+5
Function Call: WRITE	Prompt: @IOF Line Location: Q+0