| [613] | 1 | IMRARVCK ;HIRMFO/FAI-HIV REGISTRY ARV REPORT-ADD SUMMARY ;06/12/00 15:00;
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;**5**;Feb 09, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ADDCATS S ZNAM="" F S ZNAM=$O(^IMR(158.7,"B",ZNAM)) Q:ZNAM="" D ALLCAT
|
|---|
| 5 | Q
|
|---|
| 6 | ALLCAT S:(IMRCAT=1)&(NAME=ZNAM) IMRONE=$P(^TMP($J,NAME),U,1),IMRONE=IMRONE+1,$P(^TMP($J,NAME),U,1)=IMRONE
|
|---|
| 7 | S:(IMRCAT=2)&(NAME=ZNAM) IMRTWO=$P(^TMP($J,NAME),U,2),IMRTWO=IMRTWO+1,$P(^TMP($J,NAME),U,2)=IMRTWO
|
|---|
| 8 | S:(IMRCAT=3)&(NAME=ZNAM) IMRTHR=$P(^TMP($J,NAME),U,3),IMRTHR=IMRTHR+1,$P(^TMP($J,NAME),U,3)=IMRTHR
|
|---|
| 9 | S:(IMRCAT=4)&(NAME=ZNAM) IMRFOR=$P(^TMP($J,NAME),U,4),IMRFOR=IMRFOR+1,$P(^TMP($J,NAME),U,4)=IMRFOR
|
|---|
| 10 | S:(IMRCAT="UNK")&(NAME=ZNAM) IMRU=$P(^TMP($J,NAME),U,5),IMRU=IMRU+1,$P(^TMP($J,NAME),U,5)=IMRU
|
|---|
| 11 | Q
|
|---|
| 12 | TOTCAT S:IMRCAT=1 IMRONE=$P(^TMP("IMRALO",$J),U,1),IMRONE=IMRONE+1,$P(^TMP("IMRALO",$J),U,1)=IMRONE
|
|---|
| 13 | S:IMRCAT=2 IMRTWO=$P(^TMP("IMRALO",$J),U,2),IMRTWO=IMRTWO+1,$P(^TMP("IMRALO",$J),U,2)=IMRTWO
|
|---|
| 14 | S:IMRCAT=3 IMRTHR=$P(^TMP("IMRALO",$J),U,3),IMRTHR=IMRTHR+1,$P(^TMP("IMRALO",$J),U,3)=IMRTHR
|
|---|
| 15 | S:IMRCAT=4 IMRFOR=$P(^TMP("IMRALO",$J),U,4),IMRFOR=IMRFOR+1,$P(^TMP("IMRALO",$J),U,4)=IMRFOR
|
|---|
| 16 | S:IMRCAT="UNK" IMRU=$P(^TMP("IMRALO",$J),U,5),IMRU=IMRU+1,$P(^TMP("IMRALO",$J),U,5)=IMRU
|
|---|
| 17 | Q
|
|---|
