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

BGPM3AAB.m

Go to the documentation of this file.
BGPM3AAB ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"58016008335 ")
 ;;1098
 ;;21,"58016008336 ")
 ;;1099
 ;;21,"58016008340 ")
 ;;1100
 ;;21,"58016008342 ")
 ;;1101
 ;;21,"58016008344 ")
 ;;1102
 ;;21,"58016008345 ")
 ;;1103
 ;;21,"58016008348 ")
 ;;1104
 ;;21,"58016008350 ")
 ;;1105
 ;;21,"58016008356 ")
 ;;1106
 ;;21,"58016008360 ")
 ;;1107
 ;;21,"58016008367 ")
 ;;1108
 ;;21,"58016008369 ")
 ;;1109
 ;;21,"58016008370 ")
 ;;1110
 ;;21,"58016008371 ")
 ;;1111
 ;;21,"58016008372 ")
 ;;1112
 ;;21,"58016008373 ")
 ;;1113
 ;;21,"58016008375 ")
 ;;1114
 ;;21,"58016008376 ")
 ;;1115
 ;;21,"58016008377 ")
 ;;1116
 ;;21,"58016008379 ")
 ;;1117
 ;;21,"58016008380 ")
 ;;1118
 ;;21,"58016008381 ")
 ;;1119
 ;;21,"58016008382 ")
 ;;1120
 ;;21,"58016008383 ")
 ;;1121
 ;;21,"58016008384 ")
 ;;1122
 ;;21,"58016008387 ")
 ;;1123
 ;;21,"58016008389 ")
 ;;1124
 ;;21,"58016008390 ")
 ;;1125
 ;;21,"58016008391 ")
 ;;1126
 ;;21,"58016008392 ")
 ;;1127
 ;;21,"58016008393 ")
 ;;1128
 ;;21,"58016008396 ")
 ;;1129
 ;;21,"58016008397 ")
 ;;1130
 ;;21,"58016008398 ")
 ;;1131
 ;;21,"58016008399 ")
 ;;1132
 ;;21,"58016027700 ")
 ;;695
 ;;21,"58016027701 ")
 ;;696
 ;;21,"58016027702 ")
 ;;697
 ;;21,"58016027703 ")
 ;;698
 ;;21,"58016027704 ")
 ;;699
 ;;21,"58016027705 ")
 ;;700
 ;;21,"58016027706 ")
 ;;701
 ;;21,"58016027707 ")
 ;;702
 ;;21,"58016027708 ")
 ;;703
 ;;21,"58016027709 ")
 ;;704
 ;;21,"58016027710 ")
 ;;705
 ;;21,"58016027712 ")
 ;;706
 ;;21,"58016027714 ")
 ;;707
 ;;21,"58016027715 ")
 ;;708
 ;;21,"58016027716 ")
 ;;709
 ;;21,"58016027718 ")
 ;;710
 ;;21,"58016027720 ")
 ;;711
 ;;21,"58016027721 ")
 ;;712
 ;;21,"58016027724 ")
 ;;713
 ;;21,"58016027725 ")
 ;;714
 ;;21,"58016027726 ")
 ;;715
 ;;21,"58016027727 ")
 ;;716
 ;;21,"58016027728 ")
 ;;717
 ;;21,"58016027730 ")
 ;;718
 ;;21,"58016027732 ")
 ;;719
 ;;21,"58016027735 ")
 ;;720
 ;;21,"58016027736 ")
 ;;721
 ;;21,"58016027740 ")
 ;;722
 ;;21,"58016027742 ")
 ;;723
 ;;21,"58016027744 ")
 ;;724
 ;;21,"58016027745 ")
 ;;725
 ;;21,"58016027748 ")
 ;;726
 ;;21,"58016027750 ")
 ;;727
 ;;21,"58016027756 ")
 ;;728
 ;;21,"58016027760 ")
 ;;729
 ;;21,"58016027767 ")
 ;;730
 ;;21,"58016027769 ")
 ;;731
 ;;21,"58016027770 ")
 ;;732
 ;;21,"58016027771 ")
 ;;733
 ;;21,"58016027772 ")
 ;;734
 ;;21,"58016027773 ")
 ;;735
 ;;21,"58016027775 ")
 ;;736
 ;;21,"58016027776 ")
 ;;737
 ;;21,"58016027777 ")
 ;;738
 ;;21,"58016027779 ")
 ;;739
 ;;21,"58016027780 ")
 ;;740
 ;;21,"58016027781 ")
 ;;741
 ;;21,"58016027782 ")
 ;;742
 ;;21,"58016027783 ")
 ;;743
 ;;21,"58016027784 ")
 ;;744
 ;;21,"58016027787 ")
 ;;745
 ;;21,"58016027789 ")
 ;;746
 ;;21,"58016027790 ")
 ;;747
 ;;21,"58016027791 ")
 ;;748
 ;;21,"58016027792 ")
 ;;749
 ;;21,"58016027793 ")
 ;;750
 ;;21,"58016027796 ")
 ;;751
 ;;21,"58016027797 ")
 ;;752
 ;;21,"58016027798 ")
 ;;753
 ;;21,"58016027799 ")
 ;;754
 ;;21,"58016069700 ")
 ;;594
 ;;21,"58016069730 ")
 ;;595
 ;;21,"58016069760 ")
 ;;596
 ;;21,"58016069790 ")
 ;;597
 ;;21,"58016078600 ")
 ;;878
 ;;21,"58016097100 ")
 ;;461
 ;;21,"58016097101 ")
 ;;462
 ;;21,"58016097102 ")
 ;;463
 ;;21,"58016097103 ")
 ;;464
 ;;21,"58016097104 ")
 ;;465
 ;;21,"58016097105 ")
 ;;466
 ;;21,"58016097106 ")
 ;;467
 ;;21,"58016097107 ")
 ;;468
 ;;21,"58016097108 ")
 ;;469
 ;;21,"58016097109 ")
 ;;470
 ;;21,"58016097110 ")
 ;;471
 ;;21,"58016097112 ")
 ;;472
 ;;21,"58016097114 ")
 ;;473
 ;;21,"58016097116 ")
 ;;474
 ;;21,"58016097118 ")
 ;;475
 ;;21,"58016097120 ")
 ;;476
 ;;21,"58016097121 ")
 ;;477
 ;;21,"58016097124 ")
 ;;478
 ;;21,"58016097125 ")
 ;;479
 ;;21,"58016097126 ")
 ;;480
 ;;21,"58016097127 ")
 ;;481
 ;;21,"58016097128 ")
 ;;482
 ;;21,"58016097130 ")
 ;;483
 ;;21,"58016097132 ")
 ;;484
 ;;21,"58016097135 ")
 ;;485
 ;;21,"58016097136 ")
 ;;486
 ;;21,"58016097140 ")
 ;;487
 ;;21,"58016097142 ")
 ;;488
 ;;21,"58016097144 ")
 ;;489
 ;;21,"58016097145 ")
 ;;490
 ;;21,"58016097148 ")
 ;;491
 ;;21,"58016097150 ")
 ;;492
 ;;21,"58016097156 ")
 ;;493
 ;;21,"58016097160 ")
 ;;494
 ;;21,"58016097167 ")
 ;;495
 ;;21,"58016097169 ")
 ;;496
 ;;21,"58016097170 ")
 ;;497
 ;;21,"58016097171 ")
 ;;498
 ;;21,"58016097172 ")
 ;;499
 ;;21,"58016097173 ")
 ;;500
 ;;21,"58016097175 ")
 ;;501
 ;;21,"58016097176 ")
 ;;502
 ;;21,"58016097177 ")
 ;;503
 ;;21,"58016097179 ")
 ;;504
 ;;21,"58016097180 ")
 ;;505
 ;;21,"58016097181 ")
 ;;506
 ;;21,"58016097182 ")
 ;;507
 ;;21,"58016097183 ")
 ;;508
 ;;21,"58016097184 ")
 ;;509
 ;;21,"58016097187 ")
 ;;510
 ;;21,"58016097189 ")
 ;;511
 ;;21,"58016097190 ")
 ;;512
 ;;21,"58016097191 ")
 ;;513
 ;;21,"58016097192 ")
 ;;514
 ;;21,"58016097193 ")
 ;;515
 ;;21,"58016097196 ")
 ;;516
 ;;21,"58016097197 ")
 ;;517
 ;;21,"58016097198 ")
 ;;518
 ;;21,"58016097199 ")
 ;;519
 ;;21,"58016097200 ")
 ;;1276
 ;;21,"58016097201 ")
 ;;1277
 ;;21,"58016097202 ")
 ;;1278
 ;;21,"58016097203 ")
 ;;1279
 ;;21,"58016097204 ")
 ;;1280
 ;;21,"58016097205 ")
 ;;1281
 ;;21,"58016097206 ")
 ;;1282
 ;;21,"58016097207 ")
 ;;1283
 ;;21,"58016097208 ")
 ;;1284
 ;;21,"58016097209 ")
 ;;1285
 ;;21,"58016097210 ")
 ;;1286
 ;;21,"58016097212 ")
 ;;1287
 ;;21,"58016097214 ")
 ;;1288
 ;;21,"58016097216 ")
 ;;1289
 ;;21,"58016097218 ")
 ;;1290
 ;;21,"58016097220 ")
 ;;1291
 ;;21,"58016097221 ")
 ;;1292
 ;;21,"58016097224 ")
 ;;1293
 ;;21,"58016097225 ")
 ;;1294
 ;;21,"58016097226 ")
 ;;1295
 ;;21,"58016097227 ")
 ;;1296
 ;;21,"58016097228 ")
 ;;1297
 ;;21,"58016097230 ")
 ;;1298
 ;;21,"58016097232 ")
 ;;1299
 ;;21,"58016097235 ")
 ;;1300
 ;;21,"58016097236 ")
 ;;1301
 ;;21,"58016097240 ")
 ;;1302
 ;;21,"58016097242 ")
 ;;1303
 ;;21,"58016097244 ")
 ;;1304
 ;;21,"58016097245 ")
 ;;1305
 ;;21,"58016097248 ")
 ;;1306
 ;;21,"58016097250 ")
 ;;1307
 ;;21,"58016097256 ")
 ;;1308
 ;;21,"58016097260 ")
 ;;1309
 ;;21,"58016097267 ")
 ;;1310
 ;;21,"58016097269 ")
 ;;1311
 ;;21,"58016097270 ")
 ;;1312
 ;;21,"58016097271 ")
 ;;1313
 ;;21,"58016097272 ")
 ;;1314
 ;;21,"58016097273 ")
 ;;1315
 ;;21,"58016097275 ")
 ;;1316
 ;;21,"58016097276 ")
 ;;1317
 ;;21,"58016097277 ")
 ;;1318
 ;;21,"58016097279 ")
 ;;1319
 ;;21,"58016097280 ")
 ;;1320
 ;;21,"58016097281 ")
 ;;1321
 ;;21,"58016097282 ")
 ;;1322
 ;;21,"58016097283 ")
 ;;1323
 ;;21,"58016097284 ")
 ;;1324
 ;;21,"58016097287 ")
 ;;1325
 ;;21,"58016097289 ")
 ;;1326
 ;;21,"58016097290 ")
 ;;1327
 ;;21,"58016097291 ")
 ;;1328
 ;;21,"58016097292 ")
 ;;1329
 ;;21,"58016097293 ")
 ;;1330
 ;;21,"58016097296 ")
 ;;1331
 ;;21,"58016097297 ")
 ;;1332
 ;;21,"58016097298 ")
 ;;1333
 ;;21,"58016097299 ")
 ;;1334
 ;;21,"58864003530 ")
 ;;879
 ;;21,"58864069814 ")
 ;;1335
 ;;21,"58864069830 ")
 ;;1336
 ;;21,"58864077315 ")
 ;;520
 ;;21,"58864077330 ")
 ;;521
 ;;21,"58864087930 ")
 ;;755
 ;;21,"59772035204 ")
 ;;522
 ;;21,"59772035207 ")
 ;;523
 ;;21,"59772035208 ")
 ;;524
 ;;21,"59772035270 ")
 ;;525
 ;;21,"59772036304 ")
 ;;756
 ;;21,"59772036307 ")
 ;;757
 ;;21,"59772036308 ")
 ;;758
 ;;21,"59772036370 ")
 ;;759
 ;;21,"59772036404 ")
 ;;880
 ;;21,"59772036407 ")
 ;;881
 ;;21,"59772036408 ")
 ;;882
 ;;21,"59772036470 ")
 ;;883
 ;;21,"59772036607 ")
 ;;992
 ;;21,"59772036907 ")
 ;;1133
 ;;21,"59772036908 ")
 ;;1134
 ;;21,"59772036970 ")
 ;;1135
 ;;21,"59772037704 ")
 ;;1337
 ;;21,"59772037707 ")
 ;;1338
 ;;21,"59772037708 ")
 ;;1339
 ;;21,"59772037770 ")
 ;;1340
 ;;21,"59772038107 ")
 ;;1458
 ;;21,"59772038607 ")
 ;;1518
 ;;21,"59772038608 ")
 ;;1519
 ;;21,"59772038670 ")
 ;;1520
 ;;21,"59772038707 ")
 ;;598
 ;;21,"59772038708 ")
 ;;599
 ;;21,"59772038770 ")
 ;;600
 ;;21,"60429078401 ")
 ;;526
 ;;21,"60429078410 ")
 ;;527
 ;;21,"60429078501 ")
 ;;760
 ;;21,"60429078510 ")
 ;;761
 ;;21,"60429078601 ")
 ;;884
 ;;21,"60429078610 ")
 ;;885
 ;;21,"60429078701 ")
 ;;993
 ;;21,"60429078710 ")
 ;;994
 ;;21,"60429078801 ")
 ;;1136
 ;;21,"60429078810 ")
 ;;1137
 ;;21,"60429078901 ")
 ;;1341
 ;;21,"60429078910 ")
 ;;1342
 ;;21,"60429079001 ")
 ;;1459
 ;;21,"60429079010 ")
 ;;1460
 ;;21,"60429079101 ")
 ;;1521
 ;;21,"60429079201 ")
 ;;601
 ;;21,"60760003110 ")
 ;;528
 ;;21,"60760003125 ")
 ;;529
 ;;21,"60760003130 ")
 ;;530
 ;;21,"60760003310 ")
 ;;886
 ;;21,"60760003325 ")
 ;;887
 ;;21,"60760003330 ")
 ;;888
 ;;21,"60760003401 ")
 ;;1343
 ;;21,"60760003410 ")
 ;;1344
 ;;21,"60760003425 ")
 ;;1345
 ;;21,"60760003430 ")
 ;;1346
 ;;21,"61392090325 ")
 ;;531
 ;;21,"61392090330 ")
 ;;532
 ;;21,"61392090331 ")
 ;;533
 ;;21,"61392090339 ")
 ;;534
 ;;21,"61392090360 ")
 ;;535
 ;;21,"61392090365 ")
 ;;536
 ;;21,"61392090390 ")
 ;;537
 ;;21,"61392090395 ")
 ;;538
 ;;21,"61392090423 ")
 ;;762
 ;;21,"61392090425 ")
 ;;763
 ;;21,"61392090430 ")
 ;;764
 ;;21,"61392090431 ")
 ;;765
 ;;21,"61392090439 ")
 ;;766
 ;;21,"61392090460 ")
 ;;767
 ;;21,"61392090465 ")
 ;;768
 ;;21,"61392090490 ")
 ;;769
 ;;21,"61392090495 ")
 ;;770
 ;;21,"61392090523 ")
 ;;889
 ;;21,"61392090525 ")
 ;;890
 ;;21,"61392090530 ")
 ;;891
 ;;21,"61392090531 ")
 ;;892
 ;;21,"61392090539 ")
 ;;893
 ;;21,"61392090560 ")
 ;;894
 ;;21,"61392090565 ")
 ;;895
 ;;21,"61392090590 ")
 ;;896
 ;;21,"61392090595 ")
 ;;897
 ;;21,"61392090625 ")
 ;;1138
 ;;21,"61392090630 ")
 ;;1139
 ;;21,"61392090631 ")
 ;;1140
 ;;21,"61392090639 ")
 ;;1141
 ;;21,"61392090660 ")
 ;;1142
 ;;21,"61392090665 ")
 ;;1143
 ;;21,"61392090690 ")
 ;;1144
 ;;21,"61392090695 ")
 ;;1145
 ;;21,"61392090723 ")
 ;;1347
 ;;21,"61392090725 ")
 ;;1348
 ;;21,"61392090730 ")
 ;;1349
 ;;21,"61392090731 ")
 ;;1350
 ;;21,"61392090739 ")
 ;;1351
 ;;21,"61392090760 ")
 ;;1352
 ;;21,"61392090765 ")
 ;;1353
 ;;21,"61392090790 ")
 ;;1354
 ;;21,"61392090795 ")
 ;;1355
 ;;21,"61392090825 ")
 ;;1522
 ;;21,"61392090830 ")
 ;;1523
 ;;21,"61392090831 ")
 ;;1524
 ;;21,"61392090839 ")
 ;;1525
 ;;21,"61392090860 ")
 ;;1526
 ;;21,"61392090865 ")
 ;;1527
 ;;21,"61392090890 ")
 ;;1528
 ;;21,"61392090895 ")
 ;;1529
 ;;21,"61392090925 ")
 ;;602
 ;;21,"61392090930 ")
 ;;603
 ;;21,"61392090931 ")
 ;;604
 ;;21,"61392090939 ")
 ;;605
 ;;21,"61392090960 ")
 ;;606
 ;;21,"61392090965 ")
 ;;607
 ;;21,"61392090990 ")
 ;;608
 ;;21,"61392090995 ")
 ;;609
 ;;21,"61392091125 ")
 ;;1461
 ;;21,"61392091130 ")
 ;;1462
 ;;21,"61392091131 ")
 ;;1463
 ;;21,"61392091139 ")
 ;;1464
 ;;21,"61392091160 ")
 ;;1465
 ;;21,"61392091165 ")
 ;;1466
 ;;21,"61392091190 ")
 ;;1467
 ;;21,"61392091195 ")
 ;;1468
 ;;21,"61392092023 ")
 ;;995
 ;;21,"61392092025 ")
 ;;996
 ;;21,"61392092030 ")
 ;;997
 ;;21,"61392092031 ")
 ;;998
 ;;21,"61392092039 ")
 ;;999
 ;;21,"61392092060 ")
 ;;1000
 ;;21,"61392092065 ")
 ;;1001
 ;;21,"61392092090 ")
 ;;1002
 ;;21,"61392092095 ")
 ;;1003
 ;;21,"62338313701 ")
 ;;40
 ;;21,"62338332701 ")
 ;;41
 ;;21,"62338352701 ")
 ;;42
 ;;21,"62338510503 ")
 ;;133