BGP21I7.m

BGP21I7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;

 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 ;

START ;

 K:'$G(ATXPGMC) ^TMP("ATX",$J)

 S ATXPGMC=$G(ATXPGMC)+1

 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"63629-3998-01 ")

 ;;975

 ;;21,"63739-0299-10 ")

 ;;492

 ;;21,"63739-0300-10 ")

 ;;707

 ;;21,"63739-0301-10 ")

 ;;187

 ;;21,"63874-0501-01 ")

 ;;411

 ;;21,"63874-0501-04 ")

 ;;412

 ;;21,"63874-0501-10 ")

 ;;413

 ;;21,"63874-0501-14 ")

 ;;414

 ;;21,"63874-0501-20 ")

 ;;415

 ;;21,"63874-0501-24 ")

 ;;416

 ;;21,"63874-0501-28 ")

 ;;417

 ;;21,"63874-0501-30 ")

 ;;418

 ;;21,"63874-0501-60 ")

 ;;419

 ;;21,"63874-0501-90 ")

 ;;420

 ;;21,"63874-0635-01 ")

 ;;657

 ;;21,"63874-0635-10 ")

 ;;658

 ;;21,"63874-0635-20 ")

 ;;659

 ;;21,"63874-0635-28 ")

 ;;660

 ;;21,"63874-0635-30 ")

 ;;661

 ;;21,"63874-0635-60 ")

 ;;662

 ;;21,"63874-0635-90 ")

 ;;663

 ;;21,"63874-0974-01 ")

 ;;138

 ;;21,"63874-0974-30 ")

 ;;139

 ;;21,"63874-0974-60 ")

 ;;140

 ;;21,"64679-0528-04 ")

 ;;521

 ;;21,"64679-0528-05 ")

 ;;522

 ;;21,"64679-0529-04 ")

 ;;724

 ;;21,"64679-0529-05 ")

 ;;725

 ;;21,"64679-0530-04 ")

 ;;206

 ;;21,"64679-0530-05 ")

 ;;207

 ;;21,"64764-0155-18 ")

 ;;1120

 ;;21,"64764-0155-60 ")

 ;;1121

 ;;21,"64764-0158-18 ")

 ;;1126

 ;;21,"64764-0158-60 ")

 ;;1127

 ;;21,"64764-0310-30 ")

 ;;1129

 ;;21,"64764-0510-30 ")

 ;;1128

 ;;21,"65162-0174-10 ")

 ;;664

 ;;21,"65162-0174-11 ")

 ;;665

 ;;21,"65162-0174-50 ")

 ;;666

 ;;21,"65162-0175-10 ")

 ;;421

 ;;21,"65162-0175-11 ")

 ;;422

 ;;21,"65162-0175-50 ")

 ;;423

 ;;21,"65162-0177-10 ")

 ;;819

 ;;21,"65162-0177-11 ")

 ;;141

 ;;21,"65162-0177-50 ")

 ;;820

 ;;21,"65162-0179-10 ")

 ;;880

 ;;21,"65243-0239-09 ")

 ;;667

 ;;21,"65243-0239-18 ")

 ;;668

 ;;21,"65243-0239-27 ")

 ;;669

 ;;21,"65243-0288-06 ")

 ;;424

 ;;21,"65243-0288-09 ")

 ;;425

 ;;21,"65243-0288-12 ")

 ;;426

 ;;21,"65243-0288-18 ")

 ;;427

 ;;21,"65243-0289-06 ")

 ;;142

 ;;21,"65243-0289-09 ")

 ;;143

 ;;21,"65243-0289-12 ")

 ;;144

 ;;21,"65243-0289-18 ")

 ;;145

 ;;21,"65243-0371-06 ")

 ;;146

 ;;21,"65243-0371-09 ")

 ;;147

 ;;21,"65243-0372-06 ")

 ;;428

 ;;21,"65243-0372-09 ")

 ;;429

 ;;21,"65243-0372-18 ")

 ;;430

 ;;21,"65243-0373-09 ")

 ;;670

 ;;21,"65862-0008-01 ")

 ;;431

 ;;21,"65862-0008-05 ")

 ;;432

 ;;21,"65862-0008-90 ")

 ;;433

 ;;21,"65862-0008-99 ")

 ;;228

 ;;21,"65862-0009-01 ")

 ;;671

 ;;21,"65862-0009-05 ")

 ;;672

 ;;21,"65862-0009-90 ")

 ;;673

 ;;21,"65862-0010-01 ")

 ;;148

 ;;21,"65862-0010-05 ")

 ;;149

 ;;21,"65862-0010-90 ")

 ;;150

 ;;21,"65862-0010-99 ")

 ;;11

 ;;21,"65862-0080-01 ")

 ;;976

 ;;21,"65862-0080-05 ")

 ;;977

 ;;21,"65862-0081-01 ")

 ;;1021

 ;;21,"65862-0081-05 ")

 ;;1022

 ;;21,"65862-0082-01 ")

 ;;1083

 ;;21,"65862-0082-05 ")

 ;;1084

 ;;21,"66116-0233-30 ")

 ;;1023

 ;;21,"66116-0282-60 ")

 ;;434

 ;;21,"66116-0293-30 ")

 ;;151

 ;;21,"66116-0454-30 ")

 ;;435

 ;;21,"66116-0695-60 ")

 ;;436

 ;;21,"66267-0493-14 ")

 ;;437

 ;;21,"66267-0493-30 ")

 ;;438

 ;;21,"66267-0493-60 ")

 ;;439

 ;;21,"66267-0493-90 ")

 ;;440

 ;;21,"66267-0493-91 ")

 ;;441

 ;;21,"66267-0493-92 ")

 ;;442

 ;;21,"66267-0493-93 ")

 ;;443

 ;;21,"66336-0270-30 ")

 ;;821

 ;;21,"66336-0270-60 ")

 ;;822

 ;;21,"66336-0270-90 ")

 ;;823

 ;;21,"66336-0292-60 ")

 ;;824

 ;;21,"66336-0319-30 ")

 ;;1085

 ;;21,"66336-0358-30 ")

 ;;152

 ;;21,"66336-0358-60 ")

 ;;153

 ;;21,"66336-0358-90 ")

 ;;154

 ;;21,"66336-0784-30 ")

 ;;1086

 ;;21,"66336-0784-60 ")

 ;;1087

 ;;21,"66336-0784-90 ")

 ;;1088

 ;;21,"66336-0850-30 ")

 ;;992

 ;;21,"66336-0850-60 ")

 ;;993

 ;;21,"66336-0883-30 ")

 ;;674

 ;;21,"66336-0883-60 ")

 ;;675

 ;;21,"66336-0884-14 ")

 ;;444

 ;;21,"66336-0884-28 ")

 ;;445

 ;;21,"66336-0884-30 ")

 ;;446

 ;;21,"66336-0884-60 ")

 ;;447

 ;;21,"66336-0884-62 ")

 ;;448

 ;;21,"66336-0884-90 ")

 ;;449

 ;;21,"66689-0011-60 ")

 ;;511

 ;;21,"67544-0047-30 ")

 ;;450

 ;;21,"67544-0047-53 ")

 ;;451

 ;;21,"67544-0047-60 ")

 ;;452

 ;;21,"67544-0047-70 ")

 ;;453

 ;;21,"67544-0047-75 ")

 ;;454

 ;;21,"67544-0047-80 ")

 ;;455

 ;;21,"67544-0047-90 ")

 ;;456

 ;;21,"67544-0047-92 ")

 ;;457

 ;;21,"67544-0047-94 ")

 ;;458

 ;;21,"67544-0047-96 ")

 ;;459

 ;;21,"67544-0107-53 ")

 ;;676

 ;;21,"67544-0107-60 ")

 ;;677

 ;;21,"67544-0107-80 ")

 ;;678

 ;;21,"67544-0107-92 ")

 ;;679

 ;;21,"67544-0163-30 ")

 ;;155

 ;;21,"67544-0163-45 ")

 ;;156

 ;;21,"67544-0163-53 ")

 ;;157

 ;;21,"67544-0163-60 ")

 ;;158

 ;;21,"67544-0163-80 ")

 ;;159

 ;;21,"67544-0296-70 ")

 ;;1089

 ;;21,"67544-0364-70 ")

 ;;1090

 ;;21,"67544-0417-70 ")

 ;;1091

 ;;21,"67544-0421-60 ")

 ;;680

 ;;21,"67544-0421-80 ")

 ;;681

 ;;21,"67544-0421-92 ")

 ;;682

 ;;21,"67544-0422-30 ")

 ;;825

 ;;21,"67544-0422-53 ")

 ;;826

 ;;21,"67544-0422-60 ")

 ;;827

 ;;21,"67544-0422-70 ")

 ;;828

 ;;21,"67544-0422-75 ")

 ;;829

 ;;21,"67544-0422-80 ")

 ;;830

 ;;21,"67544-0422-90 ")

 ;;831

 ;;21,"67544-0422-92 ")

 ;;832

 ;;21,"67544-0422-94 ")

 ;;833

 ;;21,"67544-0422-96 ")

 ;;834

 ;;21,"67544-0424-30 ")

 ;;460

 ;;21,"67544-0424-53 ")

 ;;461

 ;;21,"67544-0424-60 ")

 ;;462

BGP21I7   ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;

 +1       ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 +2       ;

START     ;

 +1        IF '$GET(ATXPGMC)

               KILL ^TMP("ATX",$JOB)

 +2        SET ATXPGMC=$GET(ATXPGMC)+1

 +3        FOR ATXI=1:1

               SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               IF X=""

                   QUIT 

               SET X="^TMP(""ATX"",$J,"_X

               SET ATXI=ATXI+1

               SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               SET @X=Y

 +4        QUIT 

 +5       ;

TMP       ;;TAXONOMY (WITH BULLETIN)

 +1       ;;21,"63629-3998-01 ")

 +2       ;;975

 +3       ;;21,"63739-0299-10 ")

 +4       ;;492

 +5       ;;21,"63739-0300-10 ")

 +6       ;;707

 +7       ;;21,"63739-0301-10 ")

 +8       ;;187

 +9       ;;21,"63874-0501-01 ")

 +10      ;;411

 +11      ;;21,"63874-0501-04 ")

 +12      ;;412

 +13      ;;21,"63874-0501-10 ")

 +14      ;;413

 +15      ;;21,"63874-0501-14 ")

 +16      ;;414

 +17      ;;21,"63874-0501-20 ")

 +18      ;;415

 +19      ;;21,"63874-0501-24 ")

 +20      ;;416

 +21      ;;21,"63874-0501-28 ")

 +22      ;;417

 +23      ;;21,"63874-0501-30 ")

 +24      ;;418

 +25      ;;21,"63874-0501-60 ")

 +26      ;;419

 +27      ;;21,"63874-0501-90 ")

 +28      ;;420

 +29      ;;21,"63874-0635-01 ")

 +30      ;;657

 +31      ;;21,"63874-0635-10 ")

 +32      ;;658

 +33      ;;21,"63874-0635-20 ")

 +34      ;;659

 +35      ;;21,"63874-0635-28 ")

 +36      ;;660

 +37      ;;21,"63874-0635-30 ")

 +38      ;;661

 +39      ;;21,"63874-0635-60 ")

 +40      ;;662

 +41      ;;21,"63874-0635-90 ")

 +42      ;;663

 +43      ;;21,"63874-0974-01 ")

 +44      ;;138

 +45      ;;21,"63874-0974-30 ")

 +46      ;;139

 +47      ;;21,"63874-0974-60 ")

 +48      ;;140

 +49      ;;21,"64679-0528-04 ")

 +50      ;;521

 +51      ;;21,"64679-0528-05 ")

 +52      ;;522

 +53      ;;21,"64679-0529-04 ")

 +54      ;;724

 +55      ;;21,"64679-0529-05 ")

 +56      ;;725

 +57      ;;21,"64679-0530-04 ")

 +58      ;;206

 +59      ;;21,"64679-0530-05 ")

 +60      ;;207

 +61      ;;21,"64764-0155-18 ")

 +62      ;;1120

 +63      ;;21,"64764-0155-60 ")

 +64      ;;1121

 +65      ;;21,"64764-0158-18 ")

 +66      ;;1126

 +67      ;;21,"64764-0158-60 ")

 +68      ;;1127

 +69      ;;21,"64764-0310-30 ")

 +70      ;;1129

 +71      ;;21,"64764-0510-30 ")

 +72      ;;1128

 +73      ;;21,"65162-0174-10 ")

 +74      ;;664

 +75      ;;21,"65162-0174-11 ")

 +76      ;;665

 +77      ;;21,"65162-0174-50 ")

 +78      ;;666

 +79      ;;21,"65162-0175-10 ")

 +80      ;;421

 +81      ;;21,"65162-0175-11 ")

 +82      ;;422

 +83      ;;21,"65162-0175-50 ")

 +84      ;;423

 +85      ;;21,"65162-0177-10 ")

 +86      ;;819

 +87      ;;21,"65162-0177-11 ")

 +88      ;;141

 +89      ;;21,"65162-0177-50 ")

 +90      ;;820

 +91      ;;21,"65162-0179-10 ")

 +92      ;;880

 +93      ;;21,"65243-0239-09 ")

 +94      ;;667

 +95      ;;21,"65243-0239-18 ")

 +96      ;;668

 +97      ;;21,"65243-0239-27 ")

 +98      ;;669

 +99      ;;21,"65243-0288-06 ")

 +100     ;;424

 +101     ;;21,"65243-0288-09 ")

 +102     ;;425

 +103     ;;21,"65243-0288-12 ")

 +104     ;;426

 +105     ;;21,"65243-0288-18 ")

 +106     ;;427

 +107     ;;21,"65243-0289-06 ")

 +108     ;;142

 +109     ;;21,"65243-0289-09 ")

 +110     ;;143

 +111     ;;21,"65243-0289-12 ")

 +112     ;;144

 +113     ;;21,"65243-0289-18 ")

 +114     ;;145

 +115     ;;21,"65243-0371-06 ")

 +116     ;;146

 +117     ;;21,"65243-0371-09 ")

 +118     ;;147

 +119     ;;21,"65243-0372-06 ")

 +120     ;;428

 +121     ;;21,"65243-0372-09 ")

 +122     ;;429

 +123     ;;21,"65243-0372-18 ")

 +124     ;;430

 +125     ;;21,"65243-0373-09 ")

 +126     ;;670

 +127     ;;21,"65862-0008-01 ")

 +128     ;;431

 +129     ;;21,"65862-0008-05 ")

 +130     ;;432

 +131     ;;21,"65862-0008-90 ")

 +132     ;;433

 +133     ;;21,"65862-0008-99 ")

 +134     ;;228

 +135     ;;21,"65862-0009-01 ")

 +136     ;;671

 +137     ;;21,"65862-0009-05 ")

 +138     ;;672

 +139     ;;21,"65862-0009-90 ")

 +140     ;;673

 +141     ;;21,"65862-0010-01 ")

 +142     ;;148

 +143     ;;21,"65862-0010-05 ")

 +144     ;;149

 +145     ;;21,"65862-0010-90 ")

 +146     ;;150

 +147     ;;21,"65862-0010-99 ")

 +148     ;;11

 +149     ;;21,"65862-0080-01 ")

 +150     ;;976

 +151     ;;21,"65862-0080-05 ")

 +152     ;;977

 +153     ;;21,"65862-0081-01 ")

 +154     ;;1021

 +155     ;;21,"65862-0081-05 ")

 +156     ;;1022

 +157     ;;21,"65862-0082-01 ")

 +158     ;;1083

 +159     ;;21,"65862-0082-05 ")

 +160     ;;1084

 +161     ;;21,"66116-0233-30 ")

 +162     ;;1023

 +163     ;;21,"66116-0282-60 ")

 +164     ;;434

 +165     ;;21,"66116-0293-30 ")

 +166     ;;151

 +167     ;;21,"66116-0454-30 ")

 +168     ;;435

 +169     ;;21,"66116-0695-60 ")

 +170     ;;436

 +171     ;;21,"66267-0493-14 ")

 +172     ;;437

 +173     ;;21,"66267-0493-30 ")

 +174     ;;438

 +175     ;;21,"66267-0493-60 ")

 +176     ;;439

 +177     ;;21,"66267-0493-90 ")

 +178     ;;440

 +179     ;;21,"66267-0493-91 ")

 +180     ;;441

 +181     ;;21,"66267-0493-92 ")

 +182     ;;442

 +183     ;;21,"66267-0493-93 ")

 +184     ;;443

 +185     ;;21,"66336-0270-30 ")

 +186     ;;821

 +187     ;;21,"66336-0270-60 ")

 +188     ;;822

 +189     ;;21,"66336-0270-90 ")

 +190     ;;823

 +191     ;;21,"66336-0292-60 ")

 +192     ;;824

 +193     ;;21,"66336-0319-30 ")

 +194     ;;1085

 +195     ;;21,"66336-0358-30 ")

 +196     ;;152

 +197     ;;21,"66336-0358-60 ")

 +198     ;;153

 +199     ;;21,"66336-0358-90 ")

 +200     ;;154

 +201     ;;21,"66336-0784-30 ")

 +202     ;;1086

 +203     ;;21,"66336-0784-60 ")

 +204     ;;1087

 +205     ;;21,"66336-0784-90 ")

 +206     ;;1088

 +207     ;;21,"66336-0850-30 ")

 +208     ;;992

 +209     ;;21,"66336-0850-60 ")

 +210     ;;993

 +211     ;;21,"66336-0883-30 ")

 +212     ;;674

 +213     ;;21,"66336-0883-60 ")

 +214     ;;675

 +215     ;;21,"66336-0884-14 ")

 +216     ;;444

 +217     ;;21,"66336-0884-28 ")

 +218     ;;445

 +219     ;;21,"66336-0884-30 ")

 +220     ;;446

 +221     ;;21,"66336-0884-60 ")

 +222     ;;447

 +223     ;;21,"66336-0884-62 ")

 +224     ;;448

 +225     ;;21,"66336-0884-90 ")

 +226     ;;449

 +227     ;;21,"66689-0011-60 ")

 +228     ;;511

 +229     ;;21,"67544-0047-30 ")

 +230     ;;450

 +231     ;;21,"67544-0047-53 ")

 +232     ;;451

 +233     ;;21,"67544-0047-60 ")

 +234     ;;452

 +235     ;;21,"67544-0047-70 ")

 +236     ;;453

 +237     ;;21,"67544-0047-75 ")

 +238     ;;454

 +239     ;;21,"67544-0047-80 ")

 +240     ;;455

 +241     ;;21,"67544-0047-90 ")

 +242     ;;456

 +243     ;;21,"67544-0047-92 ")

 +244     ;;457

 +245     ;;21,"67544-0047-94 ")

 +246     ;;458

 +247     ;;21,"67544-0047-96 ")

 +248     ;;459

 +249     ;;21,"67544-0107-53 ")

 +250     ;;676

 +251     ;;21,"67544-0107-60 ")

 +252     ;;677

 +253     ;;21,"67544-0107-80 ")

 +254     ;;678

 +255     ;;21,"67544-0107-92 ")

 +256     ;;679

 +257     ;;21,"67544-0163-30 ")

 +258     ;;155

 +259     ;;21,"67544-0163-45 ")

 +260     ;;156

 +261     ;;21,"67544-0163-53 ")

 +262     ;;157

 +263     ;;21,"67544-0163-60 ")

 +264     ;;158

 +265     ;;21,"67544-0163-80 ")

 +266     ;;159

 +267     ;;21,"67544-0296-70 ")

 +268     ;;1089

 +269     ;;21,"67544-0364-70 ")

 +270     ;;1090

 +271     ;;21,"67544-0417-70 ")

 +272     ;;1091

 +273     ;;21,"67544-0421-60 ")

 +274     ;;680

 +275     ;;21,"67544-0421-80 ")

 +276     ;;681

 +277     ;;21,"67544-0421-92 ")

 +278     ;;682

 +279     ;;21,"67544-0422-30 ")

 +280     ;;825

 +281     ;;21,"67544-0422-53 ")

 +282     ;;826

 +283     ;;21,"67544-0422-60 ")

 +284     ;;827

 +285     ;;21,"67544-0422-70 ")

 +286     ;;828

 +287     ;;21,"67544-0422-75 ")

 +288     ;;829

 +289     ;;21,"67544-0422-80 ")

 +290     ;;830

 +291     ;;21,"67544-0422-90 ")

 +292     ;;831

 +293     ;;21,"67544-0422-92 ")

 +294     ;;832

 +295     ;;21,"67544-0422-94 ")

 +296     ;;833

 +297     ;;21,"67544-0422-96 ")

 +298     ;;834

 +299     ;;21,"67544-0424-30 ")

 +300     ;;460

 +301     ;;21,"67544-0424-53 ")

 +302     ;;461

 +303     ;;21,"67544-0424-60 ")

 +304     ;;462