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

BGPM3AFE.m

Go to the documentation of this file.
BGPM3AFE ;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,"791,24236022802 ",.02)
 ;;24236022802
 ;;9002226.02101,"791,24236026002 ",.01)
 ;;24236026002
 ;;9002226.02101,"791,24236026002 ",.02)
 ;;24236026002
 ;;9002226.02101,"791,24236032102 ",.01)
 ;;24236032102
 ;;9002226.02101,"791,24236032102 ",.02)
 ;;24236032102
 ;;9002226.02101,"791,24236034802 ",.01)
 ;;24236034802
 ;;9002226.02101,"791,24236034802 ",.02)
 ;;24236034802
 ;;9002226.02101,"791,24236035302 ",.01)
 ;;24236035302
 ;;9002226.02101,"791,24236035302 ",.02)
 ;;24236035302
 ;;9002226.02101,"791,24236056402 ",.01)
 ;;24236056402
 ;;9002226.02101,"791,24236056402 ",.02)
 ;;24236056402
 ;;9002226.02101,"791,24236069302 ",.01)
 ;;24236069302
 ;;9002226.02101,"791,24236069302 ",.02)
 ;;24236069302
 ;;9002226.02101,"791,24236084702 ",.01)
 ;;24236084702
 ;;9002226.02101,"791,24236084702 ",.02)
 ;;24236084702
 ;;9002226.02101,"791,24236087202 ",.01)
 ;;24236087202
 ;;9002226.02101,"791,24236087202 ",.02)
 ;;24236087202
 ;;9002226.02101,"791,35470053501 ",.01)
 ;;35470053501
 ;;9002226.02101,"791,35470053501 ",.02)
 ;;35470053501
 ;;9002226.02101,"791,43683011730 ",.01)
 ;;43683011730
 ;;9002226.02101,"791,43683011730 ",.02)
 ;;43683011730
 ;;9002226.02101,"791,43683011830 ",.01)
 ;;43683011830
 ;;9002226.02101,"791,43683011830 ",.02)
 ;;43683011830
 ;;9002226.02101,"791,49999057600 ",.01)
 ;;49999057600
 ;;9002226.02101,"791,49999057600 ",.02)
 ;;49999057600
 ;;9002226.02101,"791,49999057610 ",.01)
 ;;49999057610
 ;;9002226.02101,"791,49999057610 ",.02)
 ;;49999057610
 ;;9002226.02101,"791,49999057620 ",.01)
 ;;49999057620
 ;;9002226.02101,"791,49999057620 ",.02)
 ;;49999057620
 ;;9002226.02101,"791,49999092310 ",.01)
 ;;49999092310
 ;;9002226.02101,"791,49999092310 ",.02)
 ;;49999092310
 ;;9002226.02101,"791,50111092201 ",.01)
 ;;50111092201
 ;;9002226.02101,"791,50111092201 ",.02)
 ;;50111092201
 ;;9002226.02101,"791,50111092203 ",.01)
 ;;50111092203
 ;;9002226.02101,"791,50111092203 ",.02)
 ;;50111092203
 ;;9002226.02101,"791,50111092210 ",.01)
 ;;50111092210
 ;;9002226.02101,"791,50111092210 ",.02)
 ;;50111092210
 ;;9002226.02101,"791,50111092258 ",.01)
 ;;50111092258
 ;;9002226.02101,"791,50111092258 ",.02)
 ;;50111092258
 ;;9002226.02101,"791,50111092401 ",.01)
 ;;50111092401
 ;;9002226.02101,"791,50111092401 ",.02)
 ;;50111092401
 ;;9002226.02101,"791,50111092403 ",.01)
 ;;50111092403
 ;;9002226.02101,"791,50111092403 ",.02)
 ;;50111092403
 ;;9002226.02101,"791,50111092410 ",.01)
 ;;50111092410
 ;;9002226.02101,"791,50111092410 ",.02)
 ;;50111092410
 ;;9002226.02101,"791,50111092458 ",.01)
 ;;50111092458
 ;;9002226.02101,"791,50111092458 ",.02)
 ;;50111092458
 ;;9002226.02101,"791,50111092501 ",.01)
 ;;50111092501
 ;;9002226.02101,"791,50111092501 ",.02)
 ;;50111092501
 ;;9002226.02101,"791,50111092503 ",.01)
 ;;50111092503
 ;;9002226.02101,"791,50111092503 ",.02)
 ;;50111092503
 ;;9002226.02101,"791,50111092510 ",.01)
 ;;50111092510
 ;;9002226.02101,"791,50111092510 ",.02)
 ;;50111092510
 ;;9002226.02101,"791,50111092558 ",.01)
 ;;50111092558
 ;;9002226.02101,"791,50111092558 ",.02)
 ;;50111092558
 ;;9002226.02101,"791,50111092601 ",.01)
 ;;50111092601
 ;;9002226.02101,"791,50111092601 ",.02)
 ;;50111092601
 ;;9002226.02101,"791,50111092603 ",.01)
 ;;50111092603
 ;;9002226.02101,"791,50111092603 ",.02)
 ;;50111092603
 ;;9002226.02101,"791,50111092610 ",.01)
 ;;50111092610
 ;;9002226.02101,"791,50111092610 ",.02)
 ;;50111092610
 ;;9002226.02101,"791,50111092658 ",.01)
 ;;50111092658
 ;;9002226.02101,"791,50111092658 ",.02)
 ;;50111092658
 ;;9002226.02101,"791,50111092701 ",.01)
 ;;50111092701
 ;;9002226.02101,"791,50111092701 ",.02)
 ;;50111092701
 ;;9002226.02101,"791,50111092703 ",.01)
 ;;50111092703
 ;;9002226.02101,"791,50111092703 ",.02)
 ;;50111092703
 ;;9002226.02101,"791,50111092710 ",.01)
 ;;50111092710
 ;;9002226.02101,"791,50111092710 ",.02)
 ;;50111092710
 ;;9002226.02101,"791,50111092758 ",.01)
 ;;50111092758
 ;;9002226.02101,"791,50111092758 ",.02)
 ;;50111092758
 ;;9002226.02101,"791,50111092901 ",.01)
 ;;50111092901
 ;;9002226.02101,"791,50111092901 ",.02)
 ;;50111092901
 ;;9002226.02101,"791,50111092903 ",.01)
 ;;50111092903
 ;;9002226.02101,"791,50111092903 ",.02)
 ;;50111092903
 ;;9002226.02101,"791,50111092910 ",.01)
 ;;50111092910
 ;;9002226.02101,"791,50111092910 ",.02)
 ;;50111092910
 ;;9002226.02101,"791,50111092958 ",.01)
 ;;50111092958
 ;;9002226.02101,"791,50111092958 ",.02)
 ;;50111092958
 ;;9002226.02101,"791,51079090820 ",.01)
 ;;51079090820
 ;;9002226.02101,"791,51079090820 ",.02)
 ;;51079090820
 ;;9002226.02101,"791,51079090920 ",.01)
 ;;51079090920
 ;;9002226.02101,"791,51079090920 ",.02)
 ;;51079090920
 ;;9002226.02101,"791,51079091020 ",.01)
 ;;51079091020
 ;;9002226.02101,"791,51079091020 ",.02)
 ;;51079091020
 ;;9002226.02101,"791,51079091320 ",.01)
 ;;51079091320
 ;;9002226.02101,"791,51079091320 ",.02)
 ;;51079091320
 ;;9002226.02101,"791,51129181201 ",.01)
 ;;51129181201
 ;;9002226.02101,"791,51129181201 ",.02)
 ;;51129181201
 ;;9002226.02101,"791,51129201801 ",.01)
 ;;51129201801
 ;;9002226.02101,"791,51129201801 ",.02)
 ;;51129201801
 ;;9002226.02101,"791,51129247001 ",.01)
 ;;51129247001
 ;;9002226.02101,"791,51129247001 ",.02)
 ;;51129247001
 ;;9002226.02101,"791,51129254801 ",.01)
 ;;51129254801
 ;;9002226.02101,"791,51129254801 ",.02)
 ;;51129254801
 ;;9002226.02101,"791,51129257101 ",.01)
 ;;51129257101
 ;;9002226.02101,"791,51129257101 ",.02)
 ;;51129257101
 ;;9002226.02101,"791,51129267801 ",.01)
 ;;51129267801
 ;;9002226.02101,"791,51129267801 ",.02)
 ;;51129267801
 ;;9002226.02101,"791,51129276101 ",.01)
 ;;51129276101
 ;;9002226.02101,"791,51129276101 ",.02)
 ;;51129276101
 ;;9002226.02101,"791,51129282501 ",.01)
 ;;51129282501
 ;;9002226.02101,"791,51129282501 ",.02)
 ;;51129282501
 ;;9002226.02101,"791,51129282502 ",.01)
 ;;51129282502
 ;;9002226.02101,"791,51129282502 ",.02)
 ;;51129282502
 ;;9002226.02101,"791,51129284001 ",.01)
 ;;51129284001
 ;;9002226.02101,"791,51129284001 ",.02)
 ;;51129284001
 ;;9002226.02101,"791,51129285101 ",.01)
 ;;51129285101
 ;;9002226.02101,"791,51129285101 ",.02)
 ;;51129285101
 ;;9002226.02101,"791,51129285102 ",.01)
 ;;51129285102
 ;;9002226.02101,"791,51129285102 ",.02)
 ;;51129285102
 ;;9002226.02101,"791,51129292001 ",.01)
 ;;51129292001
 ;;9002226.02101,"791,51129292001 ",.02)
 ;;51129292001
 ;;9002226.02101,"791,51129294501 ",.01)
 ;;51129294501
 ;;9002226.02101,"791,51129294501 ",.02)
 ;;51129294501
 ;;9002226.02101,"791,51129294502 ",.01)
 ;;51129294502
 ;;9002226.02101,"791,51129294502 ",.02)
 ;;51129294502
 ;;9002226.02101,"791,51129294601 ",.01)
 ;;51129294601
 ;;9002226.02101,"791,51129294601 ",.02)
 ;;51129294601
 ;;9002226.02101,"791,51129294602 ",.01)
 ;;51129294602
 ;;9002226.02101,"791,51129294602 ",.02)
 ;;51129294602
 ;;9002226.02101,"791,51129302601 ",.01)
 ;;51129302601
 ;;9002226.02101,"791,51129302601 ",.02)
 ;;51129302601
 ;;9002226.02101,"791,51129302602 ",.01)
 ;;51129302602
 ;;9002226.02101,"791,51129302602 ",.02)
 ;;51129302602
 ;;9002226.02101,"791,51129323301 ",.01)
 ;;51129323301
 ;;9002226.02101,"791,51129323301 ",.02)
 ;;51129323301
 ;;9002226.02101,"791,51129323302 ",.01)
 ;;51129323302
 ;;9002226.02101,"791,51129323302 ",.02)
 ;;51129323302
 ;;9002226.02101,"791,51129382601 ",.01)
 ;;51129382601
 ;;9002226.02101,"791,51129382601 ",.02)
 ;;51129382601
 ;;9002226.02101,"791,51129382602 ",.01)
 ;;51129382602
 ;;9002226.02101,"791,51129382602 ",.02)
 ;;51129382602
 ;;9002226.02101,"791,51129382701 ",.01)
 ;;51129382701
 ;;9002226.02101,"791,51129382701 ",.02)
 ;;51129382701
 ;;9002226.02101,"791,51129382702 ",.01)
 ;;51129382702
 ;;9002226.02101,"791,51129382702 ",.02)
 ;;51129382702
 ;;9002226.02101,"791,51129382901 ",.01)
 ;;51129382901
 ;;9002226.02101,"791,51129382901 ",.02)
 ;;51129382901
 ;;9002226.02101,"791,51129382902 ",.01)
 ;;51129382902
 ;;9002226.02101,"791,51129382902 ",.02)
 ;;51129382902
 ;;9002226.02101,"791,51129385901 ",.01)
 ;;51129385901
 ;;9002226.02101,"791,51129385901 ",.02)
 ;;51129385901
 ;;9002226.02101,"791,51129385902 ",.01)
 ;;51129385902
 ;;9002226.02101,"791,51129385902 ",.02)
 ;;51129385902
 ;;9002226.02101,"791,51129396801 ",.01)
 ;;51129396801
 ;;9002226.02101,"791,51129396801 ",.02)
 ;;51129396801
 ;;9002226.02101,"791,51129396802 ",.01)
 ;;51129396802
 ;;9002226.02101,"791,51129396802 ",.02)
 ;;51129396802
 ;;9002226.02101,"791,51129396901 ",.01)
 ;;51129396901
 ;;9002226.02101,"791,51129396901 ",.02)
 ;;51129396901
 ;;9002226.02101,"791,51129396902 ",.01)
 ;;51129396902
 ;;9002226.02101,"791,51129396902 ",.02)
 ;;51129396902
 ;;9002226.02101,"791,51432090003 ",.01)
 ;;51432090003
 ;;9002226.02101,"791,51432090003 ",.02)
 ;;51432090003
 ;;9002226.02101,"791,51432090103 ",.01)
 ;;51432090103
 ;;9002226.02101,"791,51432090103 ",.02)
 ;;51432090103
 ;;9002226.02101,"791,51432090203 ",.01)
 ;;51432090203
 ;;9002226.02101,"791,51432090203 ",.02)
 ;;51432090203
 ;;9002226.02101,"791,51432090403 ",.01)
 ;;51432090403
 ;;9002226.02101,"791,51432090403 ",.02)
 ;;51432090403
 ;;9002226.02101,"791,51655025124 ",.01)
 ;;51655025124
 ;;9002226.02101,"791,51655025124 ",.02)
 ;;51655025124
 ;;9002226.02101,"791,51655025152 ",.01)
 ;;51655025152
 ;;9002226.02101,"791,51655025152 ",.02)
 ;;51655025152
 ;;9002226.02101,"791,51655025153 ",.01)
 ;;51655025153
 ;;9002226.02101,"791,51655025153 ",.02)
 ;;51655025153
 ;;9002226.02101,"791,51655078324 ",.01)
 ;;51655078324
 ;;9002226.02101,"791,51655078324 ",.02)
 ;;51655078324
 ;;9002226.02101,"791,51655078352 ",.01)
 ;;51655078352
 ;;9002226.02101,"791,51655078352 ",.02)
 ;;51655078352
 ;;9002226.02101,"791,51655078353 ",.01)
 ;;51655078353
 ;;9002226.02101,"791,51655078353 ",.02)
 ;;51655078353
 ;;9002226.02101,"791,51655078399 ",.01)
 ;;51655078399
 ;;9002226.02101,"791,51655078399 ",.02)
 ;;51655078399
 ;;9002226.02101,"791,51672402700 ",.01)
 ;;51672402700
 ;;9002226.02101,"791,51672402700 ",.02)
 ;;51672402700
 ;;9002226.02101,"791,51672402701 ",.01)
 ;;51672402701
 ;;9002226.02101,"791,51672402701 ",.02)
 ;;51672402701
 ;;9002226.02101,"791,51672402703 ",.01)
 ;;51672402703
 ;;9002226.02101,"791,51672402703 ",.02)
 ;;51672402703
 ;;9002226.02101,"791,51672402707 ",.01)
 ;;51672402707
 ;;9002226.02101,"791,51672402707 ",.02)
 ;;51672402707
 ;;9002226.02101,"791,51672402800 ",.01)
 ;;51672402800
 ;;9002226.02101,"791,51672402800 ",.02)
 ;;51672402800
 ;;9002226.02101,"791,51672402801 ",.01)
 ;;51672402801
 ;;9002226.02101,"791,51672402801 ",.02)
 ;;51672402801
 ;;9002226.02101,"791,51672402803 ",.01)
 ;;51672402803
 ;;9002226.02101,"791,51672402803 ",.02)
 ;;51672402803
 ;;9002226.02101,"791,51672402807 ",.01)
 ;;51672402807
 ;;9002226.02101,"791,51672402807 ",.02)
 ;;51672402807
 ;;9002226.02101,"791,51672402900 ",.01)
 ;;51672402900
 ;;9002226.02101,"791,51672402900 ",.02)
 ;;51672402900
 ;;9002226.02101,"791,51672402901 ",.01)
 ;;51672402901
 ;;9002226.02101,"791,51672402901 ",.02)
 ;;51672402901
 ;;9002226.02101,"791,51672402903 ",.01)
 ;;51672402903
 ;;9002226.02101,"791,51672402903 ",.02)
 ;;51672402903
 ;;9002226.02101,"791,51672402907 ",.01)
 ;;51672402907
 ;;9002226.02101,"791,51672402907 ",.02)
 ;;51672402907
 ;;9002226.02101,"791,51672403000 ",.01)
 ;;51672403000
 ;;9002226.02101,"791,51672403000 ",.02)
 ;;51672403000
 ;;9002226.02101,"791,51672403001 ",.01)
 ;;51672403001
 ;;9002226.02101,"791,51672403001 ",.02)
 ;;51672403001
 ;;9002226.02101,"791,51672403003 ",.01)
 ;;51672403003