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

BGP62Y15.m

Go to the documentation of this file.
BGP62Y15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"55887-0311-30 ")
 ;;2619
 ;;21,"55887-0320-30 ")
 ;;6455
 ;;21,"55887-0320-60 ")
 ;;6456
 ;;21,"55887-0332-30 ")
 ;;2861
 ;;21,"55887-0378-06 ")
 ;;2472
 ;;21,"55887-0378-15 ")
 ;;2473
 ;;21,"55887-0378-21 ")
 ;;2474
 ;;21,"55887-0378-28 ")
 ;;2475
 ;;21,"55887-0378-30 ")
 ;;2476
 ;;21,"55887-0378-40 ")
 ;;2477
 ;;21,"55887-0378-42 ")
 ;;2478
 ;;21,"55887-0388-03 ")
 ;;2829
 ;;21,"55887-0419-20 ")
 ;;3297
 ;;21,"55887-0419-30 ")
 ;;3298
 ;;21,"55887-0463-21 ")
 ;;863
 ;;21,"55887-0463-28 ")
 ;;864
 ;;21,"55887-0492-07 ")
 ;;4986
 ;;21,"55887-0584-01 ")
 ;;4549
 ;;21,"55887-0584-08 ")
 ;;4550
 ;;21,"55887-0584-15 ")
 ;;4551
 ;;21,"55887-0584-21 ")
 ;;4552
 ;;21,"55887-0584-25 ")
 ;;4553
 ;;21,"55887-0584-28 ")
 ;;4554
 ;;21,"55887-0584-42 ")
 ;;4555
 ;;21,"55887-0584-60 ")
 ;;4556
 ;;21,"55887-0584-71 ")
 ;;4557
 ;;21,"55887-0586-20 ")
 ;;3147
 ;;21,"55887-0586-28 ")
 ;;3148
 ;;21,"55887-0586-30 ")
 ;;3149
 ;;21,"55887-0586-60 ")
 ;;3150
 ;;21,"55887-0586-90 ")
 ;;3151
 ;;21,"55887-0611-01 ")
 ;;2331
 ;;21,"55887-0611-15 ")
 ;;2332
 ;;21,"55887-0611-16 ")
 ;;2333
 ;;21,"55887-0611-40 ")
 ;;2334
 ;;21,"55887-0611-60 ")
 ;;2335
 ;;21,"55887-0622-09 ")
 ;;354
 ;;21,"55887-0622-20 ")
 ;;355
 ;;21,"55887-0622-21 ")
 ;;356
 ;;21,"55887-0622-30 ")
 ;;357
 ;;21,"55887-0622-40 ")
 ;;358
 ;;21,"55887-0629-14 ")
 ;;1278
 ;;21,"55887-0642-05 ")
 ;;5040
 ;;21,"55887-0652-14 ")
 ;;5402
 ;;21,"55887-0659-14 ")
 ;;749
 ;;21,"55887-0659-30 ")
 ;;750
 ;;21,"55887-0704-14 ")
 ;;4020
 ;;21,"55887-0704-20 ")
 ;;4021
 ;;21,"55887-0704-28 ")
 ;;4022
 ;;21,"55887-0746-20 ")
 ;;3075
 ;;21,"55887-0746-56 ")
 ;;3076
 ;;21,"55887-0761-02 ")
 ;;1795
 ;;21,"55887-0764-75 ")
 ;;5177
 ;;21,"55887-0768-14 ")
 ;;3334
 ;;21,"55887-0768-20 ")
 ;;3335
 ;;21,"55887-0768-28 ")
 ;;3336
 ;;21,"55887-0768-30 ")
 ;;3337
 ;;21,"55887-0768-32 ")
 ;;3338
 ;;21,"55887-0785-04 ")
 ;;2712
 ;;21,"55887-0785-30 ")
 ;;2713
 ;;21,"55887-0786-30 ")
 ;;5403
 ;;21,"55887-0787-20 ")
 ;;3113
 ;;21,"55887-0787-40 ")
 ;;3114
 ;;21,"55887-0790-15 ")
 ;;1143
 ;;21,"55887-0790-20 ")
 ;;1144
 ;;21,"55887-0790-30 ")
 ;;1145
 ;;21,"55887-0810-07 ")
 ;;4933
 ;;21,"55887-0810-10 ")
 ;;4934
 ;;21,"55887-0813-30 ")
 ;;2997
 ;;21,"55887-0814-01 ")
 ;;123
 ;;21,"55887-0814-14 ")
 ;;124
 ;;21,"55887-0823-14 ")
 ;;414
 ;;21,"55887-0830-20 ")
 ;;3665
 ;;21,"55887-0830-28 ")
 ;;3666
 ;;21,"55887-0830-30 ")
 ;;3667
 ;;21,"55887-0830-40 ")
 ;;3668
 ;;21,"55887-0837-30 ")
 ;;5145
 ;;21,"55887-0849-20 ")
 ;;3457
 ;;21,"55887-0849-21 ")
 ;;3458
 ;;21,"55887-0849-28 ")
 ;;3459
 ;;21,"55887-0849-30 ")
 ;;3460
 ;;21,"55887-0849-40 ")
 ;;3461
 ;;21,"55887-0858-14 ")
 ;;4558
 ;;21,"55887-0858-20 ")
 ;;4559
 ;;21,"55887-0889-21 ")
 ;;6628
 ;;21,"55887-0893-24 ")
 ;;1482
 ;;21,"55887-0904-06 ")
 ;;4256
 ;;21,"55887-0904-10 ")
 ;;4257
 ;;21,"55887-0904-14 ")
 ;;4258
 ;;21,"55887-0904-20 ")
 ;;4259
 ;;21,"55887-0904-30 ")
 ;;4260
 ;;21,"55887-0904-60 ")
 ;;4261
 ;;21,"55887-0924-20 ")
 ;;6730
 ;;21,"55887-0924-28 ")
 ;;6731
 ;;21,"55887-0924-60 ")
 ;;6732
 ;;21,"55887-0930-28 ")
 ;;3669
 ;;21,"55887-0958-01 ")
 ;;2004
 ;;21,"55887-0958-05 ")
 ;;2005
 ;;21,"55887-0958-08 ")
 ;;2006
 ;;21,"55887-0958-09 ")
 ;;2007
 ;;21,"55887-0958-60 ")
 ;;2008
 ;;21,"55887-0958-90 ")
 ;;2009
 ;;21,"55887-0980-21 ")
 ;;3841
 ;;21,"55887-0980-28 ")
 ;;3842
 ;;21,"55887-0980-40 ")
 ;;3843
 ;;21,"55887-0982-01 ")
 ;;639
 ;;21,"55887-0982-04 ")
 ;;640
 ;;21,"55887-0982-09 ")
 ;;641
 ;;21,"55887-0982-82 ")
 ;;642
 ;;21,"55887-0983-01 ")
 ;;5790
 ;;21,"55887-0983-15 ")
 ;;5791
 ;;21,"55887-0983-40 ")
 ;;5792
 ;;21,"55887-0983-42 ")
 ;;5793
 ;;21,"55887-0983-60 ")
 ;;5794
 ;;21,"55887-0991-28 ")
 ;;1691
 ;;21,"55887-0993-09 ")
 ;;250
 ;;21,"55887-0993-14 ")
 ;;251
 ;;21,"55887-0993-15 ")
 ;;252
 ;;21,"55887-0993-20 ")
 ;;253
 ;;21,"55887-0993-42 ")
 ;;254
 ;;21,"55953-0251-80 ")
 ;;5219
 ;;21,"55953-0253-80 ")
 ;;5146
 ;;21,"57237-0028-01 ")
 ;;712
 ;;21,"57237-0029-01 ")
 ;;751
 ;;21,"57237-0030-01 ")
 ;;255
 ;;21,"57237-0030-05 ")
 ;;256
 ;;21,"57237-0031-01 ")
 ;;643
 ;;21,"57237-0031-05 ")
 ;;644
 ;;21,"57237-0032-01 ")
 ;;155
 ;;21,"57237-0032-50 ")
 ;;156
 ;;21,"57237-0032-75 ")
 ;;157
 ;;21,"57237-0033-01 ")
 ;;451
 ;;21,"57237-0033-50 ")
 ;;452
 ;;21,"57237-0033-75 ")
 ;;453
 ;;21,"57237-0034-01 ")
 ;;5252
 ;;21,"57237-0034-50 ")
 ;;5253
 ;;21,"57237-0034-75 ")
 ;;5254
 ;;21,"57237-0035-01 ")
 ;;5309
 ;;21,"57237-0035-50 ")
 ;;5310
 ;;21,"57237-0035-75 ")
 ;;5311
 ;;21,"57237-0036-01 ")
 ;;5276
 ;;21,"57237-0037-01 ")
 ;;5336
 ;;21,"57237-0037-50 ")
 ;;5337
 ;;21,"57237-0040-01 ")
 ;;3670
 ;;21,"57237-0040-99 ")
 ;;3671
 ;;21,"57237-0041-01 ")
 ;;3844
 ;;21,"57237-0041-05 ")
 ;;3845
 ;;21,"57237-0041-99 ")
 ;;3846
 ;;21,"57237-0044-60 ")
 ;;2905
 ;;21,"57237-0045-60 ")
 ;;2998
 ;;21,"57237-0058-20 ")
 ;;5404
 ;;21,"57237-0058-60 ")
 ;;5405
 ;;21,"57237-0059-20 ")
 ;;5477
 ;;21,"57237-0059-60 ")
 ;;5478
 ;;21,"57237-0096-01 ")
 ;;1483
 ;;21,"57237-0096-50 ")
 ;;1484
 ;;21,"57237-0097-01 ")
 ;;1409
 ;;21,"57237-0098-01 ")
 ;;1543
 ;;21,"57237-0098-75 ")
 ;;1544
 ;;21,"57237-0099-60 ")
 ;;7024
 ;;21,"57237-0103-25 ")
 ;;6327
 ;;21,"57237-0103-60 ")
 ;;6328
 ;;21,"57237-0104-01 ")
 ;;6046
 ;;21,"57237-0104-25 ")
 ;;6047
 ;;21,"57237-0105-01 ")
 ;;6231
 ;;21,"57237-0105-25 ")
 ;;6232
 ;;21,"57664-0851-88 ")
 ;;6525
 ;;21,"57664-0852-88 ")
 ;;6549
 ;;21,"57664-0853-85 ")
 ;;6457
 ;;21,"57866-0106-01 ")
 ;;645
 ;;21,"57866-0106-02 ")
 ;;646
 ;;21,"57866-0117-01 ")
 ;;2010
 ;;21,"57866-0117-03 ")
 ;;2011
 ;;21,"57866-0117-04 ")
 ;;2012
 ;;21,"57866-0117-05 ")
 ;;2013
 ;;21,"57866-0117-06 ")
 ;;2014
 ;;21,"57866-0155-00 ")
 ;;2336
 ;;21,"57866-0155-05 ")
 ;;2337
 ;;21,"57866-0340-01 ")
 ;;6233
 ;;21,"57866-0340-02 ")
 ;;6234
 ;;21,"57866-0340-05 ")
 ;;6235
 ;;21,"57866-0341-02 ")
 ;;6362
 ;;21,"57866-0341-04 ")
 ;;6363
 ;;21,"57866-0343-01 ")
 ;;6399
 ;;21,"57866-1094-02 ")
 ;;3947
 ;;21,"57866-3129-01 ")
 ;;1279
 ;;21,"57866-3135-01 ")
 ;;4262
 ;;21,"57866-3136-01 ")
 ;;2830
 ;;21,"57866-3148-02 ")
 ;;2479
 ;;21,"57866-3613-02 ")
 ;;3672
 ;;21,"57866-3614-01 ")
 ;;3847
 ;;21,"57866-4356-01 ")
 ;;2714
 ;;21,"57866-4693-01 ")
 ;;5795
 ;;21,"57866-4693-02 ")
 ;;5796
 ;;21,"57866-4693-04 ")
 ;;5797
 ;;21,"57866-4693-06 ")
 ;;5798
 ;;21,"57866-6041-01 ")
 ;;4560
 ;;21,"57866-6041-02 ")
 ;;4561
 ;;21,"57866-6041-03 ")
 ;;4562
 ;;21,"57866-6041-04 ")
 ;;4563
 ;;21,"57866-6041-05 ")
 ;;4564
 ;;21,"57866-6041-08 ")
 ;;4565
 ;;21,"57866-7216-01 ")
 ;;1692
 ;;21,"57866-7216-02 ")
 ;;1693
 ;;21,"57866-7216-03 ")
 ;;1694
 ;;21,"57866-7216-04 ")
 ;;1695
 ;;21,"57866-7216-07 ")
 ;;1696
 ;;21,"57866-7216-08 ")
 ;;1697
 ;;21,"57866-7218-01 ")
 ;;257
 ;;21,"57866-7218-02 ")
 ;;258
 ;;21,"57866-8205-01 ")
 ;;5220
 ;;21,"57866-8205-02 ")
 ;;5221
 ;;21,"58016-0075-30 ")
 ;;5919
 ;;21,"58016-0086-30 ")
 ;;2715
 ;;21,"58016-0101-00 ")
 ;;6629
 ;;21,"58016-0101-08 ")
 ;;6630
 ;;21,"58016-0101-10 ")
 ;;6631
 ;;21,"58016-0101-12 ")
 ;;6632
 ;;21,"58016-0101-14 ")
 ;;6633
 ;;21,"58016-0101-20 ")
 ;;6634
 ;;21,"58016-0101-24 ")
 ;;6635
 ;;21,"58016-0101-28 ")
 ;;6636
 ;;21,"58016-0101-30 ")
 ;;6637
 ;;21,"58016-0101-40 ")
 ;;6638
 ;;21,"58016-0101-60 ")
 ;;6639
 ;;21,"58016-0101-90 ")
 ;;6640
 ;;21,"58016-0102-00 ")
 ;;6733
 ;;21,"58016-0102-20 ")
 ;;6734
 ;;21,"58016-0102-30 ")
 ;;6735
 ;;21,"58016-0102-60 ")
 ;;6736
 ;;21,"58016-0102-90 ")
 ;;6737
 ;;21,"58016-0103-00 ")
 ;;259
 ;;21,"58016-0103-09 ")
 ;;260
 ;;21,"58016-0103-12 ")
 ;;261
 ;;21,"58016-0103-15 ")
 ;;262
 ;;21,"58016-0103-18 ")
 ;;263
 ;;21,"58016-0103-20 ")
 ;;264
 ;;21,"58016-0103-21 ")
 ;;265
 ;;21,"58016-0103-24 ")
 ;;266
 ;;21,"58016-0103-30 ")
 ;;267
 ;;21,"58016-0103-40 ")
 ;;268
 ;;21,"58016-0105-00 ")
 ;;359
 ;;21,"58016-0105-60 ")
 ;;360
 ;;21,"58016-0105-90 ")
 ;;361
 ;;21,"58016-0109-00 ")
 ;;5799
 ;;21,"58016-0109-02 ")
 ;;5800
 ;;21,"58016-0109-06 ")
 ;;5801
 ;;21,"58016-0109-07 ")
 ;;5802
 ;;21,"58016-0109-10 ")
 ;;5803
 ;;21,"58016-0109-14 ")
 ;;5804
 ;;21,"58016-0109-18 ")
 ;;5805
 ;;21,"58016-0109-20 ")
 ;;5806
 ;;21,"58016-0109-21 ")
 ;;5807
 ;;21,"58016-0109-24 ")
 ;;5808
 ;;21,"58016-0109-28 ")
 ;;5809
 ;;21,"58016-0109-30 ")
 ;;5810
 ;;21,"58016-0109-40 ")
 ;;5811
 ;;21,"58016-0109-50 ")
 ;;5812
 ;;21,"58016-0109-60 ")
 ;;5813
 ;;21,"58016-0109-73 ")
 ;;5814
 ;;21,"58016-0109-80 ")
 ;;5815
 ;;21,"58016-0109-89 ")
 ;;5816
 ;;21,"58016-0109-90 ")
 ;;5817
 ;;21,"58016-0114-10 ")
 ;;5406
 ;;21,"58016-0114-14 ")
 ;;5407
 ;;21,"58016-0114-20 ")
 ;;5408
 ;;21,"58016-0114-30 ")
 ;;5409
 ;;21,"58016-0114-60 ")
 ;;5410
 ;;21,"58016-0115-10 ")
 ;;5479
 ;;21,"58016-0115-14 ")
 ;;5480
 ;;21,"58016-0115-20 ")
 ;;5481
 ;;21,"58016-0115-30 ")
 ;;5482
 ;;21,"58016-0115-60 ")
 ;;5483
 ;;21,"58016-0116-00 ")
 ;;4263
 ;;21,"58016-0116-10 ")
 ;;4264
 ;;21,"58016-0116-12 ")
 ;;4265
 ;;21,"58016-0116-15 ")
 ;;4266
 ;;21,"58016-0116-20 ")
 ;;4267
 ;;21,"58016-0116-30 ")
 ;;4268
 ;;21,"58016-0117-00 ")
 ;;4566
 ;;21,"58016-0117-10 ")
 ;;4567
 ;;21,"58016-0117-12 ")
 ;;4568
 ;;21,"58016-0117-14 ")
 ;;4569
 ;;21,"58016-0117-15 ")
 ;;4570
 ;;21,"58016-0117-20 ")
 ;;4571
 ;;21,"58016-0117-30 ")
 ;;4572
 ;;21,"58016-0118-10 ")
 ;;4736
 ;;21,"58016-0118-12 ")
 ;;4737
 ;;21,"58016-0118-14 ")
 ;;4738
 ;;21,"58016-0118-15 ")
 ;;4739
 ;;21,"58016-0118-20 ")
 ;;4740
 ;;21,"58016-0118-30 ")
 ;;4741
 ;;21,"58016-0118-50 ")
 ;;4742
 ;;21,"58016-0119-00 ")
 ;;1485
 ;;21,"58016-0119-02 ")
 ;;1486
 ;;21,"58016-0119-03 ")
 ;;1487
 ;;21,"58016-0119-10 ")
 ;;1488
 ;;21,"58016-0119-12 ")
 ;;1489
 ;;21,"58016-0119-14 ")
 ;;1490
 ;;21,"58016-0119-15 ")
 ;;1491
 ;;21,"58016-0119-20 ")
 ;;1492
 ;;21,"58016-0119-25 ")
 ;;1493
 ;;21,"58016-0119-30 ")
 ;;1494
 ;;21,"58016-0119-40 ")
 ;;1495
 ;;21,"58016-0119-60 ")
 ;;1496
 ;;21,"58016-0119-73 ")
 ;;1497
 ;;21,"58016-0119-89 ")
 ;;1498
 ;;21,"58016-0119-90 ")
 ;;1499
 ;;21,"58016-0121-00 ")
 ;;3948
 ;;21,"58016-0121-10 ")
 ;;3949
 ;;21,"58016-0121-12 ")
 ;;3950
 ;;21,"58016-0121-14 ")
 ;;3951
 ;;21,"58016-0121-15 ")
 ;;3952
 ;;21,"58016-0121-18 ")
 ;;3953
 ;;21,"58016-0121-20 ")
 ;;3954
 ;;21,"58016-0121-24 ")
 ;;3955
 ;;21,"58016-0121-28 ")
 ;;3956
 ;;21,"58016-0121-30 ")
 ;;3957
 ;;21,"58016-0121-40 ")
 ;;3958
 ;;21,"58016-0122-00 ")
 ;;4023
 ;;21,"58016-0122-12 ")
 ;;4024
 ;;21,"58016-0122-14 ")
 ;;4025
 ;;21,"58016-0122-15 ")
 ;;4026
 ;;21,"58016-0122-20 ")
 ;;4027
 ;;21,"58016-0122-28 ")
 ;;4028
 ;;21,"58016-0122-30 ")
 ;;4029
 ;;21,"58016-0122-40 ")
 ;;4030
 ;;21,"58016-0122-50 ")
 ;;4031
 ;;21,"58016-0123-00 ")
 ;;3077
 ;;21,"58016-0123-12 ")
 ;;3078
 ;;21,"58016-0123-15 ")
 ;;3079
 ;;21,"58016-0123-20 ")
 ;;3080
 ;;21,"58016-0123-24 ")
 ;;3081
 ;;21,"58016-0123-28 ")
 ;;3082