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

BGPM3AFY.m

Go to the documentation of this file.
BGPM3AFY ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON MAY 26, 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,"804,642.30 ",.02)
 ;;642.30
 ;;9002226.02101,"804,642.33 ",.01)
 ;;642.33
 ;;9002226.02101,"804,642.33 ",.02)
 ;;642.33
 ;;9002226.02101,"804,642.40 ",.01)
 ;;642.40
 ;;9002226.02101,"804,642.40 ",.02)
 ;;642.40
 ;;9002226.02101,"804,642.43 ",.01)
 ;;642.43
 ;;9002226.02101,"804,642.43 ",.02)
 ;;642.43
 ;;9002226.02101,"804,642.50 ",.01)
 ;;642.50
 ;;9002226.02101,"804,642.50 ",.02)
 ;;642.50
 ;;9002226.02101,"804,642.53 ",.01)
 ;;642.53
 ;;9002226.02101,"804,642.53 ",.02)
 ;;642.53
 ;;9002226.02101,"804,642.60 ",.01)
 ;;642.60
 ;;9002226.02101,"804,642.60 ",.02)
 ;;642.60
 ;;9002226.02101,"804,642.63 ",.01)
 ;;642.63
 ;;9002226.02101,"804,642.63 ",.02)
 ;;642.63
 ;;9002226.02101,"804,642.70 ",.01)
 ;;642.70
 ;;9002226.02101,"804,642.70 ",.02)
 ;;642.70
 ;;9002226.02101,"804,642.73 ",.01)
 ;;642.73
 ;;9002226.02101,"804,642.73 ",.02)
 ;;642.73
 ;;9002226.02101,"804,642.90 ",.01)
 ;;642.90
 ;;9002226.02101,"804,642.90 ",.02)
 ;;642.90
 ;;9002226.02101,"804,642.93 ",.01)
 ;;642.93
 ;;9002226.02101,"804,642.93 ",.02)
 ;;642.93
 ;;9002226.02101,"804,643.00 ",.01)
 ;;643.00
 ;;9002226.02101,"804,643.00 ",.02)
 ;;643.00
 ;;9002226.02101,"804,643.10 ",.01)
 ;;643.10
 ;;9002226.02101,"804,643.10 ",.02)
 ;;643.10
 ;;9002226.02101,"804,643.20 ",.01)
 ;;643.20
 ;;9002226.02101,"804,643.20 ",.02)
 ;;643.20
 ;;9002226.02101,"804,643.80 ",.01)
 ;;643.80
 ;;9002226.02101,"804,643.80 ",.02)
 ;;643.80
 ;;9002226.02101,"804,643.90 ",.01)
 ;;643.90
 ;;9002226.02101,"804,643.90 ",.02)
 ;;643.90
 ;;9002226.02101,"804,644.13 ",.01)
 ;;644.13
 ;;9002226.02101,"804,644.13 ",.02)
 ;;644.13
 ;;9002226.02101,"804,645.00 ",.01)
 ;;645.00
 ;;9002226.02101,"804,645.00 ",.02)
 ;;645.00
 ;;9002226.02101,"804,645.10 ",.01)
 ;;645.10
 ;;9002226.02101,"804,645.10 ",.02)
 ;;645.10
 ;;9002226.02101,"804,645.20 ",.01)
 ;;645.20
 ;;9002226.02101,"804,645.20 ",.02)
 ;;645.20
 ;;9002226.02101,"804,646.00 ",.01)
 ;;646.00
 ;;9002226.02101,"804,646.00 ",.02)
 ;;646.00
 ;;9002226.02101,"804,646.10 ",.01)
 ;;646.10
 ;;9002226.02101,"804,646.10 ",.02)
 ;;646.10
 ;;9002226.02101,"804,646.20 ",.01)
 ;;646.20
 ;;9002226.02101,"804,646.20 ",.02)
 ;;646.20
 ;;9002226.02101,"804,646.23 ",.01)
 ;;646.23
 ;;9002226.02101,"804,646.23 ",.02)
 ;;646.23
 ;;9002226.02101,"804,646.30 ",.01)
 ;;646.30
 ;;9002226.02101,"804,646.30 ",.02)
 ;;646.30
 ;;9002226.02101,"804,646.40 ",.01)
 ;;646.40
 ;;9002226.02101,"804,646.40 ",.02)
 ;;646.40
 ;;9002226.02101,"804,646.43 ",.01)
 ;;646.43
 ;;9002226.02101,"804,646.43 ",.02)
 ;;646.43
 ;;9002226.02101,"804,646.50 ",.01)
 ;;646.50
 ;;9002226.02101,"804,646.50 ",.02)
 ;;646.50
 ;;9002226.02101,"804,646.53 ",.01)
 ;;646.53
 ;;9002226.02101,"804,646.53 ",.02)
 ;;646.53
 ;;9002226.02101,"804,646.60 ",.01)
 ;;646.60
 ;;9002226.02101,"804,646.60 ",.02)
 ;;646.60
 ;;9002226.02101,"804,646.63 ",.01)
 ;;646.63
 ;;9002226.02101,"804,646.63 ",.02)
 ;;646.63
 ;;9002226.02101,"804,646.70 ",.01)
 ;;646.70
 ;;9002226.02101,"804,646.70 ",.02)
 ;;646.70
 ;;9002226.02101,"804,646.80 ",.01)
 ;;646.80
 ;;9002226.02101,"804,646.80 ",.02)
 ;;646.80
 ;;9002226.02101,"804,646.83 ",.01)
 ;;646.83
 ;;9002226.02101,"804,646.83 ",.02)
 ;;646.83
 ;;9002226.02101,"804,646.90 ",.01)
 ;;646.90
 ;;9002226.02101,"804,646.90 ",.02)
 ;;646.90
 ;;9002226.02101,"804,647.00 ",.01)
 ;;647.00
 ;;9002226.02101,"804,647.00 ",.02)
 ;;647.00
 ;;9002226.02101,"804,647.03 ",.01)
 ;;647.03
 ;;9002226.02101,"804,647.03 ",.02)
 ;;647.03
 ;;9002226.02101,"804,647.10 ",.01)
 ;;647.10
 ;;9002226.02101,"804,647.10 ",.02)
 ;;647.10
 ;;9002226.02101,"804,647.13 ",.01)
 ;;647.13
 ;;9002226.02101,"804,647.13 ",.02)
 ;;647.13
 ;;9002226.02101,"804,647.20 ",.01)
 ;;647.20
 ;;9002226.02101,"804,647.20 ",.02)
 ;;647.20
 ;;9002226.02101,"804,647.23 ",.01)
 ;;647.23
 ;;9002226.02101,"804,647.23 ",.02)
 ;;647.23
 ;;9002226.02101,"804,647.30 ",.01)
 ;;647.30
 ;;9002226.02101,"804,647.30 ",.02)
 ;;647.30
 ;;9002226.02101,"804,647.33 ",.01)
 ;;647.33
 ;;9002226.02101,"804,647.33 ",.02)
 ;;647.33
 ;;9002226.02101,"804,647.40 ",.01)
 ;;647.40
 ;;9002226.02101,"804,647.40 ",.02)
 ;;647.40
 ;;9002226.02101,"804,647.43 ",.01)
 ;;647.43
 ;;9002226.02101,"804,647.43 ",.02)
 ;;647.43
 ;;9002226.02101,"804,647.50 ",.01)
 ;;647.50
 ;;9002226.02101,"804,647.50 ",.02)
 ;;647.50
 ;;9002226.02101,"804,647.53 ",.01)
 ;;647.53
 ;;9002226.02101,"804,647.53 ",.02)
 ;;647.53
 ;;9002226.02101,"804,647.60 ",.01)
 ;;647.60
 ;;9002226.02101,"804,647.60 ",.02)
 ;;647.60
 ;;9002226.02101,"804,647.63 ",.01)
 ;;647.63
 ;;9002226.02101,"804,647.63 ",.02)
 ;;647.63
 ;;9002226.02101,"804,647.80 ",.01)
 ;;647.80
 ;;9002226.02101,"804,647.80 ",.02)
 ;;647.80
 ;;9002226.02101,"804,647.83 ",.01)
 ;;647.83
 ;;9002226.02101,"804,647.83 ",.02)
 ;;647.83
 ;;9002226.02101,"804,647.90 ",.01)
 ;;647.90
 ;;9002226.02101,"804,647.90 ",.02)
 ;;647.90
 ;;9002226.02101,"804,647.93 ",.01)
 ;;647.93
 ;;9002226.02101,"804,647.93 ",.02)
 ;;647.93
 ;;9002226.02101,"804,648.00 ",.01)
 ;;648.00
 ;;9002226.02101,"804,648.00 ",.02)
 ;;648.00
 ;;9002226.02101,"804,648.03 ",.01)
 ;;648.03
 ;;9002226.02101,"804,648.03 ",.02)
 ;;648.03
 ;;9002226.02101,"804,648.10 ",.01)
 ;;648.10
 ;;9002226.02101,"804,648.10 ",.02)
 ;;648.10
 ;;9002226.02101,"804,648.13 ",.01)
 ;;648.13
 ;;9002226.02101,"804,648.13 ",.02)
 ;;648.13
 ;;9002226.02101,"804,648.20 ",.01)
 ;;648.20
 ;;9002226.02101,"804,648.20 ",.02)
 ;;648.20
 ;;9002226.02101,"804,648.23 ",.01)
 ;;648.23
 ;;9002226.02101,"804,648.23 ",.02)
 ;;648.23
 ;;9002226.02101,"804,648.30 ",.01)
 ;;648.30
 ;;9002226.02101,"804,648.30 ",.02)
 ;;648.30
 ;;9002226.02101,"804,648.33 ",.01)
 ;;648.33
 ;;9002226.02101,"804,648.33 ",.02)
 ;;648.33
 ;;9002226.02101,"804,648.40 ",.01)
 ;;648.40
 ;;9002226.02101,"804,648.40 ",.02)
 ;;648.40
 ;;9002226.02101,"804,648.43 ",.01)
 ;;648.43
 ;;9002226.02101,"804,648.43 ",.02)
 ;;648.43
 ;;9002226.02101,"804,648.50 ",.01)
 ;;648.50
 ;;9002226.02101,"804,648.50 ",.02)
 ;;648.50
 ;;9002226.02101,"804,648.53 ",.01)
 ;;648.53
 ;;9002226.02101,"804,648.53 ",.02)
 ;;648.53
 ;;9002226.02101,"804,648.60 ",.01)
 ;;648.60
 ;;9002226.02101,"804,648.60 ",.02)
 ;;648.60
 ;;9002226.02101,"804,648.63 ",.01)
 ;;648.63
 ;;9002226.02101,"804,648.63 ",.02)
 ;;648.63
 ;;9002226.02101,"804,648.70 ",.01)
 ;;648.70
 ;;9002226.02101,"804,648.70 ",.02)
 ;;648.70
 ;;9002226.02101,"804,648.73 ",.01)
 ;;648.73
 ;;9002226.02101,"804,648.73 ",.02)
 ;;648.73
 ;;9002226.02101,"804,648.80 ",.01)
 ;;648.80
 ;;9002226.02101,"804,648.80 ",.02)
 ;;648.80
 ;;9002226.02101,"804,648.83 ",.01)
 ;;648.83
 ;;9002226.02101,"804,648.83 ",.02)
 ;;648.83
 ;;9002226.02101,"804,648.90 ",.01)
 ;;648.90
 ;;9002226.02101,"804,648.90 ",.02)
 ;;648.90
 ;;9002226.02101,"804,648.93 ",.01)
 ;;648.93
 ;;9002226.02101,"804,648.93 ",.02)
 ;;648.93
 ;;9002226.02101,"804,649.00 ",.01)
 ;;649.00
 ;;9002226.02101,"804,649.00 ",.02)
 ;;649.00
 ;;9002226.02101,"804,649.03 ",.01)
 ;;649.03
 ;;9002226.02101,"804,649.03 ",.02)
 ;;649.03
 ;;9002226.02101,"804,649.10 ",.01)
 ;;649.10
 ;;9002226.02101,"804,649.10 ",.02)
 ;;649.10
 ;;9002226.02101,"804,649.13 ",.01)
 ;;649.13
 ;;9002226.02101,"804,649.13 ",.02)
 ;;649.13
 ;;9002226.02101,"804,649.20 ",.01)
 ;;649.20
 ;;9002226.02101,"804,649.20 ",.02)
 ;;649.20
 ;;9002226.02101,"804,649.23 ",.01)
 ;;649.23
 ;;9002226.02101,"804,649.23 ",.02)
 ;;649.23
 ;;9002226.02101,"804,649.30 ",.01)
 ;;649.30
 ;;9002226.02101,"804,649.30 ",.02)
 ;;649.30
 ;;9002226.02101,"804,649.33 ",.01)
 ;;649.33
 ;;9002226.02101,"804,649.33 ",.02)
 ;;649.33
 ;;9002226.02101,"804,649.40 ",.01)
 ;;649.40
 ;;9002226.02101,"804,649.40 ",.02)
 ;;649.40
 ;;9002226.02101,"804,649.43 ",.01)
 ;;649.43
 ;;9002226.02101,"804,649.43 ",.02)
 ;;649.43
 ;;9002226.02101,"804,649.50 ",.01)
 ;;649.50
 ;;9002226.02101,"804,649.50 ",.02)
 ;;649.50
 ;;9002226.02101,"804,649.53 ",.01)
 ;;649.53
 ;;9002226.02101,"804,649.53 ",.02)
 ;;649.53
 ;;9002226.02101,"804,649.60 ",.01)
 ;;649.60
 ;;9002226.02101,"804,649.60 ",.02)
 ;;649.60
 ;;9002226.02101,"804,649.63 ",.01)
 ;;649.63
 ;;9002226.02101,"804,649.63 ",.02)
 ;;649.63
 ;;9002226.02101,"804,649.70 ",.01)
 ;;649.70
 ;;9002226.02101,"804,649.70 ",.02)
 ;;649.70
 ;;9002226.02101,"804,649.73 ",.01)
 ;;649.73
 ;;9002226.02101,"804,649.73 ",.02)
 ;;649.73
 ;;9002226.02101,"804,651.00 ",.01)
 ;;651.00
 ;;9002226.02101,"804,651.00 ",.02)
 ;;651.00
 ;;9002226.02101,"804,651.03 ",.01)
 ;;651.03
 ;;9002226.02101,"804,651.03 ",.02)
 ;;651.03
 ;;9002226.02101,"804,651.10 ",.01)
 ;;651.10
 ;;9002226.02101,"804,651.10 ",.02)
 ;;651.10
 ;;9002226.02101,"804,651.13 ",.01)
 ;;651.13
 ;;9002226.02101,"804,651.13 ",.02)
 ;;651.13
 ;;9002226.02101,"804,651.20 ",.01)
 ;;651.20
 ;;9002226.02101,"804,651.20 ",.02)
 ;;651.20
 ;;9002226.02101,"804,651.23 ",.01)
 ;;651.23
 ;;9002226.02101,"804,651.23 ",.02)
 ;;651.23
 ;;9002226.02101,"804,651.30 ",.01)
 ;;651.30
 ;;9002226.02101,"804,651.30 ",.02)
 ;;651.30
 ;;9002226.02101,"804,651.33 ",.01)
 ;;651.33
 ;;9002226.02101,"804,651.33 ",.02)
 ;;651.33
 ;;9002226.02101,"804,651.40 ",.01)
 ;;651.40
 ;;9002226.02101,"804,651.40 ",.02)
 ;;651.40
 ;;9002226.02101,"804,651.43 ",.01)
 ;;651.43
 ;;9002226.02101,"804,651.43 ",.02)
 ;;651.43
 ;;9002226.02101,"804,651.50 ",.01)
 ;;651.50
 ;;9002226.02101,"804,651.50 ",.02)
 ;;651.50
 ;;9002226.02101,"804,651.53 ",.01)
 ;;651.53
 ;;9002226.02101,"804,651.53 ",.02)
 ;;651.53
 ;;9002226.02101,"804,651.60 ",.01)
 ;;651.60
 ;;9002226.02101,"804,651.60 ",.02)
 ;;651.60
 ;;9002226.02101,"804,651.63 ",.01)
 ;;651.63
 ;;9002226.02101,"804,651.63 ",.02)
 ;;651.63
 ;;9002226.02101,"804,651.70 ",.01)
 ;;651.70
 ;;9002226.02101,"804,651.70 ",.02)
 ;;651.70
 ;;9002226.02101,"804,651.73 ",.01)
 ;;651.73
 ;;9002226.02101,"804,651.73 ",.02)
 ;;651.73
 ;;9002226.02101,"804,651.80 ",.01)
 ;;651.80
 ;;9002226.02101,"804,651.80 ",.02)
 ;;651.80
 ;;9002226.02101,"804,651.83 ",.01)
 ;;651.83
 ;;9002226.02101,"804,651.83 ",.02)
 ;;651.83
 ;;9002226.02101,"804,651.90 ",.01)
 ;;651.90
 ;;9002226.02101,"804,651.90 ",.02)
 ;;651.90
 ;;9002226.02101,"804,651.93 ",.01)
 ;;651.93
 ;;9002226.02101,"804,651.93 ",.02)
 ;;651.93
 ;;9002226.02101,"804,652.00 ",.01)
 ;;652.00
 ;;9002226.02101,"804,652.00 ",.02)
 ;;652.00
 ;;9002226.02101,"804,652.03 ",.01)
 ;;652.03
 ;;9002226.02101,"804,652.03 ",.02)
 ;;652.03
 ;;9002226.02101,"804,652.10 ",.01)
 ;;652.10
 ;;9002226.02101,"804,652.10 ",.02)
 ;;652.10
 ;;9002226.02101,"804,652.13 ",.01)
 ;;652.13
 ;;9002226.02101,"804,652.13 ",.02)
 ;;652.13
 ;;9002226.02101,"804,652.20 ",.01)
 ;;652.20
 ;;9002226.02101,"804,652.20 ",.02)
 ;;652.20
 ;;9002226.02101,"804,652.23 ",.01)
 ;;652.23
 ;;9002226.02101,"804,652.23 ",.02)
 ;;652.23
 ;;9002226.02101,"804,652.30 ",.01)
 ;;652.30
 ;;9002226.02101,"804,652.30 ",.02)
 ;;652.30
 ;;9002226.02101,"804,652.33 ",.01)
 ;;652.33
 ;;9002226.02101,"804,652.33 ",.02)
 ;;652.33
 ;;9002226.02101,"804,652.40 ",.01)
 ;;652.40
 ;;9002226.02101,"804,652.40 ",.02)
 ;;652.40
 ;;9002226.02101,"804,652.43 ",.01)
 ;;652.43
 ;;9002226.02101,"804,652.43 ",.02)
 ;;652.43
 ;;9002226.02101,"804,652.50 ",.01)
 ;;652.50
 ;;9002226.02101,"804,652.50 ",.02)
 ;;652.50
 ;;9002226.02101,"804,652.53 ",.01)
 ;;652.53
 ;;9002226.02101,"804,652.53 ",.02)
 ;;652.53
 ;;9002226.02101,"804,652.60 ",.01)
 ;;652.60