source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRSDSP.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: 962 bytes
Line 
1IMRSDSP ; HCIOFO/FAI - VIRAL LOAD AND CD4 TABLE DISPLAY; 11/13/01 07:18
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;**16**;Feb 09, 1998
3 ;
4START S GRP=""
5 F S GRP=$O(^IMR(158.9,1,3,GRP)) Q:GRP="" S GROUP=$P($G(^IMR(158.9,1,3,GRP,0)),U,1) D CD4,VIRAL
6 Q
7CD4 Q:GROUP'=1
8 Q:TTYPE="V"
9 S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
10 D LABS
11 Q
12VIRAL Q:GROUP'=8
13 Q:TTYPE="C"
14 S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
15 D LABS
16 Q
17LABS S B="" F S B=$O(^IMR(158.9,1,3,GRP,B)),C="" Q:B="" F S C=$O(^IMR(158.9,1,3,GRP,B,C)),D="" Q:C="" F S D=$O(^IMR(158.9,1,3,GRP,B,C,D)),L="" Q:D="" F S L=$O(^IMR(158.9,1,3,GRP,B,C,D,"B",L)) Q:L="" D MATCH
18 Q
19MATCH S TE=$P($G(^IMR(158.9,1,3,GRP,B,C,0)),U,1),TYPE=$P($G(^IMR(158.96,TE,0)),U,1)
20 S LBNM=$P($G(^LAB(60,L,0)),U,1)
21 S NODE=$P($G(^LAB(60,L,0)),U,5)
22 Q:NODE=""
23 S IMRDTNM=$P(NODE,";",2)
24 S IMRVALS(IMRDTNM,L)=GRPNM_"^"_TYPE_"^"_LBNM
25 Q
26CLEAR ; Kill Variables
27 K IMRT1,IMRT2,DFN,IMRLD,IMRLD1,IMRLD2,B,C,GRP,TE,TYPE,NODE,GRPNM,D,GROUP
28 Q
Note: See TracBrowser for help on using the repository browser.