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