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

BGPMBTXN.m

Go to the documentation of this file.
BGPMBTXN ;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,636.82 ",.01)
 ;;636.82
 ;;9002226.02101,"773,636.82 ",.02)
 ;;636.82
 ;;9002226.02101,"773,636.9 ",.01)
 ;;636.9
 ;;9002226.02101,"773,636.9 ",.02)
 ;;636.9
 ;;9002226.02101,"773,636.90 ",.01)
 ;;636.90
 ;;9002226.02101,"773,636.90 ",.02)
 ;;636.90
 ;;9002226.02101,"773,636.91 ",.01)
 ;;636.91
 ;;9002226.02101,"773,636.91 ",.02)
 ;;636.91
 ;;9002226.02101,"773,636.92 ",.01)
 ;;636.92
 ;;9002226.02101,"773,636.92 ",.02)
 ;;636.92
 ;;9002226.02101,"773,637 ",.01)
 ;;637
 ;;9002226.02101,"773,637 ",.02)
 ;;637
 ;;9002226.02101,"773,637.0 ",.01)
 ;;637.0
 ;;9002226.02101,"773,637.0 ",.02)
 ;;637.0
 ;;9002226.02101,"773,637.00 ",.01)
 ;;637.00
 ;;9002226.02101,"773,637.00 ",.02)
 ;;637.00
 ;;9002226.02101,"773,637.01 ",.01)
 ;;637.01
 ;;9002226.02101,"773,637.01 ",.02)
 ;;637.01
 ;;9002226.02101,"773,637.02 ",.01)
 ;;637.02
 ;;9002226.02101,"773,637.02 ",.02)
 ;;637.02
 ;;9002226.02101,"773,637.1 ",.01)
 ;;637.1
 ;;9002226.02101,"773,637.1 ",.02)
 ;;637.1
 ;;9002226.02101,"773,637.10 ",.01)
 ;;637.10
 ;;9002226.02101,"773,637.10 ",.02)
 ;;637.10
 ;;9002226.02101,"773,637.11 ",.01)
 ;;637.11
 ;;9002226.02101,"773,637.11 ",.02)
 ;;637.11
 ;;9002226.02101,"773,637.12 ",.01)
 ;;637.12
 ;;9002226.02101,"773,637.12 ",.02)
 ;;637.12
 ;;9002226.02101,"773,637.2 ",.01)
 ;;637.2
 ;;9002226.02101,"773,637.2 ",.02)
 ;;637.2
 ;;9002226.02101,"773,637.20 ",.01)
 ;;637.20
 ;;9002226.02101,"773,637.20 ",.02)
 ;;637.20
 ;;9002226.02101,"773,637.21 ",.01)
 ;;637.21
 ;;9002226.02101,"773,637.21 ",.02)
 ;;637.21
 ;;9002226.02101,"773,637.22 ",.01)
 ;;637.22
 ;;9002226.02101,"773,637.22 ",.02)
 ;;637.22
 ;;9002226.02101,"773,637.3 ",.01)
 ;;637.3
 ;;9002226.02101,"773,637.3 ",.02)
 ;;637.3
 ;;9002226.02101,"773,637.30 ",.01)
 ;;637.30
 ;;9002226.02101,"773,637.30 ",.02)
 ;;637.30
 ;;9002226.02101,"773,637.31 ",.01)
 ;;637.31
 ;;9002226.02101,"773,637.31 ",.02)
 ;;637.31
 ;;9002226.02101,"773,637.32 ",.01)
 ;;637.32
 ;;9002226.02101,"773,637.32 ",.02)
 ;;637.32
 ;;9002226.02101,"773,637.4 ",.01)
 ;;637.4
 ;;9002226.02101,"773,637.4 ",.02)
 ;;637.4
 ;;9002226.02101,"773,637.40 ",.01)
 ;;637.40
 ;;9002226.02101,"773,637.40 ",.02)
 ;;637.40
 ;;9002226.02101,"773,637.41 ",.01)
 ;;637.41
 ;;9002226.02101,"773,637.41 ",.02)
 ;;637.41
 ;;9002226.02101,"773,637.42 ",.01)
 ;;637.42
 ;;9002226.02101,"773,637.42 ",.02)
 ;;637.42
 ;;9002226.02101,"773,637.5 ",.01)
 ;;637.5
 ;;9002226.02101,"773,637.5 ",.02)
 ;;637.5
 ;;9002226.02101,"773,637.50 ",.01)
 ;;637.50
 ;;9002226.02101,"773,637.50 ",.02)
 ;;637.50
 ;;9002226.02101,"773,637.51 ",.01)
 ;;637.51
 ;;9002226.02101,"773,637.51 ",.02)
 ;;637.51
 ;;9002226.02101,"773,637.52 ",.01)
 ;;637.52
 ;;9002226.02101,"773,637.52 ",.02)
 ;;637.52
 ;;9002226.02101,"773,637.6 ",.01)
 ;;637.6
 ;;9002226.02101,"773,637.6 ",.02)
 ;;637.6
 ;;9002226.02101,"773,637.60 ",.01)
 ;;637.60
 ;;9002226.02101,"773,637.60 ",.02)
 ;;637.60
 ;;9002226.02101,"773,637.61 ",.01)
 ;;637.61
 ;;9002226.02101,"773,637.61 ",.02)
 ;;637.61
 ;;9002226.02101,"773,637.62 ",.01)
 ;;637.62
 ;;9002226.02101,"773,637.62 ",.02)
 ;;637.62
 ;;9002226.02101,"773,637.7 ",.01)
 ;;637.7
 ;;9002226.02101,"773,637.7 ",.02)
 ;;637.7
 ;;9002226.02101,"773,637.70 ",.01)
 ;;637.70
 ;;9002226.02101,"773,637.70 ",.02)
 ;;637.70
 ;;9002226.02101,"773,637.71 ",.01)
 ;;637.71
 ;;9002226.02101,"773,637.71 ",.02)
 ;;637.71
 ;;9002226.02101,"773,637.72 ",.01)
 ;;637.72
 ;;9002226.02101,"773,637.72 ",.02)
 ;;637.72
 ;;9002226.02101,"773,637.8 ",.01)
 ;;637.8
 ;;9002226.02101,"773,637.8 ",.02)
 ;;637.8
 ;;9002226.02101,"773,637.80 ",.01)
 ;;637.80
 ;;9002226.02101,"773,637.80 ",.02)
 ;;637.80
 ;;9002226.02101,"773,637.81 ",.01)
 ;;637.81
 ;;9002226.02101,"773,637.81 ",.02)
 ;;637.81
 ;;9002226.02101,"773,637.82 ",.01)
 ;;637.82
 ;;9002226.02101,"773,637.82 ",.02)
 ;;637.82
 ;;9002226.02101,"773,637.9 ",.01)
 ;;637.9
 ;;9002226.02101,"773,637.9 ",.02)
 ;;637.9
 ;;9002226.02101,"773,637.90 ",.01)
 ;;637.90
 ;;9002226.02101,"773,637.90 ",.02)
 ;;637.90
 ;;9002226.02101,"773,637.91 ",.01)
 ;;637.91
 ;;9002226.02101,"773,637.91 ",.02)
 ;;637.91
 ;;9002226.02101,"773,637.92 ",.01)
 ;;637.92
 ;;9002226.02101,"773,637.92 ",.02)
 ;;637.92
 ;;9002226.02101,"773,638 ",.01)
 ;;638
 ;;9002226.02101,"773,638 ",.02)
 ;;638
 ;;9002226.02101,"773,638.0 ",.01)
 ;;638.0
 ;;9002226.02101,"773,638.0 ",.02)
 ;;638.0
 ;;9002226.02101,"773,638.1 ",.01)
 ;;638.1
 ;;9002226.02101,"773,638.1 ",.02)
 ;;638.1
 ;;9002226.02101,"773,638.2 ",.01)
 ;;638.2
 ;;9002226.02101,"773,638.2 ",.02)
 ;;638.2
 ;;9002226.02101,"773,638.3 ",.01)
 ;;638.3
 ;;9002226.02101,"773,638.3 ",.02)
 ;;638.3
 ;;9002226.02101,"773,638.4 ",.01)
 ;;638.4
 ;;9002226.02101,"773,638.4 ",.02)
 ;;638.4
 ;;9002226.02101,"773,638.5 ",.01)
 ;;638.5
 ;;9002226.02101,"773,638.5 ",.02)
 ;;638.5
 ;;9002226.02101,"773,638.6 ",.01)
 ;;638.6
 ;;9002226.02101,"773,638.6 ",.02)
 ;;638.6
 ;;9002226.02101,"773,638.7 ",.01)
 ;;638.7
 ;;9002226.02101,"773,638.7 ",.02)
 ;;638.7
 ;;9002226.02101,"773,638.8 ",.01)
 ;;638.8
 ;;9002226.02101,"773,638.8 ",.02)
 ;;638.8
 ;;9002226.02101,"773,638.9 ",.01)
 ;;638.9
 ;;9002226.02101,"773,638.9 ",.02)
 ;;638.9
 ;;9002226.02101,"773,639 ",.01)
 ;;639
 ;;9002226.02101,"773,639 ",.02)
 ;;639
 ;;9002226.02101,"773,639.0 ",.01)
 ;;639.0
 ;;9002226.02101,"773,639.0 ",.02)
 ;;639.0
 ;;9002226.02101,"773,639.1 ",.01)
 ;;639.1
 ;;9002226.02101,"773,639.1 ",.02)
 ;;639.1
 ;;9002226.02101,"773,639.2 ",.01)
 ;;639.2
 ;;9002226.02101,"773,639.2 ",.02)
 ;;639.2
 ;;9002226.02101,"773,639.3 ",.01)
 ;;639.3
 ;;9002226.02101,"773,639.3 ",.02)
 ;;639.3
 ;;9002226.02101,"773,639.4 ",.01)
 ;;639.4
 ;;9002226.02101,"773,639.4 ",.02)
 ;;639.4
 ;;9002226.02101,"773,639.5 ",.01)
 ;;639.5
 ;;9002226.02101,"773,639.5 ",.02)
 ;;639.5
 ;;9002226.02101,"773,639.6 ",.01)
 ;;639.6
 ;;9002226.02101,"773,639.6 ",.02)
 ;;639.6
 ;;9002226.02101,"773,639.8 ",.01)
 ;;639.8
 ;;9002226.02101,"773,639.8 ",.02)
 ;;639.8
 ;;9002226.02101,"773,639.9 ",.01)
 ;;639.9
 ;;9002226.02101,"773,639.9 ",.02)
 ;;639.9
 ;;9002226.02101,"773,640 ",.01)
 ;;640
 ;;9002226.02101,"773,640 ",.02)
 ;;640
 ;;9002226.02101,"773,640.0 ",.01)
 ;;640.0
 ;;9002226.02101,"773,640.0 ",.02)
 ;;640.0
 ;;9002226.02101,"773,640.00 ",.01)
 ;;640.00
 ;;9002226.02101,"773,640.00 ",.02)
 ;;640.00
 ;;9002226.02101,"773,640.01 ",.01)
 ;;640.01
 ;;9002226.02101,"773,640.01 ",.02)
 ;;640.01
 ;;9002226.02101,"773,640.03 ",.01)
 ;;640.03
 ;;9002226.02101,"773,640.03 ",.02)
 ;;640.03
 ;;9002226.02101,"773,640.8 ",.01)
 ;;640.8
 ;;9002226.02101,"773,640.8 ",.02)
 ;;640.8
 ;;9002226.02101,"773,640.80 ",.01)
 ;;640.80
 ;;9002226.02101,"773,640.80 ",.02)
 ;;640.80
 ;;9002226.02101,"773,640.81 ",.01)
 ;;640.81
 ;;9002226.02101,"773,640.81 ",.02)
 ;;640.81
 ;;9002226.02101,"773,640.83 ",.01)
 ;;640.83
 ;;9002226.02101,"773,640.83 ",.02)
 ;;640.83
 ;;9002226.02101,"773,640.9 ",.01)
 ;;640.9
 ;;9002226.02101,"773,640.9 ",.02)
 ;;640.9
 ;;9002226.02101,"773,640.90 ",.01)
 ;;640.90
 ;;9002226.02101,"773,640.90 ",.02)
 ;;640.90
 ;;9002226.02101,"773,640.91 ",.01)
 ;;640.91
 ;;9002226.02101,"773,640.91 ",.02)
 ;;640.91
 ;;9002226.02101,"773,640.93 ",.01)
 ;;640.93
 ;;9002226.02101,"773,640.93 ",.02)
 ;;640.93
 ;;9002226.02101,"773,641 ",.01)
 ;;641
 ;;9002226.02101,"773,641 ",.02)
 ;;641
 ;;9002226.02101,"773,641.0 ",.01)
 ;;641.0
 ;;9002226.02101,"773,641.0 ",.02)
 ;;641.0
 ;;9002226.02101,"773,641.00 ",.01)
 ;;641.00
 ;;9002226.02101,"773,641.00 ",.02)
 ;;641.00
 ;;9002226.02101,"773,641.01 ",.01)
 ;;641.01
 ;;9002226.02101,"773,641.01 ",.02)
 ;;641.01
 ;;9002226.02101,"773,641.03 ",.01)
 ;;641.03
 ;;9002226.02101,"773,641.03 ",.02)
 ;;641.03
 ;;9002226.02101,"773,641.1 ",.01)
 ;;641.1
 ;;9002226.02101,"773,641.1 ",.02)
 ;;641.1
 ;;9002226.02101,"773,641.10 ",.01)
 ;;641.10
 ;;9002226.02101,"773,641.10 ",.02)
 ;;641.10
 ;;9002226.02101,"773,641.11 ",.01)
 ;;641.11
 ;;9002226.02101,"773,641.11 ",.02)
 ;;641.11
 ;;9002226.02101,"773,641.13 ",.01)
 ;;641.13
 ;;9002226.02101,"773,641.13 ",.02)
 ;;641.13
 ;;9002226.02101,"773,641.2 ",.01)
 ;;641.2
 ;;9002226.02101,"773,641.2 ",.02)
 ;;641.2
 ;;9002226.02101,"773,641.20 ",.01)
 ;;641.20
 ;;9002226.02101,"773,641.20 ",.02)
 ;;641.20
 ;;9002226.02101,"773,641.21 ",.01)
 ;;641.21
 ;;9002226.02101,"773,641.21 ",.02)
 ;;641.21
 ;;9002226.02101,"773,641.23 ",.01)
 ;;641.23
 ;;9002226.02101,"773,641.23 ",.02)
 ;;641.23
 ;;9002226.02101,"773,641.3 ",.01)
 ;;641.3
 ;;9002226.02101,"773,641.3 ",.02)
 ;;641.3
 ;;9002226.02101,"773,641.30 ",.01)
 ;;641.30
 ;;9002226.02101,"773,641.30 ",.02)
 ;;641.30
 ;;9002226.02101,"773,641.31 ",.01)
 ;;641.31
 ;;9002226.02101,"773,641.31 ",.02)
 ;;641.31
 ;;9002226.02101,"773,641.33 ",.01)
 ;;641.33
 ;;9002226.02101,"773,641.33 ",.02)
 ;;641.33
 ;;9002226.02101,"773,641.8 ",.01)
 ;;641.8
 ;;9002226.02101,"773,641.8 ",.02)
 ;;641.8
 ;;9002226.02101,"773,641.80 ",.01)
 ;;641.80
 ;;9002226.02101,"773,641.80 ",.02)
 ;;641.80
 ;;9002226.02101,"773,641.81 ",.01)
 ;;641.81
 ;;9002226.02101,"773,641.81 ",.02)
 ;;641.81
 ;;9002226.02101,"773,641.83 ",.01)
 ;;641.83
 ;;9002226.02101,"773,641.83 ",.02)
 ;;641.83
 ;;9002226.02101,"773,641.9 ",.01)
 ;;641.9
 ;;9002226.02101,"773,641.9 ",.02)
 ;;641.9
 ;;9002226.02101,"773,641.90 ",.01)
 ;;641.90
 ;;9002226.02101,"773,641.90 ",.02)
 ;;641.90
 ;;9002226.02101,"773,641.91 ",.01)
 ;;641.91
 ;;9002226.02101,"773,641.91 ",.02)
 ;;641.91
 ;;9002226.02101,"773,641.93 ",.01)
 ;;641.93
 ;;9002226.02101,"773,641.93 ",.02)
 ;;641.93
 ;;9002226.02101,"773,642 ",.01)
 ;;642
 ;;9002226.02101,"773,642 ",.02)
 ;;642
 ;;9002226.02101,"773,642.0 ",.01)
 ;;642.0
 ;;9002226.02101,"773,642.0 ",.02)
 ;;642.0
 ;;9002226.02101,"773,642.00 ",.01)
 ;;642.00
 ;;9002226.02101,"773,642.00 ",.02)
 ;;642.00
 ;;9002226.02101,"773,642.01 ",.01)
 ;;642.01
 ;;9002226.02101,"773,642.01 ",.02)
 ;;642.01
 ;;9002226.02101,"773,642.02 ",.01)
 ;;642.02
 ;;9002226.02101,"773,642.02 ",.02)
 ;;642.02
 ;;9002226.02101,"773,642.03 ",.01)
 ;;642.03
 ;;9002226.02101,"773,642.03 ",.02)
 ;;642.03
 ;;9002226.02101,"773,642.04 ",.01)
 ;;642.04
 ;;9002226.02101,"773,642.04 ",.02)
 ;;642.04
 ;;9002226.02101,"773,642.1 ",.01)
 ;;642.1
 ;;9002226.02101,"773,642.1 ",.02)
 ;;642.1
 ;;9002226.02101,"773,642.10 ",.01)
 ;;642.10
 ;;9002226.02101,"773,642.10 ",.02)
 ;;642.10
 ;;9002226.02101,"773,642.11 ",.01)
 ;;642.11
 ;;9002226.02101,"773,642.11 ",.02)
 ;;642.11
 ;;9002226.02101,"773,642.12 ",.01)
 ;;642.12
 ;;9002226.02101,"773,642.12 ",.02)
 ;;642.12
 ;;9002226.02101,"773,642.13 ",.01)
 ;;642.13
 ;;9002226.02101,"773,642.13 ",.02)
 ;;642.13
 ;;9002226.02101,"773,642.14 ",.01)
 ;;642.14
 ;;9002226.02101,"773,642.14 ",.02)
 ;;642.14
 ;;9002226.02101,"773,642.2 ",.01)
 ;;642.2
 ;;9002226.02101,"773,642.2 ",.02)
 ;;642.2
 ;;9002226.02101,"773,642.20 ",.01)
 ;;642.20
 ;;9002226.02101,"773,642.20 ",.02)
 ;;642.20
 ;;9002226.02101,"773,642.21 ",.01)
 ;;642.21
 ;;9002226.02101,"773,642.21 ",.02)
 ;;642.21
 ;;9002226.02101,"773,642.22 ",.01)
 ;;642.22
 ;;9002226.02101,"773,642.22 ",.02)
 ;;642.22
 ;;9002226.02101,"773,642.23 ",.01)
 ;;642.23
 ;;9002226.02101,"773,642.23 ",.02)
 ;;642.23
 ;;9002226.02101,"773,642.24 ",.01)
 ;;642.24
 ;;9002226.02101,"773,642.24 ",.02)
 ;;642.24
 ;;9002226.02101,"773,642.3 ",.01)
 ;;642.3
 ;;9002226.02101,"773,642.3 ",.02)
 ;;642.3
 ;;9002226.02101,"773,642.30 ",.01)
 ;;642.30
 ;;9002226.02101,"773,642.30 ",.02)
 ;;642.30
 ;;9002226.02101,"773,642.31 ",.01)
 ;;642.31
 ;;9002226.02101,"773,642.31 ",.02)
 ;;642.31
 ;;9002226.02101,"773,642.32 ",.01)
 ;;642.32
 ;;9002226.02101,"773,642.32 ",.02)
 ;;642.32
 ;;9002226.02101,"773,642.33 ",.01)
 ;;642.33
 ;;9002226.02101,"773,642.33 ",.02)
 ;;642.33
 ;;9002226.02101,"773,642.34 ",.01)
 ;;642.34
 ;;9002226.02101,"773,642.34 ",.02)
 ;;642.34
 ;;9002226.02101,"773,642.4 ",.01)
 ;;642.4
 ;;9002226.02101,"773,642.4 ",.02)
 ;;642.4
 ;;9002226.02101,"773,642.40 ",.01)
 ;;642.40
 ;;9002226.02101,"773,642.40 ",.02)
 ;;642.40
 ;;9002226.02101,"773,642.41 ",.01)
 ;;642.41
 ;;9002226.02101,"773,642.41 ",.02)
 ;;642.41
 ;;9002226.02101,"773,642.42 ",.01)
 ;;642.42
 ;;9002226.02101,"773,642.42 ",.02)
 ;;642.42
 ;;9002226.02101,"773,642.43 ",.01)
 ;;642.43
 ;;9002226.02101,"773,642.43 ",.02)
 ;;642.43
 ;;9002226.02101,"773,642.44 ",.01)
 ;;642.44
 ;;9002226.02101,"773,642.44 ",.02)
 ;;642.44
 ;;9002226.02101,"773,642.5 ",.01)
 ;;642.5
 ;;9002226.02101,"773,642.5 ",.02)
 ;;642.5
 ;;9002226.02101,"773,642.50 ",.01)
 ;;642.50
 ;;9002226.02101,"773,642.50 ",.02)
 ;;642.50
 ;;9002226.02101,"773,642.51 ",.01)
 ;;642.51
 ;;9002226.02101,"773,642.51 ",.02)
 ;;642.51
 ;;9002226.02101,"773,642.52 ",.01)
 ;;642.52
 ;;9002226.02101,"773,642.52 ",.02)
 ;;642.52
 ;;9002226.02101,"773,642.53 ",.01)
 ;;642.53
 ;;9002226.02101,"773,642.53 ",.02)
 ;;642.53
 ;;9002226.02101,"773,642.54 ",.01)
 ;;642.54
 ;;9002226.02101,"773,642.54 ",.02)
 ;;642.54
 ;;9002226.02101,"773,642.6 ",.01)
 ;;642.6
 ;;9002226.02101,"773,642.6 ",.02)
 ;;642.6
 ;;9002226.02101,"773,642.60 ",.01)
 ;;642.60