Routine: DGPTODT1

Information

DGPTODT1 ;ALB/BOK - PTF DRG TRIM POINT REPORT ; 9/13/01 4:56pm

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DGPTODT1+2
Function Call: WRITE	Prompt: !,$J(D2,3),$J($P(D3,U,3),5),$J($P(D3,U,4),6),$J($P(D3,U,5),6),$J($P(D3,U,6),9),$J($P(D3,U,7),7)," \|" Line Location: PRINT+0
Function Call: WRITE	Prompt: $J($P(DGBT1,U,2),6)," \|",$J($P(DGWT1,U,2),7),$J(+DGWT1,8)," \|",$J($P(DGAT1,U,2),7),$J($P(DGAT1,U,3),8),$J(+DGAT1,8) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?88,"\|",$J($P(D3,U,2),8),$J(+D3,11) Line Location: PRINT+2
Function Call: WRITE	Prompt: $J(X,12) Line Location: PRINT+2
Function Call: WRITE	Prompt: $J(X,12) Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: TOT+0
Function Call: WRITE	Prompt: $S(DGFLAG["Serv":"-",1:"=") Line Location: TOT+0
Function Call: WRITE	Prompt: !?8,"Total for ",DGFLAG,?38,"\|",$J(B2,6)," \|",$J(W2,7),$J(W1,8)," \|",$J(A2,7),$J(A1,8),$J(A3,8),?88,"\|",$J(C1,8),$J(C3,11) Line Location: TOT1+0
Function Call: WRITE	Prompt: $J(X,12) Line Location: TOT1+0
Function Call: WRITE	Prompt: $J(X,12) Line Location: TOT1+0
Function Call: WRITE	Prompt: $J(X,12) Line Location: TOT1+0
Function Call: WRITE	Prompt: !?15,"Total 1 Day Stays:",$J(B4,12) Line Location: TOT1+1
Function Call: WRITE	Prompt: ! Line Location: PP+0
Function Call: WRITE	Prompt: !!?62,"-",P,"-" Line Location: PP+0