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

BGP47Y2.m

Go to the documentation of this file.
BGP47Y2 ;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,"00093-7222-98 ")
 ;;1273
 ;;21,"00093-7223-10 ")
 ;;1321
 ;;21,"00093-7223-98 ")
 ;;1322
 ;;21,"00093-7224-10 ")
 ;;1415
 ;;21,"00093-7224-98 ")
 ;;1416
 ;;21,"00093-7238-56 ")
 ;;4686
 ;;21,"00093-7238-98 ")
 ;;4687
 ;;21,"00093-7239-56 ")
 ;;4718
 ;;21,"00093-7239-98 ")
 ;;4719
 ;;21,"00093-7325-01 ")
 ;;2959
 ;;21,"00093-7326-01 ")
 ;;2980
 ;;21,"00093-7327-01 ")
 ;;3002
 ;;21,"00093-7364-10 ")
 ;;3285
 ;;21,"00093-7364-98 ")
 ;;3286
 ;;21,"00093-7365-10 ")
 ;;3372
 ;;21,"00093-7365-56 ")
 ;;3373
 ;;21,"00093-7365-98 ")
 ;;3374
 ;;21,"00093-7366-10 ")
 ;;3478
 ;;21,"00093-7366-56 ")
 ;;3479
 ;;21,"00093-7366-98 ")
 ;;3480
 ;;21,"00093-7367-10 ")
 ;;4764
 ;;21,"00093-7367-56 ")
 ;;4765
 ;;21,"00093-7367-98 ")
 ;;4766
 ;;21,"00093-7368-10 ")
 ;;4890
 ;;21,"00093-7368-56 ")
 ;;4891
 ;;21,"00093-7368-98 ")
 ;;4892
 ;;21,"00093-7369-10 ")
 ;;4822
 ;;21,"00093-7369-56 ")
 ;;4823
 ;;21,"00093-7369-98 ")
 ;;4824
 ;;21,"00093-7370-01 ")
 ;;3742
 ;;21,"00093-7371-01 ")
 ;;3790
 ;;21,"00093-7371-10 ")
 ;;3775
 ;;21,"00093-7372-01 ")
 ;;3852
 ;;21,"00093-7372-10 ")
 ;;3836
 ;;21,"00093-7373-01 ")
 ;;3936
 ;;21,"00093-7373-10 ")
 ;;3900
 ;;21,"00093-7436-01 ")
 ;;2776
 ;;21,"00093-7437-01 ")
 ;;2845
 ;;21,"00093-7438-01 ")
 ;;2920
 ;;21,"00093-7464-56 ")
 ;;3092
 ;;21,"00093-7464-98 ")
 ;;3093
 ;;21,"00093-7465-05 ")
 ;;3158
 ;;21,"00093-7465-56 ")
 ;;3159
 ;;21,"00093-7465-98 ")
 ;;3160
 ;;21,"00093-7466-05 ")
 ;;3218
 ;;21,"00093-7466-56 ")
 ;;3219
 ;;21,"00093-7466-98 ")
 ;;3220
 ;;21,"00093-7514-05 ")
 ;;3221
 ;;21,"00093-7514-56 ")
 ;;3222
 ;;21,"00093-7514-98 ")
 ;;3223
 ;;21,"00093-7670-01 ")
 ;;3880
 ;;21,"00093-7671-01 ")
 ;;3962
 ;;21,"00093-8132-10 ")
 ;;369
 ;;21,"00093-8133-01 ")
 ;;475
 ;;21,"00093-8133-10 ")
 ;;476
 ;;21,"00093-8134-10 ")
 ;;584
 ;;21,"00093-8135-01 ")
 ;;650
 ;;21,"00093-8232-56 ")
 ;;4720
 ;;21,"00093-8232-98 ")
 ;;4721
 ;;21,"00093-8238-56 ")
 ;;4684
 ;;21,"00093-8238-98 ")
 ;;4685
 ;;21,"00143-1171-01 ")
 ;;366
 ;;21,"00143-1171-10 ")
 ;;367
 ;;21,"00143-1171-25 ")
 ;;368
 ;;21,"00143-1172-01 ")
 ;;478
 ;;21,"00143-1172-10 ")
 ;;479
 ;;21,"00143-1172-25 ")
 ;;480
 ;;21,"00143-1173-01 ")
 ;;581
 ;;21,"00143-1173-10 ")
 ;;582
 ;;21,"00143-1173-25 ")
 ;;583
 ;;21,"00143-1174-01 ")
 ;;651
 ;;21,"00143-1174-25 ")
 ;;652
 ;;21,"00143-1262-01 ")
 ;;4207
 ;;21,"00143-1262-10 ")
 ;;4208
 ;;21,"00143-1263-01 ")
 ;;4360
 ;;21,"00143-1263-10 ")
 ;;4361
 ;;21,"00143-1264-01 ")
 ;;4435
 ;;21,"00143-1264-10 ")
 ;;4436
 ;;21,"00143-1265-01 ")
 ;;1502
 ;;21,"00143-1265-09 ")
 ;;1503
 ;;21,"00143-1265-10 ")
 ;;1504
 ;;21,"00143-1266-01 ")
 ;;1635
 ;;21,"00143-1266-09 ")
 ;;1636
 ;;21,"00143-1266-10 ")
 ;;1637
 ;;21,"00143-1266-30 ")
 ;;1638
 ;;21,"00143-1266-45 ")
 ;;1639
 ;;21,"00143-1267-01 ")
 ;;1810
 ;;21,"00143-1267-09 ")
 ;;1811
 ;;21,"00143-1267-10 ")
 ;;1812
 ;;21,"00143-1267-18 ")
 ;;1813
 ;;21,"00143-1267-30 ")
 ;;1814
 ;;21,"00143-1267-45 ")
 ;;1815
 ;;21,"00143-1268-01 ")
 ;;2148
 ;;21,"00143-1268-09 ")
 ;;2149
 ;;21,"00143-1268-10 ")
 ;;2150
 ;;21,"00143-1268-18 ")
 ;;2151
 ;;21,"00143-1268-30 ")
 ;;2152
 ;;21,"00143-1268-45 ")
 ;;2153
 ;;21,"00143-1270-01 ")
 ;;2371
 ;;21,"00143-1270-09 ")
 ;;2372
 ;;21,"00143-1270-10 ")
 ;;2373
 ;;21,"00143-1270-18 ")
 ;;2374
 ;;21,"00143-1270-30 ")
 ;;2375
 ;;21,"00143-1270-45 ")
 ;;2376
 ;;21,"00143-1280-01 ")
 ;;2302
 ;;21,"00143-1280-10 ")
 ;;2303
 ;;21,"00143-9125-01 ")
 ;;2960
 ;;21,"00143-9126-01 ")
 ;;2979
 ;;21,"00143-9127-01 ")
 ;;3003
 ;;21,"00172-2515-60 ")
 ;;4095
 ;;21,"00172-3757-00 ")
 ;;1498
 ;;21,"00172-3757-10 ")
 ;;1499
 ;;21,"00172-3757-60 ")
 ;;1500
 ;;21,"00172-3757-70 ")
 ;;1501
 ;;21,"00172-3758-00 ")
 ;;1640
 ;;21,"00172-3758-10 ")
 ;;1641
 ;;21,"00172-3758-60 ")
 ;;1642
 ;;21,"00172-3758-70 ")
 ;;1643
 ;;21,"00172-3758-80 ")
 ;;1644
 ;;21,"00172-3759-00 ")
 ;;1804
 ;;21,"00172-3759-10 ")
 ;;1805
 ;;21,"00172-3759-60 ")
 ;;1806
 ;;21,"00172-3759-70 ")
 ;;1807
 ;;21,"00172-3759-80 ")
 ;;1808
 ;;21,"00172-3759-85 ")
 ;;1809
 ;;21,"00172-3760-00 ")
 ;;2154
 ;;21,"00172-3760-10 ")
 ;;2155
 ;;21,"00172-3760-60 ")
 ;;2156
 ;;21,"00172-3760-70 ")
 ;;2157
 ;;21,"00172-3760-80 ")
 ;;2158
 ;;21,"00172-3760-85 ")
 ;;2159
 ;;21,"00172-3761-00 ")
 ;;2377
 ;;21,"00172-3761-10 ")
 ;;2378
 ;;21,"00172-3761-60 ")
 ;;2379
 ;;21,"00172-3761-70 ")
 ;;2380
 ;;21,"00172-3761-80 ")
 ;;2381
 ;;21,"00172-3762-00 ")
 ;;2304
 ;;21,"00172-3762-10 ")
 ;;2305
 ;;21,"00172-3762-60 ")
 ;;2306
 ;;21,"00172-3762-70 ")
 ;;2307
 ;;21,"00172-4195-10 ")
 ;;732
 ;;21,"00172-4195-60 ")
 ;;733
 ;;21,"00172-4195-64 ")
 ;;734
 ;;21,"00172-4195-80 ")
 ;;735
 ;;21,"00172-4195-93 ")
 ;;736
 ;;21,"00172-4196-10 ")
 ;;839
 ;;21,"00172-4196-60 ")
 ;;840
 ;;21,"00172-4196-64 ")
 ;;841
 ;;21,"00172-4196-80 ")
 ;;842
 ;;21,"00172-4196-93 ")
 ;;843
 ;;21,"00172-4197-10 ")
 ;;989
 ;;21,"00172-4197-60 ")
 ;;990
 ;;21,"00172-4197-80 ")
 ;;991
 ;;21,"00172-4197-93 ")
 ;;992
 ;;21,"00172-4198-10 ")
 ;;1153
 ;;21,"00172-4198-60 ")
 ;;1154
 ;;21,"00172-4198-64 ")
 ;;1155
 ;;21,"00172-4198-80 ")
 ;;1156
 ;;21,"00172-4198-93 ")
 ;;1157
 ;;21,"00172-5025-60 ")
 ;;4117
 ;;21,"00172-5032-00 ")
 ;;4428
 ;;21,"00172-5032-10 ")
 ;;4429
 ;;21,"00172-5032-60 ")
 ;;4430
 ;;21,"00172-5032-70 ")
 ;;4431
 ;;21,"00172-5032-80 ")
 ;;4432
 ;;21,"00172-5033-00 ")
 ;;4201
 ;;21,"00172-5033-10 ")
 ;;4202
 ;;21,"00172-5033-60 ")
 ;;4203
 ;;21,"00172-5033-70 ")
 ;;4204
 ;;21,"00172-5033-80 ")
 ;;4205
 ;;21,"00172-5034-00 ")
 ;;4364
 ;;21,"00172-5034-10 ")
 ;;4365
 ;;21,"00172-5034-60 ")
 ;;4366
 ;;21,"00172-5034-70 ")
 ;;4367
 ;;21,"00172-5034-80 ")
 ;;4368
 ;;21,"00172-5350-60 ")
 ;;7
 ;;21,"00172-5350-70 ")
 ;;8
 ;;21,"00172-5351-10 ")
 ;;76
 ;;21,"00172-5351-60 ")
 ;;77
 ;;21,"00172-5351-70 ")
 ;;78
 ;;21,"00172-5351-80 ")
 ;;79
 ;;21,"00172-5352-10 ")
 ;;181
 ;;21,"00172-5352-60 ")
 ;;182
 ;;21,"00172-5352-70 ")
 ;;183
 ;;21,"00172-5352-80 ")
 ;;184
 ;;21,"00172-5353-10 ")
 ;;247
 ;;21,"00172-5353-60 ")
 ;;248
 ;;21,"00172-5353-70 ")
 ;;249
 ;;21,"00172-5353-80 ")
 ;;250
 ;;21,"00172-5360-60 ")
 ;;4005
 ;;21,"00172-5361-60 ")
 ;;4016
 ;;21,"00172-5361-70 ")
 ;;4017
 ;;21,"00172-5362-60 ")
 ;;4040
 ;;21,"00172-5362-70 ")
 ;;4041
 ;;21,"00172-5363-60 ")
 ;;4067
 ;;21,"00172-5363-70 ")
 ;;4068
 ;;21,"00179-1984-30 ")
 ;;2384
 ;;21,"00179-1985-30 ")
 ;;2113
 ;;21,"00182-2623-89 ")
 ;;477
 ;;21,"00185-0025-01 ")
 ;;1496
 ;;21,"00185-0025-10 ")
 ;;1497
 ;;21,"00185-0041-09 ")
 ;;1274
 ;;21,"00185-0041-10 ")
 ;;1275
 ;;21,"00185-0042-09 ")
 ;;1319
 ;;21,"00185-0042-10 ")
 ;;1320
 ;;21,"00185-0047-09 ")
 ;;1417
 ;;21,"00185-0047-10 ")
 ;;1418
 ;;21,"00185-0048-01 ")
 ;;245
 ;;21,"00185-0048-05 ")
 ;;246
 ;;21,"00185-0053-01 ")
 ;;74
 ;;21,"00185-0053-05 ")
 ;;75
 ;;21,"00185-0101-01 ")
 ;;1801
 ;;21,"00185-0101-10 ")
 ;;1802
 ;;21,"00185-0101-33 ")
 ;;1803
 ;;21,"00185-0102-01 ")
 ;;2160
 ;;21,"00185-0102-10 ")
 ;;2161
 ;;21,"00185-0102-33 ")
 ;;2162
 ;;21,"00185-0103-01 ")
 ;;2300
 ;;21,"00185-0103-10 ")
 ;;2301
 ;;21,"00185-0104-01 ")
 ;;2382
 ;;21,"00185-0104-10 ")
 ;;2383
 ;;21,"00185-0114-01 ")
 ;;737
 ;;21,"00185-0114-10 ")
 ;;738
 ;;21,"00185-0114-50 ")
 ;;739
 ;;21,"00185-0124-01 ")
 ;;4006
 ;;21,"00185-0127-01 ")
 ;;836
 ;;21,"00185-0127-10 ")
 ;;837
 ;;21,"00185-0127-50 ")
 ;;838
 ;;21,"00185-0147-01 ")
 ;;993
 ;;21,"00185-0147-10 ")
 ;;994
 ;;21,"00185-0147-50 ")
 ;;995
 ;;21,"00185-0151-01 ")
 ;;4134
 ;;21,"00185-0152-01 ")
 ;;4369
 ;;21,"00185-0152-10 ")
 ;;4370
 ;;21,"00185-0172-01 ")
 ;;4156
 ;;21,"00185-0172-10 ")
 ;;4157
 ;;21,"00185-0173-01 ")
 ;;4426
 ;;21,"00185-0173-10 ")
 ;;4427
 ;;21,"00185-0204-01 ")
 ;;4020
 ;;21,"00185-0211-01 ")
 ;;4042
 ;;21,"00185-0214-01 ")
 ;;1150
 ;;21,"00185-0214-10 ")
 ;;1151
 ;;21,"00185-0214-50 ")
 ;;1152
 ;;21,"00185-0277-01 ")
 ;;4069
 ;;21,"00185-0341-01 ")
 ;;4182
 ;;21,"00185-0342-01 ")
 ;;4189
 ;;21,"00185-0505-01 ")
 ;;9
 ;;21,"00185-0505-05 ")
 ;;10
 ;;21,"00185-0820-01 ")
 ;;185
 ;;21,"00185-0820-05 ")
 ;;186
 ;;21,"00185-5400-01 ")
 ;;1645
 ;;21,"00185-5400-10 ")
 ;;1646
 ;;21,"00185-5400-33 ")
 ;;1647
 ;;21,"00185-7100-01 ")
 ;;4199
 ;;21,"00185-7100-10 ")
 ;;4200
 ;;21,"00186-0001-31 ")
 ;;3974
 ;;21,"00186-0001-68 ")
 ;;3975
 ;;21,"00186-0002-31 ")
 ;;3973
 ;;21,"00186-0004-31 ")
 ;;3024
 ;;21,"00186-0008-31 ")
 ;;3027
 ;;21,"00186-0016-28 ")
 ;;3039
 ;;21,"00186-0016-31 ")
 ;;3040
 ;;21,"00186-0016-54 ")
 ;;3041
 ;;21,"00186-0032-28 ")
 ;;3053
 ;;21,"00186-0032-31 ")
 ;;3054
 ;;21,"00186-0032-54 ")
 ;;3055
 ;;21,"00186-0162-28 ")
 ;;4624
 ;;21,"00186-0162-54 ")
 ;;4625
 ;;21,"00186-0322-28 ")
 ;;4638
 ;;21,"00186-0322-54 ")
 ;;4639
 ;;21,"00186-0324-54 ")
 ;;4648
 ;;21,"00187-0140-30 ")
 ;;763
 ;;21,"00187-0140-90 ")
 ;;764
 ;;21,"00187-0141-30 ")
 ;;911
 ;;21,"00187-0141-90 ")
 ;;912
 ;;21,"00187-0142-10 ")
 ;;1079
 ;;21,"00187-0142-30 ")
 ;;1080
 ;;21,"00187-0142-90 ")
 ;;1081
 ;;21,"00187-0143-10 ")
 ;;1224
 ;;21,"00187-0143-30 ")
 ;;1225
 ;;21,"00187-0143-90 ")
 ;;1226
 ;;21,"00187-0146-01 ")
 ;;4176
 ;;21,"00228-2658-11 ")
 ;;718
 ;;21,"00228-2658-96 ")
 ;;719
 ;;21,"00228-2659-11 ")
 ;;814
 ;;21,"00228-2659-96 ")
 ;;815
 ;;21,"00228-2660-11 ")
 ;;966
 ;;21,"00228-2660-96 ")
 ;;967
 ;;21,"00228-2661-11 ")
 ;;1134
 ;;21,"00228-2661-96 ")
 ;;1135
 ;;21,"00228-2695-11 ")
 ;;2779
 ;;21,"00228-2695-50 ")
 ;;2780
 ;;21,"00228-2696-11 ")
 ;;2841
 ;;21,"00228-2696-50 ")
 ;;2842
 ;;21,"00228-2697-11 ")
 ;;2914
 ;;21,"00228-2697-50 ")
 ;;2915
 ;;21,"00228-2706-03 ")
 ;;4209
 ;;21,"00228-2706-11 ")
 ;;4210
 ;;21,"00228-2707-03 ")
 ;;4351
 ;;21,"00228-2707-11 ")
 ;;4352
 ;;21,"00228-2708-03 ")
 ;;4420
 ;;21,"00228-2708-11 ")
 ;;4421
 ;;21,"00245-0193-01 ")
 ;;3296
 ;;21,"00245-0193-10 ")
 ;;3297
 ;;21,"00245-0193-30 ")
 ;;3298
 ;;21,"00245-0193-90 ")
 ;;3299
 ;;21,"00245-0194-01 ")
 ;;3375
 ;;21,"00245-0194-10 ")
 ;;3376
 ;;21,"00245-0194-30 ")
 ;;3377
 ;;21,"00245-0194-90 ")
 ;;3378
 ;;21,"00245-0195-01 ")
 ;;3495
 ;;21,"00245-0195-10 ")
 ;;3496
 ;;21,"00245-0195-30 ")
 ;;3497
 ;;21,"00245-0195-90 ")
 ;;3498
 ;;21,"00247-1023-00 ")
 ;;2260
 ;;21,"00247-1023-30 ")
 ;;2261
 ;;21,"00247-1023-60 ")
 ;;2262
 ;;21,"00247-1090-30 ")
 ;;2880
 ;;21,"00247-1090-60 ")
 ;;2881
 ;;21,"00247-1091-30 ")
 ;;2806
 ;;21,"00247-1091-60 ")
 ;;2807
 ;;21,"00247-1147-10 ")
 ;;1994
 ;;21,"00247-1147-30 ")
 ;;1995
 ;;21,"00247-1147-60 ")
 ;;1996
 ;;21,"00247-1149-30 ")
 ;;4406
 ;;21,"00247-1149-60 ")
 ;;4407
 ;;21,"00247-1150-30 ")
 ;;4510
 ;;21,"00247-1150-60 ")
 ;;4511
 ;;21,"00247-1222-00 ")
 ;;535
 ;;21,"00247-1396-30 ")
 ;;1533
 ;;21,"00310-0130-10 ")
 ;;1741
 ;;21,"00310-0130-11 ")
 ;;1742
 ;;21,"00310-0130-34 ")
 ;;1743
 ;;21,"00310-0130-39 ")
 ;;1744
 ;;21,"00310-0131-10 ")
 ;;1989
 ;;21,"00310-0131-11 ")
 ;;1990
 ;;21,"00310-0131-34 ")
 ;;1991
 ;;21,"00310-0131-39 ")
 ;;1992
 ;;21,"00310-0131-73 ")
 ;;1993
 ;;21,"00310-0132-10 ")
 ;;2263
 ;;21,"00310-0132-11 ")
 ;;2264
 ;;21,"00310-0132-34 ")
 ;;2265
 ;;21,"00310-0132-39 ")
 ;;2266
 ;;21,"00310-0132-73 ")
 ;;2267
 ;;21,"00310-0133-10 ")
 ;;2334
 ;;21,"00310-0133-11 ")
 ;;2335
 ;;21,"00310-0134-10 ")
 ;;2536
 ;;21,"00310-0134-11 ")
 ;;2537
 ;;21,"00310-0135-10 ")
 ;;1531
 ;;21,"00310-0135-11 ")
 ;;1532
 ;;21,"00310-0141-10 ")
 ;;4289
 ;;21,"00310-0141-11 ")
 ;;4288
 ;;21,"00310-0142-11 ")
 ;;4408
 ;;21,"00310-0145-10 ")
 ;;4512
 ;;21,"00310-0145-11 ")
 ;;4513
 ;;21,"00378-0081-01 ")
 ;;4097
 ;;21,"00378-0083-01 ")
 ;;4104
 ;;21,"00378-0084-01 ")
 ;;4110
 ;;21,"00378-0086-01 ")
 ;;4118
 ;;21,"00378-0226-77 ")
 ;;2629
 ;;21,"00378-0254-77 ")
 ;;2666
 ;;21,"00378-0272-77 ")
 ;;2706
 ;;21,"00378-0441-01 ")
 ;;11
 ;;21,"00378-0443-01 ")
 ;;84
 ;;21,"00378-0444-01 ")
 ;;189
 ;;21,"00378-0447-01 ")
 ;;254
 ;;21,"00378-0542-77 ")
 ;;4541
 ;;21,"00378-0543-77 ")
 ;;4556
 ;;21,"00378-0544-77 ")
 ;;4575
 ;;21,"00378-0712-01 ")
 ;;4129
 ;;21,"00378-0723-01 ")
 ;;4162
 ;;21,"00378-1012-01 ")
 ;;4211
 ;;21,"00378-1051-01 ")
 ;;720
 ;;21,"00378-1051-05 ")
 ;;721
 ;;21,"00378-1052-01 ")
 ;;816
 ;;21,"00378-1052-10 ")
 ;;817
 ;;21,"00378-1053-01 ")
 ;;968
 ;;21,"00378-1053-10 ")
 ;;969
 ;;21,"00378-1054-01 ")
 ;;1136
 ;;21,"00378-1054-05 ")
 ;;1137
 ;;21,"00378-1117-77 ")
 ;;2597
 ;;21,"00378-1418-77 ")
 ;;4767
 ;;21,"00378-1418-93 ")
 ;;4768
 ;;21,"00378-1419-10 ")
 ;;4834
 ;;21,"00378-1419-77 ")
 ;;4835
 ;;21,"00378-1419-93 ")
 ;;4836
 ;;21,"00378-1420-77 ")
 ;;4893
 ;;21,"00378-1420-93 ")
 ;;4894