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

BGP47T4.m

Go to the documentation of this file.
BGP47T4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"54868-3307-01 ")
 ;;2151
 ;;21,"54868-3443-00 ")
 ;;1284
 ;;21,"54868-3443-01 ")
 ;;1278
 ;;21,"54868-3445-00 ")
 ;;2117
 ;;21,"54868-3445-01 ")
 ;;2118
 ;;21,"54868-3690-01 ")
 ;;325
 ;;21,"54868-3723-01 ")
 ;;428
 ;;21,"54868-3724-01 ")
 ;;467
 ;;21,"54868-3724-02 ")
 ;;435
 ;;21,"54868-3724-03 ")
 ;;434
 ;;21,"54868-3725-01 ")
 ;;500
 ;;21,"54868-3725-02 ")
 ;;499
 ;;21,"54868-3846-00 ")
 ;;2242
 ;;21,"54868-3906-00 ")
 ;;362
 ;;21,"54868-3906-01 ")
 ;;352
 ;;21,"54868-4003-00 ")
 ;;1180
 ;;21,"54868-4062-00 ")
 ;;554
 ;;21,"54868-4062-01 ")
 ;;555
 ;;21,"54868-4066-00 ")
 ;;54
 ;;21,"54868-4066-01 ")
 ;;44
 ;;21,"54868-4073-00 ")
 ;;81
 ;;21,"54868-4073-01 ")
 ;;71
 ;;21,"54868-4073-02 ")
 ;;75
 ;;21,"54868-4073-03 ")
 ;;76
 ;;21,"54868-4074-00 ")
 ;;109
 ;;21,"54868-4074-01 ")
 ;;99
 ;;21,"54868-4074-02 ")
 ;;119
 ;;21,"54868-4074-03 ")
 ;;108
 ;;21,"54868-4074-04 ")
 ;;107
 ;;21,"54868-4088-00 ")
 ;;2007
 ;;21,"54868-4088-01 ")
 ;;2011
 ;;21,"54868-4088-02 ")
 ;;2010
 ;;21,"54868-4209-00 ")
 ;;1058
 ;;21,"54868-4331-00 ")
 ;;760
 ;;21,"54868-4331-01 ")
 ;;759
 ;;21,"54868-4331-02 ")
 ;;716
 ;;21,"54868-4332-00 ")
 ;;705
 ;;21,"54868-4332-01 ")
 ;;704
 ;;21,"54868-4332-02 ")
 ;;698
 ;;21,"54868-4357-00 ")
 ;;811
 ;;21,"54868-4357-01 ")
 ;;865
 ;;21,"54868-4357-02 ")
 ;;864
 ;;21,"54868-4357-03 ")
 ;;863
 ;;21,"54868-4358-00 ")
 ;;557
 ;;21,"54868-4358-01 ")
 ;;565
 ;;21,"54868-4358-02 ")
 ;;609
 ;;21,"54868-4479-00 ")
 ;;1277
 ;;21,"54868-4479-01 ")
 ;;1276
 ;;21,"54868-4479-02 ")
 ;;1275
 ;;21,"54868-4552-00 ")
 ;;2035
 ;;21,"54868-4552-01 ")
 ;;2040
 ;;21,"54868-4555-00 ")
 ;;2045
 ;;21,"54868-4555-01 ")
 ;;2041
 ;;21,"54868-4637-00 ")
 ;;1192
 ;;21,"54868-4637-01 ")
 ;;1204
 ;;21,"54868-4637-02 ")
 ;;1170
 ;;21,"54868-4637-03 ")
 ;;1169
 ;;21,"54868-4646-00 ")
 ;;1754
 ;;21,"54868-4646-01 ")
 ;;1772
 ;;21,"54868-4646-02 ")
 ;;1825
 ;;21,"54868-4646-03 ")
 ;;1844
 ;;21,"54868-4656-00 ")
 ;;1513
 ;;21,"54868-4656-01 ")
 ;;1519
 ;;21,"54868-4657-00 ")
 ;;1452
 ;;21,"54868-4657-01 ")
 ;;1459
 ;;21,"54868-4657-02 ")
 ;;1375
 ;;21,"54868-4657-03 ")
 ;;1376
 ;;21,"54868-4657-04 ")
 ;;1352
 ;;21,"54868-4658-00 ")
 ;;1637
 ;;21,"54868-4658-01 ")
 ;;1618
 ;;21,"54868-4658-02 ")
 ;;1683
 ;;21,"54868-4658-03 ")
 ;;1602
 ;;21,"54868-4678-00 ")
 ;;1891
 ;;21,"54868-4678-01 ")
 ;;1941
 ;;21,"54868-4780-00 ")
 ;;1709
 ;;21,"54868-4780-01 ")
 ;;1739
 ;;21,"54868-4785-00 ")
 ;;1253
 ;;21,"54868-4785-01 ")
 ;;1257
 ;;21,"54868-4785-02 ")
 ;;1256
 ;;21,"54868-4785-03 ")
 ;;1222
 ;;21,"54868-4870-00 ")
 ;;15
 ;;21,"54868-4870-01 ")
 ;;16
 ;;21,"54868-4870-02 ")
 ;;6
 ;;21,"54868-4904-00 ")
 ;;361
 ;;21,"54868-4904-01 ")
 ;;366
 ;;21,"54868-4977-00 ")
 ;;1088
 ;;21,"54868-4977-01 ")
 ;;1127
 ;;21,"54868-4977-02 ")
 ;;1128
 ;;21,"54868-5001-00 ")
 ;;168
 ;;21,"54868-5001-01 ")
 ;;167
 ;;21,"54868-5055-00 ")
 ;;1028
 ;;21,"54868-5064-00 ")
 ;;957
 ;;21,"54868-5064-01 ")
 ;;984
 ;;21,"54868-5079-00 ")
 ;;250
 ;;21,"54868-5079-01 ")
 ;;259
 ;;21,"54868-5099-00 ")
 ;;2366
 ;;21,"54868-5099-01 ")
 ;;2365
 ;;21,"54868-5100-00 ")
 ;;934
 ;;21,"54868-5100-01 ")
 ;;921
 ;;21,"54868-5182-00 ")
 ;;1037
 ;;21,"54868-5182-01 ")
 ;;1051
 ;;21,"54868-5182-02 ")
 ;;1060
 ;;21,"54868-5196-00 ")
 ;;397
 ;;21,"54868-5196-02 ")
 ;;396
 ;;21,"54868-5204-00 ")
 ;;274
 ;;21,"54868-5241-00 ")
 ;;2081
 ;;21,"54868-5241-01 ")
 ;;2093
 ;;21,"54868-5241-02 ")
 ;;2110
 ;;21,"54868-5245-00 ")
 ;;2049
 ;;21,"54868-5245-01 ")
 ;;2065
 ;;21,"54868-5245-02 ")
 ;;2072
 ;;21,"54868-5246-00 ")
 ;;2135
 ;;21,"54868-5246-01 ")
 ;;2142
 ;;21,"54868-5256-00 ")
 ;;345
 ;;21,"54868-5279-00 ")
 ;;2157
 ;;21,"54868-5296-00 ")
 ;;375
 ;;21,"54868-5311-00 ")
 ;;2381
 ;;21,"54868-5313-00 ")
 ;;369
 ;;21,"54868-5313-01 ")
 ;;368
 ;;21,"54868-5320-00 ")
 ;;2383
 ;;21,"54868-5320-01 ")
 ;;2384
 ;;21,"54868-5346-00 ")
 ;;1075
 ;;21,"54868-5423-00 ")
 ;;2028
 ;;21,"54868-5423-01 ")
 ;;2021
 ;;21,"54868-5469-00 ")
 ;;1084
 ;;21,"54868-5469-01 ")
 ;;1083
 ;;21,"54868-5475-00 ")
 ;;1308
 ;;21,"54868-5503-00 ")
 ;;949
 ;;21,"54868-5503-01 ")
 ;;939
 ;;21,"54868-5548-00 ")
 ;;2377
 ;;21,"54868-5690-01 ")
 ;;36
 ;;21,"54868-5690-02 ")
 ;;37
 ;;21,"54868-5747-00 ")
 ;;2176
 ;;21,"54868-5747-01 ")
 ;;2177
 ;;21,"54868-5781-00 ")
 ;;5
 ;;21,"54868-5781-02 ")
 ;;29
 ;;21,"54868-5782-00 ")
 ;;90
 ;;21,"54868-5782-01 ")
 ;;106
 ;;21,"54868-5782-02 ")
 ;;91
 ;;21,"54868-5782-03 ")
 ;;92
 ;;21,"54868-5782-04 ")
 ;;105
 ;;21,"54868-5783-00 ")
 ;;130
 ;;21,"54868-5783-01 ")
 ;;139
 ;;21,"54868-5787-00 ")
 ;;549
 ;;21,"54868-5792-00 ")
 ;;58
 ;;21,"54868-5792-01 ")
 ;;79
 ;;21,"54868-5842-00 ")
 ;;2289
 ;;21,"54868-5843-00 ")
 ;;2203
 ;;21,"54868-5856-00 ")
 ;;2277
 ;;21,"54868-5896-00 ")
 ;;2178
 ;;21,"55045-2376-00 ")
 ;;433
 ;;21,"55045-2799-00 ")
 ;;893
 ;;21,"55045-2799-01 ")
 ;;814
 ;;21,"55045-2799-02 ")
 ;;815
 ;;21,"55045-2799-06 ")
 ;;861
 ;;21,"55045-2799-09 ")
 ;;828
 ;;21,"55045-2827-00 ")
 ;;608
 ;;21,"55045-2827-04 ")
 ;;566
 ;;21,"55045-2827-06 ")
 ;;618
 ;;21,"55045-2827-08 ")
 ;;567
 ;;21,"55045-2827-09 ")
 ;;636
 ;;21,"55045-2832-08 ")
 ;;768
 ;;21,"55045-2929-00 ")
 ;;1377
 ;;21,"55045-2929-06 ")
 ;;1343
 ;;21,"55045-2929-08 ")
 ;;1460
 ;;21,"55045-2936-00 ")
 ;;1603
 ;;21,"55045-2936-08 ")
 ;;1685
 ;;21,"55045-2937-00 ")
 ;;1378
 ;;21,"55045-2938-00 ")
 ;;1986
 ;;21,"55045-2938-08 ")
 ;;1932
 ;;21,"55045-2975-00 ")
 ;;1798
 ;;21,"55045-2975-06 ")
 ;;1810
 ;;21,"55045-2975-08 ")
 ;;1809
 ;;21,"55045-3059-00 ")
 ;;1473
 ;;21,"55045-3059-08 ")
 ;;1527
 ;;21,"55045-3164-00 ")
 ;;166
 ;;21,"55045-3170-00 ")
 ;;379
 ;;21,"55045-3225-06 ")
 ;;1223
 ;;21,"55045-3373-08 ")
 ;;944
 ;;21,"55045-3772-08 ")
 ;;1616
 ;;21,"55111-0133-01 ")
 ;;941
 ;;21,"55111-0134-01 ")
 ;;919
 ;;21,"55111-0338-01 ")
 ;;50
 ;;21,"55111-0339-01 ")
 ;;64
 ;;21,"55111-0339-05 ")
 ;;87
 ;;21,"55111-0340-01 ")
 ;;104
 ;;21,"55111-0340-05 ")
 ;;93
 ;;21,"55111-0341-01 ")
 ;;18
 ;;21,"55111-0341-05 ")
 ;;4
 ;;21,"55111-0438-90 ")
 ;;2195
 ;;21,"55111-0439-05 ")
 ;;2243
 ;;21,"55111-0439-90 ")
 ;;2249
 ;;21,"55111-0440-05 ")
 ;;2288
 ;;21,"55111-0440-90 ")
 ;;2287
 ;;21,"55111-0441-05 ")
 ;;2207
 ;;21,"55111-0441-90 ")
 ;;2237
 ;;21,"55111-0586-01 ")
 ;;38
 ;;21,"55111-0587-01 ")
 ;;138
 ;;21,"55111-0621-90 ")
 ;;2164
 ;;21,"55111-0622-90 ")
 ;;2056
 ;;21,"55111-0623-90 ")
 ;;2109
 ;;21,"55111-0624-90 ")
 ;;2112
 ;;21,"55175-3964-03 ")
 ;;1462
 ;;21,"55289-0039-30 ")
 ;;102
 ;;21,"55289-0086-30 ")
 ;;227
 ;;21,"55289-0086-97 ")
 ;;258
 ;;21,"55289-0096-30 ")
 ;;63
 ;;21,"55289-0106-30 ")
 ;;1686
 ;;21,"55289-0212-30 ")
 ;;498
 ;;21,"55289-0212-90 ")
 ;;507
 ;;21,"55289-0344-30 ")
 ;;444
 ;;21,"55289-0344-90 ")
 ;;466
 ;;21,"55289-0483-30 ")
 ;;647
 ;;21,"55289-0484-30 ")
 ;;925
 ;;21,"55289-0509-30 ")
 ;;1390
 ;;21,"55289-0552-30 ")
 ;;2153
 ;;21,"55289-0553-30 ")
 ;;2073
 ;;21,"55289-0554-30 ")
 ;;2108
 ;;21,"55289-0555-30 ")
 ;;2136
 ;;21,"55289-0573-30 ")
 ;;1232
 ;;21,"55289-0577-30 ")
 ;;1605
 ;;21,"55289-0591-30 ")
 ;;580
 ;;21,"55289-0591-90 ")
 ;;658
 ;;21,"55289-0622-03 ")
 ;;845
 ;;21,"55289-0622-30 ")
 ;;872
 ;;21,"55289-0638-01 ")
 ;;1380
 ;;21,"55289-0638-12 ")
 ;;1371
 ;;21,"55289-0638-14 ")
 ;;1464
 ;;21,"55289-0638-30 ")
 ;;1465
 ;;21,"55289-0638-60 ")
 ;;1382
 ;;21,"55289-0638-90 ")
 ;;1466
 ;;21,"55289-0638-98 ")
 ;;1467
 ;;21,"55289-0694-10 ")
 ;;856
 ;;21,"55289-0694-30 ")
 ;;855
 ;;21,"55289-0694-90 ")
 ;;854
 ;;21,"55289-0696-14 ")
 ;;1689
 ;;21,"55289-0696-30 ")
 ;;1690
 ;;21,"55289-0696-60 ")
 ;;1703
 ;;21,"55289-0696-90 ")
 ;;1581
 ;;21,"55289-0696-98 ")
 ;;1594
 ;;21,"55289-0867-30 ")
 ;;2208
 ;;21,"55289-0878-30 ")
 ;;1224
 ;;21,"55289-0878-90 ")
 ;;1255
 ;;21,"55289-0884-30 ")
 ;;2005
 ;;21,"55289-0884-90 ")
 ;;1924
 ;;21,"55289-0917-30 ")
 ;;1808
 ;;21,"55289-0917-90 ")
 ;;1807
 ;;21,"55289-0929-08 ")
 ;;1383
 ;;21,"55289-0929-30 ")
 ;;1468
 ;;21,"55289-0963-30 ")
 ;;334
 ;;21,"55289-0981-30 ")
 ;;7
 ;;21,"55289-0984-30 ")
 ;;783
 ;;21,"55390-0712-01 ")
 ;;943
 ;;21,"55887-0099-30 ")
 ;;667
 ;;21,"55887-0175-30 ")
 ;;360
 ;;21,"55887-0223-90 ")
 ;;275
 ;;21,"55887-0304-30 ")
 ;;1061
 ;;21,"55887-0304-60 ")
 ;;1040
 ;;21,"55887-0304-90 ")
 ;;1041
 ;;21,"55887-0322-60 ")
 ;;257
 ;;21,"55887-0322-90 ")
 ;;226
 ;;21,"55887-0322-92 ")
 ;;256
 ;;21,"55887-0366-30 ")
 ;;344
 ;;21,"55887-0385-30 ")
 ;;335
 ;;21,"55887-0385-90 ")
 ;;321
 ;;21,"55887-0425-30 ")
 ;;1101
 ;;21,"55887-0425-60 ")
 ;;1131
 ;;21,"55887-0425-90 ")
 ;;1102
 ;;21,"55887-0426-20 ")
 ;;1168
 ;;21,"55887-0426-60 ")
 ;;1167
 ;;21,"55887-0426-90 ")
 ;;1159
 ;;21,"55887-0430-30 ")
 ;;471
 ;;21,"55887-0532-01 ")
 ;;1254
 ;;21,"55887-0532-60 ")
 ;;1258
 ;;21,"55887-0558-30 ")
 ;;794
 ;;21,"55887-0558-60 ")
 ;;796
 ;;21,"55887-0558-90 ")
 ;;717
 ;;21,"55887-0569-60 ")
 ;;1806
 ;;21,"55887-0581-01 ")
 ;;1558
 ;;21,"55887-0581-30 ")
 ;;1607
 ;;21,"55887-0581-60 ")
 ;;1691
 ;;21,"55887-0581-90 ")
 ;;1684
 ;;21,"55887-0582-01 ")
 ;;510
 ;;21,"55887-0582-30 ")
 ;;511
 ;;21,"55887-0589-30 ")
 ;;1993
 ;;21,"55887-0589-90 ")
 ;;1925
 ;;21,"55887-0590-30 ")
 ;;1526
 ;;21,"55887-0590-60 ")
 ;;1472
 ;;21,"55887-0590-90 ")
 ;;1525
 ;;21,"55887-0591-10 ")
 ;;1463
 ;;21,"55887-0591-20 ")
 ;;1384
 ;;21,"55887-0591-30 ")
 ;;1385
 ;;21,"55887-0591-60 ")
 ;;1386
 ;;21,"55887-0591-90 ")
 ;;1387
 ;;21,"55887-0594-30 ")
 ;;935
 ;;21,"55887-0594-90 ")
 ;;948
 ;;21,"55887-0595-30 ")
 ;;912
 ;;21,"55887-0595-90 ")
 ;;918
 ;;21,"55887-0596-01 ")
 ;;853
 ;;21,"55887-0596-30 ")
 ;;860
 ;;21,"55887-0596-90 ")
 ;;859
 ;;21,"55887-0612-01 ")
 ;;595
 ;;21,"55887-0612-30 ")
 ;;649
 ;;21,"55887-0612-60 ")
 ;;605
 ;;21,"55887-0612-90 ")
 ;;646
 ;;21,"55887-0612-92 ")
 ;;651
 ;;21,"55887-0875-30 ")
 ;;165
 ;;21,"55887-0984-30 ")
 ;;671
 ;;21,"57866-0274-01 ")
 ;;1048
 ;;21,"57866-0275-02 ")
 ;;956
 ;;21,"57866-2000-01 ")
 ;;1990
 ;;21,"57866-3138-01 ")
 ;;1022
 ;;21,"57866-4000-01 ")
 ;;1388
 ;;21,"57866-5000-01 ")
 ;;1692
 ;;21,"57866-6103-01 ")
 ;;522
 ;;21,"57866-6103-02 ")
 ;;512
 ;;21,"57866-6103-03 ")
 ;;513
 ;;21,"57866-6103-04 ")
 ;;514
 ;;21,"57866-6106-01 ")
 ;;457
 ;;21,"57866-6106-02 ")
 ;;463
 ;;21,"57866-6106-03 ")
 ;;483
 ;;21,"57866-6106-04 ")
 ;;462
 ;;21,"57866-6859-01 ")
 ;;870
 ;;21,"57866-6859-02 ")
 ;;852
 ;;21,"57866-6859-03 ")
 ;;851
 ;;21,"57866-6859-04 ")
 ;;850
 ;;21,"57866-8700-01 ")
 ;;1805
 ;;21,"58016-0065-00 ")
 ;;354
 ;;21,"58016-0065-30 ")
 ;;353
 ;;21,"58016-0065-60 ")
 ;;359
 ;;21,"58016-0065-90 ")
 ;;365
 ;;21,"58016-0069-00 ")
 ;;1708
 ;;21,"58016-0069-30 ")
 ;;1707
 ;;21,"58016-0069-60 ")
 ;;1732
 ;;21,"58016-0069-90 ")
 ;;1740
 ;;21,"58016-0228-00 ")
 ;;1205
 ;;21,"58016-0228-02 ")
 ;;1158
 ;;21,"58016-0228-30 ")
 ;;1198
 ;;21,"58016-0228-60 ")
 ;;1202
 ;;21,"58016-0228-90 ")
 ;;1201
 ;;21,"58016-0363-00 ")
 ;;1608
 ;;21,"58016-0363-14 ")
 ;;1609
 ;;21,"58016-0363-21 ")
 ;;1610
 ;;21,"58016-0363-30 ")
 ;;1611
 ;;21,"58016-0363-60 ")
 ;;1693
 ;;21,"58016-0420-00 ")
 ;;184
 ;;21,"58016-0420-10 ")
 ;;187
 ;;21,"58016-0420-30 ")
 ;;198
 ;;21,"58016-0420-60 ")
 ;;197
 ;;21,"58016-0420-90 ")
 ;;196
 ;;21,"58016-0564-00 ")
 ;;1994
 ;;21,"58016-0564-30 ")
 ;;1995
 ;;21,"58016-0564-60 ")
 ;;1926
 ;;21,"58016-0564-90 ")
 ;;1927
 ;;21,"58016-0571-00 ")
 ;;721
 ;;21,"58016-0571-30 ")
 ;;793
 ;;21,"58016-0571-60 ")
 ;;797
 ;;21,"58016-0571-90 ")
 ;;718
 ;;21,"58016-0579-00 ")
 ;;895
 ;;21,"58016-0579-20 ")
 ;;900
 ;;21,"58016-0579-30 ")
 ;;902
 ;;21,"58016-0579-60 ")
 ;;899
 ;;21,"58016-0580-00 ")
 ;;652
 ;;21,"58016-0580-20 ")
 ;;604
 ;;21,"58016-0580-30 ")
 ;;603
 ;;21,"58016-0580-60 ")
 ;;653
 ;;21,"58016-0581-00 ")
 ;;798
 ;;21,"58016-0581-20 ")
 ;;720
 ;;21,"58016-0581-30 ")
 ;;799
 ;;21,"58016-0581-60 ")
 ;;731
 ;;21,"58016-0646-00 ")
 ;;1858
 ;;21,"58016-0646-30 ")
 ;;1804
 ;;21,"58016-0646-60 ")
 ;;1803
 ;;21,"58016-0646-90 ")
 ;;1802
 ;;21,"58016-0685-00 ")
 ;;255
 ;;21,"58016-0685-10 ")
 ;;254
 ;;21,"58016-0685-30 ")
 ;;253
 ;;21,"58016-0685-60 ")
 ;;246
 ;;21,"58016-0685-90 ")
 ;;225
 ;;21,"58016-0686-00 ")
 ;;276
 ;;21,"58016-0686-10 ")
 ;;277
 ;;21,"58016-0686-30 ")
 ;;278
 ;;21,"58016-0686-60 ")
 ;;287
 ;;21,"58016-0686-90 ")
 ;;308
 ;;21,"58016-0760-30 ")
 ;;1612
 ;;21,"58016-0917-00 ")
 ;;1928
 ;;21,"58016-0917-30 ")
 ;;1929
 ;;21,"58016-0917-60 ")
 ;;1939
 ;;21,"58016-0917-90 ")
 ;;1996
 ;;21,"58016-0956-00 ")
 ;;1997
 ;;21,"58016-0956-30 ")
 ;;1931
 ;;21,"58016-0956-60 ")
 ;;1998