| [613] | 1 | DGPTOD1 ;ALB/AS/BOK - PTF DRG REPORTS, BUILD UTILITY ; 9/5/01 2:23pm
|
|---|
| 2 | ;;5.3;Registration;**158,238,375,744**;Aug 13, 1993;Build 5
|
|---|
| 3 | K ^UTILITY($J),A
|
|---|
| 4 | S DGFY=$$FY^DGPTOD0(DGED),DGFY2K=$$DGY2K^DGPTOD0(DGFY)
|
|---|
| 5 | S DGFYQ=$$FMTE^XLFDT(DGFY2K)_$$QTR(DGED)
|
|---|
| 6 | ;S DGWWCST=$P(DGCST,"^",2),DG1DAWW=$P(DGCST,"^",3)/DGWWCST,DG1DAWW=$J(DG1DAWW,0,5),DGHIWW=$P(DGCST,"^",5)/DGWWCST,DGHIWW=$J(DGHIWW,0,5)
|
|---|
| 7 | S (DGWWCST,DG1DAWW,DGHIWW)=0
|
|---|
| 8 | D DT^DICRW S DGTPT=0
|
|---|
| 9 | F DGDRGDT=DGSD:0 S DGDRGDT=$O(^DGPT(DGCR,DGDRGDT)) Q:DGDRGDT'>0!(DGDRGDT>DGED) F DGPTF=0:0 S DGPTF=$O(^DGPT(DGCR,DGDRGDT,DGPTF)) Q:DGPTF'>0 I $D(^DGPT(DGPTF,0)),'$P(^(0),U,4),$P(^(0),U,11)=1 S DGTPT=DGTPT+1,DGTLOS=0,DFN=+^(0) D ^DGPTOD2
|
|---|
| 10 | S H3=" National "
|
|---|
| 11 | ;S DGFT(1)="The dollar figures shown are based on the formulas used in the FY 19"_$S($E(DGFY2K,1,3)>288:"89",1:"88")_" Target Allowance, as explained in the corresponding"
|
|---|
| 12 | ;S DGFT(2)="user documentation. They are provided as a management tool for monitoring purposes and should not be used to predict"
|
|---|
| 13 | ;S DGFT(3)="RAM outcome. They do not include RAM adjustments (salary, psychiatry, census, etc). It will never be possible to duplicate"
|
|---|
| 14 | ;S DGFT(4)="RAM accurately on a current basis as the final RAM formulas are not determined until after the conclusion of the",DGFT(5)="fiscal year."
|
|---|
| 15 | S DGFT(4)="(*)Total Weight=Weight x Total # Discharges"
|
|---|
| 16 | S H=" Average ",H1="DRG Low High LOS Weight " K A F DGPGM=2:1:5 S R=$P(DGPTFR,"*",DGPGM) Q:R']"" D @R
|
|---|
| 17 | K DFN,DG1D,DGALOS,DGBE,DGDRG,DGDRGDT,DGDRGI,DGFYQ,DGHI,DGLBS,DGO,DGMBE,DGMV,DGOUT,DGPM,DGPR,DGPTF,DGPTFR,DGSNM,DGSV1,DGSVC,DGTLOS,DGTPT,DGWWU,H,H1,H3,K,R,W,DGLO,DGCNT,DGPROV,DGWGT
|
|---|
| 18 | G Q^DGPTOD0
|
|---|
| 19 | 1 D ^DGPTODT1 Q
|
|---|
| 20 | 2 D ^DGPTODF1 Q
|
|---|
| 21 | 3 D ^DGPTODA1 Q
|
|---|
| 22 | 4 D ^DGPTODCM Q ;D ^DGPTODB1 Q
|
|---|
| 23 | 5 Q
|
|---|
| 24 | Q
|
|---|
| 25 | WWU S (DGLO,DGHI,DGALOS,DGWWU,DGBE,DGMBE)="",%=$S($D(^ICD(+DGDRG,"FY",DGFY2K,0)):(^(0)),1:"") I %="",DGFY2K="3070000" N DGFY2KSV,DGFY2KYR S DGFY2KSV=DGFY2K,DGFY2KYR=$E(DGFY2K,1,3)-1,DGFY2K=DGFY2KYR_"0000" G WWU
|
|---|
| 26 | I $G(DGFY2KSV) S DGFY2K=DGFY2KSV
|
|---|
| 27 | S DGHI=$P(%,U,4),DGLO=$P(%,U,3),DGALOS=$P(%,U,9),DGWWU=$P(%,U,2)
|
|---|
| 28 | I DGSVC]"" S DGSV1=$S(DGSVC="M":1,DGSVC="NE":2,DGSVC="P":3,DGSVC="R":4,1:5),DGBE=$S($D(^ICD(+DGDRG,"BE",+DGFYQ,"S",+DGSV1,0)):$P(^(0),"^",2),1:""),DGMBE=$S($D(^ICD(+DGDRG,"BE",+DGFYQ,0)):$P(^(0),U,2),1:"")
|
|---|
| 29 | S ^UTILITY($J,"DRG",DGDRG)=DGLO_"^"_DGHI_"^"_DGALOS_"^"_DGWWU_"^"_DGBE_"^"_DGMBE Q
|
|---|
| 30 | BE W !,"If local breakeven days have not been defined, values on this report will not be correct!",!
|
|---|
| 31 | DIS W !,?10,DGFT(4) ;F %=1:1:5 W !,DGFT(%)
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | QTR(X) ;Return FY quarter
|
|---|
| 35 | ;Input: X=date
|
|---|
| 36 | S X=$E(X,4,5)
|
|---|
| 37 | Q $S(X<4:2,X<7:3,X<10:4,1:1)
|
|---|
