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

BGPM5AOQ.m

Go to the documentation of this file.
BGPM5AOQ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"993,827 ",.02)
 ;;827
 ;;9002226.02101,"993,827.0 ",.01)
 ;;827.0
 ;;9002226.02101,"993,827.0 ",.02)
 ;;827.0
 ;;9002226.02101,"993,827.1 ",.01)
 ;;827.1
 ;;9002226.02101,"993,827.1 ",.02)
 ;;827.1
 ;;9002226.02101,"993,828 ",.01)
 ;;828
 ;;9002226.02101,"993,828 ",.02)
 ;;828
 ;;9002226.02101,"993,828.0 ",.01)
 ;;828.0
 ;;9002226.02101,"993,828.0 ",.02)
 ;;828.0
 ;;9002226.02101,"993,828.1 ",.01)
 ;;828.1
 ;;9002226.02101,"993,828.1 ",.02)
 ;;828.1
 ;;9002226.02101,"993,829 ",.01)
 ;;829
 ;;9002226.02101,"993,829 ",.02)
 ;;829
 ;;9002226.02101,"993,829.0 ",.01)
 ;;829.0
 ;;9002226.02101,"993,829.0 ",.02)
 ;;829.0
 ;;9002226.02101,"993,829.1 ",.01)
 ;;829.1
 ;;9002226.02101,"993,829.1 ",.02)
 ;;829.1
 ;;9002226.02101,"993,830 ",.01)
 ;;830
 ;;9002226.02101,"993,830 ",.02)
 ;;830
 ;;9002226.02101,"993,830.0 ",.01)
 ;;830.0
 ;;9002226.02101,"993,830.0 ",.02)
 ;;830.0
 ;;9002226.02101,"993,830.1 ",.01)
 ;;830.1
 ;;9002226.02101,"993,830.1 ",.02)
 ;;830.1
 ;;9002226.02101,"993,831 ",.01)
 ;;831
 ;;9002226.02101,"993,831 ",.02)
 ;;831
 ;;9002226.02101,"993,831.0 ",.01)
 ;;831.0
 ;;9002226.02101,"993,831.0 ",.02)
 ;;831.0
 ;;9002226.02101,"993,831.00 ",.01)
 ;;831.00
 ;;9002226.02101,"993,831.00 ",.02)
 ;;831.00
 ;;9002226.02101,"993,831.01 ",.01)
 ;;831.01
 ;;9002226.02101,"993,831.01 ",.02)
 ;;831.01
 ;;9002226.02101,"993,831.02 ",.01)
 ;;831.02
 ;;9002226.02101,"993,831.02 ",.02)
 ;;831.02
 ;;9002226.02101,"993,831.03 ",.01)
 ;;831.03
 ;;9002226.02101,"993,831.03 ",.02)
 ;;831.03
 ;;9002226.02101,"993,831.04 ",.01)
 ;;831.04
 ;;9002226.02101,"993,831.04 ",.02)
 ;;831.04
 ;;9002226.02101,"993,831.09 ",.01)
 ;;831.09
 ;;9002226.02101,"993,831.09 ",.02)
 ;;831.09
 ;;9002226.02101,"993,831.1 ",.01)
 ;;831.1
 ;;9002226.02101,"993,831.1 ",.02)
 ;;831.1
 ;;9002226.02101,"993,831.10 ",.01)
 ;;831.10
 ;;9002226.02101,"993,831.10 ",.02)
 ;;831.10
 ;;9002226.02101,"993,831.11 ",.01)
 ;;831.11
 ;;9002226.02101,"993,831.11 ",.02)
 ;;831.11
 ;;9002226.02101,"993,831.12 ",.01)
 ;;831.12
 ;;9002226.02101,"993,831.12 ",.02)
 ;;831.12
 ;;9002226.02101,"993,831.13 ",.01)
 ;;831.13
 ;;9002226.02101,"993,831.13 ",.02)
 ;;831.13
 ;;9002226.02101,"993,831.14 ",.01)
 ;;831.14
 ;;9002226.02101,"993,831.14 ",.02)
 ;;831.14
 ;;9002226.02101,"993,831.19 ",.01)
 ;;831.19
 ;;9002226.02101,"993,831.19 ",.02)
 ;;831.19
 ;;9002226.02101,"993,832 ",.01)
 ;;832
 ;;9002226.02101,"993,832 ",.02)
 ;;832
 ;;9002226.02101,"993,832.0 ",.01)
 ;;832.0
 ;;9002226.02101,"993,832.0 ",.02)
 ;;832.0
 ;;9002226.02101,"993,832.00 ",.01)
 ;;832.00
 ;;9002226.02101,"993,832.00 ",.02)
 ;;832.00
 ;;9002226.02101,"993,832.01 ",.01)
 ;;832.01
 ;;9002226.02101,"993,832.01 ",.02)
 ;;832.01
 ;;9002226.02101,"993,832.02 ",.01)
 ;;832.02
 ;;9002226.02101,"993,832.02 ",.02)
 ;;832.02
 ;;9002226.02101,"993,832.03 ",.01)
 ;;832.03
 ;;9002226.02101,"993,832.03 ",.02)
 ;;832.03
 ;;9002226.02101,"993,832.04 ",.01)
 ;;832.04
 ;;9002226.02101,"993,832.04 ",.02)
 ;;832.04
 ;;9002226.02101,"993,832.09 ",.01)
 ;;832.09
 ;;9002226.02101,"993,832.09 ",.02)
 ;;832.09
 ;;9002226.02101,"993,832.1 ",.01)
 ;;832.1
 ;;9002226.02101,"993,832.1 ",.02)
 ;;832.1
 ;;9002226.02101,"993,832.10 ",.01)
 ;;832.10
 ;;9002226.02101,"993,832.10 ",.02)
 ;;832.10
 ;;9002226.02101,"993,832.11 ",.01)
 ;;832.11
 ;;9002226.02101,"993,832.11 ",.02)
 ;;832.11
 ;;9002226.02101,"993,832.12 ",.01)
 ;;832.12
 ;;9002226.02101,"993,832.12 ",.02)
 ;;832.12
 ;;9002226.02101,"993,832.13 ",.01)
 ;;832.13
 ;;9002226.02101,"993,832.13 ",.02)
 ;;832.13
 ;;9002226.02101,"993,832.14 ",.01)
 ;;832.14
 ;;9002226.02101,"993,832.14 ",.02)
 ;;832.14
 ;;9002226.02101,"993,832.19 ",.01)
 ;;832.19
 ;;9002226.02101,"993,832.19 ",.02)
 ;;832.19
 ;;9002226.02101,"993,833 ",.01)
 ;;833
 ;;9002226.02101,"993,833 ",.02)
 ;;833
 ;;9002226.02101,"993,833.0 ",.01)
 ;;833.0
 ;;9002226.02101,"993,833.0 ",.02)
 ;;833.0
 ;;9002226.02101,"993,833.00 ",.01)
 ;;833.00
 ;;9002226.02101,"993,833.00 ",.02)
 ;;833.00
 ;;9002226.02101,"993,833.01 ",.01)
 ;;833.01
 ;;9002226.02101,"993,833.01 ",.02)
 ;;833.01
 ;;9002226.02101,"993,833.02 ",.01)
 ;;833.02
 ;;9002226.02101,"993,833.02 ",.02)
 ;;833.02
 ;;9002226.02101,"993,833.03 ",.01)
 ;;833.03
 ;;9002226.02101,"993,833.03 ",.02)
 ;;833.03
 ;;9002226.02101,"993,833.04 ",.01)
 ;;833.04
 ;;9002226.02101,"993,833.04 ",.02)
 ;;833.04
 ;;9002226.02101,"993,833.05 ",.01)
 ;;833.05
 ;;9002226.02101,"993,833.05 ",.02)
 ;;833.05
 ;;9002226.02101,"993,833.09 ",.01)
 ;;833.09
 ;;9002226.02101,"993,833.09 ",.02)
 ;;833.09
 ;;9002226.02101,"993,833.1 ",.01)
 ;;833.1
 ;;9002226.02101,"993,833.1 ",.02)
 ;;833.1
 ;;9002226.02101,"993,833.10 ",.01)
 ;;833.10
 ;;9002226.02101,"993,833.10 ",.02)
 ;;833.10
 ;;9002226.02101,"993,833.11 ",.01)
 ;;833.11
 ;;9002226.02101,"993,833.11 ",.02)
 ;;833.11
 ;;9002226.02101,"993,833.12 ",.01)
 ;;833.12
 ;;9002226.02101,"993,833.12 ",.02)
 ;;833.12
 ;;9002226.02101,"993,833.13 ",.01)
 ;;833.13
 ;;9002226.02101,"993,833.13 ",.02)
 ;;833.13
 ;;9002226.02101,"993,833.14 ",.01)
 ;;833.14
 ;;9002226.02101,"993,833.14 ",.02)
 ;;833.14
 ;;9002226.02101,"993,833.15 ",.01)
 ;;833.15
 ;;9002226.02101,"993,833.15 ",.02)
 ;;833.15
 ;;9002226.02101,"993,833.19 ",.01)
 ;;833.19
 ;;9002226.02101,"993,833.19 ",.02)
 ;;833.19
 ;;9002226.02101,"993,834 ",.01)
 ;;834
 ;;9002226.02101,"993,834 ",.02)
 ;;834
 ;;9002226.02101,"993,834.0 ",.01)
 ;;834.0
 ;;9002226.02101,"993,834.0 ",.02)
 ;;834.0
 ;;9002226.02101,"993,834.00 ",.01)
 ;;834.00
 ;;9002226.02101,"993,834.00 ",.02)
 ;;834.00
 ;;9002226.02101,"993,834.01 ",.01)
 ;;834.01
 ;;9002226.02101,"993,834.01 ",.02)
 ;;834.01
 ;;9002226.02101,"993,834.02 ",.01)
 ;;834.02
 ;;9002226.02101,"993,834.02 ",.02)
 ;;834.02
 ;;9002226.02101,"993,834.1 ",.01)
 ;;834.1
 ;;9002226.02101,"993,834.1 ",.02)
 ;;834.1
 ;;9002226.02101,"993,834.10 ",.01)
 ;;834.10
 ;;9002226.02101,"993,834.10 ",.02)
 ;;834.10
 ;;9002226.02101,"993,834.11 ",.01)
 ;;834.11
 ;;9002226.02101,"993,834.11 ",.02)
 ;;834.11
 ;;9002226.02101,"993,834.12 ",.01)
 ;;834.12
 ;;9002226.02101,"993,834.12 ",.02)
 ;;834.12
 ;;9002226.02101,"993,835 ",.01)
 ;;835
 ;;9002226.02101,"993,835 ",.02)
 ;;835
 ;;9002226.02101,"993,835.0 ",.01)
 ;;835.0
 ;;9002226.02101,"993,835.0 ",.02)
 ;;835.0
 ;;9002226.02101,"993,835.00 ",.01)
 ;;835.00
 ;;9002226.02101,"993,835.00 ",.02)
 ;;835.00
 ;;9002226.02101,"993,835.01 ",.01)
 ;;835.01
 ;;9002226.02101,"993,835.01 ",.02)
 ;;835.01
 ;;9002226.02101,"993,835.02 ",.01)
 ;;835.02
 ;;9002226.02101,"993,835.02 ",.02)
 ;;835.02
 ;;9002226.02101,"993,835.03 ",.01)
 ;;835.03
 ;;9002226.02101,"993,835.03 ",.02)
 ;;835.03
 ;;9002226.02101,"993,835.1 ",.01)
 ;;835.1
 ;;9002226.02101,"993,835.1 ",.02)
 ;;835.1
 ;;9002226.02101,"993,835.10 ",.01)
 ;;835.10
 ;;9002226.02101,"993,835.10 ",.02)
 ;;835.10
 ;;9002226.02101,"993,835.11 ",.01)
 ;;835.11
 ;;9002226.02101,"993,835.11 ",.02)
 ;;835.11
 ;;9002226.02101,"993,835.12 ",.01)
 ;;835.12
 ;;9002226.02101,"993,835.12 ",.02)
 ;;835.12
 ;;9002226.02101,"993,835.13 ",.01)
 ;;835.13
 ;;9002226.02101,"993,835.13 ",.02)
 ;;835.13
 ;;9002226.02101,"993,836 ",.01)
 ;;836
 ;;9002226.02101,"993,836 ",.02)
 ;;836
 ;;9002226.02101,"993,836.0 ",.01)
 ;;836.0
 ;;9002226.02101,"993,836.0 ",.02)
 ;;836.0
 ;;9002226.02101,"993,836.1 ",.01)
 ;;836.1
 ;;9002226.02101,"993,836.1 ",.02)
 ;;836.1
 ;;9002226.02101,"993,836.2 ",.01)
 ;;836.2
 ;;9002226.02101,"993,836.2 ",.02)
 ;;836.2
 ;;9002226.02101,"993,836.3 ",.01)
 ;;836.3
 ;;9002226.02101,"993,836.3 ",.02)
 ;;836.3
 ;;9002226.02101,"993,836.4 ",.01)
 ;;836.4
 ;;9002226.02101,"993,836.4 ",.02)
 ;;836.4
 ;;9002226.02101,"993,836.5 ",.01)
 ;;836.5
 ;;9002226.02101,"993,836.5 ",.02)
 ;;836.5
 ;;9002226.02101,"993,836.50 ",.01)
 ;;836.50
 ;;9002226.02101,"993,836.50 ",.02)
 ;;836.50
 ;;9002226.02101,"993,836.51 ",.01)
 ;;836.51
 ;;9002226.02101,"993,836.51 ",.02)
 ;;836.51
 ;;9002226.02101,"993,836.52 ",.01)
 ;;836.52
 ;;9002226.02101,"993,836.52 ",.02)
 ;;836.52
 ;;9002226.02101,"993,836.53 ",.01)
 ;;836.53
 ;;9002226.02101,"993,836.53 ",.02)
 ;;836.53
 ;;9002226.02101,"993,836.54 ",.01)
 ;;836.54
 ;;9002226.02101,"993,836.54 ",.02)
 ;;836.54
 ;;9002226.02101,"993,836.59 ",.01)
 ;;836.59
 ;;9002226.02101,"993,836.59 ",.02)
 ;;836.59
 ;;9002226.02101,"993,836.6 ",.01)
 ;;836.6
 ;;9002226.02101,"993,836.6 ",.02)
 ;;836.6
 ;;9002226.02101,"993,836.60 ",.01)
 ;;836.60
 ;;9002226.02101,"993,836.60 ",.02)
 ;;836.60
 ;;9002226.02101,"993,836.61 ",.01)
 ;;836.61
 ;;9002226.02101,"993,836.61 ",.02)
 ;;836.61
 ;;9002226.02101,"993,836.62 ",.01)
 ;;836.62
 ;;9002226.02101,"993,836.62 ",.02)
 ;;836.62
 ;;9002226.02101,"993,836.63 ",.01)
 ;;836.63
 ;;9002226.02101,"993,836.63 ",.02)
 ;;836.63
 ;;9002226.02101,"993,836.64 ",.01)
 ;;836.64
 ;;9002226.02101,"993,836.64 ",.02)
 ;;836.64
 ;;9002226.02101,"993,836.69 ",.01)
 ;;836.69
 ;;9002226.02101,"993,836.69 ",.02)
 ;;836.69
 ;;9002226.02101,"993,837 ",.01)
 ;;837
 ;;9002226.02101,"993,837 ",.02)
 ;;837
 ;;9002226.02101,"993,837.0 ",.01)
 ;;837.0
 ;;9002226.02101,"993,837.0 ",.02)
 ;;837.0
 ;;9002226.02101,"993,837.1 ",.01)
 ;;837.1
 ;;9002226.02101,"993,837.1 ",.02)
 ;;837.1
 ;;9002226.02101,"993,838 ",.01)
 ;;838
 ;;9002226.02101,"993,838 ",.02)
 ;;838
 ;;9002226.02101,"993,838.0 ",.01)
 ;;838.0
 ;;9002226.02101,"993,838.0 ",.02)
 ;;838.0
 ;;9002226.02101,"993,838.00 ",.01)
 ;;838.00
 ;;9002226.02101,"993,838.00 ",.02)
 ;;838.00
 ;;9002226.02101,"993,838.01 ",.01)
 ;;838.01
 ;;9002226.02101,"993,838.01 ",.02)
 ;;838.01
 ;;9002226.02101,"993,838.02 ",.01)
 ;;838.02
 ;;9002226.02101,"993,838.02 ",.02)
 ;;838.02
 ;;9002226.02101,"993,838.03 ",.01)
 ;;838.03
 ;;9002226.02101,"993,838.03 ",.02)
 ;;838.03
 ;;9002226.02101,"993,838.04 ",.01)
 ;;838.04
 ;;9002226.02101,"993,838.04 ",.02)
 ;;838.04
 ;;9002226.02101,"993,838.05 ",.01)
 ;;838.05
 ;;9002226.02101,"993,838.05 ",.02)
 ;;838.05
 ;;9002226.02101,"993,838.06 ",.01)
 ;;838.06
 ;;9002226.02101,"993,838.06 ",.02)
 ;;838.06
 ;;9002226.02101,"993,838.09 ",.01)
 ;;838.09
 ;;9002226.02101,"993,838.09 ",.02)
 ;;838.09
 ;;9002226.02101,"993,838.1 ",.01)
 ;;838.1
 ;;9002226.02101,"993,838.1 ",.02)
 ;;838.1
 ;;9002226.02101,"993,838.10 ",.01)
 ;;838.10
 ;;9002226.02101,"993,838.10 ",.02)
 ;;838.10
 ;;9002226.02101,"993,838.11 ",.01)
 ;;838.11
 ;;9002226.02101,"993,838.11 ",.02)
 ;;838.11
 ;;9002226.02101,"993,838.12 ",.01)
 ;;838.12
 ;;9002226.02101,"993,838.12 ",.02)
 ;;838.12
 ;;9002226.02101,"993,838.13 ",.01)
 ;;838.13
 ;;9002226.02101,"993,838.13 ",.02)
 ;;838.13
 ;;9002226.02101,"993,838.14 ",.01)
 ;;838.14
 ;;9002226.02101,"993,838.14 ",.02)
 ;;838.14
 ;;9002226.02101,"993,838.15 ",.01)
 ;;838.15
 ;;9002226.02101,"993,838.15 ",.02)
 ;;838.15
 ;;9002226.02101,"993,838.16 ",.01)
 ;;838.16
 ;;9002226.02101,"993,838.16 ",.02)
 ;;838.16
 ;;9002226.02101,"993,838.19 ",.01)
 ;;838.19
 ;;9002226.02101,"993,838.19 ",.02)
 ;;838.19
 ;;9002226.02101,"993,839 ",.01)
 ;;839
 ;;9002226.02101,"993,839 ",.02)
 ;;839
 ;;9002226.02101,"993,839.0 ",.01)
 ;;839.0
 ;;9002226.02101,"993,839.0 ",.02)
 ;;839.0
 ;;9002226.02101,"993,839.00 ",.01)
 ;;839.00
 ;;9002226.02101,"993,839.00 ",.02)
 ;;839.00
 ;;9002226.02101,"993,839.01 ",.01)
 ;;839.01
 ;;9002226.02101,"993,839.01 ",.02)
 ;;839.01