source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRBDLB.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.1 KB
Line 
1IMRBDLB ; HCIOFO/FAI - BACK PULL OF LAB DATA; 03/23/01 10:51
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;**13**;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,LIPIDS,SEROLH,CHLIV,BLOCN
6 Q
7CD4 Q:GROUP'=1
8 S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
9 D LABS
10 Q
11VIRAL Q:GROUP'=8
12 S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
13 D LABS
14 Q
15LIPIDS Q:GROUP'=7
16 S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
17 D LABS
18 Q
19SEROLH Q:GROUP'=5
20 S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
21 D LABS
22 Q
23CHLIV Q:GROUP'=9
24 S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
25 D LABS
26 Q
27BLOCN Q:GROUP'=10
28 S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
29 D LABS
30 Q
31LABS 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
32 Q
33MATCH S LBNM=$P($G(^LAB(60,L,0)),U,1)
34 S NODE=$P($G(^LAB(60,L,0)),U,5)
35 Q:NODE=""
36 S IMRDTNM=$P(NODE,";",2)
37 S IMRVALS(IMRDTNM)=""
38 Q
39CLEAR ; Kill Variables
40 K IMRT1,IMRT2,DFN,IMRLD,IMRLD1,IMRLD2
41 Q
Note: See TracBrowser for help on using the repository browser.