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

BGPM3AAK.m

Go to the documentation of this file.
BGPM3AAK ;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,"774,51129382902 ",.02)
 ;;51129382902
 ;;9002226.02101,"774,51129385901 ",.01)
 ;;51129385901
 ;;9002226.02101,"774,51129385901 ",.02)
 ;;51129385901
 ;;9002226.02101,"774,51129385902 ",.01)
 ;;51129385902
 ;;9002226.02101,"774,51129385902 ",.02)
 ;;51129385902
 ;;9002226.02101,"774,51129395401 ",.01)
 ;;51129395401
 ;;9002226.02101,"774,51129395401 ",.02)
 ;;51129395401
 ;;9002226.02101,"774,51129395402 ",.01)
 ;;51129395402
 ;;9002226.02101,"774,51129395402 ",.02)
 ;;51129395402
 ;;9002226.02101,"774,51129396801 ",.01)
 ;;51129396801
 ;;9002226.02101,"774,51129396801 ",.02)
 ;;51129396801
 ;;9002226.02101,"774,51129396802 ",.01)
 ;;51129396802
 ;;9002226.02101,"774,51129396802 ",.02)
 ;;51129396802
 ;;9002226.02101,"774,51129396901 ",.01)
 ;;51129396901
 ;;9002226.02101,"774,51129396901 ",.02)
 ;;51129396901
 ;;9002226.02101,"774,51129396902 ",.01)
 ;;51129396902
 ;;9002226.02101,"774,51129396902 ",.02)
 ;;51129396902
 ;;9002226.02101,"774,51432090003 ",.01)
 ;;51432090003
 ;;9002226.02101,"774,51432090003 ",.02)
 ;;51432090003
 ;;9002226.02101,"774,51432090103 ",.01)
 ;;51432090103
 ;;9002226.02101,"774,51432090103 ",.02)
 ;;51432090103
 ;;9002226.02101,"774,51432090203 ",.01)
 ;;51432090203
 ;;9002226.02101,"774,51432090203 ",.02)
 ;;51432090203
 ;;9002226.02101,"774,51432090303 ",.01)
 ;;51432090303
 ;;9002226.02101,"774,51432090303 ",.02)
 ;;51432090303
 ;;9002226.02101,"774,51432090403 ",.01)
 ;;51432090403
 ;;9002226.02101,"774,51432090403 ",.02)
 ;;51432090403
 ;;9002226.02101,"774,51655025124 ",.01)
 ;;51655025124
 ;;9002226.02101,"774,51655025124 ",.02)
 ;;51655025124
 ;;9002226.02101,"774,51655025152 ",.01)
 ;;51655025152
 ;;9002226.02101,"774,51655025152 ",.02)
 ;;51655025152
 ;;9002226.02101,"774,51655025153 ",.01)
 ;;51655025153
 ;;9002226.02101,"774,51655025153 ",.02)
 ;;51655025153
 ;;9002226.02101,"774,51655078324 ",.01)
 ;;51655078324
 ;;9002226.02101,"774,51655078324 ",.02)
 ;;51655078324
 ;;9002226.02101,"774,51655078352 ",.01)
 ;;51655078352
 ;;9002226.02101,"774,51655078352 ",.02)
 ;;51655078352
 ;;9002226.02101,"774,51655078353 ",.01)
 ;;51655078353
 ;;9002226.02101,"774,51655078353 ",.02)
 ;;51655078353
 ;;9002226.02101,"774,51655078399 ",.01)
 ;;51655078399
 ;;9002226.02101,"774,51655078399 ",.02)
 ;;51655078399
 ;;9002226.02101,"774,51672402700 ",.01)
 ;;51672402700
 ;;9002226.02101,"774,51672402700 ",.02)
 ;;51672402700
 ;;9002226.02101,"774,51672402701 ",.01)
 ;;51672402701
 ;;9002226.02101,"774,51672402701 ",.02)
 ;;51672402701
 ;;9002226.02101,"774,51672402703 ",.01)
 ;;51672402703
 ;;9002226.02101,"774,51672402703 ",.02)
 ;;51672402703
 ;;9002226.02101,"774,51672402707 ",.01)
 ;;51672402707
 ;;9002226.02101,"774,51672402707 ",.02)
 ;;51672402707
 ;;9002226.02101,"774,51672402800 ",.01)
 ;;51672402800
 ;;9002226.02101,"774,51672402800 ",.02)
 ;;51672402800
 ;;9002226.02101,"774,51672402801 ",.01)
 ;;51672402801
 ;;9002226.02101,"774,51672402801 ",.02)
 ;;51672402801
 ;;9002226.02101,"774,51672402803 ",.01)
 ;;51672402803
 ;;9002226.02101,"774,51672402803 ",.02)
 ;;51672402803
 ;;9002226.02101,"774,51672402807 ",.01)
 ;;51672402807
 ;;9002226.02101,"774,51672402807 ",.02)
 ;;51672402807
 ;;9002226.02101,"774,51672402900 ",.01)
 ;;51672402900
 ;;9002226.02101,"774,51672402900 ",.02)
 ;;51672402900
 ;;9002226.02101,"774,51672402901 ",.01)
 ;;51672402901
 ;;9002226.02101,"774,51672402901 ",.02)
 ;;51672402901
 ;;9002226.02101,"774,51672402903 ",.01)
 ;;51672402903
 ;;9002226.02101,"774,51672402903 ",.02)
 ;;51672402903
 ;;9002226.02101,"774,51672402907 ",.01)
 ;;51672402907
 ;;9002226.02101,"774,51672402907 ",.02)
 ;;51672402907
 ;;9002226.02101,"774,51672403000 ",.01)
 ;;51672403000
 ;;9002226.02101,"774,51672403000 ",.02)
 ;;51672403000
 ;;9002226.02101,"774,51672403001 ",.01)
 ;;51672403001
 ;;9002226.02101,"774,51672403001 ",.02)
 ;;51672403001
 ;;9002226.02101,"774,51672403003 ",.01)
 ;;51672403003
 ;;9002226.02101,"774,51672403003 ",.02)
 ;;51672403003
 ;;9002226.02101,"774,51672403007 ",.01)
 ;;51672403007
 ;;9002226.02101,"774,51672403007 ",.02)
 ;;51672403007
 ;;9002226.02101,"774,51672403100 ",.01)
 ;;51672403100
 ;;9002226.02101,"774,51672403100 ",.02)
 ;;51672403100
 ;;9002226.02101,"774,51672403101 ",.01)
 ;;51672403101
 ;;9002226.02101,"774,51672403101 ",.02)
 ;;51672403101
 ;;9002226.02101,"774,51672403103 ",.01)
 ;;51672403103
 ;;9002226.02101,"774,51672403103 ",.02)
 ;;51672403103
 ;;9002226.02101,"774,51672403107 ",.01)
 ;;51672403107
 ;;9002226.02101,"774,51672403107 ",.02)
 ;;51672403107
 ;;9002226.02101,"774,51672403200 ",.01)
 ;;51672403200
 ;;9002226.02101,"774,51672403200 ",.02)
 ;;51672403200
 ;;9002226.02101,"774,51672403201 ",.01)
 ;;51672403201
 ;;9002226.02101,"774,51672403201 ",.02)
 ;;51672403201
 ;;9002226.02101,"774,51672403203 ",.01)
 ;;51672403203
 ;;9002226.02101,"774,51672403203 ",.02)
 ;;51672403203
 ;;9002226.02101,"774,51672403207 ",.01)
 ;;51672403207
 ;;9002226.02101,"774,51672403207 ",.02)
 ;;51672403207
 ;;9002226.02101,"774,51672403300 ",.01)
 ;;51672403300
 ;;9002226.02101,"774,51672403300 ",.02)
 ;;51672403300
 ;;9002226.02101,"774,51672403301 ",.01)
 ;;51672403301
 ;;9002226.02101,"774,51672403301 ",.02)
 ;;51672403301
 ;;9002226.02101,"774,51672403303 ",.01)
 ;;51672403303
 ;;9002226.02101,"774,51672403303 ",.02)
 ;;51672403303
 ;;9002226.02101,"774,51672403307 ",.01)
 ;;51672403307
 ;;9002226.02101,"774,51672403307 ",.02)
 ;;51672403307
 ;;9002226.02101,"774,51672403400 ",.01)
 ;;51672403400
 ;;9002226.02101,"774,51672403400 ",.02)
 ;;51672403400
 ;;9002226.02101,"774,51672403401 ",.01)
 ;;51672403401
 ;;9002226.02101,"774,51672403401 ",.02)
 ;;51672403401
 ;;9002226.02101,"774,51672403403 ",.01)
 ;;51672403403
 ;;9002226.02101,"774,51672403403 ",.02)
 ;;51672403403
 ;;9002226.02101,"774,51672403500 ",.01)
 ;;51672403500
 ;;9002226.02101,"774,51672403500 ",.02)
 ;;51672403500
 ;;9002226.02101,"774,51672403501 ",.01)
 ;;51672403501
 ;;9002226.02101,"774,51672403501 ",.02)
 ;;51672403501
 ;;9002226.02101,"774,51672403503 ",.01)
 ;;51672403503
 ;;9002226.02101,"774,51672403503 ",.02)
 ;;51672403503
 ;;9002226.02101,"774,51698004910 ",.01)
 ;;51698004910
 ;;9002226.02101,"774,51698004910 ",.02)
 ;;51698004910
 ;;9002226.02101,"774,51728054501 ",.01)
 ;;51728054501
 ;;9002226.02101,"774,51728054501 ",.02)
 ;;51728054501
 ;;9002226.02101,"774,51728054510 ",.01)
 ;;51728054510
 ;;9002226.02101,"774,51728054510 ",.02)
 ;;51728054510
 ;;9002226.02101,"774,51813003730 ",.01)
 ;;51813003730
 ;;9002226.02101,"774,51813003730 ",.02)
 ;;51813003730
 ;;9002226.02101,"774,51813003799 ",.01)
 ;;51813003799
 ;;9002226.02101,"774,51813003799 ",.02)
 ;;51813003799
 ;;9002226.02101,"774,51813003830 ",.01)
 ;;51813003830
 ;;9002226.02101,"774,51813003830 ",.02)
 ;;51813003830
 ;;9002226.02101,"774,51813003899 ",.01)
 ;;51813003899
 ;;9002226.02101,"774,51813003899 ",.02)
 ;;51813003899
 ;;9002226.02101,"774,51813027830 ",.01)
 ;;51813027830
 ;;9002226.02101,"774,51813027830 ",.02)
 ;;51813027830
 ;;9002226.02101,"774,51813027899 ",.01)
 ;;51813027899
 ;;9002226.02101,"774,51813027899 ",.02)
 ;;51813027899
 ;;9002226.02101,"774,52549402701 ",.01)
 ;;52549402701
 ;;9002226.02101,"774,52549402701 ",.02)
 ;;52549402701
 ;;9002226.02101,"774,52549402703 ",.01)
 ;;52549402703
 ;;9002226.02101,"774,52549402703 ",.02)
 ;;52549402703
 ;;9002226.02101,"774,52549402707 ",.01)
 ;;52549402707
 ;;9002226.02101,"774,52549402707 ",.02)
 ;;52549402707
 ;;9002226.02101,"774,52549402801 ",.01)
 ;;52549402801
 ;;9002226.02101,"774,52549402801 ",.02)
 ;;52549402801
 ;;9002226.02101,"774,52549402803 ",.01)
 ;;52549402803
 ;;9002226.02101,"774,52549402803 ",.02)
 ;;52549402803
 ;;9002226.02101,"774,52549402807 ",.01)
 ;;52549402807
 ;;9002226.02101,"774,52549402807 ",.02)
 ;;52549402807
 ;;9002226.02101,"774,52549402901 ",.01)
 ;;52549402901
 ;;9002226.02101,"774,52549402901 ",.02)
 ;;52549402901
 ;;9002226.02101,"774,52549402903 ",.01)
 ;;52549402903
 ;;9002226.02101,"774,52549402903 ",.02)
 ;;52549402903
 ;;9002226.02101,"774,52549402907 ",.01)
 ;;52549402907
 ;;9002226.02101,"774,52549402907 ",.02)
 ;;52549402907
 ;;9002226.02101,"774,52549403001 ",.01)
 ;;52549403001
 ;;9002226.02101,"774,52549403001 ",.02)
 ;;52549403001
 ;;9002226.02101,"774,52549403003 ",.01)
 ;;52549403003
 ;;9002226.02101,"774,52549403003 ",.02)
 ;;52549403003
 ;;9002226.02101,"774,52549403007 ",.01)
 ;;52549403007
 ;;9002226.02101,"774,52549403007 ",.02)
 ;;52549403007
 ;;9002226.02101,"774,52549403101 ",.01)
 ;;52549403101
 ;;9002226.02101,"774,52549403101 ",.02)
 ;;52549403101
 ;;9002226.02101,"774,52549403103 ",.01)
 ;;52549403103
 ;;9002226.02101,"774,52549403103 ",.02)
 ;;52549403103
 ;;9002226.02101,"774,52549403107 ",.01)
 ;;52549403107
 ;;9002226.02101,"774,52549403107 ",.02)
 ;;52549403107
 ;;9002226.02101,"774,52549403201 ",.01)
 ;;52549403201
 ;;9002226.02101,"774,52549403201 ",.02)
 ;;52549403201
 ;;9002226.02101,"774,52549403203 ",.01)
 ;;52549403203
 ;;9002226.02101,"774,52549403203 ",.02)
 ;;52549403203
 ;;9002226.02101,"774,52549403207 ",.01)
 ;;52549403207
 ;;9002226.02101,"774,52549403207 ",.02)
 ;;52549403207
 ;;9002226.02101,"774,52549403301 ",.01)
 ;;52549403301
 ;;9002226.02101,"774,52549403301 ",.02)
 ;;52549403301
 ;;9002226.02101,"774,52549403303 ",.01)
 ;;52549403303
 ;;9002226.02101,"774,52549403303 ",.02)
 ;;52549403303
 ;;9002226.02101,"774,52549403401 ",.01)
 ;;52549403401
 ;;9002226.02101,"774,52549403401 ",.02)
 ;;52549403401
 ;;9002226.02101,"774,52549403403 ",.01)
 ;;52549403403
 ;;9002226.02101,"774,52549403403 ",.02)
 ;;52549403403
 ;;9002226.02101,"774,52549403501 ",.01)
 ;;52549403501
 ;;9002226.02101,"774,52549403501 ",.02)
 ;;52549403501
 ;;9002226.02101,"774,52549403503 ",.01)
 ;;52549403503
 ;;9002226.02101,"774,52549403503 ",.02)
 ;;52549403503
 ;;9002226.02101,"774,52584004401 ",.01)
 ;;52584004401
 ;;9002226.02101,"774,52584004401 ",.02)
 ;;52584004401
 ;;9002226.02101,"774,52584004410 ",.01)
 ;;52584004410
 ;;9002226.02101,"774,52584004410 ",.02)
 ;;52584004410
 ;;9002226.02101,"774,52584004501 ",.01)
 ;;52584004501
 ;;9002226.02101,"774,52584004501 ",.02)
 ;;52584004501
 ;;9002226.02101,"774,52584004510 ",.01)
 ;;52584004510
 ;;9002226.02101,"774,52584004510 ",.02)
 ;;52584004510
 ;;9002226.02101,"774,52584005001 ",.01)
 ;;52584005001
 ;;9002226.02101,"774,52584005001 ",.02)
 ;;52584005001
 ;;9002226.02101,"774,52584005010 ",.01)
 ;;52584005010
 ;;9002226.02101,"774,52584005010 ",.02)
 ;;52584005010
 ;;9002226.02101,"774,52584015270 ",.01)
 ;;52584015270
 ;;9002226.02101,"774,52584015270 ",.02)
 ;;52584015270
 ;;9002226.02101,"774,52584026201 ",.01)
 ;;52584026201
 ;;9002226.02101,"774,52584026201 ",.02)
 ;;52584026201
 ;;9002226.02101,"774,52584054001 ",.01)
 ;;52584054001
 ;;9002226.02101,"774,52584054001 ",.02)
 ;;52584054001
 ;;9002226.02101,"774,52584054201 ",.01)
 ;;52584054201
 ;;9002226.02101,"774,52584054201 ",.02)
 ;;52584054201
 ;;9002226.02101,"774,52584058102 ",.01)
 ;;52584058102
 ;;9002226.02101,"774,52584058102 ",.02)
 ;;52584058102
 ;;9002226.02101,"774,52953003801 ",.01)
 ;;52953003801
 ;;9002226.02101,"774,52953003801 ",.02)
 ;;52953003801
 ;;9002226.02101,"774,52953003901 ",.01)
 ;;52953003901
 ;;9002226.02101,"774,52953003901 ",.02)
 ;;52953003901
 ;;9002226.02101,"774,52958032004 ",.01)
 ;;52958032004
 ;;9002226.02101,"774,52958032004 ",.02)
 ;;52958032004
 ;;9002226.02101,"774,52958033008 ",.01)
 ;;52958033008