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

BGP47E30.m

Go to the documentation of this file.
BGP47E30 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"798,45802-0596-65 ",.01)
 ;;45802-0596-65
 ;;9002226.02101,"798,45802-0596-65 ",.02)
 ;;45802-0596-65
 ;;9002226.02101,"798,45802-0596-78 ",.01)
 ;;45802-0596-78
 ;;9002226.02101,"798,45802-0596-78 ",.02)
 ;;45802-0596-78
 ;;9002226.02101,"798,45802-0616-65 ",.01)
 ;;45802-0616-65
 ;;9002226.02101,"798,45802-0616-65 ",.02)
 ;;45802-0616-65
 ;;9002226.02101,"798,45802-0616-78 ",.01)
 ;;45802-0616-78
 ;;9002226.02101,"798,45802-0616-78 ",.02)
 ;;45802-0616-78
 ;;9002226.02101,"798,45963-0293-30 ",.01)
 ;;45963-0293-30
 ;;9002226.02101,"798,45963-0293-30 ",.02)
 ;;45963-0293-30
 ;;9002226.02101,"798,45963-0294-30 ",.01)
 ;;45963-0294-30
 ;;9002226.02101,"798,45963-0294-30 ",.02)
 ;;45963-0294-30
 ;;9002226.02101,"798,45963-0295-30 ",.01)
 ;;45963-0295-30
 ;;9002226.02101,"798,45963-0295-30 ",.02)
 ;;45963-0295-30
 ;;9002226.02101,"798,45963-0341-02 ",.01)
 ;;45963-0341-02
 ;;9002226.02101,"798,45963-0341-02 ",.02)
 ;;45963-0341-02
 ;;9002226.02101,"798,45963-0342-02 ",.01)
 ;;45963-0342-02
 ;;9002226.02101,"798,45963-0342-02 ",.02)
 ;;45963-0342-02
 ;;9002226.02101,"798,45963-0343-02 ",.01)
 ;;45963-0343-02
 ;;9002226.02101,"798,45963-0343-02 ",.02)
 ;;45963-0343-02
 ;;9002226.02101,"798,45963-0344-02 ",.01)
 ;;45963-0344-02
 ;;9002226.02101,"798,45963-0344-02 ",.02)
 ;;45963-0344-02
 ;;9002226.02101,"798,45963-0345-02 ",.01)
 ;;45963-0345-02
 ;;9002226.02101,"798,45963-0345-02 ",.02)
 ;;45963-0345-02
 ;;9002226.02101,"798,45963-0346-50 ",.01)
 ;;45963-0346-50
 ;;9002226.02101,"798,45963-0346-50 ",.02)
 ;;45963-0346-50
 ;;9002226.02101,"798,47335-0736-13 ",.01)
 ;;47335-0736-13
 ;;9002226.02101,"798,47335-0736-13 ",.02)
 ;;47335-0736-13
 ;;9002226.02101,"798,47335-0736-86 ",.01)
 ;;47335-0736-86
 ;;9002226.02101,"798,47335-0736-86 ",.02)
 ;;47335-0736-86
 ;;9002226.02101,"798,47335-0736-88 ",.01)
 ;;47335-0736-88
 ;;9002226.02101,"798,47335-0736-88 ",.02)
 ;;47335-0736-88
 ;;9002226.02101,"798,47335-0737-13 ",.01)
 ;;47335-0737-13
 ;;9002226.02101,"798,47335-0737-13 ",.02)
 ;;47335-0737-13
 ;;9002226.02101,"798,47335-0737-86 ",.01)
 ;;47335-0737-86
 ;;9002226.02101,"798,47335-0737-86 ",.02)
 ;;47335-0737-86
 ;;9002226.02101,"798,47335-0737-88 ",.01)
 ;;47335-0737-88
 ;;9002226.02101,"798,47335-0737-88 ",.02)
 ;;47335-0737-88
 ;;9002226.02101,"798,47335-0738-86 ",.01)
 ;;47335-0738-86
 ;;9002226.02101,"798,47335-0738-86 ",.02)
 ;;47335-0738-86
 ;;9002226.02101,"798,49502-0900-30 ",.01)
 ;;49502-0900-30
 ;;9002226.02101,"798,49502-0900-30 ",.02)
 ;;49502-0900-30
 ;;9002226.02101,"798,49502-0901-30 ",.01)
 ;;49502-0901-30
 ;;9002226.02101,"798,49502-0901-30 ",.02)
 ;;49502-0901-30
 ;;9002226.02101,"798,49502-0902-30 ",.01)
 ;;49502-0902-30
 ;;9002226.02101,"798,49502-0902-30 ",.02)
 ;;49502-0902-30
 ;;9002226.02101,"798,49727-0159-02 ",.01)
 ;;49727-0159-02
 ;;9002226.02101,"798,49727-0159-02 ",.02)
 ;;49727-0159-02
 ;;9002226.02101,"798,49727-0159-05 ",.01)
 ;;49727-0159-05
 ;;9002226.02101,"798,49727-0159-05 ",.02)
 ;;49727-0159-05
 ;;9002226.02101,"798,49884-0032-01 ",.01)
 ;;49884-0032-01
 ;;9002226.02101,"798,49884-0032-01 ",.02)
 ;;49884-0032-01
 ;;9002226.02101,"798,49884-0054-01 ",.01)
 ;;49884-0054-01
 ;;9002226.02101,"798,49884-0054-01 ",.02)
 ;;49884-0054-01
 ;;9002226.02101,"798,49884-0054-10 ",.01)
 ;;49884-0054-10
 ;;9002226.02101,"798,49884-0054-10 ",.02)
 ;;49884-0054-10
 ;;9002226.02101,"798,49884-0055-01 ",.01)
 ;;49884-0055-01
 ;;9002226.02101,"798,49884-0055-01 ",.02)
 ;;49884-0055-01
 ;;9002226.02101,"798,49884-0055-10 ",.01)
 ;;49884-0055-10
 ;;9002226.02101,"798,49884-0055-10 ",.02)
 ;;49884-0055-10
 ;;9002226.02101,"798,49884-0056-01 ",.01)
 ;;49884-0056-01
 ;;9002226.02101,"798,49884-0056-01 ",.02)
 ;;49884-0056-01
 ;;9002226.02101,"798,49884-0056-10 ",.01)
 ;;49884-0056-10
 ;;9002226.02101,"798,49884-0056-10 ",.02)
 ;;49884-0056-10
 ;;9002226.02101,"798,49884-0222-01 ",.01)
 ;;49884-0222-01
 ;;9002226.02101,"798,49884-0222-01 ",.02)
 ;;49884-0222-01
 ;;9002226.02101,"798,49884-0222-03 ",.01)
 ;;49884-0222-03
 ;;9002226.02101,"798,49884-0222-03 ",.02)
 ;;49884-0222-03
 ;;9002226.02101,"798,49884-0222-05 ",.01)
 ;;49884-0222-05
 ;;9002226.02101,"798,49884-0222-05 ",.02)
 ;;49884-0222-05
 ;;9002226.02101,"798,49884-0250-11 ",.01)
 ;;49884-0250-11
 ;;9002226.02101,"798,49884-0250-11 ",.02)
 ;;49884-0250-11
 ;;9002226.02101,"798,49884-0251-11 ",.01)
 ;;49884-0251-11
 ;;9002226.02101,"798,49884-0251-11 ",.02)
 ;;49884-0251-11
 ;;9002226.02101,"798,49884-0252-11 ",.01)
 ;;49884-0252-11
 ;;9002226.02101,"798,49884-0252-11 ",.02)
 ;;49884-0252-11
 ;;9002226.02101,"798,49884-0253-11 ",.01)
 ;;49884-0253-11
 ;;9002226.02101,"798,49884-0253-11 ",.02)
 ;;49884-0253-11
 ;;9002226.02101,"798,49884-0277-11 ",.01)
 ;;49884-0277-11
 ;;9002226.02101,"798,49884-0277-11 ",.02)
 ;;49884-0277-11
 ;;9002226.02101,"798,49884-0699-37 ",.01)
 ;;49884-0699-37
 ;;9002226.02101,"798,49884-0699-37 ",.02)
 ;;49884-0699-37
 ;;9002226.02101,"798,49884-0734-01 ",.01)
 ;;49884-0734-01
 ;;9002226.02101,"798,49884-0734-01 ",.02)
 ;;49884-0734-01
 ;;9002226.02101,"798,49884-0734-10 ",.01)
 ;;49884-0734-10
 ;;9002226.02101,"798,49884-0734-10 ",.02)
 ;;49884-0734-10
 ;;9002226.02101,"798,49884-0734-11 ",.01)
 ;;49884-0734-11
 ;;9002226.02101,"798,49884-0734-11 ",.02)
 ;;49884-0734-11
 ;;9002226.02101,"798,49884-0735-01 ",.01)
 ;;49884-0735-01
 ;;9002226.02101,"798,49884-0735-01 ",.02)
 ;;49884-0735-01
 ;;9002226.02101,"798,49884-0735-10 ",.01)
 ;;49884-0735-10
 ;;9002226.02101,"798,49884-0735-10 ",.02)
 ;;49884-0735-10
 ;;9002226.02101,"798,49884-0735-11 ",.01)
 ;;49884-0735-11
 ;;9002226.02101,"798,49884-0735-11 ",.02)
 ;;49884-0735-11
 ;;9002226.02101,"798,49884-0743-01 ",.01)
 ;;49884-0743-01
 ;;9002226.02101,"798,49884-0743-01 ",.02)
 ;;49884-0743-01
 ;;9002226.02101,"798,49884-0743-05 ",.01)
 ;;49884-0743-05
 ;;9002226.02101,"798,49884-0743-05 ",.02)
 ;;49884-0743-05
 ;;9002226.02101,"798,49884-0743-11 ",.01)
 ;;49884-0743-11
 ;;9002226.02101,"798,49884-0743-11 ",.02)
 ;;49884-0743-11
 ;;9002226.02101,"798,49884-0872-01 ",.01)
 ;;49884-0872-01
 ;;9002226.02101,"798,49884-0872-01 ",.02)
 ;;49884-0872-01
 ;;9002226.02101,"798,49884-0872-05 ",.01)
 ;;49884-0872-05
 ;;9002226.02101,"798,49884-0872-05 ",.02)
 ;;49884-0872-05
 ;;9002226.02101,"798,49884-0872-11 ",.01)
 ;;49884-0872-11
 ;;9002226.02101,"798,49884-0872-11 ",.02)
 ;;49884-0872-11
 ;;9002226.02101,"798,49884-0876-05 ",.01)
 ;;49884-0876-05
 ;;9002226.02101,"798,49884-0876-05 ",.02)
 ;;49884-0876-05
 ;;9002226.02101,"798,49884-0877-01 ",.01)
 ;;49884-0877-01
 ;;9002226.02101,"798,49884-0877-01 ",.02)
 ;;49884-0877-01
 ;;9002226.02101,"798,49884-0877-05 ",.01)
 ;;49884-0877-05
 ;;9002226.02101,"798,49884-0877-05 ",.02)
 ;;49884-0877-05
 ;;9002226.02101,"798,49884-0878-05 ",.01)
 ;;49884-0878-05
 ;;9002226.02101,"798,49884-0878-05 ",.02)
 ;;49884-0878-05
 ;;9002226.02101,"798,49884-0879-05 ",.01)
 ;;49884-0879-05
 ;;9002226.02101,"798,49884-0879-05 ",.02)
 ;;49884-0879-05
 ;;9002226.02101,"798,49884-0916-02 ",.01)
 ;;49884-0916-02
 ;;9002226.02101,"798,49884-0916-02 ",.02)
 ;;49884-0916-02
 ;;9002226.02101,"798,49884-0916-05 ",.01)
 ;;49884-0916-05
 ;;9002226.02101,"798,49884-0916-05 ",.02)
 ;;49884-0916-05
 ;;9002226.02101,"798,49884-0917-02 ",.01)
 ;;49884-0917-02
 ;;9002226.02101,"798,49884-0917-02 ",.02)
 ;;49884-0917-02
 ;;9002226.02101,"798,49884-0917-05 ",.01)
 ;;49884-0917-05
 ;;9002226.02101,"798,49884-0917-05 ",.02)
 ;;49884-0917-05
 ;;9002226.02101,"798,49884-0918-02 ",.01)
 ;;49884-0918-02
 ;;9002226.02101,"798,49884-0918-02 ",.02)
 ;;49884-0918-02
 ;;9002226.02101,"798,49884-0918-05 ",.01)
 ;;49884-0918-05
 ;;9002226.02101,"798,49884-0918-05 ",.02)
 ;;49884-0918-05
 ;;9002226.02101,"798,49884-0919-02 ",.01)
 ;;49884-0919-02
 ;;9002226.02101,"798,49884-0919-02 ",.02)
 ;;49884-0919-02
 ;;9002226.02101,"798,49884-0919-05 ",.01)
 ;;49884-0919-05
 ;;9002226.02101,"798,49884-0919-05 ",.02)
 ;;49884-0919-05
 ;;9002226.02101,"798,49884-0920-02 ",.01)
 ;;49884-0920-02
 ;;9002226.02101,"798,49884-0920-02 ",.02)
 ;;49884-0920-02
 ;;9002226.02101,"798,49884-0920-05 ",.01)
 ;;49884-0920-05
 ;;9002226.02101,"798,49884-0920-05 ",.02)
 ;;49884-0920-05
 ;;9002226.02101,"798,49884-0961-01 ",.01)
 ;;49884-0961-01
 ;;9002226.02101,"798,49884-0961-01 ",.02)
 ;;49884-0961-01
 ;;9002226.02101,"798,49884-0962-01 ",.01)
 ;;49884-0962-01
 ;;9002226.02101,"798,49884-0962-01 ",.02)
 ;;49884-0962-01
 ;;9002226.02101,"798,49909-0005-30 ",.01)
 ;;49909-0005-30
 ;;9002226.02101,"798,49909-0005-30 ",.02)
 ;;49909-0005-30
 ;;9002226.02101,"798,49909-0010-30 ",.01)
 ;;49909-0010-30
 ;;9002226.02101,"798,49909-0010-30 ",.02)
 ;;49909-0010-30
 ;;9002226.02101,"798,49999-0063-00 ",.01)
 ;;49999-0063-00
 ;;9002226.02101,"798,49999-0063-00 ",.02)
 ;;49999-0063-00
 ;;9002226.02101,"798,49999-0063-15 ",.01)
 ;;49999-0063-15
 ;;9002226.02101,"798,49999-0063-15 ",.02)
 ;;49999-0063-15
 ;;9002226.02101,"798,49999-0063-30 ",.01)
 ;;49999-0063-30
 ;;9002226.02101,"798,49999-0063-30 ",.02)
 ;;49999-0063-30
 ;;9002226.02101,"798,49999-0063-50 ",.01)
 ;;49999-0063-50
 ;;9002226.02101,"798,49999-0063-50 ",.02)
 ;;49999-0063-50
 ;;9002226.02101,"798,49999-0063-60 ",.01)
 ;;49999-0063-60
 ;;9002226.02101,"798,49999-0063-60 ",.02)
 ;;49999-0063-60
 ;;9002226.02101,"798,49999-0063-90 ",.01)
 ;;49999-0063-90
 ;;9002226.02101,"798,49999-0063-90 ",.02)
 ;;49999-0063-90
 ;;9002226.02101,"798,49999-0128-00 ",.01)
 ;;49999-0128-00
 ;;9002226.02101,"798,49999-0128-00 ",.02)
 ;;49999-0128-00
 ;;9002226.02101,"798,49999-0128-14 ",.01)
 ;;49999-0128-14
 ;;9002226.02101,"798,49999-0128-14 ",.02)
 ;;49999-0128-14
 ;;9002226.02101,"798,49999-0128-20 ",.01)
 ;;49999-0128-20
 ;;9002226.02101,"798,49999-0128-20 ",.02)
 ;;49999-0128-20
 ;;9002226.02101,"798,49999-0128-30 ",.01)
 ;;49999-0128-30
 ;;9002226.02101,"798,49999-0128-30 ",.02)
 ;;49999-0128-30
 ;;9002226.02101,"798,49999-0128-60 ",.01)
 ;;49999-0128-60
 ;;9002226.02101,"798,49999-0128-60 ",.02)
 ;;49999-0128-60
 ;;9002226.02101,"798,49999-0128-90 ",.01)
 ;;49999-0128-90
 ;;9002226.02101,"798,49999-0128-90 ",.02)
 ;;49999-0128-90
 ;;9002226.02101,"798,49999-0156-00 ",.01)
 ;;49999-0156-00
 ;;9002226.02101,"798,49999-0156-00 ",.02)
 ;;49999-0156-00
 ;;9002226.02101,"798,49999-0156-14 ",.01)
 ;;49999-0156-14
 ;;9002226.02101,"798,49999-0156-14 ",.02)
 ;;49999-0156-14
 ;;9002226.02101,"798,49999-0156-20 ",.01)
 ;;49999-0156-20
 ;;9002226.02101,"798,49999-0156-20 ",.02)
 ;;49999-0156-20
 ;;9002226.02101,"798,49999-0156-30 ",.01)
 ;;49999-0156-30
 ;;9002226.02101,"798,49999-0156-30 ",.02)
 ;;49999-0156-30
 ;;9002226.02101,"798,49999-0156-60 ",.01)
 ;;49999-0156-60
 ;;9002226.02101,"798,49999-0156-60 ",.02)
 ;;49999-0156-60
 ;;9002226.02101,"798,49999-0190-30 ",.01)
 ;;49999-0190-30
 ;;9002226.02101,"798,49999-0190-30 ",.02)
 ;;49999-0190-30
 ;;9002226.02101,"798,49999-0205-00 ",.01)
 ;;49999-0205-00
 ;;9002226.02101,"798,49999-0205-00 ",.02)
 ;;49999-0205-00
 ;;9002226.02101,"798,49999-0205-30 ",.01)
 ;;49999-0205-30
 ;;9002226.02101,"798,49999-0205-30 ",.02)
 ;;49999-0205-30
 ;;9002226.02101,"798,49999-0205-60 ",.01)
 ;;49999-0205-60
 ;;9002226.02101,"798,49999-0205-60 ",.02)
 ;;49999-0205-60
 ;;9002226.02101,"798,49999-0215-25 ",.01)
 ;;49999-0215-25
 ;;9002226.02101,"798,49999-0215-25 ",.02)
 ;;49999-0215-25
 ;;9002226.02101,"798,49999-0215-30 ",.01)
 ;;49999-0215-30
 ;;9002226.02101,"798,49999-0215-30 ",.02)
 ;;49999-0215-30
 ;;9002226.02101,"798,49999-0215-60 ",.01)
 ;;49999-0215-60
 ;;9002226.02101,"798,49999-0215-60 ",.02)
 ;;49999-0215-60
 ;;9002226.02101,"798,49999-0228-00 ",.01)
 ;;49999-0228-00
 ;;9002226.02101,"798,49999-0228-00 ",.02)
 ;;49999-0228-00
 ;;9002226.02101,"798,49999-0228-30 ",.01)
 ;;49999-0228-30
 ;;9002226.02101,"798,49999-0228-30 ",.02)
 ;;49999-0228-30
 ;;9002226.02101,"798,49999-0228-60 ",.01)
 ;;49999-0228-60
 ;;9002226.02101,"798,49999-0228-60 ",.02)
 ;;49999-0228-60
 ;;9002226.02101,"798,49999-0228-90 ",.01)
 ;;49999-0228-90
 ;;9002226.02101,"798,49999-0228-90 ",.02)
 ;;49999-0228-90
 ;;9002226.02101,"798,49999-0249-15 ",.01)
 ;;49999-0249-15
 ;;9002226.02101,"798,49999-0249-15 ",.02)
 ;;49999-0249-15
 ;;9002226.02101,"798,49999-0249-30 ",.01)
 ;;49999-0249-30
 ;;9002226.02101,"798,49999-0249-30 ",.02)
 ;;49999-0249-30
 ;;9002226.02101,"798,49999-0292-15 ",.01)
 ;;49999-0292-15
 ;;9002226.02101,"798,49999-0292-15 ",.02)
 ;;49999-0292-15
 ;;9002226.02101,"798,49999-0292-30 ",.01)
 ;;49999-0292-30
 ;;9002226.02101,"798,49999-0292-30 ",.02)
 ;;49999-0292-30
 ;;9002226.02101,"798,49999-0318-00 ",.01)
 ;;49999-0318-00
 ;;9002226.02101,"798,49999-0318-00 ",.02)
 ;;49999-0318-00
 ;;9002226.02101,"798,49999-0318-30 ",.01)
 ;;49999-0318-30
 ;;9002226.02101,"798,49999-0318-30 ",.02)
 ;;49999-0318-30
 ;;9002226.02101,"798,49999-0318-60 ",.01)
 ;;49999-0318-60
 ;;9002226.02101,"798,49999-0318-60 ",.02)
 ;;49999-0318-60
 ;;9002226.02101,"798,49999-0343-00 ",.01)
 ;;49999-0343-00
 ;;9002226.02101,"798,49999-0343-00 ",.02)
 ;;49999-0343-00
 ;;9002226.02101,"798,49999-0343-15 ",.01)
 ;;49999-0343-15
 ;;9002226.02101,"798,49999-0343-15 ",.02)
 ;;49999-0343-15
 ;;9002226.02101,"798,49999-0343-30 ",.01)
 ;;49999-0343-30
 ;;9002226.02101,"798,49999-0343-30 ",.02)
 ;;49999-0343-30
 ;;9002226.02101,"798,49999-0343-60 ",.01)
 ;;49999-0343-60
 ;;9002226.02101,"798,49999-0343-60 ",.02)
 ;;49999-0343-60