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

BGPM3AG.m

Go to the documentation of this file.
BGPM3AG ;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,660.00 ",.02)
 ;;660.00
 ;;9002226.02101,"804,660.03 ",.01)
 ;;660.03
 ;;9002226.02101,"804,660.03 ",.02)
 ;;660.03
 ;;9002226.02101,"804,660.10 ",.01)
 ;;660.10
 ;;9002226.02101,"804,660.10 ",.02)
 ;;660.10
 ;;9002226.02101,"804,660.13 ",.01)
 ;;660.13
 ;;9002226.02101,"804,660.13 ",.02)
 ;;660.13
 ;;9002226.02101,"804,660.20 ",.01)
 ;;660.20
 ;;9002226.02101,"804,660.20 ",.02)
 ;;660.20
 ;;9002226.02101,"804,660.23 ",.01)
 ;;660.23
 ;;9002226.02101,"804,660.23 ",.02)
 ;;660.23
 ;;9002226.02101,"804,660.30 ",.01)
 ;;660.30
 ;;9002226.02101,"804,660.30 ",.02)
 ;;660.30
 ;;9002226.02101,"804,660.33 ",.01)
 ;;660.33
 ;;9002226.02101,"804,660.33 ",.02)
 ;;660.33
 ;;9002226.02101,"804,660.40 ",.01)
 ;;660.40
 ;;9002226.02101,"804,660.40 ",.02)
 ;;660.40
 ;;9002226.02101,"804,660.43 ",.01)
 ;;660.43
 ;;9002226.02101,"804,660.43 ",.02)
 ;;660.43
 ;;9002226.02101,"804,660.50 ",.01)
 ;;660.50
 ;;9002226.02101,"804,660.50 ",.02)
 ;;660.50
 ;;9002226.02101,"804,660.53 ",.01)
 ;;660.53
 ;;9002226.02101,"804,660.53 ",.02)
 ;;660.53
 ;;9002226.02101,"804,660.60 ",.01)
 ;;660.60
 ;;9002226.02101,"804,660.60 ",.02)
 ;;660.60
 ;;9002226.02101,"804,660.63 ",.01)
 ;;660.63
 ;;9002226.02101,"804,660.63 ",.02)
 ;;660.63
 ;;9002226.02101,"804,660.70 ",.01)
 ;;660.70
 ;;9002226.02101,"804,660.70 ",.02)
 ;;660.70
 ;;9002226.02101,"804,660.73 ",.01)
 ;;660.73
 ;;9002226.02101,"804,660.73 ",.02)
 ;;660.73
 ;;9002226.02101,"804,660.80 ",.01)
 ;;660.80
 ;;9002226.02101,"804,660.80 ",.02)
 ;;660.80
 ;;9002226.02101,"804,660.83 ",.01)
 ;;660.83
 ;;9002226.02101,"804,660.83 ",.02)
 ;;660.83
 ;;9002226.02101,"804,660.90 ",.01)
 ;;660.90
 ;;9002226.02101,"804,660.90 ",.02)
 ;;660.90
 ;;9002226.02101,"804,660.93 ",.01)
 ;;660.93
 ;;9002226.02101,"804,660.93 ",.02)
 ;;660.93
 ;;9002226.02101,"804,661.00 ",.01)
 ;;661.00
 ;;9002226.02101,"804,661.00 ",.02)
 ;;661.00
 ;;9002226.02101,"804,661.03 ",.01)
 ;;661.03
 ;;9002226.02101,"804,661.03 ",.02)
 ;;661.03
 ;;9002226.02101,"804,661.10 ",.01)
 ;;661.10
 ;;9002226.02101,"804,661.10 ",.02)
 ;;661.10
 ;;9002226.02101,"804,661.13 ",.01)
 ;;661.13
 ;;9002226.02101,"804,661.13 ",.02)
 ;;661.13
 ;;9002226.02101,"804,661.20 ",.01)
 ;;661.20
 ;;9002226.02101,"804,661.20 ",.02)
 ;;661.20
 ;;9002226.02101,"804,661.23 ",.01)
 ;;661.23
 ;;9002226.02101,"804,661.23 ",.02)
 ;;661.23
 ;;9002226.02101,"804,661.30 ",.01)
 ;;661.30
 ;;9002226.02101,"804,661.30 ",.02)
 ;;661.30
 ;;9002226.02101,"804,661.33 ",.01)
 ;;661.33
 ;;9002226.02101,"804,661.33 ",.02)
 ;;661.33
 ;;9002226.02101,"804,661.40 ",.01)
 ;;661.40
 ;;9002226.02101,"804,661.40 ",.02)
 ;;661.40
 ;;9002226.02101,"804,661.43 ",.01)
 ;;661.43
 ;;9002226.02101,"804,661.43 ",.02)
 ;;661.43
 ;;9002226.02101,"804,661.90 ",.01)
 ;;661.90
 ;;9002226.02101,"804,661.90 ",.02)
 ;;661.90
 ;;9002226.02101,"804,661.93 ",.01)
 ;;661.93
 ;;9002226.02101,"804,661.93 ",.02)
 ;;661.93
 ;;9002226.02101,"804,662.00 ",.01)
 ;;662.00
 ;;9002226.02101,"804,662.00 ",.02)
 ;;662.00
 ;;9002226.02101,"804,662.03 ",.01)
 ;;662.03
 ;;9002226.02101,"804,662.03 ",.02)
 ;;662.03
 ;;9002226.02101,"804,662.10 ",.01)
 ;;662.10
 ;;9002226.02101,"804,662.10 ",.02)
 ;;662.10
 ;;9002226.02101,"804,662.13 ",.01)
 ;;662.13
 ;;9002226.02101,"804,662.13 ",.02)
 ;;662.13
 ;;9002226.02101,"804,662.20 ",.01)
 ;;662.20
 ;;9002226.02101,"804,662.20 ",.02)
 ;;662.20
 ;;9002226.02101,"804,662.23 ",.01)
 ;;662.23
 ;;9002226.02101,"804,662.23 ",.02)
 ;;662.23
 ;;9002226.02101,"804,662.30 ",.01)
 ;;662.30
 ;;9002226.02101,"804,662.30 ",.02)
 ;;662.30
 ;;9002226.02101,"804,662.33 ",.01)
 ;;662.33
 ;;9002226.02101,"804,662.33 ",.02)
 ;;662.33
 ;;9002226.02101,"804,663.00 ",.01)
 ;;663.00
 ;;9002226.02101,"804,663.00 ",.02)
 ;;663.00
 ;;9002226.02101,"804,663.03 ",.01)
 ;;663.03
 ;;9002226.02101,"804,663.03 ",.02)
 ;;663.03
 ;;9002226.02101,"804,663.10 ",.01)
 ;;663.10
 ;;9002226.02101,"804,663.10 ",.02)
 ;;663.10
 ;;9002226.02101,"804,663.13 ",.01)
 ;;663.13
 ;;9002226.02101,"804,663.13 ",.02)
 ;;663.13
 ;;9002226.02101,"804,663.20 ",.01)
 ;;663.20
 ;;9002226.02101,"804,663.20 ",.02)
 ;;663.20
 ;;9002226.02101,"804,663.23 ",.01)
 ;;663.23
 ;;9002226.02101,"804,663.23 ",.02)
 ;;663.23
 ;;9002226.02101,"804,663.30 ",.01)
 ;;663.30
 ;;9002226.02101,"804,663.30 ",.02)
 ;;663.30
 ;;9002226.02101,"804,663.33 ",.01)
 ;;663.33
 ;;9002226.02101,"804,663.33 ",.02)
 ;;663.33
 ;;9002226.02101,"804,663.40 ",.01)
 ;;663.40
 ;;9002226.02101,"804,663.40 ",.02)
 ;;663.40
 ;;9002226.02101,"804,663.43 ",.01)
 ;;663.43
 ;;9002226.02101,"804,663.43 ",.02)
 ;;663.43
 ;;9002226.02101,"804,663.50 ",.01)
 ;;663.50
 ;;9002226.02101,"804,663.50 ",.02)
 ;;663.50
 ;;9002226.02101,"804,663.53 ",.01)
 ;;663.53
 ;;9002226.02101,"804,663.53 ",.02)
 ;;663.53
 ;;9002226.02101,"804,663.60 ",.01)
 ;;663.60
 ;;9002226.02101,"804,663.60 ",.02)
 ;;663.60
 ;;9002226.02101,"804,663.63 ",.01)
 ;;663.63
 ;;9002226.02101,"804,663.63 ",.02)
 ;;663.63
 ;;9002226.02101,"804,663.80 ",.01)
 ;;663.80
 ;;9002226.02101,"804,663.80 ",.02)
 ;;663.80
 ;;9002226.02101,"804,663.83 ",.01)
 ;;663.83
 ;;9002226.02101,"804,663.83 ",.02)
 ;;663.83
 ;;9002226.02101,"804,663.90 ",.01)
 ;;663.90
 ;;9002226.02101,"804,663.90 ",.02)
 ;;663.90
 ;;9002226.02101,"804,663.93 ",.01)
 ;;663.93
 ;;9002226.02101,"804,663.93 ",.02)
 ;;663.93
 ;;9002226.02101,"804,665.00 ",.01)
 ;;665.00
 ;;9002226.02101,"804,665.00 ",.02)
 ;;665.00
 ;;9002226.02101,"804,665.03 ",.01)
 ;;665.03
 ;;9002226.02101,"804,665.03 ",.02)
 ;;665.03
 ;;9002226.02101,"804,665.80 ",.01)
 ;;665.80
 ;;9002226.02101,"804,665.80 ",.02)
 ;;665.80
 ;;9002226.02101,"804,665.83 ",.01)
 ;;665.83
 ;;9002226.02101,"804,665.83 ",.02)
 ;;665.83
 ;;9002226.02101,"804,665.90 ",.01)
 ;;665.90
 ;;9002226.02101,"804,665.90 ",.02)
 ;;665.90
 ;;9002226.02101,"804,665.93 ",.01)
 ;;665.93
 ;;9002226.02101,"804,665.93 ",.02)
 ;;665.93
 ;;9002226.02101,"804,671.00 ",.01)
 ;;671.00
 ;;9002226.02101,"804,671.00 ",.02)
 ;;671.00
 ;;9002226.02101,"804,671.03 ",.01)
 ;;671.03
 ;;9002226.02101,"804,671.03 ",.02)
 ;;671.03
 ;;9002226.02101,"804,671.10 ",.01)
 ;;671.10
 ;;9002226.02101,"804,671.10 ",.02)
 ;;671.10
 ;;9002226.02101,"804,671.13 ",.01)
 ;;671.13
 ;;9002226.02101,"804,671.13 ",.02)
 ;;671.13
 ;;9002226.02101,"804,671.20 ",.01)
 ;;671.20
 ;;9002226.02101,"804,671.20 ",.02)
 ;;671.20
 ;;9002226.02101,"804,671.23 ",.01)
 ;;671.23
 ;;9002226.02101,"804,671.23 ",.02)
 ;;671.23
 ;;9002226.02101,"804,671.30 ",.01)
 ;;671.30
 ;;9002226.02101,"804,671.30 ",.02)
 ;;671.30
 ;;9002226.02101,"804,671.33 ",.01)
 ;;671.33
 ;;9002226.02101,"804,671.33 ",.02)
 ;;671.33
 ;;9002226.02101,"804,671.50 ",.01)
 ;;671.50
 ;;9002226.02101,"804,671.50 ",.02)
 ;;671.50
 ;;9002226.02101,"804,671.53 ",.01)
 ;;671.53
 ;;9002226.02101,"804,671.53 ",.02)
 ;;671.53
 ;;9002226.02101,"804,671.80 ",.01)
 ;;671.80
 ;;9002226.02101,"804,671.80 ",.02)
 ;;671.80
 ;;9002226.02101,"804,671.83 ",.01)
 ;;671.83
 ;;9002226.02101,"804,671.83 ",.02)
 ;;671.83
 ;;9002226.02101,"804,671.90 ",.01)
 ;;671.90
 ;;9002226.02101,"804,671.90 ",.02)
 ;;671.90
 ;;9002226.02101,"804,671.93 ",.01)
 ;;671.93
 ;;9002226.02101,"804,671.93 ",.02)
 ;;671.93
 ;;9002226.02101,"804,673.00 ",.01)
 ;;673.00
 ;;9002226.02101,"804,673.00 ",.02)
 ;;673.00
 ;;9002226.02101,"804,673.03 ",.01)
 ;;673.03
 ;;9002226.02101,"804,673.03 ",.02)
 ;;673.03
 ;;9002226.02101,"804,673.10 ",.01)
 ;;673.10
 ;;9002226.02101,"804,673.10 ",.02)
 ;;673.10
 ;;9002226.02101,"804,673.13 ",.01)
 ;;673.13
 ;;9002226.02101,"804,673.13 ",.02)
 ;;673.13
 ;;9002226.02101,"804,673.20 ",.01)
 ;;673.20
 ;;9002226.02101,"804,673.20 ",.02)
 ;;673.20
 ;;9002226.02101,"804,673.23 ",.01)
 ;;673.23
 ;;9002226.02101,"804,673.23 ",.02)
 ;;673.23
 ;;9002226.02101,"804,673.30 ",.01)
 ;;673.30
 ;;9002226.02101,"804,673.30 ",.02)
 ;;673.30
 ;;9002226.02101,"804,673.33 ",.01)
 ;;673.33
 ;;9002226.02101,"804,673.33 ",.02)
 ;;673.33
 ;;9002226.02101,"804,673.80 ",.01)
 ;;673.80
 ;;9002226.02101,"804,673.80 ",.02)
 ;;673.80
 ;;9002226.02101,"804,673.83 ",.01)
 ;;673.83
 ;;9002226.02101,"804,673.83 ",.02)
 ;;673.83
 ;;9002226.02101,"804,V23.9 ",.01)
 ;;V23.9
 ;;9002226.02101,"804,V23.9 ",.02)
 ;;V23.9
 ;;9002226.02101,"804,V72.42 ",.01)
 ;;V72.42
 ;;9002226.02101,"804,V72.42 ",.02)
 ;;V72.42