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

BGP7LXDB.m

Go to the documentation of this file.
  1. BGP7LXDB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  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,"618,00364-0171-01 ",.02)
  1. ;;00364-0171-01
  1. ;;9002226.02101,"618,00364-0172-01 ",.01)
  1. ;;00364-0172-01
  1. ;;9002226.02101,"618,00364-0172-01 ",.02)
  1. ;;00364-0172-01
  1. ;;9002226.02101,"618,00364-6715-47 ",.01)
  1. ;;00364-6715-47
  1. ;;9002226.02101,"618,00364-6715-47 ",.02)
  1. ;;00364-6715-47
  1. ;;9002226.02101,"618,00364-7347-10 ",.01)
  1. ;;00364-7347-10
  1. ;;9002226.02101,"618,00364-7347-10 ",.02)
  1. ;;00364-7347-10
  1. ;;9002226.02101,"618,00364-7348-10 ",.01)
  1. ;;00364-7348-10
  1. ;;9002226.02101,"618,00364-7348-10 ",.02)
  1. ;;00364-7348-10
  1. ;;9002226.02101,"618,00402-0424-02 ",.01)
  1. ;;00402-0424-02
  1. ;;9002226.02101,"618,00402-0424-02 ",.02)
  1. ;;00402-0424-02
  1. ;;9002226.02101,"618,00405-5066-01 ",.01)
  1. ;;00405-5066-01
  1. ;;9002226.02101,"618,00405-5066-01 ",.02)
  1. ;;00405-5066-01
  1. ;;9002226.02101,"618,00418-1301-02 ",.01)
  1. ;;00418-1301-02
  1. ;;9002226.02101,"618,00418-1301-02 ",.02)
  1. ;;00418-1301-02
  1. ;;9002226.02101,"618,00456-1004-10 ",.01)
  1. ;;00456-1004-10
  1. ;;9002226.02101,"618,00456-1004-10 ",.02)
  1. ;;00456-1004-10
  1. ;;9002226.02101,"618,00463-1108-20 ",.01)
  1. ;;00463-1108-20
  1. ;;9002226.02101,"618,00463-1108-20 ",.02)
  1. ;;00463-1108-20
  1. ;;9002226.02101,"618,00536-4630-01 ",.01)
  1. ;;00536-4630-01
  1. ;;9002226.02101,"618,00536-4630-01 ",.02)
  1. ;;00536-4630-01
  1. ;;9002226.02101,"618,00536-4634-01 ",.01)
  1. ;;00536-4634-01
  1. ;;9002226.02101,"618,00536-4634-01 ",.02)
  1. ;;00536-4634-01
  1. ;;9002226.02101,"618,00536-4634-10 ",.01)
  1. ;;00536-4634-10
  1. ;;9002226.02101,"618,00536-4634-10 ",.02)
  1. ;;00536-4634-10
  1. ;;9002226.02101,"618,00536-4638-01 ",.01)
  1. ;;00536-4638-01
  1. ;;9002226.02101,"618,00536-4638-01 ",.02)
  1. ;;00536-4638-01
  1. ;;9002226.02101,"618,00536-4638-10 ",.01)
  1. ;;00536-4638-10
  1. ;;9002226.02101,"618,00536-4638-10 ",.02)
  1. ;;00536-4638-10
  1. ;;9002226.02101,"618,00536-4727-01 ",.01)
  1. ;;00536-4727-01
  1. ;;9002226.02101,"618,00536-4727-01 ",.02)
  1. ;;00536-4727-01
  1. ;;9002226.02101,"618,00536-5401-67 ",.01)
  1. ;;00536-5401-67
  1. ;;9002226.02101,"618,00536-5401-67 ",.02)
  1. ;;00536-5401-67
  1. ;;9002226.02101,"618,00536-5430-67 ",.01)
  1. ;;00536-5430-67
  1. ;;9002226.02101,"618,00536-5430-67 ",.02)
  1. ;;00536-5430-67
  1. ;;9002226.02101,"618,00574-0916-10 ",.01)
  1. ;;00574-0916-10
  1. ;;9002226.02101,"618,00574-0916-10 ",.02)
  1. ;;00574-0916-10
  1. ;;9002226.02101,"618,00574-7220-10 ",.01)
  1. ;;00574-7220-10
  1. ;;9002226.02101,"618,00574-7220-10 ",.02)
  1. ;;00574-7220-10
  1. ;;9002226.02101,"618,00574-7222-10 ",.01)
  1. ;;00574-7222-10
  1. ;;9002226.02101,"618,00574-7222-10 ",.02)
  1. ;;00574-7222-10
  1. ;;9002226.02101,"618,00574-7222-50 ",.01)
  1. ;;00574-7222-50
  1. ;;9002226.02101,"618,00574-7222-50 ",.02)
  1. ;;00574-7222-50
  1. ;;9002226.02101,"618,00603-6256-21 ",.01)
  1. ;;00603-6256-21
  1. ;;9002226.02101,"618,00603-6256-21 ",.02)
  1. ;;00603-6256-21
  1. ;;9002226.02101,"618,00603-8150-10 ",.01)
  1. ;;00603-8150-10
  1. ;;9002226.02101,"618,00603-8150-10 ",.02)
  1. ;;00603-8150-10
  1. ;;9002226.02101,"618,00603-8151-10 ",.01)
  1. ;;00603-8151-10
  1. ;;9002226.02101,"618,00603-8151-10 ",.02)
  1. ;;00603-8151-10
  1. ;;9002226.02101,"618,00675-3982-07 ",.01)
  1. ;;00675-3982-07
  1. ;;9002226.02101,"618,00675-3982-07 ",.02)
  1. ;;00675-3982-07
  1. ;;9002226.02101,"618,00675-3982-12 ",.01)
  1. ;;00675-3982-12
  1. ;;9002226.02101,"618,00675-3982-12 ",.02)
  1. ;;00675-3982-12
  1. ;;9002226.02101,"618,00677-0085-01 ",.01)
  1. ;;00677-0085-01
  1. ;;9002226.02101,"618,00677-0085-01 ",.02)
  1. ;;00677-0085-01
  1. ;;9002226.02101,"618,00677-0086-01 ",.01)
  1. ;;00677-0086-01
  1. ;;9002226.02101,"618,00677-0086-01 ",.02)
  1. ;;00677-0086-01
  1. ;;9002226.02101,"618,00677-0087-01 ",.01)
  1. ;;00677-0087-01
  1. ;;9002226.02101,"618,00677-0087-01 ",.02)
  1. ;;00677-0087-01
  1. ;;9002226.02101,"618,00677-1383-01 ",.01)
  1. ;;00677-1383-01
  1. ;;9002226.02101,"618,00677-1383-01 ",.02)
  1. ;;00677-1383-01
  1. ;;9002226.02101,"618,00684-0232-02 ",.01)
  1. ;;00684-0232-02
  1. ;;9002226.02101,"618,00684-0232-02 ",.02)
  1. ;;00684-0232-02
  1. ;;9002226.02101,"618,00713-0107-09 ",.01)
  1. ;;00713-0107-09
  1. ;;9002226.02101,"618,00713-0107-09 ",.02)
  1. ;;00713-0107-09
  1. ;;9002226.02101,"618,00713-0108-09 ",.01)
  1. ;;00713-0108-09
  1. ;;9002226.02101,"618,00713-0108-09 ",.02)
  1. ;;00713-0108-09
  1. ;;9002226.02101,"618,00713-0108-50 ",.01)
  1. ;;00713-0108-50
  1. ;;9002226.02101,"618,00713-0108-50 ",.02)
  1. ;;00713-0108-50
  1. ;;9002226.02101,"618,00814-4785-14 ",.01)
  1. ;;00814-4785-14
  1. ;;9002226.02101,"618,00814-4785-14 ",.02)
  1. ;;00814-4785-14
  1. ;;9002226.02101,"618,00839-6540-95 ",.01)
  1. ;;00839-6540-95
  1. ;;9002226.02101,"618,00839-6540-95 ",.02)
  1. ;;00839-6540-95
  1. ;;9002226.02101,"618,00839-6541-95 ",.01)
  1. ;;00839-6541-95
  1. ;;9002226.02101,"618,00839-6541-95 ",.02)
  1. ;;00839-6541-95
  1. ;;9002226.02101,"618,00839-6676-33 ",.01)
  1. ;;00839-6676-33
  1. ;;9002226.02101,"618,00839-6676-33 ",.02)
  1. ;;00839-6676-33
  1. ;;9002226.02101,"618,00853-1410-70 ",.01)
  1. ;;00853-1410-70
  1. ;;9002226.02101,"618,00853-1410-70 ",.02)
  1. ;;00853-1410-70
  1. ;;9002226.02101,"618,00904-2735-15 ",.01)
  1. ;;00904-2735-15
  1. ;;9002226.02101,"618,00904-2735-15 ",.02)
  1. ;;00904-2735-15
  1. ;;9002226.02101,"618,00904-2736-15 ",.01)
  1. ;;00904-2736-15
  1. ;;9002226.02101,"618,00904-2736-15 ",.02)
  1. ;;00904-2736-15
  1. ;;9002226.02101,"618,00904-3291-60 ",.01)
  1. ;;00904-3291-60
  1. ;;9002226.02101,"618,00904-3291-60 ",.02)
  1. ;;00904-3291-60
  1. ;;9002226.02101,"618,11584-0421-01 ",.01)
  1. ;;11584-0421-01
  1. ;;9002226.02101,"618,11584-0421-01 ",.02)
  1. ;;11584-0421-01
  1. ;;9002226.02101,"618,17022-2504-00 ",.01)
  1. ;;17022-2504-00
  1. ;;9002226.02101,"618,17022-2504-00 ",.02)
  1. ;;17022-2504-00
  1. ;;9002226.02101,"618,17022-2512-00 ",.01)
  1. ;;17022-2512-00
  1. ;;9002226.02101,"618,17022-2512-00 ",.02)
  1. ;;17022-2512-00
  1. ;;9002226.02101,"618,17022-5782-02 ",.01)
  1. ;;17022-5782-02
  1. ;;9002226.02101,"618,17022-5782-02 ",.02)
  1. ;;17022-5782-02
  1. ;;9002226.02101,"618,17022-5782-06 ",.01)
  1. ;;17022-5782-06
  1. ;;9002226.02101,"618,17022-5782-06 ",.02)
  1. ;;17022-5782-06
  1. ;;9002226.02101,"618,17022-5803-02 ",.01)
  1. ;;17022-5803-02
  1. ;;9002226.02101,"618,17022-5803-02 ",.02)
  1. ;;17022-5803-02
  1. ;;9002226.02101,"618,17022-5803-06 ",.01)
  1. ;;17022-5803-06
  1. ;;9002226.02101,"618,17022-5803-06 ",.02)
  1. ;;17022-5803-06
  1. ;;9002226.02101,"618,17022-5824-02 ",.01)
  1. ;;17022-5824-02
  1. ;;9002226.02101,"618,17022-5824-02 ",.02)
  1. ;;17022-5824-02
  1. ;;9002226.02101,"618,17022-5824-06 ",.01)
  1. ;;17022-5824-06
  1. ;;9002226.02101,"618,17022-5824-06 ",.02)
  1. ;;17022-5824-06
  1. ;;9002226.02101,"618,17236-0204-01 ",.01)
  1. ;;17236-0204-01
  1. ;;9002226.02101,"618,17236-0204-01 ",.02)
  1. ;;17236-0204-01
  1. ;;9002226.02101,"618,17236-0206-01 ",.01)
  1. ;;17236-0206-01
  1. ;;9002226.02101,"618,17236-0206-01 ",.02)
  1. ;;17236-0206-01
  1. ;;9002226.02101,"618,17236-0208-01 ",.01)
  1. ;;17236-0208-01
  1. ;;9002226.02101,"618,17236-0208-01 ",.02)
  1. ;;17236-0208-01
  1. ;;9002226.02101,"618,20254-0018-01 ",.01)
  1. ;;20254-0018-01
  1. ;;9002226.02101,"618,20254-0018-01 ",.02)
  1. ;;20254-0018-01
  1. ;;9002226.02101,"618,20254-0018-03 ",.01)
  1. ;;20254-0018-03
  1. ;;9002226.02101,"618,20254-0018-03 ",.02)
  1. ;;20254-0018-03
  1. ;;9002226.02101,"618,25332-0114-01 ",.01)
  1. ;;25332-0114-01
  1. ;;9002226.02101,"618,25332-0114-01 ",.02)
  1. ;;25332-0114-01
  1. ;;9002226.02101,"618,39769-0062-02 ",.01)
  1. ;;39769-0062-02
  1. ;;9002226.02101,"618,39769-0062-02 ",.02)
  1. ;;39769-0062-02
  1. ;;9002226.02101,"618,45802-0723-32 ",.01)
  1. ;;45802-0723-32
  1. ;;9002226.02101,"618,45802-0723-32 ",.02)
  1. ;;45802-0723-32
  1. ;;9002226.02101,"618,45802-0723-90 ",.01)
  1. ;;45802-0723-90
  1. ;;9002226.02101,"618,45802-0723-90 ",.02)
  1. ;;45802-0723-90
  1. ;;9002226.02101,"618,45802-0724-32 ",.01)
  1. ;;45802-0724-32
  1. ;;9002226.02101,"618,45802-0724-32 ",.02)
  1. ;;45802-0724-32
  1. ;;9002226.02101,"618,45802-0724-90 ",.01)
  1. ;;45802-0724-90
  1. ;;9002226.02101,"618,45802-0724-90 ",.02)
  1. ;;45802-0724-90
  1. ;;9002226.02101,"618,51432-0284-03 ",.01)
  1. ;;51432-0284-03
  1. ;;9002226.02101,"618,51432-0284-03 ",.02)
  1. ;;51432-0284-03
  1. ;;9002226.02101,"618,51432-0286-03 ",.01)
  1. ;;51432-0286-03
  1. ;;9002226.02101,"618,51432-0286-03 ",.02)
  1. ;;51432-0286-03
  1. ;;9002226.02101,"618,51432-0288-03 ",.01)
  1. ;;51432-0288-03
  1. ;;9002226.02101,"618,51432-0288-03 ",.02)
  1. ;;51432-0288-03
  1. ;;9002226.02101,"618,51432-0762-05 ",.01)
  1. ;;51432-0762-05
  1. ;;9002226.02101,"618,51432-0762-05 ",.02)
  1. ;;51432-0762-05
  1. ;;9002226.02101,"618,51432-0769-02 ",.01)
  1. ;;51432-0769-02
  1. ;;9002226.02101,"618,51432-0769-02 ",.02)
  1. ;;51432-0769-02
  1. ;;9002226.02101,"618,51432-7710-20 ",.01)
  1. ;;51432-7710-20
  1. ;;9002226.02101,"618,51432-7710-20 ",.02)
  1. ;;51432-7710-20
  1. ;;9002226.02101,"618,51655-0523-53 ",.01)
  1. ;;51655-0523-53
  1. ;;9002226.02101,"618,51655-0523-53 ",.02)
  1. ;;51655-0523-53
  1. ;;9002226.02101,"618,51991-0625-01 ",.01)
  1. ;;51991-0625-01
  1. ;;9002226.02101,"618,51991-0625-01 ",.02)
  1. ;;51991-0625-01
  1. ;;9002226.02101,"618,52152-0166-02 ",.01)
  1. ;;52152-0166-02
  1. ;;9002226.02101,"618,52152-0166-02 ",.02)
  1. ;;52152-0166-02
  1. ;;9002226.02101,"618,52152-0185-02 ",.01)
  1. ;;52152-0185-02
  1. ;;9002226.02101,"618,52152-0185-02 ",.02)
  1. ;;52152-0185-02
  1. ;;9002226.02101,"618,52406-0407-02 ",.01)
  1. ;;52406-0407-02
  1. ;;9002226.02101,"618,52406-0407-02 ",.02)
  1. ;;52406-0407-02
  1. ;;9002226.02101,"618,52406-0410-05 ",.01)
  1. ;;52406-0410-05
  1. ;;9002226.02101,"618,52406-0410-05 ",.02)
  1. ;;52406-0410-05
  1. ;;9002226.02101,"618,52406-0424-02 ",.01)
  1. ;;52406-0424-02
  1. ;;9002226.02101,"618,52406-0424-02 ",.02)
  1. ;;52406-0424-02
  1. ;;9002226.02101,"618,52406-0432-02 ",.01)
  1. ;;52406-0432-02
  1. ;;9002226.02101,"618,52406-0432-02 ",.02)
  1. ;;52406-0432-02
  1. ;;9002226.02101,"618,52406-0710-01 ",.01)
  1. ;;52406-0710-01
  1. ;;9002226.02101,"618,52406-0710-01 ",.02)
  1. ;;52406-0710-01
  1. ;;9002226.02101,"618,52959-0226-10 ",.01)
  1. ;;52959-0226-10
  1. ;;9002226.02101,"618,52959-0226-10 ",.02)
  1. ;;52959-0226-10
  1. ;;9002226.02101,"618,52959-0226-12 ",.01)
  1. ;;52959-0226-12
  1. ;;9002226.02101,"618,52959-0226-12 ",.02)
  1. ;;52959-0226-12
  1. ;;9002226.02101,"618,52959-0290-04 ",.01)
  1. ;;52959-0290-04
  1. ;;9002226.02101,"618,52959-0290-04 ",.02)
  1. ;;52959-0290-04
  1. ;;9002226.02101,"618,52959-0290-05 ",.01)
  1. ;;52959-0290-05
  1. ;;9002226.02101,"618,52959-0290-05 ",.02)
  1. ;;52959-0290-05
  1. ;;9002226.02101,"618,52959-0290-10 ",.01)
  1. ;;52959-0290-10
  1. ;;9002226.02101,"618,52959-0290-10 ",.02)
  1. ;;52959-0290-10
  1. ;;9002226.02101,"618,52959-0479-10 ",.01)
  1. ;;52959-0479-10
  1. ;;9002226.02101,"618,52959-0479-10 ",.02)
  1. ;;52959-0479-10
  1. ;;9002226.02101,"618,52959-0479-12 ",.01)
  1. ;;52959-0479-12
  1. ;;9002226.02101,"618,52959-0479-12 ",.02)
  1. ;;52959-0479-12
  1. ;;9002226.02101,"618,52959-0479-20 ",.01)
  1. ;;52959-0479-20
  1. ;;9002226.02101,"618,52959-0479-20 ",.02)
  1. ;;52959-0479-20
  1. ;;9002226.02101,"618,52959-0479-30 ",.01)
  1. ;;52959-0479-30
  1. ;;9002226.02101,"618,52959-0479-30 ",.02)
  1. ;;52959-0479-30
  1. ;;9002226.02101,"618,52959-0573-01 ",.01)
  1. ;;52959-0573-01
  1. ;;9002226.02101,"618,52959-0573-01 ",.02)
  1. ;;52959-0573-01
  1. ;;9002226.02101,"618,52959-0573-05 ",.01)
  1. ;;52959-0573-05
  1. ;;9002226.02101,"618,52959-0573-05 ",.02)
  1. ;;52959-0573-05
  1. ;;9002226.02101,"618,53489-0293-01 ",.01)
  1. ;;53489-0293-01
  1. ;;9002226.02101,"618,53489-0293-01 ",.02)
  1. ;;53489-0293-01
  1. ;;9002226.02101,"618,53489-0376-01 ",.01)
  1. ;;53489-0376-01
  1. ;;9002226.02101,"618,53489-0376-01 ",.02)
  1. ;;53489-0376-01
  1. ;;9002226.02101,"618,53489-0376-05 ",.01)
  1. ;;53489-0376-05
  1. ;;9002226.02101,"618,53489-0376-05 ",.02)
  1. ;;53489-0376-05
  1. ;;9002226.02101,"618,54092-0186-01 ",.01)
  1. ;;54092-0186-01
  1. ;;9002226.02101,"618,54092-0186-01 ",.02)
  1. ;;54092-0186-01
  1. ;;9002226.02101,"618,54092-0187-01 ",.01)
  1. ;;54092-0187-01
  1. ;;9002226.02101,"618,54092-0187-01 ",.02)
  1. ;;54092-0187-01
  1. ;;9002226.02101,"618,54092-0187-05 ",.01)
  1. ;;54092-0187-05
  1. ;;9002226.02101,"618,54092-0187-05 ",.02)
  1. ;;54092-0187-05
  1. ;;9002226.02101,"618,54092-0503-10 ",.01)
  1. ;;54092-0503-10
  1. ;;9002226.02101,"618,54092-0503-10 ",.02)
  1. ;;54092-0503-10
  1. ;;9002226.02101,"618,54092-0504-10 ",.01)
  1. ;;54092-0504-10
  1. ;;9002226.02101,"618,54092-0504-10 ",.02)
  1. ;;54092-0504-10
  1. ;;9002226.02101,"618,54092-0504-50 ",.01)
  1. ;;54092-0504-50
  1. ;;9002226.02101,"618,54092-0504-50 ",.02)
  1. ;;54092-0504-50
  1. ;;9002226.02101,"618,54092-0540-02 ",.01)
  1. ;;54092-0540-02
  1. ;;9002226.02101,"618,54092-0540-02 ",.02)
  1. ;;54092-0540-02
  1. ;;9002226.02101,"618,54092-0541-20 ",.01)
  1. ;;54092-0541-20
  1. ;;9002226.02101,"618,54092-0541-20 ",.02)
  1. ;;54092-0541-20
  1. ;;9002226.02101,"618,54092-0542-02 ",.01)
  1. ;;54092-0542-02
  1. ;;9002226.02101,"618,54092-0542-02 ",.02)
  1. ;;54092-0542-02
  1. ;;9002226.02101,"618,54274-0544-22 ",.01)
  1. ;;54274-0544-22
  1. ;;9002226.02101,"618,54274-0544-22 ",.02)
  1. ;;54274-0544-22
  1. ;;9002226.02101,"618,54569-0363-03 ",.01)
  1. ;;54569-0363-03
  1. ;;9002226.02101,"618,54569-0363-03 ",.02)
  1. ;;54569-0363-03
  1. ;;9002226.02101,"618,54569-0363-04 ",.01)
  1. ;;54569-0363-04
  1. ;;9002226.02101,"618,54569-0363-04 ",.02)
  1. ;;54569-0363-04
  1. ;;9002226.02101,"618,54569-0363-05 ",.01)
  1. ;;54569-0363-05
  1. ;;9002226.02101,"618,54569-0363-05 ",.02)
  1. ;;54569-0363-05
  1. ;;9002226.02101,"618,54569-0364-01 ",.01)
  1. ;;54569-0364-01
  1. ;;9002226.02101,"618,54569-0364-01 ",.02)
  1. ;;54569-0364-01
  1. ;;9002226.02101,"618,54569-0365-01 ",.01)
  1. ;;54569-0365-01
  1. ;;9002226.02101,"618,54569-0365-01 ",.02)
  1. ;;54569-0365-01
  1. ;;9002226.02101,"618,54569-1796-01 ",.01)
  1. ;;54569-1796-01
  1. ;;9002226.02101,"618,54569-1796-01 ",.02)
  1. ;;54569-1796-01
  1. ;;9002226.02101,"618,54569-1896-00 ",.01)
  1. ;;54569-1896-00
  1. ;;9002226.02101,"618,54569-1896-00 ",.02)
  1. ;;54569-1896-00
  1. ;;9002226.02101,"618,54569-1896-01 ",.01)
  1. ;;54569-1896-01
  1. ;;9002226.02101,"618,54569-1896-01 ",.02)
  1. ;;54569-1896-01
  1. ;;9002226.02101,"618,54569-1896-02 ",.01)
  1. ;;54569-1896-02
  1. ;;9002226.02101,"618,54569-1896-02 ",.02)
  1. ;;54569-1896-02
  1. ;;9002226.02101,"618,54569-1896-03 ",.01)
  1. ;;54569-1896-03