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

BGP47X3.m

Go to the documentation of this file.
BGP47X3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 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,"21695-0972-30 ")
 ;;1514
 ;;21,"21695-0988-30 ")
 ;;2804
 ;;21,"21695-0994-00 ")
 ;;2768
 ;;21,"23155-0110-01 ")
 ;;193
 ;;21,"23155-0110-10 ")
 ;;194
 ;;21,"23155-0111-01 ")
 ;;234
 ;;21,"23155-0111-10 ")
 ;;235
 ;;21,"23155-0112-01 ")
 ;;380
 ;;21,"23155-0112-10 ")
 ;;381
 ;;21,"23155-0113-01 ")
 ;;402
 ;;21,"23155-0114-01 ")
 ;;451
 ;;21,"23155-0114-05 ")
 ;;452
 ;;21,"23490-1977-01 ")
 ;;1609
 ;;21,"23490-1977-03 ")
 ;;1610
 ;;21,"23490-5096-01 ")
 ;;1114
 ;;21,"23490-5096-02 ")
 ;;1115
 ;;21,"23490-5096-03 ")
 ;;1116
 ;;21,"23490-5097-01 ")
 ;;733
 ;;21,"23490-5097-02 ")
 ;;734
 ;;21,"23490-5097-03 ")
 ;;735
 ;;21,"23490-5097-09 ")
 ;;736
 ;;21,"23490-5098-01 ")
 ;;896
 ;;21,"23490-5098-02 ")
 ;;977
 ;;21,"23490-5098-09 ")
 ;;978
 ;;21,"23490-5300-03 ")
 ;;2864
 ;;21,"23490-5300-09 ")
 ;;2865
 ;;21,"23490-5915-00 ")
 ;;1493
 ;;21,"23490-5917-01 ")
 ;;1291
 ;;21,"23490-5920-00 ")
 ;;2033
 ;;21,"23490-5920-01 ")
 ;;2034
 ;;21,"23490-5920-06 ")
 ;;2020
 ;;21,"23490-5921-01 ")
 ;;1932
 ;;21,"23490-5921-02 ")
 ;;1933
 ;;21,"23490-5921-03 ")
 ;;1717
 ;;21,"23490-5927-03 ")
 ;;1377
 ;;21,"23490-5927-09 ")
 ;;1378
 ;;21,"23490-6203-03 ")
 ;;365
 ;;21,"23490-6203-06 ")
 ;;366
 ;;21,"23490-6203-09 ")
 ;;367
 ;;21,"23490-6503-03 ")
 ;;2995
 ;;21,"23490-6504-03 ")
 ;;2950
 ;;21,"23490-6504-06 ")
 ;;2951
 ;;21,"23490-6504-09 ")
 ;;2952
 ;;21,"23490-7861-03 ")
 ;;2895
 ;;21,"23490-9369-03 ")
 ;;2184
 ;;21,"23490-9369-06 ")
 ;;2185
 ;;21,"23490-9370-03 ")
 ;;2260
 ;;21,"23490-9370-06 ")
 ;;2261
 ;;21,"23490-9371-03 ")
 ;;2448
 ;;21,"23490-9371-06 ")
 ;;2449
 ;;21,"23490-9372-03 ")
 ;;2567
 ;;21,"23490-9372-06 ")
 ;;2568
 ;;21,"23629-0001-10 ")
 ;;624
 ;;21,"23629-0038-10 ")
 ;;2805
 ;;21,"24090-0450-85 ")
 ;;600
 ;;21,"24090-0451-85 ")
 ;;605
 ;;21,"24090-0470-88 ")
 ;;465
 ;;21,"24090-0471-88 ")
 ;;505
 ;;21,"24090-0473-88 ")
 ;;542
 ;;21,"24090-0479-88 ")
 ;;570
 ;;21,"29300-0126-01 ")
 ;;1246
 ;;21,"29300-0126-13 ")
 ;;1247
 ;;21,"29300-0127-01 ")
 ;;1258
 ;;21,"29300-0127-13 ")
 ;;1259
 ;;21,"29300-0187-01 ")
 ;;2921
 ;;21,"29300-0187-05 ")
 ;;2922
 ;;21,"29300-0187-13 ")
 ;;2923
 ;;21,"29300-0188-01 ")
 ;;2930
 ;;21,"29300-0188-05 ")
 ;;2931
 ;;21,"29300-0188-13 ")
 ;;2932
 ;;21,"29300-0189-01 ")
 ;;3005
 ;;21,"29300-0189-05 ")
 ;;3006
 ;;21,"29300-0189-13 ")
 ;;3007
 ;;21,"30698-0460-01 ")
 ;;3019
 ;;21,"33261-0221-30 ")
 ;;2701
 ;;21,"33261-0221-60 ")
 ;;2702
 ;;21,"33261-0221-90 ")
 ;;2703
 ;;21,"33261-0334-00 ")
 ;;1642
 ;;21,"33261-0334-30 ")
 ;;1643
 ;;21,"33261-0334-60 ")
 ;;1644
 ;;21,"33261-0334-90 ")
 ;;1645
 ;;21,"33261-0349-30 ")
 ;;1028
 ;;21,"33261-0349-60 ")
 ;;1029
 ;;21,"33261-0349-90 ")
 ;;1030
 ;;21,"33261-0517-00 ")
 ;;1156
 ;;21,"33261-0517-30 ")
 ;;1157
 ;;21,"33261-0517-60 ")
 ;;1158
 ;;21,"33261-0517-90 ")
 ;;1159
 ;;21,"33261-0537-00 ")
 ;;2504
 ;;21,"33261-0537-30 ")
 ;;2505
 ;;21,"33261-0537-60 ")
 ;;2506
 ;;21,"33261-0537-90 ")
 ;;2507
 ;;21,"33261-0544-00 ")
 ;;1756
 ;;21,"33261-0544-30 ")
 ;;1757
 ;;21,"33261-0544-60 ")
 ;;1758
 ;;21,"33261-0544-90 ")
 ;;1759
 ;;21,"33261-0545-00 ")
 ;;1989
 ;;21,"33261-0545-30 ")
 ;;1990
 ;;21,"33261-0545-60 ")
 ;;1991
 ;;21,"33261-0545-90 ")
 ;;1992
 ;;21,"33261-0642-30 ")
 ;;299
 ;;21,"33261-0642-60 ")
 ;;300
 ;;21,"33261-0642-90 ")
 ;;301
 ;;21,"33261-0643-30 ")
 ;;343
 ;;21,"33261-0643-60 ")
 ;;344
 ;;21,"33261-0643-90 ")
 ;;345
 ;;21,"33261-0848-00 ")
 ;;2300
 ;;21,"33261-0848-30 ")
 ;;2301
 ;;21,"33261-0848-60 ")
 ;;2302
 ;;21,"33261-0848-90 ")
 ;;2303
 ;;21,"33261-0855-00 ")
 ;;1401
 ;;21,"33261-0855-30 ")
 ;;1402
 ;;21,"33261-0855-60 ")
 ;;1403
 ;;21,"33261-0855-90 ")
 ;;1404
 ;;21,"33261-0898-00 ")
 ;;1298
 ;;21,"33261-0898-30 ")
 ;;1299
 ;;21,"33261-0898-60 ")
 ;;1300
 ;;21,"33261-0898-90 ")
 ;;1301
 ;;21,"33261-0942-00 ")
 ;;2834
 ;;21,"33261-0942-30 ")
 ;;2835
 ;;21,"33261-0942-60 ")
 ;;2836
 ;;21,"33261-0942-90 ")
 ;;2837
 ;;21,"33358-0037-00 ")
 ;;762
 ;;21,"33358-0037-30 ")
 ;;763
 ;;21,"33358-0037-60 ")
 ;;764
 ;;21,"33358-0038-00 ")
 ;;870
 ;;21,"33358-0038-30 ")
 ;;871
 ;;21,"33358-0038-60 ")
 ;;872
 ;;21,"33358-0039-00 ")
 ;;1135
 ;;21,"33358-0039-30 ")
 ;;1136
 ;;21,"33358-0192-30 ")
 ;;195
 ;;21,"33358-0193-30 ")
 ;;233
 ;;21,"33358-0194-30 ")
 ;;467
 ;;21,"33358-0242-00 ")
 ;;1824
 ;;21,"33358-0242-01 ")
 ;;1825
 ;;21,"33358-0242-30 ")
 ;;1826
 ;;21,"33358-0242-60 ")
 ;;1827
 ;;21,"33358-0242-90 ")
 ;;1828
 ;;21,"33358-0243-00 ")
 ;;2103
 ;;21,"33358-0243-30 ")
 ;;2104
 ;;21,"35356-0362-30 ")
 ;;2693
 ;;21,"35356-0362-60 ")
 ;;2694
 ;;21,"35356-0415-30 ")
 ;;1862
 ;;21,"35356-0490-30 ")
 ;;2654
 ;;21,"35356-0512-30 ")
 ;;2298
 ;;21,"35356-0512-60 ")
 ;;2299
 ;;21,"35356-0513-30 ")
 ;;2170
 ;;21,"35356-0513-60 ")
 ;;2171
 ;;21,"35356-0518-30 ")
 ;;2641
 ;;21,"35356-0526-00 ")
 ;;2604
 ;;21,"35356-0526-30 ")
 ;;2605
 ;;21,"35356-0526-60 ")
 ;;2606
 ;;21,"35356-0737-30 ")
 ;;998
 ;;21,"35356-0738-00 ")
 ;;999
 ;;21,"35356-0782-30 ")
 ;;2007
 ;;21,"35356-0782-60 ")
 ;;2008
 ;;21,"35356-0782-90 ")
 ;;2009
 ;;21,"35356-0859-30 ")
 ;;2876
 ;;21,"35356-0888-30 ")
 ;;1488
 ;;21,"35356-0888-60 ")
 ;;1489
 ;;21,"35356-0888-90 ")
 ;;1490
 ;;21,"35356-0889-30 ")
 ;;1752
 ;;21,"35356-0889-60 ")
 ;;1753
 ;;21,"35356-0889-90 ")
 ;;1754
 ;;21,"35356-0898-30 ")
 ;;1360
 ;;21,"35356-0898-60 ")
 ;;1361
 ;;21,"35356-0898-90 ")
 ;;1362
 ;;21,"35356-0908-30 ")
 ;;2450
 ;;21,"35356-0908-60 ")
 ;;2451
 ;;21,"35356-0930-30 ")
 ;;730
 ;;21,"35356-0930-60 ")
 ;;731
 ;;21,"35356-0930-90 ")
 ;;732
 ;;21,"35356-0934-30 ")
 ;;1275
 ;;21,"35356-0934-60 ")
 ;;1276
 ;;21,"35356-0934-90 ")
 ;;1277
 ;;21,"35356-0946-30 ")
 ;;2181
 ;;21,"35356-0946-60 ")
 ;;2182
 ;;21,"38245-0724-20 ")
 ;;71
 ;;21,"38245-0727-20 ")
 ;;89
 ;;21,"42254-0005-30 ")
 ;;398
 ;;21,"42254-0046-30 ")
 ;;1145
 ;;21,"42254-0046-90 ")
 ;;1146
 ;;21,"42254-0094-30 ")
 ;;11
 ;;21,"42254-0107-30 ")
 ;;954
 ;;21,"42254-0107-60 ")
 ;;955
 ;;21,"42254-0107-90 ")
 ;;956
 ;;21,"42254-0162-00 ")
 ;;2215
 ;;21,"42254-0218-30 ")
 ;;46
 ;;21,"42254-0273-30 ")
 ;;1338
 ;;21,"42254-0273-90 ")
 ;;1339
 ;;21,"42254-0279-30 ")
 ;;151
 ;;21,"42291-0101-90 ")
 ;;632
 ;;21,"42291-0102-90 ")
 ;;647
 ;;21,"42291-0140-10 ")
 ;;768
 ;;21,"42291-0140-18 ")
 ;;769
 ;;21,"42291-0140-45 ")
 ;;770
 ;;21,"42291-0140-90 ")
 ;;771
 ;;21,"42291-0141-10 ")
 ;;863
 ;;21,"42291-0141-18 ")
 ;;864
 ;;21,"42291-0141-45 ")
 ;;865
 ;;21,"42291-0141-90 ")
 ;;866
 ;;21,"42291-0142-18 ")
 ;;1087
 ;;21,"42291-0142-45 ")
 ;;1088
 ;;21,"42291-0142-50 ")
 ;;1089
 ;;21,"42291-0142-90 ")
 ;;1090
 ;;21,"42291-0171-90 ")
 ;;2890
 ;;21,"42291-0172-90 ")
 ;;2959
 ;;21,"42291-0173-90 ")
 ;;2978
 ;;21,"42291-0201-50 ")
 ;;2162
 ;;21,"42291-0201-60 ")
 ;;2163
 ;;21,"42291-0201-90 ")
 ;;2164
 ;;21,"42291-0202-18 ")
 ;;2294
 ;;21,"42291-0202-50 ")
 ;;2295
 ;;21,"42291-0202-60 ")
 ;;2296
 ;;21,"42291-0202-90 ")
 ;;2297
 ;;21,"42291-0203-30 ")
 ;;2472
 ;;21,"42291-0203-50 ")
 ;;2473
 ;;21,"42291-0203-60 ")
 ;;2474
 ;;21,"42291-0203-90 ")
 ;;2475
 ;;21,"42291-0204-18 ")
 ;;2612
 ;;21,"42291-0204-30 ")
 ;;2613
 ;;21,"42291-0204-50 ")
 ;;2614
 ;;21,"42291-0204-60 ")
 ;;2615
 ;;21,"42291-0204-90 ")
 ;;2616
 ;;21,"42291-0221-50 ")
 ;;2165
 ;;21,"42291-0221-60 ")
 ;;2166
 ;;21,"42291-0221-90 ")
 ;;2167
 ;;21,"42291-0222-18 ")
 ;;2290
 ;;21,"42291-0222-50 ")
 ;;2291
 ;;21,"42291-0222-60 ")
 ;;2292
 ;;21,"42291-0222-90 ")
 ;;2293
 ;;21,"42291-0223-30 ")
 ;;2476
 ;;21,"42291-0223-50 ")
 ;;2477
 ;;21,"42291-0223-60 ")
 ;;2478
 ;;21,"42291-0223-90 ")
 ;;2479
 ;;21,"42291-0224-18 ")
 ;;2607
 ;;21,"42291-0224-30 ")
 ;;2608
 ;;21,"42291-0224-50 ")
 ;;2609
 ;;21,"42291-0224-60 ")
 ;;2610
 ;;21,"42291-0224-90 ")
 ;;2611
 ;;21,"42806-0038-01 ")
 ;;1212
 ;;21,"42806-0039-01 ")
 ;;1215
 ;;21,"43063-0006-01 ")
 ;;2055
 ;;21,"43063-0006-90 ")
 ;;2003
 ;;21,"43063-0006-93 ")
 ;;2004
 ;;21,"43063-0062-06 ")
 ;;1025
 ;;21,"43063-0062-30 ")
 ;;1026
 ;;21,"43063-0062-90 ")
 ;;1027
 ;;21,"43063-0064-06 ")
 ;;1688
 ;;21,"43063-0125-93 ")
 ;;2435
 ;;21,"43063-0126-93 ")
 ;;2231
 ;;21,"43063-0127-93 ")
 ;;2346
 ;;21,"43063-0129-60 ")
 ;;2549
 ;;21,"43063-0129-93 ")
 ;;2550
 ;;21,"43063-0134-30 ")
 ;;2998
 ;;21,"43063-0134-90 ")
 ;;2999
 ;;21,"43063-0135-90 ")
 ;;2905
 ;;21,"43063-0210-30 ")
 ;;1294
 ;;21,"43063-0210-90 ")
 ;;1295
 ;;21,"43063-0211-30 ")
 ;;1413
 ;;21,"43063-0211-90 ")
 ;;1414
 ;;21,"43063-0297-30 ")
 ;;670
 ;;21,"43063-0297-90 ")
 ;;671
 ;;21,"43063-0316-30 ")
 ;;1199
 ;;21,"43063-0316-90 ")
 ;;1065
 ;;21,"43063-0398-30 ")
 ;;1702
 ;;21,"43063-0398-90 ")
 ;;1703
 ;;21,"43063-0398-93 ")
 ;;1704
 ;;21,"43063-0398-94 ")
 ;;1705
 ;;21,"43063-0440-90 ")
 ;;1769
 ;;21,"43353-0104-30 ")
 ;;2384
 ;;21,"43353-0104-53 ")
 ;;2499
 ;;21,"43353-0104-60 ")
 ;;2383
 ;;21,"43353-0111-30 ")
 ;;2500
 ;;21,"43353-0111-53 ")
 ;;2501
 ;;21,"43353-0111-60 ")
 ;;2502
 ;;21,"43353-0111-80 ")
 ;;2503
 ;;21,"43353-0119-30 ")
 ;;2307
 ;;21,"43353-0119-53 ")
 ;;2308
 ;;21,"43353-0119-60 ")
 ;;2309
 ;;21,"43353-0119-80 ")
 ;;2310
 ;;21,"43353-0122-30 ")
 ;;2385
 ;;21,"43353-0122-53 ")
 ;;2386
 ;;21,"43353-0122-60 ")
 ;;2387
 ;;21,"43353-0132-53 ")
 ;;2207
 ;;21,"43353-0133-30 ")
 ;;2516
 ;;21,"43353-0133-53 ")
 ;;2517
 ;;21,"43353-0133-60 ")
 ;;2518
 ;;21,"43353-0133-80 ")
 ;;2519
 ;;21,"43353-0134-45 ")
 ;;1526
 ;;21,"43353-0134-60 ")
 ;;1527
 ;;21,"43353-0156-53 ")
 ;;2304
 ;;21,"43353-0156-60 ")
 ;;2305
 ;;21,"43353-0156-80 ")
 ;;2306
 ;;21,"43353-0160-30 ")
 ;;2388
 ;;21,"43353-0160-53 ")
 ;;2389
 ;;21,"43353-0160-60 ")
 ;;2390
 ;;21,"43353-0160-70 ")
 ;;2391
 ;;21,"43353-0160-80 ")
 ;;2392
 ;;21,"43353-0173-30 ")
 ;;1430
 ;;21,"43353-0173-42 ")
 ;;1431
 ;;21,"43353-0173-45 ")
 ;;1432
 ;;21,"43353-0173-60 ")
 ;;1433
 ;;21,"43353-0173-80 ")
 ;;1434
 ;;21,"43353-0348-30 ")
 ;;1384
 ;;21,"43353-0348-45 ")
 ;;1385
 ;;21,"43353-0399-60 ")
 ;;875
 ;;21,"43353-0440-30 ")
 ;;2593
 ;;21,"43353-0440-53 ")
 ;;2594
 ;;21,"43353-0440-60 ")
 ;;2595
 ;;21,"43353-0440-80 ")
 ;;2596
 ;;21,"43353-0478-30 ")
 ;;2480
 ;;21,"43353-0478-53 ")
 ;;2481
 ;;21,"43353-0478-60 ")
 ;;2482
 ;;21,"43353-0485-53 ")
 ;;2172
 ;;21,"43353-0485-60 ")
 ;;2173
 ;;21,"43353-0486-30 ")
 ;;2286
 ;;21,"43353-0486-53 ")
 ;;2287
 ;;21,"43353-0486-60 ")
 ;;2288
 ;;21,"43353-0486-80 ")
 ;;2289
 ;;21,"43353-0508-60 ")
 ;;230
 ;;21,"43353-0576-45 ")
 ;;1721
 ;;21,"43353-0576-53 ")
 ;;1722
 ;;21,"43353-0576-60 ")
 ;;1723
 ;;21,"43353-0576-70 ")
 ;;1724
 ;;21,"43353-0576-80 ")
 ;;1725
 ;;21,"43353-0576-92 ")
 ;;1726
 ;;21,"43353-0583-30 ")
 ;;1370
 ;;21,"43353-0583-45 ")
 ;;1371
 ;;21,"43353-0583-60 ")
 ;;1372
 ;;21,"43353-0701-60 ")
 ;;222
 ;;21,"43353-0706-60 ")
 ;;335
 ;;21,"43353-0795-16 ")
 ;;1515
 ;;21,"43353-0795-60 ")
 ;;1516
 ;;21,"43353-0832-60 ")
 ;;2553
 ;;21,"43353-0832-80 ")
 ;;2554
 ;;21,"43353-0833-30 ")
 ;;672
 ;;21,"43353-0833-45 ")
 ;;673
 ;;21,"43353-0833-60 ")
 ;;674
 ;;21,"43353-0833-80 ")
 ;;675
 ;;21,"43353-0834-30 ")
 ;;1021
 ;;21,"43353-0834-45 ")
 ;;1022
 ;;21,"43353-0834-60 ")
 ;;1023
 ;;21,"43353-0834-80 ")
 ;;1024
 ;;21,"43353-0837-53 ")
 ;;2232
 ;;21,"43353-0837-60 ")
 ;;2233
 ;;21,"43353-0837-80 ")
 ;;2234
 ;;21,"43353-0838-30 ")
 ;;2342
 ;;21,"43353-0838-53 ")
 ;;2343
 ;;21,"43353-0838-60 ")
 ;;2344
 ;;21,"43353-0838-80 ")
 ;;2345
 ;;21,"43478-0900-88 ")
 ;;487
 ;;21,"43478-0901-88 ")
 ;;531
 ;;21,"43478-0902-88 ")
 ;;551
 ;;21,"43478-0903-88 ")
 ;;584
 ;;21,"43547-0254-10 ")
 ;;2216
 ;;21,"43547-0254-50 ")
 ;;2217
 ;;21,"43547-0255-10 ")
 ;;2329
 ;;21,"43547-0255-50 ")
 ;;2330
 ;;21,"43547-0256-10 ")
 ;;2417
 ;;21,"43547-0256-50 ")
 ;;2418
 ;;21,"43547-0257-10 ")
 ;;2529
 ;;21,"43547-0257-50 ")
 ;;2530
 ;;21,"43683-0142-30 ")
 ;;2820
 ;;21,"43683-0143-30 ")
 ;;2862
 ;;21,"43683-0144-30 ")
 ;;949
 ;;21,"43683-0146-30 ")
 ;;1766
 ;;21,"47463-0028-30 ")
 ;;702
 ;;21,"47463-0029-30 ")
 ;;974
 ;;21,"47463-0029-90 ")
 ;;975
 ;;21,"47463-0030-30 ")
 ;;1162
 ;;21,"47463-0056-30 ")
 ;;2399
 ;;21,"47463-0056-60 ")
 ;;2400
 ;;21,"47463-0057-30 ")
 ;;2320
 ;;21,"47463-0057-60 ")
 ;;2321
 ;;21,"47463-0058-30 ")
 ;;2514
 ;;21,"47463-0058-60 ")
 ;;2515
 ;;21,"47463-0059-30 ")
 ;;2205
 ;;21,"47463-0059-60 ")
 ;;2206
 ;;21,"47463-0519-30 ")
 ;;1375
 ;;21,"47463-0519-60 ")
 ;;1376
 ;;21,"47463-0520-30 ")
 ;;1491
 ;;21,"47463-0521-30 ")
 ;;1289
 ;;21,"47463-0522-30 ")
 ;;2019
 ;;21,"47463-0523-30 ")
 ;;1631
 ;;21,"47463-0524-30 ")
 ;;1714
 ;;21,"47463-0524-60 ")
 ;;1715
 ;;21,"47463-0524-74 ")
 ;;1716