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

BGP2TD8.m

Go to the documentation of this file.
BGP2TD8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"55289-0086-30 ")
 ;;873
 ;;21,"55289-0096-30 ")
 ;;118
 ;;21,"55289-0106-30 ")
 ;;2605
 ;;21,"55289-0109-30 ")
 ;;781
 ;;21,"55289-0109-97 ")
 ;;782
 ;;21,"55289-0212-30 ")
 ;;1339
 ;;21,"55289-0212-90 ")
 ;;1340
 ;;21,"55289-0238-30 ")
 ;;4004
 ;;21,"55289-0344-30 ")
 ;;1181
 ;;21,"55289-0344-90 ")
 ;;1182
 ;;21,"55289-0436-30 ")
 ;;4255
 ;;21,"55289-0443-30 ")
 ;;3744
 ;;21,"55289-0483-30 ")
 ;;1488
 ;;21,"55289-0484-30 ")
 ;;349
 ;;21,"55289-0506-30 ")
 ;;1116
 ;;21,"55289-0506-97 ")
 ;;1117
 ;;21,"55289-0509-30 ")
 ;;2272
 ;;21,"55289-0522-30 ")
 ;;3613
 ;;21,"55289-0552-30 ")
 ;;3191
 ;;21,"55289-0553-30 ")
 ;;3091
 ;;21,"55289-0554-30 ")
 ;;3122
 ;;21,"55289-0555-30 ")
 ;;3160
 ;;21,"55289-0573-30 ")
 ;;654
 ;;21,"55289-0577-30 ")
 ;;2580
 ;;21,"55289-0591-30 ")
 ;;1362
 ;;21,"55289-0591-90 ")
 ;;1363
 ;;21,"55289-0622-03 ")
 ;;1852
 ;;21,"55289-0622-30 ")
 ;;1853
 ;;21,"55289-0638-01 ")
 ;;2064
 ;;21,"55289-0638-12 ")
 ;;2065
 ;;21,"55289-0638-14 ")
 ;;2066
 ;;21,"55289-0638-30 ")
 ;;2067
 ;;21,"55289-0638-60 ")
 ;;2068
 ;;21,"55289-0638-90 ")
 ;;2069
 ;;21,"55289-0638-98 ")
 ;;2070
 ;;21,"55289-0694-10 ")
 ;;1737
 ;;21,"55289-0694-30 ")
 ;;1738
 ;;21,"55289-0694-90 ")
 ;;1739
 ;;21,"55289-0696-14 ")
 ;;2512
 ;;21,"55289-0696-30 ")
 ;;2513
 ;;21,"55289-0696-60 ")
 ;;2514
 ;;21,"55289-0696-90 ")
 ;;2515
 ;;21,"55289-0696-98 ")
 ;;2516
 ;;21,"55289-0815-30 ")
 ;;3849
 ;;21,"55289-0817-30 ")
 ;;4315
 ;;21,"55289-0820-30 ")
 ;;3806
 ;;21,"55289-0825-30 ")
 ;;4349
 ;;21,"55289-0838-30 ")
 ;;3805
 ;;21,"55289-0867-30 ")
 ;;3248
 ;;21,"55289-0876-30 ")
 ;;4323
 ;;21,"55289-0878-30 ")
 ;;627
 ;;21,"55289-0884-30 ")
 ;;2993
 ;;21,"55289-0884-90 ")
 ;;2994
 ;;21,"55289-0917-30 ")
 ;;2828
 ;;21,"55289-0917-90 ")
 ;;2829
 ;;21,"55289-0929-08 ")
 ;;2265
 ;;21,"55289-0929-30 ")
 ;;2266
 ;;21,"55289-0963-30 ")
 ;;986
 ;;21,"55289-0981-30 ")
 ;;42
 ;;21,"55289-0984-30 ")
 ;;1608
 ;;21,"55370-0142-07 ")
 ;;1183
 ;;21,"55370-0142-09 ")
 ;;1184
 ;;21,"55370-0144-07 ")
 ;;1337
 ;;21,"55370-0144-09 ")
 ;;1338
 ;;21,"55370-0145-07 ")
 ;;1025
 ;;21,"55370-0164-07 ")
 ;;1103
 ;;21,"55370-0164-09 ")
 ;;1104
 ;;21,"55887-0099-30 ")
 ;;1517
 ;;21,"55887-0223-30 ")
 ;;935
 ;;21,"55887-0227-30 ")
 ;;1596
 ;;21,"55887-0227-60 ")
 ;;1597
 ;;21,"55887-0322-30 ")
 ;;854
 ;;21,"55887-0366-30 ")
 ;;228
 ;;21,"55887-0366-60 ")
 ;;229
 ;;21,"55887-0366-90 ")
 ;;230
 ;;21,"55887-0392-30 ")
 ;;4316
 ;;21,"55887-0392-60 ")
 ;;4317
 ;;21,"55887-0392-90 ")
 ;;4318
 ;;21,"55887-0425-30 ")
 ;;448
 ;;21,"55887-0425-60 ")
 ;;449
 ;;21,"55887-0425-82 ")
 ;;450
 ;;21,"55887-0425-90 ")
 ;;451
 ;;21,"55887-0426-30 ")
 ;;523
 ;;21,"55887-0426-60 ")
 ;;524
 ;;21,"55887-0426-82 ")
 ;;525
 ;;21,"55887-0426-90 ")
 ;;526
 ;;21,"55887-0432-30 ")
 ;;4076
 ;;21,"55887-0432-60 ")
 ;;4077
 ;;21,"55887-0432-90 ")
 ;;4078
 ;;21,"55887-0532-30 ")
 ;;625
 ;;21,"55887-0532-90 ")
 ;;626
 ;;21,"55887-0558-30 ")
 ;;1598
 ;;21,"55887-0558-60 ")
 ;;1599
 ;;21,"55887-0558-82 ")
 ;;1600
 ;;21,"55887-0558-90 ")
 ;;1601
 ;;21,"55887-0569-30 ")
 ;;2830
 ;;21,"55887-0569-60 ")
 ;;2831
 ;;21,"55887-0569-82 ")
 ;;2832
 ;;21,"55887-0569-90 ")
 ;;2833
 ;;21,"55887-0581-30 ")
 ;;2517
 ;;21,"55887-0581-60 ")
 ;;2518
 ;;21,"55887-0581-82 ")
 ;;2519
 ;;21,"55887-0581-90 ")
 ;;2520
 ;;21,"55887-0582-30 ")
 ;;1334
 ;;21,"55887-0582-60 ")
 ;;1335
 ;;21,"55887-0582-90 ")
 ;;1336
 ;;21,"55887-0589-30 ")
 ;;2989
 ;;21,"55887-0589-60 ")
 ;;2990
 ;;21,"55887-0589-82 ")
 ;;2991
 ;;21,"55887-0589-90 ")
 ;;2992
 ;;21,"55887-0590-30 ")
 ;;2292
 ;;21,"55887-0590-60 ")
 ;;2293
 ;;21,"55887-0590-82 ")
 ;;2294
 ;;21,"55887-0590-90 ")
 ;;2295
 ;;21,"55887-0591-01 ")
 ;;2072
 ;;21,"55887-0591-20 ")
 ;;2073
 ;;21,"55887-0591-30 ")
 ;;2074
 ;;21,"55887-0591-60 ")
 ;;2075
 ;;21,"55887-0591-82 ")
 ;;2076
 ;;21,"55887-0591-90 ")
 ;;2077
 ;;21,"55887-0594-30 ")
 ;;355
 ;;21,"55887-0594-60 ")
 ;;356
 ;;21,"55887-0594-82 ")
 ;;357
 ;;21,"55887-0594-90 ")
 ;;358
 ;;21,"55887-0595-30 ")
 ;;324
 ;;21,"55887-0595-60 ")
 ;;325
 ;;21,"55887-0595-82 ")
 ;;326
 ;;21,"55887-0595-90 ")
 ;;327
 ;;21,"55887-0596-30 ")
 ;;1733
 ;;21,"55887-0596-60 ")
 ;;1734
 ;;21,"55887-0596-82 ")
 ;;1735
 ;;21,"55887-0596-90 ")
 ;;1736
 ;;21,"55887-0612-30 ")
 ;;1364
 ;;21,"55887-0612-60 ")
 ;;1365
 ;;21,"55887-0612-82 ")
 ;;1366
 ;;21,"55887-0612-90 ")
 ;;1367
 ;;21,"55887-0984-30 ")
 ;;1518
 ;;21,"55887-0987-30 ")
 ;;3114
 ;;21,"55953-0132-40 ")
 ;;1105
 ;;21,"57866-0064-09 ")
 ;;469
 ;;21,"57866-0065-01 ")
 ;;567
 ;;21,"57866-0245-01 ")
 ;;2988
 ;;21,"57866-0246-01 ")
 ;;2071
 ;;21,"57866-0249-01 ")
 ;;1185
 ;;21,"57866-0274-01 ")
 ;;1994
 ;;21,"57866-0275-02 ")
 ;;1866
 ;;21,"57866-2000-01 ")
 ;;3004
 ;;21,"57866-2000-02 ")
 ;;3005
 ;;21,"57866-2901-02 ")
 ;;4350
 ;;21,"57866-3136-01 ")
 ;;2060
 ;;21,"57866-3138-01 ")
 ;;1914
 ;;21,"57866-4000-01 ")
 ;;2058
 ;;21,"57866-4000-02 ")
 ;;2059
 ;;21,"57866-4420-01 ")
 ;;3093
 ;;21,"57866-4421-01 ")
 ;;3124
 ;;21,"57866-4423-01 ")
 ;;3192
 ;;21,"57866-4424-01 ")
 ;;3162
 ;;21,"57866-5000-01 ")
 ;;2532
 ;;21,"57866-5000-02 ")
 ;;2533
 ;;21,"57866-6000-01 ")
 ;;2615
 ;;21,"57866-6103-01 ")
 ;;1315
 ;;21,"57866-6103-02 ")
 ;;1316
 ;;21,"57866-6103-03 ")
 ;;1317
 ;;21,"57866-6103-04 ")
 ;;1318
 ;;21,"57866-6106-01 ")
 ;;1203
 ;;21,"57866-6106-02 ")
 ;;1204
 ;;21,"57866-6106-03 ")
 ;;1205
 ;;21,"57866-6106-04 ")
 ;;1206
 ;;21,"57866-6700-02 ")
 ;;2267
 ;;21,"57866-6701-02 ")
 ;;2575
 ;;21,"57866-6705-01 ")
 ;;2268
 ;;21,"57866-6706-01 ")
 ;;2574
 ;;21,"57866-6859-01 ")
 ;;1749
 ;;21,"57866-6859-02 ")
 ;;1750
 ;;21,"57866-6859-03 ")
 ;;1751
 ;;21,"57866-6859-04 ")
 ;;1752
 ;;21,"57866-7000-01 ")
 ;;458
 ;;21,"57866-7985-01 ")
 ;;3006
 ;;21,"57866-7989-01 ")
 ;;2841
 ;;21,"57866-7992-01 ")
 ;;566
 ;;21,"57866-8000-01 ")
 ;;528
 ;;21,"57866-8000-02 ")
 ;;529
 ;;21,"57866-8700-01 ")
 ;;2825
 ;;21,"58016-0053-00 ")
 ;;4251
 ;;21,"58016-0053-30 ")
 ;;4252
 ;;21,"58016-0053-60 ")
 ;;4253
 ;;21,"58016-0053-90 ")
 ;;4254
 ;;21,"58016-0065-00 ")
 ;;245
 ;;21,"58016-0065-30 ")
 ;;246
 ;;21,"58016-0065-60 ")
 ;;247
 ;;21,"58016-0065-90 ")
 ;;248
 ;;21,"58016-0066-00 ")
 ;;4225
 ;;21,"58016-0066-30 ")
 ;;4226
 ;;21,"58016-0066-60 ")
 ;;4227
 ;;21,"58016-0066-90 ")
 ;;4228
 ;;21,"58016-0069-00 ")
 ;;2611
 ;;21,"58016-0069-30 ")
 ;;2612
 ;;21,"58016-0069-60 ")
 ;;2613
 ;;21,"58016-0069-90 ")
 ;;2614
 ;;21,"58016-0228-00 ")
 ;;530
 ;;21,"58016-0228-02 ")
 ;;531
 ;;21,"58016-0228-30 ")
 ;;532
 ;;21,"58016-0228-60 ")
 ;;533
 ;;21,"58016-0228-90 ")
 ;;534
 ;;21,"58016-0363-00 ")
 ;;2606
 ;;21,"58016-0363-14 ")
 ;;2607
 ;;21,"58016-0363-21 ")
 ;;2608
 ;;21,"58016-0363-30 ")
 ;;2609
 ;;21,"58016-0363-60 ")
 ;;2610
 ;;21,"58016-0420-00 ")
 ;;783
 ;;21,"58016-0420-10 ")
 ;;784
 ;;21,"58016-0420-30 ")
 ;;785
 ;;21,"58016-0420-60 ")
 ;;786
 ;;21,"58016-0420-90 ")
 ;;787
 ;;21,"58016-0564-00 ")
 ;;3007
 ;;21,"58016-0564-30 ")
 ;;3008
 ;;21,"58016-0564-60 ")
 ;;3009
 ;;21,"58016-0564-90 ")
 ;;3010
 ;;21,"58016-0571-00 ")
 ;;1702
 ;;21,"58016-0571-30 ")
 ;;1703
 ;;21,"58016-0571-60 ")
 ;;1704
 ;;21,"58016-0571-90 ")
 ;;1705
 ;;21,"58016-0579-00 ")
 ;;1753
 ;;21,"58016-0579-20 ")
 ;;1754
 ;;21,"58016-0579-30 ")
 ;;1755
 ;;21,"58016-0579-60 ")
 ;;1756
 ;;21,"58016-0580-00 ")
 ;;1378
 ;;21,"58016-0580-20 ")
 ;;1379
 ;;21,"58016-0580-30 ")
 ;;1380
 ;;21,"58016-0580-60 ")
 ;;1381
 ;;21,"58016-0581-00 ")
 ;;1604
 ;;21,"58016-0581-20 ")
 ;;1605
 ;;21,"58016-0581-30 ")
 ;;1606
 ;;21,"58016-0581-60 ")
 ;;1607
 ;;21,"58016-0646-00 ")
 ;;2837
 ;;21,"58016-0646-30 ")
 ;;2838
 ;;21,"58016-0646-60 ")
 ;;2839
 ;;21,"58016-0646-90 ")
 ;;2840
 ;;21,"58016-0685-00 ")
 ;;874
 ;;21,"58016-0685-10 ")
 ;;875
 ;;21,"58016-0685-30 ")
 ;;876
 ;;21,"58016-0685-60 ")
 ;;877
 ;;21,"58016-0685-90 ")
 ;;878
 ;;21,"58016-0686-00 ")
 ;;951
 ;;21,"58016-0686-10 ")
 ;;952
 ;;21,"58016-0686-30 ")
 ;;953
 ;;21,"58016-0686-60 ")
 ;;954
 ;;21,"58016-0686-90 ")
 ;;955
 ;;21,"58016-0760-00 ")
 ;;2576
 ;;21,"58016-0760-30 ")
 ;;2577
 ;;21,"58016-0760-60 ")
 ;;2578
 ;;21,"58016-0760-90 ")
 ;;2579
 ;;21,"58016-0917-00 ")
 ;;3000
 ;;21,"58016-0917-30 ")
 ;;3001
 ;;21,"58016-0917-60 ")
 ;;3002
 ;;21,"58016-0917-90 ")
 ;;3003
 ;;21,"58016-0956-00 ")
 ;;3034
 ;;21,"58016-0956-30 ")
 ;;3035
 ;;21,"58016-0956-60 ")
 ;;3036
 ;;21,"58016-0956-90 ")
 ;;3037
 ;;21,"58016-0963-00 ")
 ;;2054
 ;;21,"58016-0963-30 ")
 ;;2055
 ;;21,"58016-0963-60 ")
 ;;2056
 ;;21,"58016-0963-90 ")
 ;;2057
 ;;21,"58016-0998-00 ")
 ;;2528
 ;;21,"58016-0998-30 ")
 ;;2529
 ;;21,"58016-0998-60 ")
 ;;2530
 ;;21,"58016-0998-90 ")
 ;;2531
 ;;21,"58016-2638-14 ")
 ;;3038
 ;;21,"58016-2638-21 ")
 ;;3039
 ;;21,"58016-2638-30 ")
 ;;3040
 ;;21,"58016-2638-60 ")
 ;;3041
 ;;21,"58016-2638-90 ")
 ;;3042
 ;;21,"58016-4631-01 ")
 ;;3757
 ;;21,"58177-0341-04 ")
 ;;987
 ;;21,"58177-0342-04 ")
 ;;776
 ;;21,"58177-0342-08 ")
 ;;777
 ;;21,"58177-0343-04 ")
 ;;850
 ;;21,"58177-0343-08 ")
 ;;851
 ;;21,"58177-0344-04 ")
 ;;931
 ;;21,"58177-0344-08 ")
 ;;932
 ;;21,"58864-0000-63 ")
 ;;2526
 ;;21,"58864-0006-30 ")
 ;;2527
 ;;21,"58864-0066-28 ")
 ;;1202
 ;;21,"58864-0104-30 ")
 ;;1913
 ;;21,"58864-0510-15 ")
 ;;2050
 ;;21,"58864-0603-15 ")
 ;;2051
 ;;21,"58864-0603-30 ")
 ;;2052
 ;;21,"58864-0603-90 ")
 ;;2053
 ;;21,"58864-0605-30 ")
 ;;4314
 ;;21,"58864-0618-15 ")
 ;;2826
 ;;21,"58864-0618-30 ")
 ;;2827
 ;;21,"58864-0654-30 ")
 ;;2269
 ;;21,"58864-0659-30 ")
 ;;3612
 ;;21,"58864-0661-30 ")
 ;;666
 ;;21,"58864-0662-30 ")
 ;;4143
 ;;21,"58864-0667-30 ")
 ;;1993
 ;;21,"58864-0674-30 ")
 ;;3363
 ;;21,"58864-0681-30 ")
 ;;4351
 ;;21,"58864-0726-15 ")
 ;;3945
 ;;21,"58864-0726-30 ")
 ;;3946
 ;;21,"58864-0750-30 ")
 ;;2619
 ;;21,"58864-0753-30 ")
 ;;2998
 ;;21,"58864-0753-90 ")
 ;;2999
 ;;21,"58864-0754-30 ")
 ;;1748
 ;;21,"58864-0755-30 ")
 ;;1377
 ;;21,"58864-0762-30 ")
 ;;1609
 ;;21,"58864-0771-15 ")
 ;;3962
 ;;21,"58864-0774-30 ")
 ;;1867
 ;;21,"58864-0774-90 ")
 ;;1868
 ;;21,"58864-0787-30 ")
 ;;539
 ;;21,"58864-0807-30 ")
 ;;4075
 ;;21,"58864-0817-90 ")
 ;;3944
 ;;21,"58864-0838-30 ")
 ;;675
 ;;21,"58864-0847-30 ")
 ;;3249
 ;;21,"58864-0859-30 ")
 ;;3092
 ;;21,"58864-0863-30 ")
 ;;3161
 ;;21,"58864-0869-30 ")
 ;;3123
 ;;21,"59762-0011-01 ")
 ;;3718
 ;;21,"59762-0011-02 ")
 ;;3719
 ;;21,"59762-0012-01 ")
 ;;3598
 ;;21,"59762-0012-02 ")
 ;;3599
 ;;21,"59762-0015-01 ")
 ;;3650
 ;;21,"59762-0015-02 ")
 ;;3651
 ;;21,"59762-0070-01 ")
 ;;4090
 ;;21,"59762-0071-01 ")
 ;;4164
 ;;21,"59762-0071-02 ")
 ;;4165
 ;;21,"59762-0072-01 ")
 ;;4007
 ;;21,"59762-0072-02 ")
 ;;4008
 ;;21,"59762-0220-01 ")
 ;;706
 ;;21,"59762-0222-01 ")
 ;;693
 ;;21,"59762-0223-01 ")
 ;;716
 ;;21,"59762-2140-01 ")
 ;;3433
 ;;21,"59762-2140-06 ")
 ;;3434
 ;;21,"59762-2141-01 ")
 ;;3453
 ;;21,"59762-2141-06 ")
 ;;3454
 ;;21,"59762-2142-01 ")
 ;;3475
 ;;21,"59762-2142-06 ")
 ;;3476
 ;;21,"59762-2270-01 ")
 ;;2289
 ;;21,"59762-2270-03 ")
 ;;2290
 ;;21,"59762-2270-07 ")
 ;;2291
 ;;21,"59762-2271-01 ")
 ;;2995
 ;;21,"59762-2271-03 ")
 ;;2996
 ;;21,"59762-2271-07 ")
 ;;2997
 ;;21,"59762-2272-01 ")
 ;;2061
 ;;21,"59762-2272-03 ")
 ;;2062
 ;;21,"59762-2272-07 ")
 ;;2063
 ;;21,"59762-2273-01 ")
 ;;2523
 ;;21,"59762-2273-03 ")
 ;;2524
 ;;21,"59762-2273-07 ")
 ;;2525
 ;;21,"59762-2274-01 ")
 ;;2616
 ;;21,"59762-2274-03 ")
 ;;2617
 ;;21,"59762-2274-07 ")
 ;;2618
 ;;21,"59762-2275-01 ")
 ;;2822
 ;;21,"59762-2275-03 ")
 ;;2823
 ;;21,"59762-2275-07 ")
 ;;2824
 ;;21,"59762-3146-01 ")
 ;;778
 ;;21,"59762-3146-02 ")
 ;;779
 ;;21,"59762-3147-01 ")
 ;;852
 ;;21,"59762-3147-02 ")
 ;;853
 ;;21,"59762-3148-01 ")
 ;;933
 ;;21,"59762-3148-02 ")
 ;;934
 ;;21,"59762-3293-01 ")
 ;;454
 ;;21,"59762-3293-02 ")
 ;;455
 ;;21,"59762-3293-03 ")
 ;;456
 ;;21,"59762-3293-04 ")
 ;;457
 ;;21,"59762-3294-01 ")
 ;;535
 ;;21,"59762-3294-02 ")
 ;;536
 ;;21,"59762-3294-03 ")
 ;;537
 ;;21,"59762-3294-04 ")
 ;;538
 ;;21,"59762-3295-01 ")
 ;;631
 ;;21,"59762-3295-02 ")
 ;;632
 ;;21,"59762-3295-03 ")
 ;;633
 ;;21,"59762-3295-04 ")
 ;;634
 ;;21,"59762-5019-01 ")
 ;;3206
 ;;21,"59762-5020-01 ")
 ;;3113
 ;;21,"59762-5021-01 ")
 ;;3145
 ;;21,"59762-5022-01 ")
 ;;3180
 ;;21,"59762-5250-01 ")
 ;;376
 ;;21,"59762-5250-04 ")
 ;;377
 ;;21,"59762-5251-01 ")
 ;;387
 ;;21,"59762-5251-04 ")
 ;;388
 ;;21,"59772-5160-05 ")
 ;;297
 ;;21,"59772-5161-05 ")
 ;;304
 ;;21,"59772-5162-05 ")
 ;;310
 ;;21,"59772-5163-05 ")
 ;;321
 ;;21,"59772-7045-01 ")
 ;;1095
 ;;21,"59772-7045-03 ")
 ;;1096