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

BGP33I2.m

Go to the documentation of this file.
BGP33I2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"00247-0372-10 ")
 ;;2114
 ;;21,"00247-0372-14 ")
 ;;2115
 ;;21,"00247-0372-15 ")
 ;;2116
 ;;21,"00247-0372-28 ")
 ;;2117
 ;;21,"00247-0372-30 ")
 ;;2118
 ;;21,"00247-0372-52 ")
 ;;2119
 ;;21,"00247-0372-60 ")
 ;;2120
 ;;21,"00247-0614-20 ")
 ;;1
 ;;21,"00247-0614-30 ")
 ;;2
 ;;21,"00247-0614-50 ")
 ;;3
 ;;21,"00247-0614-60 ")
 ;;4
 ;;21,"00247-0614-90 ")
 ;;5
 ;;21,"00247-0615-00 ")
 ;;195
 ;;21,"00247-0615-04 ")
 ;;196
 ;;21,"00247-0615-07 ")
 ;;197
 ;;21,"00247-0615-10 ")
 ;;198
 ;;21,"00247-0615-12 ")
 ;;199
 ;;21,"00247-0615-15 ")
 ;;200
 ;;21,"00247-0615-30 ")
 ;;201
 ;;21,"00247-0615-50 ")
 ;;202
 ;;21,"00247-0615-52 ")
 ;;203
 ;;21,"00247-0615-60 ")
 ;;204
 ;;21,"00247-0615-90 ")
 ;;205
 ;;21,"00247-0616-10 ")
 ;;2962
 ;;21,"00247-0616-15 ")
 ;;2963
 ;;21,"00247-0616-30 ")
 ;;2964
 ;;21,"00247-0644-00 ")
 ;;1953
 ;;21,"00247-0644-03 ")
 ;;1954
 ;;21,"00247-0644-07 ")
 ;;1955
 ;;21,"00247-0644-10 ")
 ;;1956
 ;;21,"00247-0644-14 ")
 ;;1957
 ;;21,"00247-0644-28 ")
 ;;1958
 ;;21,"00247-0644-30 ")
 ;;1959
 ;;21,"00247-0644-60 ")
 ;;1960
 ;;21,"00247-0673-00 ")
 ;;4369
 ;;21,"00247-0673-07 ")
 ;;4370
 ;;21,"00247-0673-10 ")
 ;;4371
 ;;21,"00247-0673-14 ")
 ;;4372
 ;;21,"00247-0673-30 ")
 ;;4373
 ;;21,"00247-0673-60 ")
 ;;4374
 ;;21,"00247-0673-90 ")
 ;;4375
 ;;21,"00247-0675-03 ")
 ;;3994
 ;;21,"00247-0675-07 ")
 ;;3995
 ;;21,"00247-0675-08 ")
 ;;3996
 ;;21,"00247-0675-14 ")
 ;;3997
 ;;21,"00247-0675-30 ")
 ;;3998
 ;;21,"00247-0675-33 ")
 ;;3999
 ;;21,"00247-0675-90 ")
 ;;4000
 ;;21,"00247-0677-07 ")
 ;;527
 ;;21,"00247-0773-00 ")
 ;;1555
 ;;21,"00247-0773-30 ")
 ;;1556
 ;;21,"00247-0773-90 ")
 ;;1557
 ;;21,"00247-0787-07 ")
 ;;3333
 ;;21,"00247-0787-10 ")
 ;;3334
 ;;21,"00247-0787-14 ")
 ;;3335
 ;;21,"00247-0787-15 ")
 ;;3336
 ;;21,"00247-0787-28 ")
 ;;3337
 ;;21,"00247-0787-30 ")
 ;;3338
 ;;21,"00247-0787-50 ")
 ;;3339
 ;;21,"00247-0787-60 ")
 ;;3340
 ;;21,"00247-0789-07 ")
 ;;2564
 ;;21,"00247-0789-14 ")
 ;;2565
 ;;21,"00247-0789-30 ")
 ;;2566
 ;;21,"00247-0808-07 ")
 ;;2629
 ;;21,"00247-0808-14 ")
 ;;2630
 ;;21,"00247-0808-30 ")
 ;;2631
 ;;21,"00247-0809-07 ")
 ;;2633
 ;;21,"00247-0809-14 ")
 ;;2634
 ;;21,"00247-0809-30 ")
 ;;2635
 ;;21,"00247-0810-07 ")
 ;;2637
 ;;21,"00247-0810-14 ")
 ;;2638
 ;;21,"00247-0810-30 ")
 ;;2639
 ;;21,"00247-0815-00 ")
 ;;1475
 ;;21,"00247-0815-30 ")
 ;;1476
 ;;21,"00247-0853-04 ")
 ;;4732
 ;;21,"00247-0853-06 ")
 ;;4733
 ;;21,"00247-0853-08 ")
 ;;4734
 ;;21,"00247-0853-30 ")
 ;;4735
 ;;21,"00247-0853-60 ")
 ;;4736
 ;;21,"00247-0853-90 ")
 ;;4737
 ;;21,"00247-1035-30 ")
 ;;4918
 ;;21,"00247-1035-60 ")
 ;;4919
 ;;21,"00247-1035-90 ")
 ;;4920
 ;;21,"00247-1041-03 ")
 ;;4275
 ;;21,"00247-1041-07 ")
 ;;4276
 ;;21,"00247-1041-30 ")
 ;;4277
 ;;21,"00247-1042-30 ")
 ;;4352
 ;;21,"00247-1056-60 ")
 ;;2965
 ;;21,"00247-1057-15 ")
 ;;3046
 ;;21,"00247-1057-60 ")
 ;;3047
 ;;21,"00247-1058-60 ")
 ;;3184
 ;;21,"00247-1075-10 ")
 ;;3048
 ;;21,"00247-1075-30 ")
 ;;3049
 ;;21,"00247-1075-60 ")
 ;;3050
 ;;21,"00247-1177-07 ")
 ;;1657
 ;;21,"00247-1177-30 ")
 ;;1658
 ;;21,"00247-1201-00 ")
 ;;355
 ;;21,"00247-1201-30 ")
 ;;356
 ;;21,"00247-1214-03 ")
 ;;3516
 ;;21,"00247-1214-07 ")
 ;;3517
 ;;21,"00247-1214-30 ")
 ;;3518
 ;;21,"00247-1232-30 ")
 ;;1587
 ;;21,"00247-1233-30 ")
 ;;1723
 ;;21,"00247-1242-30 ")
 ;;452
 ;;21,"00247-1243-30 ")
 ;;124
 ;;21,"00247-1521-30 ")
 ;;4801
 ;;21,"00247-1521-60 ")
 ;;4802
 ;;21,"00247-1522-30 ")
 ;;4639
 ;;21,"00247-1522-60 ")
 ;;4640
 ;;21,"00247-1523-30 ")
 ;;4530
 ;;21,"00247-1523-60 ")
 ;;4531
 ;;21,"00247-1677-10 ")
 ;;683
 ;;21,"00247-1677-60 ")
 ;;684
 ;;21,"00247-1679-10 ")
 ;;3141
 ;;21,"00247-1679-60 ")
 ;;3142
 ;;21,"00247-1680-10 ")
 ;;2521
 ;;21,"00247-1731-30 ")
 ;;1511
 ;;21,"00247-1731-60 ")
 ;;1512
 ;;21,"00247-1731-90 ")
 ;;1513
 ;;21,"00247-1813-04 ")
 ;;4147
 ;;21,"00247-1813-08 ")
 ;;4148
 ;;21,"00247-1813-30 ")
 ;;4149
 ;;21,"00247-1814-08 ")
 ;;3211
 ;;21,"00247-1814-14 ")
 ;;3212
 ;;21,"00247-1814-30 ")
 ;;3213
 ;;21,"00247-1843-03 ")
 ;;2648
 ;;21,"00247-1843-07 ")
 ;;2649
 ;;21,"00247-1843-08 ")
 ;;2650
 ;;21,"00247-1843-14 ")
 ;;2651
 ;;21,"00247-1850-04 ")
 ;;4673
 ;;21,"00247-1850-08 ")
 ;;4674
 ;;21,"00247-1850-30 ")
 ;;4675
 ;;21,"00247-1893-00 ")
 ;;1067
 ;;21,"00247-1893-07 ")
 ;;1068
 ;;21,"00247-1893-30 ")
 ;;1069
 ;;21,"00247-1893-60 ")
 ;;1070
 ;;21,"00247-1893-77 ")
 ;;1071
 ;;21,"00247-1893-90 ")
 ;;1072
 ;;21,"00247-1894-07 ")
 ;;1224
 ;;21,"00247-1894-30 ")
 ;;1225
 ;;21,"00247-1894-60 ")
 ;;1226
 ;;21,"00247-1894-77 ")
 ;;1227
 ;;21,"00247-1894-90 ")
 ;;1228
 ;;21,"00247-1915-03 ")
 ;;2121
 ;;21,"00247-1915-07 ")
 ;;2122
 ;;21,"00247-1915-30 ")
 ;;2123
 ;;21,"00247-1915-90 ")
 ;;2124
 ;;21,"00247-1918-15 ")
 ;;2743
 ;;21,"00247-1918-30 ")
 ;;2744
 ;;21,"00247-1961-00 ")
 ;;528
 ;;21,"00247-1961-14 ")
 ;;529
 ;;21,"00247-1961-30 ")
 ;;530
 ;;21,"00247-1961-60 ")
 ;;531
 ;;21,"00247-1964-30 ")
 ;;2366
 ;;21,"00247-1964-90 ")
 ;;2367
 ;;21,"00247-1965-00 ")
 ;;1961
 ;;21,"00247-1965-03 ")
 ;;1962
 ;;21,"00247-1965-14 ")
 ;;1963
 ;;21,"00247-1965-30 ")
 ;;1964
 ;;21,"00247-1965-60 ")
 ;;1965
 ;;21,"00247-1965-90 ")
 ;;1966
 ;;21,"00247-1965-99 ")
 ;;1967
 ;;21,"00247-2052-00 ")
 ;;3341
 ;;21,"00247-2052-07 ")
 ;;3342
 ;;21,"00247-2052-30 ")
 ;;3343
 ;;21,"00247-2052-90 ")
 ;;3344
 ;;21,"00247-2077-30 ")
 ;;685
 ;;21,"00247-2077-60 ")
 ;;686
 ;;21,"00247-2083-30 ")
 ;;2652
 ;;21,"00247-2083-60 ")
 ;;2653
 ;;21,"00247-2083-90 ")
 ;;2654
 ;;21,"00247-2084-30 ")
 ;;2745
 ;;21,"00247-2084-60 ")
 ;;2746
 ;;21,"00247-2085-30 ")
 ;;3214
 ;;21,"00247-2094-30 ")
 ;;3519
 ;;21,"00247-2094-90 ")
 ;;3520
 ;;21,"00247-2117-30 ")
 ;;1840
 ;;21,"00247-2132-00 ")
 ;;965
 ;;21,"00247-2132-07 ")
 ;;966
 ;;21,"00247-2132-30 ")
 ;;967
 ;;21,"00247-2132-60 ")
 ;;968
 ;;21,"00247-2132-90 ")
 ;;969
 ;;21,"00247-2133-00 ")
 ;;1073
 ;;21,"00247-2133-07 ")
 ;;1074
 ;;21,"00247-2133-30 ")
 ;;1075
 ;;21,"00247-2133-60 ")
 ;;1076
 ;;21,"00247-2133-90 ")
 ;;1077
 ;;21,"00247-2134-00 ")
 ;;1229
 ;;21,"00247-2134-07 ")
 ;;1230
 ;;21,"00247-2134-30 ")
 ;;1231
 ;;21,"00247-2134-60 ")
 ;;1232
 ;;21,"00247-2134-90 ")
 ;;1233
 ;;21,"00247-2262-30 ")
 ;;1891
 ;;21,"00247-2265-30 ")
 ;;3596
 ;;21,"00247-2265-60 ")
 ;;3597
 ;;21,"00247-2265-90 ")
 ;;3598
 ;;21,"00247-2271-30 ")
 ;;4001
 ;;21,"00247-2272-00 ")
 ;;3730
 ;;21,"00247-2272-30 ")
 ;;3731
 ;;21,"00247-2272-60 ")
 ;;3732
 ;;21,"00247-2272-90 ")
 ;;3733
 ;;21,"00247-2299-00 ")
 ;;4921
 ;;21,"00247-2299-90 ")
 ;;4922
 ;;21,"00247-2314-00 ")
 ;;1379
 ;;21,"00247-2314-30 ")
 ;;1380
 ;;21,"00247-2314-60 ")
 ;;1381
 ;;21,"00247-2314-77 ")
 ;;1382
 ;;21,"00247-2314-90 ")
 ;;1383
 ;;21,"00247-2337-30 ")
 ;;4838
 ;;21,"00247-2337-60 ")
 ;;4839
 ;;21,"00247-2337-90 ")
 ;;4840
 ;;21,"00247-2356-00 ")
 ;;842
 ;;21,"00247-2356-30 ")
 ;;843
 ;;21,"00258-3695-01 ")
 ;;970
 ;;21,"00258-3695-05 ")
 ;;971
 ;;21,"00258-3696-01 ")
 ;;1078
 ;;21,"00258-3697-01 ")
 ;;1234
 ;;21,"00378-0042-01 ")
 ;;510
 ;;21,"00378-0060-01 ")
 ;;2632
 ;;21,"00378-0073-01 ")
 ;;516
 ;;21,"00378-0087-01 ")
 ;;2636
 ;;21,"00378-0092-01 ")
 ;;2640
 ;;21,"00378-0211-01 ")
 ;;496
 ;;21,"00378-0211-05 ")
 ;;497
 ;;21,"00378-0277-01 ")
 ;;503
 ;;21,"00378-0277-05 ")
 ;;504
 ;;21,"00378-0330-01 ")
 ;;508
 ;;21,"00378-0330-05 ")
 ;;509
 ;;21,"00378-0407-01 ")
 ;;2470
 ;;21,"00378-0412-01 ")
 ;;2481
 ;;21,"00378-0414-01 ")
 ;;2452
 ;;21,"00378-0433-01 ")
 ;;903
 ;;21,"00378-0433-05 ")
 ;;904
 ;;21,"00378-0435-01 ")
 ;;532
 ;;21,"00378-0435-05 ")
 ;;533
 ;;21,"00378-0442-01 ")
 ;;511
 ;;21,"00378-0442-05 ")
 ;;512
 ;;21,"00378-0574-01 ")
 ;;514
 ;;21,"00378-0574-05 ")
 ;;515
 ;;21,"00378-1049-01 ")
 ;;1514
 ;;21,"00378-1049-10 ")
 ;;1515
 ;;21,"00378-1410-01 ")
 ;;2966
 ;;21,"00378-1921-01 ")
 ;;972
 ;;21,"00378-1922-01 ")
 ;;1079
 ;;21,"00378-1922-05 ")
 ;;1080
 ;;21,"00378-1924-01 ")
 ;;1235
 ;;21,"00378-1924-05 ")
 ;;1236
 ;;21,"00378-2003-05 ")
 ;;3305
 ;;21,"00378-2003-93 ")
 ;;3306
 ;;21,"00378-2004-05 ")
 ;;3491
 ;;21,"00378-2004-93 ")
 ;;3492
 ;;21,"00378-2005-93 ")
 ;;3583
 ;;21,"00378-2006-93 ")
 ;;3584
 ;;21,"00378-2008-77 ")
 ;;782
 ;;21,"00378-2009-05 ")
 ;;844
 ;;21,"00378-2325-01 ")
 ;;3051
 ;;21,"00378-2610-01 ")
 ;;6
 ;;21,"00378-2610-10 ")
 ;;7
 ;;21,"00378-2625-01 ")
 ;;206
 ;;21,"00378-2625-10 ")
 ;;207
 ;;21,"00378-2650-01 ")
 ;;357
 ;;21,"00378-2650-10 ")
 ;;358
 ;;21,"00378-2675-01 ")
 ;;453
 ;;21,"00378-2675-93 ")
 ;;454
 ;;21,"00378-2685-01 ")
 ;;125
 ;;21,"00378-2685-93 ")
 ;;126
 ;;21,"00378-2695-01 ")
 ;;179
 ;;21,"00378-2695-93 ")
 ;;180
 ;;21,"00378-3025-01 ")
 ;;1348
 ;;21,"00378-3050-01 ")
 ;;1359
 ;;21,"00378-3075-01 ")
 ;;1370
 ;;21,"00378-3125-01 ")
 ;;1588
 ;;21,"00378-3125-10 ")
 ;;1589
 ;;21,"00378-3250-01 ")
 ;;3143
 ;;21,"00378-3411-01 ")
 ;;626
 ;;21,"00378-3412-01 ")
 ;;687
 ;;21,"00378-3412-05 ")
 ;;688
 ;;21,"00378-3413-01 ")
 ;;830
 ;;21,"00378-3471-01 ")
 ;;4376
 ;;21,"00378-3472-01 ")
 ;;4150
 ;;21,"00378-3472-10 ")
 ;;4151
 ;;21,"00378-3473-01 ")
 ;;4278
 ;;21,"00378-3473-10 ")
 ;;4279
 ;;21,"00378-3474-01 ")
 ;;4353
 ;;21,"00378-3515-10 ")
 ;;2655
 ;;21,"00378-3515-93 ")
 ;;2656
 ;;21,"00378-3530-05 ")
 ;;2747
 ;;21,"00378-3530-93 ")
 ;;2748
 ;;21,"00378-3545-05 ")
 ;;2836
 ;;21,"00378-3545-93 ")
 ;;2837
 ;;21,"00378-3855-77 ")
 ;;1932
 ;;21,"00378-3856-10 ")
 ;;1841
 ;;21,"00378-3856-77 ")
 ;;1842
 ;;21,"00378-3856-93 ")
 ;;1843
 ;;21,"00378-3857-10 ")
 ;;1892
 ;;21,"00378-3857-77 ")
 ;;1893
 ;;21,"00378-3857-93 ")
 ;;1894
 ;;21,"00378-4175-01 ")
 ;;3185
 ;;21,"00378-4186-01 ")
 ;;3902
 ;;21,"00378-4186-05 ")
 ;;3903
 ;;21,"00378-4186-93 ")
 ;;3904
 ;;21,"00378-4187-01 ")
 ;;4002
 ;;21,"00378-4187-05 ")
 ;;4003
 ;;21,"00378-4187-93 ")
 ;;4004
 ;;21,"00378-4188-01 ")
 ;;3734
 ;;21,"00378-4188-05 ")
 ;;3735
 ;;21,"00378-4188-93 ")
 ;;3736
 ;;21,"00378-4210-01 ")
 ;;1968
 ;;21,"00378-4220-01 ")
 ;;2125
 ;;21,"00378-4250-01 ")
 ;;1659
 ;;21,"00378-4250-10 ")
 ;;1660
 ;;21,"00378-4350-93 ")
 ;;2368
 ;;21,"00378-4881-01 ")
 ;;4641
 ;;21,"00378-4882-01 ")
 ;;4738
 ;;21,"00378-4883-01 ")
 ;;4803
 ;;21,"00378-4884-01 ")
 ;;4923
 ;;21,"00378-4885-01 ")
 ;;4532
 ;;21,"00378-5375-01 ")
 ;;1724
 ;;21,"00378-5375-10 ")
 ;;1725
 ;;21,"00378-5410-28 ")
 ;;1969
 ;;21,"00378-5420-28 ")
 ;;2126
 ;;21,"00378-5521-01 ")
 ;;689
 ;;21,"00378-6231-01 ")
 ;;973
 ;;21,"00378-6231-05 ")
 ;;974
 ;;21,"00378-6232-01 ")
 ;;1081
 ;;21,"00378-6232-05 ")
 ;;1082
 ;;21,"00378-6233-01 ")
 ;;1237
 ;;21,"00378-6233-05 ")
 ;;1238
 ;;21,"00378-6410-01 ")
 ;;1558
 ;;21,"00378-6410-10 ")
 ;;1559
 ;;21,"00378-7001-10 ")
 ;;3215
 ;;21,"00378-7001-93 ")
 ;;3216
 ;;21,"00378-7002-10 ")
 ;;3345
 ;;21,"00378-7002-93 ")
 ;;3346
 ;;21,"00378-7003-10 ")
 ;;3521
 ;;21,"00378-7003-93 ")
 ;;3522
 ;;21,"00378-7004-10 ")
 ;;3599
 ;;21,"00378-7004-93 ")
 ;;3600
 ;;21,"00378-8127-05 ")
 ;;3737
 ;;21,"00406-0661-01 ")
 ;;1970
 ;;21,"00406-0661-05 ")
 ;;1971
 ;;21,"00406-0661-91 ")
 ;;1972
 ;;21,"00406-0663-01 ")
 ;;2127
 ;;21,"00406-0663-03 ")
 ;;2128
 ;;21,"00406-0663-05 ")
 ;;2129
 ;;21,"00406-0663-62 ")
 ;;2130
 ;;21,"00406-0663-91 ")
 ;;2131
 ;;21,"00406-0667-01 ")
 ;;2350
 ;;21,"00406-2001-03 ")
 ;;3601
 ;;21,"00406-2001-05 ")
 ;;3602
 ;;21,"00406-2001-90 ")
 ;;3603
 ;;21,"00406-2097-03 ")
 ;;3217
 ;;21,"00406-2097-05 ")
 ;;3218
 ;;21,"00406-2097-90 ")
 ;;3219
 ;;21,"00406-2098-01 ")
 ;;3347
 ;;21,"00406-2098-03 ")
 ;;3348
 ;;21,"00406-2098-05 ")
 ;;3349
 ;;21,"00406-2098-90 ")
 ;;3350
 ;;21,"00406-2099-03 ")
 ;;3523
 ;;21,"00406-2099-05 ")
 ;;3524
 ;;21,"00406-2099-90 ")
 ;;3525
 ;;21,"00406-9906-01 ")
 ;;1349
 ;;21,"00406-9906-03 ")
 ;;1350
 ;;21,"00406-9906-62 ")
 ;;1351
 ;;21,"00406-9907-01 ")
 ;;1360
 ;;21,"00406-9907-03 ")
 ;;1361
 ;;21,"00406-9907-62 ")
 ;;1362
 ;;21,"00406-9908-01 ")
 ;;1371
 ;;21,"00406-9908-03 ")
 ;;1372
 ;;21,"00406-9910-01 ")
 ;;2967
 ;;21,"00406-9910-03 ")
 ;;2968
 ;;21,"00406-9911-01 ")
 ;;3052
 ;;21,"00406-9911-03 ")
 ;;3053
 ;;21,"00406-9912-01 ")
 ;;3144
 ;;21,"00406-9912-03 ")
 ;;3145
 ;;21,"00406-9913-01 ")
 ;;3186
 ;;21,"00406-9913-03 ")
 ;;3187
 ;;21,"00406-9918-16 ")
 ;;3042
 ;;21,"00406-9920-01 ")
 ;;2495
 ;;21,"00406-9920-03 ")
 ;;2496
 ;;21,"00406-9921-01 ")
 ;;2522
 ;;21,"00406-9921-03 ")
 ;;2523
 ;;21,"00406-9922-01 ")
 ;;2567
 ;;21,"00406-9922-03 ")
 ;;2568
 ;;21,"00406-9923-01 ")
 ;;2621
 ;;21,"00406-9923-03 ")
 ;;2622
 ;;21,"00406-9924-01 ")
 ;;2606
 ;;21,"00406-9924-03 ")
 ;;2607