Routine: DGPTODT2

Information

DGPTODT2 ;ALB/BOK - PTF DRG TRIM POINT REPORT CONT ; 9/7/01 11:33am

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HEAD+0
Function Call: WRITE	Prompt: !! Line Location: HEAD+1
Function Call: WRITE	Prompt: ?62,"-",P,"-" Condition for execution: P Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF,!,"DRG Trim Point Totals for ",$S(DGFLAG'["M":G2_" SERVICE",1:"MEDICAL CENTER"),$S(DGFLAG["Spec":" by Specialty",1:"") I 'DGD Line Location: HEAD+2
Function Call: WRITE	Prompt: " for Active Admissions" Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"Discharge Dates from " Line Location: HEAD+3
Function Call: WRITE	Prompt: $P(Y,"@",1)," to " Line Location: HEAD+3
Function Call: WRITE	Prompt: $P(Y,"@",1)," to " Line Location: HEAD+3
Function Call: WRITE	Prompt: !!?38,"\| BELOW \| WITHIN TRIM \| ABOVE TRIM \|",!?16,"National",?30," ",?38,"\|-------\|----------------\|------------------------\|" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,H,?36," \| # of \| # of",?57,"Total \| # of",?71,"Days Above ",?82,"Total \|",?91,"Total Total Total",?123,"Average",!,H1 Line Location: HEAD+6
Function Call: WRITE	Prompt: "\| Disch \| Disch LOS \| Disch Trim",?83,"LOS \| Disch LOS",?109,"Weight(*)",?124,"Weight",! Line Location: HEAD+7
Function Call: WRITE	Prompt: E Line Location: HEAD+8