source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRREST.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1021 bytes
Line 
1IMRREST ;HCIOFO/NCA - Resetting the Category ;5/23/97 09:46
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
3RESET ; 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
Note: See TracBrowser for help on using the repository browser.