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

BGPM5AXJ.m

Go to the documentation of this file.
BGPM5AXJ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 30, 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,"1034,50111048202 ",.01)
 ;;50111048202
 ;;9002226.02101,"1034,50111048202 ",.02)
 ;;50111048202
 ;;9002226.02101,"1034,50111048203 ",.01)
 ;;50111048203
 ;;9002226.02101,"1034,50111048203 ",.02)
 ;;50111048203
 ;;9002226.02101,"1034,50111048301 ",.01)
 ;;50111048301
 ;;9002226.02101,"1034,50111048301 ",.02)
 ;;50111048301
 ;;9002226.02101,"1034,50111048302 ",.01)
 ;;50111048302
 ;;9002226.02101,"1034,50111048302 ",.02)
 ;;50111048302
 ;;9002226.02101,"1034,50111051801 ",.01)
 ;;50111051801
 ;;9002226.02101,"1034,50111051801 ",.02)
 ;;50111051801
 ;;9002226.02101,"1034,50383080616 ",.01)
 ;;50383080616
 ;;9002226.02101,"1034,50383080616 ",.02)
 ;;50383080616
 ;;9002226.02101,"1034,51129167001 ",.01)
 ;;51129167001
 ;;9002226.02101,"1034,51129167001 ",.02)
 ;;51129167001
 ;;9002226.02101,"1034,51129183101 ",.01)
 ;;51129183101
 ;;9002226.02101,"1034,51129183101 ",.02)
 ;;51129183101
 ;;9002226.02101,"1034,51129196401 ",.01)
 ;;51129196401
 ;;9002226.02101,"1034,51129196401 ",.02)
 ;;51129196401
 ;;9002226.02101,"1034,51129198901 ",.01)
 ;;51129198901
 ;;9002226.02101,"1034,51129198901 ",.02)
 ;;51129198901
 ;;9002226.02101,"1034,51129201601 ",.01)
 ;;51129201601
 ;;9002226.02101,"1034,51129201601 ",.02)
 ;;51129201601
 ;;9002226.02101,"1034,51129228201 ",.01)
 ;;51129228201
 ;;9002226.02101,"1034,51129228201 ",.02)
 ;;51129228201
 ;;9002226.02101,"1034,51129246501 ",.01)
 ;;51129246501
 ;;9002226.02101,"1034,51129246501 ",.02)
 ;;51129246501
 ;;9002226.02101,"1034,51129291401 ",.01)
 ;;51129291401
 ;;9002226.02101,"1034,51129291401 ",.02)
 ;;51129291401
 ;;9002226.02101,"1034,51129291402 ",.01)
 ;;51129291402
 ;;9002226.02101,"1034,51129291402 ",.02)
 ;;51129291402
 ;;9002226.02101,"1034,51129294001 ",.01)
 ;;51129294001
 ;;9002226.02101,"1034,51129294001 ",.02)
 ;;51129294001
 ;;9002226.02101,"1034,51129294002 ",.01)
 ;;51129294002
 ;;9002226.02101,"1034,51129294002 ",.02)
 ;;51129294002
 ;;9002226.02101,"1034,51129317401 ",.01)
 ;;51129317401
 ;;9002226.02101,"1034,51129317401 ",.02)
 ;;51129317401
 ;;9002226.02101,"1034,51129317402 ",.01)
 ;;51129317402
 ;;9002226.02101,"1034,51129317402 ",.02)
 ;;51129317402
 ;;9002226.02101,"1034,51129336001 ",.01)
 ;;51129336001
 ;;9002226.02101,"1034,51129336001 ",.02)
 ;;51129336001
 ;;9002226.02101,"1034,51129336002 ",.01)
 ;;51129336002
 ;;9002226.02101,"1034,51129336002 ",.02)
 ;;51129336002
 ;;9002226.02101,"1034,51129339801 ",.01)
 ;;51129339801
 ;;9002226.02101,"1034,51129339801 ",.02)
 ;;51129339801
 ;;9002226.02101,"1034,51129339802 ",.01)
 ;;51129339802
 ;;9002226.02101,"1034,51129339802 ",.02)
 ;;51129339802
 ;;9002226.02101,"1034,51129375401 ",.01)
 ;;51129375401
 ;;9002226.02101,"1034,51129375401 ",.02)
 ;;51129375401
 ;;9002226.02101,"1034,51129375402 ",.01)
 ;;51129375402
 ;;9002226.02101,"1034,51129375402 ",.02)
 ;;51129375402
 ;;9002226.02101,"1034,51129377701 ",.01)
 ;;51129377701
 ;;9002226.02101,"1034,51129377701 ",.02)
 ;;51129377701
 ;;9002226.02101,"1034,51129377702 ",.01)
 ;;51129377702
 ;;9002226.02101,"1034,51129377702 ",.02)
 ;;51129377702
 ;;9002226.02101,"1034,51129849601 ",.01)
 ;;51129849601
 ;;9002226.02101,"1034,51129849601 ",.02)
 ;;51129849601
 ;;9002226.02101,"1034,51301042016 ",.01)
 ;;51301042016
 ;;9002226.02101,"1034,51301042016 ",.02)
 ;;51301042016
 ;;9002226.02101,"1034,51301042516 ",.01)
 ;;51301042516
 ;;9002226.02101,"1034,51301042516 ",.02)
 ;;51301042516
 ;;9002226.02101,"1034,51655025624 ",.01)
 ;;51655025624
 ;;9002226.02101,"1034,51655025624 ",.02)
 ;;51655025624
 ;;9002226.02101,"1034,51655025625 ",.01)
 ;;51655025625
 ;;9002226.02101,"1034,51655025625 ",.02)
 ;;51655025625
 ;;9002226.02101,"1034,51655025676 ",.01)
 ;;51655025676
 ;;9002226.02101,"1034,51655025676 ",.02)
 ;;51655025676
 ;;9002226.02101,"1034,51655025683 ",.01)
 ;;51655025683
 ;;9002226.02101,"1034,51655025683 ",.02)
 ;;51655025683
 ;;9002226.02101,"1034,51655025724 ",.01)
 ;;51655025724
 ;;9002226.02101,"1034,51655025724 ",.02)
 ;;51655025724
 ;;9002226.02101,"1034,51655025725 ",.01)
 ;;51655025725
 ;;9002226.02101,"1034,51655025725 ",.02)
 ;;51655025725
 ;;9002226.02101,"1034,51655025750 ",.01)
 ;;51655025750
 ;;9002226.02101,"1034,51655025750 ",.02)
 ;;51655025750
 ;;9002226.02101,"1034,51655025776 ",.01)
 ;;51655025776
 ;;9002226.02101,"1034,51655025776 ",.02)
 ;;51655025776
 ;;9002226.02101,"1034,51655025783 ",.01)
 ;;51655025783
 ;;9002226.02101,"1034,51655025783 ",.02)
 ;;51655025783
 ;;9002226.02101,"1034,51655071924 ",.01)
 ;;51655071924
 ;;9002226.02101,"1034,51655071924 ",.02)
 ;;51655071924
 ;;9002226.02101,"1034,51655071951 ",.01)
 ;;51655071951
 ;;9002226.02101,"1034,51655071951 ",.02)
 ;;51655071951
 ;;9002226.02101,"1034,51655071952 ",.01)
 ;;51655071952
 ;;9002226.02101,"1034,51655071952 ",.02)
 ;;51655071952
 ;;9002226.02101,"1034,51655071953 ",.01)
 ;;51655071953
 ;;9002226.02101,"1034,51655071953 ",.02)
 ;;51655071953
 ;;9002226.02101,"1034,51655071954 ",.01)
 ;;51655071954
 ;;9002226.02101,"1034,51655071954 ",.02)
 ;;51655071954
 ;;9002226.02101,"1034,51655072024 ",.01)
 ;;51655072024
 ;;9002226.02101,"1034,51655072024 ",.02)
 ;;51655072024
 ;;9002226.02101,"1034,51655072051 ",.01)
 ;;51655072051
 ;;9002226.02101,"1034,51655072051 ",.02)
 ;;51655072051
 ;;9002226.02101,"1034,51655072052 ",.01)
 ;;51655072052
 ;;9002226.02101,"1034,51655072052 ",.02)
 ;;51655072052
 ;;9002226.02101,"1034,51655072053 ",.01)
 ;;51655072053
 ;;9002226.02101,"1034,51655072053 ",.02)
 ;;51655072053
 ;;9002226.02101,"1034,51655072054 ",.01)
 ;;51655072054
 ;;9002226.02101,"1034,51655072054 ",.02)
 ;;51655072054
 ;;9002226.02101,"1034,51991037501 ",.01)
 ;;51991037501
 ;;9002226.02101,"1034,51991037501 ",.02)
 ;;51991037501
 ;;9002226.02101,"1034,51991053601 ",.01)
 ;;51991053601
 ;;9002226.02101,"1034,51991053601 ",.02)
 ;;51991053601
 ;;9002226.02101,"1034,52584092101 ",.01)
 ;;52584092101
 ;;9002226.02101,"1034,52584092101 ",.02)
 ;;52584092101
 ;;9002226.02101,"1034,52584092201 ",.01)
 ;;52584092201
 ;;9002226.02101,"1034,52584092201 ",.02)
 ;;52584092201
 ;;9002226.02101,"1034,52959034130 ",.01)
 ;;52959034130
 ;;9002226.02101,"1034,52959034130 ",.02)
 ;;52959034130
 ;;9002226.02101,"1034,53002033015 ",.01)
 ;;53002033015
 ;;9002226.02101,"1034,53002033015 ",.02)
 ;;53002033015
 ;;9002226.02101,"1034,53002033020 ",.01)
 ;;53002033020
 ;;9002226.02101,"1034,53002033020 ",.02)
 ;;53002033020
 ;;9002226.02101,"1034,53002033030 ",.01)
 ;;53002033030
 ;;9002226.02101,"1034,53002033030 ",.02)
 ;;53002033030
 ;;9002226.02101,"1034,53002033040 ",.01)
 ;;53002033040
 ;;9002226.02101,"1034,53002033040 ",.02)
 ;;53002033040
 ;;9002226.02101,"1034,53002033050 ",.01)
 ;;53002033050
 ;;9002226.02101,"1034,53002033050 ",.02)
 ;;53002033050
 ;;9002226.02101,"1034,53002033060 ",.01)
 ;;53002033060
 ;;9002226.02101,"1034,53002033060 ",.02)
 ;;53002033060
 ;;9002226.02101,"1034,53002038497 ",.01)
 ;;53002038497
 ;;9002226.02101,"1034,53002038497 ",.02)
 ;;53002038497
 ;;9002226.02101,"1034,53808031501 ",.01)
 ;;53808031501
 ;;9002226.02101,"1034,53808031501 ",.02)
 ;;53808031501
 ;;9002226.02101,"1034,53808031601 ",.01)
 ;;53808031601
 ;;9002226.02101,"1034,53808031601 ",.02)
 ;;53808031601
 ;;9002226.02101,"1034,53978031903 ",.01)
 ;;53978031903
 ;;9002226.02101,"1034,53978031903 ",.02)
 ;;53978031903
 ;;9002226.02101,"1034,53978031909 ",.01)
 ;;53978031909
 ;;9002226.02101,"1034,53978031909 ",.02)
 ;;53978031909
 ;;9002226.02101,"1034,53978032003 ",.01)
 ;;53978032003
 ;;9002226.02101,"1034,53978032003 ",.02)
 ;;53978032003
 ;;9002226.02101,"1034,53978032009 ",.01)
 ;;53978032009
 ;;9002226.02101,"1034,53978032009 ",.02)
 ;;53978032009
 ;;9002226.02101,"1034,54383006001 ",.01)
 ;;54383006001
 ;;9002226.02101,"1034,54383006001 ",.02)
 ;;54383006001
 ;;9002226.02101,"1034,54383006002 ",.01)
 ;;54383006002
 ;;9002226.02101,"1034,54383006002 ",.02)
 ;;54383006002
 ;;9002226.02101,"1034,54383006003 ",.01)
 ;;54383006003
 ;;9002226.02101,"1034,54383006003 ",.02)
 ;;54383006003
 ;;9002226.02101,"1034,54383006004 ",.01)
 ;;54383006004
 ;;9002226.02101,"1034,54383006004 ",.02)
 ;;54383006004
 ;;9002226.02101,"1034,54383006005 ",.01)
 ;;54383006005
 ;;9002226.02101,"1034,54383006005 ",.02)
 ;;54383006005
 ;;9002226.02101,"1034,54569006501 ",.01)
 ;;54569006501
 ;;9002226.02101,"1034,54569006501 ",.02)
 ;;54569006501
 ;;9002226.02101,"1034,54569006502 ",.01)
 ;;54569006502
 ;;9002226.02101,"1034,54569006502 ",.02)
 ;;54569006502
 ;;9002226.02101,"1034,54569006505 ",.01)
 ;;54569006505
 ;;9002226.02101,"1034,54569006505 ",.02)
 ;;54569006505
 ;;9002226.02101,"1034,54569248300 ",.01)
 ;;54569248300
 ;;9002226.02101,"1034,54569248300 ",.02)
 ;;54569248300
 ;;9002226.02101,"1034,54569248301 ",.01)
 ;;54569248301
 ;;9002226.02101,"1034,54569248301 ",.02)
 ;;54569248301
 ;;9002226.02101,"1034,54569248302 ",.01)
 ;;54569248302
 ;;9002226.02101,"1034,54569248302 ",.02)
 ;;54569248302
 ;;9002226.02101,"1034,54569248303 ",.01)
 ;;54569248303
 ;;9002226.02101,"1034,54569248303 ",.02)
 ;;54569248303
 ;;9002226.02101,"1034,54569313001 ",.01)
 ;;54569313001
 ;;9002226.02101,"1034,54569313001 ",.02)
 ;;54569313001
 ;;9002226.02101,"1034,54838051380 ",.01)
 ;;54838051380
 ;;9002226.02101,"1034,54838051380 ",.02)
 ;;54838051380
 ;;9002226.02101,"1034,54838055680 ",.01)
 ;;54838055680
 ;;9002226.02101,"1034,54838055680 ",.02)
 ;;54838055680
 ;;9002226.02101,"1034,54868000400 ",.01)
 ;;54868000400
 ;;9002226.02101,"1034,54868000400 ",.02)
 ;;54868000400
 ;;9002226.02101,"1034,54868002800 ",.01)
 ;;54868002800
 ;;9002226.02101,"1034,54868002800 ",.02)
 ;;54868002800
 ;;9002226.02101,"1034,54868002801 ",.01)
 ;;54868002801
 ;;9002226.02101,"1034,54868002801 ",.02)
 ;;54868002801
 ;;9002226.02101,"1034,54868002802 ",.01)
 ;;54868002802
 ;;9002226.02101,"1034,54868002802 ",.02)
 ;;54868002802
 ;;9002226.02101,"1034,54868002803 ",.01)
 ;;54868002803
 ;;9002226.02101,"1034,54868002803 ",.02)
 ;;54868002803
 ;;9002226.02101,"1034,54868002804 ",.01)
 ;;54868002804
 ;;9002226.02101,"1034,54868002804 ",.02)
 ;;54868002804
 ;;9002226.02101,"1034,54868002805 ",.01)
 ;;54868002805
 ;;9002226.02101,"1034,54868002805 ",.02)
 ;;54868002805
 ;;9002226.02101,"1034,54868002806 ",.01)
 ;;54868002806
 ;;9002226.02101,"1034,54868002806 ",.02)
 ;;54868002806
 ;;9002226.02101,"1034,54868002900 ",.01)
 ;;54868002900
 ;;9002226.02101,"1034,54868002900 ",.02)
 ;;54868002900
 ;;9002226.02101,"1034,54868002902 ",.01)
 ;;54868002902
 ;;9002226.02101,"1034,54868002902 ",.02)
 ;;54868002902
 ;;9002226.02101,"1034,54868002903 ",.01)
 ;;54868002903
 ;;9002226.02101,"1034,54868002903 ",.02)
 ;;54868002903
 ;;9002226.02101,"1034,54868002904 ",.01)
 ;;54868002904
 ;;9002226.02101,"1034,54868002904 ",.02)
 ;;54868002904
 ;;9002226.02101,"1034,54868002905 ",.01)
 ;;54868002905
 ;;9002226.02101,"1034,54868002905 ",.02)
 ;;54868002905
 ;;9002226.02101,"1034,54868002906 ",.01)
 ;;54868002906
 ;;9002226.02101,"1034,54868002906 ",.02)
 ;;54868002906
 ;;9002226.02101,"1034,54868002907 ",.01)
 ;;54868002907
 ;;9002226.02101,"1034,54868002907 ",.02)
 ;;54868002907
 ;;9002226.02101,"1034,54868146100 ",.01)
 ;;54868146100
 ;;9002226.02101,"1034,54868146100 ",.02)
 ;;54868146100
 ;;9002226.02101,"1034,54868146101 ",.01)
 ;;54868146101
 ;;9002226.02101,"1034,54868146101 ",.02)
 ;;54868146101
 ;;9002226.02101,"1034,54868146102 ",.01)
 ;;54868146102
 ;;9002226.02101,"1034,54868146102 ",.02)
 ;;54868146102
 ;;9002226.02101,"1034,54868553100 ",.01)
 ;;54868553100