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

BGP62Z33.m

Go to the documentation of this file.
BGP62Z33 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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-5393-01 ",.01)
 ;;23490-5393-01
 ;;9002226.02101,"869,23490-5393-01 ",.02)
 ;;23490-5393-01
 ;;9002226.02101,"869,23490-5393-02 ",.01)
 ;;23490-5393-02
 ;;9002226.02101,"869,23490-5393-02 ",.02)
 ;;23490-5393-02
 ;;9002226.02101,"869,23490-5394-01 ",.01)
 ;;23490-5394-01
 ;;9002226.02101,"869,23490-5394-01 ",.02)
 ;;23490-5394-01
 ;;9002226.02101,"869,23490-5394-02 ",.01)
 ;;23490-5394-02
 ;;9002226.02101,"869,23490-5394-02 ",.02)
 ;;23490-5394-02
 ;;9002226.02101,"869,23490-5394-03 ",.01)
 ;;23490-5394-03
 ;;9002226.02101,"869,23490-5394-03 ",.02)
 ;;23490-5394-03
 ;;9002226.02101,"869,23490-5480-03 ",.01)
 ;;23490-5480-03
 ;;9002226.02101,"869,23490-5480-03 ",.02)
 ;;23490-5480-03
 ;;9002226.02101,"869,23490-5601-03 ",.01)
 ;;23490-5601-03
 ;;9002226.02101,"869,23490-5601-03 ",.02)
 ;;23490-5601-03
 ;;9002226.02101,"869,23490-5602-01 ",.01)
 ;;23490-5602-01
 ;;9002226.02101,"869,23490-5602-01 ",.02)
 ;;23490-5602-01
 ;;9002226.02101,"869,23490-5602-02 ",.01)
 ;;23490-5602-02
 ;;9002226.02101,"869,23490-5602-02 ",.02)
 ;;23490-5602-02
 ;;9002226.02101,"869,23490-5602-03 ",.01)
 ;;23490-5602-03
 ;;9002226.02101,"869,23490-5602-03 ",.02)
 ;;23490-5602-03
 ;;9002226.02101,"869,23490-6019-01 ",.01)
 ;;23490-6019-01
 ;;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,24236-0004-02 ",.01)
 ;;24236-0004-02
 ;;9002226.02101,"869,24236-0004-02 ",.02)
 ;;24236-0004-02
 ;;9002226.02101,"869,24236-0004-24 ",.01)
 ;;24236-0004-24
 ;;9002226.02101,"869,24236-0004-24 ",.02)
 ;;24236-0004-24
 ;;9002226.02101,"869,24236-0005-02 ",.01)
 ;;24236-0005-02
 ;;9002226.02101,"869,24236-0005-02 ",.02)
 ;;24236-0005-02
 ;;9002226.02101,"869,24236-0005-24 ",.01)
 ;;24236-0005-24
 ;;9002226.02101,"869,24236-0005-24 ",.02)
 ;;24236-0005-24
 ;;9002226.02101,"869,24236-0006-02 ",.01)
 ;;24236-0006-02
 ;;9002226.02101,"869,24236-0006-02 ",.02)
 ;;24236-0006-02
 ;;9002226.02101,"869,24236-0006-33 ",.01)
 ;;24236-0006-33
 ;;9002226.02101,"869,24236-0006-33 ",.02)
 ;;24236-0006-33
 ;;9002226.02101,"869,24236-0727-02 ",.01)
 ;;24236-0727-02
 ;;9002226.02101,"869,24236-0727-02 ",.02)
 ;;24236-0727-02
 ;;9002226.02101,"869,24236-0727-30 ",.01)
 ;;24236-0727-30
 ;;9002226.02101,"869,24236-0727-30 ",.02)
 ;;24236-0727-30
 ;;9002226.02101,"869,24236-0933-02 ",.01)
 ;;24236-0933-02
 ;;9002226.02101,"869,24236-0933-02 ",.02)
 ;;24236-0933-02
 ;;9002226.02101,"869,24236-0933-24 ",.01)
 ;;24236-0933-24
 ;;9002226.02101,"869,24236-0933-24 ",.02)
 ;;24236-0933-24
 ;;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