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