[613] | 1 | SPNPM2C ;SD/AB,WDE-PRINT RESULTS OF PROGRAM MEASURE #2 ;5/28/98
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**6,8**;01/02/1997
|
---|
| 3 | MAIN ;-- Called from MAIN^SPNPM2C
|
---|
| 4 | D SETTXT
|
---|
| 5 | EXIT ;
|
---|
| 6 | Q
|
---|
| 7 | SETTXT ;-- Put PM #2 totals into SPNTXT array
|
---|
| 8 | I $G(SPNPARM("SITE"))="" S SPNPARM("SITE")=$G(^DD("SITE"))
|
---|
| 9 | S $P(SPNTXT(1),U,10)=""
|
---|
| 10 | S $P(SPNTXT(1),U,1)=SPNPARM("SITE")
|
---|
| 11 | ;
|
---|
| 12 | ; Program Measure #2 Denominator = SPN("TOT_PTF")
|
---|
| 13 | S $P(SPNTXT(1),U,2)=SPN("TOT_PTF")
|
---|
| 14 | ;
|
---|
| 15 | ; Program Measure #2 Numerator = SPN("TOT_NUM")
|
---|
| 16 | S $P(SPNTXT(1),U,3)=SPN("TOT_NUM")
|
---|
| 17 | ;
|
---|
| 18 | ; Total # (Denominator) based on FY admissions = SPN("TOT_DENOM1")
|
---|
| 19 | S $P(SPNTXT(1),U,4)=SPN("TOT_DENOM1")
|
---|
| 20 | ;
|
---|
| 21 | ; Total # (Denominator) based on FY discharges = SPN("TOT_DENOM2")
|
---|
| 22 | S $P(SPNTXT(1),U,5)=SPN("TOT_DENOM2")
|
---|
| 23 | ;
|
---|
| 24 | ; Total SCD Pts /w FY Admissions= SPN("TOT_ADM")
|
---|
| 25 | S $P(SPNTXT(1),U,6)=SPN("TOT_ADM")
|
---|
| 26 | ;
|
---|
| 27 | ; Total SCD Pts /w FY Discharges = SPN("TOT_DIS")
|
---|
| 28 | S $P(SPNTXT(1),U,7)=SPN("TOT_DIS")
|
---|
| 29 | ;
|
---|
| 30 | ; Total SCD Pts /w SCD Onset Date^"
|
---|
| 31 | ; Between "_$$DTCONV(SPN("ONSET_DT"))
|
---|
| 32 | ; & $$DTCONV(SPN("END_DT")) SPN("TOT_ONSET")
|
---|
| 33 | S $P(SPNTXT(1),U,8)=SPN("TOT_ONSET")
|
---|
| 34 | ;
|
---|
| 35 | ; Total SCD Pts /w any SCI Transmitted PTF/ICD9
|
---|
| 36 | ; codes = SPN("TOT_ICD")
|
---|
| 37 | S $P(SPNTXT(1),U,9)=SPN("TOT_ICD")
|
---|
| 38 | ;
|
---|
| 39 | ; Total ALL SCD Pts = SPN("TOT_CNT")
|
---|
| 40 | S $P(SPNTXT(1),U,10)=SPN("TOT_CNT")
|
---|
| 41 | ;
|
---|
| 42 | S SPNDESC="Program measure 2 for "_^DD("SITE")
|
---|
| 43 | D ^SPNMAIL
|
---|
| 44 | Q
|
---|
| 45 | DTCONV(X) ;-- Function to convert FM dates to human-readable format
|
---|
| 46 | S X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
|
---|
| 47 | Q X
|
---|