Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP14A3

BGP14A3.m

Go to the documentation of this file.
BGP14A3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"55887-0368-30 ")
 ;;186
 ;;21,"55887-0368-60 ")
 ;;187
 ;;21,"55887-0368-90 ")
 ;;188
 ;;21,"55887-0535-30 ")
 ;;949
 ;;21,"55887-0535-60 ")
 ;;950
 ;;21,"55887-0535-90 ")
 ;;951
 ;;21,"55887-0536-30 ")
 ;;1081
 ;;21,"55887-0536-60 ")
 ;;1082
 ;;21,"55887-0536-90 ")
 ;;1083
 ;;21,"55887-0693-30 ")
 ;;446
 ;;21,"55887-0693-60 ")
 ;;447
 ;;21,"55887-0693-90 ")
 ;;448
 ;;21,"55887-0727-30 ")
 ;;595
 ;;21,"55887-0727-60 ")
 ;;596
 ;;21,"55887-0727-90 ")
 ;;597
 ;;21,"55887-0965-30 ")
 ;;886
 ;;21,"55887-0968-30 ")
 ;;707
 ;;21,"55887-0969-30 ")
 ;;770
 ;;21,"57664-0398-13 ")
 ;;598
 ;;21,"57664-0398-18 ")
 ;;599
 ;;21,"57664-0398-88 ")
 ;;600
 ;;21,"57664-0399-13 ")
 ;;449
 ;;21,"57664-0399-18 ")
 ;;450
 ;;21,"57664-0399-88 ")
 ;;451
 ;;21,"57664-0724-88 ")
 ;;39
 ;;21,"57664-0725-88 ")
 ;;23
 ;;21,"57664-0727-88 ")
 ;;9
 ;;21,"57866-0236-01 ")
 ;;601
 ;;21,"57866-0237-01 ")
 ;;952
 ;;21,"57866-6302-01 ")
 ;;771
 ;;21,"57866-6409-01 ")
 ;;1084
 ;;21,"57866-6409-02 ")
 ;;1085
 ;;21,"57866-6409-03 ")
 ;;1086
 ;;21,"57866-6409-04 ")
 ;;1087
 ;;21,"57866-6409-05 ")
 ;;1088
 ;;21,"57866-6409-06 ")
 ;;1089
 ;;21,"57866-6462-01 ")
 ;;452
 ;;21,"57866-6462-02 ")
 ;;453
 ;;21,"57866-6463-01 ")
 ;;602
 ;;21,"57866-6463-02 ")
 ;;603
 ;;21,"57866-7073-01 ")
 ;;304
 ;;21,"57866-7073-02 ")
 ;;305
 ;;21,"57866-7074-01 ")
 ;;351
 ;;21,"57866-7074-02 ")
 ;;352
 ;;21,"57866-7991-01 ")
 ;;189
 ;;21,"58016-0005-00 ")
 ;;306
 ;;21,"58016-0005-30 ")
 ;;307
 ;;21,"58016-0005-60 ")
 ;;308
 ;;21,"58016-0005-90 ")
 ;;309
 ;;21,"58016-0058-00 ")
 ;;65
 ;;21,"58016-0058-30 ")
 ;;66
 ;;21,"58016-0058-60 ")
 ;;67
 ;;21,"58016-0058-90 ")
 ;;68
 ;;21,"58016-0334-00 ")
 ;;772
 ;;21,"58016-0334-02 ")
 ;;773
 ;;21,"58016-0334-30 ")
 ;;774
 ;;21,"58016-0334-60 ")
 ;;775
 ;;21,"58016-0334-90 ")
 ;;776
 ;;21,"58016-0370-30 ")
 ;;1219
 ;;21,"58016-0376-00 ")
 ;;454
 ;;21,"58016-0376-02 ")
 ;;455
 ;;21,"58016-0376-30 ")
 ;;456
 ;;21,"58016-0376-60 ")
 ;;457
 ;;21,"58016-0376-90 ")
 ;;458
 ;;21,"58016-0376-99 ")
 ;;459
 ;;21,"58016-0378-00 ")
 ;;1090
 ;;21,"58016-0378-02 ")
 ;;1091
 ;;21,"58016-0378-30 ")
 ;;1092
 ;;21,"58016-0378-60 ")
 ;;1093
 ;;21,"58016-0378-90 ")
 ;;1094
 ;;21,"58016-0378-99 ")
 ;;1095
 ;;21,"58016-0411-00 ")
 ;;190
 ;;21,"58016-0411-02 ")
 ;;121
 ;;21,"58016-0411-30 ")
 ;;122
 ;;21,"58016-0411-60 ")
 ;;123
 ;;21,"58016-0411-90 ")
 ;;124
 ;;21,"58016-0467-00 ")
 ;;353
 ;;21,"58016-0467-30 ")
 ;;354
 ;;21,"58016-0467-60 ")
 ;;355
 ;;21,"58016-0467-90 ")
 ;;356
 ;;21,"58016-0691-00 ")
 ;;708
 ;;21,"58016-0691-30 ")
 ;;709
 ;;21,"58016-0691-60 ")
 ;;710
 ;;21,"58016-0691-90 ")
 ;;711
 ;;21,"58016-0844-00 ")
 ;;357
 ;;21,"58016-0844-30 ")
 ;;358
 ;;21,"58016-0844-60 ")
 ;;359
 ;;21,"58016-0844-90 ")
 ;;360
 ;;21,"58016-0876-00 ")
 ;;604
 ;;21,"58016-0876-10 ")
 ;;605
 ;;21,"58016-0876-12 ")
 ;;606
 ;;21,"58016-0876-14 ")
 ;;607
 ;;21,"58016-0876-15 ")
 ;;608
 ;;21,"58016-0876-20 ")
 ;;609
 ;;21,"58016-0876-21 ")
 ;;610
 ;;21,"58016-0876-24 ")
 ;;611
 ;;21,"58016-0876-28 ")
 ;;612
 ;;21,"58016-0876-30 ")
 ;;613
 ;;21,"58016-0876-40 ")
 ;;614
 ;;21,"58016-0876-50 ")
 ;;615
 ;;21,"58016-0876-60 ")
 ;;616
 ;;21,"58864-0027-14 ")
 ;;617
 ;;21,"58864-0027-30 ")
 ;;618
 ;;21,"58864-0027-60 ")
 ;;619
 ;;21,"58864-0027-90 ")
 ;;620
 ;;21,"58864-0100-30 ")
 ;;213
 ;;21,"58864-0161-30 ")
 ;;460
 ;;21,"58864-0161-60 ")
 ;;461
 ;;21,"58864-0214-30 ")
 ;;1096
 ;;21,"58864-0214-60 ")
 ;;1097
 ;;21,"58864-0224-30 ")
 ;;1098
 ;;21,"58864-0224-60 ")
 ;;1099
 ;;21,"58864-0224-93 ")
 ;;1100
 ;;21,"58864-0689-30 ")
 ;;712
 ;;21,"58864-0689-60 ")
 ;;713
 ;;21,"58864-0705-30 ")
 ;;777
 ;;21,"58864-0711-30 ")
 ;;107
 ;;21,"58864-0858-30 ")
 ;;738
 ;;21,"58864-0952-30 ")
 ;;108
 ;;21,"58864-0953-30 ")
 ;;125
 ;;21,"58864-0956-30 ")
 ;;714
 ;;21,"58864-0957-30 ")
 ;;778
 ;;21,"59762-2330-07 ")
 ;;72
 ;;21,"59762-2331-06 ")
 ;;115
 ;;21,"59762-2331-08 ")
 ;;116
 ;;21,"59762-2332-06 ")
 ;;191
 ;;21,"59762-2332-08 ")
 ;;192
 ;;21,"59762-3725-01 ")
 ;;887
 ;;21,"59762-3726-03 ")
 ;;953
 ;;21,"59762-3727-04 ")
 ;;1101
 ;;21,"59762-3727-06 ")
 ;;1102
 ;;21,"59762-3727-07 ")
 ;;1103
 ;;21,"59762-3781-01 ")
 ;;800
 ;;21,"59762-3782-01 ")
 ;;835
 ;;21,"59762-3782-03 ")
 ;;836
 ;;21,"59762-3783-01 ")
 ;;866
 ;;21,"59762-3783-02 ")
 ;;867
 ;;21,"59762-3783-03 ")
 ;;868
 ;;21,"59762-5031-01 ")
 ;;739
 ;;21,"59762-5032-01 ")
 ;;779
 ;;21,"59762-5032-02 ")
 ;;780
 ;;21,"59762-5033-01 ")
 ;;715
 ;;21,"59762-5033-02 ")
 ;;716
 ;;21,"59762-7020-09 ")
 ;;905
 ;;21,"59762-7021-05 ")
 ;;991
 ;;21,"59762-7021-09 ")
 ;;992
 ;;21,"59762-7022-05 ")
 ;;1199
 ;;21,"59762-7022-09 ")
 ;;1200
 ;;21,"60346-0457-30 ")
 ;;717
 ;;21,"60346-0513-60 ")
 ;;837
 ;;21,"60346-0613-30 ")
 ;;462
 ;;21,"60346-0633-30 ")
 ;;236
 ;;21,"60346-0633-60 ")
 ;;237
 ;;21,"60346-0633-90 ")
 ;;238
 ;;21,"60346-0662-30 ")
 ;;1104
 ;;21,"60346-0662-60 ")
 ;;1105
 ;;21,"60346-0730-30 ")
 ;;1106
 ;;21,"60346-0730-60 ")
 ;;1107
 ;;21,"60346-0784-30 ")
 ;;214
 ;;21,"60346-0890-30 ")
 ;;954
 ;;21,"60346-0938-07 ")
 ;;1108
 ;;21,"60346-0938-30 ")
 ;;1109
 ;;21,"60429-0082-30 ")
 ;;621
 ;;21,"60429-0082-60 ")
 ;;622
 ;;21,"60429-0083-12 ")
 ;;463
 ;;21,"60429-0083-30 ")
 ;;464
 ;;21,"60429-0083-60 ")
 ;;465
 ;;21,"60429-0085-12 ")
 ;;1110
 ;;21,"60429-0085-18 ")
 ;;1111
 ;;21,"60429-0085-27 ")
 ;;1112
 ;;21,"60429-0085-30 ")
 ;;1113
 ;;21,"60429-0085-36 ")
 ;;1114
 ;;21,"60429-0085-60 ")
 ;;1115
 ;;21,"60429-0085-90 ")
 ;;1116
 ;;21,"60505-0141-00 ")
 ;;623
 ;;21,"60505-0141-01 ")
 ;;624
 ;;21,"60505-0141-02 ")
 ;;625
 ;;21,"60505-0141-08 ")
 ;;626
 ;;21,"60505-0142-00 ")
 ;;466
 ;;21,"60505-0142-01 ")
 ;;467
 ;;21,"60505-0142-02 ")
 ;;468
 ;;21,"60505-0142-04 ")
 ;;469
 ;;21,"60951-0714-70 ")
 ;;470
 ;;21,"60951-0714-85 ")
 ;;471
 ;;21,"62037-0871-30 ")
 ;;740
 ;;21,"62037-0872-01 ")
 ;;781
 ;;21,"62037-0872-05 ")
 ;;782
 ;;21,"62037-0873-01 ")
 ;;718
 ;;21,"62037-0873-05 ")
 ;;719
 ;;21,"62682-5002-01 ")
 ;;627
 ;;21,"62682-5004-03 ")
 ;;472
 ;;21,"62682-5006-03 ")
 ;;955
 ;;21,"63304-0425-01 ")
 ;;270
 ;;21,"63304-0426-01 ")
 ;;310
 ;;21,"63304-0427-01 ")
 ;;361
 ;;21,"63629-1255-01 ")
 ;;362
 ;;21,"63629-1255-02 ")
 ;;363
 ;;21,"63629-1392-01 ")
 ;;117
 ;;21,"63629-1392-02 ")
 ;;118
 ;;21,"63629-1392-03 ")
 ;;119
 ;;21,"63629-1393-01 ")
 ;;1201
 ;;21,"63629-1393-02 ")
 ;;1202
 ;;21,"63629-1393-03 ")
 ;;1117
 ;;21,"63629-1393-04 ")
 ;;1203
 ;;21,"63629-1394-01 ")
 ;;473
 ;;21,"63629-1394-02 ")
 ;;474
 ;;21,"63629-1394-03 ")
 ;;521
 ;;21,"63629-1398-01 ")
 ;;628
 ;;21,"63629-1398-02 ")
 ;;629
 ;;21,"63629-1398-03 ")
 ;;630
 ;;21,"63629-2793-01 ")
 ;;193
 ;;21,"63629-2793-03 ")
 ;;126
 ;;21,"63629-2793-04 ")
 ;;194
 ;;21,"63629-2793-05 ")
 ;;195
 ;;21,"63629-2907-01 ")
 ;;993
 ;;21,"63629-2907-02 ")
 ;;984
 ;;21,"63629-3043-01 ")
 ;;311
 ;;21,"63629-3043-02 ")
 ;;316
 ;;21,"63629-3158-01 ")
 ;;728
 ;;21,"63629-3158-02 ")
 ;;729
 ;;21,"63629-3158-03 ")
 ;;730
 ;;21,"63629-3397-03 ")
 ;;801
 ;;21,"63629-3998-01 ")
 ;;73
 ;;21,"63629-4071-01 ")
 ;;788
 ;;21,"63739-0116-01 ")
 ;;631
 ;;21,"63739-0116-02 ")
 ;;632
 ;;21,"63739-0116-03 ")
 ;;633
 ;;21,"63739-0116-10 ")
 ;;634
 ;;21,"63739-0116-15 ")
 ;;635
 ;;21,"63739-0117-01 ")
 ;;475
 ;;21,"63739-0117-02 ")
 ;;476
 ;;21,"63739-0117-03 ")
 ;;477
 ;;21,"63739-0117-10 ")
 ;;478
 ;;21,"63739-0117-15 ")
 ;;479
 ;;21,"63739-0118-01 ")
 ;;956
 ;;21,"63739-0118-02 ")
 ;;957
 ;;21,"63739-0118-03 ")
 ;;958
 ;;21,"63739-0118-10 ")
 ;;959
 ;;21,"63739-0118-15 ")
 ;;960
 ;;21,"63739-0119-01 ")
 ;;1118
 ;;21,"63739-0119-02 ")
 ;;1119
 ;;21,"63739-0119-03 ")
 ;;1120
 ;;21,"63739-0119-10 ")
 ;;1121
 ;;21,"63739-0119-15 ")
 ;;1122
 ;;21,"63874-0316-01 ")
 ;;636
 ;;21,"63874-0316-02 ")
 ;;637
 ;;21,"63874-0316-04 ")
 ;;638
 ;;21,"63874-0316-05 ")
 ;;639
 ;;21,"63874-0316-10 ")
 ;;640
 ;;21,"63874-0316-12 ")
 ;;641
 ;;21,"63874-0316-14 ")
 ;;642
 ;;21,"63874-0316-15 ")
 ;;643
 ;;21,"63874-0316-20 ")
 ;;644
 ;;21,"63874-0316-21 ")
 ;;645
 ;;21,"63874-0316-24 ")
 ;;646
 ;;21,"63874-0316-28 ")
 ;;647
 ;;21,"63874-0316-30 ")
 ;;648
 ;;21,"63874-0316-50 ")
 ;;649
 ;;21,"63874-0316-60 ")
 ;;650
 ;;21,"63874-0316-81 ")
 ;;651
 ;;21,"63874-0316-90 ")
 ;;652
 ;;21,"63874-0317-01 ")
 ;;1123
 ;;21,"63874-0317-02 ")
 ;;1124
 ;;21,"63874-0317-04 ")
 ;;1125
 ;;21,"63874-0317-10 ")
 ;;1126
 ;;21,"63874-0317-12 ")
 ;;1127
 ;;21,"63874-0317-14 ")
 ;;1128
 ;;21,"63874-0317-15 ")
 ;;1129
 ;;21,"63874-0317-20 ")
 ;;1130
 ;;21,"63874-0317-24 ")
 ;;1131
 ;;21,"63874-0317-28 ")
 ;;1132
 ;;21,"63874-0317-30 ")
 ;;1133
 ;;21,"63874-0317-40 ")
 ;;1134
 ;;21,"63874-0317-50 ")
 ;;1135
 ;;21,"63874-0317-60 ")
 ;;1136
 ;;21,"63874-0317-90 ")
 ;;1137
 ;;21,"63874-0357-01 ")
 ;;239
 ;;21,"63874-0357-02 ")
 ;;240
 ;;21,"63874-0357-10 ")
 ;;241
 ;;21,"63874-0357-12 ")
 ;;242
 ;;21,"63874-0357-14 ")
 ;;243
 ;;21,"63874-0357-15 ")
 ;;244
 ;;21,"63874-0357-20 ")
 ;;245
 ;;21,"63874-0357-21 ")
 ;;246
 ;;21,"63874-0357-24 ")
 ;;247
 ;;21,"63874-0357-30 ")
 ;;248
 ;;21,"63874-0357-40 ")
 ;;249
 ;;21,"63874-0357-60 ")
 ;;250
 ;;21,"63874-0432-01 ")
 ;;480
 ;;21,"63874-0432-02 ")
 ;;481
 ;;21,"63874-0432-04 ")
 ;;482
 ;;21,"63874-0432-10 ")
 ;;483
 ;;21,"63874-0432-14 ")
 ;;484
 ;;21,"63874-0432-20 ")
 ;;485
 ;;21,"63874-0432-21 ")
 ;;486
 ;;21,"63874-0432-24 ")
 ;;487
 ;;21,"63874-0432-28 ")
 ;;488
 ;;21,"63874-0432-30 ")
 ;;489
 ;;21,"63874-0432-50 ")
 ;;490
 ;;21,"63874-0432-60 ")
 ;;491
 ;;21,"63874-0432-81 ")
 ;;492
 ;;21,"63874-0432-90 ")
 ;;493
 ;;21,"63874-0588-01 ")
 ;;961
 ;;21,"63874-0588-04 ")
 ;;962
 ;;21,"63874-0588-10 ")
 ;;963
 ;;21,"63874-0588-14 ")
 ;;964
 ;;21,"63874-0588-20 ")
 ;;965
 ;;21,"63874-0588-30 ")
 ;;966
 ;;21,"63874-0588-60 ")
 ;;967
 ;;21,"63874-0588-80 ")
 ;;968
 ;;21,"63874-0588-90 ")
 ;;969
 ;;21,"63874-0665-01 ")
 ;;888
 ;;21,"63874-0665-04 ")
 ;;889
 ;;21,"63874-0665-10 ")
 ;;890
 ;;21,"63874-0665-14 ")
 ;;891
 ;;21,"63874-0665-30 ")
 ;;892
 ;;21,"63874-0665-60 ")
 ;;893
 ;;21,"63874-0665-90 ")
 ;;894
 ;;21,"64720-0123-10 ")
 ;;903
 ;;21,"64720-0124-10 ")
 ;;994
 ;;21,"64720-0125-10 ")
 ;;1189
 ;;21,"64720-0125-11 ")
 ;;1190
 ;;21,"64764-0302-30 ")
 ;;1229
 ;;21,"64764-0304-30 ")
 ;;1230
 ;;21,"64909-0101-07 ")
 ;;802
 ;;21,"64909-0102-07 ")
 ;;838
 ;;21,"64909-0102-08 ")
 ;;839
 ;;21,"64909-0104-07 ")
 ;;843
 ;;21,"64909-0105-07 ")
 ;;869
 ;;21,"64909-0105-08 ")
 ;;870
 ;;21,"65243-0176-09 ")
 ;;1138
 ;;21,"65243-0176-12 ")
 ;;1139
 ;;21,"65243-0176-18 ")
 ;;1140
 ;;21,"65243-0176-27 ")
 ;;1141
 ;;21,"65243-0176-36 ")
 ;;1142
 ;;21,"65243-0183-18 ")
 ;;494
 ;;21,"65243-0185-36 ")
 ;;1143
 ;;21,"65243-0325-09 ")
 ;;970
 ;;21,"65243-0325-18 ")
 ;;971
 ;;21,"65243-0343-09 ")
 ;;1144
 ;;21,"65243-0343-36 ")
 ;;1145
 ;;21,"65243-0346-09 ")
 ;;653
 ;;21,"65243-0375-09 ")
 ;;972
 ;;21,"65243-0378-09 ")
 ;;654
 ;;21,"65862-0028-01 ")
 ;;906
 ;;21,"65862-0029-01 ")
 ;;985
 ;;21,"65862-0029-05 ")
 ;;986
 ;;21,"65862-0030-01 ")
 ;;1204
 ;;21,"65862-0030-99 ")
 ;;1205
 ;;21,"65862-0080-01 ")
 ;;69
 ;;21,"65862-0080-05 ")
 ;;74
 ;;21,"65862-0081-01 ")
 ;;109
 ;;21,"65862-0081-05 ")
 ;;120
 ;;21,"65862-0082-01 ")
 ;;127
 ;;21,"65862-0082-05 ")
 ;;196
 ;;21,"66105-0984-03 ")
 ;;895
 ;;21,"66105-0984-06 ")
 ;;896
 ;;21,"66105-0984-10 ")
 ;;897
 ;;21,"66105-0984-11 ")
 ;;898
 ;;21,"66105-0984-50 ")
 ;;899
 ;;21,"66105-0985-03 ")
 ;;973
 ;;21,"66105-0985-06 ")
 ;;974
 ;;21,"66105-0985-10 ")
 ;;975
 ;;21,"66105-0985-11 ")
 ;;976
 ;;21,"66105-0985-50 ")
 ;;977
 ;;21,"66105-0986-03 ")
 ;;1146
 ;;21,"66105-0986-06 ")
 ;;1147