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

BGP2TD27.m

Go to the documentation of this file.
BGP2TD27 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"1729,43063-0303-30 ",.01)
 ;;43063-0303-30
 ;;9002226.02101,"1729,43063-0303-30 ",.02)
 ;;43063-0303-30
 ;;9002226.02101,"1729,43353-0045-80 ",.01)
 ;;43353-0045-80
 ;;9002226.02101,"1729,43353-0045-80 ",.02)
 ;;43353-0045-80
 ;;9002226.02101,"1729,43353-0313-15 ",.01)
 ;;43353-0313-15
 ;;9002226.02101,"1729,43353-0313-15 ",.02)
 ;;43353-0313-15
 ;;9002226.02101,"1729,43353-0313-60 ",.01)
 ;;43353-0313-60
 ;;9002226.02101,"1729,43353-0313-60 ",.02)
 ;;43353-0313-60
 ;;9002226.02101,"1729,43353-0318-60 ",.01)
 ;;43353-0318-60
 ;;9002226.02101,"1729,43353-0318-60 ",.02)
 ;;43353-0318-60
 ;;9002226.02101,"1729,43353-0350-30 ",.01)
 ;;43353-0350-30
 ;;9002226.02101,"1729,43353-0350-30 ",.02)
 ;;43353-0350-30
 ;;9002226.02101,"1729,43353-0350-45 ",.01)
 ;;43353-0350-45
 ;;9002226.02101,"1729,43353-0350-45 ",.02)
 ;;43353-0350-45
 ;;9002226.02101,"1729,43353-0350-60 ",.01)
 ;;43353-0350-60
 ;;9002226.02101,"1729,43353-0350-60 ",.02)
 ;;43353-0350-60
 ;;9002226.02101,"1729,43353-0350-80 ",.01)
 ;;43353-0350-80
 ;;9002226.02101,"1729,43353-0350-80 ",.02)
 ;;43353-0350-80
 ;;9002226.02101,"1729,43353-0365-15 ",.01)
 ;;43353-0365-15
 ;;9002226.02101,"1729,43353-0365-15 ",.02)
 ;;43353-0365-15
 ;;9002226.02101,"1729,43353-0365-30 ",.01)
 ;;43353-0365-30
 ;;9002226.02101,"1729,43353-0365-30 ",.02)
 ;;43353-0365-30
 ;;9002226.02101,"1729,43353-0365-45 ",.01)
 ;;43353-0365-45
 ;;9002226.02101,"1729,43353-0365-45 ",.02)
 ;;43353-0365-45
 ;;9002226.02101,"1729,43353-0365-60 ",.01)
 ;;43353-0365-60
 ;;9002226.02101,"1729,43353-0365-60 ",.02)
 ;;43353-0365-60
 ;;9002226.02101,"1729,43353-0371-45 ",.01)
 ;;43353-0371-45
 ;;9002226.02101,"1729,43353-0371-45 ",.02)
 ;;43353-0371-45
 ;;9002226.02101,"1729,43353-0371-60 ",.01)
 ;;43353-0371-60
 ;;9002226.02101,"1729,43353-0371-60 ",.02)
 ;;43353-0371-60
 ;;9002226.02101,"1729,43353-0411-60 ",.01)
 ;;43353-0411-60
 ;;9002226.02101,"1729,43353-0411-60 ",.02)
 ;;43353-0411-60
 ;;9002226.02101,"1729,43353-0459-45 ",.01)
 ;;43353-0459-45
 ;;9002226.02101,"1729,43353-0459-45 ",.02)
 ;;43353-0459-45
 ;;9002226.02101,"1729,43353-0488-45 ",.01)
 ;;43353-0488-45
 ;;9002226.02101,"1729,43353-0488-45 ",.02)
 ;;43353-0488-45
 ;;9002226.02101,"1729,43353-0488-60 ",.01)
 ;;43353-0488-60
 ;;9002226.02101,"1729,43353-0488-60 ",.02)
 ;;43353-0488-60
 ;;9002226.02101,"1729,43353-0516-45 ",.01)
 ;;43353-0516-45
 ;;9002226.02101,"1729,43353-0516-45 ",.02)
 ;;43353-0516-45
 ;;9002226.02101,"1729,43353-0521-60 ",.01)
 ;;43353-0521-60
 ;;9002226.02101,"1729,43353-0521-60 ",.02)
 ;;43353-0521-60
 ;;9002226.02101,"1729,43353-0521-80 ",.01)
 ;;43353-0521-80
 ;;9002226.02101,"1729,43353-0521-80 ",.02)
 ;;43353-0521-80
 ;;9002226.02101,"1729,43353-0596-30 ",.01)
 ;;43353-0596-30
 ;;9002226.02101,"1729,43353-0596-30 ",.02)
 ;;43353-0596-30
 ;;9002226.02101,"1729,43353-0596-60 ",.01)
 ;;43353-0596-60
 ;;9002226.02101,"1729,43353-0596-60 ",.02)
 ;;43353-0596-60
 ;;9002226.02101,"1729,43353-0626-60 ",.01)
 ;;43353-0626-60
 ;;9002226.02101,"1729,43353-0626-60 ",.02)
 ;;43353-0626-60
 ;;9002226.02101,"1729,43353-0643-60 ",.01)
 ;;43353-0643-60
 ;;9002226.02101,"1729,43353-0643-60 ",.02)
 ;;43353-0643-60
 ;;9002226.02101,"1729,43353-0655-60 ",.01)
 ;;43353-0655-60
 ;;9002226.02101,"1729,43353-0655-60 ",.02)
 ;;43353-0655-60
 ;;9002226.02101,"1729,43353-0662-80 ",.01)
 ;;43353-0662-80
 ;;9002226.02101,"1729,43353-0662-80 ",.02)
 ;;43353-0662-80
 ;;9002226.02101,"1729,43353-0667-60 ",.01)
 ;;43353-0667-60
 ;;9002226.02101,"1729,43353-0667-60 ",.02)
 ;;43353-0667-60
 ;;9002226.02101,"1729,43353-0668-45 ",.01)
 ;;43353-0668-45
 ;;9002226.02101,"1729,43353-0668-45 ",.02)
 ;;43353-0668-45
 ;;9002226.02101,"1729,43353-0668-60 ",.01)
 ;;43353-0668-60
 ;;9002226.02101,"1729,43353-0668-60 ",.02)
 ;;43353-0668-60
 ;;9002226.02101,"1729,43353-0671-30 ",.01)
 ;;43353-0671-30
 ;;9002226.02101,"1729,43353-0671-30 ",.02)
 ;;43353-0671-30
 ;;9002226.02101,"1729,43353-0671-45 ",.01)
 ;;43353-0671-45
 ;;9002226.02101,"1729,43353-0671-45 ",.02)
 ;;43353-0671-45
 ;;9002226.02101,"1729,43353-0676-60 ",.01)
 ;;43353-0676-60
 ;;9002226.02101,"1729,43353-0676-60 ",.02)
 ;;43353-0676-60
 ;;9002226.02101,"1729,43353-0712-60 ",.01)
 ;;43353-0712-60
 ;;9002226.02101,"1729,43353-0712-60 ",.02)
 ;;43353-0712-60
 ;;9002226.02101,"1729,43353-0722-60 ",.01)
 ;;43353-0722-60
 ;;9002226.02101,"1729,43353-0722-60 ",.02)
 ;;43353-0722-60
 ;;9002226.02101,"1729,43353-0726-60 ",.01)
 ;;43353-0726-60
 ;;9002226.02101,"1729,43353-0726-60 ",.02)
 ;;43353-0726-60
 ;;9002226.02101,"1729,43353-0726-80 ",.01)
 ;;43353-0726-80
 ;;9002226.02101,"1729,43353-0726-80 ",.02)
 ;;43353-0726-80
 ;;9002226.02101,"1729,43353-0728-60 ",.01)
 ;;43353-0728-60
 ;;9002226.02101,"1729,43353-0728-60 ",.02)
 ;;43353-0728-60
 ;;9002226.02101,"1729,43353-0729-30 ",.01)
 ;;43353-0729-30
 ;;9002226.02101,"1729,43353-0729-30 ",.02)
 ;;43353-0729-30
 ;;9002226.02101,"1729,43353-0729-45 ",.01)
 ;;43353-0729-45
 ;;9002226.02101,"1729,43353-0729-45 ",.02)
 ;;43353-0729-45
 ;;9002226.02101,"1729,43353-0729-60 ",.01)
 ;;43353-0729-60
 ;;9002226.02101,"1729,43353-0729-60 ",.02)
 ;;43353-0729-60
 ;;9002226.02101,"1729,43353-0730-30 ",.01)
 ;;43353-0730-30
 ;;9002226.02101,"1729,43353-0730-30 ",.02)
 ;;43353-0730-30
 ;;9002226.02101,"1729,43353-0730-60 ",.01)
 ;;43353-0730-60
 ;;9002226.02101,"1729,43353-0730-60 ",.02)
 ;;43353-0730-60
 ;;9002226.02101,"1729,43386-0710-05 ",.01)
 ;;43386-0710-05
 ;;9002226.02101,"1729,43386-0710-05 ",.02)
 ;;43386-0710-05
 ;;9002226.02101,"1729,43386-0710-09 ",.01)
 ;;43386-0710-09
 ;;9002226.02101,"1729,43386-0710-09 ",.02)
 ;;43386-0710-09
 ;;9002226.02101,"1729,43386-0711-05 ",.01)
 ;;43386-0711-05
 ;;9002226.02101,"1729,43386-0711-05 ",.02)
 ;;43386-0711-05
 ;;9002226.02101,"1729,43386-0711-09 ",.01)
 ;;43386-0711-09
 ;;9002226.02101,"1729,43386-0711-09 ",.02)
 ;;43386-0711-09
 ;;9002226.02101,"1729,43386-0712-05 ",.01)
 ;;43386-0712-05
 ;;9002226.02101,"1729,43386-0712-05 ",.02)
 ;;43386-0712-05
 ;;9002226.02101,"1729,43386-0712-09 ",.01)
 ;;43386-0712-09
 ;;9002226.02101,"1729,43386-0712-09 ",.02)
 ;;43386-0712-09
 ;;9002226.02101,"1729,43683-0147-30 ",.01)
 ;;43683-0147-30
 ;;9002226.02101,"1729,43683-0147-30 ",.02)
 ;;43683-0147-30
 ;;9002226.02101,"1729,43683-0148-30 ",.01)
 ;;43683-0148-30
 ;;9002226.02101,"1729,43683-0148-30 ",.02)
 ;;43683-0148-30
 ;;9002226.02101,"1729,47463-0020-30 ",.01)
 ;;47463-0020-30
 ;;9002226.02101,"1729,47463-0020-30 ",.02)
 ;;47463-0020-30
 ;;9002226.02101,"1729,47463-0021-30 ",.01)
 ;;47463-0021-30
 ;;9002226.02101,"1729,47463-0021-30 ",.02)
 ;;47463-0021-30
 ;;9002226.02101,"1729,47463-0022-30 ",.01)
 ;;47463-0022-30
 ;;9002226.02101,"1729,47463-0022-30 ",.02)
 ;;47463-0022-30
 ;;9002226.02101,"1729,47463-0023-30 ",.01)
 ;;47463-0023-30
 ;;9002226.02101,"1729,47463-0023-30 ",.02)
 ;;47463-0023-30
 ;;9002226.02101,"1729,47463-0024-30 ",.01)
 ;;47463-0024-30
 ;;9002226.02101,"1729,47463-0024-30 ",.02)
 ;;47463-0024-30
 ;;9002226.02101,"1729,47463-0039-30 ",.01)
 ;;47463-0039-30
 ;;9002226.02101,"1729,47463-0039-30 ",.02)
 ;;47463-0039-30
 ;;9002226.02101,"1729,47463-0040-30 ",.01)
 ;;47463-0040-30
 ;;9002226.02101,"1729,47463-0040-30 ",.02)
 ;;47463-0040-30
 ;;9002226.02101,"1729,47463-0043-30 ",.01)
 ;;47463-0043-30
 ;;9002226.02101,"1729,47463-0043-30 ",.02)
 ;;47463-0043-30
 ;;9002226.02101,"1729,47463-0220-30 ",.01)
 ;;47463-0220-30
 ;;9002226.02101,"1729,47463-0220-30 ",.02)
 ;;47463-0220-30
 ;;9002226.02101,"1729,47463-0221-30 ",.01)
 ;;47463-0221-30
 ;;9002226.02101,"1729,47463-0221-30 ",.02)
 ;;47463-0221-30
 ;;9002226.02101,"1729,47463-0222-30 ",.01)
 ;;47463-0222-30
 ;;9002226.02101,"1729,47463-0222-30 ",.02)
 ;;47463-0222-30
 ;;9002226.02101,"1729,47463-0223-30 ",.01)
 ;;47463-0223-30
 ;;9002226.02101,"1729,47463-0223-30 ",.02)
 ;;47463-0223-30
 ;;9002226.02101,"1729,47463-0250-30 ",.01)
 ;;47463-0250-30
 ;;9002226.02101,"1729,47463-0250-30 ",.02)
 ;;47463-0250-30
 ;;9002226.02101,"1729,47463-0251-30 ",.01)
 ;;47463-0251-30
 ;;9002226.02101,"1729,47463-0251-30 ",.02)
 ;;47463-0251-30
 ;;9002226.02101,"1729,47463-0252-30 ",.01)
 ;;47463-0252-30
 ;;9002226.02101,"1729,47463-0252-30 ",.02)
 ;;47463-0252-30
 ;;9002226.02101,"1729,47463-0253-30 ",.01)
 ;;47463-0253-30
 ;;9002226.02101,"1729,47463-0253-30 ",.02)
 ;;47463-0253-30
 ;;9002226.02101,"1729,47463-0375-30 ",.01)
 ;;47463-0375-30
 ;;9002226.02101,"1729,47463-0375-30 ",.02)
 ;;47463-0375-30
 ;;9002226.02101,"1729,47463-0376-30 ",.01)
 ;;47463-0376-30
 ;;9002226.02101,"1729,47463-0376-30 ",.02)
 ;;47463-0376-30
 ;;9002226.02101,"1729,47463-0387-30 ",.01)
 ;;47463-0387-30
 ;;9002226.02101,"1729,47463-0387-30 ",.02)
 ;;47463-0387-30
 ;;9002226.02101,"1729,47463-0387-60 ",.01)
 ;;47463-0387-60
 ;;9002226.02101,"1729,47463-0387-60 ",.02)
 ;;47463-0387-60
 ;;9002226.02101,"1729,47463-0387-90 ",.01)
 ;;47463-0387-90
 ;;9002226.02101,"1729,47463-0387-90 ",.02)
 ;;47463-0387-90
 ;;9002226.02101,"1729,47463-0388-30 ",.01)
 ;;47463-0388-30
 ;;9002226.02101,"1729,47463-0388-30 ",.02)
 ;;47463-0388-30
 ;;9002226.02101,"1729,47463-0388-60 ",.01)
 ;;47463-0388-60
 ;;9002226.02101,"1729,47463-0388-60 ",.02)
 ;;47463-0388-60
 ;;9002226.02101,"1729,47463-0388-90 ",.01)
 ;;47463-0388-90
 ;;9002226.02101,"1729,47463-0388-90 ",.02)
 ;;47463-0388-90
 ;;9002226.02101,"1729,47463-0389-30 ",.01)
 ;;47463-0389-30
 ;;9002226.02101,"1729,47463-0389-30 ",.02)
 ;;47463-0389-30
 ;;9002226.02101,"1729,47463-0390-30 ",.01)
 ;;47463-0390-30
 ;;9002226.02101,"1729,47463-0390-30 ",.02)
 ;;47463-0390-30
 ;;9002226.02101,"1729,47463-0390-60 ",.01)
 ;;47463-0390-60
 ;;9002226.02101,"1729,47463-0390-60 ",.02)
 ;;47463-0390-60
 ;;9002226.02101,"1729,47463-0409-30 ",.01)
 ;;47463-0409-30
 ;;9002226.02101,"1729,47463-0409-30 ",.02)
 ;;47463-0409-30
 ;;9002226.02101,"1729,47463-0410-30 ",.01)
 ;;47463-0410-30
 ;;9002226.02101,"1729,47463-0410-30 ",.02)
 ;;47463-0410-30
 ;;9002226.02101,"1729,47463-0410-90 ",.01)
 ;;47463-0410-90
 ;;9002226.02101,"1729,47463-0410-90 ",.02)
 ;;47463-0410-90
 ;;9002226.02101,"1729,47463-0429-30 ",.01)
 ;;47463-0429-30
 ;;9002226.02101,"1729,47463-0429-30 ",.02)
 ;;47463-0429-30
 ;;9002226.02101,"1729,47463-0618-30 ",.01)
 ;;47463-0618-30
 ;;9002226.02101,"1729,47463-0618-30 ",.02)
 ;;47463-0618-30
 ;;9002226.02101,"1729,47463-0619-30 ",.01)
 ;;47463-0619-30
 ;;9002226.02101,"1729,47463-0619-30 ",.02)
 ;;47463-0619-30
 ;;9002226.02101,"1729,47463-0620-30 ",.01)
 ;;47463-0620-30
 ;;9002226.02101,"1729,47463-0620-30 ",.02)
 ;;47463-0620-30
 ;;9002226.02101,"1729,49158-0500-01 ",.01)
 ;;49158-0500-01
 ;;9002226.02101,"1729,49158-0500-01 ",.02)
 ;;49158-0500-01
 ;;9002226.02101,"1729,49158-0500-10 ",.01)
 ;;49158-0500-10
 ;;9002226.02101,"1729,49158-0500-10 ",.02)
 ;;49158-0500-10
 ;;9002226.02101,"1729,49158-0501-01 ",.01)
 ;;49158-0501-01
 ;;9002226.02101,"1729,49158-0501-01 ",.02)
 ;;49158-0501-01
 ;;9002226.02101,"1729,49158-0501-10 ",.01)
 ;;49158-0501-10
 ;;9002226.02101,"1729,49158-0501-10 ",.02)
 ;;49158-0501-10
 ;;9002226.02101,"1729,49158-0502-01 ",.01)
 ;;49158-0502-01
 ;;9002226.02101,"1729,49158-0502-01 ",.02)
 ;;49158-0502-01
 ;;9002226.02101,"1729,49158-0502-10 ",.01)
 ;;49158-0502-10
 ;;9002226.02101,"1729,49158-0502-10 ",.02)
 ;;49158-0502-10
 ;;9002226.02101,"1729,49158-0503-01 ",.01)
 ;;49158-0503-01
 ;;9002226.02101,"1729,49158-0503-01 ",.02)
 ;;49158-0503-01
 ;;9002226.02101,"1729,49158-0503-10 ",.01)
 ;;49158-0503-10
 ;;9002226.02101,"1729,49158-0503-10 ",.02)
 ;;49158-0503-10
 ;;9002226.02101,"1729,49848-0008-90 ",.01)
 ;;49848-0008-90
 ;;9002226.02101,"1729,49848-0008-90 ",.02)
 ;;49848-0008-90
 ;;9002226.02101,"1729,49884-0556-01 ",.01)
 ;;49884-0556-01
 ;;9002226.02101,"1729,49884-0556-01 ",.02)
 ;;49884-0556-01
 ;;9002226.02101,"1729,49884-0556-10 ",.01)
 ;;49884-0556-10
 ;;9002226.02101,"1729,49884-0556-10 ",.02)
 ;;49884-0556-10
 ;;9002226.02101,"1729,49884-0557-01 ",.01)
 ;;49884-0557-01
 ;;9002226.02101,"1729,49884-0557-01 ",.02)
 ;;49884-0557-01
 ;;9002226.02101,"1729,49884-0557-10 ",.01)
 ;;49884-0557-10
 ;;9002226.02101,"1729,49884-0557-10 ",.02)
 ;;49884-0557-10
 ;;9002226.02101,"1729,49884-0558-01 ",.01)
 ;;49884-0558-01
 ;;9002226.02101,"1729,49884-0558-01 ",.02)
 ;;49884-0558-01
 ;;9002226.02101,"1729,49884-0558-10 ",.01)
 ;;49884-0558-10
 ;;9002226.02101,"1729,49884-0558-10 ",.02)
 ;;49884-0558-10
 ;;9002226.02101,"1729,49884-0559-01 ",.01)
 ;;49884-0559-01
 ;;9002226.02101,"1729,49884-0559-01 ",.02)
 ;;49884-0559-01
 ;;9002226.02101,"1729,49884-0559-10 ",.01)
 ;;49884-0559-10
 ;;9002226.02101,"1729,49884-0559-10 ",.02)
 ;;49884-0559-10
 ;;9002226.02101,"1729,49884-0560-01 ",.01)
 ;;49884-0560-01
 ;;9002226.02101,"1729,49884-0560-01 ",.02)
 ;;49884-0560-01
 ;;9002226.02101,"1729,49884-0560-10 ",.01)
 ;;49884-0560-10
 ;;9002226.02101,"1729,49884-0560-10 ",.02)
 ;;49884-0560-10
 ;;9002226.02101,"1729,49884-0591-01 ",.01)
 ;;49884-0591-01
 ;;9002226.02101,"1729,49884-0591-01 ",.02)
 ;;49884-0591-01
 ;;9002226.02101,"1729,49884-0591-10 ",.01)
 ;;49884-0591-10
 ;;9002226.02101,"1729,49884-0591-10 ",.02)
 ;;49884-0591-10
 ;;9002226.02101,"1729,49884-0592-01 ",.01)
 ;;49884-0592-01
 ;;9002226.02101,"1729,49884-0592-01 ",.02)
 ;;49884-0592-01
 ;;9002226.02101,"1729,49884-0592-10 ",.01)
 ;;49884-0592-10
 ;;9002226.02101,"1729,49884-0592-10 ",.02)
 ;;49884-0592-10
 ;;9002226.02101,"1729,49884-0593-01 ",.01)
 ;;49884-0593-01