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

BGP73G31.m

Go to the documentation of this file.
BGP73G31 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"869,23490-6019-01 ",.02)
 ;;23490-6019-01
 ;;9002226.02101,"869,23490-6019-02 ",.01)
 ;;23490-6019-02
 ;;9002226.02101,"869,23490-6019-02 ",.02)
 ;;23490-6019-02
 ;;9002226.02101,"869,23490-6019-03 ",.01)
 ;;23490-6019-03
 ;;9002226.02101,"869,23490-6019-03 ",.02)
 ;;23490-6019-03
 ;;9002226.02101,"869,23490-6019-04 ",.01)
 ;;23490-6019-04
 ;;9002226.02101,"869,23490-6019-04 ",.02)
 ;;23490-6019-04
 ;;9002226.02101,"869,23490-6020-01 ",.01)
 ;;23490-6020-01
 ;;9002226.02101,"869,23490-6020-01 ",.02)
 ;;23490-6020-01
 ;;9002226.02101,"869,23490-6020-02 ",.01)
 ;;23490-6020-02
 ;;9002226.02101,"869,23490-6020-02 ",.02)
 ;;23490-6020-02
 ;;9002226.02101,"869,23490-6020-03 ",.01)
 ;;23490-6020-03
 ;;9002226.02101,"869,23490-6020-03 ",.02)
 ;;23490-6020-03
 ;;9002226.02101,"869,23490-6021-06 ",.01)
 ;;23490-6021-06
 ;;9002226.02101,"869,23490-6021-06 ",.02)
 ;;23490-6021-06
 ;;9002226.02101,"869,23490-6059-01 ",.01)
 ;;23490-6059-01
 ;;9002226.02101,"869,23490-6059-01 ",.02)
 ;;23490-6059-01
 ;;9002226.02101,"869,23490-6059-02 ",.01)
 ;;23490-6059-02
 ;;9002226.02101,"869,23490-6059-02 ",.02)
 ;;23490-6059-02
 ;;9002226.02101,"869,23490-6059-03 ",.01)
 ;;23490-6059-03
 ;;9002226.02101,"869,23490-6059-03 ",.02)
 ;;23490-6059-03
 ;;9002226.02101,"869,23490-6060-01 ",.01)
 ;;23490-6060-01
 ;;9002226.02101,"869,23490-6060-01 ",.02)
 ;;23490-6060-01
 ;;9002226.02101,"869,23490-6060-02 ",.01)
 ;;23490-6060-02
 ;;9002226.02101,"869,23490-6060-02 ",.02)
 ;;23490-6060-02
 ;;9002226.02101,"869,23490-6263-01 ",.01)
 ;;23490-6263-01
 ;;9002226.02101,"869,23490-6263-01 ",.02)
 ;;23490-6263-01
 ;;9002226.02101,"869,23490-6263-02 ",.01)
 ;;23490-6263-02
 ;;9002226.02101,"869,23490-6263-02 ",.02)
 ;;23490-6263-02
 ;;9002226.02101,"869,23490-6263-03 ",.01)
 ;;23490-6263-03
 ;;9002226.02101,"869,23490-6263-03 ",.02)
 ;;23490-6263-03
 ;;9002226.02101,"869,23490-6264-01 ",.01)
 ;;23490-6264-01
 ;;9002226.02101,"869,23490-6264-01 ",.02)
 ;;23490-6264-01
 ;;9002226.02101,"869,23490-6264-02 ",.01)
 ;;23490-6264-02
 ;;9002226.02101,"869,23490-6264-02 ",.02)
 ;;23490-6264-02
 ;;9002226.02101,"869,23490-6264-03 ",.01)
 ;;23490-6264-03
 ;;9002226.02101,"869,23490-6264-03 ",.02)
 ;;23490-6264-03
 ;;9002226.02101,"869,23490-6264-04 ",.01)
 ;;23490-6264-04
 ;;9002226.02101,"869,23490-6264-04 ",.02)
 ;;23490-6264-04
 ;;9002226.02101,"869,23490-6405-01 ",.01)
 ;;23490-6405-01
 ;;9002226.02101,"869,23490-6405-01 ",.02)
 ;;23490-6405-01
 ;;9002226.02101,"869,23490-6405-02 ",.01)
 ;;23490-6405-02
 ;;9002226.02101,"869,23490-6405-02 ",.02)
 ;;23490-6405-02
 ;;9002226.02101,"869,23490-6405-09 ",.01)
 ;;23490-6405-09
 ;;9002226.02101,"869,23490-6405-09 ",.02)
 ;;23490-6405-09
 ;;9002226.02101,"869,23490-6406-01 ",.01)
 ;;23490-6406-01
 ;;9002226.02101,"869,23490-6406-01 ",.02)
 ;;23490-6406-01
 ;;9002226.02101,"869,23490-6406-02 ",.01)
 ;;23490-6406-02
 ;;9002226.02101,"869,23490-6406-02 ",.02)
 ;;23490-6406-02
 ;;9002226.02101,"869,23490-6406-06 ",.01)
 ;;23490-6406-06
 ;;9002226.02101,"869,23490-6406-06 ",.02)
 ;;23490-6406-06
 ;;9002226.02101,"869,23490-6406-09 ",.01)
 ;;23490-6406-09
 ;;9002226.02101,"869,23490-6406-09 ",.02)
 ;;23490-6406-09
 ;;9002226.02101,"869,23490-6407-01 ",.01)
 ;;23490-6407-01
 ;;9002226.02101,"869,23490-6407-01 ",.02)
 ;;23490-6407-01
 ;;9002226.02101,"869,23490-6407-02 ",.01)
 ;;23490-6407-02
 ;;9002226.02101,"869,23490-6407-02 ",.02)
 ;;23490-6407-02
 ;;9002226.02101,"869,23490-6407-03 ",.01)
 ;;23490-6407-03
 ;;9002226.02101,"869,23490-6407-03 ",.02)
 ;;23490-6407-03
 ;;9002226.02101,"869,23490-6407-04 ",.01)
 ;;23490-6407-04
 ;;9002226.02101,"869,23490-6407-04 ",.02)
 ;;23490-6407-04
 ;;9002226.02101,"869,23490-6530-06 ",.01)
 ;;23490-6530-06
 ;;9002226.02101,"869,23490-6530-06 ",.02)
 ;;23490-6530-06
 ;;9002226.02101,"869,23490-6577-01 ",.01)
 ;;23490-6577-01
 ;;9002226.02101,"869,23490-6577-01 ",.02)
 ;;23490-6577-01
 ;;9002226.02101,"869,23490-6579-01 ",.01)
 ;;23490-6579-01
 ;;9002226.02101,"869,23490-6579-01 ",.02)
 ;;23490-6579-01
 ;;9002226.02101,"869,23490-6579-02 ",.01)
 ;;23490-6579-02
 ;;9002226.02101,"869,23490-6579-02 ",.02)
 ;;23490-6579-02
 ;;9002226.02101,"869,23490-6579-03 ",.01)
 ;;23490-6579-03
 ;;9002226.02101,"869,23490-6579-03 ",.02)
 ;;23490-6579-03
 ;;9002226.02101,"869,23490-6947-01 ",.01)
 ;;23490-6947-01
 ;;9002226.02101,"869,23490-6947-01 ",.02)
 ;;23490-6947-01
 ;;9002226.02101,"869,23490-6947-02 ",.01)
 ;;23490-6947-02
 ;;9002226.02101,"869,23490-6947-02 ",.02)
 ;;23490-6947-02
 ;;9002226.02101,"869,23490-6948-01 ",.01)
 ;;23490-6948-01
 ;;9002226.02101,"869,23490-6948-01 ",.02)
 ;;23490-6948-01
 ;;9002226.02101,"869,23490-6948-02 ",.01)
 ;;23490-6948-02
 ;;9002226.02101,"869,23490-6948-02 ",.02)
 ;;23490-6948-02
 ;;9002226.02101,"869,23490-6948-03 ",.01)
 ;;23490-6948-03
 ;;9002226.02101,"869,23490-6948-03 ",.02)
 ;;23490-6948-03
 ;;9002226.02101,"869,23490-6989-01 ",.01)
 ;;23490-6989-01
 ;;9002226.02101,"869,23490-6989-01 ",.02)
 ;;23490-6989-01
 ;;9002226.02101,"869,23490-6989-02 ",.01)
 ;;23490-6989-02
 ;;9002226.02101,"869,23490-6989-02 ",.02)
 ;;23490-6989-02
 ;;9002226.02101,"869,23490-6990-03 ",.01)
 ;;23490-6990-03
 ;;9002226.02101,"869,23490-6990-03 ",.02)
 ;;23490-6990-03
 ;;9002226.02101,"869,23490-7050-01 ",.01)
 ;;23490-7050-01
 ;;9002226.02101,"869,23490-7050-01 ",.02)
 ;;23490-7050-01
 ;;9002226.02101,"869,23490-7050-02 ",.01)
 ;;23490-7050-02
 ;;9002226.02101,"869,23490-7050-02 ",.02)
 ;;23490-7050-02
 ;;9002226.02101,"869,23490-7225-01 ",.01)
 ;;23490-7225-01
 ;;9002226.02101,"869,23490-7225-01 ",.02)
 ;;23490-7225-01
 ;;9002226.02101,"869,23490-7225-02 ",.01)
 ;;23490-7225-02
 ;;9002226.02101,"869,23490-7225-02 ",.02)
 ;;23490-7225-02
 ;;9002226.02101,"869,23490-7225-03 ",.01)
 ;;23490-7225-03
 ;;9002226.02101,"869,23490-7225-03 ",.02)
 ;;23490-7225-03
 ;;9002226.02101,"869,23490-7225-04 ",.01)
 ;;23490-7225-04
 ;;9002226.02101,"869,23490-7225-04 ",.02)
 ;;23490-7225-04
 ;;9002226.02101,"869,23490-7225-05 ",.01)
 ;;23490-7225-05
 ;;9002226.02101,"869,23490-7225-05 ",.02)
 ;;23490-7225-05
 ;;9002226.02101,"869,23490-7225-09 ",.01)
 ;;23490-7225-09
 ;;9002226.02101,"869,23490-7225-09 ",.02)
 ;;23490-7225-09
 ;;9002226.02101,"869,23490-7226-03 ",.01)
 ;;23490-7226-03
 ;;9002226.02101,"869,23490-7226-03 ",.02)
 ;;23490-7226-03
 ;;9002226.02101,"869,23490-7226-05 ",.01)
 ;;23490-7226-05
 ;;9002226.02101,"869,23490-7226-05 ",.02)
 ;;23490-7226-05
 ;;9002226.02101,"869,23490-7226-06 ",.01)
 ;;23490-7226-06
 ;;9002226.02101,"869,23490-7226-06 ",.02)
 ;;23490-7226-06
 ;;9002226.02101,"869,23490-7226-09 ",.01)
 ;;23490-7226-09
 ;;9002226.02101,"869,23490-7226-09 ",.02)
 ;;23490-7226-09
 ;;9002226.02101,"869,23490-7293-03 ",.01)
 ;;23490-7293-03
 ;;9002226.02101,"869,23490-7293-03 ",.02)
 ;;23490-7293-03
 ;;9002226.02101,"869,23490-7327-03 ",.01)
 ;;23490-7327-03
 ;;9002226.02101,"869,23490-7327-03 ",.02)
 ;;23490-7327-03
 ;;9002226.02101,"869,23490-7558-01 ",.01)
 ;;23490-7558-01
 ;;9002226.02101,"869,23490-7558-01 ",.02)
 ;;23490-7558-01
 ;;9002226.02101,"869,23490-7558-02 ",.01)
 ;;23490-7558-02
 ;;9002226.02101,"869,23490-7558-02 ",.02)
 ;;23490-7558-02
 ;;9002226.02101,"869,23490-7558-03 ",.01)
 ;;23490-7558-03
 ;;9002226.02101,"869,23490-7558-03 ",.02)
 ;;23490-7558-03
 ;;9002226.02101,"869,23490-7689-03 ",.01)
 ;;23490-7689-03
 ;;9002226.02101,"869,23490-7689-03 ",.02)
 ;;23490-7689-03
 ;;9002226.02101,"869,23490-7689-06 ",.01)
 ;;23490-7689-06
 ;;9002226.02101,"869,23490-7689-06 ",.02)
 ;;23490-7689-06
 ;;9002226.02101,"869,23490-9210-00 ",.01)
 ;;23490-9210-00
 ;;9002226.02101,"869,23490-9210-00 ",.02)
 ;;23490-9210-00
 ;;9002226.02101,"869,23490-9210-03 ",.01)
 ;;23490-9210-03
 ;;9002226.02101,"869,23490-9210-03 ",.02)
 ;;23490-9210-03
 ;;9002226.02101,"869,23490-9220-00 ",.01)
 ;;23490-9220-00
 ;;9002226.02101,"869,23490-9220-00 ",.02)
 ;;23490-9220-00
 ;;9002226.02101,"869,23490-9220-03 ",.01)
 ;;23490-9220-03
 ;;9002226.02101,"869,23490-9220-03 ",.02)
 ;;23490-9220-03
 ;;9002226.02101,"869,23490-9230-06 ",.01)
 ;;23490-9230-06
 ;;9002226.02101,"869,23490-9230-06 ",.02)
 ;;23490-9230-06
 ;;9002226.02101,"869,23490-9231-03 ",.01)
 ;;23490-9231-03
 ;;9002226.02101,"869,23490-9231-03 ",.02)
 ;;23490-9231-03
 ;;9002226.02101,"869,23490-9232-03 ",.01)
 ;;23490-9232-03
 ;;9002226.02101,"869,23490-9232-03 ",.02)
 ;;23490-9232-03
 ;;9002226.02101,"869,23490-9240-06 ",.01)
 ;;23490-9240-06
 ;;9002226.02101,"869,23490-9240-06 ",.02)
 ;;23490-9240-06
 ;;9002226.02101,"869,24658-0140-01 ",.01)
 ;;24658-0140-01
 ;;9002226.02101,"869,24658-0140-01 ",.02)
 ;;24658-0140-01
 ;;9002226.02101,"869,24658-0140-10 ",.01)
 ;;24658-0140-10
 ;;9002226.02101,"869,24658-0140-10 ",.02)
 ;;24658-0140-10
 ;;9002226.02101,"869,24658-0140-30 ",.01)
 ;;24658-0140-30
 ;;9002226.02101,"869,24658-0140-30 ",.02)
 ;;24658-0140-30
 ;;9002226.02101,"869,24658-0141-01 ",.01)
 ;;24658-0141-01
 ;;9002226.02101,"869,24658-0141-01 ",.02)
 ;;24658-0141-01
 ;;9002226.02101,"869,24658-0141-10 ",.01)
 ;;24658-0141-10
 ;;9002226.02101,"869,24658-0141-10 ",.02)
 ;;24658-0141-10
 ;;9002226.02101,"869,24658-0141-30 ",.01)
 ;;24658-0141-30
 ;;9002226.02101,"869,24658-0141-30 ",.02)
 ;;24658-0141-30
 ;;9002226.02101,"869,24658-0142-01 ",.01)
 ;;24658-0142-01
 ;;9002226.02101,"869,24658-0142-01 ",.02)
 ;;24658-0142-01
 ;;9002226.02101,"869,24658-0142-10 ",.01)
 ;;24658-0142-10
 ;;9002226.02101,"869,24658-0142-10 ",.02)
 ;;24658-0142-10
 ;;9002226.02101,"869,24658-0142-30 ",.01)
 ;;24658-0142-30
 ;;9002226.02101,"869,24658-0142-30 ",.02)
 ;;24658-0142-30
 ;;9002226.02101,"869,24987-0447-10 ",.01)
 ;;24987-0447-10
 ;;9002226.02101,"869,24987-0447-10 ",.02)
 ;;24987-0447-10
 ;;9002226.02101,"869,27437-0298-06 ",.01)
 ;;27437-0298-06
 ;;9002226.02101,"869,27437-0298-06 ",.02)
 ;;27437-0298-06
 ;;9002226.02101,"869,30698-0032-01 ",.01)
 ;;30698-0032-01
 ;;9002226.02101,"869,30698-0032-01 ",.02)
 ;;30698-0032-01
 ;;9002226.02101,"869,31722-0206-01 ",.01)
 ;;31722-0206-01
 ;;9002226.02101,"869,31722-0206-01 ",.02)
 ;;31722-0206-01
 ;;9002226.02101,"869,31722-0206-05 ",.01)
 ;;31722-0206-05
 ;;9002226.02101,"869,31722-0206-05 ",.02)
 ;;31722-0206-05
 ;;9002226.02101,"869,31722-0207-01 ",.01)
 ;;31722-0207-01
 ;;9002226.02101,"869,31722-0207-01 ",.02)
 ;;31722-0207-01
 ;;9002226.02101,"869,31722-0207-05 ",.01)
 ;;31722-0207-05
 ;;9002226.02101,"869,31722-0207-05 ",.02)
 ;;31722-0207-05
 ;;9002226.02101,"869,31722-0207-10 ",.01)
 ;;31722-0207-10
 ;;9002226.02101,"869,31722-0207-10 ",.02)
 ;;31722-0207-10
 ;;9002226.02101,"869,31722-0208-01 ",.01)
 ;;31722-0208-01
 ;;9002226.02101,"869,31722-0208-01 ",.02)
 ;;31722-0208-01
 ;;9002226.02101,"869,31722-0208-05 ",.01)
 ;;31722-0208-05
 ;;9002226.02101,"869,31722-0208-05 ",.02)
 ;;31722-0208-05
 ;;9002226.02101,"869,31722-0208-30 ",.01)
 ;;31722-0208-30
 ;;9002226.02101,"869,31722-0208-30 ",.02)
 ;;31722-0208-30
 ;;9002226.02101,"869,31722-0212-05 ",.01)
 ;;31722-0212-05
 ;;9002226.02101,"869,31722-0212-05 ",.02)
 ;;31722-0212-05
 ;;9002226.02101,"869,31722-0212-30 ",.01)
 ;;31722-0212-30
 ;;9002226.02101,"869,31722-0212-30 ",.02)
 ;;31722-0212-30
 ;;9002226.02101,"869,31722-0212-90 ",.01)
 ;;31722-0212-90
 ;;9002226.02101,"869,31722-0212-90 ",.02)
 ;;31722-0212-90
 ;;9002226.02101,"869,31722-0213-05 ",.01)
 ;;31722-0213-05
 ;;9002226.02101,"869,31722-0213-05 ",.02)
 ;;31722-0213-05
 ;;9002226.02101,"869,31722-0213-30 ",.01)
 ;;31722-0213-30
 ;;9002226.02101,"869,31722-0213-30 ",.02)
 ;;31722-0213-30
 ;;9002226.02101,"869,31722-0213-90 ",.01)
 ;;31722-0213-90