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

BGP13X7.m

Go to the documentation of this file.
BGP13X7 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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-5296-00 ")
 ;;204
 ;;21,"54868-5297-00 ")
 ;;3406
 ;;21,"54868-5311-00 ")
 ;;134
 ;;21,"54868-5311-01 ")
 ;;135
 ;;21,"54868-5313-00 ")
 ;;205
 ;;21,"54868-5313-01 ")
 ;;206
 ;;21,"54868-5320-00 ")
 ;;139
 ;;21,"54868-5320-01 ")
 ;;140
 ;;21,"54868-5320-02 ")
 ;;141
 ;;21,"54868-5320-03 ")
 ;;142
 ;;21,"54868-5320-04 ")
 ;;143
 ;;21,"54868-5323-00 ")
 ;;3453
 ;;21,"54868-5323-01 ")
 ;;3454
 ;;21,"54868-5346-00 ")
 ;;298
 ;;21,"54868-5346-01 ")
 ;;299
 ;;21,"54868-5392-00 ")
 ;;826
 ;;21,"54868-5418-00 ")
 ;;3393
 ;;21,"54868-5423-00 ")
 ;;2787
 ;;21,"54868-5423-01 ")
 ;;2788
 ;;21,"54868-5465-00 ")
 ;;3240
 ;;21,"54868-5466-00 ")
 ;;3536
 ;;21,"54868-5466-01 ")
 ;;3537
 ;;21,"54868-5469-00 ")
 ;;307
 ;;21,"54868-5469-01 ")
 ;;308
 ;;21,"54868-5475-00 ")
 ;;591
 ;;21,"54868-5489-00 ")
 ;;3523
 ;;21,"54868-5503-00 ")
 ;;286
 ;;21,"54868-5503-01 ")
 ;;287
 ;;21,"54868-5548-00 ")
 ;;128
 ;;21,"54868-5548-01 ")
 ;;129
 ;;21,"54868-5548-02 ")
 ;;130
 ;;21,"54868-5591-00 ")
 ;;3518
 ;;21,"54868-5607-00 ")
 ;;3470
 ;;21,"54868-5607-01 ")
 ;;3471
 ;;21,"54868-5690-00 ")
 ;;31
 ;;21,"54868-5690-01 ")
 ;;32
 ;;21,"54868-5690-02 ")
 ;;33
 ;;21,"54868-5690-03 ")
 ;;34
 ;;21,"54868-5705-00 ")
 ;;3247
 ;;21,"54868-5747-00 ")
 ;;2928
 ;;21,"54868-5747-01 ")
 ;;2929
 ;;21,"54868-5780-00 ")
 ;;3463
 ;;21,"54868-5780-01 ")
 ;;3465
 ;;21,"54868-5781-00 ")
 ;;12
 ;;21,"54868-5781-01 ")
 ;;13
 ;;21,"54868-5781-02 ")
 ;;14
 ;;21,"54868-5781-03 ")
 ;;15
 ;;21,"54868-5782-00 ")
 ;;97
 ;;21,"54868-5782-01 ")
 ;;98
 ;;21,"54868-5782-02 ")
 ;;99
 ;;21,"54868-5782-03 ")
 ;;100
 ;;21,"54868-5782-04 ")
 ;;108
 ;;21,"54868-5783-00 ")
 ;;117
 ;;21,"54868-5783-01 ")
 ;;118
 ;;21,"54868-5787-00 ")
 ;;231
 ;;21,"54868-5792-00 ")
 ;;64
 ;;21,"54868-5792-01 ")
 ;;65
 ;;21,"54868-5792-02 ")
 ;;66
 ;;21,"54868-5804-00 ")
 ;;3180
 ;;21,"54868-5842-00 ")
 ;;3059
 ;;21,"54868-5842-01 ")
 ;;3060
 ;;21,"54868-5842-02 ")
 ;;3061
 ;;21,"54868-5842-03 ")
 ;;3062
 ;;21,"54868-5843-00 ")
 ;;2965
 ;;21,"54868-5843-01 ")
 ;;2966
 ;;21,"54868-5843-02 ")
 ;;2967
 ;;21,"54868-5856-00 ")
 ;;3011
 ;;21,"54868-5856-01 ")
 ;;3012
 ;;21,"54868-5896-00 ")
 ;;2930
 ;;21,"54868-5928-00 ")
 ;;2789
 ;;21,"54868-5977-00 ")
 ;;3875
 ;;21,"54868-5983-00 ")
 ;;3182
 ;;21,"54868-5983-01 ")
 ;;3183
 ;;21,"54868-5996-00 ")
 ;;3188
 ;;21,"54868-5996-01 ")
 ;;3189
 ;;21,"54868-5997-00 ")
 ;;3185
 ;;21,"54868-5997-01 ")
 ;;3186
 ;;21,"54868-6036-00 ")
 ;;3172
 ;;21,"54868-6061-00 ")
 ;;3143
 ;;21,"54868-6061-01 ")
 ;;3149
 ;;21,"54868-6104-00 ")
 ;;3742
 ;;21,"54868-6104-01 ")
 ;;3743
 ;;21,"54868-6107-00 ")
 ;;3628
 ;;21,"54868-6108-00 ")
 ;;3263
 ;;21,"54868-6109-00 ")
 ;;3302
 ;;21,"54868-6109-01 ")
 ;;3303
 ;;21,"54868-6110-00 ")
 ;;3350
 ;;21,"54868-6117-00 ")
 ;;3681
 ;;21,"54868-6123-00 ")
 ;;3153
 ;;21,"55045-1820-08 ")
 ;;1238
 ;;21,"55045-2201-01 ")
 ;;777
 ;;21,"55045-2376-00 ")
 ;;1000
 ;;21,"55045-2376-08 ")
 ;;1001
 ;;21,"55045-2376-09 ")
 ;;1002
 ;;21,"55045-2424-00 ")
 ;;1110
 ;;21,"55045-2424-06 ")
 ;;1111
 ;;21,"55045-2799-00 ")
 ;;1588
 ;;21,"55045-2827-00 ")
 ;;1294
 ;;21,"55045-2827-08 ")
 ;;1239
 ;;21,"55045-2832-00 ")
 ;;1505
 ;;21,"55045-2832-08 ")
 ;;1453
 ;;21,"55045-2929-06 ")
 ;;1941
 ;;21,"55045-2929-08 ")
 ;;1942
 ;;21,"55045-2936-00 ")
 ;;2354
 ;;21,"55045-2937-00 ")
 ;;1943
 ;;21,"55045-2938-00 ")
 ;;2661
 ;;21,"55045-2938-08 ")
 ;;2662
 ;;21,"55045-2975-00 ")
 ;;2492
 ;;21,"55045-2975-06 ")
 ;;2493
 ;;21,"55045-2975-08 ")
 ;;2494
 ;;21,"55045-3000-00 ")
 ;;464
 ;;21,"55045-3059-00 ")
 ;;2101
 ;;21,"55045-3059-08 ")
 ;;2102
 ;;21,"55045-3159-00 ")
 ;;377
 ;;21,"55045-3225-06 ")
 ;;510
 ;;21,"55045-3373-08 ")
 ;;288
 ;;21,"55045-3401-08 ")
 ;;3710
 ;;21,"55045-3409-09 ")
 ;;3897
 ;;21,"55045-3772-08 ")
 ;;2243
 ;;21,"55111-0133-01 ")
 ;;289
 ;;21,"55111-0134-01 ")
 ;;267
 ;;21,"55111-0338-01 ")
 ;;47
 ;;21,"55111-0339-01 ")
 ;;74
 ;;21,"55111-0339-05 ")
 ;;75
 ;;21,"55111-0340-01 ")
 ;;109
 ;;21,"55111-0340-05 ")
 ;;110
 ;;21,"55111-0341-01 ")
 ;;24
 ;;21,"55111-0341-05 ")
 ;;25
 ;;21,"55111-0438-90 ")
 ;;2931
 ;;21,"55111-0439-05 ")
 ;;3013
 ;;21,"55111-0439-90 ")
 ;;3014
 ;;21,"55111-0440-05 ")
 ;;3063
 ;;21,"55111-0440-90 ")
 ;;3064
 ;;21,"55111-0441-05 ")
 ;;2968
 ;;21,"55111-0441-90 ")
 ;;2969
 ;;21,"55111-0621-90 ")
 ;;2911
 ;;21,"55111-0622-90 ")
 ;;2826
 ;;21,"55111-0623-90 ")
 ;;2858
 ;;21,"55111-0624-90 ")
 ;;2885
 ;;21,"55289-0039-30 ")
 ;;101
 ;;21,"55289-0086-30 ")
 ;;705
 ;;21,"55289-0096-30 ")
 ;;67
 ;;21,"55289-0106-30 ")
 ;;2244
 ;;21,"55289-0109-30 ")
 ;;632
 ;;21,"55289-0109-97 ")
 ;;633
 ;;21,"55289-0212-30 ")
 ;;1112
 ;;21,"55289-0212-90 ")
 ;;1113
 ;;21,"55289-0238-30 ")
 ;;3603
 ;;21,"55289-0344-30 ")
 ;;1003
 ;;21,"55289-0344-90 ")
 ;;1004
 ;;21,"55289-0436-30 ")
 ;;3792
 ;;21,"55289-0443-30 ")
 ;;3385
 ;;21,"55289-0483-30 ")
 ;;1240
 ;;21,"55289-0484-30 ")
 ;;268
 ;;21,"55289-0506-30 ")
 ;;1005
 ;;21,"55289-0506-97 ")
 ;;1006
 ;;21,"55289-0509-30 ")
 ;;1944
 ;;21,"55289-0522-30 ")
 ;;3283
 ;;21,"55289-0552-30 ")
 ;;2912
 ;;21,"55289-0553-30 ")
 ;;2827
 ;;21,"55289-0554-30 ")
 ;;2859
 ;;21,"55289-0555-30 ")
 ;;2886
 ;;21,"55289-0573-30 ")
 ;;511
 ;;21,"55289-0577-30 ")
 ;;2245
 ;;21,"55289-0591-30 ")
 ;;1241
 ;;21,"55289-0591-90 ")
 ;;1242
 ;;21,"55289-0622-03 ")
 ;;1589
 ;;21,"55289-0622-30 ")
 ;;1590
 ;;21,"55289-0638-01 ")
 ;;1945
 ;;21,"55289-0638-12 ")
 ;;1946
 ;;21,"55289-0638-14 ")
 ;;1947
 ;;21,"55289-0638-30 ")
 ;;1948
 ;;21,"55289-0638-90 ")
 ;;1949
 ;;21,"55289-0638-98 ")
 ;;1950
 ;;21,"55289-0694-10 ")
 ;;1591
 ;;21,"55289-0694-30 ")
 ;;1592
 ;;21,"55289-0694-90 ")
 ;;1593
 ;;21,"55289-0696-14 ")
 ;;2246
 ;;21,"55289-0696-30 ")
 ;;2247
 ;;21,"55289-0696-90 ")
 ;;2248
 ;;21,"55289-0696-98 ")
 ;;2249
 ;;21,"55289-0815-30 ")
 ;;3491
 ;;21,"55289-0817-30 ")
 ;;3843
 ;;21,"55289-0820-30 ")
 ;;3455
 ;;21,"55289-0825-30 ")
 ;;3898
 ;;21,"55289-0838-30 ")
 ;;3428
 ;;21,"55289-0867-30 ")
 ;;2970
 ;;21,"55289-0876-30 ")
 ;;3865
 ;;21,"55289-0878-30 ")
 ;;512
 ;;21,"55289-0884-30 ")
 ;;2663
 ;;21,"55289-0884-90 ")
 ;;2664
 ;;21,"55289-0917-30 ")
 ;;2495
 ;;21,"55289-0917-90 ")
 ;;2496
 ;;21,"55289-0929-08 ")
 ;;1951
 ;;21,"55289-0929-30 ")
 ;;1952
 ;;21,"55289-0963-30 ")
 ;;827
 ;;21,"55289-0981-30 ")
 ;;16
 ;;21,"55289-0984-30 ")
 ;;1454
 ;;21,"55370-0142-07 ")
 ;;1007
 ;;21,"55370-0142-09 ")
 ;;1008
 ;;21,"55370-0144-07 ")
 ;;1114
 ;;21,"55370-0144-09 ")
 ;;1115
 ;;21,"55370-0145-07 ")
 ;;861
 ;;21,"55370-0164-07 ")
 ;;919
 ;;21,"55370-0164-09 ")
 ;;920
 ;;21,"55887-0099-30 ")
 ;;1357
 ;;21,"55887-0223-30 ")
 ;;778
 ;;21,"55887-0227-30 ")
 ;;1455
 ;;21,"55887-0227-60 ")
 ;;1456
 ;;21,"55887-0322-30 ")
 ;;706
 ;;21,"55887-0366-30 ")
 ;;160
 ;;21,"55887-0366-60 ")
 ;;161
 ;;21,"55887-0366-90 ")
 ;;162
 ;;21,"55887-0392-30 ")
 ;;3844
 ;;21,"55887-0392-60 ")
 ;;3845
 ;;21,"55887-0392-90 ")
 ;;3846
 ;;21,"55887-0425-30 ")
 ;;352
 ;;21,"55887-0425-60 ")
 ;;353
 ;;21,"55887-0425-82 ")
 ;;354
 ;;21,"55887-0425-90 ")
 ;;355
 ;;21,"55887-0426-30 ")
 ;;428
 ;;21,"55887-0426-60 ")
 ;;429
 ;;21,"55887-0426-82 ")
 ;;430
 ;;21,"55887-0426-90 ")
 ;;431
 ;;21,"55887-0432-30 ")
 ;;3660
 ;;21,"55887-0432-60 ")
 ;;3661
 ;;21,"55887-0432-90 ")
 ;;3662
 ;;21,"55887-0532-30 ")
 ;;513
 ;;21,"55887-0532-90 ")
 ;;514
 ;;21,"55887-0558-30 ")
 ;;1457
 ;;21,"55887-0558-60 ")
 ;;1458
 ;;21,"55887-0558-82 ")
 ;;1459
 ;;21,"55887-0558-90 ")
 ;;1460
 ;;21,"55887-0569-30 ")
 ;;2497
 ;;21,"55887-0569-60 ")
 ;;2498
 ;;21,"55887-0569-82 ")
 ;;2499
 ;;21,"55887-0569-90 ")
 ;;2500
 ;;21,"55887-0581-30 ")
 ;;2250
 ;;21,"55887-0581-60 ")
 ;;2251
 ;;21,"55887-0581-82 ")
 ;;2252
 ;;21,"55887-0581-90 ")
 ;;2253
 ;;21,"55887-0582-30 ")
 ;;1116
 ;;21,"55887-0582-60 ")
 ;;1117
 ;;21,"55887-0582-90 ")
 ;;1118
 ;;21,"55887-0589-30 ")
 ;;2665
 ;;21,"55887-0589-60 ")
 ;;2666
 ;;21,"55887-0589-82 ")
 ;;2667
 ;;21,"55887-0589-90 ")
 ;;2668
 ;;21,"55887-0590-30 ")
 ;;2103
 ;;21,"55887-0590-60 ")
 ;;2104
 ;;21,"55887-0590-82 ")
 ;;2105
 ;;21,"55887-0590-90 ")
 ;;2106
 ;;21,"55887-0591-01 ")
 ;;1953
 ;;21,"55887-0591-20 ")
 ;;1954
 ;;21,"55887-0591-30 ")
 ;;1955
 ;;21,"55887-0591-60 ")
 ;;1956
 ;;21,"55887-0591-82 ")
 ;;1957
 ;;21,"55887-0591-90 ")
 ;;1958
 ;;21,"55887-0594-30 ")
 ;;290
 ;;21,"55887-0594-60 ")
 ;;291
 ;;21,"55887-0594-82 ")
 ;;292
 ;;21,"55887-0594-90 ")
 ;;293
 ;;21,"55887-0595-30 ")
 ;;269
 ;;21,"55887-0595-60 ")
 ;;270
 ;;21,"55887-0595-82 ")
 ;;271
 ;;21,"55887-0595-90 ")
 ;;272
 ;;21,"55887-0596-30 ")
 ;;1594
 ;;21,"55887-0596-60 ")
 ;;1595
 ;;21,"55887-0596-82 ")
 ;;1596
 ;;21,"55887-0596-90 ")
 ;;1597
 ;;21,"55887-0612-30 ")
 ;;1243
 ;;21,"55887-0612-60 ")
 ;;1244
 ;;21,"55887-0612-82 ")
 ;;1245
 ;;21,"55887-0612-90 ")
 ;;1246
 ;;21,"55887-0984-30 ")
 ;;1358
 ;;21,"55887-0987-30 ")
 ;;2828
 ;;21,"55953-0132-40 ")
 ;;921
 ;;21,"57866-0064-09 ")
 ;;356
 ;;21,"57866-0065-01 ")
 ;;432
 ;;21,"57866-0245-01 ")
 ;;2669
 ;;21,"57866-0246-01 ")
 ;;1959
 ;;21,"57866-0249-01 ")
 ;;1009
 ;;21,"57866-0274-01 ")
 ;;1805
 ;;21,"57866-0275-02 ")
 ;;1680
 ;;21,"57866-2000-01 ")
 ;;2670
 ;;21,"57866-2000-02 ")
 ;;2671
 ;;21,"57866-2901-02 ")
 ;;3899
 ;;21,"57866-3136-01 ")
 ;;1960
 ;;21,"57866-3138-01 ")
 ;;1730
 ;;21,"57866-4000-01 ")
 ;;1961
 ;;21,"57866-4000-02 ")
 ;;1962
 ;;21,"57866-4420-01 ")
 ;;2829
 ;;21,"57866-4421-01 ")
 ;;2860
 ;;21,"57866-4423-01 ")
 ;;2913
 ;;21,"57866-4424-01 ")
 ;;2887
 ;;21,"57866-5000-01 ")
 ;;2254
 ;;21,"57866-5000-02 ")
 ;;2255
 ;;21,"57866-6000-01 ")
 ;;2387
 ;;21,"57866-6103-01 ")
 ;;1119
 ;;21,"57866-6103-02 ")
 ;;1120
 ;;21,"57866-6103-03 ")
 ;;1121
 ;;21,"57866-6103-04 ")
 ;;1122
 ;;21,"57866-6106-01 ")
 ;;1010
 ;;21,"57866-6106-02 ")
 ;;1011
 ;;21,"57866-6106-03 ")
 ;;1012
 ;;21,"57866-6106-04 ")
 ;;1013
 ;;21,"57866-6700-02 ")
 ;;1963
 ;;21,"57866-6701-02 ")
 ;;2256
 ;;21,"57866-6705-01 ")
 ;;1964
 ;;21,"57866-6706-01 ")
 ;;2257
 ;;21,"57866-6859-01 ")
 ;;1598
 ;;21,"57866-6859-02 ")
 ;;1599
 ;;21,"57866-6859-03 ")
 ;;1600
 ;;21,"57866-6859-04 ")
 ;;1601
 ;;21,"57866-7000-01 ")
 ;;357
 ;;21,"57866-7985-01 ")
 ;;2672
 ;;21,"57866-7989-01 ")
 ;;2501
 ;;21,"57866-7992-01 ")
 ;;433
 ;;21,"57866-8000-01 ")
 ;;434
 ;;21,"57866-8000-02 ")
 ;;435
 ;;21,"57866-8700-01 ")
 ;;2502
 ;;21,"58016-0053-00 ")
 ;;3793
 ;;21,"58016-0053-30 ")
 ;;3794
 ;;21,"58016-0053-60 ")
 ;;3795
 ;;21,"58016-0053-90 ")
 ;;3796
 ;;21,"58016-0065-00 ")
 ;;181
 ;;21,"58016-0065-30 ")
 ;;182
 ;;21,"58016-0065-60 ")
 ;;183
 ;;21,"58016-0065-90 ")
 ;;184
 ;;21,"58016-0066-00 ")
 ;;3773
 ;;21,"58016-0066-30 ")
 ;;3774
 ;;21,"58016-0066-60 ")
 ;;3775
 ;;21,"58016-0066-90 ")
 ;;3776
 ;;21,"58016-0069-00 ")
 ;;2388
 ;;21,"58016-0069-30 ")
 ;;2389
 ;;21,"58016-0069-60 ")
 ;;2390
 ;;21,"58016-0069-90 ")
 ;;2391
 ;;21,"58016-0228-00 ")
 ;;436
 ;;21,"58016-0228-02 ")
 ;;437
 ;;21,"58016-0228-30 ")
 ;;438
 ;;21,"58016-0228-60 ")
 ;;439
 ;;21,"58016-0228-90 ")
 ;;440
 ;;21,"58016-0363-00 ")
 ;;2258
 ;;21,"58016-0363-14 ")
 ;;2259
 ;;21,"58016-0363-21 ")
 ;;2260
 ;;21,"58016-0363-30 ")
 ;;2261
 ;;21,"58016-0363-60 ")
 ;;2262
 ;;21,"58016-0420-00 ")
 ;;634
 ;;21,"58016-0420-10 ")
 ;;635
 ;;21,"58016-0420-30 ")
 ;;636
 ;;21,"58016-0420-60 ")
 ;;637
 ;;21,"58016-0420-90 ")
 ;;638
 ;;21,"58016-0564-00 ")
 ;;2673
 ;;21,"58016-0564-30 ")
 ;;2674
 ;;21,"58016-0564-60 ")
 ;;2675
 ;;21,"58016-0564-90 ")
 ;;2676
 ;;21,"58016-0571-00 ")
 ;;1461
 ;;21,"58016-0571-30 ")
 ;;1462
 ;;21,"58016-0571-60 ")
 ;;1463
 ;;21,"58016-0571-90 ")
 ;;1464
 ;;21,"58016-0579-00 ")
 ;;1602
 ;;21,"58016-0579-20 ")
 ;;1603
 ;;21,"58016-0579-30 ")
 ;;1604