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

BGP7IXTB.m

Go to the documentation of this file.
BGP7IXTB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 16, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"636,00078-0359-06 ",.01)
 ;;00078-0359-06
 ;;9002226.02101,"636,00078-0359-06 ",.02)
 ;;00078-0359-06
 ;;9002226.02101,"636,00078-0359-34 ",.01)
 ;;00078-0359-34
 ;;9002226.02101,"636,00078-0359-34 ",.02)
 ;;00078-0359-34
 ;;9002226.02101,"636,00078-0360-05 ",.01)
 ;;00078-0360-05
 ;;9002226.02101,"636,00078-0360-05 ",.02)
 ;;00078-0360-05
 ;;9002226.02101,"636,00078-0360-06 ",.01)
 ;;00078-0360-06
 ;;9002226.02101,"636,00078-0360-06 ",.02)
 ;;00078-0360-06
 ;;9002226.02101,"636,00078-0360-34 ",.01)
 ;;00078-0360-34
 ;;9002226.02101,"636,00078-0360-34 ",.02)
 ;;00078-0360-34
 ;;9002226.02101,"636,00078-0376-06 ",.01)
 ;;00078-0376-06
 ;;9002226.02101,"636,00078-0376-06 ",.02)
 ;;00078-0376-06
 ;;9002226.02101,"636,00078-0376-15 ",.01)
 ;;00078-0376-15
 ;;9002226.02101,"636,00078-0376-15 ",.02)
 ;;00078-0376-15
 ;;9002226.02101,"636,00078-0383-05 ",.01)
 ;;00078-0383-05
 ;;9002226.02101,"636,00078-0383-05 ",.02)
 ;;00078-0383-05
 ;;9002226.02101,"636,00078-0383-06 ",.01)
 ;;00078-0383-06
 ;;9002226.02101,"636,00078-0383-06 ",.02)
 ;;00078-0383-06
 ;;9002226.02101,"636,00078-0383-34 ",.01)
 ;;00078-0383-34
 ;;9002226.02101,"636,00078-0383-34 ",.02)
 ;;00078-0383-34
 ;;9002226.02101,"636,00078-0423-06 ",.01)
 ;;00078-0423-06
 ;;9002226.02101,"636,00078-0423-06 ",.02)
 ;;00078-0423-06
 ;;9002226.02101,"636,00078-0423-15 ",.01)
 ;;00078-0423-15
 ;;9002226.02101,"636,00078-0423-15 ",.02)
 ;;00078-0423-15
 ;;9002226.02101,"636,00083-4000-01 ",.01)
 ;;00083-4000-01
 ;;9002226.02101,"636,00083-4000-01 ",.02)
 ;;00083-4000-01
 ;;9002226.02101,"636,00083-4000-41 ",.01)
 ;;00083-4000-41
 ;;9002226.02101,"636,00083-4000-41 ",.02)
 ;;00083-4000-41
 ;;9002226.02101,"636,00083-4000-61 ",.01)
 ;;00083-4000-61
 ;;9002226.02101,"636,00083-4000-61 ",.02)
 ;;00083-4000-61
 ;;9002226.02101,"636,00083-4001-01 ",.01)
 ;;00083-4001-01
 ;;9002226.02101,"636,00083-4001-01 ",.02)
 ;;00083-4001-01
 ;;9002226.02101,"636,00083-4001-41 ",.01)
 ;;00083-4001-41
 ;;9002226.02101,"636,00083-4001-41 ",.02)
 ;;00083-4001-41
 ;;9002226.02101,"636,00083-4001-61 ",.01)
 ;;00083-4001-61
 ;;9002226.02101,"636,00083-4001-61 ",.02)
 ;;00083-4001-61
 ;;9002226.02101,"636,00087-2771-31 ",.01)
 ;;00087-2771-31
 ;;9002226.02101,"636,00087-2771-31 ",.02)
 ;;00087-2771-31
 ;;9002226.02101,"636,00087-2771-32 ",.01)
 ;;00087-2771-32
 ;;9002226.02101,"636,00087-2771-32 ",.02)
 ;;00087-2771-32
 ;;9002226.02101,"636,00087-2772-15 ",.01)
 ;;00087-2772-15
 ;;9002226.02101,"636,00087-2772-15 ",.02)
 ;;00087-2772-15
 ;;9002226.02101,"636,00087-2772-31 ",.01)
 ;;00087-2772-31
 ;;9002226.02101,"636,00087-2772-31 ",.02)
 ;;00087-2772-31
 ;;9002226.02101,"636,00087-2772-32 ",.01)
 ;;00087-2772-32
 ;;9002226.02101,"636,00087-2772-32 ",.02)
 ;;00087-2772-32
 ;;9002226.02101,"636,00087-2772-35 ",.01)
 ;;00087-2772-35
 ;;9002226.02101,"636,00087-2772-35 ",.02)
 ;;00087-2772-35
 ;;9002226.02101,"636,00087-2773-15 ",.01)
 ;;00087-2773-15
 ;;9002226.02101,"636,00087-2773-15 ",.02)
 ;;00087-2773-15
 ;;9002226.02101,"636,00087-2773-31 ",.01)
 ;;00087-2773-31
 ;;9002226.02101,"636,00087-2773-31 ",.02)
 ;;00087-2773-31
 ;;9002226.02101,"636,00087-2773-32 ",.01)
 ;;00087-2773-32
 ;;9002226.02101,"636,00087-2773-32 ",.02)
 ;;00087-2773-32
 ;;9002226.02101,"636,00087-2773-35 ",.01)
 ;;00087-2773-35
 ;;9002226.02101,"636,00087-2773-35 ",.02)
 ;;00087-2773-35
 ;;9002226.02101,"636,00087-2775-31 ",.01)
 ;;00087-2775-31
 ;;9002226.02101,"636,00087-2775-31 ",.02)
 ;;00087-2775-31
 ;;9002226.02101,"636,00087-2775-32 ",.01)
 ;;00087-2775-32
 ;;9002226.02101,"636,00087-2775-32 ",.02)
 ;;00087-2775-32
 ;;9002226.02101,"636,00087-2776-31 ",.01)
 ;;00087-2776-31
 ;;9002226.02101,"636,00087-2776-31 ",.02)
 ;;00087-2776-31
 ;;9002226.02101,"636,00087-2776-32 ",.01)
 ;;00087-2776-32
 ;;9002226.02101,"636,00087-2776-32 ",.02)
 ;;00087-2776-32
 ;;9002226.02101,"636,00087-2788-31 ",.01)
 ;;00087-2788-31
 ;;9002226.02101,"636,00087-2788-31 ",.02)
 ;;00087-2788-31
 ;;9002226.02101,"636,00087-2788-32 ",.01)
 ;;00087-2788-32
 ;;9002226.02101,"636,00087-2788-32 ",.02)
 ;;00087-2788-32
 ;;9002226.02101,"636,00182-0322-54 ",.01)
 ;;00182-0322-54
 ;;9002226.02101,"636,00182-0322-54 ",.02)
 ;;00182-0322-54
 ;;9002226.02101,"636,00186-0004-31 ",.01)
 ;;00186-0004-31
 ;;9002226.02101,"636,00186-0004-31 ",.02)
 ;;00186-0004-31
 ;;9002226.02101,"636,00186-0008-31 ",.01)
 ;;00186-0008-31
 ;;9002226.02101,"636,00186-0008-31 ",.02)
 ;;00186-0008-31
 ;;9002226.02101,"636,00186-0016-28 ",.01)
 ;;00186-0016-28
 ;;9002226.02101,"636,00186-0016-28 ",.02)
 ;;00186-0016-28
 ;;9002226.02101,"636,00186-0016-31 ",.01)
 ;;00186-0016-31
 ;;9002226.02101,"636,00186-0016-31 ",.02)
 ;;00186-0016-31
 ;;9002226.02101,"636,00186-0016-54 ",.01)
 ;;00186-0016-54
 ;;9002226.02101,"636,00186-0016-54 ",.02)
 ;;00186-0016-54
 ;;9002226.02101,"636,00186-0032-28 ",.01)
 ;;00186-0032-28
 ;;9002226.02101,"636,00186-0032-28 ",.02)
 ;;00186-0032-28
 ;;9002226.02101,"636,00186-0032-31 ",.01)
 ;;00186-0032-31
 ;;9002226.02101,"636,00186-0032-31 ",.02)
 ;;00186-0032-31
 ;;9002226.02101,"636,00186-0032-54 ",.01)
 ;;00186-0032-54
 ;;9002226.02101,"636,00186-0032-54 ",.02)
 ;;00186-0032-54
 ;;9002226.02101,"636,00186-0162-28 ",.01)
 ;;00186-0162-28
 ;;9002226.02101,"636,00186-0162-28 ",.02)
 ;;00186-0162-28
 ;;9002226.02101,"636,00186-0162-54 ",.01)
 ;;00186-0162-54
 ;;9002226.02101,"636,00186-0162-54 ",.02)
 ;;00186-0162-54
 ;;9002226.02101,"636,00186-0322-28 ",.01)
 ;;00186-0322-28
 ;;9002226.02101,"636,00186-0322-28 ",.02)
 ;;00186-0322-28
 ;;9002226.02101,"636,00186-0322-54 ",.01)
 ;;00186-0322-54
 ;;9002226.02101,"636,00186-0322-54 ",.02)
 ;;00186-0322-54
 ;;9002226.02101,"636,00597-0039-28 ",.01)
 ;;00597-0039-28
 ;;9002226.02101,"636,00597-0039-28 ",.02)
 ;;00597-0039-28
 ;;9002226.02101,"636,00597-0040-28 ",.01)
 ;;00597-0040-28
 ;;9002226.02101,"636,00597-0040-28 ",.02)
 ;;00597-0040-28
 ;;9002226.02101,"636,00597-0040-37 ",.01)
 ;;00597-0040-37
 ;;9002226.02101,"636,00597-0040-37 ",.02)
 ;;00597-0040-37
 ;;9002226.02101,"636,00597-0041-28 ",.01)
 ;;00597-0041-28
 ;;9002226.02101,"636,00597-0041-28 ",.02)
 ;;00597-0041-28
 ;;9002226.02101,"636,00597-0041-37 ",.01)
 ;;00597-0041-37
 ;;9002226.02101,"636,00597-0041-37 ",.02)
 ;;00597-0041-37
 ;;9002226.02101,"636,00597-0042-28 ",.01)
 ;;00597-0042-28
 ;;9002226.02101,"636,00597-0042-28 ",.02)
 ;;00597-0042-28
 ;;9002226.02101,"636,00597-0042-37 ",.01)
 ;;00597-0042-37
 ;;9002226.02101,"636,00597-0042-37 ",.02)
 ;;00597-0042-37
 ;;9002226.02101,"636,00597-0043-28 ",.01)
 ;;00597-0043-28
 ;;9002226.02101,"636,00597-0043-28 ",.02)
 ;;00597-0043-28
 ;;9002226.02101,"636,00597-0043-37 ",.01)
 ;;00597-0043-37
 ;;9002226.02101,"636,00597-0043-37 ",.02)
 ;;00597-0043-37
 ;;9002226.02101,"636,00597-0044-28 ",.01)
 ;;00597-0044-28
 ;;9002226.02101,"636,00597-0044-28 ",.02)
 ;;00597-0044-28
 ;;9002226.02101,"636,00597-0044-37 ",.01)
 ;;00597-0044-37
 ;;9002226.02101,"636,00597-0044-37 ",.02)
 ;;00597-0044-37
 ;;9002226.02101,"636,12280-0005-90 ",.01)
 ;;12280-0005-90
 ;;9002226.02101,"636,12280-0005-90 ",.02)
 ;;12280-0005-90
 ;;9002226.02101,"636,12280-0008-00 ",.01)
 ;;12280-0008-00
 ;;9002226.02101,"636,12280-0008-00 ",.02)
 ;;12280-0008-00
 ;;9002226.02101,"636,12280-0008-90 ",.01)
 ;;12280-0008-90
 ;;9002226.02101,"636,12280-0008-90 ",.02)
 ;;12280-0008-90
 ;;9002226.02101,"636,12280-0009-90 ",.01)
 ;;12280-0009-90
 ;;9002226.02101,"636,12280-0009-90 ",.02)
 ;;12280-0009-90
 ;;9002226.02101,"636,12280-0063-90 ",.01)
 ;;12280-0063-90
 ;;9002226.02101,"636,12280-0063-90 ",.02)
 ;;12280-0063-90
 ;;9002226.02101,"636,12280-0066-30 ",.01)
 ;;12280-0066-30
 ;;9002226.02101,"636,12280-0066-30 ",.02)
 ;;12280-0066-30
 ;;9002226.02101,"636,12280-0067-90 ",.01)
 ;;12280-0067-90
 ;;9002226.02101,"636,12280-0067-90 ",.02)
 ;;12280-0067-90
 ;;9002226.02101,"636,12280-0168-30 ",.01)
 ;;12280-0168-30
 ;;9002226.02101,"636,12280-0168-30 ",.02)
 ;;12280-0168-30
 ;;9002226.02101,"636,49999-0305-30 ",.01)
 ;;49999-0305-30
 ;;9002226.02101,"636,49999-0305-30 ",.02)
 ;;49999-0305-30
 ;;9002226.02101,"636,54569-4437-00 ",.01)
 ;;54569-4437-00
 ;;9002226.02101,"636,54569-4437-00 ",.02)
 ;;54569-4437-00
 ;;9002226.02101,"636,54569-4438-00 ",.01)
 ;;54569-4438-00
 ;;9002226.02101,"636,54569-4438-00 ",.02)
 ;;54569-4438-00
 ;;9002226.02101,"636,54569-4438-01 ",.01)
 ;;54569-4438-01
 ;;9002226.02101,"636,54569-4438-01 ",.02)
 ;;54569-4438-01
 ;;9002226.02101,"636,54569-4572-00 ",.01)
 ;;54569-4572-00
 ;;9002226.02101,"636,54569-4572-00 ",.02)
 ;;54569-4572-00
 ;;9002226.02101,"636,54569-4697-00 ",.01)
 ;;54569-4697-00
 ;;9002226.02101,"636,54569-4697-00 ",.02)
 ;;54569-4697-00
 ;;9002226.02101,"636,54569-4697-01 ",.01)
 ;;54569-4697-01
 ;;9002226.02101,"636,54569-4697-01 ",.02)
 ;;54569-4697-01
 ;;9002226.02101,"636,54569-4698-00 ",.01)
 ;;54569-4698-00
 ;;9002226.02101,"636,54569-4698-00 ",.02)
 ;;54569-4698-00
 ;;9002226.02101,"636,54569-4698-01 ",.01)
 ;;54569-4698-01
 ;;9002226.02101,"636,54569-4698-01 ",.02)
 ;;54569-4698-01
 ;;9002226.02101,"636,54569-4714-00 ",.01)
 ;;54569-4714-00
 ;;9002226.02101,"636,54569-4714-00 ",.02)
 ;;54569-4714-00
 ;;9002226.02101,"636,54569-4719-00 ",.01)
 ;;54569-4719-00
 ;;9002226.02101,"636,54569-4719-00 ",.02)
 ;;54569-4719-00
 ;;9002226.02101,"636,54569-4719-01 ",.01)
 ;;54569-4719-01
 ;;9002226.02101,"636,54569-4719-01 ",.02)
 ;;54569-4719-01
 ;;9002226.02101,"636,54569-4722-00 ",.01)
 ;;54569-4722-00
 ;;9002226.02101,"636,54569-4722-00 ",.02)
 ;;54569-4722-00
 ;;9002226.02101,"636,54569-4722-01 ",.01)
 ;;54569-4722-01
 ;;9002226.02101,"636,54569-4722-01 ",.02)
 ;;54569-4722-01
 ;;9002226.02101,"636,54569-4766-00 ",.01)
 ;;54569-4766-00
 ;;9002226.02101,"636,54569-4766-00 ",.02)
 ;;54569-4766-00
 ;;9002226.02101,"636,54569-4766-01 ",.01)
 ;;54569-4766-01
 ;;9002226.02101,"636,54569-4766-01 ",.02)
 ;;54569-4766-01
 ;;9002226.02101,"636,54569-4767-00 ",.01)
 ;;54569-4767-00
 ;;9002226.02101,"636,54569-4767-00 ",.02)
 ;;54569-4767-00
 ;;9002226.02101,"636,54569-4767-01 ",.01)
 ;;54569-4767-01
 ;;9002226.02101,"636,54569-4767-01 ",.02)
 ;;54569-4767-01
 ;;9002226.02101,"636,54569-4895-00 ",.01)
 ;;54569-4895-00
 ;;9002226.02101,"636,54569-4895-00 ",.02)
 ;;54569-4895-00
 ;;9002226.02101,"636,54569-5361-00 ",.01)
 ;;54569-5361-00
 ;;9002226.02101,"636,54569-5361-00 ",.02)
 ;;54569-5361-00
 ;;9002226.02101,"636,54569-5362-00 ",.01)
 ;;54569-5362-00
 ;;9002226.02101,"636,54569-5362-00 ",.02)
 ;;54569-5362-00
 ;;9002226.02101,"636,54569-5601-00 ",.01)
 ;;54569-5601-00
 ;;9002226.02101,"636,54569-5601-00 ",.02)
 ;;54569-5601-00
 ;;9002226.02101,"636,54569-5606-00 ",.01)
 ;;54569-5606-00
 ;;9002226.02101,"636,54569-5606-00 ",.02)
 ;;54569-5606-00
 ;;9002226.02101,"636,54569-5665-00 ",.01)
 ;;54569-5665-00
 ;;9002226.02101,"636,54569-5665-00 ",.02)
 ;;54569-5665-00
 ;;9002226.02101,"636,54569-5666-00 ",.01)
 ;;54569-5666-00
 ;;9002226.02101,"636,54569-5666-00 ",.02)
 ;;54569-5666-00
 ;;9002226.02101,"636,54569-5667-00 ",.01)
 ;;54569-5667-00
 ;;9002226.02101,"636,54569-5667-00 ",.02)
 ;;54569-5667-00
 ;;9002226.02101,"636,54569-5667-01 ",.01)
 ;;54569-5667-01
 ;;9002226.02101,"636,54569-5667-01 ",.02)
 ;;54569-5667-01
 ;;9002226.02101,"636,54868-0009-00 ",.01)
 ;;54868-0009-00
 ;;9002226.02101,"636,54868-0009-00 ",.02)
 ;;54868-0009-00
 ;;9002226.02101,"636,54868-0009-01 ",.01)
 ;;54868-0009-01
 ;;9002226.02101,"636,54868-0009-01 ",.02)
 ;;54868-0009-01
 ;;9002226.02101,"636,54868-2335-00 ",.01)
 ;;54868-2335-00
 ;;9002226.02101,"636,54868-2335-00 ",.02)
 ;;54868-2335-00
 ;;9002226.02101,"636,54868-3726-00 ",.01)
 ;;54868-3726-00
 ;;9002226.02101,"636,54868-3726-00 ",.02)
 ;;54868-3726-00
 ;;9002226.02101,"636,54868-3726-01 ",.01)
 ;;54868-3726-01
 ;;9002226.02101,"636,54868-3726-01 ",.02)
 ;;54868-3726-01
 ;;9002226.02101,"636,54868-3866-00 ",.01)
 ;;54868-3866-00
 ;;9002226.02101,"636,54868-3866-00 ",.02)
 ;;54868-3866-00
 ;;9002226.02101,"636,54868-4178-00 ",.01)
 ;;54868-4178-00
 ;;9002226.02101,"636,54868-4178-00 ",.02)
 ;;54868-4178-00
 ;;9002226.02101,"636,54868-4199-00 ",.01)
 ;;54868-4199-00
 ;;9002226.02101,"636,54868-4199-00 ",.02)
 ;;54868-4199-00
 ;;9002226.02101,"636,54868-4199-01 ",.01)
 ;;54868-4199-01
 ;;9002226.02101,"636,54868-4199-01 ",.02)
 ;;54868-4199-01
 ;;9002226.02101,"636,54868-4341-00 ",.01)
 ;;54868-4341-00
 ;;9002226.02101,"636,54868-4341-00 ",.02)
 ;;54868-4341-00
 ;;9002226.02101,"636,54868-4406-00 ",.01)
 ;;54868-4406-00
 ;;9002226.02101,"636,54868-4406-00 ",.02)
 ;;54868-4406-00
 ;;9002226.02101,"636,54868-4413-00 ",.01)
 ;;54868-4413-00
 ;;9002226.02101,"636,54868-4413-00 ",.02)
 ;;54868-4413-00
 ;;9002226.02101,"636,54868-4414-00 ",.01)
 ;;54868-4414-00
 ;;9002226.02101,"636,54868-4414-00 ",.02)
 ;;54868-4414-00
 ;;9002226.02101,"636,54868-4425-00 ",.01)
 ;;54868-4425-00
 ;;9002226.02101,"636,54868-4425-00 ",.02)
 ;;54868-4425-00
 ;;9002226.02101,"636,54868-4425-01 ",.01)
 ;;54868-4425-01
 ;;9002226.02101,"636,54868-4425-01 ",.02)
 ;;54868-4425-01
 ;;9002226.02101,"636,54868-4425-02 ",.01)
 ;;54868-4425-02
 ;;9002226.02101,"636,54868-4425-02 ",.02)
 ;;54868-4425-02
 ;;9002226.02101,"636,54868-4428-00 ",.01)
 ;;54868-4428-00
 ;;9002226.02101,"636,54868-4428-00 ",.02)
 ;;54868-4428-00
 ;;9002226.02101,"636,54868-4428-01 ",.01)
 ;;54868-4428-01
 ;;9002226.02101,"636,54868-4428-01 ",.02)
 ;;54868-4428-01