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

BGP47E28.m

Go to the documentation of this file.
BGP47E28 ;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,23490-6405-01 ",.01)
 ;;23490-6405-01
 ;;9002226.02101,"798,23490-6405-01 ",.02)
 ;;23490-6405-01
 ;;9002226.02101,"798,23490-6405-02 ",.01)
 ;;23490-6405-02
 ;;9002226.02101,"798,23490-6405-02 ",.02)
 ;;23490-6405-02
 ;;9002226.02101,"798,23490-6405-09 ",.01)
 ;;23490-6405-09
 ;;9002226.02101,"798,23490-6405-09 ",.02)
 ;;23490-6405-09
 ;;9002226.02101,"798,23490-6406-01 ",.01)
 ;;23490-6406-01
 ;;9002226.02101,"798,23490-6406-01 ",.02)
 ;;23490-6406-01
 ;;9002226.02101,"798,23490-6406-02 ",.01)
 ;;23490-6406-02
 ;;9002226.02101,"798,23490-6406-02 ",.02)
 ;;23490-6406-02
 ;;9002226.02101,"798,23490-6406-06 ",.01)
 ;;23490-6406-06
 ;;9002226.02101,"798,23490-6406-06 ",.02)
 ;;23490-6406-06
 ;;9002226.02101,"798,23490-6406-09 ",.01)
 ;;23490-6406-09
 ;;9002226.02101,"798,23490-6406-09 ",.02)
 ;;23490-6406-09
 ;;9002226.02101,"798,23490-6407-01 ",.01)
 ;;23490-6407-01
 ;;9002226.02101,"798,23490-6407-01 ",.02)
 ;;23490-6407-01
 ;;9002226.02101,"798,23490-6407-02 ",.01)
 ;;23490-6407-02
 ;;9002226.02101,"798,23490-6407-02 ",.02)
 ;;23490-6407-02
 ;;9002226.02101,"798,23490-6407-03 ",.01)
 ;;23490-6407-03
 ;;9002226.02101,"798,23490-6407-03 ",.02)
 ;;23490-6407-03
 ;;9002226.02101,"798,23490-6407-04 ",.01)
 ;;23490-6407-04
 ;;9002226.02101,"798,23490-6407-04 ",.02)
 ;;23490-6407-04
 ;;9002226.02101,"798,23490-6530-06 ",.01)
 ;;23490-6530-06
 ;;9002226.02101,"798,23490-6530-06 ",.02)
 ;;23490-6530-06
 ;;9002226.02101,"798,23490-6577-01 ",.01)
 ;;23490-6577-01
 ;;9002226.02101,"798,23490-6577-01 ",.02)
 ;;23490-6577-01
 ;;9002226.02101,"798,23490-6579-01 ",.01)
 ;;23490-6579-01
 ;;9002226.02101,"798,23490-6579-01 ",.02)
 ;;23490-6579-01
 ;;9002226.02101,"798,23490-6579-02 ",.01)
 ;;23490-6579-02
 ;;9002226.02101,"798,23490-6579-02 ",.02)
 ;;23490-6579-02
 ;;9002226.02101,"798,23490-6579-03 ",.01)
 ;;23490-6579-03
 ;;9002226.02101,"798,23490-6579-03 ",.02)
 ;;23490-6579-03
 ;;9002226.02101,"798,23490-6947-01 ",.01)
 ;;23490-6947-01
 ;;9002226.02101,"798,23490-6947-01 ",.02)
 ;;23490-6947-01
 ;;9002226.02101,"798,23490-6947-02 ",.01)
 ;;23490-6947-02
 ;;9002226.02101,"798,23490-6947-02 ",.02)
 ;;23490-6947-02
 ;;9002226.02101,"798,23490-6948-01 ",.01)
 ;;23490-6948-01
 ;;9002226.02101,"798,23490-6948-01 ",.02)
 ;;23490-6948-01
 ;;9002226.02101,"798,23490-6948-02 ",.01)
 ;;23490-6948-02
 ;;9002226.02101,"798,23490-6948-02 ",.02)
 ;;23490-6948-02
 ;;9002226.02101,"798,23490-6948-03 ",.01)
 ;;23490-6948-03
 ;;9002226.02101,"798,23490-6948-03 ",.02)
 ;;23490-6948-03
 ;;9002226.02101,"798,23490-6989-01 ",.01)
 ;;23490-6989-01
 ;;9002226.02101,"798,23490-6989-01 ",.02)
 ;;23490-6989-01
 ;;9002226.02101,"798,23490-6989-02 ",.01)
 ;;23490-6989-02
 ;;9002226.02101,"798,23490-6989-02 ",.02)
 ;;23490-6989-02
 ;;9002226.02101,"798,23490-6990-03 ",.01)
 ;;23490-6990-03
 ;;9002226.02101,"798,23490-6990-03 ",.02)
 ;;23490-6990-03
 ;;9002226.02101,"798,23490-7050-01 ",.01)
 ;;23490-7050-01
 ;;9002226.02101,"798,23490-7050-01 ",.02)
 ;;23490-7050-01
 ;;9002226.02101,"798,23490-7050-02 ",.01)
 ;;23490-7050-02
 ;;9002226.02101,"798,23490-7050-02 ",.02)
 ;;23490-7050-02
 ;;9002226.02101,"798,23490-7225-01 ",.01)
 ;;23490-7225-01
 ;;9002226.02101,"798,23490-7225-01 ",.02)
 ;;23490-7225-01
 ;;9002226.02101,"798,23490-7225-02 ",.01)
 ;;23490-7225-02
 ;;9002226.02101,"798,23490-7225-02 ",.02)
 ;;23490-7225-02
 ;;9002226.02101,"798,23490-7225-03 ",.01)
 ;;23490-7225-03
 ;;9002226.02101,"798,23490-7225-03 ",.02)
 ;;23490-7225-03
 ;;9002226.02101,"798,23490-7225-04 ",.01)
 ;;23490-7225-04
 ;;9002226.02101,"798,23490-7225-04 ",.02)
 ;;23490-7225-04
 ;;9002226.02101,"798,23490-7225-05 ",.01)
 ;;23490-7225-05
 ;;9002226.02101,"798,23490-7225-05 ",.02)
 ;;23490-7225-05
 ;;9002226.02101,"798,23490-7225-09 ",.01)
 ;;23490-7225-09
 ;;9002226.02101,"798,23490-7225-09 ",.02)
 ;;23490-7225-09
 ;;9002226.02101,"798,23490-7226-03 ",.01)
 ;;23490-7226-03
 ;;9002226.02101,"798,23490-7226-03 ",.02)
 ;;23490-7226-03
 ;;9002226.02101,"798,23490-7226-05 ",.01)
 ;;23490-7226-05
 ;;9002226.02101,"798,23490-7226-05 ",.02)
 ;;23490-7226-05
 ;;9002226.02101,"798,23490-7226-06 ",.01)
 ;;23490-7226-06
 ;;9002226.02101,"798,23490-7226-06 ",.02)
 ;;23490-7226-06
 ;;9002226.02101,"798,23490-7226-09 ",.01)
 ;;23490-7226-09
 ;;9002226.02101,"798,23490-7226-09 ",.02)
 ;;23490-7226-09
 ;;9002226.02101,"798,23490-7293-03 ",.01)
 ;;23490-7293-03
 ;;9002226.02101,"798,23490-7293-03 ",.02)
 ;;23490-7293-03
 ;;9002226.02101,"798,23490-7327-03 ",.01)
 ;;23490-7327-03
 ;;9002226.02101,"798,23490-7327-03 ",.02)
 ;;23490-7327-03
 ;;9002226.02101,"798,23490-7558-01 ",.01)
 ;;23490-7558-01
 ;;9002226.02101,"798,23490-7558-01 ",.02)
 ;;23490-7558-01
 ;;9002226.02101,"798,23490-7558-02 ",.01)
 ;;23490-7558-02
 ;;9002226.02101,"798,23490-7558-02 ",.02)
 ;;23490-7558-02
 ;;9002226.02101,"798,23490-7558-03 ",.01)
 ;;23490-7558-03
 ;;9002226.02101,"798,23490-7558-03 ",.02)
 ;;23490-7558-03
 ;;9002226.02101,"798,23490-7689-03 ",.01)
 ;;23490-7689-03
 ;;9002226.02101,"798,23490-7689-03 ",.02)
 ;;23490-7689-03
 ;;9002226.02101,"798,23490-7689-06 ",.01)
 ;;23490-7689-06
 ;;9002226.02101,"798,23490-7689-06 ",.02)
 ;;23490-7689-06
 ;;9002226.02101,"798,23490-9210-00 ",.01)
 ;;23490-9210-00
 ;;9002226.02101,"798,23490-9210-00 ",.02)
 ;;23490-9210-00
 ;;9002226.02101,"798,23490-9210-03 ",.01)
 ;;23490-9210-03
 ;;9002226.02101,"798,23490-9210-03 ",.02)
 ;;23490-9210-03
 ;;9002226.02101,"798,23490-9220-00 ",.01)
 ;;23490-9220-00
 ;;9002226.02101,"798,23490-9220-00 ",.02)
 ;;23490-9220-00
 ;;9002226.02101,"798,23490-9220-03 ",.01)
 ;;23490-9220-03
 ;;9002226.02101,"798,23490-9220-03 ",.02)
 ;;23490-9220-03
 ;;9002226.02101,"798,23490-9230-06 ",.01)
 ;;23490-9230-06
 ;;9002226.02101,"798,23490-9230-06 ",.02)
 ;;23490-9230-06
 ;;9002226.02101,"798,23490-9231-03 ",.01)
 ;;23490-9231-03
 ;;9002226.02101,"798,23490-9231-03 ",.02)
 ;;23490-9231-03
 ;;9002226.02101,"798,23490-9232-03 ",.01)
 ;;23490-9232-03
 ;;9002226.02101,"798,23490-9232-03 ",.02)
 ;;23490-9232-03
 ;;9002226.02101,"798,23490-9240-06 ",.01)
 ;;23490-9240-06
 ;;9002226.02101,"798,23490-9240-06 ",.02)
 ;;23490-9240-06
 ;;9002226.02101,"798,24658-0140-01 ",.01)
 ;;24658-0140-01
 ;;9002226.02101,"798,24658-0140-01 ",.02)
 ;;24658-0140-01
 ;;9002226.02101,"798,24658-0140-10 ",.01)
 ;;24658-0140-10
 ;;9002226.02101,"798,24658-0140-10 ",.02)
 ;;24658-0140-10
 ;;9002226.02101,"798,24658-0140-30 ",.01)
 ;;24658-0140-30
 ;;9002226.02101,"798,24658-0140-30 ",.02)
 ;;24658-0140-30
 ;;9002226.02101,"798,24658-0141-01 ",.01)
 ;;24658-0141-01
 ;;9002226.02101,"798,24658-0141-01 ",.02)
 ;;24658-0141-01
 ;;9002226.02101,"798,24658-0141-10 ",.01)
 ;;24658-0141-10
 ;;9002226.02101,"798,24658-0141-10 ",.02)
 ;;24658-0141-10
 ;;9002226.02101,"798,24658-0141-30 ",.01)
 ;;24658-0141-30
 ;;9002226.02101,"798,24658-0141-30 ",.02)
 ;;24658-0141-30
 ;;9002226.02101,"798,24658-0142-01 ",.01)
 ;;24658-0142-01
 ;;9002226.02101,"798,24658-0142-01 ",.02)
 ;;24658-0142-01
 ;;9002226.02101,"798,24658-0142-10 ",.01)
 ;;24658-0142-10
 ;;9002226.02101,"798,24658-0142-10 ",.02)
 ;;24658-0142-10
 ;;9002226.02101,"798,24658-0142-30 ",.01)
 ;;24658-0142-30
 ;;9002226.02101,"798,24658-0142-30 ",.02)
 ;;24658-0142-30
 ;;9002226.02101,"798,24987-0447-10 ",.01)
 ;;24987-0447-10
 ;;9002226.02101,"798,24987-0447-10 ",.02)
 ;;24987-0447-10
 ;;9002226.02101,"798,30698-0032-01 ",.01)
 ;;30698-0032-01
 ;;9002226.02101,"798,30698-0032-01 ",.02)
 ;;30698-0032-01
 ;;9002226.02101,"798,31722-0206-01 ",.01)
 ;;31722-0206-01
 ;;9002226.02101,"798,31722-0206-01 ",.02)
 ;;31722-0206-01
 ;;9002226.02101,"798,31722-0206-05 ",.01)
 ;;31722-0206-05
 ;;9002226.02101,"798,31722-0206-05 ",.02)
 ;;31722-0206-05
 ;;9002226.02101,"798,31722-0207-01 ",.01)
 ;;31722-0207-01
 ;;9002226.02101,"798,31722-0207-01 ",.02)
 ;;31722-0207-01
 ;;9002226.02101,"798,31722-0207-05 ",.01)
 ;;31722-0207-05
 ;;9002226.02101,"798,31722-0207-05 ",.02)
 ;;31722-0207-05
 ;;9002226.02101,"798,31722-0207-10 ",.01)
 ;;31722-0207-10
 ;;9002226.02101,"798,31722-0207-10 ",.02)
 ;;31722-0207-10
 ;;9002226.02101,"798,31722-0208-01 ",.01)
 ;;31722-0208-01
 ;;9002226.02101,"798,31722-0208-01 ",.02)
 ;;31722-0208-01
 ;;9002226.02101,"798,31722-0208-05 ",.01)
 ;;31722-0208-05
 ;;9002226.02101,"798,31722-0208-05 ",.02)
 ;;31722-0208-05
 ;;9002226.02101,"798,31722-0208-30 ",.01)
 ;;31722-0208-30
 ;;9002226.02101,"798,31722-0208-30 ",.02)
 ;;31722-0208-30
 ;;9002226.02101,"798,31722-0212-05 ",.01)
 ;;31722-0212-05
 ;;9002226.02101,"798,31722-0212-05 ",.02)
 ;;31722-0212-05
 ;;9002226.02101,"798,31722-0212-30 ",.01)
 ;;31722-0212-30
 ;;9002226.02101,"798,31722-0212-30 ",.02)
 ;;31722-0212-30
 ;;9002226.02101,"798,31722-0212-90 ",.01)
 ;;31722-0212-90
 ;;9002226.02101,"798,31722-0212-90 ",.02)
 ;;31722-0212-90
 ;;9002226.02101,"798,31722-0213-05 ",.01)
 ;;31722-0213-05
 ;;9002226.02101,"798,31722-0213-05 ",.02)
 ;;31722-0213-05
 ;;9002226.02101,"798,31722-0213-30 ",.01)
 ;;31722-0213-30
 ;;9002226.02101,"798,31722-0213-30 ",.02)
 ;;31722-0213-30
 ;;9002226.02101,"798,31722-0213-90 ",.01)
 ;;31722-0213-90
 ;;9002226.02101,"798,31722-0213-90 ",.02)
 ;;31722-0213-90
 ;;9002226.02101,"798,31722-0214-05 ",.01)
 ;;31722-0214-05
 ;;9002226.02101,"798,31722-0214-05 ",.02)
 ;;31722-0214-05
 ;;9002226.02101,"798,31722-0214-30 ",.01)
 ;;31722-0214-30
 ;;9002226.02101,"798,31722-0214-30 ",.02)
 ;;31722-0214-30
 ;;9002226.02101,"798,31722-0214-90 ",.01)
 ;;31722-0214-90
 ;;9002226.02101,"798,31722-0214-90 ",.02)
 ;;31722-0214-90
 ;;9002226.02101,"798,31722-0249-90 ",.01)
 ;;31722-0249-90
 ;;9002226.02101,"798,31722-0249-90 ",.02)
 ;;31722-0249-90
 ;;9002226.02101,"798,31722-0250-90 ",.01)
 ;;31722-0250-90
 ;;9002226.02101,"798,31722-0250-90 ",.02)
 ;;31722-0250-90
 ;;9002226.02101,"798,31722-0251-90 ",.01)
 ;;31722-0251-90
 ;;9002226.02101,"798,31722-0251-90 ",.02)
 ;;31722-0251-90
 ;;9002226.02101,"798,31722-0569-24 ",.01)
 ;;31722-0569-24
 ;;9002226.02101,"798,31722-0569-24 ",.02)
 ;;31722-0569-24
 ;;9002226.02101,"798,33261-0090-10 ",.01)
 ;;33261-0090-10
 ;;9002226.02101,"798,33261-0090-10 ",.02)
 ;;33261-0090-10
 ;;9002226.02101,"798,33261-0090-14 ",.01)
 ;;33261-0090-14
 ;;9002226.02101,"798,33261-0090-14 ",.02)
 ;;33261-0090-14
 ;;9002226.02101,"798,33261-0090-20 ",.01)
 ;;33261-0090-20
 ;;9002226.02101,"798,33261-0090-20 ",.02)
 ;;33261-0090-20
 ;;9002226.02101,"798,33261-0090-28 ",.01)
 ;;33261-0090-28
 ;;9002226.02101,"798,33261-0090-28 ",.02)
 ;;33261-0090-28
 ;;9002226.02101,"798,33261-0090-30 ",.01)
 ;;33261-0090-30
 ;;9002226.02101,"798,33261-0090-30 ",.02)
 ;;33261-0090-30
 ;;9002226.02101,"798,33261-0090-60 ",.01)
 ;;33261-0090-60
 ;;9002226.02101,"798,33261-0090-60 ",.02)
 ;;33261-0090-60
 ;;9002226.02101,"798,33261-0090-90 ",.01)
 ;;33261-0090-90
 ;;9002226.02101,"798,33261-0090-90 ",.02)
 ;;33261-0090-90
 ;;9002226.02101,"798,33261-0091-10 ",.01)
 ;;33261-0091-10
 ;;9002226.02101,"798,33261-0091-10 ",.02)
 ;;33261-0091-10
 ;;9002226.02101,"798,33261-0091-14 ",.01)
 ;;33261-0091-14
 ;;9002226.02101,"798,33261-0091-14 ",.02)
 ;;33261-0091-14
 ;;9002226.02101,"798,33261-0091-21 ",.01)
 ;;33261-0091-21
 ;;9002226.02101,"798,33261-0091-21 ",.02)
 ;;33261-0091-21
 ;;9002226.02101,"798,33261-0091-28 ",.01)
 ;;33261-0091-28
 ;;9002226.02101,"798,33261-0091-28 ",.02)
 ;;33261-0091-28
 ;;9002226.02101,"798,33261-0091-30 ",.01)
 ;;33261-0091-30
 ;;9002226.02101,"798,33261-0091-30 ",.02)
 ;;33261-0091-30
 ;;9002226.02101,"798,33261-0091-40 ",.01)
 ;;33261-0091-40
 ;;9002226.02101,"798,33261-0091-40 ",.02)
 ;;33261-0091-40
 ;;9002226.02101,"798,33261-0091-60 ",.01)
 ;;33261-0091-60
 ;;9002226.02101,"798,33261-0091-60 ",.02)
 ;;33261-0091-60
 ;;9002226.02101,"798,33261-0091-90 ",.01)
 ;;33261-0091-90
 ;;9002226.02101,"798,33261-0091-90 ",.02)
 ;;33261-0091-90
 ;;9002226.02101,"798,33358-0023-30 ",.01)
 ;;33358-0023-30
 ;;9002226.02101,"798,33358-0023-30 ",.02)
 ;;33358-0023-30
 ;;9002226.02101,"798,33358-0024-30 ",.01)
 ;;33358-0024-30
 ;;9002226.02101,"798,33358-0024-30 ",.02)
 ;;33358-0024-30
 ;;9002226.02101,"798,33358-0053-60 ",.01)
 ;;33358-0053-60
 ;;9002226.02101,"798,33358-0053-60 ",.02)
 ;;33358-0053-60
 ;;9002226.02101,"798,33358-0083-60 ",.01)
 ;;33358-0083-60
 ;;9002226.02101,"798,33358-0083-60 ",.02)
 ;;33358-0083-60
 ;;9002226.02101,"798,33358-0098-30 ",.01)
 ;;33358-0098-30
 ;;9002226.02101,"798,33358-0098-30 ",.02)
 ;;33358-0098-30
 ;;9002226.02101,"798,33358-0098-60 ",.01)
 ;;33358-0098-60
 ;;9002226.02101,"798,33358-0098-60 ",.02)
 ;;33358-0098-60
 ;;9002226.02101,"798,33358-0099-30 ",.01)
 ;;33358-0099-30
 ;;9002226.02101,"798,33358-0099-30 ",.02)
 ;;33358-0099-30
 ;;9002226.02101,"798,33358-0099-60 ",.01)
 ;;33358-0099-60
 ;;9002226.02101,"798,33358-0099-60 ",.02)
 ;;33358-0099-60
 ;;9002226.02101,"798,33358-0117-30 ",.01)
 ;;33358-0117-30
 ;;9002226.02101,"798,33358-0117-30 ",.02)
 ;;33358-0117-30
 ;;9002226.02101,"798,33358-0117-60 ",.01)
 ;;33358-0117-60
 ;;9002226.02101,"798,33358-0117-60 ",.02)
 ;;33358-0117-60
 ;;9002226.02101,"798,33358-0118-30 ",.01)
 ;;33358-0118-30
 ;;9002226.02101,"798,33358-0118-30 ",.02)
 ;;33358-0118-30
 ;;9002226.02101,"798,33358-0118-60 ",.01)
 ;;33358-0118-60
 ;;9002226.02101,"798,33358-0118-60 ",.02)
 ;;33358-0118-60
 ;;9002226.02101,"798,33358-0119-30 ",.01)
 ;;33358-0119-30
 ;;9002226.02101,"798,33358-0119-30 ",.02)
 ;;33358-0119-30