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

BGP71U21.m

Go to the documentation of this file.
  1. BGP71U21 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1733,00440-7552-90 ",.01)
  1. ;;00440-7552-90
  1. ;;9002226.02101,"1733,00440-7552-90 ",.02)
  1. ;;00440-7552-90
  1. ;;9002226.02101,"1733,00440-7552-92 ",.01)
  1. ;;00440-7552-92
  1. ;;9002226.02101,"1733,00440-7552-92 ",.02)
  1. ;;00440-7552-92
  1. ;;9002226.02101,"1733,00440-7674-81 ",.01)
  1. ;;00440-7674-81
  1. ;;9002226.02101,"1733,00440-7674-81 ",.02)
  1. ;;00440-7674-81
  1. ;;9002226.02101,"1733,00440-7674-85 ",.01)
  1. ;;00440-7674-85
  1. ;;9002226.02101,"1733,00440-7674-85 ",.02)
  1. ;;00440-7674-85
  1. ;;9002226.02101,"1733,00440-7674-89 ",.01)
  1. ;;00440-7674-89
  1. ;;9002226.02101,"1733,00440-7674-89 ",.02)
  1. ;;00440-7674-89
  1. ;;9002226.02101,"1733,00440-7674-90 ",.01)
  1. ;;00440-7674-90
  1. ;;9002226.02101,"1733,00440-7674-90 ",.02)
  1. ;;00440-7674-90
  1. ;;9002226.02101,"1733,00440-7675-30 ",.01)
  1. ;;00440-7675-30
  1. ;;9002226.02101,"1733,00440-7675-30 ",.02)
  1. ;;00440-7675-30
  1. ;;9002226.02101,"1733,00440-7675-81 ",.01)
  1. ;;00440-7675-81
  1. ;;9002226.02101,"1733,00440-7675-81 ",.02)
  1. ;;00440-7675-81
  1. ;;9002226.02101,"1733,00440-7675-85 ",.01)
  1. ;;00440-7675-85
  1. ;;9002226.02101,"1733,00440-7675-85 ",.02)
  1. ;;00440-7675-85
  1. ;;9002226.02101,"1733,00440-7675-89 ",.01)
  1. ;;00440-7675-89
  1. ;;9002226.02101,"1733,00440-7675-89 ",.02)
  1. ;;00440-7675-89
  1. ;;9002226.02101,"1733,00440-7675-90 ",.01)
  1. ;;00440-7675-90
  1. ;;9002226.02101,"1733,00440-7675-90 ",.02)
  1. ;;00440-7675-90
  1. ;;9002226.02101,"1733,00440-7676-14 ",.01)
  1. ;;00440-7676-14
  1. ;;9002226.02101,"1733,00440-7676-14 ",.02)
  1. ;;00440-7676-14
  1. ;;9002226.02101,"1733,00440-7676-30 ",.01)
  1. ;;00440-7676-30
  1. ;;9002226.02101,"1733,00440-7676-30 ",.02)
  1. ;;00440-7676-30
  1. ;;9002226.02101,"1733,00440-7676-45 ",.01)
  1. ;;00440-7676-45
  1. ;;9002226.02101,"1733,00440-7676-45 ",.02)
  1. ;;00440-7676-45
  1. ;;9002226.02101,"1733,00440-7676-81 ",.01)
  1. ;;00440-7676-81
  1. ;;9002226.02101,"1733,00440-7676-81 ",.02)
  1. ;;00440-7676-81
  1. ;;9002226.02101,"1733,00440-7676-85 ",.01)
  1. ;;00440-7676-85
  1. ;;9002226.02101,"1733,00440-7676-85 ",.02)
  1. ;;00440-7676-85
  1. ;;9002226.02101,"1733,00440-7676-89 ",.01)
  1. ;;00440-7676-89
  1. ;;9002226.02101,"1733,00440-7676-89 ",.02)
  1. ;;00440-7676-89
  1. ;;9002226.02101,"1733,00440-7676-90 ",.01)
  1. ;;00440-7676-90
  1. ;;9002226.02101,"1733,00440-7676-90 ",.02)
  1. ;;00440-7676-90
  1. ;;9002226.02101,"1733,00440-7677-81 ",.01)
  1. ;;00440-7677-81
  1. ;;9002226.02101,"1733,00440-7677-81 ",.02)
  1. ;;00440-7677-81
  1. ;;9002226.02101,"1733,00440-7677-85 ",.01)
  1. ;;00440-7677-85
  1. ;;9002226.02101,"1733,00440-7677-85 ",.02)
  1. ;;00440-7677-85
  1. ;;9002226.02101,"1733,00440-7677-89 ",.01)
  1. ;;00440-7677-89
  1. ;;9002226.02101,"1733,00440-7677-89 ",.02)
  1. ;;00440-7677-89
  1. ;;9002226.02101,"1733,00440-7677-90 ",.01)
  1. ;;00440-7677-90
  1. ;;9002226.02101,"1733,00440-7677-90 ",.02)
  1. ;;00440-7677-90
  1. ;;9002226.02101,"1733,00440-7682-30 ",.01)
  1. ;;00440-7682-30
  1. ;;9002226.02101,"1733,00440-7682-30 ",.02)
  1. ;;00440-7682-30
  1. ;;9002226.02101,"1733,00440-7683-30 ",.01)
  1. ;;00440-7683-30
  1. ;;9002226.02101,"1733,00440-7683-30 ",.02)
  1. ;;00440-7683-30
  1. ;;9002226.02101,"1733,00440-7683-60 ",.01)
  1. ;;00440-7683-60
  1. ;;9002226.02101,"1733,00440-7683-60 ",.02)
  1. ;;00440-7683-60
  1. ;;9002226.02101,"1733,00440-7684-30 ",.01)
  1. ;;00440-7684-30
  1. ;;9002226.02101,"1733,00440-7684-30 ",.02)
  1. ;;00440-7684-30
  1. ;;9002226.02101,"1733,00440-8072-06 ",.01)
  1. ;;00440-8072-06
  1. ;;9002226.02101,"1733,00440-8072-06 ",.02)
  1. ;;00440-8072-06
  1. ;;9002226.02101,"1733,00440-8270-06 ",.01)
  1. ;;00440-8270-06
  1. ;;9002226.02101,"1733,00440-8270-06 ",.02)
  1. ;;00440-8270-06
  1. ;;9002226.02101,"1733,00440-8272-06 ",.01)
  1. ;;00440-8272-06
  1. ;;9002226.02101,"1733,00440-8272-06 ",.02)
  1. ;;00440-8272-06
  1. ;;9002226.02101,"1733,00440-8567-30 ",.01)
  1. ;;00440-8567-30
  1. ;;9002226.02101,"1733,00440-8567-30 ",.02)
  1. ;;00440-8567-30
  1. ;;9002226.02101,"1733,00440-8567-60 ",.01)
  1. ;;00440-8567-60
  1. ;;9002226.02101,"1733,00440-8567-60 ",.02)
  1. ;;00440-8567-60
  1. ;;9002226.02101,"1733,00440-8567-90 ",.01)
  1. ;;00440-8567-90
  1. ;;9002226.02101,"1733,00440-8567-90 ",.02)
  1. ;;00440-8567-90
  1. ;;9002226.02101,"1733,00440-8568-30 ",.01)
  1. ;;00440-8568-30
  1. ;;9002226.02101,"1733,00440-8568-30 ",.02)
  1. ;;00440-8568-30
  1. ;;9002226.02101,"1733,00440-8568-60 ",.01)
  1. ;;00440-8568-60
  1. ;;9002226.02101,"1733,00440-8568-60 ",.02)
  1. ;;00440-8568-60
  1. ;;9002226.02101,"1733,00440-8568-90 ",.01)
  1. ;;00440-8568-90
  1. ;;9002226.02101,"1733,00440-8568-90 ",.02)
  1. ;;00440-8568-90
  1. ;;9002226.02101,"1733,00440-8569-30 ",.01)
  1. ;;00440-8569-30
  1. ;;9002226.02101,"1733,00440-8569-30 ",.02)
  1. ;;00440-8569-30
  1. ;;9002226.02101,"1733,00440-8569-60 ",.01)
  1. ;;00440-8569-60
  1. ;;9002226.02101,"1733,00440-8569-60 ",.02)
  1. ;;00440-8569-60
  1. ;;9002226.02101,"1733,00440-8569-90 ",.01)
  1. ;;00440-8569-90
  1. ;;9002226.02101,"1733,00440-8569-90 ",.02)
  1. ;;00440-8569-90
  1. ;;9002226.02101,"1733,00527-1919-01 ",.01)
  1. ;;00527-1919-01
  1. ;;9002226.02101,"1733,00527-1919-01 ",.02)
  1. ;;00527-1919-01
  1. ;;9002226.02101,"1733,00527-1920-01 ",.01)
  1. ;;00527-1920-01
  1. ;;9002226.02101,"1733,00527-1920-01 ",.02)
  1. ;;00527-1920-01
  1. ;;9002226.02101,"1733,00574-0112-15 ",.01)
  1. ;;00574-0112-15
  1. ;;9002226.02101,"1733,00574-0112-15 ",.02)
  1. ;;00574-0112-15
  1. ;;9002226.02101,"1733,00591-0405-01 ",.01)
  1. ;;00591-0405-01
  1. ;;9002226.02101,"1733,00591-0405-01 ",.02)
  1. ;;00591-0405-01
  1. ;;9002226.02101,"1733,00591-0405-05 ",.01)
  1. ;;00591-0405-05
  1. ;;9002226.02101,"1733,00591-0405-05 ",.02)
  1. ;;00591-0405-05
  1. ;;9002226.02101,"1733,00591-0406-01 ",.01)
  1. ;;00591-0406-01
  1. ;;9002226.02101,"1733,00591-0406-01 ",.02)
  1. ;;00591-0406-01
  1. ;;9002226.02101,"1733,00591-0406-10 ",.01)
  1. ;;00591-0406-10
  1. ;;9002226.02101,"1733,00591-0406-10 ",.02)
  1. ;;00591-0406-10
  1. ;;9002226.02101,"1733,00591-0407-01 ",.01)
  1. ;;00591-0407-01
  1. ;;9002226.02101,"1733,00591-0407-01 ",.02)
  1. ;;00591-0407-01
  1. ;;9002226.02101,"1733,00591-0407-10 ",.01)
  1. ;;00591-0407-10
  1. ;;9002226.02101,"1733,00591-0407-10 ",.02)
  1. ;;00591-0407-10
  1. ;;9002226.02101,"1733,00591-0408-01 ",.01)
  1. ;;00591-0408-01
  1. ;;9002226.02101,"1733,00591-0408-01 ",.02)
  1. ;;00591-0408-01
  1. ;;9002226.02101,"1733,00591-0408-10 ",.01)
  1. ;;00591-0408-10
  1. ;;9002226.02101,"1733,00591-0408-10 ",.02)
  1. ;;00591-0408-10
  1. ;;9002226.02101,"1733,00591-0409-01 ",.01)
  1. ;;00591-0409-01
  1. ;;9002226.02101,"1733,00591-0409-01 ",.02)
  1. ;;00591-0409-01
  1. ;;9002226.02101,"1733,00591-0409-05 ",.01)
  1. ;;00591-0409-05
  1. ;;9002226.02101,"1733,00591-0409-05 ",.02)
  1. ;;00591-0409-05
  1. ;;9002226.02101,"1733,00591-0860-01 ",.01)
  1. ;;00591-0860-01
  1. ;;9002226.02101,"1733,00591-0860-01 ",.02)
  1. ;;00591-0860-01
  1. ;;9002226.02101,"1733,00591-0860-05 ",.01)
  1. ;;00591-0860-05
  1. ;;9002226.02101,"1733,00591-0860-05 ",.02)
  1. ;;00591-0860-05
  1. ;;9002226.02101,"1733,00591-0861-01 ",.01)
  1. ;;00591-0861-01
  1. ;;9002226.02101,"1733,00591-0861-01 ",.02)
  1. ;;00591-0861-01
  1. ;;9002226.02101,"1733,00591-0861-05 ",.01)
  1. ;;00591-0861-05
  1. ;;9002226.02101,"1733,00591-0861-05 ",.02)
  1. ;;00591-0861-05
  1. ;;9002226.02101,"1733,00591-0862-01 ",.01)
  1. ;;00591-0862-01
  1. ;;9002226.02101,"1733,00591-0862-01 ",.02)
  1. ;;00591-0862-01
  1. ;;9002226.02101,"1733,00591-0862-05 ",.01)
  1. ;;00591-0862-05
  1. ;;9002226.02101,"1733,00591-0862-05 ",.02)
  1. ;;00591-0862-05
  1. ;;9002226.02101,"1733,00591-0885-01 ",.01)
  1. ;;00591-0885-01
  1. ;;9002226.02101,"1733,00591-0885-01 ",.02)
  1. ;;00591-0885-01
  1. ;;9002226.02101,"1733,00591-2167-19 ",.01)
  1. ;;00591-2167-19
  1. ;;9002226.02101,"1733,00591-2167-19 ",.02)
  1. ;;00591-2167-19
  1. ;;9002226.02101,"1733,00591-2167-30 ",.01)
  1. ;;00591-2167-30
  1. ;;9002226.02101,"1733,00591-2167-30 ",.02)
  1. ;;00591-2167-30
  1. ;;9002226.02101,"1733,00591-2168-10 ",.01)
  1. ;;00591-2168-10
  1. ;;9002226.02101,"1733,00591-2168-10 ",.02)
  1. ;;00591-2168-10
  1. ;;9002226.02101,"1733,00591-2168-19 ",.01)
  1. ;;00591-2168-19
  1. ;;9002226.02101,"1733,00591-2168-19 ",.02)
  1. ;;00591-2168-19
  1. ;;9002226.02101,"1733,00591-2169-10 ",.01)
  1. ;;00591-2169-10
  1. ;;9002226.02101,"1733,00591-2169-10 ",.02)
  1. ;;00591-2169-10
  1. ;;9002226.02101,"1733,00591-2169-19 ",.01)
  1. ;;00591-2169-19
  1. ;;9002226.02101,"1733,00591-2169-19 ",.02)
  1. ;;00591-2169-19
  1. ;;9002226.02101,"1733,00591-2170-05 ",.01)
  1. ;;00591-2170-05
  1. ;;9002226.02101,"1733,00591-2170-05 ",.02)
  1. ;;00591-2170-05
  1. ;;9002226.02101,"1733,00591-2170-19 ",.01)
  1. ;;00591-2170-19
  1. ;;9002226.02101,"1733,00591-2170-19 ",.02)
  1. ;;00591-2170-19
  1. ;;9002226.02101,"1733,00591-2315-10 ",.01)
  1. ;;00591-2315-10
  1. ;;9002226.02101,"1733,00591-2315-10 ",.02)
  1. ;;00591-2315-10
  1. ;;9002226.02101,"1733,00591-2315-19 ",.01)
  1. ;;00591-2315-19
  1. ;;9002226.02101,"1733,00591-2315-19 ",.02)
  1. ;;00591-2315-19
  1. ;;9002226.02101,"1733,00591-2316-10 ",.01)
  1. ;;00591-2316-10
  1. ;;9002226.02101,"1733,00591-2316-10 ",.02)
  1. ;;00591-2316-10
  1. ;;9002226.02101,"1733,00591-2316-19 ",.01)
  1. ;;00591-2316-19
  1. ;;9002226.02101,"1733,00591-2316-19 ",.02)
  1. ;;00591-2316-19
  1. ;;9002226.02101,"1733,00591-2317-10 ",.01)
  1. ;;00591-2317-10
  1. ;;9002226.02101,"1733,00591-2317-10 ",.02)
  1. ;;00591-2317-10
  1. ;;9002226.02101,"1733,00591-2317-19 ",.01)
  1. ;;00591-2317-19
  1. ;;9002226.02101,"1733,00591-2317-19 ",.02)
  1. ;;00591-2317-19
  1. ;;9002226.02101,"1733,00591-2318-19 ",.01)
  1. ;;00591-2318-19
  1. ;;9002226.02101,"1733,00591-2318-19 ",.02)
  1. ;;00591-2318-19
  1. ;;9002226.02101,"1733,00591-2319-19 ",.01)
  1. ;;00591-2319-19
  1. ;;9002226.02101,"1733,00591-2319-19 ",.02)
  1. ;;00591-2319-19
  1. ;;9002226.02101,"1733,00591-2782-19 ",.01)
  1. ;;00591-2782-19
  1. ;;9002226.02101,"1733,00591-2782-19 ",.02)
  1. ;;00591-2782-19
  1. ;;9002226.02101,"1733,00591-2782-30 ",.01)
  1. ;;00591-2782-30
  1. ;;9002226.02101,"1733,00591-2782-30 ",.02)
  1. ;;00591-2782-30
  1. ;;9002226.02101,"1733,00591-2783-19 ",.01)
  1. ;;00591-2783-19
  1. ;;9002226.02101,"1733,00591-2783-19 ",.02)
  1. ;;00591-2783-19
  1. ;;9002226.02101,"1733,00591-2783-30 ",.01)
  1. ;;00591-2783-30
  1. ;;9002226.02101,"1733,00591-2783-30 ",.02)
  1. ;;00591-2783-30
  1. ;;9002226.02101,"1733,00591-2784-19 ",.01)
  1. ;;00591-2784-19
  1. ;;9002226.02101,"1733,00591-2784-19 ",.02)
  1. ;;00591-2784-19
  1. ;;9002226.02101,"1733,00591-2784-30 ",.01)
  1. ;;00591-2784-30
  1. ;;9002226.02101,"1733,00591-2784-30 ",.02)
  1. ;;00591-2784-30
  1. ;;9002226.02101,"1733,00591-2785-19 ",.01)
  1. ;;00591-2785-19
  1. ;;9002226.02101,"1733,00591-2785-19 ",.02)
  1. ;;00591-2785-19
  1. ;;9002226.02101,"1733,00591-2785-30 ",.01)
  1. ;;00591-2785-30
  1. ;;9002226.02101,"1733,00591-2785-30 ",.02)
  1. ;;00591-2785-30
  1. ;;9002226.02101,"1733,00591-2786-19 ",.01)
  1. ;;00591-2786-19
  1. ;;9002226.02101,"1733,00591-2786-19 ",.02)
  1. ;;00591-2786-19
  1. ;;9002226.02101,"1733,00591-2786-30 ",.01)
  1. ;;00591-2786-30
  1. ;;9002226.02101,"1733,00591-2786-30 ",.02)
  1. ;;00591-2786-30
  1. ;;9002226.02101,"1733,00591-3292-15 ",.01)
  1. ;;00591-3292-15
  1. ;;9002226.02101,"1733,00591-3292-15 ",.02)
  1. ;;00591-3292-15
  1. ;;9002226.02101,"1733,00591-3292-45 ",.01)
  1. ;;00591-3292-45
  1. ;;9002226.02101,"1733,00591-3292-45 ",.02)
  1. ;;00591-3292-45
  1. ;;9002226.02101,"1733,00591-3293-15 ",.01)
  1. ;;00591-3293-15
  1. ;;9002226.02101,"1733,00591-3293-15 ",.02)
  1. ;;00591-3293-15
  1. ;;9002226.02101,"1733,00591-3293-45 ",.01)
  1. ;;00591-3293-45
  1. ;;9002226.02101,"1733,00591-3293-45 ",.02)
  1. ;;00591-3293-45
  1. ;;9002226.02101,"1733,00591-3294-15 ",.01)
  1. ;;00591-3294-15
  1. ;;9002226.02101,"1733,00591-3294-15 ",.02)
  1. ;;00591-3294-15
  1. ;;9002226.02101,"1733,00591-3294-45 ",.01)
  1. ;;00591-3294-45
  1. ;;9002226.02101,"1733,00591-3294-45 ",.02)
  1. ;;00591-3294-45
  1. ;;9002226.02101,"1733,00591-3745-10 ",.01)
  1. ;;00591-3745-10
  1. ;;9002226.02101,"1733,00591-3745-10 ",.02)
  1. ;;00591-3745-10
  1. ;;9002226.02101,"1733,00591-3745-19 ",.01)
  1. ;;00591-3745-19
  1. ;;9002226.02101,"1733,00591-3745-19 ",.02)
  1. ;;00591-3745-19
  1. ;;9002226.02101,"1733,00591-3746-10 ",.01)
  1. ;;00591-3746-10
  1. ;;9002226.02101,"1733,00591-3746-10 ",.02)
  1. ;;00591-3746-10
  1. ;;9002226.02101,"1733,00591-3746-19 ",.01)
  1. ;;00591-3746-19
  1. ;;9002226.02101,"1733,00591-3746-19 ",.02)
  1. ;;00591-3746-19
  1. ;;9002226.02101,"1733,00591-3746-30 ",.01)
  1. ;;00591-3746-30