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

BGP62Y5.m

Go to the documentation of this file.
  1. BGP62Y5 ;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,"00781-9452-46 ")
  1. ;;1342
  1. ;;21,"00781-9452-95 ")
  1. ;;1343
  1. ;;21,"00884-4557-30 ")
  1. ;;5162
  1. ;;21,"00884-4558-20 ")
  1. ;;5183
  1. ;;21,"00904-0427-51 ")
  1. ;;6310
  1. ;;21,"00904-0428-40 ")
  1. ;;5952
  1. ;;21,"00904-0428-51 ")
  1. ;;5953
  1. ;;21,"00904-0428-61 ")
  1. ;;5954
  1. ;;21,"00904-0428-95 ")
  1. ;;5955
  1. ;;21,"00904-0430-04 ")
  1. ;;6144
  1. ;;21,"00904-0430-40 ")
  1. ;;6145
  1. ;;21,"00904-0430-51 ")
  1. ;;6146
  1. ;;21,"00904-0430-61 ")
  1. ;;6147
  1. ;;21,"00904-2725-40 ")
  1. ;;5655
  1. ;;21,"00904-2725-60 ")
  1. ;;5656
  1. ;;21,"00904-2725-61 ")
  1. ;;5657
  1. ;;21,"00904-5807-61 ")
  1. ;;5582
  1. ;;21,"00904-5959-61 ")
  1. ;;2227
  1. ;;21,"00904-6010-04 ")
  1. ;;2648
  1. ;;21,"00904-6249-61 ")
  1. ;;4787
  1. ;;21,"00904-6250-61 ")
  1. ;;4860
  1. ;;21,"00904-6251-61 ")
  1. ;;4963
  1. ;;21,"00904-6351-61 ")
  1. ;;4788
  1. ;;21,"00904-6352-61 ")
  1. ;;4861
  1. ;;21,"00904-6353-61 ")
  1. ;;4964
  1. ;;21,"00904-6378-61 ")
  1. ;;4358
  1. ;;21,"00904-6406-06 ")
  1. ;;5014
  1. ;;21,"10019-0098-01 ")
  1. ;;6790
  1. ;;21,"10019-0098-71 ")
  1. ;;6791
  1. ;;21,"10019-0610-01 ")
  1. ;;1373
  1. ;;21,"10019-0610-10 ")
  1. ;;1374
  1. ;;21,"10019-0611-03 ")
  1. ;;1313
  1. ;;21,"10019-0611-10 ")
  1. ;;1314
  1. ;;21,"10019-0612-05 ")
  1. ;;1344
  1. ;;21,"10019-0612-11 ")
  1. ;;1345
  1. ;;21,"10019-0620-01 ")
  1. ;;5104
  1. ;;21,"10019-0620-10 ")
  1. ;;5105
  1. ;;21,"10019-0621-03 ")
  1. ;;5068
  1. ;;21,"10019-0621-20 ")
  1. ;;5069
  1. ;;21,"10019-0622-05 ")
  1. ;;5088
  1. ;;21,"10019-0622-11 ")
  1. ;;5089
  1. ;;21,"10019-0648-02 ")
  1. ;;2529
  1. ;;21,"10019-0648-71 ")
  1. ;;2530
  1. ;;21,"10019-0685-01 ")
  1. ;;6876
  1. ;;21,"10019-0685-71 ")
  1. ;;6877
  1. ;;21,"10019-0686-02 ")
  1. ;;6913
  1. ;;21,"10019-0686-71 ")
  1. ;;6914
  1. ;;21,"10019-0687-03 ")
  1. ;;6792
  1. ;;21,"10019-0687-71 ")
  1. ;;6793
  1. ;;21,"10019-0688-04 ")
  1. ;;6845
  1. ;;21,"10019-0688-27 ")
  1. ;;6846
  1. ;;21,"10019-0689-05 ")
  1. ;;6825
  1. ;;21,"10019-0689-11 ")
  1. ;;6826
  1. ;;21,"10122-0801-20 ")
  1. ;;7034
  1. ;;21,"10122-0801-60 ")
  1. ;;7035
  1. ;;21,"10122-0802-20 ")
  1. ;;7038
  1. ;;21,"10122-0802-28 ")
  1. ;;7039
  1. ;;21,"10135-0474-01 ")
  1. ;;4182
  1. ;;21,"10135-0475-01 ")
  1. ;;4359
  1. ;;21,"10135-0475-05 ")
  1. ;;4360
  1. ;;21,"10135-0475-13 ")
  1. ;;4361
  1. ;;21,"10135-0475-47 ")
  1. ;;4362
  1. ;;21,"10135-0476-50 ")
  1. ;;4694
  1. ;;21,"10135-0539-01 ")
  1. ;;5915
  1. ;;21,"10147-0941-06 ")
  1. ;;4769
  1. ;;21,"10337-0800-01 ")
  1. ;;6404
  1. ;;21,"10337-0801-01 ")
  1. ;;6415
  1. ;;21,"10337-0801-03 ")
  1. ;;6416
  1. ;;21,"10337-0801-50 ")
  1. ;;6417
  1. ;;21,"10337-0802-03 ")
  1. ;;6372
  1. ;;21,"10337-0802-05 ")
  1. ;;6373
  1. ;;21,"10337-0802-06 ")
  1. ;;6374
  1. ;;21,"10337-0802-25 ")
  1. ;;6375
  1. ;;21,"10337-0814-03 ")
  1. ;;6391
  1. ;;21,"10337-0815-06 ")
  1. ;;6386
  1. ;;21,"10337-0818-01 ")
  1. ;;6766
  1. ;;21,"10337-0819-01 ")
  1. ;;6765
  1. ;;21,"10370-0107-05 ")
  1. ;;4660
  1. ;;21,"10370-0108-05 ")
  1. ;;4151
  1. ;;21,"10515-0125-01 ")
  1. ;;5106
  1. ;;21,"10544-0004-14 ")
  1. ;;1821
  1. ;;21,"10544-0004-20 ")
  1. ;;1822
  1. ;;21,"10544-0004-28 ")
  1. ;;1823
  1. ;;21,"10544-0007-21 ")
  1. ;;486
  1. ;;21,"10544-0007-30 ")
  1. ;;487
  1. ;;21,"10544-0013-28 ")
  1. ;;1824
  1. ;;21,"10544-0013-40 ")
  1. ;;1825
  1. ;;21,"10544-0020-10 ")
  1. ;;1826
  1. ;;21,"10544-0020-14 ")
  1. ;;1827
  1. ;;21,"10544-0020-20 ")
  1. ;;1828
  1. ;;21,"10544-0020-28 ")
  1. ;;1829
  1. ;;21,"10544-0020-30 ")
  1. ;;1830
  1. ;;21,"10544-0020-40 ")
  1. ;;1831
  1. ;;21,"10544-0169-14 ")
  1. ;;5956
  1. ;;21,"10544-0169-20 ")
  1. ;;5957
  1. ;;21,"10544-0169-28 ")
  1. ;;5958
  1. ;;21,"10544-0306-10 ")
  1. ;;1832
  1. ;;21,"10544-0306-28 ")
  1. ;;1833
  1. ;;21,"10544-0307-10 ")
  1. ;;4363
  1. ;;21,"10544-0331-20 ")
  1. ;;1070
  1. ;;21,"10544-0332-28 ")
  1. ;;2228
  1. ;;21,"10544-0332-60 ")
  1. ;;2229
  1. ;;21,"10544-0503-14 ")
  1. ;;1834
  1. ;;21,"10544-0503-20 ")
  1. ;;1835
  1. ;;21,"10544-0503-28 ")
  1. ;;1836
  1. ;;21,"10544-0503-30 ")
  1. ;;1837
  1. ;;21,"10544-0503-40 ")
  1. ;;1838
  1. ;;21,"10544-0525-06 ")
  1. ;;5658
  1. ;;21,"10544-0525-10 ")
  1. ;;5659
  1. ;;21,"10544-0525-14 ")
  1. ;;5660
  1. ;;21,"10544-0525-20 ")
  1. ;;5661
  1. ;;21,"10544-0525-28 ")
  1. ;;5662
  1. ;;21,"10544-0603-06 ")
  1. ;;4183
  1. ;;21,"10544-0603-10 ")
  1. ;;4184
  1. ;;21,"10544-0603-14 ")
  1. ;;4185
  1. ;;21,"10544-0603-20 ")
  1. ;;4186
  1. ;;21,"10544-0604-06 ")
  1. ;;4187
  1. ;;21,"10544-0604-10 ")
  1. ;;4188
  1. ;;21,"10544-0604-14 ")
  1. ;;4189
  1. ;;21,"10544-0604-20 ")
  1. ;;4190
  1. ;;21,"10544-0605-06 ")
  1. ;;4364
  1. ;;21,"10544-0605-10 ")
  1. ;;4365
  1. ;;21,"10544-0605-14 ")
  1. ;;4366
  1. ;;21,"10544-0605-20 ")
  1. ;;4367
  1. ;;21,"10544-0606-06 ")
  1. ;;4368
  1. ;;21,"10544-0606-10 ")
  1. ;;4369
  1. ;;21,"10544-0606-14 ")
  1. ;;4370
  1. ;;21,"10544-0606-15 ")
  1. ;;4371
  1. ;;21,"10544-0606-20 ")
  1. ;;4372
  1. ;;21,"10544-0606-42 ")
  1. ;;4373
  1. ;;21,"10544-0607-06 ")
  1. ;;4374
  1. ;;21,"10544-0607-10 ")
  1. ;;4375
  1. ;;21,"10544-0607-14 ")
  1. ;;4376
  1. ;;21,"10544-0607-20 ")
  1. ;;4377
  1. ;;21,"10544-0608-06 ")
  1. ;;4378
  1. ;;21,"10544-0608-10 ")
  1. ;;4379
  1. ;;21,"10544-0608-14 ")
  1. ;;4380
  1. ;;21,"10544-0608-20 ")
  1. ;;4381
  1. ;;21,"10544-0617-14 ")
  1. ;;1839
  1. ;;21,"10544-0617-20 ")
  1. ;;1840
  1. ;;21,"10544-0617-28 ")
  1. ;;1841
  1. ;;21,"10544-0617-30 ")
  1. ;;1842
  1. ;;21,"10544-0617-40 ")
  1. ;;1843
  1. ;;21,"10544-0619-21 ")
  1. ;;488
  1. ;;21,"10544-0619-30 ")
  1. ;;489
  1. ;;21,"10544-0619-42 ")
  1. ;;490
  1. ;;21,"10631-0555-30 ")
  1. ;;5122
  1. ;;21,"10631-0556-20 ")
  1. ;;5128
  1. ;;21,"10631-0557-30 ")
  1. ;;5163
  1. ;;21,"10631-0573-10 ")
  1. ;;1551
  1. ;;21,"11042-0112-96 ")
  1. ;;1593
  1. ;;21,"11042-0112-97 ")
  1. ;;1594
  1. ;;21,"11042-0113-96 ")
  1. ;;1844
  1. ;;21,"11042-0113-97 ")
  1. ;;1845
  1. ;;21,"11042-0115-40 ")
  1. ;;2129
  1. ;;21,"11042-0142-03 ")
  1. ;;716
  1. ;;21,"12280-0073-10 ")
  1. ;;6915
  1. ;;21,"12280-0122-50 ")
  1. ;;5166
  1. ;;21,"12280-0153-50 ")
  1. ;;918
  1. ;;21,"12280-0153-75 ")
  1. ;;919
  1. ;;21,"12280-0156-15 ")
  1. ;;982
  1. ;;21,"12280-0156-75 ")
  1. ;;983
  1. ;;21,"12634-0183-01 ")
  1. ;;184
  1. ;;21,"12634-0183-60 ")
  1. ;;185
  1. ;;21,"12634-0183-71 ")
  1. ;;186
  1. ;;21,"12634-0183-81 ")
  1. ;;187
  1. ;;21,"12634-0183-84 ")
  1. ;;188
  1. ;;21,"12634-0183-85 ")
  1. ;;189
  1. ;;21,"12634-0183-91 ")
  1. ;;190
  1. ;;21,"12634-0183-94 ")
  1. ;;191
  1. ;;21,"12634-0185-01 ")
  1. ;;491
  1. ;;21,"12634-0185-60 ")
  1. ;;492
  1. ;;21,"12634-0185-71 ")
  1. ;;493
  1. ;;21,"12634-0185-81 ")
  1. ;;494
  1. ;;21,"12634-0185-84 ")
  1. ;;495
  1. ;;21,"12634-0185-85 ")
  1. ;;496
  1. ;;21,"12634-0185-91 ")
  1. ;;497
  1. ;;21,"12634-0185-94 ")
  1. ;;498
  1. ;;21,"12634-0185-96 ")
  1. ;;499
  1. ;;21,"12634-0185-99 ")
  1. ;;500
  1. ;;21,"13107-0077-01 ")
  1. ;;4382
  1. ;;21,"13310-0145-01 ")
  1. ;;5583
  1. ;;21,"13310-0146-01 ")
  1. ;;5663
  1. ;;21,"13411-0108-01 ")
  1. ;;5015
  1. ;;21,"13411-0108-02 ")
  1. ;;5016
  1. ;;21,"13411-0108-03 ")
  1. ;;5017
  1. ;;21,"13411-0108-06 ")
  1. ;;5018
  1. ;;21,"13411-0108-09 ")
  1. ;;5019
  1. ;;21,"13411-0108-15 ")
  1. ;;5020
  1. ;;21,"13411-0112-01 ")
  1. ;;4862
  1. ;;21,"13411-0112-02 ")
  1. ;;4863
  1. ;;21,"13411-0112-03 ")
  1. ;;4864
  1. ;;21,"13411-0112-05 ")
  1. ;;4865
  1. ;;21,"13411-0112-06 ")
  1. ;;4866
  1. ;;21,"13411-0131-01 ")
  1. ;;2649
  1. ;;21,"13411-0131-03 ")
  1. ;;2650
  1. ;;21,"13411-0131-06 ")
  1. ;;2651
  1. ;;21,"13411-0131-09 ")
  1. ;;2652
  1. ;;21,"13411-0131-15 ")
  1. ;;2653
  1. ;;21,"13411-0154-01 ")
  1. ;;4789
  1. ;;21,"13411-0154-02 ")
  1. ;;4790
  1. ;;21,"13411-0154-03 ")
  1. ;;4791
  1. ;;21,"13411-0154-05 ")
  1. ;;4792
  1. ;;21,"13411-0154-06 ")
  1. ;;4793
  1. ;;21,"13411-0185-01 ")
  1. ;;2947
  1. ;;21,"13411-0185-03 ")
  1. ;;2948
  1. ;;21,"13411-0185-04 ")
  1. ;;2949
  1. ;;21,"13411-0185-06 ")
  1. ;;2950
  1. ;;21,"13411-0185-15 ")
  1. ;;2951
  1. ;;21,"13517-0131-01 ")
  1. ;;5907
  1. ;;21,"13551-0501-05 ")
  1. ;;2148
  1. ;;21,"13668-0082-01 ")
  1. ;;4794
  1. ;;21,"13668-0082-50 ")
  1. ;;4795
  1. ;;21,"13668-0082-74 ")
  1. ;;4796
  1. ;;21,"13668-0083-01 ")
  1. ;;4867
  1. ;;21,"13668-0083-50 ")
  1. ;;4868
  1. ;;21,"13668-0083-74 ")
  1. ;;4869
  1. ;;21,"13668-0084-01 ")
  1. ;;4965
  1. ;;21,"13668-0084-21 ")
  1. ;;4966
  1. ;;21,"13668-0084-50 ")
  1. ;;4967
  1. ;;21,"13668-0084-74 ")
  1. ;;4968
  1. ;;21,"13668-0201-30 ")
  1. ;;5021
  1. ;;21,"13913-0001-03 ")
  1. ;;4661
  1. ;;21,"13913-0001-30 ")
  1. ;;4662
  1. ;;21,"13913-0001-50 ")
  1. ;;4663
  1. ;;21,"14290-0500-86 ")
  1. ;;6432
  1. ;;21,"14290-0501-88 ")
  1. ;;6514
  1. ;;21,"14290-0545-92 ")
  1. ;;5903
  1. ;;21,"14290-0550-98 ")
  1. ;;6767
  1. ;;21,"14290-0551-98 ")
  1. ;;6769
  1. ;;21,"14290-0570-98 ")
  1. ;;6768
  1. ;;21,"14290-0571-98 ")
  1. ;;6770
  1. ;;21,"15082-0601-10 ")
  1. ;;1353
  1. ;;21,"15082-0607-05 ")
  1. ;;3597
  1. ;;21,"15082-0623-10 ")
  1. ;;1383
  1. ;;21,"15082-0624-10 ")
  1. ;;1392
  1. ;;21,"15338-0100-14 ")
  1. ;;5959
  1. ;;21,"15456-0001-03 ")
  1. ;;4664
  1. ;;21,"15456-0001-50 ")
  1. ;;4665
  1. ;;21,"15686-0101-01 ")
  1. ;;5584
  1. ;;21,"15686-0101-05 ")
  1. ;;5585
  1. ;;21,"15686-0102-01 ")
  1. ;;5664
  1. ;;21,"15686-0102-05 ")
  1. ;;5665
  1. ;;21,"15749-0820-04 ")
  1. ;;192
  1. ;;21,"15749-0820-10 ")
  1. ;;193
  1. ;;21,"15749-0820-11 ")
  1. ;;194
  1. ;;21,"15749-0825-02 ")
  1. ;;501
  1. ;;21,"15749-0825-04 ")
  1. ;;502
  1. ;;21,"15749-0825-10 ")
  1. ;;503
  1. ;;21,"16110-0075-01 ")
  1. ;;6409
  1. ;;21,"16110-0259-04 ")
  1. ;;6354
  1. ;;21,"16110-0259-07 ")
  1. ;;6355
  1. ;;21,"16110-0260-06 ")
  1. ;;6397
  1. ;;21,"16110-0501-01 ")
  1. ;;6348
  1. ;;21,"16110-0502-01 ")
  1. ;;6302
  1. ;;21,"16252-0514-01 ")
  1. ;;4191
  1. ;;21,"16252-0515-01 ")
  1. ;;4383
  1. ;;21,"16252-0516-05 ")
  1. ;;4695
  1. ;;21,"16571-0070-12 ")
  1. ;;5123
  1. ;;21,"16571-0071-12 ")
  1. ;;5167
  1. ;;21,"16571-0072-11 ")
  1. ;;5187
  1. ;;21,"16571-0411-10 ")
  1. ;;4192
  1. ;;21,"16571-0412-10 ")
  1. ;;4384
  1. ;;21,"16571-0412-50 ")
  1. ;;4385
  1. ;;21,"16571-0413-05 ")
  1. ;;4696
  1. ;;21,"16590-0014-30 ")
  1. ;;195
  1. ;;21,"16590-0014-71 ")
  1. ;;196
  1. ;;21,"16590-0015-33 ")
  1. ;;391
  1. ;;21,"16590-0016-15 ")
  1. ;;504
  1. ;;21,"16590-0016-20 ")
  1. ;;505
  1. ;;21,"16590-0016-30 ")
  1. ;;506
  1. ;;21,"16590-0016-40 ")
  1. ;;507
  1. ;;21,"16590-0017-20 ")
  1. ;;727
  1. ;;21,"16590-0017-30 ")
  1. ;;728
  1. ;;21,"16590-0018-33 ")
  1. ;;103
  1. ;;21,"16590-0019-20 ")
  1. ;;1071
  1. ;;21,"16590-0019-30 ")
  1. ;;1072
  1. ;;21,"16590-0019-60 ")
  1. ;;1073
  1. ;;21,"16590-0019-90 ")
  1. ;;1074
  1. ;;21,"16590-0020-10 ")
  1. ;;1221
  1. ;;21,"16590-0020-14 ")
  1. ;;1222
  1. ;;21,"16590-0020-20 ")
  1. ;;1223
  1. ;;21,"16590-0020-28 ")
  1. ;;1224
  1. ;;21,"16590-0020-30 ")
  1. ;;1225
  1. ;;21,"16590-0035-14 ")
  1. ;;2952
  1. ;;21,"16590-0035-21 ")
  1. ;;2953
  1. ;;21,"16590-0035-30 ")
  1. ;;2954
  1. ;;21,"16590-0041-14 ")
  1. ;;5133
  1. ;;21,"16590-0041-21 ")
  1. ;;5134
  1. ;;21,"16590-0041-30 ")
  1. ;;5135
  1. ;;21,"16590-0042-33 ")
  1. ;;5168
  1. ;;21,"16590-0043-05 ")
  1. ;;1427
  1. ;;21,"16590-0043-10 ")
  1. ;;1428
  1. ;;21,"16590-0043-14 ")
  1. ;;1429
  1. ;;21,"16590-0043-15 ")
  1. ;;1430
  1. ;;21,"16590-0043-20 ")
  1. ;;1431
  1. ;;21,"16590-0043-24 ")
  1. ;;1432
  1. ;;21,"16590-0043-30 ")
  1. ;;1433
  1. ;;21,"16590-0043-60 ")
  1. ;;1434
  1. ;;21,"16590-0044-20 ")
  1. ;;5364
  1. ;;21,"16590-0049-36 ")
  1. ;;1778
  1. ;;21,"16590-0050-21 ")
  1. ;;1595
  1. ;;21,"16590-0050-28 ")
  1. ;;1596
  1. ;;21,"16590-0050-30 ")
  1. ;;1597
  1. ;;21,"16590-0050-60 ")
  1. ;;1598
  1. ;;21,"16590-0050-90 ")
  1. ;;1599
  1. ;;21,"16590-0051-20 ")
  1. ;;1846
  1. ;;21,"16590-0051-21 ")
  1. ;;1847
  1. ;;21,"16590-0051-28 ")
  1. ;;1848
  1. ;;21,"16590-0051-30 ")
  1. ;;1849
  1. ;;21,"16590-0051-60 ")
  1. ;;1850
  1. ;;21,"16590-0051-90 ")
  1. ;;1851
  1. ;;21,"16590-0054-10 ")
  1. ;;4386
  1. ;;21,"16590-0054-14 ")
  1. ;;4387
  1. ;;21,"16590-0054-20 ")
  1. ;;4388
  1. ;;21,"16590-0054-28 ")
  1. ;;4389
  1. ;;21,"16590-0054-30 ")
  1. ;;4390
  1. ;;21,"16590-0054-40 ")
  1. ;;4391
  1. ;;21,"16590-0054-60 ")
  1. ;;4392
  1. ;;21,"16590-0054-71 ")
  1. ;;4393
  1. ;;21,"16590-0054-90 ")
  1. ;;4394
  1. ;;21,"16590-0057-20 ")
  1. ;;2230
  1. ;;21,"16590-0057-28 ")
  1. ;;2231
  1. ;;21,"16590-0057-30 ")
  1. ;;2232
  1. ;;21,"16590-0057-40 ")
  1. ;;2233
  1. ;;21,"16590-0057-60 ")
  1. ;;2234
  1. ;;21,"16590-0076-21 ")
  1. ;;3983
  1. ;;21,"16590-0076-30 ")
  1. ;;3984
  1. ;;21,"16590-0082-20 ")
  1. ;;5960
  1. ;;21,"16590-0082-21 ")
  1. ;;5961
  1. ;;21,"16590-0082-28 ")
  1. ;;5962
  1. ;;21,"16590-0082-30 ")
  1. ;;5963
  1. ;;21,"16590-0082-60 ")
  1. ;;5964
  1. ;;21,"16590-0088-28 ")
  1. ;;3057