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

BGPM5BEC.m

Go to the documentation of this file.
BGPM5BEC ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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)
 ;;9002226.02101,"1044,68258708103 ",.01)
 ;;68258708103
 ;;9002226.02101,"1044,68258708103 ",.02)
 ;;68258708103
 ;;9002226.02101,"1044,68258708509 ",.01)
 ;;68258708509
 ;;9002226.02101,"1044,68258708509 ",.02)
 ;;68258708509
 ;;9002226.02101,"1044,68258708606 ",.01)
 ;;68258708606
 ;;9002226.02101,"1044,68258708606 ",.02)
 ;;68258708606
 ;;9002226.02101,"1044,68258710103 ",.01)
 ;;68258710103
 ;;9002226.02101,"1044,68258710103 ",.02)
 ;;68258710103
 ;;9002226.02101,"1044,68258710106 ",.01)
 ;;68258710106
 ;;9002226.02101,"1044,68258710106 ",.02)
 ;;68258710106
 ;;9002226.02101,"1044,68258710902 ",.01)
 ;;68258710902
 ;;9002226.02101,"1044,68258710902 ",.02)
 ;;68258710902
 ;;9002226.02101,"1044,68258710903 ",.01)
 ;;68258710903
 ;;9002226.02101,"1044,68258710903 ",.02)
 ;;68258710903
 ;;9002226.02101,"1044,68258710909 ",.01)
 ;;68258710909
 ;;9002226.02101,"1044,68258710909 ",.02)
 ;;68258710909
 ;;9002226.02101,"1044,68258711501 ",.01)
 ;;68258711501
 ;;9002226.02101,"1044,68258711501 ",.02)
 ;;68258711501
 ;;9002226.02101,"1044,68258711601 ",.01)
 ;;68258711601
 ;;9002226.02101,"1044,68258711601 ",.02)
 ;;68258711601
 ;;9002226.02101,"1044,68258711603 ",.01)
 ;;68258711603
 ;;9002226.02101,"1044,68258711603 ",.02)
 ;;68258711603
 ;;9002226.02101,"1044,68258711703 ",.01)
 ;;68258711703
 ;;9002226.02101,"1044,68258711703 ",.02)
 ;;68258711703
 ;;9002226.02101,"1044,68382000101 ",.01)
 ;;68382000101
 ;;9002226.02101,"1044,68382000101 ",.02)
 ;;68382000101
 ;;9002226.02101,"1044,68382000105 ",.01)
 ;;68382000105
 ;;9002226.02101,"1044,68382000105 ",.02)
 ;;68382000105
 ;;9002226.02101,"1044,68382000106 ",.01)
 ;;68382000106
 ;;9002226.02101,"1044,68382000106 ",.02)
 ;;68382000106
 ;;9002226.02101,"1044,68382000110 ",.01)
 ;;68382000110
 ;;9002226.02101,"1044,68382000110 ",.02)
 ;;68382000110
 ;;9002226.02101,"1044,68382000116 ",.01)
 ;;68382000116
 ;;9002226.02101,"1044,68382000116 ",.02)
 ;;68382000116
 ;;9002226.02101,"1044,68382001801 ",.01)
 ;;68382001801
 ;;9002226.02101,"1044,68382001801 ",.02)
 ;;68382001801
 ;;9002226.02101,"1044,68382001805 ",.01)
 ;;68382001805
 ;;9002226.02101,"1044,68382001805 ",.02)
 ;;68382001805
 ;;9002226.02101,"1044,68382001806 ",.01)
 ;;68382001806
 ;;9002226.02101,"1044,68382001806 ",.02)
 ;;68382001806
 ;;9002226.02101,"1044,68382001810 ",.01)
 ;;68382001810
 ;;9002226.02101,"1044,68382001810 ",.02)
 ;;68382001810
 ;;9002226.02101,"1044,68382001814 ",.01)
 ;;68382001814
 ;;9002226.02101,"1044,68382001814 ",.02)
 ;;68382001814
 ;;9002226.02101,"1044,68382001816 ",.01)
 ;;68382001816
 ;;9002226.02101,"1044,68382001816 ",.02)
 ;;68382001816
 ;;9002226.02101,"1044,68382001901 ",.01)
 ;;68382001901
 ;;9002226.02101,"1044,68382001901 ",.02)
 ;;68382001901
 ;;9002226.02101,"1044,68382001905 ",.01)
 ;;68382001905
 ;;9002226.02101,"1044,68382001905 ",.02)
 ;;68382001905
 ;;9002226.02101,"1044,68382001906 ",.01)
 ;;68382001906
 ;;9002226.02101,"1044,68382001906 ",.02)
 ;;68382001906
 ;;9002226.02101,"1044,68382001910 ",.01)
 ;;68382001910
 ;;9002226.02101,"1044,68382001910 ",.02)
 ;;68382001910
 ;;9002226.02101,"1044,68382001914 ",.01)
 ;;68382001914
 ;;9002226.02101,"1044,68382001914 ",.02)
 ;;68382001914
 ;;9002226.02101,"1044,68382001916 ",.01)
 ;;68382001916
 ;;9002226.02101,"1044,68382001916 ",.02)
 ;;68382001916
 ;;9002226.02101,"1044,68382002001 ",.01)
 ;;68382002001
 ;;9002226.02101,"1044,68382002001 ",.02)
 ;;68382002001
 ;;9002226.02101,"1044,68382002005 ",.01)
 ;;68382002005
 ;;9002226.02101,"1044,68382002005 ",.02)
 ;;68382002005
 ;;9002226.02101,"1044,68382002006 ",.01)
 ;;68382002006
 ;;9002226.02101,"1044,68382002006 ",.02)
 ;;68382002006
 ;;9002226.02101,"1044,68382002010 ",.01)
 ;;68382002010
 ;;9002226.02101,"1044,68382002010 ",.02)
 ;;68382002010
 ;;9002226.02101,"1044,68382002014 ",.01)
 ;;68382002014
 ;;9002226.02101,"1044,68382002014 ",.02)
 ;;68382002014
 ;;9002226.02101,"1044,68382002016 ",.01)
 ;;68382002016
 ;;9002226.02101,"1044,68382002016 ",.02)
 ;;68382002016
 ;;9002226.02101,"1044,68382002101 ",.01)
 ;;68382002101
 ;;9002226.02101,"1044,68382002101 ",.02)
 ;;68382002101
 ;;9002226.02101,"1044,68382002105 ",.01)
 ;;68382002105
 ;;9002226.02101,"1044,68382002105 ",.02)
 ;;68382002105
 ;;9002226.02101,"1044,68382002106 ",.01)
 ;;68382002106
 ;;9002226.02101,"1044,68382002106 ",.02)
 ;;68382002106
 ;;9002226.02101,"1044,68382002110 ",.01)
 ;;68382002110
 ;;9002226.02101,"1044,68382002110 ",.02)
 ;;68382002110
 ;;9002226.02101,"1044,68382002114 ",.01)
 ;;68382002114
 ;;9002226.02101,"1044,68382002114 ",.02)
 ;;68382002114
 ;;9002226.02101,"1044,68382002116 ",.01)
 ;;68382002116
 ;;9002226.02101,"1044,68382002116 ",.02)
 ;;68382002116
 ;;9002226.02101,"1044,68382003401 ",.01)
 ;;68382003401
 ;;9002226.02101,"1044,68382003401 ",.02)
 ;;68382003401
 ;;9002226.02101,"1044,68382003405 ",.01)
 ;;68382003405
 ;;9002226.02101,"1044,68382003405 ",.02)
 ;;68382003405
 ;;9002226.02101,"1044,68382003406 ",.01)
 ;;68382003406
 ;;9002226.02101,"1044,68382003406 ",.02)
 ;;68382003406
 ;;9002226.02101,"1044,68382003410 ",.01)
 ;;68382003410
 ;;9002226.02101,"1044,68382003410 ",.02)
 ;;68382003410
 ;;9002226.02101,"1044,68382003416 ",.01)
 ;;68382003416
 ;;9002226.02101,"1044,68382003416 ",.02)
 ;;68382003416
 ;;9002226.02101,"1044,68382003501 ",.01)
 ;;68382003501
 ;;9002226.02101,"1044,68382003501 ",.02)
 ;;68382003501
 ;;9002226.02101,"1044,68382003505 ",.01)
 ;;68382003505
 ;;9002226.02101,"1044,68382003505 ",.02)
 ;;68382003505
 ;;9002226.02101,"1044,68382003506 ",.01)
 ;;68382003506
 ;;9002226.02101,"1044,68382003506 ",.02)
 ;;68382003506
 ;;9002226.02101,"1044,68382003510 ",.01)
 ;;68382003510
 ;;9002226.02101,"1044,68382003510 ",.02)
 ;;68382003510
 ;;9002226.02101,"1044,68382003516 ",.01)
 ;;68382003516
 ;;9002226.02101,"1044,68382003516 ",.02)
 ;;68382003516
 ;;9002226.02101,"1044,68382003601 ",.01)
 ;;68382003601
 ;;9002226.02101,"1044,68382003601 ",.02)
 ;;68382003601
 ;;9002226.02101,"1044,68382003605 ",.01)
 ;;68382003605
 ;;9002226.02101,"1044,68382003605 ",.02)
 ;;68382003605
 ;;9002226.02101,"1044,68382003606 ",.01)
 ;;68382003606
 ;;9002226.02101,"1044,68382003606 ",.02)
 ;;68382003606
 ;;9002226.02101,"1044,68382003610 ",.01)
 ;;68382003610
 ;;9002226.02101,"1044,68382003610 ",.02)
 ;;68382003610
 ;;9002226.02101,"1044,68382003616 ",.01)
 ;;68382003616
 ;;9002226.02101,"1044,68382003616 ",.02)
 ;;68382003616
 ;;9002226.02101,"1044,68382004301 ",.01)
 ;;68382004301
 ;;9002226.02101,"1044,68382004301 ",.02)
 ;;68382004301
 ;;9002226.02101,"1044,68382004305 ",.01)
 ;;68382004305
 ;;9002226.02101,"1044,68382004305 ",.02)
 ;;68382004305
 ;;9002226.02101,"1044,68382004306 ",.01)
 ;;68382004306
 ;;9002226.02101,"1044,68382004306 ",.02)
 ;;68382004306
 ;;9002226.02101,"1044,68382004310 ",.01)
 ;;68382004310
 ;;9002226.02101,"1044,68382004310 ",.02)
 ;;68382004310
 ;;9002226.02101,"1044,68382004314 ",.01)
 ;;68382004314
 ;;9002226.02101,"1044,68382004314 ",.02)
 ;;68382004314
 ;;9002226.02101,"1044,68382004316 ",.01)
 ;;68382004316
 ;;9002226.02101,"1044,68382004316 ",.02)
 ;;68382004316
 ;;9002226.02101,"1044,68382004318 ",.01)
 ;;68382004318
 ;;9002226.02101,"1044,68382004318 ",.02)
 ;;68382004318
 ;;9002226.02101,"1044,68382004401 ",.01)
 ;;68382004401
 ;;9002226.02101,"1044,68382004401 ",.02)
 ;;68382004401
 ;;9002226.02101,"1044,68382004405 ",.01)
 ;;68382004405
 ;;9002226.02101,"1044,68382004405 ",.02)
 ;;68382004405
 ;;9002226.02101,"1044,68382004406 ",.01)
 ;;68382004406
 ;;9002226.02101,"1044,68382004406 ",.02)
 ;;68382004406
 ;;9002226.02101,"1044,68382004410 ",.01)
 ;;68382004410
 ;;9002226.02101,"1044,68382004410 ",.02)
 ;;68382004410
 ;;9002226.02101,"1044,68382004414 ",.01)
 ;;68382004414
 ;;9002226.02101,"1044,68382004414 ",.02)
 ;;68382004414
 ;;9002226.02101,"1044,68382004416 ",.01)
 ;;68382004416
 ;;9002226.02101,"1044,68382004416 ",.02)
 ;;68382004416
 ;;9002226.02101,"1044,68382004501 ",.01)
 ;;68382004501
 ;;9002226.02101,"1044,68382004501 ",.02)
 ;;68382004501
 ;;9002226.02101,"1044,68382004506 ",.01)
 ;;68382004506
 ;;9002226.02101,"1044,68382004506 ",.02)
 ;;68382004506
 ;;9002226.02101,"1044,68382004514 ",.01)
 ;;68382004514
 ;;9002226.02101,"1044,68382004514 ",.02)
 ;;68382004514
 ;;9002226.02101,"1044,68382004516 ",.01)
 ;;68382004516
 ;;9002226.02101,"1044,68382004516 ",.02)
 ;;68382004516
 ;;9002226.02101,"1044,68382004540 ",.01)
 ;;68382004540
 ;;9002226.02101,"1044,68382004540 ",.02)
 ;;68382004540
 ;;9002226.02101,"1044,68382009701 ",.01)
 ;;68382009701
 ;;9002226.02101,"1044,68382009701 ",.02)
 ;;68382009701
 ;;9002226.02101,"1044,68382009705 ",.01)
 ;;68382009705
 ;;9002226.02101,"1044,68382009705 ",.02)
 ;;68382009705
 ;;9002226.02101,"1044,68382009706 ",.01)
 ;;68382009706
 ;;9002226.02101,"1044,68382009706 ",.02)
 ;;68382009706
 ;;9002226.02101,"1044,68382009710 ",.01)
 ;;68382009710
 ;;9002226.02101,"1044,68382009710 ",.02)
 ;;68382009710
 ;;9002226.02101,"1044,68382009716 ",.01)
 ;;68382009716
 ;;9002226.02101,"1044,68382009716 ",.02)
 ;;68382009716
 ;;9002226.02101,"1044,68382009801 ",.01)
 ;;68382009801
 ;;9002226.02101,"1044,68382009801 ",.02)
 ;;68382009801
 ;;9002226.02101,"1044,68382009805 ",.01)
 ;;68382009805
 ;;9002226.02101,"1044,68382009805 ",.02)
 ;;68382009805
 ;;9002226.02101,"1044,68382009806 ",.01)
 ;;68382009806
 ;;9002226.02101,"1044,68382009806 ",.02)
 ;;68382009806
 ;;9002226.02101,"1044,68382009810 ",.01)
 ;;68382009810
 ;;9002226.02101,"1044,68382009810 ",.02)
 ;;68382009810
 ;;9002226.02101,"1044,68382009816 ",.01)
 ;;68382009816
 ;;9002226.02101,"1044,68382009816 ",.02)
 ;;68382009816
 ;;9002226.02101,"1044,68382009901 ",.01)
 ;;68382009901
 ;;9002226.02101,"1044,68382009901 ",.02)
 ;;68382009901
 ;;9002226.02101,"1044,68382009905 ",.01)
 ;;68382009905
 ;;9002226.02101,"1044,68382009905 ",.02)
 ;;68382009905
 ;;9002226.02101,"1044,68382009906 ",.01)
 ;;68382009906
 ;;9002226.02101,"1044,68382009906 ",.02)
 ;;68382009906
 ;;9002226.02101,"1044,68382009910 ",.01)
 ;;68382009910
 ;;9002226.02101,"1044,68382009910 ",.02)
 ;;68382009910
 ;;9002226.02101,"1044,68382009916 ",.01)
 ;;68382009916
 ;;9002226.02101,"1044,68382009916 ",.02)
 ;;68382009916
 ;;9002226.02101,"1044,68382010006 ",.01)
 ;;68382010006
 ;;9002226.02101,"1044,68382010006 ",.02)
 ;;68382010006
 ;;9002226.02101,"1044,68382010101 ",.01)
 ;;68382010101
 ;;9002226.02101,"1044,68382010101 ",.02)
 ;;68382010101
 ;;9002226.02101,"1044,68382010105 ",.01)
 ;;68382010105
 ;;9002226.02101,"1044,68382010105 ",.02)
 ;;68382010105
 ;;9002226.02101,"1044,68382010106 ",.01)
 ;;68382010106
 ;;9002226.02101,"1044,68382010106 ",.02)
 ;;68382010106
 ;;9002226.02101,"1044,68382010110 ",.01)
 ;;68382010110
 ;;9002226.02101,"1044,68382010110 ",.02)
 ;;68382010110
 ;;9002226.02101,"1044,68382010114 ",.01)
 ;;68382010114
 ;;9002226.02101,"1044,68382010114 ",.02)
 ;;68382010114
 ;;9002226.02101,"1044,68382010116 ",.01)
 ;;68382010116
 ;;9002226.02101,"1044,68382010116 ",.02)
 ;;68382010116
 ;;9002226.02101,"1044,68382010118 ",.01)
 ;;68382010118
 ;;9002226.02101,"1044,68382010118 ",.02)
 ;;68382010118
 ;;9002226.02101,"1044,68387011230 ",.01)
 ;;68387011230
 ;;9002226.02101,"1044,68387011230 ",.02)
 ;;68387011230
 ;;9002226.02101,"1044,68387011930 ",.01)
 ;;68387011930
 ;;9002226.02101,"1044,68387011930 ",.02)
 ;;68387011930
 ;;9002226.02101,"1044,68387012030 ",.01)
 ;;68387012030
 ;;9002226.02101,"1044,68387012030 ",.02)
 ;;68387012030
 ;;9002226.02101,"1044,68387012060 ",.01)
 ;;68387012060