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

BGPMBTXM.m

Go to the documentation of this file.
BGPMBTXM ;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)
 ;;21,"V28.8 ")
 ;;1464
 ;;21,"V28.81 ")
 ;;1465
 ;;21,"V28.82 ")
 ;;1466
 ;;21,"V28.89 ")
 ;;1467
 ;;21,"V28.9 ")
 ;;1468
 ;;9002226,773,.01)
 ;;BGPMU PREGNANCY ALL ICD
 ;;9002226,773,.02)
 ;;ALL ICD'S DEFINING PREGNANCY
 ;;9002226,773,.04)
 ;;@
 ;;9002226,773,.06)
 ;;@
 ;;9002226,773,.08)
 ;;@
 ;;9002226,773,.09)
 ;;@
 ;;9002226,773,.11)
 ;;@
 ;;9002226,773,.12)
 ;;@
 ;;9002226,773,.13)
 ;;@
 ;;9002226,773,.14)
 ;;@
 ;;9002226,773,.15)
 ;;@
 ;;9002226,773,.16)
 ;;@
 ;;9002226,773,.17)
 ;;@
 ;;9002226,773,3101)
 ;;@
 ;;9002226.02101,"773,630 ",.01)
 ;;630
 ;;9002226.02101,"773,630 ",.02)
 ;;630
 ;;9002226.02101,"773,631 ",.01)
 ;;631
 ;;9002226.02101,"773,631 ",.02)
 ;;631
 ;;9002226.02101,"773,632 ",.01)
 ;;632
 ;;9002226.02101,"773,632 ",.02)
 ;;632
 ;;9002226.02101,"773,633 ",.01)
 ;;633
 ;;9002226.02101,"773,633 ",.02)
 ;;633
 ;;9002226.02101,"773,633.0 ",.01)
 ;;633.0
 ;;9002226.02101,"773,633.0 ",.02)
 ;;633.0
 ;;9002226.02101,"773,633.00 ",.01)
 ;;633.00
 ;;9002226.02101,"773,633.00 ",.02)
 ;;633.00
 ;;9002226.02101,"773,633.01 ",.01)
 ;;633.01
 ;;9002226.02101,"773,633.01 ",.02)
 ;;633.01
 ;;9002226.02101,"773,633.1 ",.01)
 ;;633.1
 ;;9002226.02101,"773,633.1 ",.02)
 ;;633.1
 ;;9002226.02101,"773,633.10 ",.01)
 ;;633.10
 ;;9002226.02101,"773,633.10 ",.02)
 ;;633.10
 ;;9002226.02101,"773,633.11 ",.01)
 ;;633.11
 ;;9002226.02101,"773,633.11 ",.02)
 ;;633.11
 ;;9002226.02101,"773,633.2 ",.01)
 ;;633.2
 ;;9002226.02101,"773,633.2 ",.02)
 ;;633.2
 ;;9002226.02101,"773,633.20 ",.01)
 ;;633.20
 ;;9002226.02101,"773,633.20 ",.02)
 ;;633.20
 ;;9002226.02101,"773,633.21 ",.01)
 ;;633.21
 ;;9002226.02101,"773,633.21 ",.02)
 ;;633.21
 ;;9002226.02101,"773,633.8 ",.01)
 ;;633.8
 ;;9002226.02101,"773,633.8 ",.02)
 ;;633.8
 ;;9002226.02101,"773,633.80 ",.01)
 ;;633.80
 ;;9002226.02101,"773,633.80 ",.02)
 ;;633.80
 ;;9002226.02101,"773,633.81 ",.01)
 ;;633.81
 ;;9002226.02101,"773,633.81 ",.02)
 ;;633.81
 ;;9002226.02101,"773,633.9 ",.01)
 ;;633.9
 ;;9002226.02101,"773,633.9 ",.02)
 ;;633.9
 ;;9002226.02101,"773,633.90 ",.01)
 ;;633.90
 ;;9002226.02101,"773,633.90 ",.02)
 ;;633.90
 ;;9002226.02101,"773,633.91 ",.01)
 ;;633.91
 ;;9002226.02101,"773,633.91 ",.02)
 ;;633.91
 ;;9002226.02101,"773,634 ",.01)
 ;;634
 ;;9002226.02101,"773,634 ",.02)
 ;;634
 ;;9002226.02101,"773,634.0 ",.01)
 ;;634.0
 ;;9002226.02101,"773,634.0 ",.02)
 ;;634.0
 ;;9002226.02101,"773,634.00 ",.01)
 ;;634.00
 ;;9002226.02101,"773,634.00 ",.02)
 ;;634.00
 ;;9002226.02101,"773,634.01 ",.01)
 ;;634.01
 ;;9002226.02101,"773,634.01 ",.02)
 ;;634.01
 ;;9002226.02101,"773,634.02 ",.01)
 ;;634.02
 ;;9002226.02101,"773,634.02 ",.02)
 ;;634.02
 ;;9002226.02101,"773,634.1 ",.01)
 ;;634.1
 ;;9002226.02101,"773,634.1 ",.02)
 ;;634.1
 ;;9002226.02101,"773,634.10 ",.01)
 ;;634.10
 ;;9002226.02101,"773,634.10 ",.02)
 ;;634.10
 ;;9002226.02101,"773,634.11 ",.01)
 ;;634.11
 ;;9002226.02101,"773,634.11 ",.02)
 ;;634.11
 ;;9002226.02101,"773,634.12 ",.01)
 ;;634.12
 ;;9002226.02101,"773,634.12 ",.02)
 ;;634.12
 ;;9002226.02101,"773,634.2 ",.01)
 ;;634.2
 ;;9002226.02101,"773,634.2 ",.02)
 ;;634.2
 ;;9002226.02101,"773,634.20 ",.01)
 ;;634.20
 ;;9002226.02101,"773,634.20 ",.02)
 ;;634.20
 ;;9002226.02101,"773,634.21 ",.01)
 ;;634.21
 ;;9002226.02101,"773,634.21 ",.02)
 ;;634.21
 ;;9002226.02101,"773,634.22 ",.01)
 ;;634.22
 ;;9002226.02101,"773,634.22 ",.02)
 ;;634.22
 ;;9002226.02101,"773,634.3 ",.01)
 ;;634.3
 ;;9002226.02101,"773,634.3 ",.02)
 ;;634.3
 ;;9002226.02101,"773,634.30 ",.01)
 ;;634.30
 ;;9002226.02101,"773,634.30 ",.02)
 ;;634.30
 ;;9002226.02101,"773,634.31 ",.01)
 ;;634.31
 ;;9002226.02101,"773,634.31 ",.02)
 ;;634.31
 ;;9002226.02101,"773,634.32 ",.01)
 ;;634.32
 ;;9002226.02101,"773,634.32 ",.02)
 ;;634.32
 ;;9002226.02101,"773,634.4 ",.01)
 ;;634.4
 ;;9002226.02101,"773,634.4 ",.02)
 ;;634.4
 ;;9002226.02101,"773,634.40 ",.01)
 ;;634.40
 ;;9002226.02101,"773,634.40 ",.02)
 ;;634.40
 ;;9002226.02101,"773,634.41 ",.01)
 ;;634.41
 ;;9002226.02101,"773,634.41 ",.02)
 ;;634.41
 ;;9002226.02101,"773,634.42 ",.01)
 ;;634.42
 ;;9002226.02101,"773,634.42 ",.02)
 ;;634.42
 ;;9002226.02101,"773,634.5 ",.01)
 ;;634.5
 ;;9002226.02101,"773,634.5 ",.02)
 ;;634.5
 ;;9002226.02101,"773,634.50 ",.01)
 ;;634.50
 ;;9002226.02101,"773,634.50 ",.02)
 ;;634.50
 ;;9002226.02101,"773,634.51 ",.01)
 ;;634.51
 ;;9002226.02101,"773,634.51 ",.02)
 ;;634.51
 ;;9002226.02101,"773,634.52 ",.01)
 ;;634.52
 ;;9002226.02101,"773,634.52 ",.02)
 ;;634.52
 ;;9002226.02101,"773,634.6 ",.01)
 ;;634.6
 ;;9002226.02101,"773,634.6 ",.02)
 ;;634.6
 ;;9002226.02101,"773,634.60 ",.01)
 ;;634.60
 ;;9002226.02101,"773,634.60 ",.02)
 ;;634.60
 ;;9002226.02101,"773,634.61 ",.01)
 ;;634.61
 ;;9002226.02101,"773,634.61 ",.02)
 ;;634.61
 ;;9002226.02101,"773,634.62 ",.01)
 ;;634.62
 ;;9002226.02101,"773,634.62 ",.02)
 ;;634.62
 ;;9002226.02101,"773,634.7 ",.01)
 ;;634.7
 ;;9002226.02101,"773,634.7 ",.02)
 ;;634.7
 ;;9002226.02101,"773,634.70 ",.01)
 ;;634.70
 ;;9002226.02101,"773,634.70 ",.02)
 ;;634.70
 ;;9002226.02101,"773,634.71 ",.01)
 ;;634.71
 ;;9002226.02101,"773,634.71 ",.02)
 ;;634.71
 ;;9002226.02101,"773,634.72 ",.01)
 ;;634.72
 ;;9002226.02101,"773,634.72 ",.02)
 ;;634.72
 ;;9002226.02101,"773,634.8 ",.01)
 ;;634.8
 ;;9002226.02101,"773,634.8 ",.02)
 ;;634.8
 ;;9002226.02101,"773,634.80 ",.01)
 ;;634.80
 ;;9002226.02101,"773,634.80 ",.02)
 ;;634.80
 ;;9002226.02101,"773,634.81 ",.01)
 ;;634.81
 ;;9002226.02101,"773,634.81 ",.02)
 ;;634.81
 ;;9002226.02101,"773,634.82 ",.01)
 ;;634.82
 ;;9002226.02101,"773,634.82 ",.02)
 ;;634.82
 ;;9002226.02101,"773,634.9 ",.01)
 ;;634.9
 ;;9002226.02101,"773,634.9 ",.02)
 ;;634.9
 ;;9002226.02101,"773,634.90 ",.01)
 ;;634.90
 ;;9002226.02101,"773,634.90 ",.02)
 ;;634.90
 ;;9002226.02101,"773,634.91 ",.01)
 ;;634.91
 ;;9002226.02101,"773,634.91 ",.02)
 ;;634.91
 ;;9002226.02101,"773,634.92 ",.01)
 ;;634.92
 ;;9002226.02101,"773,634.92 ",.02)
 ;;634.92
 ;;9002226.02101,"773,635 ",.01)
 ;;635
 ;;9002226.02101,"773,635 ",.02)
 ;;635
 ;;9002226.02101,"773,635.0 ",.01)
 ;;635.0
 ;;9002226.02101,"773,635.0 ",.02)
 ;;635.0
 ;;9002226.02101,"773,635.00 ",.01)
 ;;635.00
 ;;9002226.02101,"773,635.00 ",.02)
 ;;635.00
 ;;9002226.02101,"773,635.01 ",.01)
 ;;635.01
 ;;9002226.02101,"773,635.01 ",.02)
 ;;635.01
 ;;9002226.02101,"773,635.02 ",.01)
 ;;635.02
 ;;9002226.02101,"773,635.02 ",.02)
 ;;635.02
 ;;9002226.02101,"773,635.1 ",.01)
 ;;635.1
 ;;9002226.02101,"773,635.1 ",.02)
 ;;635.1
 ;;9002226.02101,"773,635.10 ",.01)
 ;;635.10
 ;;9002226.02101,"773,635.10 ",.02)
 ;;635.10
 ;;9002226.02101,"773,635.11 ",.01)
 ;;635.11
 ;;9002226.02101,"773,635.11 ",.02)
 ;;635.11
 ;;9002226.02101,"773,635.12 ",.01)
 ;;635.12
 ;;9002226.02101,"773,635.12 ",.02)
 ;;635.12
 ;;9002226.02101,"773,635.2 ",.01)
 ;;635.2
 ;;9002226.02101,"773,635.2 ",.02)
 ;;635.2
 ;;9002226.02101,"773,635.20 ",.01)
 ;;635.20
 ;;9002226.02101,"773,635.20 ",.02)
 ;;635.20
 ;;9002226.02101,"773,635.21 ",.01)
 ;;635.21
 ;;9002226.02101,"773,635.21 ",.02)
 ;;635.21
 ;;9002226.02101,"773,635.22 ",.01)
 ;;635.22
 ;;9002226.02101,"773,635.22 ",.02)
 ;;635.22
 ;;9002226.02101,"773,635.3 ",.01)
 ;;635.3
 ;;9002226.02101,"773,635.3 ",.02)
 ;;635.3
 ;;9002226.02101,"773,635.30 ",.01)
 ;;635.30
 ;;9002226.02101,"773,635.30 ",.02)
 ;;635.30
 ;;9002226.02101,"773,635.31 ",.01)
 ;;635.31
 ;;9002226.02101,"773,635.31 ",.02)
 ;;635.31
 ;;9002226.02101,"773,635.32 ",.01)
 ;;635.32
 ;;9002226.02101,"773,635.32 ",.02)
 ;;635.32
 ;;9002226.02101,"773,635.4 ",.01)
 ;;635.4
 ;;9002226.02101,"773,635.4 ",.02)
 ;;635.4
 ;;9002226.02101,"773,635.40 ",.01)
 ;;635.40
 ;;9002226.02101,"773,635.40 ",.02)
 ;;635.40
 ;;9002226.02101,"773,635.41 ",.01)
 ;;635.41
 ;;9002226.02101,"773,635.41 ",.02)
 ;;635.41
 ;;9002226.02101,"773,635.42 ",.01)
 ;;635.42
 ;;9002226.02101,"773,635.42 ",.02)
 ;;635.42
 ;;9002226.02101,"773,635.5 ",.01)
 ;;635.5
 ;;9002226.02101,"773,635.5 ",.02)
 ;;635.5
 ;;9002226.02101,"773,635.50 ",.01)
 ;;635.50
 ;;9002226.02101,"773,635.50 ",.02)
 ;;635.50
 ;;9002226.02101,"773,635.51 ",.01)
 ;;635.51
 ;;9002226.02101,"773,635.51 ",.02)
 ;;635.51
 ;;9002226.02101,"773,635.52 ",.01)
 ;;635.52
 ;;9002226.02101,"773,635.52 ",.02)
 ;;635.52
 ;;9002226.02101,"773,635.6 ",.01)
 ;;635.6
 ;;9002226.02101,"773,635.6 ",.02)
 ;;635.6
 ;;9002226.02101,"773,635.60 ",.01)
 ;;635.60
 ;;9002226.02101,"773,635.60 ",.02)
 ;;635.60
 ;;9002226.02101,"773,635.61 ",.01)
 ;;635.61
 ;;9002226.02101,"773,635.61 ",.02)
 ;;635.61
 ;;9002226.02101,"773,635.62 ",.01)
 ;;635.62
 ;;9002226.02101,"773,635.62 ",.02)
 ;;635.62
 ;;9002226.02101,"773,635.7 ",.01)
 ;;635.7
 ;;9002226.02101,"773,635.7 ",.02)
 ;;635.7
 ;;9002226.02101,"773,635.70 ",.01)
 ;;635.70
 ;;9002226.02101,"773,635.70 ",.02)
 ;;635.70
 ;;9002226.02101,"773,635.71 ",.01)
 ;;635.71
 ;;9002226.02101,"773,635.71 ",.02)
 ;;635.71
 ;;9002226.02101,"773,635.72 ",.01)
 ;;635.72
 ;;9002226.02101,"773,635.72 ",.02)
 ;;635.72
 ;;9002226.02101,"773,635.8 ",.01)
 ;;635.8
 ;;9002226.02101,"773,635.8 ",.02)
 ;;635.8
 ;;9002226.02101,"773,635.80 ",.01)
 ;;635.80
 ;;9002226.02101,"773,635.80 ",.02)
 ;;635.80
 ;;9002226.02101,"773,635.81 ",.01)
 ;;635.81
 ;;9002226.02101,"773,635.81 ",.02)
 ;;635.81
 ;;9002226.02101,"773,635.82 ",.01)
 ;;635.82
 ;;9002226.02101,"773,635.82 ",.02)
 ;;635.82
 ;;9002226.02101,"773,635.9 ",.01)
 ;;635.9
 ;;9002226.02101,"773,635.9 ",.02)
 ;;635.9
 ;;9002226.02101,"773,635.90 ",.01)
 ;;635.90
 ;;9002226.02101,"773,635.90 ",.02)
 ;;635.90
 ;;9002226.02101,"773,635.91 ",.01)
 ;;635.91
 ;;9002226.02101,"773,635.91 ",.02)
 ;;635.91
 ;;9002226.02101,"773,635.92 ",.01)
 ;;635.92
 ;;9002226.02101,"773,635.92 ",.02)
 ;;635.92
 ;;9002226.02101,"773,636 ",.01)
 ;;636
 ;;9002226.02101,"773,636 ",.02)
 ;;636
 ;;9002226.02101,"773,636.0 ",.01)
 ;;636.0
 ;;9002226.02101,"773,636.0 ",.02)
 ;;636.0
 ;;9002226.02101,"773,636.00 ",.01)
 ;;636.00
 ;;9002226.02101,"773,636.00 ",.02)
 ;;636.00
 ;;9002226.02101,"773,636.01 ",.01)
 ;;636.01
 ;;9002226.02101,"773,636.01 ",.02)
 ;;636.01
 ;;9002226.02101,"773,636.02 ",.01)
 ;;636.02
 ;;9002226.02101,"773,636.02 ",.02)
 ;;636.02
 ;;9002226.02101,"773,636.1 ",.01)
 ;;636.1
 ;;9002226.02101,"773,636.1 ",.02)
 ;;636.1
 ;;9002226.02101,"773,636.10 ",.01)
 ;;636.10
 ;;9002226.02101,"773,636.10 ",.02)
 ;;636.10
 ;;9002226.02101,"773,636.11 ",.01)
 ;;636.11
 ;;9002226.02101,"773,636.11 ",.02)
 ;;636.11
 ;;9002226.02101,"773,636.12 ",.01)
 ;;636.12
 ;;9002226.02101,"773,636.12 ",.02)
 ;;636.12
 ;;9002226.02101,"773,636.2 ",.01)
 ;;636.2
 ;;9002226.02101,"773,636.2 ",.02)
 ;;636.2
 ;;9002226.02101,"773,636.20 ",.01)
 ;;636.20
 ;;9002226.02101,"773,636.20 ",.02)
 ;;636.20
 ;;9002226.02101,"773,636.21 ",.01)
 ;;636.21
 ;;9002226.02101,"773,636.21 ",.02)
 ;;636.21
 ;;9002226.02101,"773,636.22 ",.01)
 ;;636.22
 ;;9002226.02101,"773,636.22 ",.02)
 ;;636.22
 ;;9002226.02101,"773,636.3 ",.01)
 ;;636.3
 ;;9002226.02101,"773,636.3 ",.02)
 ;;636.3
 ;;9002226.02101,"773,636.30 ",.01)
 ;;636.30
 ;;9002226.02101,"773,636.30 ",.02)
 ;;636.30
 ;;9002226.02101,"773,636.31 ",.01)
 ;;636.31
 ;;9002226.02101,"773,636.31 ",.02)
 ;;636.31
 ;;9002226.02101,"773,636.32 ",.01)
 ;;636.32
 ;;9002226.02101,"773,636.32 ",.02)
 ;;636.32
 ;;9002226.02101,"773,636.4 ",.01)
 ;;636.4
 ;;9002226.02101,"773,636.4 ",.02)
 ;;636.4
 ;;9002226.02101,"773,636.40 ",.01)
 ;;636.40
 ;;9002226.02101,"773,636.40 ",.02)
 ;;636.40
 ;;9002226.02101,"773,636.41 ",.01)
 ;;636.41
 ;;9002226.02101,"773,636.41 ",.02)
 ;;636.41
 ;;9002226.02101,"773,636.42 ",.01)
 ;;636.42
 ;;9002226.02101,"773,636.42 ",.02)
 ;;636.42
 ;;9002226.02101,"773,636.5 ",.01)
 ;;636.5
 ;;9002226.02101,"773,636.5 ",.02)
 ;;636.5
 ;;9002226.02101,"773,636.50 ",.01)
 ;;636.50
 ;;9002226.02101,"773,636.50 ",.02)
 ;;636.50
 ;;9002226.02101,"773,636.51 ",.01)
 ;;636.51
 ;;9002226.02101,"773,636.51 ",.02)
 ;;636.51
 ;;9002226.02101,"773,636.52 ",.01)
 ;;636.52
 ;;9002226.02101,"773,636.52 ",.02)
 ;;636.52
 ;;9002226.02101,"773,636.6 ",.01)
 ;;636.6
 ;;9002226.02101,"773,636.6 ",.02)
 ;;636.6
 ;;9002226.02101,"773,636.60 ",.01)
 ;;636.60
 ;;9002226.02101,"773,636.60 ",.02)
 ;;636.60
 ;;9002226.02101,"773,636.61 ",.01)
 ;;636.61
 ;;9002226.02101,"773,636.61 ",.02)
 ;;636.61
 ;;9002226.02101,"773,636.62 ",.01)
 ;;636.62
 ;;9002226.02101,"773,636.62 ",.02)
 ;;636.62
 ;;9002226.02101,"773,636.7 ",.01)
 ;;636.7
 ;;9002226.02101,"773,636.7 ",.02)
 ;;636.7
 ;;9002226.02101,"773,636.70 ",.01)
 ;;636.70
 ;;9002226.02101,"773,636.70 ",.02)
 ;;636.70
 ;;9002226.02101,"773,636.71 ",.01)
 ;;636.71
 ;;9002226.02101,"773,636.71 ",.02)
 ;;636.71
 ;;9002226.02101,"773,636.72 ",.01)
 ;;636.72
 ;;9002226.02101,"773,636.72 ",.02)
 ;;636.72
 ;;9002226.02101,"773,636.8 ",.01)
 ;;636.8
 ;;9002226.02101,"773,636.8 ",.02)
 ;;636.8
 ;;9002226.02101,"773,636.80 ",.01)
 ;;636.80
 ;;9002226.02101,"773,636.80 ",.02)
 ;;636.80
 ;;9002226.02101,"773,636.81 ",.01)
 ;;636.81
 ;;9002226.02101,"773,636.81 ",.02)
 ;;636.81