Information Technology Reference
In-Depth Information
The following code is used to define an Index where all of the codes are given equal weight.
data
nis.code3digits;
set nis.charlson;
code276=0; code427=0; code518=
0
; code428=
0
;code038=
0
;
code584=
0
; code486=
0
; code401=
0
; code496=
0
; code599=
0
;
code995=
0
; code785=
0
; code250=
0
; code414=
0
; code410=
0
; code197=
0
; code780=
0
; code507=
0
;
code403=
0
; code198=
0
; code285=
0
; code707=
0
;
if (rxmatch('276',diagnoses)>
0
) then code276=
1
;
if (rxmatch('427',diagnoses)>
0
) then code427=
1
;
if (rxmatch('518',diagnoses)>
0
) then code518=
1
;
if (rxmatch('428',diagnoses)>
0
) then code428=
1
;
if (rxmatch('038',diagnoses)>
0
) then code038=
1
;
if (rxmatch('584',diagnoses)>
0
) then code584=
1
;
if (rxmatch('486',diagnoses)>
0
) then code486=
1
;
if (rxmatch('401',diagnoses)>
0
) then code401=
1
;
if (rxmatch('496',diagnoses)>
0
) then code496=
1
;
if (rxmatch('599',diagnoses)>
0
) then code599=
1
;
if (rxmatch('995',diagnoses)>
0
) then code995=
1
;
if (rxmatch('785',diagnoses)>
0
) then code785=
1
;
if (rxmatch('250',diagnoses)>
0
) then code250=
1
;
if (rxmatch('414',diagnoses)>
0
) then code414=
1
;
if (rxmatch('410',diagnoses)>
0
) then code410=
1
;
if (rxmatch('197',diagnoses)>
0
) then code197=
1
;
if (rxmatch('780',diagnoses)>
0
) then code780=
1
;
if (rxmatch('507',diagnoses)>
0
) then code507=
1
;
if (rxmatch('403',diagnoses)>
0
) then code403=
1
;
if (rxmatch('198',diagnoses)>
0
) then code198=
1
;
if (rxmatch('285',diagnoses)>
0
) then code285=
1
;
if (rxmatch('707',diagnoses)>
0
) then code707=
1
;
newindex=code276+code427+code518+code428+code038+code584+code486+code401+code496+code599
Table 20. Mortality by chronic ulcer of skin
Table of code707 by DIED
code707
DIED
Total
Frequency
Col Pct
0
1
0
7658437
97.87
153879
92.06
7812316
1
166420
2.13
13271
7.94
179691
Total
7824857
167150
7992007
Frequency Missing = 3041
Search WWH ::
Custom Search