BGP21L8.m

BGP21L8 ;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,"58016-0365-00 ")

 ;;1288

 ;;21,"58016-0365-30 ")

 ;;1289

 ;;21,"58016-0365-60 ")

 ;;1290

 ;;21,"58016-0365-90 ")

 ;;1291

 ;;21,"58016-0385-00 ")

 ;;1132

 ;;21,"58016-0385-30 ")

 ;;1133

 ;;21,"58016-0385-60 ")

 ;;1134

 ;;21,"58016-0385-90 ")

 ;;1135

 ;;21,"58016-0425-00 ")

 ;;690

 ;;21,"58016-0425-30 ")

 ;;691

 ;;21,"58016-0425-60 ")

 ;;692

 ;;21,"58016-0425-90 ")

 ;;693

 ;;21,"58016-0546-00 ")

 ;;418

 ;;21,"58016-0900-00 ")

 ;;419

 ;;21,"58016-0900-02 ")

 ;;420

 ;;21,"58016-0900-30 ")

 ;;421

 ;;21,"58016-0900-60 ")

 ;;422

 ;;21,"58016-0900-90 ")

 ;;423

 ;;21,"58016-0922-00 ")

 ;;526

 ;;21,"58016-0922-02 ")

 ;;527

 ;;21,"58016-0922-30 ")

 ;;528

 ;;21,"58016-0922-60 ")

 ;;529

 ;;21,"58016-0922-90 ")

 ;;530

 ;;21,"58016-0979-00 ")

 ;;315

 ;;21,"58016-0979-02 ")

 ;;316

 ;;21,"58016-0979-20 ")

 ;;317

 ;;21,"58016-0979-30 ")

 ;;318

 ;;21,"58016-0979-60 ")

 ;;319

 ;;21,"58016-0979-90 ")

 ;;320

 ;;21,"58864-0608-30 ")

 ;;126

 ;;21,"58864-0623-15 ")

 ;;197

 ;;21,"58864-0623-30 ")

 ;;198

 ;;21,"58864-0653-30 ")

 ;;614

 ;;21,"58864-0682-30 ")

 ;;1292

 ;;21,"58864-0685-30 ")

 ;;159

 ;;21,"58864-0739-30 ")

 ;;1386

 ;;21,"58864-0743-15 ")

 ;;784

 ;;21,"58864-0743-30 ")

 ;;785

 ;;21,"58864-0760-30 ")

 ;;1136

 ;;21,"58864-0780-30 ")

 ;;424

 ;;21,"58864-0780-60 ")

 ;;425

 ;;21,"58864-0781-30 ")

 ;;321

 ;;21,"58864-0834-30 ")

 ;;224

 ;;21,"59630-0628-30 ")

 ;;566

 ;;21,"59630-0629-30 ")

 ;;570

 ;;21,"59630-0630-30 ")

 ;;574

 ;;21,"60429-0248-10 ")

 ;;322

 ;;21,"60429-0248-60 ")

 ;;323

 ;;21,"60429-0249-10 ")

 ;;426

 ;;21,"60429-0249-60 ")

 ;;427

 ;;21,"60429-0250-10 ")

 ;;531

 ;;21,"60429-0250-60 ")

 ;;532

 ;;21,"60429-0250-90 ")

 ;;533

 ;;21,"60505-0168-05 ")

 ;;615

 ;;21,"60505-0168-09 ")

 ;;616

 ;;21,"60505-0169-07 ")

 ;;694

 ;;21,"60505-0169-09 ")

 ;;695

 ;;21,"60505-0170-07 ")

 ;;786

 ;;21,"60505-0170-08 ")

 ;;787

 ;;21,"60505-0170-09 ")

 ;;788

 ;;21,"60505-0177-00 ")

 ;;324

 ;;21,"60505-0178-00 ")

 ;;428

 ;;21,"60505-0179-00 ")

 ;;534

 ;;21,"60505-1323-05 ")

 ;;826

 ;;21,"60505-1323-09 ")

 ;;827

 ;;21,"60598-0006-90 ")

 ;;1528

 ;;21,"60598-0007-90 ")

 ;;1535

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

 ;;1521

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

 ;;1524

 ;;21,"61442-0141-01 ")

 ;;325

 ;;21,"61442-0141-10 ")

 ;;326

 ;;21,"61442-0141-60 ")

 ;;327

 ;;21,"61442-0142-01 ")

 ;;429

 ;;21,"61442-0142-05 ")

 ;;430

 ;;21,"61442-0142-10 ")

 ;;431

 ;;21,"61442-0142-60 ")

 ;;432

 ;;21,"61442-0143-01 ")

 ;;535

 ;;21,"61442-0143-05 ")

 ;;536

 ;;21,"61442-0143-10 ")

 ;;537

 ;;21,"61442-0143-60 ")

 ;;538

 ;;21,"62022-0627-30 ")

 ;;563

 ;;21,"62022-0628-30 ")

 ;;565

 ;;21,"62022-0629-30 ")

 ;;568

 ;;21,"62022-0630-30 ")

 ;;572

 ;;21,"62022-0760-30 ")

 ;;562

 ;;21,"62022-0770-30 ")

 ;;564

 ;;21,"62022-0780-30 ")

 ;;567

 ;;21,"62022-0781-30 ")

 ;;571

 ;;21,"62037-0791-01 ")

 ;;263

 ;;21,"62037-0791-60 ")

 ;;275

 ;;21,"62037-0792-01 ")

 ;;341

 ;;21,"62037-0792-60 ")

 ;;357

 ;;21,"62037-0793-01 ")

 ;;468

 ;;21,"62037-0793-60 ")

 ;;469

 ;;21,"63304-0595-90 ")

 ;;617

 ;;21,"63304-0596-90 ")

 ;;696

 ;;21,"63304-0597-90 ")

 ;;789

 ;;21,"63304-0598-05 ")

 ;;828

 ;;21,"63304-0598-90 ")

 ;;829

 ;;21,"63304-0789-10 ")

 ;;1387

 ;;21,"63304-0789-30 ")

 ;;1341

 ;;21,"63304-0789-90 ")

 ;;1388

 ;;21,"63304-0790-10 ")

 ;;997

 ;;21,"63304-0790-30 ")

 ;;919

 ;;21,"63304-0790-90 ")

 ;;998

 ;;21,"63304-0791-10 ")

 ;;1137

 ;;21,"63304-0791-30 ")

 ;;1036

 ;;21,"63304-0791-90 ")

 ;;1138

 ;;21,"63304-0792-10 ")

 ;;1293

 ;;21,"63304-0792-30 ")

 ;;1187

 ;;21,"63304-0792-90 ")

 ;;1294

 ;;21,"63304-0793-10 ")

 ;;1481

 ;;21,"63304-0793-30 ")

 ;;1411

 ;;21,"63304-0793-50 ")

 ;;1482

 ;;21,"63304-0793-90 ")

 ;;1483

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

 ;;160

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

 ;;433

 ;;21,"63629-1464-02 ")

 ;;434

 ;;21,"63629-1464-03 ")

 ;;435

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

 ;;790

 ;;21,"63629-1606-02 ")

 ;;791

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

 ;;539

 ;;21,"63629-1784-02 ")

 ;;540

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

 ;;225

 ;;21,"63629-3366-02 ")

 ;;226

 ;;21,"63629-3366-03 ")

 ;;227

 ;;21,"63629-3366-04 ")

 ;;228

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

 ;;857

 ;;21,"63629-3381-02 ")

 ;;858

 ;;21,"63629-3381-03 ")

 ;;859

 ;;21,"63629-3381-04 ")

 ;;860

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

 ;;1295

 ;;21,"63629-3385-02 ")

 ;;1296

 ;;21,"63629-3385-03 ")

 ;;1297

 ;;21,"63629-3385-04 ")

 ;;1298

 ;;21,"63629-3385-05 ")

 ;;1299

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

 ;;999

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

 ;;1139

 ;;21,"63629-3393-02 ")

 ;;1140

 ;;21,"63629-3393-03 ")

 ;;1141

 ;;21,"63629-3393-04 ")

 ;;1142

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

 ;;1484

 ;;21,"63629-3408-02 ")

 ;;1485

 ;;21,"63629-3408-03 ")

 ;;1486

 ;;21,"63629-3408-04 ")

 ;;1487

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

 ;;697

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

 ;;328

 ;;21,"63629-3583-02 ")

 ;;329

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

 ;;264

 ;;21,"63739-0280-15 ")

 ;;265

 ;;21,"63739-0281-03 ")

 ;;350

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

 ;;436

BGP21L8   ;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,"58016-0365-00 ")

 +2       ;;1288

 +3       ;;21,"58016-0365-30 ")

 +4       ;;1289

 +5       ;;21,"58016-0365-60 ")

 +6       ;;1290

 +7       ;;21,"58016-0365-90 ")

 +8       ;;1291

 +9       ;;21,"58016-0385-00 ")

 +10      ;;1132

 +11      ;;21,"58016-0385-30 ")

 +12      ;;1133

 +13      ;;21,"58016-0385-60 ")

 +14      ;;1134

 +15      ;;21,"58016-0385-90 ")

 +16      ;;1135

 +17      ;;21,"58016-0425-00 ")

 +18      ;;690

 +19      ;;21,"58016-0425-30 ")

 +20      ;;691

 +21      ;;21,"58016-0425-60 ")

 +22      ;;692

 +23      ;;21,"58016-0425-90 ")

 +24      ;;693

 +25      ;;21,"58016-0546-00 ")

 +26      ;;418

 +27      ;;21,"58016-0900-00 ")

 +28      ;;419

 +29      ;;21,"58016-0900-02 ")

 +30      ;;420

 +31      ;;21,"58016-0900-30 ")

 +32      ;;421

 +33      ;;21,"58016-0900-60 ")

 +34      ;;422

 +35      ;;21,"58016-0900-90 ")

 +36      ;;423

 +37      ;;21,"58016-0922-00 ")

 +38      ;;526

 +39      ;;21,"58016-0922-02 ")

 +40      ;;527

 +41      ;;21,"58016-0922-30 ")

 +42      ;;528

 +43      ;;21,"58016-0922-60 ")

 +44      ;;529

 +45      ;;21,"58016-0922-90 ")

 +46      ;;530

 +47      ;;21,"58016-0979-00 ")

 +48      ;;315

 +49      ;;21,"58016-0979-02 ")

 +50      ;;316

 +51      ;;21,"58016-0979-20 ")

 +52      ;;317

 +53      ;;21,"58016-0979-30 ")

 +54      ;;318

 +55      ;;21,"58016-0979-60 ")

 +56      ;;319

 +57      ;;21,"58016-0979-90 ")

 +58      ;;320

 +59      ;;21,"58864-0608-30 ")

 +60      ;;126

 +61      ;;21,"58864-0623-15 ")

 +62      ;;197

 +63      ;;21,"58864-0623-30 ")

 +64      ;;198

 +65      ;;21,"58864-0653-30 ")

 +66      ;;614

 +67      ;;21,"58864-0682-30 ")

 +68      ;;1292

 +69      ;;21,"58864-0685-30 ")

 +70      ;;159

 +71      ;;21,"58864-0739-30 ")

 +72      ;;1386

 +73      ;;21,"58864-0743-15 ")

 +74      ;;784

 +75      ;;21,"58864-0743-30 ")

 +76      ;;785

 +77      ;;21,"58864-0760-30 ")

 +78      ;;1136

 +79      ;;21,"58864-0780-30 ")

 +80      ;;424

 +81      ;;21,"58864-0780-60 ")

 +82      ;;425

 +83      ;;21,"58864-0781-30 ")

 +84      ;;321

 +85      ;;21,"58864-0834-30 ")

 +86      ;;224

 +87      ;;21,"59630-0628-30 ")

 +88      ;;566

 +89      ;;21,"59630-0629-30 ")

 +90      ;;570

 +91      ;;21,"59630-0630-30 ")

 +92      ;;574

 +93      ;;21,"60429-0248-10 ")

 +94      ;;322

 +95      ;;21,"60429-0248-60 ")

 +96      ;;323

 +97      ;;21,"60429-0249-10 ")

 +98      ;;426

 +99      ;;21,"60429-0249-60 ")

 +100     ;;427

 +101     ;;21,"60429-0250-10 ")

 +102     ;;531

 +103     ;;21,"60429-0250-60 ")

 +104     ;;532

 +105     ;;21,"60429-0250-90 ")

 +106     ;;533

 +107     ;;21,"60505-0168-05 ")

 +108     ;;615

 +109     ;;21,"60505-0168-09 ")

 +110     ;;616

 +111     ;;21,"60505-0169-07 ")

 +112     ;;694

 +113     ;;21,"60505-0169-09 ")

 +114     ;;695

 +115     ;;21,"60505-0170-07 ")

 +116     ;;786

 +117     ;;21,"60505-0170-08 ")

 +118     ;;787

 +119     ;;21,"60505-0170-09 ")

 +120     ;;788

 +121     ;;21,"60505-0177-00 ")

 +122     ;;324

 +123     ;;21,"60505-0178-00 ")

 +124     ;;428

 +125     ;;21,"60505-0179-00 ")

 +126     ;;534

 +127     ;;21,"60505-1323-05 ")

 +128     ;;826

 +129     ;;21,"60505-1323-09 ")

 +130     ;;827

 +131     ;;21,"60598-0006-90 ")

 +132     ;;1528

 +133     ;;21,"60598-0007-90 ")

 +134     ;;1535

 +135     ;;21,"60598-0008-90 ")

 +136     ;;1521

 +137     ;;21,"60598-0009-90 ")

 +138     ;;1524

 +139     ;;21,"61442-0141-01 ")

 +140     ;;325

 +141     ;;21,"61442-0141-10 ")

 +142     ;;326

 +143     ;;21,"61442-0141-60 ")

 +144     ;;327

 +145     ;;21,"61442-0142-01 ")

 +146     ;;429

 +147     ;;21,"61442-0142-05 ")

 +148     ;;430

 +149     ;;21,"61442-0142-10 ")

 +150     ;;431

 +151     ;;21,"61442-0142-60 ")

 +152     ;;432

 +153     ;;21,"61442-0143-01 ")

 +154     ;;535

 +155     ;;21,"61442-0143-05 ")

 +156     ;;536

 +157     ;;21,"61442-0143-10 ")

 +158     ;;537

 +159     ;;21,"61442-0143-60 ")

 +160     ;;538

 +161     ;;21,"62022-0627-30 ")

 +162     ;;563

 +163     ;;21,"62022-0628-30 ")

 +164     ;;565

 +165     ;;21,"62022-0629-30 ")

 +166     ;;568

 +167     ;;21,"62022-0630-30 ")

 +168     ;;572

 +169     ;;21,"62022-0760-30 ")

 +170     ;;562

 +171     ;;21,"62022-0770-30 ")

 +172     ;;564

 +173     ;;21,"62022-0780-30 ")

 +174     ;;567

 +175     ;;21,"62022-0781-30 ")

 +176     ;;571

 +177     ;;21,"62037-0791-01 ")

 +178     ;;263

 +179     ;;21,"62037-0791-60 ")

 +180     ;;275

 +181     ;;21,"62037-0792-01 ")

 +182     ;;341

 +183     ;;21,"62037-0792-60 ")

 +184     ;;357

 +185     ;;21,"62037-0793-01 ")

 +186     ;;468

 +187     ;;21,"62037-0793-60 ")

 +188     ;;469

 +189     ;;21,"63304-0595-90 ")

 +190     ;;617

 +191     ;;21,"63304-0596-90 ")

 +192     ;;696

 +193     ;;21,"63304-0597-90 ")

 +194     ;;789

 +195     ;;21,"63304-0598-05 ")

 +196     ;;828

 +197     ;;21,"63304-0598-90 ")

 +198     ;;829

 +199     ;;21,"63304-0789-10 ")

 +200     ;;1387

 +201     ;;21,"63304-0789-30 ")

 +202     ;;1341

 +203     ;;21,"63304-0789-90 ")

 +204     ;;1388

 +205     ;;21,"63304-0790-10 ")

 +206     ;;997

 +207     ;;21,"63304-0790-30 ")

 +208     ;;919

 +209     ;;21,"63304-0790-90 ")

 +210     ;;998

 +211     ;;21,"63304-0791-10 ")

 +212     ;;1137

 +213     ;;21,"63304-0791-30 ")

 +214     ;;1036

 +215     ;;21,"63304-0791-90 ")

 +216     ;;1138

 +217     ;;21,"63304-0792-10 ")

 +218     ;;1293

 +219     ;;21,"63304-0792-30 ")

 +220     ;;1187

 +221     ;;21,"63304-0792-90 ")

 +222     ;;1294

 +223     ;;21,"63304-0793-10 ")

 +224     ;;1481

 +225     ;;21,"63304-0793-30 ")

 +226     ;;1411

 +227     ;;21,"63304-0793-50 ")

 +228     ;;1482

 +229     ;;21,"63304-0793-90 ")

 +230     ;;1483

 +231     ;;21,"63629-1447-01 ")

 +232     ;;160

 +233     ;;21,"63629-1464-01 ")

 +234     ;;433

 +235     ;;21,"63629-1464-02 ")

 +236     ;;434

 +237     ;;21,"63629-1464-03 ")

 +238     ;;435

 +239     ;;21,"63629-1606-01 ")

 +240     ;;790

 +241     ;;21,"63629-1606-02 ")

 +242     ;;791

 +243     ;;21,"63629-1784-01 ")

 +244     ;;539

 +245     ;;21,"63629-1784-02 ")

 +246     ;;540

 +247     ;;21,"63629-3366-01 ")

 +248     ;;225

 +249     ;;21,"63629-3366-02 ")

 +250     ;;226

 +251     ;;21,"63629-3366-03 ")

 +252     ;;227

 +253     ;;21,"63629-3366-04 ")

 +254     ;;228

 +255     ;;21,"63629-3381-01 ")

 +256     ;;857

 +257     ;;21,"63629-3381-02 ")

 +258     ;;858

 +259     ;;21,"63629-3381-03 ")

 +260     ;;859

 +261     ;;21,"63629-3381-04 ")

 +262     ;;860

 +263     ;;21,"63629-3385-01 ")

 +264     ;;1295

 +265     ;;21,"63629-3385-02 ")

 +266     ;;1296

 +267     ;;21,"63629-3385-03 ")

 +268     ;;1297

 +269     ;;21,"63629-3385-04 ")

 +270     ;;1298

 +271     ;;21,"63629-3385-05 ")

 +272     ;;1299

 +273     ;;21,"63629-3392-01 ")

 +274     ;;999

 +275     ;;21,"63629-3393-01 ")

 +276     ;;1139

 +277     ;;21,"63629-3393-02 ")

 +278     ;;1140

 +279     ;;21,"63629-3393-03 ")

 +280     ;;1141

 +281     ;;21,"63629-3393-04 ")

 +282     ;;1142

 +283     ;;21,"63629-3408-01 ")

 +284     ;;1484

 +285     ;;21,"63629-3408-02 ")

 +286     ;;1485

 +287     ;;21,"63629-3408-03 ")

 +288     ;;1486

 +289     ;;21,"63629-3408-04 ")

 +290     ;;1487

 +291     ;;21,"63629-3563-01 ")

 +292     ;;697

 +293     ;;21,"63629-3583-01 ")

 +294     ;;328

 +295     ;;21,"63629-3583-02 ")

 +296     ;;329

 +297     ;;21,"63739-0280-10 ")

 +298     ;;264

 +299     ;;21,"63739-0280-15 ")

 +300     ;;265

 +301     ;;21,"63739-0281-03 ")

 +302     ;;350

 +303     ;;21,"63739-0281-10 ")

 +304     ;;436