Routine: DGSCHAD2

Information

DGSCHAD2 ;ALB/MRL - SCHEDULED ADMISSIONS STATISTICS ; 06 MAY 87

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,7," Margin width for this report is 132 *" Line Location: F+2
Function Call: WRITE	Prompt: ! Line Location: S+5
Function Call: WRITE	Prompt: ! Line Location: S+5
Function Call: WRITE	Prompt: ! Line Location: DTOT+0
Function Call: WRITE	Prompt: !,X Line Location: S1+0
Function Call: WRITE	Prompt: !,X1 Line Location: S1+0
Function Call: WRITE	Prompt: DGL,!,$S(DGW=1:"SUB-",1:"DIVISION "),"TOTAL" Line Location: W1+0
Function Call: WRITE	Prompt: ?35,$J(+$P(DGD,"^",1),9),?47,$J(+$P(DGD,"^",2),9),?72,$J(+$P(DGD,"^",11),5),?82,$J(+$P(DGD,"^",12),5),?93,$J(+$P(DGD,"^",13),5),?108,$J(+$P(DGD,"^",14),5),?123,$J(+$P(DGD,"^",15),5) Line Location: W1+1
Function Call: WRITE	Prompt: @IOF,!,DGDIV_", "_DGHD,?112,DGPR,!!?75," C A N C E L L A T I O N R E A S O N" Line Location: H+0
Function Call: WRITE	Prompt: !?70,X,!?35,"TOTAL",?47,"TOTAL",?70,"\|",?93,"REFUSED",?108,"NO BEDS" Line Location: H+0
Function Call: WRITE	Prompt: !,"WARD/TREATING SPECIALTY",?35,"SCHEDULED",?47,"CANCELLED",?70,"\| EXPIRED",?82,"OVERDUE",?93,"ADMISSION",?108,"AVAILABLE",?123,"OTHER",! Line Location: H+1
Function Call: WRITE	Prompt: "=" Line Location: H+1
Function Call: WRITE	Prompt: !!,"OLDEST SCHEDULED ADMISSION ON FILE IS FOR ",Y,"." Line Location: OLD+0
Function Call: WRITE	Prompt: !!,"NO SCHEDULED ADMISSIONS ON FILE!!",*7 Line Location: OLD+1