Routine: DGPTODA1

Information

DGPTODA1 ;ALB/AS - PTF DRG ALOS REPORTS (DRIVER ROUTINE) ; 8/29/01 2:28pm

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,!!,"AVERAGE LOS 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,"\|",?43,"BELOW AVG LOS",?60,"\| ABOVE AVG LOS \|",?92,"TOTAL",?107,"\|",!?29," \|----------------------\|----------------------\|-----------------------\|",!,?16,"National",?31," " Line Location: HD+3
Function Call: WRITE	Prompt: " \| Total Total ALOS/ \| Total Total ALOS/ \| Total Total ALOS/ \| ",?110,"Total",?123,"Average",!,"DRG Low High ALOS Weight \| Disch LOS Disch \| Disch LOS Disch \| Disch LOS Disch \|" Line Location: HD+4
Function Call: WRITE	Prompt: ?109,"Weight(*)",?124,"Weight",!,DGLN Line Location: HD+5
Function Call: WRITE	Prompt: @IOF Line Location: Q+0