source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRARVCK.m@ 975

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1IMRARVCK ;HIRMFO/FAI-HIV REGISTRY ARV REPORT-ADD SUMMARY ;06/12/00 15:00;
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;**5**;Feb 09, 1998
3 ;
4ADDCATS S ZNAM="" F S ZNAM=$O(^IMR(158.7,"B",ZNAM)) Q:ZNAM="" D ALLCAT
5 Q
6ALLCAT 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
12TOTCAT 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
Note: See TracBrowser for help on using the repository browser.