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

BGP52B2.m

Go to the documentation of this file.
BGP52B2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"33261-0990-90 ")
 ;;721
 ;;21,"33358-0360-00 ")
 ;;555
 ;;21,"33358-0361-30 ")
 ;;921
 ;;21,"35356-0019-10 ")
 ;;273
 ;;21,"35356-0020-10 ")
 ;;288
 ;;21,"35356-0078-10 ")
 ;;338
 ;;21,"35356-0079-02 ")
 ;;344
 ;;21,"35356-0079-10 ")
 ;;345
 ;;21,"35356-0080-02 ")
 ;;358
 ;;21,"35356-0080-10 ")
 ;;359
 ;;21,"35356-0081-02 ")
 ;;365
 ;;21,"35356-0081-10 ")
 ;;366
 ;;21,"35356-0397-30 ")
 ;;590
 ;;21,"35356-0397-60 ")
 ;;591
 ;;21,"35356-0397-90 ")
 ;;592
 ;;21,"35356-0481-10 ")
 ;;243
 ;;21,"35356-0540-90 ")
 ;;389
 ;;21,"35356-0571-30 ")
 ;;552
 ;;21,"35356-0571-60 ")
 ;;553
 ;;21,"35356-0571-90 ")
 ;;554
 ;;21,"35356-0582-30 ")
 ;;400
 ;;21,"35356-0582-60 ")
 ;;401
 ;;21,"35356-0582-90 ")
 ;;402
 ;;21,"35356-0906-30 ")
 ;;691
 ;;21,"35356-0906-90 ")
 ;;692
 ;;21,"42549-0496-30 ")
 ;;556
 ;;21,"42549-0497-30 ")
 ;;403
 ;;21,"43063-0218-30 ")
 ;;714
 ;;21,"43353-0049-30 ")
 ;;715
 ;;21,"43353-0049-60 ")
 ;;716
 ;;21,"43353-0050-15 ")
 ;;914
 ;;21,"43353-0050-20 ")
 ;;915
 ;;21,"43353-0050-25 ")
 ;;916
 ;;21,"43353-0050-28 ")
 ;;917
 ;;21,"43353-0050-30 ")
 ;;918
 ;;21,"43353-0050-35 ")
 ;;919
 ;;21,"43353-0050-38 ")
 ;;920
 ;;21,"43353-0050-40 ")
 ;;851
 ;;21,"43353-0050-45 ")
 ;;852
 ;;21,"43353-0050-50 ")
 ;;853
 ;;21,"43353-0050-53 ")
 ;;854
 ;;21,"43353-0050-55 ")
 ;;855
 ;;21,"43353-0050-57 ")
 ;;856
 ;;21,"43353-0050-60 ")
 ;;857
 ;;21,"43353-0050-61 ")
 ;;858
 ;;21,"43353-0050-65 ")
 ;;859
 ;;21,"43353-0050-68 ")
 ;;860
 ;;21,"43353-0050-70 ")
 ;;861
 ;;21,"43353-0050-78 ")
 ;;862
 ;;21,"43353-0089-30 ")
 ;;668
 ;;21,"43353-0089-60 ")
 ;;669
 ;;21,"43353-0142-30 ")
 ;;603
 ;;21,"43353-0142-40 ")
 ;;604
 ;;21,"43353-0142-45 ")
 ;;605
 ;;21,"43353-0142-53 ")
 ;;606
 ;;21,"43353-0142-60 ")
 ;;607
 ;;21,"43353-0491-30 ")
 ;;1020
 ;;21,"43353-0492-30 ")
 ;;644
 ;;21,"43353-0492-60 ")
 ;;645
 ;;21,"43353-0493-30 ")
 ;;379
 ;;21,"43353-0493-60 ")
 ;;380
 ;;21,"43353-0494-30 ")
 ;;969
 ;;21,"43353-0578-30 ")
 ;;1048
 ;;21,"43353-0579-30 ")
 ;;1005
 ;;21,"43353-0584-30 ")
 ;;416
 ;;21,"43353-0584-60 ")
 ;;417
 ;;21,"43353-0587-30 ")
 ;;948
 ;;21,"43683-0117-30 ")
 ;;869
 ;;21,"43683-0118-30 ")
 ;;676
 ;;21,"49999-0093-30 ")
 ;;802
 ;;21,"49999-0411-30 ")
 ;;571
 ;;21,"49999-0576-00 ")
 ;;863
 ;;21,"49999-0576-10 ")
 ;;864
 ;;21,"49999-0576-20 ")
 ;;865
 ;;21,"49999-0576-30 ")
 ;;866
 ;;21,"49999-0576-60 ")
 ;;867
 ;;21,"49999-0576-90 ")
 ;;868
 ;;21,"49999-0829-00 ")
 ;;1006
 ;;21,"49999-0923-10 ")
 ;;727
 ;;21,"49999-0923-30 ")
 ;;728
 ;;21,"49999-0923-60 ")
 ;;729
 ;;21,"49999-0923-90 ")
 ;;730
 ;;21,"50222-0342-08 ")
 ;;332
 ;;21,"50222-0342-53 ")
 ;;333
 ;;21,"51138-0054-30 ")
 ;;418
 ;;21,"51138-0055-30 ")
 ;;489
 ;;21,"51138-0056-30 ")
 ;;608
 ;;21,"51138-0057-30 ")
 ;;671
 ;;21,"51138-0058-30 ")
 ;;736
 ;;21,"51138-0059-30 ")
 ;;850
 ;;21,"51138-0060-30 ")
 ;;946
 ;;21,"51138-0061-30 ")
 ;;1004
 ;;21,"51138-0062-30 ")
 ;;1046
 ;;21,"51138-0179-30 ")
 ;;419
 ;;21,"51138-0180-30 ")
 ;;487
 ;;21,"51138-0180-60 ")
 ;;488
 ;;21,"51138-0181-30 ")
 ;;609
 ;;21,"51138-0182-30 ")
 ;;670
 ;;21,"51138-0183-30 ")
 ;;737
 ;;21,"51138-0184-30 ")
 ;;849
 ;;21,"51138-0185-30 ")
 ;;947
 ;;21,"51138-0186-30 ")
 ;;1003
 ;;21,"51138-0187-30 ")
 ;;1047
 ;;21,"51138-0195-30 ")
 ;;412
 ;;21,"51138-0196-30 ")
 ;;484
 ;;21,"51138-0196-60 ")
 ;;485
 ;;21,"51138-0197-30 ")
 ;;599
 ;;21,"51138-0198-30 ")
 ;;675
 ;;21,"51138-0199-30 ")
 ;;732
 ;;21,"51138-0200-30 ")
 ;;847
 ;;21,"51138-0201-30 ")
 ;;943
 ;;21,"51138-0202-30 ")
 ;;1002
 ;;21,"51138-0203-30 ")
 ;;1039
 ;;21,"51138-0482-10 ")
 ;;377
 ;;21,"51138-0482-30 ")
 ;;378
 ;;21,"51138-0483-30 ")
 ;;467
 ;;21,"51138-0484-10 ")
 ;;568
 ;;21,"51138-0484-30 ")
 ;;569
 ;;21,"51138-0484-45 ")
 ;;570
 ;;21,"51138-0485-10 ")
 ;;642
 ;;21,"51138-0485-30 ")
 ;;643
 ;;21,"51138-0486-10 ")
 ;;699
 ;;21,"51138-0486-30 ")
 ;;700
 ;;21,"51138-0487-10 ")
 ;;797
 ;;21,"51138-0487-20 ")
 ;;798
 ;;21,"51138-0487-30 ")
 ;;799
 ;;21,"51138-0487-75 ")
 ;;800
 ;;21,"51138-0488-10 ")
 ;;929
 ;;21,"51138-0488-30 ")
 ;;930
 ;;21,"51138-0489-30 ")
 ;;970
 ;;21,"51138-0490-10 ")
 ;;1021
 ;;21,"51138-0490-30 ")
 ;;1022
 ;;21,"51672-4027-01 ")
 ;;413
 ;;21,"51672-4027-03 ")
 ;;414
 ;;21,"51672-4027-07 ")
 ;;415
 ;;21,"51672-4028-01 ")
 ;;481
 ;;21,"51672-4028-03 ")
 ;;482
 ;;21,"51672-4028-07 ")
 ;;483
 ;;21,"51672-4029-01 ")
 ;;600
 ;;21,"51672-4029-03 ")
 ;;601
 ;;21,"51672-4029-07 ")
 ;;602
 ;;21,"51672-4030-01 ")
 ;;672
 ;;21,"51672-4030-03 ")
 ;;673
 ;;21,"51672-4030-07 ")
 ;;674
 ;;21,"51672-4031-01 ")
 ;;733
 ;;21,"51672-4031-03 ")
 ;;734
 ;;21,"51672-4031-07 ")
 ;;735
 ;;21,"51672-4032-01 ")
 ;;844
 ;;21,"51672-4032-03 ")
 ;;845
 ;;21,"51672-4032-07 ")
 ;;846
 ;;21,"51672-4033-01 ")
 ;;944
 ;;21,"51672-4033-03 ")
 ;;945
 ;;21,"51672-4034-01 ")
 ;;1000
 ;;21,"51672-4034-03 ")
 ;;1001
 ;;21,"51672-4035-01 ")
 ;;1044
 ;;21,"51672-4035-03 ")
 ;;1045
 ;;21,"52533-0104-70 ")
 ;;7
 ;;21,"52959-0924-30 ")
 ;;411
 ;;21,"52959-0925-30 ")
 ;;486
 ;;21,"52959-0926-30 ")
 ;;848
 ;;21,"53217-0001-00 ")
 ;;1040
 ;;21,"53217-0001-30 ")
 ;;1041
 ;;21,"53217-0001-60 ")
 ;;1042
 ;;21,"53217-0001-90 ")
 ;;1043
 ;;21,"53217-0018-30 ")
 ;;997
 ;;21,"53217-0018-60 ")
 ;;998
 ;;21,"53217-0018-90 ")
 ;;999
 ;;21,"54569-0158-00 ")
 ;;471
 ;;21,"54569-0159-00 ")
 ;;801
 ;;21,"54569-4443-00 ")
 ;;381
 ;;21,"54569-4934-00 ")
 ;;841
 ;;21,"54569-4934-01 ")
 ;;842
 ;;21,"54569-4934-02 ")
 ;;843
 ;;21,"54569-5868-00 ")
 ;;598
 ;;21,"54569-5869-00 ")
 ;;731
 ;;21,"54569-6224-00 ")
 ;;507
 ;;21,"54569-6225-00 ")
 ;;410
 ;;21,"54569-6312-00 ")
 ;;942
 ;;21,"54569-6313-00 ")
 ;;995
 ;;21,"54569-6313-01 ")
 ;;996
 ;;21,"54569-6394-00 ")
 ;;677
 ;;21,"54569-6427-00 ")
 ;;1038
 ;;21,"54868-0822-00 ")
 ;;480
 ;;21,"54868-0825-00 ")
 ;;703
 ;;21,"54868-1216-00 ")
 ;;933
 ;;21,"54868-1259-00 ")
 ;;790
 ;;21,"54868-1259-01 ")
 ;;791
 ;;21,"54868-1259-02 ")
 ;;792
 ;;21,"54868-1259-03 ")
 ;;793
 ;;21,"54868-1259-05 ")
 ;;794
 ;;21,"54868-1259-06 ")
 ;;795
 ;;21,"54868-1259-07 ")
 ;;796
 ;;21,"54868-2128-00 ")
 ;;382
 ;;21,"54868-2128-02 ")
 ;;383
 ;;21,"54868-2128-03 ")
 ;;384
 ;;21,"54868-2129-00 ")
 ;;468
 ;;21,"54868-2129-01 ")
 ;;469
 ;;21,"54868-2129-02 ")
 ;;470
 ;;21,"54868-2154-00 ")
 ;;572
 ;;21,"54868-2154-01 ")
 ;;573
 ;;21,"54868-2154-02 ")
 ;;574
 ;;21,"54868-2154-03 ")
 ;;575
 ;;21,"54868-2252-01 ")
 ;;971
 ;;21,"54868-2454-01 ")
 ;;1023
 ;;21,"54868-2454-02 ")
 ;;1024
 ;;21,"54868-3399-00 ")
 ;;701
 ;;21,"54868-3399-01 ")
 ;;702
 ;;21,"54868-4063-00 ")
 ;;640
 ;;21,"54868-4063-01 ")
 ;;641
 ;;21,"54868-4286-00 ")
 ;;816
 ;;21,"54868-4286-01 ")
 ;;817
 ;;21,"54868-4286-02 ")
 ;;818
 ;;21,"54868-4286-03 ")
 ;;819
 ;;21,"54868-4286-04 ")
 ;;820
 ;;21,"54868-4286-05 ")
 ;;821
 ;;21,"54868-4349-00 ")
 ;;422
 ;;21,"54868-4349-01 ")
 ;;423
 ;;21,"54868-4349-02 ")
 ;;424
 ;;21,"54868-4349-03 ")
 ;;425
 ;;21,"54868-4349-05 ")
 ;;426
 ;;21,"54868-4400-00 ")
 ;;611
 ;;21,"54868-4400-01 ")
 ;;612
 ;;21,"54868-4400-02 ")
 ;;613
 ;;21,"54868-4400-03 ")
 ;;614
 ;;21,"54868-4400-04 ")
 ;;615
 ;;21,"54868-4402-00 ")
 ;;739
 ;;21,"54868-4402-01 ")
 ;;740
 ;;21,"54868-4402-02 ")
 ;;741
 ;;21,"54868-4402-03 ")
 ;;742
 ;;21,"54868-4422-00 ")
 ;;501
 ;;21,"54868-4422-01 ")
 ;;502
 ;;21,"54868-4422-02 ")
 ;;503
 ;;21,"54868-4422-03 ")
 ;;504
 ;;21,"54868-4422-04 ")
 ;;505
 ;;21,"54868-4422-05 ")
 ;;506
 ;;21,"54868-4871-00 ")
 ;;655
 ;;21,"54868-4871-01 ")
 ;;656
 ;;21,"54868-4871-02 ")
 ;;657
 ;;21,"54868-4871-03 ")
 ;;658
 ;;21,"54868-4873-00 ")
 ;;949
 ;;21,"54868-4873-01 ")
 ;;950
 ;;21,"54868-4873-03 ")
 ;;951
 ;;21,"54868-4873-04 ")
 ;;952
 ;;21,"54868-4950-00 ")
 ;;1007
 ;;21,"54868-4950-02 ")
 ;;1008
 ;;21,"54868-4950-03 ")
 ;;968
 ;;21,"54868-5112-00 ")
 ;;282
 ;;21,"54868-5112-01 ")
 ;;283
 ;;21,"54868-5207-00 ")
 ;;811
 ;;21,"54868-5207-01 ")
 ;;812
 ;;21,"54868-5255-00 ")
 ;;931
 ;;21,"54868-5255-01 ")
 ;;932
 ;;21,"54868-5258-00 ")
 ;;1057
 ;;21,"54868-5425-00 ")
 ;;654
 ;;21,"54868-5440-00 ")
 ;;252
 ;;21,"54868-5440-01 ")
 ;;253
 ;;21,"54868-5501-00 ")
 ;;354
 ;;21,"54868-5587-00 ")
 ;;267
 ;;21,"54868-5587-01 ")
 ;;268
 ;;21,"54868-5835-00 ")
 ;;297
 ;;21,"54868-5837-00 ")
 ;;310
 ;;21,"55045-2880-01 ")
 ;;421
 ;;21,"55045-2881-08 ")
 ;;813
 ;;21,"55045-2902-08 ")
 ;;508
 ;;21,"55048-0856-30 ")
 ;;420
 ;;21,"55048-0857-30 ")
 ;;610
 ;;21,"55048-0858-30 ")
 ;;738
 ;;21,"55048-0859-30 ")
 ;;814
 ;;21,"55048-0861-30 ")
 ;;509
 ;;21,"55048-0880-30 ")
 ;;815
 ;;21,"55111-0678-02 ")
 ;;339
 ;;21,"55111-0678-10 ")
 ;;340
 ;;21,"55111-0678-11 ")
 ;;334
 ;;21,"55111-0679-02 ")
 ;;349
 ;;21,"55111-0679-10 ")
 ;;350
 ;;21,"55111-0679-11 ")
 ;;343
 ;;21,"55111-0680-02 ")
 ;;360
 ;;21,"55111-0680-10 ")
 ;;361
 ;;21,"55111-0680-11 ")
 ;;353
 ;;21,"55111-0681-02 ")
 ;;370
 ;;21,"55111-0681-10 ")
 ;;371
 ;;21,"55111-0681-11 ")
 ;;364
 ;;21,"55289-0286-30 ")
 ;;767
 ;;21,"55289-0286-50 ")
 ;;768
 ;;21,"55289-0340-30 ")
 ;;430
 ;;21,"55289-0773-14 ")
 ;;836
 ;;21,"55289-0773-30 ")
 ;;837
 ;;21,"55289-0773-60 ")
 ;;838
 ;;21,"55289-0773-90 ")
 ;;839
 ;;21,"55700-0005-30 ")
 ;;956
 ;;21,"55700-0005-60 ")
 ;;957
 ;;21,"55700-0005-90 ")
 ;;958
 ;;21,"58016-0083-00 ")
 ;;746
 ;;21,"58016-0083-30 ")
 ;;747
 ;;21,"58016-0083-60 ")
 ;;748
 ;;21,"58016-0083-90 ")
 ;;749
 ;;21,"58016-0697-00 ")
 ;;1052
 ;;21,"58016-0697-30 ")
 ;;1053
 ;;21,"58016-0697-60 ")
 ;;1054
 ;;21,"58016-0697-90 ")
 ;;1055
 ;;21,"58016-4872-01 ")
 ;;254
 ;;21,"58118-4027-03 ")
 ;;427
 ;;21,"58118-4027-06 ")
 ;;428
 ;;21,"58118-4027-09 ")
 ;;429
 ;;21,"58118-4028-03 ")
 ;;500
 ;;21,"58118-4029-03 ")
 ;;616
 ;;21,"58118-4029-06 ")
 ;;617
 ;;21,"58118-4029-09 ")
 ;;618
 ;;21,"58118-4030-03 ")
 ;;665
 ;;21,"58118-4030-06 ")
 ;;666
 ;;21,"58118-4030-09 ")
 ;;667
 ;;21,"58118-4031-03 ")
 ;;743
 ;;21,"58118-4031-06 ")
 ;;744
 ;;21,"58118-4031-09 ")
 ;;745
 ;;21,"58118-4032-03 ")
 ;;840
 ;;21,"58118-4033-03 ")
 ;;953
 ;;21,"58118-4033-06 ")
 ;;954
 ;;21,"58118-4033-09 ")
 ;;955
 ;;21,"58118-4034-03 ")
 ;;1014
 ;;21,"58118-4034-06 ")
 ;;1015
 ;;21,"58118-4034-09 ")
 ;;1016
 ;;21,"58118-4035-03 ")
 ;;1049
 ;;21,"58118-4035-06 ")
 ;;1050
 ;;21,"58118-4035-09 ")
 ;;1051
 ;;21,"58517-0360-30 ")
 ;;882
 ;;21,"58864-0030-30 ")
 ;;454
 ;;21,"58864-0035-30 ")
 ;;637
 ;;21,"58864-0223-14 ")
 ;;765
 ;;21,"58864-0223-30 ")
 ;;766
 ;;21,"58864-0301-14 ")
 ;;453
 ;;21,"58864-0357-15 ")
 ;;374
 ;;21,"58864-0698-14 ")
 ;;883
 ;;21,"58864-0698-30 ")
 ;;884
 ;;21,"58864-0773-15 ")
 ;;446
 ;;21,"58864-0773-30 ")
 ;;447
 ;;21,"58864-0879-30 ")
 ;;529
 ;;21,"60429-0784-01 ")
 ;;431
 ;;21,"60429-0784-10 ")
 ;;432
 ;;21,"60429-0784-15 ")
 ;;433
 ;;21,"60429-0784-30 ")
 ;;434
 ;;21,"60429-0784-45 ")
 ;;435
 ;;21,"60429-0784-77 ")
 ;;436
 ;;21,"60429-0785-01 ")
 ;;490
 ;;21,"60429-0785-10 ")
 ;;491
 ;;21,"60429-0785-15 ")
 ;;492
 ;;21,"60429-0785-30 ")
 ;;493
 ;;21,"60429-0785-35 ")
 ;;494
 ;;21,"60429-0785-40 ")
 ;;495
 ;;21,"60429-0785-45 ")
 ;;496
 ;;21,"60429-0785-60 ")
 ;;497
 ;;21,"60429-0785-77 ")
 ;;498
 ;;21,"60429-0785-90 ")
 ;;499
 ;;21,"60429-0786-01 ")
 ;;619
 ;;21,"60429-0786-10 ")
 ;;620
 ;;21,"60429-0786-15 ")
 ;;621
 ;;21,"60429-0786-30 ")
 ;;622
 ;;21,"60429-0786-45 ")
 ;;623
 ;;21,"60429-0786-77 ")
 ;;624
 ;;21,"60429-0787-01 ")
 ;;659
 ;;21,"60429-0787-10 ")
 ;;660
 ;;21,"60429-0787-15 ")
 ;;661
 ;;21,"60429-0787-30 ")
 ;;662
 ;;21,"60429-0787-45 ")
 ;;663
 ;;21,"60429-0787-77 ")
 ;;664
 ;;21,"60429-0788-01 ")
 ;;750
 ;;21,"60429-0788-10 ")
 ;;751
 ;;21,"60429-0788-15 ")
 ;;752
 ;;21,"60429-0788-30 ")
 ;;753
 ;;21,"60429-0788-45 ")
 ;;754
 ;;21,"60429-0788-77 ")
 ;;755
 ;;21,"60429-0789-01 ")
 ;;822
 ;;21,"60429-0789-10 ")
 ;;823
 ;;21,"60429-0789-15 ")
 ;;824
 ;;21,"60429-0789-20 ")
 ;;825
 ;;21,"60429-0789-25 ")
 ;;826
 ;;21,"60429-0789-30 ")
 ;;827
 ;;21,"60429-0789-35 ")
 ;;828
 ;;21,"60429-0789-40 ")
 ;;829
 ;;21,"60429-0789-45 ")
 ;;830
 ;;21,"60429-0789-50 ")
 ;;831
 ;;21,"60429-0789-60 ")
 ;;832
 ;;21,"60429-0789-75 ")
 ;;833
 ;;21,"60429-0789-77 ")
 ;;834
 ;;21,"60429-0789-90 ")
 ;;835
 ;;21,"60429-0790-01 ")
 ;;959
 ;;21,"60429-0790-10 ")
 ;;960
 ;;21,"60429-0790-15 ")
 ;;961
 ;;21,"60429-0790-30 ")
 ;;962
 ;;21,"60429-0790-45 ")
 ;;963
 ;;21,"60429-0790-77 ")
 ;;964
 ;;21,"60429-0791-01 ")
 ;;1009
 ;;21,"60429-0791-15 ")
 ;;1010
 ;;21,"60429-0791-30 ")
 ;;1011
 ;;21,"60429-0791-45 ")
 ;;1012
 ;;21,"60429-0791-77 ")
 ;;1013