| 1 | IMRRISK ;HCIOFO/FT-Calculate Patient's Risk ;7/17/97 09:47
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
|
|---|
| 3 | RISK ; set IMR RISK
|
|---|
| 4 | ; called from the IMR CDC3 input template
|
|---|
| 5 | S XC0=^IMR(158,DA,0),IMRX=+$P(XC0,U,42),XC1=$G(^(1)),XC2=$G(^(2)),XC102=$G(^(102)),XC110=$G(^(110)),IMRRISK=""
|
|---|
| 6 | I IMRSEX="M"!(IMRSEX=""),$P(XC2,U,21)="1" S IMRRISK=1 ;homosexual
|
|---|
| 7 | I $P(XC1,U,26)=1 S IMRRISK=$S(IMRRISK="":2,1:3) ;2=iv drugs, 3=iv drugs & homosexual
|
|---|
| 8 | I IMRRISK="",$P(XC1,U,21)=1 S IMRRISK=6 ;transfusion
|
|---|
| 9 | I IMRRISK="",$P(XC2,U,53)=1 S IMRRISK=4 ;clotting factor
|
|---|
| 10 | I IMRRISK="",$P(XC1,U,24)=1 S IMRRISK=7 ;work-health/clinical
|
|---|
| 11 | I IMRRISK="",$P(XC102,U,14)=1 S IMRRISK=6 ;tissue/organs/a.i.
|
|---|
| 12 | I IMRRISK="" F I=28:1:32 I $P(XC1,U,I)=1 S IMRRISK=5 Q ;heterosexual
|
|---|
| 13 | I IMRRISK="",$P(XC1,U,33)=1 S IMRRISK=9 ;cannot be classified into known category
|
|---|
| 14 | I IMRRISK="",$P(XC110,U,3)=1 S IMRRISK=5 ;heterosexual
|
|---|
| 15 | I IMRRISK="",IMRSEX="M"!(IMRSEX=""),$P(XC2,U,23)=1 S IMRRISK=5 ;heterosexual
|
|---|
| 16 | I IMRRISK="" D I IMRRISK'="" S IMRRISK=9 ;"UNKNOWN"
|
|---|
| 17 | . F I=21,23,53 Q:IMRRISK'="" I $P(XC2,U,I)'="" S IMRRISK=1
|
|---|
| 18 | . F I=21,24,26,28:1:33 Q:IMRRISK'="" I $P(XC1,U,I)'="" S IMRRISK=1
|
|---|
| 19 | . I $P(XC102,U,14)'=""!($P(XC110,U,3)'="") S IMRRISK=1
|
|---|
| 20 | . Q
|
|---|
| 21 | I IMRRISK="" S IMRRISK="" ;"UNREPORTED"
|
|---|
| 22 | S $P(^IMR(158,DA,0),U,45)=IMRRISK
|
|---|
| 23 | K XC0,XC1,XC2,XC102,XC110,IMRRISK
|
|---|
| 24 | Q
|
|---|
