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

BGP13V3.m

Go to the documentation of this file.
BGP13V3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"368,00002-4165-30 ",.01)
 ;;00002-4165-30
 ;;9002226.02101,"368,00002-4165-30 ",.02)
 ;;00002-4165-30
 ;;9002226.02101,"368,00002-4165-34 ",.01)
 ;;00002-4165-34
 ;;9002226.02101,"368,00002-4165-34 ",.02)
 ;;00002-4165-34
 ;;9002226.02101,"368,00002-4165-79 ",.01)
 ;;00002-4165-79
 ;;9002226.02101,"368,00002-4165-79 ",.02)
 ;;00002-4165-79
 ;;9002226.02101,"368,00002-8400-01 ",.01)
 ;;00002-8400-01
 ;;9002226.02101,"368,00002-8400-01 ",.02)
 ;;00002-8400-01
 ;;9002226.02101,"368,00002-8971-01 ",.01)
 ;;00002-8971-01
 ;;9002226.02101,"368,00002-8971-01 ",.02)
 ;;00002-8971-01
 ;;9002226.02101,"368,00003-0251-51 ",.01)
 ;;00003-0251-51
 ;;9002226.02101,"368,00003-0251-51 ",.02)
 ;;00003-0251-51
 ;;9002226.02101,"368,00004-0185-23 ",.01)
 ;;00004-0185-23
 ;;9002226.02101,"368,00004-0185-23 ",.02)
 ;;00004-0185-23
 ;;9002226.02101,"368,00004-0186-82 ",.01)
 ;;00004-0186-82
 ;;9002226.02101,"368,00004-0186-82 ",.02)
 ;;00004-0186-82
 ;;9002226.02101,"368,00004-0188-09 ",.01)
 ;;00004-0188-09
 ;;9002226.02101,"368,00004-0188-09 ",.02)
 ;;00004-0188-09
 ;;9002226.02101,"368,00006-0031-01 ",.01)
 ;;00006-0031-01
 ;;9002226.02101,"368,00006-0031-01 ",.02)
 ;;00006-0031-01
 ;;9002226.02101,"368,00006-0031-04 ",.01)
 ;;00006-0031-04
 ;;9002226.02101,"368,00006-0031-04 ",.02)
 ;;00006-0031-04
 ;;9002226.02101,"368,00006-0031-21 ",.01)
 ;;00006-0031-21
 ;;9002226.02101,"368,00006-0031-21 ",.02)
 ;;00006-0031-21
 ;;9002226.02101,"368,00006-0031-44 ",.01)
 ;;00006-0031-44
 ;;9002226.02101,"368,00006-0031-44 ",.02)
 ;;00006-0031-44
 ;;9002226.02101,"368,00006-0077-01 ",.01)
 ;;00006-0077-01
 ;;9002226.02101,"368,00006-0077-01 ",.02)
 ;;00006-0077-01
 ;;9002226.02101,"368,00006-0077-21 ",.01)
 ;;00006-0077-21
 ;;9002226.02101,"368,00006-0077-21 ",.02)
 ;;00006-0077-21
 ;;9002226.02101,"368,00006-0077-44 ",.01)
 ;;00006-0077-44
 ;;9002226.02101,"368,00006-0077-44 ",.02)
 ;;00006-0077-44
 ;;9002226.02101,"368,00006-0212-31 ",.01)
 ;;00006-0212-31
 ;;9002226.02101,"368,00006-0212-31 ",.02)
 ;;00006-0212-31
 ;;9002226.02101,"368,00006-0270-44 ",.01)
 ;;00006-0270-44
 ;;9002226.02101,"368,00006-0270-44 ",.02)
 ;;00006-0270-44
 ;;9002226.02101,"368,00006-0710-01 ",.01)
 ;;00006-0710-01
 ;;9002226.02101,"368,00006-0710-01 ",.02)
 ;;00006-0710-01
 ;;9002226.02101,"368,00006-0710-11 ",.01)
 ;;00006-0710-11
 ;;9002226.02101,"368,00006-0710-11 ",.02)
 ;;00006-0710-11
 ;;9002226.02101,"368,00006-0710-21 ",.01)
 ;;00006-0710-21
 ;;9002226.02101,"368,00006-0710-21 ",.02)
 ;;00006-0710-21
 ;;9002226.02101,"368,00006-0710-44 ",.01)
 ;;00006-0710-44
 ;;9002226.02101,"368,00006-0710-44 ",.02)
 ;;00006-0710-44
 ;;9002226.02101,"368,00006-0925-31 ",.01)
 ;;00006-0925-31
 ;;9002226.02101,"368,00006-0925-31 ",.02)
 ;;00006-0925-31
 ;;9002226.02101,"368,00006-0925-58 ",.01)
 ;;00006-0925-58
 ;;9002226.02101,"368,00006-0925-58 ",.02)
 ;;00006-0925-58
 ;;9002226.02101,"368,00006-0936-01 ",.01)
 ;;00006-0936-01
 ;;9002226.02101,"368,00006-0936-01 ",.02)
 ;;00006-0936-01
 ;;9002226.02101,"368,00006-0936-28 ",.01)
 ;;00006-0936-28
 ;;9002226.02101,"368,00006-0936-28 ",.02)
 ;;00006-0936-28
 ;;9002226.02101,"368,00006-0936-31 ",.01)
 ;;00006-0936-31
 ;;9002226.02101,"368,00006-0936-31 ",.02)
 ;;00006-0936-31
 ;;9002226.02101,"368,00006-0936-58 ",.01)
 ;;00006-0936-58
 ;;9002226.02101,"368,00006-0936-58 ",.02)
 ;;00006-0936-58
 ;;9002226.02101,"368,00006-0936-82 ",.01)
 ;;00006-0936-82
 ;;9002226.02101,"368,00006-0936-82 ",.02)
 ;;00006-0936-82
 ;;9002226.02101,"368,00006-3833-01 ",.01)
 ;;00006-3833-01
 ;;9002226.02101,"368,00006-3833-01 ",.02)
 ;;00006-3833-01
 ;;9002226.02101,"368,00006-3833-34 ",.01)
 ;;00006-3833-34
 ;;9002226.02101,"368,00006-3833-34 ",.02)
 ;;00006-3833-34
 ;;9002226.02101,"368,00009-0271-01 ",.01)
 ;;00009-0271-01
 ;;9002226.02101,"368,00009-0271-01 ",.02)
 ;;00009-0271-01
 ;;9002226.02101,"368,00009-3772-01 ",.01)
 ;;00009-3772-01
 ;;9002226.02101,"368,00009-3772-01 ",.02)
 ;;00009-3772-01
 ;;9002226.02101,"368,00009-3773-01 ",.01)
 ;;00009-3773-01
 ;;9002226.02101,"368,00009-3773-01 ",.02)
 ;;00009-3773-01
 ;;9002226.02101,"368,00009-3774-01 ",.01)
 ;;00009-3774-01
 ;;9002226.02101,"368,00009-3774-01 ",.02)
 ;;00009-3774-01
 ;;9002226.02101,"368,00009-3774-17 ",.01)
 ;;00009-3774-17
 ;;9002226.02101,"368,00009-3774-17 ",.02)
 ;;00009-3774-17
 ;;9002226.02101,"368,00009-5174-01 ",.01)
 ;;00009-5174-01
 ;;9002226.02101,"368,00009-5174-01 ",.02)
 ;;00009-5174-01
 ;;9002226.02101,"368,00009-5174-02 ",.01)
 ;;00009-5174-02
 ;;9002226.02101,"368,00009-5174-02 ",.02)
 ;;00009-5174-02
 ;;9002226.02101,"368,00029-2800-30 ",.01)
 ;;00029-2800-30
 ;;9002226.02101,"368,00029-2800-30 ",.02)
 ;;00029-2800-30
 ;;9002226.02101,"368,00046-0864-81 ",.01)
 ;;00046-0864-81
 ;;9002226.02101,"368,00046-0864-81 ",.02)
 ;;00046-0864-81
 ;;9002226.02101,"368,00046-0866-81 ",.01)
 ;;00046-0866-81
 ;;9002226.02101,"368,00046-0866-81 ",.02)
 ;;00046-0866-81
 ;;9002226.02101,"368,00046-0866-91 ",.01)
 ;;00046-0866-91
 ;;9002226.02101,"368,00046-0866-91 ",.02)
 ;;00046-0866-91
 ;;9002226.02101,"368,00046-0866-99 ",.01)
 ;;00046-0866-99
 ;;9002226.02101,"368,00046-0866-99 ",.02)
 ;;00046-0866-99
 ;;9002226.02101,"368,00046-0867-81 ",.01)
 ;;00046-0867-81
 ;;9002226.02101,"368,00046-0867-81 ",.02)
 ;;00046-0867-81
 ;;9002226.02101,"368,00046-0867-91 ",.01)
 ;;00046-0867-91
 ;;9002226.02101,"368,00046-0867-91 ",.02)
 ;;00046-0867-91
 ;;9002226.02101,"368,00046-0868-81 ",.01)
 ;;00046-0868-81
 ;;9002226.02101,"368,00046-0868-81 ",.02)
 ;;00046-0868-81
 ;;9002226.02101,"368,00046-0868-91 ",.01)
 ;;00046-0868-91
 ;;9002226.02101,"368,00046-0868-91 ",.02)
 ;;00046-0868-91
 ;;9002226.02101,"368,00046-0875-05 ",.01)
 ;;00046-0875-05
 ;;9002226.02101,"368,00046-0875-05 ",.02)
 ;;00046-0875-05
 ;;9002226.02101,"368,00046-0875-06 ",.01)
 ;;00046-0875-06
 ;;9002226.02101,"368,00046-0875-06 ",.02)
 ;;00046-0875-06
 ;;9002226.02101,"368,00046-0875-11 ",.01)
 ;;00046-0875-11
 ;;9002226.02101,"368,00046-0875-11 ",.02)
 ;;00046-0875-11
 ;;9002226.02101,"368,00046-0936-81 ",.01)
 ;;00046-0936-81
 ;;9002226.02101,"368,00046-0936-81 ",.02)
 ;;00046-0936-81
 ;;9002226.02101,"368,00046-0937-08 ",.01)
 ;;00046-0937-08
 ;;9002226.02101,"368,00046-0937-08 ",.02)
 ;;00046-0937-08
 ;;9002226.02101,"368,00046-0937-09 ",.01)
 ;;00046-0937-09
 ;;9002226.02101,"368,00046-0937-09 ",.02)
 ;;00046-0937-09
 ;;9002226.02101,"368,00046-0937-18 ",.01)
 ;;00046-0937-18
 ;;9002226.02101,"368,00046-0937-18 ",.02)
 ;;00046-0937-18
 ;;9002226.02101,"368,00046-0938-08 ",.01)
 ;;00046-0938-08
 ;;9002226.02101,"368,00046-0938-08 ",.02)
 ;;00046-0938-08
 ;;9002226.02101,"368,00046-0938-09 ",.01)
 ;;00046-0938-09
 ;;9002226.02101,"368,00046-0938-09 ",.02)
 ;;00046-0938-09
 ;;9002226.02101,"368,00046-0938-18 ",.01)
 ;;00046-0938-18
 ;;9002226.02101,"368,00046-0938-18 ",.02)
 ;;00046-0938-18
 ;;9002226.02101,"368,00046-0975-05 ",.01)
 ;;00046-0975-05
 ;;9002226.02101,"368,00046-0975-05 ",.02)
 ;;00046-0975-05
 ;;9002226.02101,"368,00046-0975-06 ",.01)
 ;;00046-0975-06
 ;;9002226.02101,"368,00046-0975-06 ",.02)
 ;;00046-0975-06
 ;;9002226.02101,"368,00046-0975-11 ",.01)
 ;;00046-0975-11
 ;;9002226.02101,"368,00046-0975-11 ",.02)
 ;;00046-0975-11
 ;;9002226.02101,"368,00046-1100-81 ",.01)
 ;;00046-1100-81
 ;;9002226.02101,"368,00046-1100-81 ",.02)
 ;;00046-1100-81
 ;;9002226.02101,"368,00046-1100-91 ",.01)
 ;;00046-1100-91
 ;;9002226.02101,"368,00046-1100-91 ",.02)
 ;;00046-1100-91
 ;;9002226.02101,"368,00046-1101-81 ",.01)
 ;;00046-1101-81
 ;;9002226.02101,"368,00046-1101-81 ",.02)
 ;;00046-1101-81
 ;;9002226.02101,"368,00046-1102-81 ",.01)
 ;;00046-1102-81
 ;;9002226.02101,"368,00046-1102-81 ",.02)
 ;;00046-1102-81
 ;;9002226.02101,"368,00046-1102-91 ",.01)
 ;;00046-1102-91
 ;;9002226.02101,"368,00046-1102-91 ",.02)
 ;;00046-1102-91
 ;;9002226.02101,"368,00046-1103-81 ",.01)
 ;;00046-1103-81
 ;;9002226.02101,"368,00046-1103-81 ",.02)
 ;;00046-1103-81
 ;;9002226.02101,"368,00046-1104-81 ",.01)
 ;;00046-1104-81
 ;;9002226.02101,"368,00046-1104-81 ",.02)
 ;;00046-1104-81
 ;;9002226.02101,"368,00046-1104-91 ",.01)
 ;;00046-1104-91
 ;;9002226.02101,"368,00046-1104-91 ",.02)
 ;;00046-1104-91
 ;;9002226.02101,"368,00046-1105-11 ",.01)
 ;;00046-1105-11
 ;;9002226.02101,"368,00046-1105-11 ",.02)
 ;;00046-1105-11
 ;;9002226.02101,"368,00046-1106-11 ",.01)
 ;;00046-1106-11
 ;;9002226.02101,"368,00046-1106-11 ",.02)
 ;;00046-1106-11
 ;;9002226.02101,"368,00046-2573-01 ",.01)
 ;;00046-2573-01
 ;;9002226.02101,"368,00046-2573-01 ",.02)
 ;;00046-2573-01
 ;;9002226.02101,"368,00046-2573-05 ",.01)
 ;;00046-2573-05
 ;;9002226.02101,"368,00046-2573-05 ",.02)
 ;;00046-2573-05
 ;;9002226.02101,"368,00046-2573-06 ",.01)
 ;;00046-2573-06
 ;;9002226.02101,"368,00046-2573-06 ",.02)
 ;;00046-2573-06
 ;;9002226.02101,"368,00046-2579-11 ",.01)
 ;;00046-2579-11
 ;;9002226.02101,"368,00046-2579-11 ",.02)
 ;;00046-2579-11
 ;;9002226.02101,"368,00046-3867-81 ",.01)
 ;;00046-3867-81
 ;;9002226.02101,"368,00046-3867-81 ",.02)
 ;;00046-3867-81
 ;;9002226.02101,"368,00051-1028-58 ",.01)
 ;;00051-1028-58
 ;;9002226.02101,"368,00051-1028-58 ",.02)
 ;;00051-1028-58
 ;;9002226.02101,"368,00070-4492-01 ",.01)
 ;;00070-4492-01
 ;;9002226.02101,"368,00070-4492-01 ",.02)
 ;;00070-4492-01
 ;;9002226.02101,"368,00078-0149-23 ",.01)
 ;;00078-0149-23
 ;;9002226.02101,"368,00078-0149-23 ",.02)
 ;;00078-0149-23
 ;;9002226.02101,"368,00078-0311-54 ",.01)
 ;;00078-0311-54
 ;;9002226.02101,"368,00078-0311-54 ",.02)
 ;;00078-0311-54
 ;;9002226.02101,"368,00078-0311-90 ",.01)
 ;;00078-0311-90
 ;;9002226.02101,"368,00078-0311-90 ",.02)
 ;;00078-0311-90
 ;;9002226.02101,"368,00078-0343-42 ",.01)
 ;;00078-0343-42
 ;;9002226.02101,"368,00078-0343-42 ",.02)
 ;;00078-0343-42
 ;;9002226.02101,"368,00078-0343-45 ",.01)
 ;;00078-0343-45
 ;;9002226.02101,"368,00078-0343-45 ",.02)
 ;;00078-0343-45
 ;;9002226.02101,"368,00078-0343-62 ",.01)
 ;;00078-0343-62
 ;;9002226.02101,"368,00078-0343-62 ",.02)
 ;;00078-0343-62
 ;;9002226.02101,"368,00078-0344-42 ",.01)
 ;;00078-0344-42
 ;;9002226.02101,"368,00078-0344-42 ",.02)
 ;;00078-0344-42
 ;;9002226.02101,"368,00078-0344-45 ",.01)
 ;;00078-0344-45
 ;;9002226.02101,"368,00078-0344-45 ",.02)
 ;;00078-0344-45
 ;;9002226.02101,"368,00078-0344-62 ",.01)
 ;;00078-0344-62
 ;;9002226.02101,"368,00078-0344-62 ",.02)
 ;;00078-0344-62
 ;;9002226.02101,"368,00078-0345-42 ",.01)
 ;;00078-0345-42
 ;;9002226.02101,"368,00078-0345-42 ",.02)
 ;;00078-0345-42
 ;;9002226.02101,"368,00078-0345-45 ",.01)
 ;;00078-0345-45
 ;;9002226.02101,"368,00078-0345-45 ",.02)
 ;;00078-0345-45
 ;;9002226.02101,"368,00078-0345-62 ",.01)
 ;;00078-0345-62
 ;;9002226.02101,"368,00078-0345-62 ",.02)
 ;;00078-0345-62
 ;;9002226.02101,"368,00078-0346-42 ",.01)
 ;;00078-0346-42
 ;;9002226.02101,"368,00078-0346-42 ",.02)
 ;;00078-0346-42
 ;;9002226.02101,"368,00078-0346-45 ",.01)
 ;;00078-0346-45
 ;;9002226.02101,"368,00078-0346-45 ",.02)
 ;;00078-0346-45
 ;;9002226.02101,"368,00078-0346-62 ",.01)
 ;;00078-0346-62
 ;;9002226.02101,"368,00078-0346-62 ",.02)
 ;;00078-0346-62
 ;;9002226.02101,"368,00078-0348-42 ",.01)
 ;;00078-0348-42
 ;;9002226.02101,"368,00078-0348-42 ",.02)
 ;;00078-0348-42
 ;;9002226.02101,"368,00078-0348-62 ",.01)
 ;;00078-0348-62
 ;;9002226.02101,"368,00078-0348-62 ",.02)
 ;;00078-0348-62
 ;;9002226.02101,"368,00078-0365-42 ",.01)
 ;;00078-0365-42
 ;;9002226.02101,"368,00078-0365-42 ",.02)
 ;;00078-0365-42
 ;;9002226.02101,"368,00078-0365-45 ",.01)
 ;;00078-0365-45
 ;;9002226.02101,"368,00078-0365-45 ",.02)
 ;;00078-0365-45
 ;;9002226.02101,"368,00078-0377-42 ",.01)
 ;;00078-0377-42
 ;;9002226.02101,"368,00078-0377-42 ",.02)
 ;;00078-0377-42
 ;;9002226.02101,"368,00078-0377-45 ",.01)
 ;;00078-0377-45
 ;;9002226.02101,"368,00078-0377-45 ",.02)
 ;;00078-0377-45
 ;;9002226.02101,"368,00078-0377-62 ",.01)
 ;;00078-0377-62
 ;;9002226.02101,"368,00078-0377-62 ",.02)
 ;;00078-0377-62
 ;;9002226.02101,"368,00078-0378-42 ",.01)
 ;;00078-0378-42
 ;;9002226.02101,"368,00078-0378-42 ",.02)
 ;;00078-0378-42
 ;;9002226.02101,"368,00078-0378-45 ",.01)
 ;;00078-0378-45
 ;;9002226.02101,"368,00078-0378-45 ",.02)
 ;;00078-0378-45
 ;;9002226.02101,"368,00078-0378-62 ",.01)
 ;;00078-0378-62
 ;;9002226.02101,"368,00078-0378-62 ",.02)
 ;;00078-0378-62
 ;;9002226.02101,"368,00078-0387-25 ",.01)
 ;;00078-0387-25
 ;;9002226.02101,"368,00078-0387-25 ",.02)
 ;;00078-0387-25
 ;;9002226.02101,"368,00078-0435-61 ",.01)
 ;;00078-0435-61