| [613] | 1 | IMRBDLB ; HCIOFO/FAI - BACK PULL OF LAB DATA; 03/23/01 10:51
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;**13**;Feb 09, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | START 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
|
|---|
| 7 | CD4 Q:GROUP'=1
|
|---|
| 8 | S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
|
|---|
| 9 | D LABS
|
|---|
| 10 | Q
|
|---|
| 11 | VIRAL Q:GROUP'=8
|
|---|
| 12 | S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
|
|---|
| 13 | D LABS
|
|---|
| 14 | Q
|
|---|
| 15 | LIPIDS Q:GROUP'=7
|
|---|
| 16 | S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
|
|---|
| 17 | D LABS
|
|---|
| 18 | Q
|
|---|
| 19 | SEROLH Q:GROUP'=5
|
|---|
| 20 | S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
|
|---|
| 21 | D LABS
|
|---|
| 22 | Q
|
|---|
| 23 | CHLIV Q:GROUP'=9
|
|---|
| 24 | S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
|
|---|
| 25 | D LABS
|
|---|
| 26 | Q
|
|---|
| 27 | BLOCN Q:GROUP'=10
|
|---|
| 28 | S GRPNM=$P($G(^IMR(158.95,GROUP,0)),U,1)
|
|---|
| 29 | D LABS
|
|---|
| 30 | Q
|
|---|
| 31 | LABS 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
|
|---|
| 33 | MATCH 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
|
|---|
| 39 | CLEAR ; Kill Variables
|
|---|
| 40 | K IMRT1,IMRT2,DFN,IMRLD,IMRLD1,IMRLD2
|
|---|
| 41 | Q
|
|---|
