48 lines
1.5 KiB
Mathematica
48 lines
1.5 KiB
Mathematica
SPNPM2C ;SD/AB,WDE-PRINT RESULTS OF PROGRAM MEASURE #2 ;5/28/98
|
|
;;2.0;Spinal Cord Dysfunction;**6,8**;01/02/1997
|
|
MAIN ;-- Called from MAIN^SPNPM2C
|
|
D SETTXT
|
|
EXIT ;
|
|
Q
|
|
SETTXT ;-- Put PM #2 totals into SPNTXT array
|
|
I $G(SPNPARM("SITE"))="" S SPNPARM("SITE")=$G(^DD("SITE"))
|
|
S $P(SPNTXT(1),U,10)=""
|
|
S $P(SPNTXT(1),U,1)=SPNPARM("SITE")
|
|
;
|
|
; Program Measure #2 Denominator = SPN("TOT_PTF")
|
|
S $P(SPNTXT(1),U,2)=SPN("TOT_PTF")
|
|
;
|
|
; Program Measure #2 Numerator = SPN("TOT_NUM")
|
|
S $P(SPNTXT(1),U,3)=SPN("TOT_NUM")
|
|
;
|
|
; Total # (Denominator) based on FY admissions = SPN("TOT_DENOM1")
|
|
S $P(SPNTXT(1),U,4)=SPN("TOT_DENOM1")
|
|
;
|
|
; Total # (Denominator) based on FY discharges = SPN("TOT_DENOM2")
|
|
S $P(SPNTXT(1),U,5)=SPN("TOT_DENOM2")
|
|
;
|
|
; Total SCD Pts /w FY Admissions= SPN("TOT_ADM")
|
|
S $P(SPNTXT(1),U,6)=SPN("TOT_ADM")
|
|
;
|
|
; Total SCD Pts /w FY Discharges = SPN("TOT_DIS")
|
|
S $P(SPNTXT(1),U,7)=SPN("TOT_DIS")
|
|
;
|
|
; Total SCD Pts /w SCD Onset Date^"
|
|
; Between "_$$DTCONV(SPN("ONSET_DT"))
|
|
; & $$DTCONV(SPN("END_DT")) SPN("TOT_ONSET")
|
|
S $P(SPNTXT(1),U,8)=SPN("TOT_ONSET")
|
|
;
|
|
; Total SCD Pts /w any SCI Transmitted PTF/ICD9
|
|
; codes = SPN("TOT_ICD")
|
|
S $P(SPNTXT(1),U,9)=SPN("TOT_ICD")
|
|
;
|
|
; Total ALL SCD Pts = SPN("TOT_CNT")
|
|
S $P(SPNTXT(1),U,10)=SPN("TOT_CNT")
|
|
;
|
|
S SPNDESC="Program measure 2 for "_^DD("SITE")
|
|
D ^SPNMAIL
|
|
Q
|
|
DTCONV(X) ;-- Function to convert FM dates to human-readable format
|
|
S X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
|
|
Q X
|