Routine: DGPTODCM

Information

DGPTODCM ;ALB/JAT,WOIFO/PMK - PTF DRG CASE MIX REPORT ;4/28/15 7:14pm

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,?10,"Total Weight: Sum of all DRGs",!! Line Location: HEAD+2
Function Call: WRITE	Prompt: ?62,"-",P,"-" Condition for execution: P Line Location: HEAD+3
Function Call: WRITE	Prompt: @IOF,!,"DRG Case Mix Summary for ",$S(DGFLAG'["M":G2_" SERVICE",1:"MEDICAL CENTER"),$S(DGFLAG["Spec":" by Specialty",1:"") I 'DGD Line Location: HEAD+3
Function Call: WRITE	Prompt: " for Active Admissions" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,"Discharge Dates from " Line Location: HEAD+4
Function Call: WRITE	Prompt: $P(Y,"@",1)," to " Line Location: HEAD+4
Function Call: WRITE	Prompt: $P(Y,"@",1)," to " Line Location: HEAD+4
Function Call: WRITE	Prompt: E Line Location: HEAD+15
Function Call: WRITE	Prompt: ! Line Location: UNLOAD+21
Function Call: WRITE	Prompt: !,?10,"Total Weight: Sum of all DRGs",!! Line Location: UNLOAD+22
Function Call: WRITE	Prompt: ?62,"-",P,"-" Condition for execution: P Line Location: UNLOAD+23
Function Call: WRITE	Prompt: @IOF,! Line Location: UNLOAD+23
Function Call: WRITE	Prompt: !,?5,B1,?38,$J(B2,12,2),?58,$J(B3,10),?75,$J(B4,14,2) Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,?5,"TOTALS",?38,$J(T2,12,2),?58,$J(T3,10),?75,$J(T4,14,2) Line Location: TOT+1