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

BGP2TE25.m

Go to the documentation of this file.
BGP2TE25 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"1197,62584-0976-01 ",.02)
 ;;62584-0976-01
 ;;9002226.02101,"1197,62584-0976-11 ",.01)
 ;;62584-0976-11
 ;;9002226.02101,"1197,62584-0976-11 ",.02)
 ;;62584-0976-11
 ;;9002226.02101,"1197,62584-0976-30 ",.01)
 ;;62584-0976-30
 ;;9002226.02101,"1197,62584-0976-30 ",.02)
 ;;62584-0976-30
 ;;9002226.02101,"1197,62584-0976-80 ",.01)
 ;;62584-0976-80
 ;;9002226.02101,"1197,62584-0976-80 ",.02)
 ;;62584-0976-80
 ;;9002226.02101,"1197,62584-0976-85 ",.01)
 ;;62584-0976-85
 ;;9002226.02101,"1197,62584-0976-85 ",.02)
 ;;62584-0976-85
 ;;9002226.02101,"1197,62584-0976-90 ",.01)
 ;;62584-0976-90
 ;;9002226.02101,"1197,62584-0976-90 ",.02)
 ;;62584-0976-90
 ;;9002226.02101,"1197,62584-0977-01 ",.01)
 ;;62584-0977-01
 ;;9002226.02101,"1197,62584-0977-01 ",.02)
 ;;62584-0977-01
 ;;9002226.02101,"1197,62584-0977-11 ",.01)
 ;;62584-0977-11
 ;;9002226.02101,"1197,62584-0977-11 ",.02)
 ;;62584-0977-11
 ;;9002226.02101,"1197,62584-0977-30 ",.01)
 ;;62584-0977-30
 ;;9002226.02101,"1197,62584-0977-30 ",.02)
 ;;62584-0977-30
 ;;9002226.02101,"1197,62584-0977-90 ",.01)
 ;;62584-0977-90
 ;;9002226.02101,"1197,62584-0977-90 ",.02)
 ;;62584-0977-90
 ;;9002226.02101,"1197,62682-6034-06 ",.01)
 ;;62682-6034-06
 ;;9002226.02101,"1197,62682-6034-06 ",.02)
 ;;62682-6034-06
 ;;9002226.02101,"1197,62682-6035-06 ",.01)
 ;;62682-6035-06
 ;;9002226.02101,"1197,62682-6035-06 ",.02)
 ;;62682-6035-06
 ;;9002226.02101,"1197,63304-0435-01 ",.01)
 ;;63304-0435-01
 ;;9002226.02101,"1197,63304-0435-01 ",.02)
 ;;63304-0435-01
 ;;9002226.02101,"1197,63304-0436-01 ",.01)
 ;;63304-0436-01
 ;;9002226.02101,"1197,63304-0436-01 ",.02)
 ;;63304-0436-01
 ;;9002226.02101,"1197,63304-0437-01 ",.01)
 ;;63304-0437-01
 ;;9002226.02101,"1197,63304-0437-01 ",.02)
 ;;63304-0437-01
 ;;9002226.02101,"1197,63304-0488-01 ",.01)
 ;;63304-0488-01
 ;;9002226.02101,"1197,63304-0488-01 ",.02)
 ;;63304-0488-01
 ;;9002226.02101,"1197,63304-0489-01 ",.01)
 ;;63304-0489-01
 ;;9002226.02101,"1197,63304-0489-01 ",.02)
 ;;63304-0489-01
 ;;9002226.02101,"1197,63304-0490-01 ",.01)
 ;;63304-0490-01
 ;;9002226.02101,"1197,63304-0490-01 ",.02)
 ;;63304-0490-01
 ;;9002226.02101,"1197,63304-0490-05 ",.01)
 ;;63304-0490-05
 ;;9002226.02101,"1197,63304-0490-05 ",.02)
 ;;63304-0490-05
 ;;9002226.02101,"1197,63304-0499-30 ",.01)
 ;;63304-0499-30
 ;;9002226.02101,"1197,63304-0499-30 ",.02)
 ;;63304-0499-30
 ;;9002226.02101,"1197,63304-0500-30 ",.01)
 ;;63304-0500-30
 ;;9002226.02101,"1197,63304-0500-30 ",.02)
 ;;63304-0500-30
 ;;9002226.02101,"1197,63304-0501-30 ",.01)
 ;;63304-0501-30
 ;;9002226.02101,"1197,63304-0501-30 ",.02)
 ;;63304-0501-30
 ;;9002226.02101,"1197,63304-0502-30 ",.01)
 ;;63304-0502-30
 ;;9002226.02101,"1197,63304-0502-30 ",.02)
 ;;63304-0502-30
 ;;9002226.02101,"1197,63304-0503-30 ",.01)
 ;;63304-0503-30
 ;;9002226.02101,"1197,63304-0503-30 ",.02)
 ;;63304-0503-30
 ;;9002226.02101,"1197,63304-0587-30 ",.01)
 ;;63304-0587-30
 ;;9002226.02101,"1197,63304-0587-30 ",.02)
 ;;63304-0587-30
 ;;9002226.02101,"1197,63304-0588-30 ",.01)
 ;;63304-0588-30
 ;;9002226.02101,"1197,63304-0588-30 ",.02)
 ;;63304-0588-30
 ;;9002226.02101,"1197,63304-0589-30 ",.01)
 ;;63304-0589-30
 ;;9002226.02101,"1197,63304-0589-30 ",.02)
 ;;63304-0589-30
 ;;9002226.02101,"1197,63304-0590-30 ",.01)
 ;;63304-0590-30
 ;;9002226.02101,"1197,63304-0590-30 ",.02)
 ;;63304-0590-30
 ;;9002226.02101,"1197,63304-0591-30 ",.01)
 ;;63304-0591-30
 ;;9002226.02101,"1197,63304-0591-30 ",.02)
 ;;63304-0591-30
 ;;9002226.02101,"1197,63304-0603-30 ",.01)
 ;;63304-0603-30
 ;;9002226.02101,"1197,63304-0603-30 ",.02)
 ;;63304-0603-30
 ;;9002226.02101,"1197,63629-1454-01 ",.01)
 ;;63629-1454-01
 ;;9002226.02101,"1197,63629-1454-01 ",.02)
 ;;63629-1454-01
 ;;9002226.02101,"1197,63629-1559-01 ",.01)
 ;;63629-1559-01
 ;;9002226.02101,"1197,63629-1559-01 ",.02)
 ;;63629-1559-01
 ;;9002226.02101,"1197,63629-1559-02 ",.01)
 ;;63629-1559-02
 ;;9002226.02101,"1197,63629-1559-02 ",.02)
 ;;63629-1559-02
 ;;9002226.02101,"1197,63629-1560-01 ",.01)
 ;;63629-1560-01
 ;;9002226.02101,"1197,63629-1560-01 ",.02)
 ;;63629-1560-01
 ;;9002226.02101,"1197,63629-1561-01 ",.01)
 ;;63629-1561-01
 ;;9002226.02101,"1197,63629-1561-01 ",.02)
 ;;63629-1561-01
 ;;9002226.02101,"1197,63629-1561-02 ",.01)
 ;;63629-1561-02
 ;;9002226.02101,"1197,63629-1561-02 ",.02)
 ;;63629-1561-02
 ;;9002226.02101,"1197,63629-1561-03 ",.01)
 ;;63629-1561-03
 ;;9002226.02101,"1197,63629-1561-03 ",.02)
 ;;63629-1561-03
 ;;9002226.02101,"1197,63629-1561-04 ",.01)
 ;;63629-1561-04
 ;;9002226.02101,"1197,63629-1561-04 ",.02)
 ;;63629-1561-04
 ;;9002226.02101,"1197,63629-1565-01 ",.01)
 ;;63629-1565-01
 ;;9002226.02101,"1197,63629-1565-01 ",.02)
 ;;63629-1565-01
 ;;9002226.02101,"1197,63629-1565-02 ",.01)
 ;;63629-1565-02
 ;;9002226.02101,"1197,63629-1565-02 ",.02)
 ;;63629-1565-02
 ;;9002226.02101,"1197,63629-1565-03 ",.01)
 ;;63629-1565-03
 ;;9002226.02101,"1197,63629-1565-03 ",.02)
 ;;63629-1565-03
 ;;9002226.02101,"1197,63629-1566-01 ",.01)
 ;;63629-1566-01
 ;;9002226.02101,"1197,63629-1566-01 ",.02)
 ;;63629-1566-01
 ;;9002226.02101,"1197,63629-1566-02 ",.01)
 ;;63629-1566-02
 ;;9002226.02101,"1197,63629-1566-02 ",.02)
 ;;63629-1566-02
 ;;9002226.02101,"1197,63629-1566-03 ",.01)
 ;;63629-1566-03
 ;;9002226.02101,"1197,63629-1566-03 ",.02)
 ;;63629-1566-03
 ;;9002226.02101,"1197,63629-1566-04 ",.01)
 ;;63629-1566-04
 ;;9002226.02101,"1197,63629-1566-04 ",.02)
 ;;63629-1566-04
 ;;9002226.02101,"1197,63629-1566-05 ",.01)
 ;;63629-1566-05
 ;;9002226.02101,"1197,63629-1566-05 ",.02)
 ;;63629-1566-05
 ;;9002226.02101,"1197,63629-1597-01 ",.01)
 ;;63629-1597-01
 ;;9002226.02101,"1197,63629-1597-01 ",.02)
 ;;63629-1597-01
 ;;9002226.02101,"1197,63629-3052-01 ",.01)
 ;;63629-3052-01
 ;;9002226.02101,"1197,63629-3052-01 ",.02)
 ;;63629-3052-01
 ;;9002226.02101,"1197,63629-3052-02 ",.01)
 ;;63629-3052-02
 ;;9002226.02101,"1197,63629-3052-02 ",.02)
 ;;63629-3052-02
 ;;9002226.02101,"1197,63629-3564-01 ",.01)
 ;;63629-3564-01
 ;;9002226.02101,"1197,63629-3564-01 ",.02)
 ;;63629-3564-01
 ;;9002226.02101,"1197,63629-3649-01 ",.01)
 ;;63629-3649-01
 ;;9002226.02101,"1197,63629-3649-01 ",.02)
 ;;63629-3649-01
 ;;9002226.02101,"1197,63629-3678-01 ",.01)
 ;;63629-3678-01
 ;;9002226.02101,"1197,63629-3678-01 ",.02)
 ;;63629-3678-01
 ;;9002226.02101,"1197,63629-3750-01 ",.01)
 ;;63629-3750-01
 ;;9002226.02101,"1197,63629-3750-01 ",.02)
 ;;63629-3750-01
 ;;9002226.02101,"1197,63629-4073-01 ",.01)
 ;;63629-4073-01
 ;;9002226.02101,"1197,63629-4073-01 ",.02)
 ;;63629-4073-01
 ;;9002226.02101,"1197,63629-4089-01 ",.01)
 ;;63629-4089-01
 ;;9002226.02101,"1197,63629-4089-01 ",.02)
 ;;63629-4089-01
 ;;9002226.02101,"1197,63672-0044-03 ",.01)
 ;;63672-0044-03
 ;;9002226.02101,"1197,63672-0044-03 ",.02)
 ;;63672-0044-03
 ;;9002226.02101,"1197,63672-0045-03 ",.01)
 ;;63672-0045-03
 ;;9002226.02101,"1197,63672-0045-03 ",.02)
 ;;63672-0045-03
 ;;9002226.02101,"1197,63672-0046-03 ",.01)
 ;;63672-0046-03
 ;;9002226.02101,"1197,63672-0046-03 ",.02)
 ;;63672-0046-03
 ;;9002226.02101,"1197,63739-0079-01 ",.01)
 ;;63739-0079-01
 ;;9002226.02101,"1197,63739-0079-01 ",.02)
 ;;63739-0079-01
 ;;9002226.02101,"1197,63739-0079-02 ",.01)
 ;;63739-0079-02
 ;;9002226.02101,"1197,63739-0079-02 ",.02)
 ;;63739-0079-02
 ;;9002226.02101,"1197,63739-0079-03 ",.01)
 ;;63739-0079-03
 ;;9002226.02101,"1197,63739-0079-03 ",.02)
 ;;63739-0079-03
 ;;9002226.02101,"1197,63739-0079-10 ",.01)
 ;;63739-0079-10
 ;;9002226.02101,"1197,63739-0079-10 ",.02)
 ;;63739-0079-10
 ;;9002226.02101,"1197,63739-0079-15 ",.01)
 ;;63739-0079-15
 ;;9002226.02101,"1197,63739-0079-15 ",.02)
 ;;63739-0079-15
 ;;9002226.02101,"1197,63739-0080-01 ",.01)
 ;;63739-0080-01
 ;;9002226.02101,"1197,63739-0080-01 ",.02)
 ;;63739-0080-01
 ;;9002226.02101,"1197,63739-0080-02 ",.01)
 ;;63739-0080-02
 ;;9002226.02101,"1197,63739-0080-02 ",.02)
 ;;63739-0080-02
 ;;9002226.02101,"1197,63739-0080-03 ",.01)
 ;;63739-0080-03
 ;;9002226.02101,"1197,63739-0080-03 ",.02)
 ;;63739-0080-03
 ;;9002226.02101,"1197,63739-0080-10 ",.01)
 ;;63739-0080-10
 ;;9002226.02101,"1197,63739-0080-10 ",.02)
 ;;63739-0080-10
 ;;9002226.02101,"1197,63739-0080-15 ",.01)
 ;;63739-0080-15
 ;;9002226.02101,"1197,63739-0080-15 ",.02)
 ;;63739-0080-15
 ;;9002226.02101,"1197,63739-0283-10 ",.01)
 ;;63739-0283-10
 ;;9002226.02101,"1197,63739-0283-10 ",.02)
 ;;63739-0283-10
 ;;9002226.02101,"1197,63739-0283-15 ",.01)
 ;;63739-0283-15
 ;;9002226.02101,"1197,63739-0283-15 ",.02)
 ;;63739-0283-15
 ;;9002226.02101,"1197,63739-0283-31 ",.01)
 ;;63739-0283-31
 ;;9002226.02101,"1197,63739-0283-31 ",.02)
 ;;63739-0283-31
 ;;9002226.02101,"1197,63739-0284-10 ",.01)
 ;;63739-0284-10
 ;;9002226.02101,"1197,63739-0284-10 ",.02)
 ;;63739-0284-10
 ;;9002226.02101,"1197,63739-0284-15 ",.01)
 ;;63739-0284-15
 ;;9002226.02101,"1197,63739-0284-15 ",.02)
 ;;63739-0284-15
 ;;9002226.02101,"1197,63739-0284-31 ",.01)
 ;;63739-0284-31
 ;;9002226.02101,"1197,63739-0284-31 ",.02)
 ;;63739-0284-31
 ;;9002226.02101,"1197,63739-0285-10 ",.01)
 ;;63739-0285-10
 ;;9002226.02101,"1197,63739-0285-10 ",.02)
 ;;63739-0285-10
 ;;9002226.02101,"1197,63739-0285-15 ",.01)
 ;;63739-0285-15
 ;;9002226.02101,"1197,63739-0285-15 ",.02)
 ;;63739-0285-15
 ;;9002226.02101,"1197,63739-0285-31 ",.01)
 ;;63739-0285-31
 ;;9002226.02101,"1197,63739-0285-31 ",.02)
 ;;63739-0285-31
 ;;9002226.02101,"1197,63739-0286-10 ",.01)
 ;;63739-0286-10
 ;;9002226.02101,"1197,63739-0286-10 ",.02)
 ;;63739-0286-10
 ;;9002226.02101,"1197,63739-0286-15 ",.01)
 ;;63739-0286-15
 ;;9002226.02101,"1197,63739-0286-15 ",.02)
 ;;63739-0286-15
 ;;9002226.02101,"1197,63739-0451-10 ",.01)
 ;;63739-0451-10
 ;;9002226.02101,"1197,63739-0451-10 ",.02)
 ;;63739-0451-10
 ;;9002226.02101,"1197,63739-0452-10 ",.01)
 ;;63739-0452-10
 ;;9002226.02101,"1197,63739-0452-10 ",.02)
 ;;63739-0452-10
 ;;9002226.02101,"1197,64455-0100-10 ",.01)
 ;;64455-0100-10
 ;;9002226.02101,"1197,64455-0100-10 ",.02)
 ;;64455-0100-10
 ;;9002226.02101,"1197,64455-0100-30 ",.01)
 ;;64455-0100-30
 ;;9002226.02101,"1197,64455-0100-30 ",.02)
 ;;64455-0100-30
 ;;9002226.02101,"1197,64455-0100-90 ",.01)
 ;;64455-0100-90
 ;;9002226.02101,"1197,64455-0100-90 ",.02)
 ;;64455-0100-90
 ;;9002226.02101,"1197,64455-0101-10 ",.01)
 ;;64455-0101-10
 ;;9002226.02101,"1197,64455-0101-10 ",.02)
 ;;64455-0101-10
 ;;9002226.02101,"1197,64455-0101-30 ",.01)
 ;;64455-0101-30
 ;;9002226.02101,"1197,64455-0101-30 ",.02)
 ;;64455-0101-30
 ;;9002226.02101,"1197,64455-0101-90 ",.01)
 ;;64455-0101-90
 ;;9002226.02101,"1197,64455-0101-90 ",.02)
 ;;64455-0101-90
 ;;9002226.02101,"1197,64455-0102-10 ",.01)
 ;;64455-0102-10
 ;;9002226.02101,"1197,64455-0102-10 ",.02)
 ;;64455-0102-10
 ;;9002226.02101,"1197,64455-0102-30 ",.01)
 ;;64455-0102-30
 ;;9002226.02101,"1197,64455-0102-30 ",.02)
 ;;64455-0102-30
 ;;9002226.02101,"1197,64455-0102-90 ",.01)
 ;;64455-0102-90
 ;;9002226.02101,"1197,64455-0102-90 ",.02)
 ;;64455-0102-90
 ;;9002226.02101,"1197,64455-0103-30 ",.01)
 ;;64455-0103-30
 ;;9002226.02101,"1197,64455-0103-30 ",.02)
 ;;64455-0103-30
 ;;9002226.02101,"1197,64455-0103-90 ",.01)
 ;;64455-0103-90
 ;;9002226.02101,"1197,64455-0103-90 ",.02)
 ;;64455-0103-90
 ;;9002226.02101,"1197,64455-0104-10 ",.01)
 ;;64455-0104-10
 ;;9002226.02101,"1197,64455-0104-10 ",.02)
 ;;64455-0104-10
 ;;9002226.02101,"1197,64455-0104-30 ",.01)
 ;;64455-0104-30
 ;;9002226.02101,"1197,64455-0104-30 ",.02)
 ;;64455-0104-30
 ;;9002226.02101,"1197,64455-0104-90 ",.01)
 ;;64455-0104-90
 ;;9002226.02101,"1197,64455-0104-90 ",.02)
 ;;64455-0104-90
 ;;9002226.02101,"1197,64455-0105-10 ",.01)
 ;;64455-0105-10
 ;;9002226.02101,"1197,64455-0105-10 ",.02)
 ;;64455-0105-10
 ;;9002226.02101,"1197,64455-0105-30 ",.01)
 ;;64455-0105-30
 ;;9002226.02101,"1197,64455-0105-30 ",.02)
 ;;64455-0105-30
 ;;9002226.02101,"1197,64455-0105-90 ",.01)
 ;;64455-0105-90
 ;;9002226.02101,"1197,64455-0105-90 ",.02)
 ;;64455-0105-90
 ;;9002226.02101,"1197,64455-0771-47 ",.01)
 ;;64455-0771-47
 ;;9002226.02101,"1197,64455-0771-47 ",.02)
 ;;64455-0771-47
 ;;9002226.02101,"1197,64455-0771-55 ",.01)
 ;;64455-0771-55
 ;;9002226.02101,"1197,64455-0771-55 ",.02)
 ;;64455-0771-55
 ;;9002226.02101,"1197,64455-0772-47 ",.01)
 ;;64455-0772-47
 ;;9002226.02101,"1197,64455-0772-47 ",.02)
 ;;64455-0772-47
 ;;9002226.02101,"1197,64455-0772-55 ",.01)
 ;;64455-0772-55
 ;;9002226.02101,"1197,64455-0772-55 ",.02)
 ;;64455-0772-55
 ;;9002226.02101,"1197,64455-0791-47 ",.01)
 ;;64455-0791-47
 ;;9002226.02101,"1197,64455-0791-47 ",.02)
 ;;64455-0791-47
 ;;9002226.02101,"1197,64455-0792-47 ",.01)
 ;;64455-0792-47
 ;;9002226.02101,"1197,64455-0792-47 ",.02)
 ;;64455-0792-47
 ;;9002226.02101,"1197,64455-0795-30 ",.01)
 ;;64455-0795-30
 ;;9002226.02101,"1197,64455-0795-30 ",.02)
 ;;64455-0795-30
 ;;9002226.02101,"1197,64455-0795-42 ",.01)
 ;;64455-0795-42
 ;;9002226.02101,"1197,64455-0795-42 ",.02)
 ;;64455-0795-42
 ;;9002226.02101,"1197,64455-0795-49 ",.01)
 ;;64455-0795-49
 ;;9002226.02101,"1197,64455-0795-49 ",.02)
 ;;64455-0795-49
 ;;9002226.02101,"1197,64455-0796-30 ",.01)
 ;;64455-0796-30
 ;;9002226.02101,"1197,64455-0796-30 ",.02)
 ;;64455-0796-30
 ;;9002226.02101,"1197,64455-0796-42 ",.01)
 ;;64455-0796-42
 ;;9002226.02101,"1197,64455-0796-42 ",.02)
 ;;64455-0796-42
 ;;9002226.02101,"1197,64455-0796-49 ",.01)
 ;;64455-0796-49
 ;;9002226.02101,"1197,64455-0796-49 ",.02)
 ;;64455-0796-49