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

BGPMBTXT.m

Go to the documentation of this file.
BGPMBTXT ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON FEB 11, 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,"773,663.43 ",.01)
 ;;663.43
 ;;9002226.02101,"773,663.43 ",.02)
 ;;663.43
 ;;9002226.02101,"773,663.5 ",.01)
 ;;663.5
 ;;9002226.02101,"773,663.5 ",.02)
 ;;663.5
 ;;9002226.02101,"773,663.50 ",.01)
 ;;663.50
 ;;9002226.02101,"773,663.50 ",.02)
 ;;663.50
 ;;9002226.02101,"773,663.51 ",.01)
 ;;663.51
 ;;9002226.02101,"773,663.51 ",.02)
 ;;663.51
 ;;9002226.02101,"773,663.53 ",.01)
 ;;663.53
 ;;9002226.02101,"773,663.53 ",.02)
 ;;663.53
 ;;9002226.02101,"773,663.6 ",.01)
 ;;663.6
 ;;9002226.02101,"773,663.6 ",.02)
 ;;663.6
 ;;9002226.02101,"773,663.60 ",.01)
 ;;663.60
 ;;9002226.02101,"773,663.60 ",.02)
 ;;663.60
 ;;9002226.02101,"773,663.61 ",.01)
 ;;663.61
 ;;9002226.02101,"773,663.61 ",.02)
 ;;663.61
 ;;9002226.02101,"773,663.63 ",.01)
 ;;663.63
 ;;9002226.02101,"773,663.63 ",.02)
 ;;663.63
 ;;9002226.02101,"773,663.8 ",.01)
 ;;663.8
 ;;9002226.02101,"773,663.8 ",.02)
 ;;663.8
 ;;9002226.02101,"773,663.80 ",.01)
 ;;663.80
 ;;9002226.02101,"773,663.80 ",.02)
 ;;663.80
 ;;9002226.02101,"773,663.81 ",.01)
 ;;663.81
 ;;9002226.02101,"773,663.81 ",.02)
 ;;663.81
 ;;9002226.02101,"773,663.83 ",.01)
 ;;663.83
 ;;9002226.02101,"773,663.83 ",.02)
 ;;663.83
 ;;9002226.02101,"773,663.9 ",.01)
 ;;663.9
 ;;9002226.02101,"773,663.9 ",.02)
 ;;663.9
 ;;9002226.02101,"773,663.90 ",.01)
 ;;663.90
 ;;9002226.02101,"773,663.90 ",.02)
 ;;663.90
 ;;9002226.02101,"773,663.91 ",.01)
 ;;663.91
 ;;9002226.02101,"773,663.91 ",.02)
 ;;663.91
 ;;9002226.02101,"773,663.93 ",.01)
 ;;663.93
 ;;9002226.02101,"773,663.93 ",.02)
 ;;663.93
 ;;9002226.02101,"773,664 ",.01)
 ;;664
 ;;9002226.02101,"773,664 ",.02)
 ;;664
 ;;9002226.02101,"773,664.0 ",.01)
 ;;664.0
 ;;9002226.02101,"773,664.0 ",.02)
 ;;664.0
 ;;9002226.02101,"773,664.00 ",.01)
 ;;664.00
 ;;9002226.02101,"773,664.00 ",.02)
 ;;664.00
 ;;9002226.02101,"773,664.01 ",.01)
 ;;664.01
 ;;9002226.02101,"773,664.01 ",.02)
 ;;664.01
 ;;9002226.02101,"773,664.04 ",.01)
 ;;664.04
 ;;9002226.02101,"773,664.04 ",.02)
 ;;664.04
 ;;9002226.02101,"773,664.1 ",.01)
 ;;664.1
 ;;9002226.02101,"773,664.1 ",.02)
 ;;664.1
 ;;9002226.02101,"773,664.10 ",.01)
 ;;664.10
 ;;9002226.02101,"773,664.10 ",.02)
 ;;664.10
 ;;9002226.02101,"773,664.11 ",.01)
 ;;664.11
 ;;9002226.02101,"773,664.11 ",.02)
 ;;664.11
 ;;9002226.02101,"773,664.14 ",.01)
 ;;664.14
 ;;9002226.02101,"773,664.14 ",.02)
 ;;664.14
 ;;9002226.02101,"773,664.2 ",.01)
 ;;664.2
 ;;9002226.02101,"773,664.2 ",.02)
 ;;664.2
 ;;9002226.02101,"773,664.20 ",.01)
 ;;664.20
 ;;9002226.02101,"773,664.20 ",.02)
 ;;664.20
 ;;9002226.02101,"773,664.21 ",.01)
 ;;664.21
 ;;9002226.02101,"773,664.21 ",.02)
 ;;664.21
 ;;9002226.02101,"773,664.24 ",.01)
 ;;664.24
 ;;9002226.02101,"773,664.24 ",.02)
 ;;664.24
 ;;9002226.02101,"773,664.3 ",.01)
 ;;664.3
 ;;9002226.02101,"773,664.3 ",.02)
 ;;664.3
 ;;9002226.02101,"773,664.30 ",.01)
 ;;664.30
 ;;9002226.02101,"773,664.30 ",.02)
 ;;664.30
 ;;9002226.02101,"773,664.31 ",.01)
 ;;664.31
 ;;9002226.02101,"773,664.31 ",.02)
 ;;664.31
 ;;9002226.02101,"773,664.34 ",.01)
 ;;664.34
 ;;9002226.02101,"773,664.34 ",.02)
 ;;664.34
 ;;9002226.02101,"773,664.4 ",.01)
 ;;664.4
 ;;9002226.02101,"773,664.4 ",.02)
 ;;664.4
 ;;9002226.02101,"773,664.40 ",.01)
 ;;664.40
 ;;9002226.02101,"773,664.40 ",.02)
 ;;664.40
 ;;9002226.02101,"773,664.41 ",.01)
 ;;664.41
 ;;9002226.02101,"773,664.41 ",.02)
 ;;664.41
 ;;9002226.02101,"773,664.44 ",.01)
 ;;664.44
 ;;9002226.02101,"773,664.44 ",.02)
 ;;664.44
 ;;9002226.02101,"773,664.5 ",.01)
 ;;664.5
 ;;9002226.02101,"773,664.5 ",.02)
 ;;664.5
 ;;9002226.02101,"773,664.50 ",.01)
 ;;664.50
 ;;9002226.02101,"773,664.50 ",.02)
 ;;664.50
 ;;9002226.02101,"773,664.51 ",.01)
 ;;664.51
 ;;9002226.02101,"773,664.51 ",.02)
 ;;664.51
 ;;9002226.02101,"773,664.54 ",.01)
 ;;664.54
 ;;9002226.02101,"773,664.54 ",.02)
 ;;664.54
 ;;9002226.02101,"773,664.6 ",.01)
 ;;664.6
 ;;9002226.02101,"773,664.6 ",.02)
 ;;664.6
 ;;9002226.02101,"773,664.60 ",.01)
 ;;664.60
 ;;9002226.02101,"773,664.60 ",.02)
 ;;664.60
 ;;9002226.02101,"773,664.61 ",.01)
 ;;664.61
 ;;9002226.02101,"773,664.61 ",.02)
 ;;664.61
 ;;9002226.02101,"773,664.64 ",.01)
 ;;664.64
 ;;9002226.02101,"773,664.64 ",.02)
 ;;664.64
 ;;9002226.02101,"773,664.8 ",.01)
 ;;664.8
 ;;9002226.02101,"773,664.8 ",.02)
 ;;664.8
 ;;9002226.02101,"773,664.80 ",.01)
 ;;664.80
 ;;9002226.02101,"773,664.80 ",.02)
 ;;664.80
 ;;9002226.02101,"773,664.81 ",.01)
 ;;664.81
 ;;9002226.02101,"773,664.81 ",.02)
 ;;664.81
 ;;9002226.02101,"773,664.84 ",.01)
 ;;664.84
 ;;9002226.02101,"773,664.84 ",.02)
 ;;664.84
 ;;9002226.02101,"773,664.9 ",.01)
 ;;664.9
 ;;9002226.02101,"773,664.9 ",.02)
 ;;664.9
 ;;9002226.02101,"773,664.90 ",.01)
 ;;664.90
 ;;9002226.02101,"773,664.90 ",.02)
 ;;664.90
 ;;9002226.02101,"773,664.91 ",.01)
 ;;664.91
 ;;9002226.02101,"773,664.91 ",.02)
 ;;664.91
 ;;9002226.02101,"773,664.94 ",.01)
 ;;664.94
 ;;9002226.02101,"773,664.94 ",.02)
 ;;664.94
 ;;9002226.02101,"773,665 ",.01)
 ;;665
 ;;9002226.02101,"773,665 ",.02)
 ;;665
 ;;9002226.02101,"773,665.0 ",.01)
 ;;665.0
 ;;9002226.02101,"773,665.0 ",.02)
 ;;665.0
 ;;9002226.02101,"773,665.00 ",.01)
 ;;665.00
 ;;9002226.02101,"773,665.00 ",.02)
 ;;665.00
 ;;9002226.02101,"773,665.01 ",.01)
 ;;665.01
 ;;9002226.02101,"773,665.01 ",.02)
 ;;665.01
 ;;9002226.02101,"773,665.03 ",.01)
 ;;665.03
 ;;9002226.02101,"773,665.03 ",.02)
 ;;665.03
 ;;9002226.02101,"773,665.1 ",.01)
 ;;665.1
 ;;9002226.02101,"773,665.1 ",.02)
 ;;665.1
 ;;9002226.02101,"773,665.10 ",.01)
 ;;665.10
 ;;9002226.02101,"773,665.10 ",.02)
 ;;665.10
 ;;9002226.02101,"773,665.11 ",.01)
 ;;665.11
 ;;9002226.02101,"773,665.11 ",.02)
 ;;665.11
 ;;9002226.02101,"773,665.2 ",.01)
 ;;665.2
 ;;9002226.02101,"773,665.2 ",.02)
 ;;665.2
 ;;9002226.02101,"773,665.20 ",.01)
 ;;665.20
 ;;9002226.02101,"773,665.20 ",.02)
 ;;665.20
 ;;9002226.02101,"773,665.22 ",.01)
 ;;665.22
 ;;9002226.02101,"773,665.22 ",.02)
 ;;665.22
 ;;9002226.02101,"773,665.24 ",.01)
 ;;665.24
 ;;9002226.02101,"773,665.24 ",.02)
 ;;665.24
 ;;9002226.02101,"773,665.3 ",.01)
 ;;665.3
 ;;9002226.02101,"773,665.3 ",.02)
 ;;665.3
 ;;9002226.02101,"773,665.30 ",.01)
 ;;665.30
 ;;9002226.02101,"773,665.30 ",.02)
 ;;665.30
 ;;9002226.02101,"773,665.31 ",.01)
 ;;665.31
 ;;9002226.02101,"773,665.31 ",.02)
 ;;665.31
 ;;9002226.02101,"773,665.34 ",.01)
 ;;665.34
 ;;9002226.02101,"773,665.34 ",.02)
 ;;665.34
 ;;9002226.02101,"773,665.4 ",.01)
 ;;665.4
 ;;9002226.02101,"773,665.4 ",.02)
 ;;665.4
 ;;9002226.02101,"773,665.40 ",.01)
 ;;665.40
 ;;9002226.02101,"773,665.40 ",.02)
 ;;665.40
 ;;9002226.02101,"773,665.41 ",.01)
 ;;665.41
 ;;9002226.02101,"773,665.41 ",.02)
 ;;665.41
 ;;9002226.02101,"773,665.44 ",.01)
 ;;665.44
 ;;9002226.02101,"773,665.44 ",.02)
 ;;665.44
 ;;9002226.02101,"773,665.5 ",.01)
 ;;665.5
 ;;9002226.02101,"773,665.5 ",.02)
 ;;665.5
 ;;9002226.02101,"773,665.50 ",.01)
 ;;665.50
 ;;9002226.02101,"773,665.50 ",.02)
 ;;665.50
 ;;9002226.02101,"773,665.51 ",.01)
 ;;665.51
 ;;9002226.02101,"773,665.51 ",.02)
 ;;665.51
 ;;9002226.02101,"773,665.54 ",.01)
 ;;665.54
 ;;9002226.02101,"773,665.54 ",.02)
 ;;665.54
 ;;9002226.02101,"773,665.6 ",.01)
 ;;665.6
 ;;9002226.02101,"773,665.6 ",.02)
 ;;665.6
 ;;9002226.02101,"773,665.60 ",.01)
 ;;665.60
 ;;9002226.02101,"773,665.60 ",.02)
 ;;665.60
 ;;9002226.02101,"773,665.61 ",.01)
 ;;665.61
 ;;9002226.02101,"773,665.61 ",.02)
 ;;665.61
 ;;9002226.02101,"773,665.64 ",.01)
 ;;665.64
 ;;9002226.02101,"773,665.64 ",.02)
 ;;665.64
 ;;9002226.02101,"773,665.7 ",.01)
 ;;665.7
 ;;9002226.02101,"773,665.7 ",.02)
 ;;665.7
 ;;9002226.02101,"773,665.70 ",.01)
 ;;665.70
 ;;9002226.02101,"773,665.70 ",.02)
 ;;665.70
 ;;9002226.02101,"773,665.71 ",.01)
 ;;665.71
 ;;9002226.02101,"773,665.71 ",.02)
 ;;665.71
 ;;9002226.02101,"773,665.72 ",.01)
 ;;665.72
 ;;9002226.02101,"773,665.72 ",.02)
 ;;665.72
 ;;9002226.02101,"773,665.74 ",.01)
 ;;665.74
 ;;9002226.02101,"773,665.74 ",.02)
 ;;665.74
 ;;9002226.02101,"773,665.8 ",.01)
 ;;665.8
 ;;9002226.02101,"773,665.8 ",.02)
 ;;665.8
 ;;9002226.02101,"773,665.80 ",.01)
 ;;665.80
 ;;9002226.02101,"773,665.80 ",.02)
 ;;665.80
 ;;9002226.02101,"773,665.81 ",.01)
 ;;665.81
 ;;9002226.02101,"773,665.81 ",.02)
 ;;665.81
 ;;9002226.02101,"773,665.82 ",.01)
 ;;665.82
 ;;9002226.02101,"773,665.82 ",.02)
 ;;665.82
 ;;9002226.02101,"773,665.83 ",.01)
 ;;665.83
 ;;9002226.02101,"773,665.83 ",.02)
 ;;665.83
 ;;9002226.02101,"773,665.84 ",.01)
 ;;665.84
 ;;9002226.02101,"773,665.84 ",.02)
 ;;665.84
 ;;9002226.02101,"773,665.9 ",.01)
 ;;665.9
 ;;9002226.02101,"773,665.9 ",.02)
 ;;665.9
 ;;9002226.02101,"773,665.90 ",.01)
 ;;665.90
 ;;9002226.02101,"773,665.90 ",.02)
 ;;665.90
 ;;9002226.02101,"773,665.91 ",.01)
 ;;665.91
 ;;9002226.02101,"773,665.91 ",.02)
 ;;665.91
 ;;9002226.02101,"773,665.92 ",.01)
 ;;665.92
 ;;9002226.02101,"773,665.92 ",.02)
 ;;665.92
 ;;9002226.02101,"773,665.93 ",.01)
 ;;665.93
 ;;9002226.02101,"773,665.93 ",.02)
 ;;665.93
 ;;9002226.02101,"773,665.94 ",.01)
 ;;665.94
 ;;9002226.02101,"773,665.94 ",.02)
 ;;665.94
 ;;9002226.02101,"773,666 ",.01)
 ;;666
 ;;9002226.02101,"773,666 ",.02)
 ;;666
 ;;9002226.02101,"773,666.0 ",.01)
 ;;666.0
 ;;9002226.02101,"773,666.0 ",.02)
 ;;666.0
 ;;9002226.02101,"773,666.00 ",.01)
 ;;666.00
 ;;9002226.02101,"773,666.00 ",.02)
 ;;666.00
 ;;9002226.02101,"773,666.02 ",.01)
 ;;666.02
 ;;9002226.02101,"773,666.02 ",.02)
 ;;666.02
 ;;9002226.02101,"773,666.04 ",.01)
 ;;666.04
 ;;9002226.02101,"773,666.04 ",.02)
 ;;666.04
 ;;9002226.02101,"773,666.1 ",.01)
 ;;666.1
 ;;9002226.02101,"773,666.1 ",.02)
 ;;666.1
 ;;9002226.02101,"773,666.10 ",.01)
 ;;666.10
 ;;9002226.02101,"773,666.10 ",.02)
 ;;666.10
 ;;9002226.02101,"773,666.12 ",.01)
 ;;666.12
 ;;9002226.02101,"773,666.12 ",.02)
 ;;666.12
 ;;9002226.02101,"773,666.14 ",.01)
 ;;666.14
 ;;9002226.02101,"773,666.14 ",.02)
 ;;666.14
 ;;9002226.02101,"773,666.2 ",.01)
 ;;666.2
 ;;9002226.02101,"773,666.2 ",.02)
 ;;666.2
 ;;9002226.02101,"773,666.20 ",.01)
 ;;666.20
 ;;9002226.02101,"773,666.20 ",.02)
 ;;666.20
 ;;9002226.02101,"773,666.22 ",.01)
 ;;666.22
 ;;9002226.02101,"773,666.22 ",.02)
 ;;666.22
 ;;9002226.02101,"773,666.24 ",.01)
 ;;666.24
 ;;9002226.02101,"773,666.24 ",.02)
 ;;666.24
 ;;9002226.02101,"773,666.3 ",.01)
 ;;666.3
 ;;9002226.02101,"773,666.3 ",.02)
 ;;666.3
 ;;9002226.02101,"773,666.30 ",.01)
 ;;666.30
 ;;9002226.02101,"773,666.30 ",.02)
 ;;666.30
 ;;9002226.02101,"773,666.32 ",.01)
 ;;666.32
 ;;9002226.02101,"773,666.32 ",.02)
 ;;666.32
 ;;9002226.02101,"773,666.34 ",.01)
 ;;666.34
 ;;9002226.02101,"773,666.34 ",.02)
 ;;666.34
 ;;9002226.02101,"773,667 ",.01)
 ;;667
 ;;9002226.02101,"773,667 ",.02)
 ;;667
 ;;9002226.02101,"773,667.0 ",.01)
 ;;667.0
 ;;9002226.02101,"773,667.0 ",.02)
 ;;667.0
 ;;9002226.02101,"773,667.00 ",.01)
 ;;667.00
 ;;9002226.02101,"773,667.00 ",.02)
 ;;667.00
 ;;9002226.02101,"773,667.02 ",.01)
 ;;667.02
 ;;9002226.02101,"773,667.02 ",.02)
 ;;667.02
 ;;9002226.02101,"773,667.04 ",.01)
 ;;667.04
 ;;9002226.02101,"773,667.04 ",.02)
 ;;667.04
 ;;9002226.02101,"773,667.1 ",.01)
 ;;667.1
 ;;9002226.02101,"773,667.1 ",.02)
 ;;667.1
 ;;9002226.02101,"773,667.10 ",.01)
 ;;667.10
 ;;9002226.02101,"773,667.10 ",.02)
 ;;667.10
 ;;9002226.02101,"773,667.12 ",.01)
 ;;667.12
 ;;9002226.02101,"773,667.12 ",.02)
 ;;667.12
 ;;9002226.02101,"773,667.14 ",.01)
 ;;667.14
 ;;9002226.02101,"773,667.14 ",.02)
 ;;667.14
 ;;9002226.02101,"773,668 ",.01)
 ;;668
 ;;9002226.02101,"773,668 ",.02)
 ;;668
 ;;9002226.02101,"773,668.0 ",.01)
 ;;668.0
 ;;9002226.02101,"773,668.0 ",.02)
 ;;668.0
 ;;9002226.02101,"773,668.00 ",.01)
 ;;668.00
 ;;9002226.02101,"773,668.00 ",.02)
 ;;668.00
 ;;9002226.02101,"773,668.01 ",.01)
 ;;668.01
 ;;9002226.02101,"773,668.01 ",.02)
 ;;668.01
 ;;9002226.02101,"773,668.02 ",.01)
 ;;668.02
 ;;9002226.02101,"773,668.02 ",.02)
 ;;668.02
 ;;9002226.02101,"773,668.03 ",.01)
 ;;668.03
 ;;9002226.02101,"773,668.03 ",.02)
 ;;668.03
 ;;9002226.02101,"773,668.04 ",.01)
 ;;668.04
 ;;9002226.02101,"773,668.04 ",.02)
 ;;668.04
 ;;9002226.02101,"773,668.1 ",.01)
 ;;668.1
 ;;9002226.02101,"773,668.1 ",.02)
 ;;668.1
 ;;9002226.02101,"773,668.10 ",.01)
 ;;668.10
 ;;9002226.02101,"773,668.10 ",.02)
 ;;668.10
 ;;9002226.02101,"773,668.11 ",.01)
 ;;668.11
 ;;9002226.02101,"773,668.11 ",.02)
 ;;668.11
 ;;9002226.02101,"773,668.12 ",.01)
 ;;668.12
 ;;9002226.02101,"773,668.12 ",.02)
 ;;668.12
 ;;9002226.02101,"773,668.13 ",.01)
 ;;668.13
 ;;9002226.02101,"773,668.13 ",.02)
 ;;668.13
 ;;9002226.02101,"773,668.14 ",.01)
 ;;668.14
 ;;9002226.02101,"773,668.14 ",.02)
 ;;668.14
 ;;9002226.02101,"773,668.2 ",.01)
 ;;668.2
 ;;9002226.02101,"773,668.2 ",.02)
 ;;668.2
 ;;9002226.02101,"773,668.20 ",.01)
 ;;668.20
 ;;9002226.02101,"773,668.20 ",.02)
 ;;668.20
 ;;9002226.02101,"773,668.21 ",.01)
 ;;668.21
 ;;9002226.02101,"773,668.21 ",.02)
 ;;668.21
 ;;9002226.02101,"773,668.22 ",.01)
 ;;668.22
 ;;9002226.02101,"773,668.22 ",.02)
 ;;668.22
 ;;9002226.02101,"773,668.23 ",.01)
 ;;668.23
 ;;9002226.02101,"773,668.23 ",.02)
 ;;668.23