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

BGPM3AFZ.m

Go to the documentation of this file.
BGPM3AFZ ;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,652.60 ",.02)
 ;;652.60
 ;;9002226.02101,"804,652.63 ",.01)
 ;;652.63
 ;;9002226.02101,"804,652.63 ",.02)
 ;;652.63
 ;;9002226.02101,"804,652.70 ",.01)
 ;;652.70
 ;;9002226.02101,"804,652.70 ",.02)
 ;;652.70
 ;;9002226.02101,"804,652.73 ",.01)
 ;;652.73
 ;;9002226.02101,"804,652.73 ",.02)
 ;;652.73
 ;;9002226.02101,"804,652.80 ",.01)
 ;;652.80
 ;;9002226.02101,"804,652.80 ",.02)
 ;;652.80
 ;;9002226.02101,"804,652.83 ",.01)
 ;;652.83
 ;;9002226.02101,"804,652.83 ",.02)
 ;;652.83
 ;;9002226.02101,"804,652.90 ",.01)
 ;;652.90
 ;;9002226.02101,"804,652.90 ",.02)
 ;;652.90
 ;;9002226.02101,"804,652.93 ",.01)
 ;;652.93
 ;;9002226.02101,"804,652.93 ",.02)
 ;;652.93
 ;;9002226.02101,"804,653.00 ",.01)
 ;;653.00
 ;;9002226.02101,"804,653.00 ",.02)
 ;;653.00
 ;;9002226.02101,"804,653.03 ",.01)
 ;;653.03
 ;;9002226.02101,"804,653.03 ",.02)
 ;;653.03
 ;;9002226.02101,"804,653.10 ",.01)
 ;;653.10
 ;;9002226.02101,"804,653.10 ",.02)
 ;;653.10
 ;;9002226.02101,"804,653.20 ",.01)
 ;;653.20
 ;;9002226.02101,"804,653.20 ",.02)
 ;;653.20
 ;;9002226.02101,"804,653.23 ",.01)
 ;;653.23
 ;;9002226.02101,"804,653.23 ",.02)
 ;;653.23
 ;;9002226.02101,"804,653.30 ",.01)
 ;;653.30
 ;;9002226.02101,"804,653.30 ",.02)
 ;;653.30
 ;;9002226.02101,"804,653.33 ",.01)
 ;;653.33
 ;;9002226.02101,"804,653.33 ",.02)
 ;;653.33
 ;;9002226.02101,"804,653.40 ",.01)
 ;;653.40
 ;;9002226.02101,"804,653.40 ",.02)
 ;;653.40
 ;;9002226.02101,"804,653.43 ",.01)
 ;;653.43
 ;;9002226.02101,"804,653.43 ",.02)
 ;;653.43
 ;;9002226.02101,"804,653.50 ",.01)
 ;;653.50
 ;;9002226.02101,"804,653.50 ",.02)
 ;;653.50
 ;;9002226.02101,"804,653.53 ",.01)
 ;;653.53
 ;;9002226.02101,"804,653.53 ",.02)
 ;;653.53
 ;;9002226.02101,"804,653.60 ",.01)
 ;;653.60
 ;;9002226.02101,"804,653.60 ",.02)
 ;;653.60
 ;;9002226.02101,"804,653.63 ",.01)
 ;;653.63
 ;;9002226.02101,"804,653.63 ",.02)
 ;;653.63
 ;;9002226.02101,"804,653.70 ",.01)
 ;;653.70
 ;;9002226.02101,"804,653.70 ",.02)
 ;;653.70
 ;;9002226.02101,"804,653.73 ",.01)
 ;;653.73
 ;;9002226.02101,"804,653.73 ",.02)
 ;;653.73
 ;;9002226.02101,"804,653.80 ",.01)
 ;;653.80
 ;;9002226.02101,"804,653.80 ",.02)
 ;;653.80
 ;;9002226.02101,"804,653.83 ",.01)
 ;;653.83
 ;;9002226.02101,"804,653.83 ",.02)
 ;;653.83
 ;;9002226.02101,"804,653.90 ",.01)
 ;;653.90
 ;;9002226.02101,"804,653.90 ",.02)
 ;;653.90
 ;;9002226.02101,"804,653.93 ",.01)
 ;;653.93
 ;;9002226.02101,"804,653.93 ",.02)
 ;;653.93
 ;;9002226.02101,"804,654.00 ",.01)
 ;;654.00
 ;;9002226.02101,"804,654.00 ",.02)
 ;;654.00
 ;;9002226.02101,"804,654.03 ",.01)
 ;;654.03
 ;;9002226.02101,"804,654.03 ",.02)
 ;;654.03
 ;;9002226.02101,"804,654.10 ",.01)
 ;;654.10
 ;;9002226.02101,"804,654.10 ",.02)
 ;;654.10
 ;;9002226.02101,"804,654.13 ",.01)
 ;;654.13
 ;;9002226.02101,"804,654.13 ",.02)
 ;;654.13
 ;;9002226.02101,"804,654.20 ",.01)
 ;;654.20
 ;;9002226.02101,"804,654.20 ",.02)
 ;;654.20
 ;;9002226.02101,"804,654.23 ",.01)
 ;;654.23
 ;;9002226.02101,"804,654.23 ",.02)
 ;;654.23
 ;;9002226.02101,"804,654.30 ",.01)
 ;;654.30
 ;;9002226.02101,"804,654.30 ",.02)
 ;;654.30
 ;;9002226.02101,"804,654.33 ",.01)
 ;;654.33
 ;;9002226.02101,"804,654.33 ",.02)
 ;;654.33
 ;;9002226.02101,"804,654.40 ",.01)
 ;;654.40
 ;;9002226.02101,"804,654.40 ",.02)
 ;;654.40
 ;;9002226.02101,"804,654.43 ",.01)
 ;;654.43
 ;;9002226.02101,"804,654.43 ",.02)
 ;;654.43
 ;;9002226.02101,"804,654.50 ",.01)
 ;;654.50
 ;;9002226.02101,"804,654.50 ",.02)
 ;;654.50
 ;;9002226.02101,"804,654.53 ",.01)
 ;;654.53
 ;;9002226.02101,"804,654.53 ",.02)
 ;;654.53
 ;;9002226.02101,"804,654.60 ",.01)
 ;;654.60
 ;;9002226.02101,"804,654.60 ",.02)
 ;;654.60
 ;;9002226.02101,"804,654.63 ",.01)
 ;;654.63
 ;;9002226.02101,"804,654.63 ",.02)
 ;;654.63
 ;;9002226.02101,"804,654.70 ",.01)
 ;;654.70
 ;;9002226.02101,"804,654.70 ",.02)
 ;;654.70
 ;;9002226.02101,"804,654.73 ",.01)
 ;;654.73
 ;;9002226.02101,"804,654.73 ",.02)
 ;;654.73
 ;;9002226.02101,"804,654.80 ",.01)
 ;;654.80
 ;;9002226.02101,"804,654.80 ",.02)
 ;;654.80
 ;;9002226.02101,"804,654.83 ",.01)
 ;;654.83
 ;;9002226.02101,"804,654.83 ",.02)
 ;;654.83
 ;;9002226.02101,"804,654.90 ",.01)
 ;;654.90
 ;;9002226.02101,"804,654.90 ",.02)
 ;;654.90
 ;;9002226.02101,"804,654.93 ",.01)
 ;;654.93
 ;;9002226.02101,"804,654.93 ",.02)
 ;;654.93
 ;;9002226.02101,"804,655.00 ",.01)
 ;;655.00
 ;;9002226.02101,"804,655.00 ",.02)
 ;;655.00
 ;;9002226.02101,"804,655.03 ",.01)
 ;;655.03
 ;;9002226.02101,"804,655.03 ",.02)
 ;;655.03
 ;;9002226.02101,"804,655.10 ",.01)
 ;;655.10
 ;;9002226.02101,"804,655.10 ",.02)
 ;;655.10
 ;;9002226.02101,"804,655.13 ",.01)
 ;;655.13
 ;;9002226.02101,"804,655.13 ",.02)
 ;;655.13
 ;;9002226.02101,"804,655.20 ",.01)
 ;;655.20
 ;;9002226.02101,"804,655.20 ",.02)
 ;;655.20
 ;;9002226.02101,"804,655.23 ",.01)
 ;;655.23
 ;;9002226.02101,"804,655.23 ",.02)
 ;;655.23
 ;;9002226.02101,"804,655.30 ",.01)
 ;;655.30
 ;;9002226.02101,"804,655.30 ",.02)
 ;;655.30
 ;;9002226.02101,"804,655.33 ",.01)
 ;;655.33
 ;;9002226.02101,"804,655.33 ",.02)
 ;;655.33
 ;;9002226.02101,"804,655.40 ",.01)
 ;;655.40
 ;;9002226.02101,"804,655.40 ",.02)
 ;;655.40
 ;;9002226.02101,"804,655.43 ",.01)
 ;;655.43
 ;;9002226.02101,"804,655.43 ",.02)
 ;;655.43
 ;;9002226.02101,"804,655.50 ",.01)
 ;;655.50
 ;;9002226.02101,"804,655.50 ",.02)
 ;;655.50
 ;;9002226.02101,"804,655.53 ",.01)
 ;;655.53
 ;;9002226.02101,"804,655.53 ",.02)
 ;;655.53
 ;;9002226.02101,"804,655.60 ",.01)
 ;;655.60
 ;;9002226.02101,"804,655.60 ",.02)
 ;;655.60
 ;;9002226.02101,"804,655.63 ",.01)
 ;;655.63
 ;;9002226.02101,"804,655.63 ",.02)
 ;;655.63
 ;;9002226.02101,"804,655.70 ",.01)
 ;;655.70
 ;;9002226.02101,"804,655.70 ",.02)
 ;;655.70
 ;;9002226.02101,"804,655.73 ",.01)
 ;;655.73
 ;;9002226.02101,"804,655.73 ",.02)
 ;;655.73
 ;;9002226.02101,"804,655.80 ",.01)
 ;;655.80
 ;;9002226.02101,"804,655.80 ",.02)
 ;;655.80
 ;;9002226.02101,"804,655.83 ",.01)
 ;;655.83
 ;;9002226.02101,"804,655.83 ",.02)
 ;;655.83
 ;;9002226.02101,"804,655.90 ",.01)
 ;;655.90
 ;;9002226.02101,"804,655.90 ",.02)
 ;;655.90
 ;;9002226.02101,"804,655.93 ",.01)
 ;;655.93
 ;;9002226.02101,"804,655.93 ",.02)
 ;;655.93
 ;;9002226.02101,"804,656.00 ",.01)
 ;;656.00
 ;;9002226.02101,"804,656.00 ",.02)
 ;;656.00
 ;;9002226.02101,"804,656.03 ",.01)
 ;;656.03
 ;;9002226.02101,"804,656.03 ",.02)
 ;;656.03
 ;;9002226.02101,"804,656.10 ",.01)
 ;;656.10
 ;;9002226.02101,"804,656.10 ",.02)
 ;;656.10
 ;;9002226.02101,"804,656.13 ",.01)
 ;;656.13
 ;;9002226.02101,"804,656.13 ",.02)
 ;;656.13
 ;;9002226.02101,"804,656.20 ",.01)
 ;;656.20
 ;;9002226.02101,"804,656.20 ",.02)
 ;;656.20
 ;;9002226.02101,"804,656.23 ",.01)
 ;;656.23
 ;;9002226.02101,"804,656.23 ",.02)
 ;;656.23
 ;;9002226.02101,"804,656.30 ",.01)
 ;;656.30
 ;;9002226.02101,"804,656.30 ",.02)
 ;;656.30
 ;;9002226.02101,"804,656.33 ",.01)
 ;;656.33
 ;;9002226.02101,"804,656.33 ",.02)
 ;;656.33
 ;;9002226.02101,"804,656.40 ",.01)
 ;;656.40
 ;;9002226.02101,"804,656.40 ",.02)
 ;;656.40
 ;;9002226.02101,"804,656.43 ",.01)
 ;;656.43
 ;;9002226.02101,"804,656.43 ",.02)
 ;;656.43
 ;;9002226.02101,"804,656.50 ",.01)
 ;;656.50
 ;;9002226.02101,"804,656.50 ",.02)
 ;;656.50
 ;;9002226.02101,"804,656.53 ",.01)
 ;;656.53
 ;;9002226.02101,"804,656.53 ",.02)
 ;;656.53
 ;;9002226.02101,"804,656.60 ",.01)
 ;;656.60
 ;;9002226.02101,"804,656.60 ",.02)
 ;;656.60
 ;;9002226.02101,"804,656.63 ",.01)
 ;;656.63
 ;;9002226.02101,"804,656.63 ",.02)
 ;;656.63
 ;;9002226.02101,"804,656.70 ",.01)
 ;;656.70
 ;;9002226.02101,"804,656.70 ",.02)
 ;;656.70
 ;;9002226.02101,"804,656.73 ",.01)
 ;;656.73
 ;;9002226.02101,"804,656.73 ",.02)
 ;;656.73
 ;;9002226.02101,"804,656.80 ",.01)
 ;;656.80
 ;;9002226.02101,"804,656.80 ",.02)
 ;;656.80
 ;;9002226.02101,"804,656.83 ",.01)
 ;;656.83
 ;;9002226.02101,"804,656.83 ",.02)
 ;;656.83
 ;;9002226.02101,"804,656.90 ",.01)
 ;;656.90
 ;;9002226.02101,"804,656.90 ",.02)
 ;;656.90
 ;;9002226.02101,"804,656.93 ",.01)
 ;;656.93
 ;;9002226.02101,"804,656.93 ",.02)
 ;;656.93
 ;;9002226.02101,"804,657.00 ",.01)
 ;;657.00
 ;;9002226.02101,"804,657.00 ",.02)
 ;;657.00
 ;;9002226.02101,"804,657.03 ",.01)
 ;;657.03
 ;;9002226.02101,"804,657.03 ",.02)
 ;;657.03
 ;;9002226.02101,"804,658.00 ",.01)
 ;;658.00
 ;;9002226.02101,"804,658.00 ",.02)
 ;;658.00
 ;;9002226.02101,"804,658.03 ",.01)
 ;;658.03
 ;;9002226.02101,"804,658.03 ",.02)
 ;;658.03
 ;;9002226.02101,"804,658.10 ",.01)
 ;;658.10
 ;;9002226.02101,"804,658.10 ",.02)
 ;;658.10
 ;;9002226.02101,"804,658.13 ",.01)
 ;;658.13
 ;;9002226.02101,"804,658.13 ",.02)
 ;;658.13
 ;;9002226.02101,"804,658.20 ",.01)
 ;;658.20
 ;;9002226.02101,"804,658.20 ",.02)
 ;;658.20
 ;;9002226.02101,"804,658.23 ",.01)
 ;;658.23
 ;;9002226.02101,"804,658.23 ",.02)
 ;;658.23
 ;;9002226.02101,"804,658.30 ",.01)
 ;;658.30
 ;;9002226.02101,"804,658.30 ",.02)
 ;;658.30
 ;;9002226.02101,"804,658.33 ",.01)
 ;;658.33
 ;;9002226.02101,"804,658.33 ",.02)
 ;;658.33
 ;;9002226.02101,"804,658.40 ",.01)
 ;;658.40
 ;;9002226.02101,"804,658.40 ",.02)
 ;;658.40
 ;;9002226.02101,"804,658.43 ",.01)
 ;;658.43
 ;;9002226.02101,"804,658.43 ",.02)
 ;;658.43
 ;;9002226.02101,"804,658.80 ",.01)
 ;;658.80
 ;;9002226.02101,"804,658.80 ",.02)
 ;;658.80
 ;;9002226.02101,"804,658.83 ",.01)
 ;;658.83
 ;;9002226.02101,"804,658.83 ",.02)
 ;;658.83
 ;;9002226.02101,"804,658.90 ",.01)
 ;;658.90
 ;;9002226.02101,"804,658.90 ",.02)
 ;;658.90
 ;;9002226.02101,"804,658.93 ",.01)
 ;;658.93
 ;;9002226.02101,"804,658.93 ",.02)
 ;;658.93
 ;;9002226.02101,"804,659.00 ",.01)
 ;;659.00
 ;;9002226.02101,"804,659.00 ",.02)
 ;;659.00
 ;;9002226.02101,"804,659.03 ",.01)
 ;;659.03
 ;;9002226.02101,"804,659.03 ",.02)
 ;;659.03
 ;;9002226.02101,"804,659.10 ",.01)
 ;;659.10
 ;;9002226.02101,"804,659.10 ",.02)
 ;;659.10
 ;;9002226.02101,"804,659.13 ",.01)
 ;;659.13
 ;;9002226.02101,"804,659.13 ",.02)
 ;;659.13
 ;;9002226.02101,"804,659.20 ",.01)
 ;;659.20
 ;;9002226.02101,"804,659.20 ",.02)
 ;;659.20
 ;;9002226.02101,"804,659.23 ",.01)
 ;;659.23
 ;;9002226.02101,"804,659.23 ",.02)
 ;;659.23
 ;;9002226.02101,"804,659.30 ",.01)
 ;;659.30
 ;;9002226.02101,"804,659.30 ",.02)
 ;;659.30
 ;;9002226.02101,"804,659.33 ",.01)
 ;;659.33
 ;;9002226.02101,"804,659.33 ",.02)
 ;;659.33
 ;;9002226.02101,"804,659.40 ",.01)
 ;;659.40
 ;;9002226.02101,"804,659.40 ",.02)
 ;;659.40
 ;;9002226.02101,"804,659.43 ",.01)
 ;;659.43
 ;;9002226.02101,"804,659.43 ",.02)
 ;;659.43
 ;;9002226.02101,"804,659.50 ",.01)
 ;;659.50
 ;;9002226.02101,"804,659.50 ",.02)
 ;;659.50
 ;;9002226.02101,"804,659.53 ",.01)
 ;;659.53
 ;;9002226.02101,"804,659.53 ",.02)
 ;;659.53
 ;;9002226.02101,"804,659.60 ",.01)
 ;;659.60
 ;;9002226.02101,"804,659.60 ",.02)
 ;;659.60
 ;;9002226.02101,"804,659.63 ",.01)
 ;;659.63
 ;;9002226.02101,"804,659.63 ",.02)
 ;;659.63
 ;;9002226.02101,"804,659.70 ",.01)
 ;;659.70
 ;;9002226.02101,"804,659.70 ",.02)
 ;;659.70
 ;;9002226.02101,"804,659.73 ",.01)
 ;;659.73
 ;;9002226.02101,"804,659.73 ",.02)
 ;;659.73
 ;;9002226.02101,"804,659.80 ",.01)
 ;;659.80
 ;;9002226.02101,"804,659.80 ",.02)
 ;;659.80
 ;;9002226.02101,"804,659.83 ",.01)
 ;;659.83
 ;;9002226.02101,"804,659.83 ",.02)
 ;;659.83
 ;;9002226.02101,"804,659.90 ",.01)
 ;;659.90
 ;;9002226.02101,"804,659.90 ",.02)
 ;;659.90
 ;;9002226.02101,"804,660.00 ",.01)
 ;;660.00