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

BGPM3AAW.m

Go to the documentation of this file.
  1. BGPM3AAW ;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,"51079000519 ")
  1. ;;330
  1. ;;21,"51079000520 ")
  1. ;;331
  1. ;;21,"51079000522 ")
  1. ;;332
  1. ;;21,"51079000525 ")
  1. ;;333
  1. ;;21,"51079000540 ")
  1. ;;334
  1. ;;21,"51079000560 ")
  1. ;;335
  1. ;;21,"51079001819 ")
  1. ;;336
  1. ;;21,"51079002120 ")
  1. ;;337
  1. ;;21,"51079002122 ")
  1. ;;338
  1. ;;21,"51079018420 ")
  1. ;;696
  1. ;;21,"51079048371 ")
  1. ;;674
  1. ;;21,"51079054971 ")
  1. ;;43
  1. ;;21,"51079054972 ")
  1. ;;44
  1. ;;21,"51079055171 ")
  1. ;;6
  1. ;;21,"51079055172 ")
  1. ;;7
  1. ;;21,"51079065920 ")
  1. ;;756
  1. ;;21,"51079084519 ")
  1. ;;832
  1. ;;21,"51079090820 ")
  1. ;;1405
  1. ;;21,"51079090920 ")
  1. ;;1631
  1. ;;21,"51079091020 ")
  1. ;;1811
  1. ;;21,"51079091320 ")
  1. ;;2182
  1. ;;21,"51079091520 ")
  1. ;;2472
  1. ;;21,"51079092019 ")
  1. ;;1350
  1. ;;21,"51079092020 ")
  1. ;;1351
  1. ;;21,"51129181201 ")
  1. ;;2026
  1. ;;21,"51129201801 ")
  1. ;;2183
  1. ;;21,"51129247001 ")
  1. ;;2184
  1. ;;21,"51129254801 ")
  1. ;;1632
  1. ;;21,"51129257101 ")
  1. ;;1406
  1. ;;21,"51129267801 ")
  1. ;;1812
  1. ;;21,"51129276101 ")
  1. ;;1633
  1. ;;21,"51129282501 ")
  1. ;;1407
  1. ;;21,"51129282502 ")
  1. ;;1408
  1. ;;21,"51129284001 ")
  1. ;;1813
  1. ;;21,"51129285101 ")
  1. ;;1814
  1. ;;21,"51129285102 ")
  1. ;;1815
  1. ;;21,"51129292001 ")
  1. ;;1549
  1. ;;21,"51129294501 ")
  1. ;;1945
  1. ;;21,"51129294502 ")
  1. ;;1946
  1. ;;21,"51129294601 ")
  1. ;;2027
  1. ;;21,"51129294602 ")
  1. ;;2028
  1. ;;21,"51129302601 ")
  1. ;;1634
  1. ;;21,"51129302602 ")
  1. ;;1635
  1. ;;21,"51129323301 ")
  1. ;;2185
  1. ;;21,"51129323302 ")
  1. ;;2186
  1. ;;21,"51129324801 ")
  1. ;;2473
  1. ;;21,"51129324802 ")
  1. ;;2474
  1. ;;21,"51129382601 ")
  1. ;;1636
  1. ;;21,"51129382602 ")
  1. ;;1637
  1. ;;21,"51129382701 ")
  1. ;;2187
  1. ;;21,"51129382702 ")
  1. ;;2188
  1. ;;21,"51129382901 ")
  1. ;;1409
  1. ;;21,"51129382902 ")
  1. ;;1410
  1. ;;21,"51129385901 ")
  1. ;;2189
  1. ;;21,"51129385902 ")
  1. ;;2190
  1. ;;21,"51129395401 ")
  1. ;;2475
  1. ;;21,"51129395402 ")
  1. ;;2476
  1. ;;21,"51129396801 ")
  1. ;;1816
  1. ;;21,"51129396802 ")
  1. ;;1817
  1. ;;21,"51129396901 ")
  1. ;;1550
  1. ;;21,"51129396902 ")
  1. ;;1551
  1. ;;21,"51285080602 ")
  1. ;;881
  1. ;;21,"51301055101 ")
  1. ;;8
  1. ;;21,"51301055112 ")
  1. ;;9
  1. ;;21,"51301055201 ")
  1. ;;620
  1. ;;21,"51301055212 ")
  1. ;;621
  1. ;;21,"51301055250 ")
  1. ;;622
  1. ;;21,"51301055301 ")
  1. ;;715
  1. ;;21,"51301055312 ")
  1. ;;716
  1. ;;21,"51301055350 ")
  1. ;;717
  1. ;;21,"51432003306 ")
  1. ;;111
  1. ;;21,"51432090003 ")
  1. ;;1818
  1. ;;21,"51432090103 ")
  1. ;;1819
  1. ;;21,"51432090203 ")
  1. ;;2191
  1. ;;21,"51432090303 ")
  1. ;;2477
  1. ;;21,"51432090403 ")
  1. ;;1552
  1. ;;21,"51432110810 ")
  1. ;;25
  1. ;;21,"51432111010 ")
  1. ;;32
  1. ;;21,"51432111210 ")
  1. ;;623
  1. ;;21,"51432111410 ")
  1. ;;718
  1. ;;21,"51469030501 ")
  1. ;;339
  1. ;;21,"51655025124 ")
  1. ;;1638
  1. ;;21,"51655025152 ")
  1. ;;1639
  1. ;;21,"51655025153 ")
  1. ;;1640
  1. ;;21,"51655078324 ")
  1. ;;2192
  1. ;;21,"51655078352 ")
  1. ;;2193
  1. ;;21,"51655078353 ")
  1. ;;2194
  1. ;;21,"51655078399 ")
  1. ;;2195
  1. ;;21,"51660001701 ")
  1. ;;340
  1. ;;21,"51660001705 ")
  1. ;;341
  1. ;;21,"51660002001 ")
  1. ;;342
  1. ;;21,"51660002010 ")
  1. ;;343
  1. ;;21,"51660002201 ")
  1. ;;653
  1. ;;21,"51660002210 ")
  1. ;;654
  1. ;;21,"51672402700 ")
  1. ;;1411
  1. ;;21,"51672402701 ")
  1. ;;1412
  1. ;;21,"51672402703 ")
  1. ;;1413
  1. ;;21,"51672402707 ")
  1. ;;1414
  1. ;;21,"51672402800 ")
  1. ;;1641
  1. ;;21,"51672402801 ")
  1. ;;1642
  1. ;;21,"51672402803 ")
  1. ;;1643
  1. ;;21,"51672402807 ")
  1. ;;1644
  1. ;;21,"51672402900 ")
  1. ;;1820
  1. ;;21,"51672402901 ")
  1. ;;1821
  1. ;;21,"51672402903 ")
  1. ;;1822
  1. ;;21,"51672402907 ")
  1. ;;1823
  1. ;;21,"51672403000 ")
  1. ;;1947
  1. ;;21,"51672403001 ")
  1. ;;1948
  1. ;;21,"51672403003 ")
  1. ;;1949
  1. ;;21,"51672403007 ")
  1. ;;1950
  1. ;;21,"51672403100 ")
  1. ;;2029
  1. ;;21,"51672403101 ")
  1. ;;2030
  1. ;;21,"51672403103 ")
  1. ;;2031
  1. ;;21,"51672403107 ")
  1. ;;2032
  1. ;;21,"51672403200 ")
  1. ;;2196
  1. ;;21,"51672403201 ")
  1. ;;2197
  1. ;;21,"51672403203 ")
  1. ;;2198
  1. ;;21,"51672403207 ")
  1. ;;2199
  1. ;;21,"51672403300 ")
  1. ;;2417
  1. ;;21,"51672403301 ")
  1. ;;2418
  1. ;;21,"51672403303 ")
  1. ;;2419
  1. ;;21,"51672403307 ")
  1. ;;2420
  1. ;;21,"51672403400 ")
  1. ;;2478
  1. ;;21,"51672403401 ")
  1. ;;2479
  1. ;;21,"51672403403 ")
  1. ;;2480
  1. ;;21,"51672403500 ")
  1. ;;1553
  1. ;;21,"51672403501 ")
  1. ;;1554
  1. ;;21,"51672403503 ")
  1. ;;1555
  1. ;;21,"51698004910 ")
  1. ;;1134
  1. ;;21,"51728054501 ")
  1. ;;2200
  1. ;;21,"51728054510 ")
  1. ;;2201
  1. ;;21,"51813003730 ")
  1. ;;1824
  1. ;;21,"51813003799 ")
  1. ;;1825
  1. ;;21,"51813003830 ")
  1. ;;2202
  1. ;;21,"51813003899 ")
  1. ;;2203
  1. ;;21,"51813027830 ")
  1. ;;1556
  1. ;;21,"51813027899 ")
  1. ;;1557
  1. ;;21,"51824016436 ")
  1. ;;757
  1. ;;21,"52189022024 ")
  1. ;;882
  1. ;;21,"52189022029 ")
  1. ;;883
  1. ;;21,"52297013378 ")
  1. ;;344
  1. ;;21,"52297013778 ")
  1. ;;345
  1. ;;21,"52297013978 ")
  1. ;;346
  1. ;;21,"52297014668 ")
  1. ;;758
  1. ;;21,"52297016478 ")
  1. ;;347
  1. ;;21,"52297026072 ")
  1. ;;655
  1. ;;21,"52297026672 ")
  1. ;;656
  1. ;;21,"52297029287 ")
  1. ;;348
  1. ;;21,"52297041187 ")
  1. ;;349
  1. ;;21,"52297041660 ")
  1. ;;350
  1. ;;21,"52297041678 ")
  1. ;;351
  1. ;;21,"52297042974 ")
  1. ;;352
  1. ;;21,"52297042978 ")
  1. ;;353
  1. ;;21,"52297044878 ")
  1. ;;657
  1. ;;21,"52297046768 ")
  1. ;;759
  1. ;;21,"52297091885 ")
  1. ;;112
  1. ;;21,"52549402701 ")
  1. ;;1415
  1. ;;21,"52549402703 ")
  1. ;;1416
  1. ;;21,"52549402707 ")
  1. ;;1417
  1. ;;21,"52549402801 ")
  1. ;;1645
  1. ;;21,"52549402803 ")
  1. ;;1646
  1. ;;21,"52549402807 ")
  1. ;;1647
  1. ;;21,"52549402901 ")
  1. ;;1826
  1. ;;21,"52549402903 ")
  1. ;;1827
  1. ;;21,"52549402907 ")
  1. ;;1828
  1. ;;21,"52549403001 ")
  1. ;;1951
  1. ;;21,"52549403003 ")
  1. ;;1952
  1. ;;21,"52549403007 ")
  1. ;;1953
  1. ;;21,"52549403101 ")
  1. ;;2033
  1. ;;21,"52549403103 ")
  1. ;;2034
  1. ;;21,"52549403107 ")
  1. ;;2035
  1. ;;21,"52549403201 ")
  1. ;;2204
  1. ;;21,"52549403203 ")
  1. ;;2205
  1. ;;21,"52549403207 ")
  1. ;;2206
  1. ;;21,"52549403301 ")
  1. ;;2421
  1. ;;21,"52549403303 ")
  1. ;;2422
  1. ;;21,"52549403401 ")
  1. ;;2481
  1. ;;21,"52549403403 ")
  1. ;;2482
  1. ;;21,"52549403501 ")
  1. ;;1558
  1. ;;21,"52549403503 ")
  1. ;;1559
  1. ;;21,"52584004401 ")
  1. ;;1829
  1. ;;21,"52584004410 ")
  1. ;;1830
  1. ;;21,"52584004501 ")
  1. ;;2207
  1. ;;21,"52584004510 ")
  1. ;;2208
  1. ;;21,"52584005001 ")
  1. ;;1648
  1. ;;21,"52584005010 ")
  1. ;;1649
  1. ;;21,"52584015270 ")
  1. ;;952
  1. ;;21,"52584026201 ")
  1. ;;1285
  1. ;;21,"52584054001 ")
  1. ;;1042
  1. ;;21,"52584054201 ")
  1. ;;1135
  1. ;;21,"52584058102 ")
  1. ;;1200
  1. ;;21,"52735070201 ")
  1. ;;354
  1. ;;21,"52735070209 ")
  1. ;;355
  1. ;;21,"52735072401 ")
  1. ;;356
  1. ;;21,"52938097505 ")
  1. ;;875
  1. ;;21,"52938097510 ")
  1. ;;876
  1. ;;21,"52953003801 ")
  1. ;;1831
  1. ;;21,"52953003901 ")
  1. ;;2209
  1. ;;21,"52958032004 ")
  1. ;;953
  1. ;;21,"52958033008 ")
  1. ;;1043
  1. ;;21,"52958033012 ")
  1. ;;1044
  1. ;;21,"52958034012 ")
  1. ;;1286
  1. ;;21,"52959001800 ")
  1. ;;113
  1. ;;21,"52959001814 ")
  1. ;;114
  1. ;;21,"52959001820 ")
  1. ;;115
  1. ;;21,"52959001824 ")
  1. ;;116
  1. ;;21,"52959001830 ")
  1. ;;117
  1. ;;21,"52959001840 ")
  1. ;;118
  1. ;;21,"52959001860 ")
  1. ;;119
  1. ;;21,"52959001880 ")
  1. ;;120
  1. ;;21,"52959072400 ")
  1. ;;357
  1. ;;21,"52959072410 ")
  1. ;;358
  1. ;;21,"52959072414 ")
  1. ;;359
  1. ;;21,"52959072415 ")
  1. ;;360
  1. ;;21,"52959072420 ")
  1. ;;361
  1. ;;21,"52959072424 ")
  1. ;;362
  1. ;;21,"52959072430 ")
  1. ;;363
  1. ;;21,"52959092430 ")
  1. ;;1418
  1. ;;21,"52959092530 ")
  1. ;;1650
  1. ;;21,"52959092630 ")
  1. ;;2210
  1. ;;21,"52985007101 ")
  1. ;;2211
  1. ;;21,"53020001701 ")
  1. ;;722
  1. ;;21,"53076109140 ")
  1. ;;833
  1. ;;21,"53467017200 ")
  1. ;;2212
  1. ;;21,"53467064000 ")
  1. ;;2213
  1. ;;21,"53467064003 ")
  1. ;;2214
  1. ;;21,"53792014004 ")
  1. ;;1243
  1. ;;21,"53808033401 ")
  1. ;;1954
  1. ;;21,"53808033501 ")
  1. ;;1651
  1. ;;21,"53808097001 ")
  1. ;;2215
  1. ;;21,"53808098501 ")
  1. ;;1419
  1. ;;21,"53808098901 ")
  1. ;;1560
  1. ;;21,"53808099401 ")
  1. ;;1832
  1. ;;21,"53808099701 ")
  1. ;;2483
  1. ;;21,"53978013105 ")
  1. ;;723
  1. ;;21,"53978031403 ")
  1. ;;2216
  1. ;;21,"53978205207 ")
  1. ;;1287
  1. ;;21,"53978302703 ")
  1. ;;1352
  1. ;;21,"53978330103 ")
  1. ;;1833
  1. ;;21,"53978330203 ")
  1. ;;1420
  1. ;;21,"54441032401 ")
  1. ;;2217
  1. ;;21,"54441032405 ")
  1. ;;2218
  1. ;;21,"54441032410 ")
  1. ;;2219
  1. ;;21,"54441032425 ")
  1. ;;2220
  1. ;;21,"54441032450 ")
  1. ;;2221
  1. ;;21,"54569001401 ")
  1. ;;121
  1. ;;21,"54569001403 ")
  1. ;;122
  1. ;;21,"54569015850 ")
  1. ;;1652
  1. ;;21,"54569015950 ")
  1. ;;2222
  1. ;;21,"54569493400 ")
  1. ;;2223
  1. ;;21,"54569493401 ")
  1. ;;2224
  1. ;;21,"54569586800 ")
  1. ;;1834
  1. ;;21,"54569586900 ")
  1. ;;2036
  1. ;;21,"54629080101 ")
  1. ;;364
  1. ;;21,"54629080303 ")
  1. ;;365
  1. ;;21,"54738011103 ")
  1. ;;123
  1. ;;21,"54868428600 ")
  1. ;;2225
  1. ;;21,"54868428601 ")
  1. ;;2226
  1. ;;21,"54868428602 ")
  1. ;;2227
  1. ;;21,"54868428603 ")
  1. ;;2228
  1. ;;21,"54868428604 ")
  1. ;;2229
  1. ;;21,"54868434900 ")
  1. ;;1421
  1. ;;21,"54868434901 ")
  1. ;;1422
  1. ;;21,"54868434902 ")
  1. ;;1423
  1. ;;21,"54868434903 ")
  1. ;;1424
  1. ;;21,"54868434904 ")
  1. ;;1425
  1. ;;21,"54868434905 ")
  1. ;;1426
  1. ;;21,"54868440000 ")
  1. ;;1835
  1. ;;21,"54868440001 ")
  1. ;;1836
  1. ;;21,"54868440002 ")
  1. ;;1837
  1. ;;21,"54868440003 ")
  1. ;;1838
  1. ;;21,"54868440004 ")
  1. ;;1839
  1. ;;21,"54868440200 ")
  1. ;;2037
  1. ;;21,"54868440201 ")
  1. ;;2038
  1. ;;21,"54868440202 ")
  1. ;;2039
  1. ;;21,"54868442200 ")
  1. ;;1653
  1. ;;21,"54868442201 ")
  1. ;;1654
  1. ;;21,"54868442202 ")
  1. ;;1655
  1. ;;21,"54868487100 ")
  1. ;;1955
  1. ;;21,"54868487101 ")
  1. ;;1956
  1. ;;21,"54868487102 ")
  1. ;;1957
  1. ;;21,"54868487300 ")
  1. ;;2423
  1. ;;21,"54868487301 ")
  1. ;;2424
  1. ;;21,"54868487302 ")
  1. ;;2425
  1. ;;21,"54868495000 ")
  1. ;;2484
  1. ;;21,"54868495001 ")
  1. ;;2485
  1. ;;21,"54868495002 ")
  1. ;;2486
  1. ;;21,"54868525800 ")
  1. ;;1561
  1. ;;21,"54868554600 ")
  1. ;;895
  1. ;;21,"55045288108 ")
  1. ;;2230
  1. ;;21,"55045290100 ")
  1. ;;1840
  1. ;;21,"55045290108 ")
  1. ;;1841
  1. ;;21,"55045290200 ")
  1. ;;1656
  1. ;;21,"55045290202 ")
  1. ;;1657
  1. ;;21,"55045290208 ")
  1. ;;1658
  1. ;;21,"55045290300 ")
  1. ;;2040
  1. ;;21,"55045329201 ")
  1. ;;1562
  1. ;;21,"55111019601 ")
  1. ;;896
  1. ;;21,"55111019630 ")
  1. ;;897
  1. ;;21,"55111019690 ")
  1. ;;898
  1. ;;21,"55154014105 ")
  1. ;;1136
  1. ;;21,"55154087609 ")
  1. ;;1659
  1. ;;21,"55154087709 ")
  1. ;;1842
  1. ;;21,"55154087809 ")
  1. ;;1958
  1. ;;21,"55154087909 ")
  1. ;;2041
  1. ;;21,"55154088009 ")
  1. ;;2231
  1. ;;21,"55154088309 ")
  1. ;;1427
  1. ;;21,"55154088409 ")
  1. ;;2426
  1. ;;21,"55154236205 ")
  1. ;;954
  1. ;;21,"55154239705 ")
  1. ;;1137
  1. ;;21,"55154420507 ")
  1. ;;1138
  1. ;;21,"55154510105 ")
  1. ;;1139
  1. ;;21,"55154510107 ")
  1. ;;1140
  1. ;;21,"55154510305 ")
  1. ;;1288
  1. ;;21,"55154510307 ")
  1. ;;1289
  1. ;;21,"55154510905 ")
  1. ;;955
  1. ;;21,"55154512205 ")
  1. ;;1045
  1. ;;21,"55154512207 ")
  1. ;;1046
  1. ;;21,"55154512605 ")
  1. ;;1047
  1. ;;21,"55154870107 ")
  1. ;;1290
  1. ;;21,"55154935105 ")
  1. ;;1206
  1. ;;21,"55154935305 ")
  1. ;;956
  1. ;;21,"55154935405 ")
  1. ;;1291
  1. ;;21,"55154935505 ")
  1. ;;957
  1. ;;21,"55154935905 ")
  1. ;;1141
  1. ;;21,"55154936005 ")
  1. ;;1048
  1. ;;21,"55154937305 ")
  1. ;;1049
  1. ;;21,"55154937705 ")
  1. ;;1050
  1. ;;21,"55175169300 ")
  1. ;;724
  1. ;;21,"55289034030 ")
  1. ;;1428
  1. ;;21,"55289077314 ")
  1. ;;2232
  1. ;;21,"55289077330 ")
  1. ;;2233
  1. ;;21,"55289077360 ")
  1. ;;2234
  1. ;;21,"55289077390 ")
  1. ;;2235
  1. ;;21,"55567005400 ")
  1. ;;1353
  1. ;;21,"55567005407 ")
  1. ;;1354
  1. ;;21,"55567005413 ")
  1. ;;1355
  1. ;;21,"55567005418 ")
  1. ;;1356
  1. ;;21,"55567005425 ")
  1. ;;1357
  1. ;;21,"55567010000 ")
  1. ;;1429
  1. ;;21,"55567010001 ")
  1. ;;1430
  1. ;;21,"55567010010 ")
  1. ;;1431
  1. ;;21,"55567010100 ")
  1. ;;1660
  1. ;;21,"55567010101 ")
  1. ;;1661
  1. ;;21,"55567010110 ")
  1. ;;1662
  1. ;;21,"55567010118 ")
  1. ;;1663
  1. ;;21,"55567010135 ")
  1. ;;1664
  1. ;;21,"55567010200 ")
  1. ;;1843
  1. ;;21,"55567010201 ")
  1. ;;1844
  1. ;;21,"55567010210 ")
  1. ;;1845
  1. ;;21,"55567010218 ")
  1. ;;1846
  1. ;;21,"55567010235 ")
  1. ;;1847
  1. ;;21,"55567010600 ")
  1. ;;2427
  1. ;;21,"55567010601 ")
  1. ;;2428
  1. ;;21,"55567010610 ")
  1. ;;2429