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

BGP13T13.m

Go to the documentation of this file.
BGP13T13 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"61392-0487-90 ")
 ;;4921
 ;;21,"61392-0487-91 ")
 ;;4922
 ;;21,"61392-0490-15 ")
 ;;4923
 ;;21,"61392-0490-30 ")
 ;;4924
 ;;21,"61392-0490-31 ")
 ;;4925
 ;;21,"61392-0490-32 ")
 ;;4926
 ;;21,"61392-0490-39 ")
 ;;4927
 ;;21,"61392-0490-45 ")
 ;;4928
 ;;21,"61392-0490-51 ")
 ;;4929
 ;;21,"61392-0490-54 ")
 ;;4930
 ;;21,"61392-0490-56 ")
 ;;4931
 ;;21,"61392-0490-60 ")
 ;;4932
 ;;21,"61392-0490-90 ")
 ;;4933
 ;;21,"61392-0490-91 ")
 ;;4934
 ;;21,"61392-0491-30 ")
 ;;4935
 ;;21,"61392-0491-31 ")
 ;;4936
 ;;21,"61392-0491-32 ")
 ;;4937
 ;;21,"61392-0491-39 ")
 ;;4938
 ;;21,"61392-0491-45 ")
 ;;4939
 ;;21,"61392-0491-51 ")
 ;;4940
 ;;21,"61392-0491-54 ")
 ;;4941
 ;;21,"61392-0491-60 ")
 ;;4942
 ;;21,"61392-0491-90 ")
 ;;4943
 ;;21,"61392-0491-91 ")
 ;;4944
 ;;21,"61392-0726-30 ")
 ;;1793
 ;;21,"61392-0726-31 ")
 ;;1794
 ;;21,"61392-0726-32 ")
 ;;1795
 ;;21,"61392-0726-39 ")
 ;;1796
 ;;21,"61392-0726-45 ")
 ;;1797
 ;;21,"61392-0726-51 ")
 ;;1798
 ;;21,"61392-0726-54 ")
 ;;1799
 ;;21,"61392-0726-60 ")
 ;;1800
 ;;21,"61392-0726-90 ")
 ;;1801
 ;;21,"61392-0726-91 ")
 ;;1802
 ;;21,"61392-0727-30 ")
 ;;1803
 ;;21,"61392-0727-31 ")
 ;;1804
 ;;21,"61392-0727-32 ")
 ;;1805
 ;;21,"61392-0727-39 ")
 ;;1806
 ;;21,"61392-0727-45 ")
 ;;1807
 ;;21,"61392-0727-51 ")
 ;;1808
 ;;21,"61392-0727-54 ")
 ;;1809
 ;;21,"61392-0727-60 ")
 ;;1810
 ;;21,"61392-0727-90 ")
 ;;1811
 ;;21,"61392-0727-91 ")
 ;;1812
 ;;21,"61392-0728-30 ")
 ;;1813
 ;;21,"61392-0728-31 ")
 ;;1814
 ;;21,"61392-0728-32 ")
 ;;1815
 ;;21,"61392-0728-39 ")
 ;;1816
 ;;21,"61392-0728-45 ")
 ;;1817
 ;;21,"61392-0728-51 ")
 ;;1818
 ;;21,"61392-0728-54 ")
 ;;1819
 ;;21,"61392-0728-60 ")
 ;;1820
 ;;21,"61392-0728-90 ")
 ;;1821
 ;;21,"61392-0728-91 ")
 ;;1822
 ;;21,"61392-0729-30 ")
 ;;1823
 ;;21,"61392-0729-31 ")
 ;;1824
 ;;21,"61392-0729-32 ")
 ;;1825
 ;;21,"61392-0729-39 ")
 ;;1826
 ;;21,"61392-0729-45 ")
 ;;1827
 ;;21,"61392-0729-51 ")
 ;;1828
 ;;21,"61392-0729-54 ")
 ;;1829
 ;;21,"61392-0729-60 ")
 ;;1830
 ;;21,"61392-0729-90 ")
 ;;1831
 ;;21,"61392-0729-91 ")
 ;;1832
 ;;21,"61392-0730-30 ")
 ;;1833
 ;;21,"61392-0730-31 ")
 ;;1834
 ;;21,"61392-0730-32 ")
 ;;1835
 ;;21,"61392-0730-39 ")
 ;;1836
 ;;21,"61392-0730-45 ")
 ;;1837
 ;;21,"61392-0730-51 ")
 ;;1838
 ;;21,"61392-0730-60 ")
 ;;1839
 ;;21,"61392-0730-90 ")
 ;;1840
 ;;21,"61392-0730-91 ")
 ;;1841
 ;;21,"62037-0538-01 ")
 ;;2511
 ;;21,"62037-0538-05 ")
 ;;2512
 ;;21,"62037-0538-10 ")
 ;;2513
 ;;21,"62037-0539-01 ")
 ;;2514
 ;;21,"62037-0539-05 ")
 ;;2515
 ;;21,"62037-0539-10 ")
 ;;2516
 ;;21,"62037-0753-10 ")
 ;;3110
 ;;21,"62037-0753-30 ")
 ;;3111
 ;;21,"62037-0754-10 ")
 ;;3112
 ;;21,"62037-0754-30 ")
 ;;3113
 ;;21,"62037-0755-10 ")
 ;;3114
 ;;21,"62037-0755-30 ")
 ;;3115
 ;;21,"62037-0845-30 ")
 ;;3867
 ;;21,"62037-0846-01 ")
 ;;3868
 ;;21,"62037-0846-10 ")
 ;;3869
 ;;21,"62037-0846-30 ")
 ;;3870
 ;;21,"62037-0847-30 ")
 ;;3871
 ;;21,"62037-0848-30 ")
 ;;3872
 ;;21,"62584-0556-01 ")
 ;;3116
 ;;21,"62584-0556-11 ")
 ;;3117
 ;;21,"62584-0556-85 ")
 ;;3118
 ;;21,"62584-0557-01 ")
 ;;3119
 ;;21,"62584-0557-11 ")
 ;;3120
 ;;21,"62584-0686-01 ")
 ;;1842
 ;;21,"62584-0686-11 ")
 ;;1843
 ;;21,"62584-0687-01 ")
 ;;1844
 ;;21,"62584-0687-11 ")
 ;;1845
 ;;21,"62584-0688-01 ")
 ;;1846
 ;;21,"62584-0688-11 ")
 ;;1847
 ;;21,"62584-0750-01 ")
 ;;2806
 ;;21,"62584-0750-11 ")
 ;;2807
 ;;21,"62584-0751-01 ")
 ;;2808
 ;;21,"62584-0751-11 ")
 ;;2809
 ;;21,"63304-0164-30 ")
 ;;4536
 ;;21,"63304-0165-01 ")
 ;;4537
 ;;21,"63304-0165-05 ")
 ;;4538
 ;;21,"63304-0165-30 ")
 ;;4539
 ;;21,"63304-0166-01 ")
 ;;4540
 ;;21,"63304-0166-05 ")
 ;;4541
 ;;21,"63304-0166-30 ")
 ;;4542
 ;;21,"63304-0202-01 ")
 ;;3549
 ;;21,"63304-0632-01 ")
 ;;2517
 ;;21,"63304-0632-30 ")
 ;;2518
 ;;21,"63304-0632-90 ")
 ;;2519
 ;;21,"63304-0686-30 ")
 ;;2520
 ;;21,"63304-0686-90 ")
 ;;2521
 ;;21,"63304-0687-30 ")
 ;;2522
 ;;21,"63304-0687-90 ")
 ;;2523
 ;;21,"63304-0840-05 ")
 ;;4543
 ;;21,"63629-1318-01 ")
 ;;1248
 ;;21,"63629-1368-01 ")
 ;;459
 ;;21,"63629-1369-01 ")
 ;;460
 ;;21,"63629-1510-01 ")
 ;;2810
 ;;21,"63629-1513-01 ")
 ;;4945
 ;;21,"63629-1513-02 ")
 ;;4946
 ;;21,"63629-1513-03 ")
 ;;4947
 ;;21,"63629-1609-01 ")
 ;;2524
 ;;21,"63629-1609-02 ")
 ;;2525
 ;;21,"63629-1610-01 ")
 ;;2526
 ;;21,"63629-1610-02 ")
 ;;2527
 ;;21,"63629-1610-03 ")
 ;;2528
 ;;21,"63629-1610-04 ")
 ;;2529
 ;;21,"63629-1840-01 ")
 ;;3873
 ;;21,"63629-2642-01 ")
 ;;5128
 ;;21,"63629-2833-02 ")
 ;;3550
 ;;21,"63629-2833-04 ")
 ;;3551
 ;;21,"63629-2867-01 ")
 ;;4948
 ;;21,"63629-2867-02 ")
 ;;4949
 ;;21,"63629-2867-03 ")
 ;;4950
 ;;21,"63629-2981-01 ")
 ;;2897
 ;;21,"63629-3204-01 ")
 ;;3552
 ;;21,"63629-3205-01 ")
 ;;3874
 ;;21,"63629-3210-01 ")
 ;;4951
 ;;21,"63629-3210-02 ")
 ;;4952
 ;;21,"63629-3221-01 ")
 ;;1848
 ;;21,"63629-3289-01 ")
 ;;4544
 ;;21,"63629-3309-01 ")
 ;;4545
 ;;21,"63629-3313-01 ")
 ;;4546
 ;;21,"63629-3340-01 ")
 ;;1408
 ;;21,"63672-2010-01 ")
 ;;4135
 ;;21,"63672-2020-01 ")
 ;;4136
 ;;21,"63672-2030-01 ")
 ;;4137
 ;;21,"63672-2040-01 ")
 ;;4138
 ;;21,"63739-0189-10 ")
 ;;3553
 ;;21,"63739-0189-15 ")
 ;;3554
 ;;21,"63739-0190-10 ")
 ;;3555
 ;;21,"63739-0190-15 ")
 ;;3556
 ;;21,"63739-0245-01 ")
 ;;4953
 ;;21,"63739-0245-03 ")
 ;;4954
 ;;21,"63739-0245-10 ")
 ;;4955
 ;;21,"63739-0245-15 ")
 ;;4956
 ;;21,"63739-0246-01 ")
 ;;4957
 ;;21,"63739-0246-03 ")
 ;;4958
 ;;21,"63739-0246-10 ")
 ;;4959
 ;;21,"63739-0246-15 ")
 ;;4960
 ;;21,"63739-0295-10 ")
 ;;2530
 ;;21,"63739-0295-15 ")
 ;;2531
 ;;21,"63739-0296-10 ")
 ;;2532
 ;;21,"63739-0296-15 ")
 ;;2533
 ;;21,"63739-0317-10 ")
 ;;724
 ;;21,"63739-0317-15 ")
 ;;725
 ;;21,"63739-0318-10 ")
 ;;726
 ;;21,"63739-0318-15 ")
 ;;727
 ;;21,"63739-0355-10 ")
 ;;3121
 ;;21,"63739-0355-15 ")
 ;;3122
 ;;21,"63739-0356-10 ")
 ;;3123
 ;;21,"63739-0356-15 ")
 ;;3124
 ;;21,"63739-0407-10 ")
 ;;3875
 ;;21,"63739-0408-10 ")
 ;;3876
 ;;21,"63874-0296-01 ")
 ;;461
 ;;21,"63874-0296-04 ")
 ;;462
 ;;21,"63874-0296-15 ")
 ;;463
 ;;21,"63874-0296-20 ")
 ;;464
 ;;21,"63874-0296-30 ")
 ;;465
 ;;21,"63874-0296-40 ")
 ;;466
 ;;21,"63874-0296-60 ")
 ;;467
 ;;21,"63874-0296-90 ")
 ;;468
 ;;21,"63874-0311-01 ")
 ;;469
 ;;21,"63874-0311-02 ")
 ;;470
 ;;21,"63874-0311-04 ")
 ;;471
 ;;21,"63874-0311-10 ")
 ;;472
 ;;21,"63874-0311-12 ")
 ;;473
 ;;21,"63874-0311-15 ")
 ;;474
 ;;21,"63874-0311-20 ")
 ;;475
 ;;21,"63874-0311-24 ")
 ;;476
 ;;21,"63874-0311-30 ")
 ;;477
 ;;21,"63874-0311-40 ")
 ;;478
 ;;21,"63874-0311-50 ")
 ;;479
 ;;21,"63874-0311-60 ")
 ;;480
 ;;21,"63874-0311-72 ")
 ;;481
 ;;21,"63874-0311-74 ")
 ;;482
 ;;21,"63874-0311-77 ")
 ;;483
 ;;21,"63874-0311-82 ")
 ;;484
 ;;21,"63874-0311-90 ")
 ;;485
 ;;21,"63874-0359-01 ")
 ;;486
 ;;21,"63874-0359-02 ")
 ;;487
 ;;21,"63874-0359-14 ")
 ;;488
 ;;21,"63874-0359-15 ")
 ;;489
 ;;21,"63874-0359-20 ")
 ;;490
 ;;21,"63874-0359-28 ")
 ;;491
 ;;21,"63874-0359-30 ")
 ;;492
 ;;21,"63874-0359-40 ")
 ;;493
 ;;21,"63874-0359-50 ")
 ;;494
 ;;21,"63874-0359-60 ")
 ;;495
 ;;21,"63874-0359-90 ")
 ;;496
 ;;21,"63874-0430-01 ")
 ;;497
 ;;21,"63874-0430-02 ")
 ;;498
 ;;21,"63874-0430-04 ")
 ;;499
 ;;21,"63874-0430-14 ")
 ;;500
 ;;21,"63874-0430-15 ")
 ;;501
 ;;21,"63874-0430-20 ")
 ;;502
 ;;21,"63874-0430-25 ")
 ;;503
 ;;21,"63874-0430-28 ")
 ;;504
 ;;21,"63874-0430-30 ")
 ;;505
 ;;21,"63874-0430-40 ")
 ;;506
 ;;21,"63874-0430-50 ")
 ;;507
 ;;21,"63874-0430-60 ")
 ;;508
 ;;21,"63874-0430-90 ")
 ;;509
 ;;21,"63874-0537-01 ")
 ;;4961
 ;;21,"63874-0537-04 ")
 ;;4962
 ;;21,"63874-0537-10 ")
 ;;4963
 ;;21,"63874-0537-12 ")
 ;;4964
 ;;21,"63874-0537-14 ")
 ;;4965
 ;;21,"63874-0537-15 ")
 ;;4966
 ;;21,"63874-0537-20 ")
 ;;4967
 ;;21,"63874-0537-30 ")
 ;;4968
 ;;21,"63874-0537-40 ")
 ;;4969
 ;;21,"63874-0537-60 ")
 ;;4970
 ;;21,"63874-0537-90 ")
 ;;4971
 ;;21,"63874-0538-01 ")
 ;;3877
 ;;21,"63874-0538-10 ")
 ;;3878
 ;;21,"63874-0538-14 ")
 ;;3879
 ;;21,"63874-0538-15 ")
 ;;3880
 ;;21,"63874-0538-20 ")
 ;;3881
 ;;21,"63874-0538-30 ")
 ;;3882
 ;;21,"63874-0538-60 ")
 ;;3883
 ;;21,"63874-0540-20 ")
 ;;3263
 ;;21,"63874-0540-30 ")
 ;;3264
 ;;21,"63874-0540-60 ")
 ;;3265
 ;;21,"63874-0542-14 ")
 ;;3266
 ;;21,"63874-0542-20 ")
 ;;3267
 ;;21,"63874-0542-30 ")
 ;;3268
 ;;21,"63874-0542-60 ")
 ;;3269
 ;;21,"63874-0555-01 ")
 ;;5358
 ;;21,"63874-0555-10 ")
 ;;5359
 ;;21,"63874-0555-14 ")
 ;;5360
 ;;21,"63874-0555-15 ")
 ;;5361
 ;;21,"63874-0555-20 ")
 ;;5362
 ;;21,"63874-0555-30 ")
 ;;5363
 ;;21,"63874-0555-60 ")
 ;;5364
 ;;21,"63874-0560-01 ")
 ;;4972
 ;;21,"63874-0560-04 ")
 ;;4973
 ;;21,"63874-0560-10 ")
 ;;4974
 ;;21,"63874-0560-12 ")
 ;;4975
 ;;21,"63874-0560-14 ")
 ;;4976
 ;;21,"63874-0560-15 ")
 ;;4977
 ;;21,"63874-0560-20 ")
 ;;4978
 ;;21,"63874-0560-28 ")
 ;;4979
 ;;21,"63874-0560-30 ")
 ;;4980
 ;;21,"63874-0560-40 ")
 ;;4981
 ;;21,"63874-0560-60 ")
 ;;4982
 ;;21,"63874-0560-90 ")
 ;;4983
 ;;21,"63874-0567-30 ")
 ;;728
 ;;21,"63874-0567-60 ")
 ;;729
 ;;21,"63874-0573-01 ")
 ;;2534
 ;;21,"63874-0573-04 ")
 ;;2535
 ;;21,"63874-0573-10 ")
 ;;2536
 ;;21,"63874-0573-14 ")
 ;;2537
 ;;21,"63874-0573-15 ")
 ;;2538
 ;;21,"63874-0573-20 ")
 ;;2539
 ;;21,"63874-0573-21 ")
 ;;2540
 ;;21,"63874-0573-28 ")
 ;;2541
 ;;21,"63874-0573-30 ")
 ;;2542
 ;;21,"63874-0573-60 ")
 ;;2543
 ;;21,"63874-0573-72 ")
 ;;2544
 ;;21,"63874-0573-74 ")
 ;;2545
 ;;21,"63874-0573-77 ")
 ;;2546
 ;;21,"63874-0573-90 ")
 ;;2547
 ;;21,"63874-0574-01 ")
 ;;2548
 ;;21,"63874-0574-04 ")
 ;;2549
 ;;21,"63874-0574-10 ")
 ;;2550
 ;;21,"63874-0574-14 ")
 ;;2551
 ;;21,"63874-0574-20 ")
 ;;2552
 ;;21,"63874-0574-21 ")
 ;;2553
 ;;21,"63874-0574-28 ")
 ;;2554
 ;;21,"63874-0574-30 ")
 ;;2555
 ;;21,"63874-0574-60 ")
 ;;2556
 ;;21,"63874-0574-72 ")
 ;;2557
 ;;21,"63874-0574-74 ")
 ;;2558
 ;;21,"63874-0574-77 ")
 ;;2559
 ;;21,"63874-0574-90 ")
 ;;2560
 ;;21,"63874-0579-01 ")
 ;;1849
 ;;21,"63874-0579-04 ")
 ;;1850
 ;;21,"63874-0579-10 ")
 ;;1851
 ;;21,"63874-0579-12 ")
 ;;1852
 ;;21,"63874-0579-14 ")
 ;;1853
 ;;21,"63874-0579-15 ")
 ;;1854
 ;;21,"63874-0579-20 ")
 ;;1855
 ;;21,"63874-0579-28 ")
 ;;1856
 ;;21,"63874-0579-30 ")
 ;;1857
 ;;21,"63874-0579-32 ")
 ;;1858
 ;;21,"63874-0579-40 ")
 ;;1859
 ;;21,"63874-0579-50 ")
 ;;1860
 ;;21,"63874-0579-60 ")
 ;;1861
 ;;21,"63874-0579-90 ")
 ;;1862
 ;;21,"63874-0580-01 ")
 ;;3557
 ;;21,"63874-0580-14 ")
 ;;3558
 ;;21,"63874-0580-15 ")
 ;;3559
 ;;21,"63874-0580-20 ")
 ;;3560
 ;;21,"63874-0580-30 ")
 ;;3561
 ;;21,"63874-0580-60 ")
 ;;3562
 ;;21,"63874-0580-90 ")
 ;;3563
 ;;21,"63874-0596-01 ")
 ;;5365
 ;;21,"63874-0596-10 ")
 ;;5366
 ;;21,"63874-0596-14 ")
 ;;5367
 ;;21,"63874-0596-15 ")
 ;;5368
 ;;21,"63874-0596-20 ")
 ;;5369
 ;;21,"63874-0596-30 ")
 ;;5370
 ;;21,"63874-0596-60 ")
 ;;5371
 ;;21,"63874-0599-01 ")
 ;;2006
 ;;21,"63874-0599-10 ")
 ;;2007
 ;;21,"63874-0599-14 ")
 ;;2008
 ;;21,"63874-0599-15 ")
 ;;2009
 ;;21,"63874-0599-20 ")
 ;;2010
 ;;21,"63874-0599-21 ")
 ;;2011
 ;;21,"63874-0599-28 ")
 ;;2012
 ;;21,"63874-0599-30 ")
 ;;2013
 ;;21,"63874-0599-40 ")
 ;;2014
 ;;21,"63874-0599-50 ")
 ;;2015
 ;;21,"63874-0599-60 ")
 ;;2016
 ;;21,"63874-0599-90 ")
 ;;2017
 ;;21,"63874-0609-01 ")
 ;;952
 ;;21,"63874-0609-10 ")
 ;;953
 ;;21,"63874-0609-20 ")
 ;;954
 ;;21,"63874-0609-30 ")
 ;;955
 ;;21,"63874-0609-60 ")
 ;;956
 ;;21,"63874-0609-90 ")
 ;;957
 ;;21,"63874-0616-01 ")
 ;;730
 ;;21,"63874-0616-04 ")
 ;;731
 ;;21,"63874-0616-10 ")
 ;;732
 ;;21,"63874-0616-12 ")
 ;;733
 ;;21,"63874-0616-15 ")
 ;;734
 ;;21,"63874-0616-20 ")
 ;;735
 ;;21,"63874-0616-25 ")
 ;;736
 ;;21,"63874-0616-28 ")
 ;;737
 ;;21,"63874-0616-30 ")
 ;;738
 ;;21,"63874-0616-40 ")
 ;;739
 ;;21,"63874-0616-50 ")
 ;;740