| 1 | IMRREST ;HCIOFO/NCA - Resetting the Category ;5/23/97 09:46
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
|
|---|
| 3 | RESET ; Reset the Category according to CD4 Counts
|
|---|
| 4 | ; called from IMRCD4 and IMRLAB
|
|---|
| 5 | ; IMRCD4=CD4 value
|
|---|
| 6 | ; IMRPR4=CD4 percentage
|
|---|
| 7 | I $D(IMRXCAT),IMRCD4'="",IMRCD4>199,IMRCD4<500,IMRXCAT=1 D
|
|---|
| 8 | . S DR="4///2" S IMRSFLG=1,IMRXCAT=2
|
|---|
| 9 | . S IMRTEXT="CATEGORY 1 SET TO 2 - CD4 COUNT IS 200 - 499." Q
|
|---|
| 10 | I $D(IMRXCAT),IMRCD4'="",IMRCD4<200,IMRXCAT=1 D
|
|---|
| 11 | . S DR="4///3" S IMRSFLG=1,IMRXCAT=3
|
|---|
| 12 | . S IMRTEXT="CATEGORY 1 SET TO 3 - CD4 COUNT IS LESS THAN 200." Q
|
|---|
| 13 | I $D(IMRXCAT),IMRCD4'="",IMRCD4<200,IMRXCAT=2 D
|
|---|
| 14 | . S DR="4///3" S IMRSFLG=1,IMRXCAT=3
|
|---|
| 15 | . S IMRTEXT="CATEGORY 2 SET TO 3 - CD4 COUNT IS LESS THAN 200." Q
|
|---|
| 16 | I $D(IMRXCAT),IMRPR4'="",IMRPR4<14,IMRXCAT=1 D
|
|---|
| 17 | . S DR="4///3" S IMRSFLG=1,IMRXCAT=3
|
|---|
| 18 | . S IMRTEXT="CATEGORY 1 SET TO 3 - CD4 % IS LESS THAN 14." Q
|
|---|
| 19 | I $D(IMRXCAT),IMRPR4'="",IMRPR4<14,IMRXCAT=2 D
|
|---|
| 20 | . S DR="4///3" S IMRSFLG=1,IMRXCAT=3
|
|---|
| 21 | . S IMRTEXT="CATEGORY 2 SET TO 3 - CD4 % IS LESS THAN 14." Q
|
|---|
| 22 | I DR'="" D ^DIE
|
|---|
| 23 | Q
|
|---|
