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

BGPM3ABN.m

Go to the documentation of this file.
BGPM3ABN ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"775,51660002001 ",.01)
 ;;51660002001
 ;;9002226.02101,"775,51660002001 ",.02)
 ;;51660002001
 ;;9002226.02101,"775,51660002010 ",.01)
 ;;51660002010
 ;;9002226.02101,"775,51660002010 ",.02)
 ;;51660002010
 ;;9002226.02101,"775,51660002201 ",.01)
 ;;51660002201
 ;;9002226.02101,"775,51660002201 ",.02)
 ;;51660002201
 ;;9002226.02101,"775,51660002210 ",.01)
 ;;51660002210
 ;;9002226.02101,"775,51660002210 ",.02)
 ;;51660002210
 ;;9002226.02101,"775,51672402700 ",.01)
 ;;51672402700
 ;;9002226.02101,"775,51672402700 ",.02)
 ;;51672402700
 ;;9002226.02101,"775,51672402701 ",.01)
 ;;51672402701
 ;;9002226.02101,"775,51672402701 ",.02)
 ;;51672402701
 ;;9002226.02101,"775,51672402703 ",.01)
 ;;51672402703
 ;;9002226.02101,"775,51672402703 ",.02)
 ;;51672402703
 ;;9002226.02101,"775,51672402707 ",.01)
 ;;51672402707
 ;;9002226.02101,"775,51672402707 ",.02)
 ;;51672402707
 ;;9002226.02101,"775,51672402800 ",.01)
 ;;51672402800
 ;;9002226.02101,"775,51672402800 ",.02)
 ;;51672402800
 ;;9002226.02101,"775,51672402801 ",.01)
 ;;51672402801
 ;;9002226.02101,"775,51672402801 ",.02)
 ;;51672402801
 ;;9002226.02101,"775,51672402803 ",.01)
 ;;51672402803
 ;;9002226.02101,"775,51672402803 ",.02)
 ;;51672402803
 ;;9002226.02101,"775,51672402807 ",.01)
 ;;51672402807
 ;;9002226.02101,"775,51672402807 ",.02)
 ;;51672402807
 ;;9002226.02101,"775,51672402900 ",.01)
 ;;51672402900
 ;;9002226.02101,"775,51672402900 ",.02)
 ;;51672402900
 ;;9002226.02101,"775,51672402901 ",.01)
 ;;51672402901
 ;;9002226.02101,"775,51672402901 ",.02)
 ;;51672402901
 ;;9002226.02101,"775,51672402903 ",.01)
 ;;51672402903
 ;;9002226.02101,"775,51672402903 ",.02)
 ;;51672402903
 ;;9002226.02101,"775,51672402907 ",.01)
 ;;51672402907
 ;;9002226.02101,"775,51672402907 ",.02)
 ;;51672402907
 ;;9002226.02101,"775,51672403000 ",.01)
 ;;51672403000
 ;;9002226.02101,"775,51672403000 ",.02)
 ;;51672403000
 ;;9002226.02101,"775,51672403001 ",.01)
 ;;51672403001
 ;;9002226.02101,"775,51672403001 ",.02)
 ;;51672403001
 ;;9002226.02101,"775,51672403003 ",.01)
 ;;51672403003
 ;;9002226.02101,"775,51672403003 ",.02)
 ;;51672403003
 ;;9002226.02101,"775,51672403007 ",.01)
 ;;51672403007
 ;;9002226.02101,"775,51672403007 ",.02)
 ;;51672403007
 ;;9002226.02101,"775,51672403100 ",.01)
 ;;51672403100
 ;;9002226.02101,"775,51672403100 ",.02)
 ;;51672403100
 ;;9002226.02101,"775,51672403101 ",.01)
 ;;51672403101
 ;;9002226.02101,"775,51672403101 ",.02)
 ;;51672403101
 ;;9002226.02101,"775,51672403103 ",.01)
 ;;51672403103
 ;;9002226.02101,"775,51672403103 ",.02)
 ;;51672403103
 ;;9002226.02101,"775,51672403107 ",.01)
 ;;51672403107
 ;;9002226.02101,"775,51672403107 ",.02)
 ;;51672403107
 ;;9002226.02101,"775,51672403200 ",.01)
 ;;51672403200
 ;;9002226.02101,"775,51672403200 ",.02)
 ;;51672403200
 ;;9002226.02101,"775,51672403201 ",.01)
 ;;51672403201
 ;;9002226.02101,"775,51672403201 ",.02)
 ;;51672403201
 ;;9002226.02101,"775,51672403203 ",.01)
 ;;51672403203
 ;;9002226.02101,"775,51672403203 ",.02)
 ;;51672403203
 ;;9002226.02101,"775,51672403207 ",.01)
 ;;51672403207
 ;;9002226.02101,"775,51672403207 ",.02)
 ;;51672403207
 ;;9002226.02101,"775,51672403300 ",.01)
 ;;51672403300
 ;;9002226.02101,"775,51672403300 ",.02)
 ;;51672403300
 ;;9002226.02101,"775,51672403301 ",.01)
 ;;51672403301
 ;;9002226.02101,"775,51672403301 ",.02)
 ;;51672403301
 ;;9002226.02101,"775,51672403303 ",.01)
 ;;51672403303
 ;;9002226.02101,"775,51672403303 ",.02)
 ;;51672403303
 ;;9002226.02101,"775,51672403307 ",.01)
 ;;51672403307
 ;;9002226.02101,"775,51672403307 ",.02)
 ;;51672403307
 ;;9002226.02101,"775,51672403400 ",.01)
 ;;51672403400
 ;;9002226.02101,"775,51672403400 ",.02)
 ;;51672403400
 ;;9002226.02101,"775,51672403401 ",.01)
 ;;51672403401
 ;;9002226.02101,"775,51672403401 ",.02)
 ;;51672403401
 ;;9002226.02101,"775,51672403403 ",.01)
 ;;51672403403
 ;;9002226.02101,"775,51672403403 ",.02)
 ;;51672403403
 ;;9002226.02101,"775,51672403500 ",.01)
 ;;51672403500
 ;;9002226.02101,"775,51672403500 ",.02)
 ;;51672403500
 ;;9002226.02101,"775,51672403501 ",.01)
 ;;51672403501
 ;;9002226.02101,"775,51672403501 ",.02)
 ;;51672403501
 ;;9002226.02101,"775,51672403503 ",.01)
 ;;51672403503
 ;;9002226.02101,"775,51672403503 ",.02)
 ;;51672403503
 ;;9002226.02101,"775,51698004910 ",.01)
 ;;51698004910
 ;;9002226.02101,"775,51698004910 ",.02)
 ;;51698004910
 ;;9002226.02101,"775,51728054501 ",.01)
 ;;51728054501
 ;;9002226.02101,"775,51728054501 ",.02)
 ;;51728054501
 ;;9002226.02101,"775,51728054510 ",.01)
 ;;51728054510
 ;;9002226.02101,"775,51728054510 ",.02)
 ;;51728054510
 ;;9002226.02101,"775,51813003730 ",.01)
 ;;51813003730
 ;;9002226.02101,"775,51813003730 ",.02)
 ;;51813003730
 ;;9002226.02101,"775,51813003799 ",.01)
 ;;51813003799
 ;;9002226.02101,"775,51813003799 ",.02)
 ;;51813003799
 ;;9002226.02101,"775,51813003830 ",.01)
 ;;51813003830
 ;;9002226.02101,"775,51813003830 ",.02)
 ;;51813003830
 ;;9002226.02101,"775,51813003899 ",.01)
 ;;51813003899
 ;;9002226.02101,"775,51813003899 ",.02)
 ;;51813003899
 ;;9002226.02101,"775,51813027830 ",.01)
 ;;51813027830
 ;;9002226.02101,"775,51813027830 ",.02)
 ;;51813027830
 ;;9002226.02101,"775,51813027899 ",.01)
 ;;51813027899
 ;;9002226.02101,"775,51813027899 ",.02)
 ;;51813027899
 ;;9002226.02101,"775,51824016436 ",.01)
 ;;51824016436
 ;;9002226.02101,"775,51824016436 ",.02)
 ;;51824016436
 ;;9002226.02101,"775,52189022024 ",.01)
 ;;52189022024
 ;;9002226.02101,"775,52189022024 ",.02)
 ;;52189022024
 ;;9002226.02101,"775,52189022029 ",.01)
 ;;52189022029
 ;;9002226.02101,"775,52189022029 ",.02)
 ;;52189022029
 ;;9002226.02101,"775,52297013378 ",.01)
 ;;52297013378
 ;;9002226.02101,"775,52297013378 ",.02)
 ;;52297013378
 ;;9002226.02101,"775,52297013778 ",.01)
 ;;52297013778
 ;;9002226.02101,"775,52297013778 ",.02)
 ;;52297013778
 ;;9002226.02101,"775,52297013978 ",.01)
 ;;52297013978
 ;;9002226.02101,"775,52297013978 ",.02)
 ;;52297013978
 ;;9002226.02101,"775,52297014668 ",.01)
 ;;52297014668
 ;;9002226.02101,"775,52297014668 ",.02)
 ;;52297014668
 ;;9002226.02101,"775,52297016478 ",.01)
 ;;52297016478
 ;;9002226.02101,"775,52297016478 ",.02)
 ;;52297016478
 ;;9002226.02101,"775,52297026072 ",.01)
 ;;52297026072
 ;;9002226.02101,"775,52297026072 ",.02)
 ;;52297026072
 ;;9002226.02101,"775,52297026672 ",.01)
 ;;52297026672
 ;;9002226.02101,"775,52297026672 ",.02)
 ;;52297026672
 ;;9002226.02101,"775,52297029287 ",.01)
 ;;52297029287
 ;;9002226.02101,"775,52297029287 ",.02)
 ;;52297029287
 ;;9002226.02101,"775,52297041187 ",.01)
 ;;52297041187
 ;;9002226.02101,"775,52297041187 ",.02)
 ;;52297041187
 ;;9002226.02101,"775,52297041660 ",.01)
 ;;52297041660
 ;;9002226.02101,"775,52297041660 ",.02)
 ;;52297041660
 ;;9002226.02101,"775,52297041678 ",.01)
 ;;52297041678
 ;;9002226.02101,"775,52297041678 ",.02)
 ;;52297041678
 ;;9002226.02101,"775,52297042974 ",.01)
 ;;52297042974
 ;;9002226.02101,"775,52297042974 ",.02)
 ;;52297042974
 ;;9002226.02101,"775,52297042978 ",.01)
 ;;52297042978
 ;;9002226.02101,"775,52297042978 ",.02)
 ;;52297042978
 ;;9002226.02101,"775,52297044878 ",.01)
 ;;52297044878
 ;;9002226.02101,"775,52297044878 ",.02)
 ;;52297044878
 ;;9002226.02101,"775,52297046768 ",.01)
 ;;52297046768
 ;;9002226.02101,"775,52297046768 ",.02)
 ;;52297046768
 ;;9002226.02101,"775,52297091885 ",.01)
 ;;52297091885
 ;;9002226.02101,"775,52297091885 ",.02)
 ;;52297091885
 ;;9002226.02101,"775,52549402701 ",.01)
 ;;52549402701
 ;;9002226.02101,"775,52549402701 ",.02)
 ;;52549402701
 ;;9002226.02101,"775,52549402703 ",.01)
 ;;52549402703
 ;;9002226.02101,"775,52549402703 ",.02)
 ;;52549402703
 ;;9002226.02101,"775,52549402707 ",.01)
 ;;52549402707
 ;;9002226.02101,"775,52549402707 ",.02)
 ;;52549402707
 ;;9002226.02101,"775,52549402801 ",.01)
 ;;52549402801
 ;;9002226.02101,"775,52549402801 ",.02)
 ;;52549402801
 ;;9002226.02101,"775,52549402803 ",.01)
 ;;52549402803
 ;;9002226.02101,"775,52549402803 ",.02)
 ;;52549402803
 ;;9002226.02101,"775,52549402807 ",.01)
 ;;52549402807
 ;;9002226.02101,"775,52549402807 ",.02)
 ;;52549402807
 ;;9002226.02101,"775,52549402901 ",.01)
 ;;52549402901
 ;;9002226.02101,"775,52549402901 ",.02)
 ;;52549402901
 ;;9002226.02101,"775,52549402903 ",.01)
 ;;52549402903
 ;;9002226.02101,"775,52549402903 ",.02)
 ;;52549402903
 ;;9002226.02101,"775,52549402907 ",.01)
 ;;52549402907
 ;;9002226.02101,"775,52549402907 ",.02)
 ;;52549402907
 ;;9002226.02101,"775,52549403001 ",.01)
 ;;52549403001
 ;;9002226.02101,"775,52549403001 ",.02)
 ;;52549403001
 ;;9002226.02101,"775,52549403003 ",.01)
 ;;52549403003
 ;;9002226.02101,"775,52549403003 ",.02)
 ;;52549403003
 ;;9002226.02101,"775,52549403007 ",.01)
 ;;52549403007
 ;;9002226.02101,"775,52549403007 ",.02)
 ;;52549403007
 ;;9002226.02101,"775,52549403101 ",.01)
 ;;52549403101
 ;;9002226.02101,"775,52549403101 ",.02)
 ;;52549403101
 ;;9002226.02101,"775,52549403103 ",.01)
 ;;52549403103
 ;;9002226.02101,"775,52549403103 ",.02)
 ;;52549403103
 ;;9002226.02101,"775,52549403107 ",.01)
 ;;52549403107
 ;;9002226.02101,"775,52549403107 ",.02)
 ;;52549403107
 ;;9002226.02101,"775,52549403201 ",.01)
 ;;52549403201
 ;;9002226.02101,"775,52549403201 ",.02)
 ;;52549403201
 ;;9002226.02101,"775,52549403203 ",.01)
 ;;52549403203
 ;;9002226.02101,"775,52549403203 ",.02)
 ;;52549403203
 ;;9002226.02101,"775,52549403207 ",.01)
 ;;52549403207
 ;;9002226.02101,"775,52549403207 ",.02)
 ;;52549403207
 ;;9002226.02101,"775,52549403301 ",.01)
 ;;52549403301
 ;;9002226.02101,"775,52549403301 ",.02)
 ;;52549403301
 ;;9002226.02101,"775,52549403303 ",.01)
 ;;52549403303
 ;;9002226.02101,"775,52549403303 ",.02)
 ;;52549403303
 ;;9002226.02101,"775,52549403401 ",.01)
 ;;52549403401
 ;;9002226.02101,"775,52549403401 ",.02)
 ;;52549403401
 ;;9002226.02101,"775,52549403403 ",.01)
 ;;52549403403
 ;;9002226.02101,"775,52549403403 ",.02)
 ;;52549403403
 ;;9002226.02101,"775,52549403501 ",.01)
 ;;52549403501
 ;;9002226.02101,"775,52549403501 ",.02)
 ;;52549403501
 ;;9002226.02101,"775,52549403503 ",.01)
 ;;52549403503
 ;;9002226.02101,"775,52549403503 ",.02)
 ;;52549403503
 ;;9002226.02101,"775,52584004401 ",.01)
 ;;52584004401
 ;;9002226.02101,"775,52584004401 ",.02)
 ;;52584004401
 ;;9002226.02101,"775,52584004410 ",.01)
 ;;52584004410
 ;;9002226.02101,"775,52584004410 ",.02)
 ;;52584004410
 ;;9002226.02101,"775,52584004501 ",.01)
 ;;52584004501
 ;;9002226.02101,"775,52584004501 ",.02)
 ;;52584004501
 ;;9002226.02101,"775,52584004510 ",.01)
 ;;52584004510
 ;;9002226.02101,"775,52584004510 ",.02)
 ;;52584004510
 ;;9002226.02101,"775,52584005001 ",.01)
 ;;52584005001
 ;;9002226.02101,"775,52584005001 ",.02)
 ;;52584005001
 ;;9002226.02101,"775,52584005010 ",.01)
 ;;52584005010
 ;;9002226.02101,"775,52584005010 ",.02)
 ;;52584005010
 ;;9002226.02101,"775,52584015270 ",.01)
 ;;52584015270
 ;;9002226.02101,"775,52584015270 ",.02)
 ;;52584015270
 ;;9002226.02101,"775,52584026201 ",.01)
 ;;52584026201
 ;;9002226.02101,"775,52584026201 ",.02)
 ;;52584026201
 ;;9002226.02101,"775,52584054001 ",.01)
 ;;52584054001
 ;;9002226.02101,"775,52584054001 ",.02)
 ;;52584054001
 ;;9002226.02101,"775,52584054201 ",.01)
 ;;52584054201
 ;;9002226.02101,"775,52584054201 ",.02)
 ;;52584054201
 ;;9002226.02101,"775,52584058102 ",.01)
 ;;52584058102
 ;;9002226.02101,"775,52584058102 ",.02)
 ;;52584058102
 ;;9002226.02101,"775,52735070201 ",.01)
 ;;52735070201
 ;;9002226.02101,"775,52735070201 ",.02)
 ;;52735070201