source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRLBTY.m@ 1459

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

initial load of WorldVistAEHR

File size: 632 bytes
Line 
1IMRLBTY ; 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
4START 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
6M 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
10CLEAR ; Kill Variables
11 K IMRT1,IMRT2,DFN,IMRLD,IMRLD1,IMRLD2
12 Q
Note: See TracBrowser for help on using the repository browser.