BGP21J3.m

BGP21J3 ;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,"17236-0442-01 ")

 ;;539

 ;;21,"17236-0442-10 ")

 ;;540

 ;;21,"21695-0467-30 ")

 ;;949

 ;;21,"21695-0467-60 ")

 ;;950

 ;;21,"21695-0468-30 ")

 ;;1064

 ;;21,"21695-0468-60 ")

 ;;1065

 ;;21,"21695-0468-72 ")

 ;;1066

 ;;21,"21695-0468-78 ")

 ;;1067

 ;;21,"21695-0469-30 ")

 ;;562

 ;;21,"21695-0469-90 ")

 ;;563

 ;;21,"21695-0470-00 ")

 ;;409

 ;;21,"21695-0470-30 ")

 ;;410

 ;;21,"21695-0470-60 ")

 ;;411

 ;;21,"21695-0470-78 ")

 ;;412

 ;;21,"21695-0470-90 ")

 ;;413

 ;;21,"21695-0568-30 ")

 ;;135

 ;;21,"21695-0746-30 ")

 ;;291

 ;;21,"21695-0746-90 ")

 ;;292

 ;;21,"21695-0747-30 ")

 ;;342

 ;;21,"21695-0747-60 ")

 ;;343

 ;;21,"21695-0747-90 ")

 ;;344

 ;;21,"21695-0894-00 ")

 ;;26

 ;;21,"23155-0056-01 ")

 ;;900

 ;;21,"23155-0057-01 ")

 ;;933

 ;;21,"23155-0058-01 ")

 ;;1027

 ;;21,"23155-0058-10 ")

 ;;1028

 ;;21,"23155-0115-01 ")

 ;;6

 ;;21,"23155-0116-01 ")

 ;;16

 ;;21,"23155-0117-01 ")

 ;;32

 ;;21,"23490-5632-01 ")

 ;;414

 ;;21,"23490-5632-02 ")

 ;;415

 ;;21,"23490-5632-03 ")

 ;;416

 ;;21,"23490-5633-01 ")

 ;;712

 ;;21,"23490-5634-03 ")

 ;;564

 ;;21,"23490-5635-03 ")

 ;;777

 ;;21,"23490-5638-01 ")

 ;;951

 ;;21,"23490-5638-02 ")

 ;;952

 ;;21,"23490-5638-04 ")

 ;;934

 ;;21,"23490-5639-01 ")

 ;;1068

 ;;21,"23490-5639-02 ")

 ;;1069

 ;;21,"23490-7449-01 ")

 ;;136

 ;;21,"23629-0022-10 ")

 ;;277

 ;;21,"23629-0023-10 ")

 ;;851

 ;;21,"33261-0209-30 ")

 ;;1029

 ;;21,"33261-0209-60 ")

 ;;1030

 ;;21,"33261-0209-90 ")

 ;;1031

 ;;21,"33358-0157-30 ")

 ;;417

 ;;21,"33358-0157-60 ")

 ;;418

 ;;21,"33358-0158-00 ")

 ;;565

 ;;21,"33358-0158-30 ")

 ;;566

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

 ;;567

 ;;21,"33358-0160-30 ")

 ;;953

 ;;21,"33358-0160-60 ")

 ;;954

 ;;21,"33358-0161-01 ")

 ;;1070

 ;;21,"33358-0161-30 ")

 ;;1071

 ;;21,"33358-0161-60 ")

 ;;1072

 ;;21,"33358-0161-90 ")

 ;;1073

 ;;21,"35356-0121-90 ")

 ;;778

 ;;21,"35356-0360-30 ")

 ;;955

 ;;21,"43063-0034-30 ")

 ;;293

 ;;21,"43063-0034-90 ")

 ;;294

 ;;21,"43063-0119-90 ")

 ;;840

 ;;21,"43063-0120-90 ")

 ;;876

 ;;21,"43063-0121-30 ")

 ;;266

 ;;21,"43063-0121-90 ")

 ;;267

 ;;21,"43063-0122-30 ")

 ;;345

 ;;21,"43063-0122-90 ")

 ;;346

 ;;21,"43353-0369-53 ")

 ;;419

 ;;21,"43353-0369-60 ")

 ;;420

 ;;21,"43353-0369-80 ")

 ;;421

 ;;21,"43353-0369-94 ")

 ;;422

 ;;21,"43353-0379-60 ")

 ;;568

 ;;21,"43353-0379-80 ")

 ;;569

 ;;21,"43353-0582-80 ")

 ;;956

 ;;21,"43353-0656-53 ")

 ;;1032

 ;;21,"43353-0656-60 ")

 ;;1033

 ;;21,"43353-0656-70 ")

 ;;1034

 ;;21,"43353-0656-80 ")

 ;;1035

 ;;21,"43353-0656-92 ")

 ;;1036

 ;;21,"43353-0656-94 ")

 ;;1037

 ;;21,"43353-0659-60 ")

 ;;935

 ;;21,"43683-0123-60 ")

 ;;347

 ;;21,"43683-0124-30 ")

 ;;779

 ;;21,"45802-0770-78 ")

 ;;268

 ;;21,"45802-0822-78 ")

 ;;295

 ;;21,"45802-0947-78 ")

 ;;348

 ;;21,"47463-0241-30 ")

 ;;284

 ;;21,"47463-0242-30 ")

 ;;259

 ;;21,"47463-0243-30 ")

 ;;333

 ;;21,"47463-0243-60 ")

 ;;334

 ;;21,"47463-0244-30 ")

 ;;543

 ;;21,"47463-0245-30 ")

 ;;700

 ;;21,"47463-0245-60 ")

 ;;701

 ;;21,"47463-0246-30 ")

 ;;11

 ;;21,"47463-0247-30 ")

 ;;27

 ;;21,"47463-0248-90 ")

 ;;1038

 ;;21,"49884-0845-01 ")

 ;;281

 ;;21,"49884-0846-01 ")

 ;;328

 ;;21,"49884-0847-01 ")

 ;;385

 ;;21,"49884-0967-01 ")

 ;;76

 ;;21,"49884-0967-05 ")

 ;;77

 ;;21,"49884-0968-01 ")

 ;;113

 ;;21,"49884-0968-05 ")

 ;;121

 ;;21,"49884-0969-01 ")

 ;;200

 ;;21,"49884-0969-05 ")

 ;;201

 ;;21,"49999-0107-00 ")

 ;;423

 ;;21,"49999-0107-20 ")

 ;;424

 ;;21,"49999-0107-30 ")

 ;;425

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

 ;;426

 ;;21,"49999-0107-90 ")

 ;;427

 ;;21,"49999-0108-00 ")

 ;;570

 ;;21,"49999-0108-30 ")

 ;;571

 ;;21,"49999-0108-60 ")

 ;;572

 ;;21,"49999-0113-00 ")

 ;;1074

 ;;21,"49999-0113-01 ")

 ;;1075

 ;;21,"49999-0113-30 ")

 ;;1076

 ;;21,"49999-0113-60 ")

 ;;1077

 ;;21,"49999-0113-90 ")

 ;;1078

 ;;21,"49999-0401-30 ")

 ;;137

 ;;21,"49999-0401-60 ")

 ;;138

 ;;21,"49999-0514-30 ")

 ;;758

 ;;21,"49999-0571-60 ")

 ;;877

 ;;21,"49999-0660-30 ")

 ;;139

 ;;21,"49999-0660-60 ")

 ;;140

 ;;21,"49999-0781-00 ")

 ;;296

 ;;21,"49999-0807-00 ")

 ;;349

 ;;21,"49999-0808-00 ")

 ;;841

 ;;21,"50111-0372-01 ")

 ;;210

 ;;21,"50111-0372-03 ")

 ;;218

 ;;21,"50111-0373-01 ")

 ;;243

 ;;21,"50111-0373-03 ")

 ;;244

 ;;21,"50111-0584-01 ")

 ;;688

 ;;21,"50111-0584-02 ")

 ;;689

 ;;21,"50111-0585-01 ")

 ;;535

 ;;21,"50111-0585-02 ")

 ;;536

 ;;21,"51079-0202-01 ")

 ;;214

 ;;21,"51079-0202-20 ")

 ;;215

 ;;21,"51079-0203-01 ")

 ;;246

 ;;21,"51079-0203-20 ")

 ;;247

 ;;21,"51079-0292-20 ")

 ;;1255

 ;;21,"51079-0293-20 ")

 ;;1268

 ;;21,"51079-0425-01 ")

 ;;297

 ;;21,"51079-0425-20 ")

 ;;298

 ;;21,"51079-0426-01 ")

 ;;350

 ;;21,"51079-0426-20 ")

 ;;351

 ;;21,"51079-0560-01 ")

 ;;1272

 ;;21,"51079-0560-20 ")

 ;;1273

 ;;21,"51079-0810-01 ")

 ;;573

 ;;21,"51079-0810-17 ")

 ;;574

 ;;21,"51079-0810-19 ")

 ;;575

 ;;21,"51079-0810-20 ")

 ;;576

 ;;21,"51079-0811-01 ")

 ;;428

BGP21J3   ;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,"17236-0442-01 ")

 +2       ;;539

 +3       ;;21,"17236-0442-10 ")

 +4       ;;540

 +5       ;;21,"21695-0467-30 ")

 +6       ;;949

 +7       ;;21,"21695-0467-60 ")

 +8       ;;950

 +9       ;;21,"21695-0468-30 ")

 +10      ;;1064

 +11      ;;21,"21695-0468-60 ")

 +12      ;;1065

 +13      ;;21,"21695-0468-72 ")

 +14      ;;1066

 +15      ;;21,"21695-0468-78 ")

 +16      ;;1067

 +17      ;;21,"21695-0469-30 ")

 +18      ;;562

 +19      ;;21,"21695-0469-90 ")

 +20      ;;563

 +21      ;;21,"21695-0470-00 ")

 +22      ;;409

 +23      ;;21,"21695-0470-30 ")

 +24      ;;410

 +25      ;;21,"21695-0470-60 ")

 +26      ;;411

 +27      ;;21,"21695-0470-78 ")

 +28      ;;412

 +29      ;;21,"21695-0470-90 ")

 +30      ;;413

 +31      ;;21,"21695-0568-30 ")

 +32      ;;135

 +33      ;;21,"21695-0746-30 ")

 +34      ;;291

 +35      ;;21,"21695-0746-90 ")

 +36      ;;292

 +37      ;;21,"21695-0747-30 ")

 +38      ;;342

 +39      ;;21,"21695-0747-60 ")

 +40      ;;343

 +41      ;;21,"21695-0747-90 ")

 +42      ;;344

 +43      ;;21,"21695-0894-00 ")

 +44      ;;26

 +45      ;;21,"23155-0056-01 ")

 +46      ;;900

 +47      ;;21,"23155-0057-01 ")

 +48      ;;933

 +49      ;;21,"23155-0058-01 ")

 +50      ;;1027

 +51      ;;21,"23155-0058-10 ")

 +52      ;;1028

 +53      ;;21,"23155-0115-01 ")

 +54      ;;6

 +55      ;;21,"23155-0116-01 ")

 +56      ;;16

 +57      ;;21,"23155-0117-01 ")

 +58      ;;32

 +59      ;;21,"23490-5632-01 ")

 +60      ;;414

 +61      ;;21,"23490-5632-02 ")

 +62      ;;415

 +63      ;;21,"23490-5632-03 ")

 +64      ;;416

 +65      ;;21,"23490-5633-01 ")

 +66      ;;712

 +67      ;;21,"23490-5634-03 ")

 +68      ;;564

 +69      ;;21,"23490-5635-03 ")

 +70      ;;777

 +71      ;;21,"23490-5638-01 ")

 +72      ;;951

 +73      ;;21,"23490-5638-02 ")

 +74      ;;952

 +75      ;;21,"23490-5638-04 ")

 +76      ;;934

 +77      ;;21,"23490-5639-01 ")

 +78      ;;1068

 +79      ;;21,"23490-5639-02 ")

 +80      ;;1069

 +81      ;;21,"23490-7449-01 ")

 +82      ;;136

 +83      ;;21,"23629-0022-10 ")

 +84      ;;277

 +85      ;;21,"23629-0023-10 ")

 +86      ;;851

 +87      ;;21,"33261-0209-30 ")

 +88      ;;1029

 +89      ;;21,"33261-0209-60 ")

 +90      ;;1030

 +91      ;;21,"33261-0209-90 ")

 +92      ;;1031

 +93      ;;21,"33358-0157-30 ")

 +94      ;;417

 +95      ;;21,"33358-0157-60 ")

 +96      ;;418

 +97      ;;21,"33358-0158-00 ")

 +98      ;;565

 +99      ;;21,"33358-0158-30 ")

 +100     ;;566

 +101     ;;21,"33358-0158-60 ")

 +102     ;;567

 +103     ;;21,"33358-0160-30 ")

 +104     ;;953

 +105     ;;21,"33358-0160-60 ")

 +106     ;;954

 +107     ;;21,"33358-0161-01 ")

 +108     ;;1070

 +109     ;;21,"33358-0161-30 ")

 +110     ;;1071

 +111     ;;21,"33358-0161-60 ")

 +112     ;;1072

 +113     ;;21,"33358-0161-90 ")

 +114     ;;1073

 +115     ;;21,"35356-0121-90 ")

 +116     ;;778

 +117     ;;21,"35356-0360-30 ")

 +118     ;;955

 +119     ;;21,"43063-0034-30 ")

 +120     ;;293

 +121     ;;21,"43063-0034-90 ")

 +122     ;;294

 +123     ;;21,"43063-0119-90 ")

 +124     ;;840

 +125     ;;21,"43063-0120-90 ")

 +126     ;;876

 +127     ;;21,"43063-0121-30 ")

 +128     ;;266

 +129     ;;21,"43063-0121-90 ")

 +130     ;;267

 +131     ;;21,"43063-0122-30 ")

 +132     ;;345

 +133     ;;21,"43063-0122-90 ")

 +134     ;;346

 +135     ;;21,"43353-0369-53 ")

 +136     ;;419

 +137     ;;21,"43353-0369-60 ")

 +138     ;;420

 +139     ;;21,"43353-0369-80 ")

 +140     ;;421

 +141     ;;21,"43353-0369-94 ")

 +142     ;;422

 +143     ;;21,"43353-0379-60 ")

 +144     ;;568

 +145     ;;21,"43353-0379-80 ")

 +146     ;;569

 +147     ;;21,"43353-0582-80 ")

 +148     ;;956

 +149     ;;21,"43353-0656-53 ")

 +150     ;;1032

 +151     ;;21,"43353-0656-60 ")

 +152     ;;1033

 +153     ;;21,"43353-0656-70 ")

 +154     ;;1034

 +155     ;;21,"43353-0656-80 ")

 +156     ;;1035

 +157     ;;21,"43353-0656-92 ")

 +158     ;;1036

 +159     ;;21,"43353-0656-94 ")

 +160     ;;1037

 +161     ;;21,"43353-0659-60 ")

 +162     ;;935

 +163     ;;21,"43683-0123-60 ")

 +164     ;;347

 +165     ;;21,"43683-0124-30 ")

 +166     ;;779

 +167     ;;21,"45802-0770-78 ")

 +168     ;;268

 +169     ;;21,"45802-0822-78 ")

 +170     ;;295

 +171     ;;21,"45802-0947-78 ")

 +172     ;;348

 +173     ;;21,"47463-0241-30 ")

 +174     ;;284

 +175     ;;21,"47463-0242-30 ")

 +176     ;;259

 +177     ;;21,"47463-0243-30 ")

 +178     ;;333

 +179     ;;21,"47463-0243-60 ")

 +180     ;;334

 +181     ;;21,"47463-0244-30 ")

 +182     ;;543

 +183     ;;21,"47463-0245-30 ")

 +184     ;;700

 +185     ;;21,"47463-0245-60 ")

 +186     ;;701

 +187     ;;21,"47463-0246-30 ")

 +188     ;;11

 +189     ;;21,"47463-0247-30 ")

 +190     ;;27

 +191     ;;21,"47463-0248-90 ")

 +192     ;;1038

 +193     ;;21,"49884-0845-01 ")

 +194     ;;281

 +195     ;;21,"49884-0846-01 ")

 +196     ;;328

 +197     ;;21,"49884-0847-01 ")

 +198     ;;385

 +199     ;;21,"49884-0967-01 ")

 +200     ;;76

 +201     ;;21,"49884-0967-05 ")

 +202     ;;77

 +203     ;;21,"49884-0968-01 ")

 +204     ;;113

 +205     ;;21,"49884-0968-05 ")

 +206     ;;121

 +207     ;;21,"49884-0969-01 ")

 +208     ;;200

 +209     ;;21,"49884-0969-05 ")

 +210     ;;201

 +211     ;;21,"49999-0107-00 ")

 +212     ;;423

 +213     ;;21,"49999-0107-20 ")

 +214     ;;424

 +215     ;;21,"49999-0107-30 ")

 +216     ;;425

 +217     ;;21,"49999-0107-60 ")

 +218     ;;426

 +219     ;;21,"49999-0107-90 ")

 +220     ;;427

 +221     ;;21,"49999-0108-00 ")

 +222     ;;570

 +223     ;;21,"49999-0108-30 ")

 +224     ;;571

 +225     ;;21,"49999-0108-60 ")

 +226     ;;572

 +227     ;;21,"49999-0113-00 ")

 +228     ;;1074

 +229     ;;21,"49999-0113-01 ")

 +230     ;;1075

 +231     ;;21,"49999-0113-30 ")

 +232     ;;1076

 +233     ;;21,"49999-0113-60 ")

 +234     ;;1077

 +235     ;;21,"49999-0113-90 ")

 +236     ;;1078

 +237     ;;21,"49999-0401-30 ")

 +238     ;;137

 +239     ;;21,"49999-0401-60 ")

 +240     ;;138

 +241     ;;21,"49999-0514-30 ")

 +242     ;;758

 +243     ;;21,"49999-0571-60 ")

 +244     ;;877

 +245     ;;21,"49999-0660-30 ")

 +246     ;;139

 +247     ;;21,"49999-0660-60 ")

 +248     ;;140

 +249     ;;21,"49999-0781-00 ")

 +250     ;;296

 +251     ;;21,"49999-0807-00 ")

 +252     ;;349

 +253     ;;21,"49999-0808-00 ")

 +254     ;;841

 +255     ;;21,"50111-0372-01 ")

 +256     ;;210

 +257     ;;21,"50111-0372-03 ")

 +258     ;;218

 +259     ;;21,"50111-0373-01 ")

 +260     ;;243

 +261     ;;21,"50111-0373-03 ")

 +262     ;;244

 +263     ;;21,"50111-0584-01 ")

 +264     ;;688

 +265     ;;21,"50111-0584-02 ")

 +266     ;;689

 +267     ;;21,"50111-0585-01 ")

 +268     ;;535

 +269     ;;21,"50111-0585-02 ")

 +270     ;;536

 +271     ;;21,"51079-0202-01 ")

 +272     ;;214

 +273     ;;21,"51079-0202-20 ")

 +274     ;;215

 +275     ;;21,"51079-0203-01 ")

 +276     ;;246

 +277     ;;21,"51079-0203-20 ")

 +278     ;;247

 +279     ;;21,"51079-0292-20 ")

 +280     ;;1255

 +281     ;;21,"51079-0293-20 ")

 +282     ;;1268

 +283     ;;21,"51079-0425-01 ")

 +284     ;;297

 +285     ;;21,"51079-0425-20 ")

 +286     ;;298

 +287     ;;21,"51079-0426-01 ")

 +288     ;;350

 +289     ;;21,"51079-0426-20 ")

 +290     ;;351

 +291     ;;21,"51079-0560-01 ")

 +292     ;;1272

 +293     ;;21,"51079-0560-20 ")

 +294     ;;1273

 +295     ;;21,"51079-0810-01 ")

 +296     ;;573

 +297     ;;21,"51079-0810-17 ")

 +298     ;;574

 +299     ;;21,"51079-0810-19 ")

 +300     ;;575

 +301     ;;21,"51079-0810-20 ")

 +302     ;;576

 +303     ;;21,"51079-0811-01 ")

 +304     ;;428