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