| 1 | IMRLBTY ; HCIOFO/FAI - ADD LAB TYPE TO EXTRACT ; 03/23/01 10:51
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;**13**;Feb 09, 1998
|
|---|
| 3 | ; Process new entries first, then process existing entries
|
|---|
| 4 | START S A="" F S A=$O(^IMR(158.9,1,3,A)),B="" Q:A="" F S B=$O(^IMR(158.9,1,3,A,B)),C="" Q:B="" F S C=$O(^IMR(158.9,1,3,A,B,C)),D="" Q:C="" F S D=$O(^IMR(158.9,1,3,A,B,C,D)),L="" Q:D="" F S L=$O(^IMR(158.9,1,3,A,B,C,D,"B",L)) Q:L="" D M
|
|---|
| 5 | Q
|
|---|
| 6 | M S IMRGR=$P($G(^IMR(158.9,1,3,A,B,C,0)),U,1)
|
|---|
| 7 | S GROUP=$P($G(^IMR(158.96,IMRGR,0)),U,1)
|
|---|
| 8 | S:L=IMRLABT $P(^TMP($J,"IMRX",IMRC),U,10)=GROUP
|
|---|
| 9 | Q
|
|---|
| 10 | CLEAR ; Kill Variables
|
|---|
| 11 | K IMRT1,IMRT2,DFN,IMRLD,IMRLD1,IMRLD2
|
|---|
| 12 | Q
|
|---|
