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