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

BGP33R3.m

Go to the documentation of this file.
  1. BGP33R3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
  1. ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"493,00006-0936-01 ",.01)
  1. ;;00006-0936-01
  1. ;;9002226.02101,"493,00006-0936-01 ",.02)
  1. ;;00006-0936-01
  1. ;;9002226.02101,"493,00006-0936-28 ",.01)
  1. ;;00006-0936-28
  1. ;;9002226.02101,"493,00006-0936-28 ",.02)
  1. ;;00006-0936-28
  1. ;;9002226.02101,"493,00006-0936-31 ",.01)
  1. ;;00006-0936-31
  1. ;;9002226.02101,"493,00006-0936-31 ",.02)
  1. ;;00006-0936-31
  1. ;;9002226.02101,"493,00006-0936-58 ",.01)
  1. ;;00006-0936-58
  1. ;;9002226.02101,"493,00006-0936-58 ",.02)
  1. ;;00006-0936-58
  1. ;;9002226.02101,"493,00006-0936-82 ",.01)
  1. ;;00006-0936-82
  1. ;;9002226.02101,"493,00006-0936-82 ",.02)
  1. ;;00006-0936-82
  1. ;;9002226.02101,"493,00006-3833-01 ",.01)
  1. ;;00006-3833-01
  1. ;;9002226.02101,"493,00006-3833-01 ",.02)
  1. ;;00006-3833-01
  1. ;;9002226.02101,"493,00006-3833-34 ",.01)
  1. ;;00006-3833-34
  1. ;;9002226.02101,"493,00006-3833-34 ",.02)
  1. ;;00006-3833-34
  1. ;;9002226.02101,"493,00009-0271-01 ",.01)
  1. ;;00009-0271-01
  1. ;;9002226.02101,"493,00009-0271-01 ",.02)
  1. ;;00009-0271-01
  1. ;;9002226.02101,"493,00009-3772-01 ",.01)
  1. ;;00009-3772-01
  1. ;;9002226.02101,"493,00009-3772-01 ",.02)
  1. ;;00009-3772-01
  1. ;;9002226.02101,"493,00009-3773-01 ",.01)
  1. ;;00009-3773-01
  1. ;;9002226.02101,"493,00009-3773-01 ",.02)
  1. ;;00009-3773-01
  1. ;;9002226.02101,"493,00009-3774-01 ",.01)
  1. ;;00009-3774-01
  1. ;;9002226.02101,"493,00009-3774-01 ",.02)
  1. ;;00009-3774-01
  1. ;;9002226.02101,"493,00046-0875-05 ",.01)
  1. ;;00046-0875-05
  1. ;;9002226.02101,"493,00046-0875-05 ",.02)
  1. ;;00046-0875-05
  1. ;;9002226.02101,"493,00046-0875-06 ",.01)
  1. ;;00046-0875-06
  1. ;;9002226.02101,"493,00046-0875-06 ",.02)
  1. ;;00046-0875-06
  1. ;;9002226.02101,"493,00046-0875-11 ",.01)
  1. ;;00046-0875-11
  1. ;;9002226.02101,"493,00046-0875-11 ",.02)
  1. ;;00046-0875-11
  1. ;;9002226.02101,"493,00046-0937-08 ",.01)
  1. ;;00046-0937-08
  1. ;;9002226.02101,"493,00046-0937-08 ",.02)
  1. ;;00046-0937-08
  1. ;;9002226.02101,"493,00046-0937-09 ",.01)
  1. ;;00046-0937-09
  1. ;;9002226.02101,"493,00046-0937-09 ",.02)
  1. ;;00046-0937-09
  1. ;;9002226.02101,"493,00046-0937-18 ",.01)
  1. ;;00046-0937-18
  1. ;;9002226.02101,"493,00046-0937-18 ",.02)
  1. ;;00046-0937-18
  1. ;;9002226.02101,"493,00046-0938-08 ",.01)
  1. ;;00046-0938-08
  1. ;;9002226.02101,"493,00046-0938-08 ",.02)
  1. ;;00046-0938-08
  1. ;;9002226.02101,"493,00046-0938-09 ",.01)
  1. ;;00046-0938-09
  1. ;;9002226.02101,"493,00046-0938-09 ",.02)
  1. ;;00046-0938-09
  1. ;;9002226.02101,"493,00046-0938-18 ",.01)
  1. ;;00046-0938-18
  1. ;;9002226.02101,"493,00046-0938-18 ",.02)
  1. ;;00046-0938-18
  1. ;;9002226.02101,"493,00046-0975-05 ",.01)
  1. ;;00046-0975-05
  1. ;;9002226.02101,"493,00046-0975-05 ",.02)
  1. ;;00046-0975-05
  1. ;;9002226.02101,"493,00046-0975-06 ",.01)
  1. ;;00046-0975-06
  1. ;;9002226.02101,"493,00046-0975-06 ",.02)
  1. ;;00046-0975-06
  1. ;;9002226.02101,"493,00046-0975-11 ",.01)
  1. ;;00046-0975-11
  1. ;;9002226.02101,"493,00046-0975-11 ",.02)
  1. ;;00046-0975-11
  1. ;;9002226.02101,"493,00046-1100-81 ",.01)
  1. ;;00046-1100-81
  1. ;;9002226.02101,"493,00046-1100-81 ",.02)
  1. ;;00046-1100-81
  1. ;;9002226.02101,"493,00046-1100-91 ",.01)
  1. ;;00046-1100-91
  1. ;;9002226.02101,"493,00046-1100-91 ",.02)
  1. ;;00046-1100-91
  1. ;;9002226.02101,"493,00046-1101-81 ",.01)
  1. ;;00046-1101-81
  1. ;;9002226.02101,"493,00046-1101-81 ",.02)
  1. ;;00046-1101-81
  1. ;;9002226.02101,"493,00046-1102-81 ",.01)
  1. ;;00046-1102-81
  1. ;;9002226.02101,"493,00046-1102-81 ",.02)
  1. ;;00046-1102-81
  1. ;;9002226.02101,"493,00046-1102-91 ",.01)
  1. ;;00046-1102-91
  1. ;;9002226.02101,"493,00046-1102-91 ",.02)
  1. ;;00046-1102-91
  1. ;;9002226.02101,"493,00046-1103-81 ",.01)
  1. ;;00046-1103-81
  1. ;;9002226.02101,"493,00046-1103-81 ",.02)
  1. ;;00046-1103-81
  1. ;;9002226.02101,"493,00046-1104-81 ",.01)
  1. ;;00046-1104-81
  1. ;;9002226.02101,"493,00046-1104-81 ",.02)
  1. ;;00046-1104-81
  1. ;;9002226.02101,"493,00046-1104-91 ",.01)
  1. ;;00046-1104-91
  1. ;;9002226.02101,"493,00046-1104-91 ",.02)
  1. ;;00046-1104-91
  1. ;;9002226.02101,"493,00046-1105-11 ",.01)
  1. ;;00046-1105-11
  1. ;;9002226.02101,"493,00046-1105-11 ",.02)
  1. ;;00046-1105-11
  1. ;;9002226.02101,"493,00046-1106-11 ",.01)
  1. ;;00046-1106-11
  1. ;;9002226.02101,"493,00046-1106-11 ",.02)
  1. ;;00046-1106-11
  1. ;;9002226.02101,"493,00046-1107-11 ",.01)
  1. ;;00046-1107-11
  1. ;;9002226.02101,"493,00046-1107-11 ",.02)
  1. ;;00046-1107-11
  1. ;;9002226.02101,"493,00046-2573-01 ",.01)
  1. ;;00046-2573-01
  1. ;;9002226.02101,"493,00046-2573-01 ",.02)
  1. ;;00046-2573-01
  1. ;;9002226.02101,"493,00046-2573-05 ",.01)
  1. ;;00046-2573-05
  1. ;;9002226.02101,"493,00046-2573-05 ",.02)
  1. ;;00046-2573-05
  1. ;;9002226.02101,"493,00046-2573-06 ",.01)
  1. ;;00046-2573-06
  1. ;;9002226.02101,"493,00046-2573-06 ",.02)
  1. ;;00046-2573-06
  1. ;;9002226.02101,"493,00046-2579-11 ",.01)
  1. ;;00046-2579-11
  1. ;;9002226.02101,"493,00046-2579-11 ",.02)
  1. ;;00046-2579-11
  1. ;;9002226.02101,"493,00051-1028-58 ",.01)
  1. ;;00051-1028-58
  1. ;;9002226.02101,"493,00051-1028-58 ",.02)
  1. ;;00051-1028-58
  1. ;;9002226.02101,"493,00078-0149-23 ",.01)
  1. ;;00078-0149-23
  1. ;;9002226.02101,"493,00078-0149-23 ",.02)
  1. ;;00078-0149-23
  1. ;;9002226.02101,"493,00078-0311-54 ",.01)
  1. ;;00078-0311-54
  1. ;;9002226.02101,"493,00078-0311-54 ",.02)
  1. ;;00078-0311-54
  1. ;;9002226.02101,"493,00078-0343-42 ",.01)
  1. ;;00078-0343-42
  1. ;;9002226.02101,"493,00078-0343-42 ",.02)
  1. ;;00078-0343-42
  1. ;;9002226.02101,"493,00078-0343-45 ",.01)
  1. ;;00078-0343-45
  1. ;;9002226.02101,"493,00078-0343-45 ",.02)
  1. ;;00078-0343-45
  1. ;;9002226.02101,"493,00078-0343-62 ",.01)
  1. ;;00078-0343-62
  1. ;;9002226.02101,"493,00078-0343-62 ",.02)
  1. ;;00078-0343-62
  1. ;;9002226.02101,"493,00078-0344-42 ",.01)
  1. ;;00078-0344-42
  1. ;;9002226.02101,"493,00078-0344-42 ",.02)
  1. ;;00078-0344-42
  1. ;;9002226.02101,"493,00078-0344-45 ",.01)
  1. ;;00078-0344-45
  1. ;;9002226.02101,"493,00078-0344-45 ",.02)
  1. ;;00078-0344-45
  1. ;;9002226.02101,"493,00078-0344-62 ",.01)
  1. ;;00078-0344-62
  1. ;;9002226.02101,"493,00078-0344-62 ",.02)
  1. ;;00078-0344-62
  1. ;;9002226.02101,"493,00078-0345-42 ",.01)
  1. ;;00078-0345-42
  1. ;;9002226.02101,"493,00078-0345-42 ",.02)
  1. ;;00078-0345-42
  1. ;;9002226.02101,"493,00078-0345-45 ",.01)
  1. ;;00078-0345-45
  1. ;;9002226.02101,"493,00078-0345-45 ",.02)
  1. ;;00078-0345-45
  1. ;;9002226.02101,"493,00078-0345-62 ",.01)
  1. ;;00078-0345-62
  1. ;;9002226.02101,"493,00078-0345-62 ",.02)
  1. ;;00078-0345-62
  1. ;;9002226.02101,"493,00078-0346-42 ",.01)
  1. ;;00078-0346-42
  1. ;;9002226.02101,"493,00078-0346-42 ",.02)
  1. ;;00078-0346-42
  1. ;;9002226.02101,"493,00078-0346-45 ",.01)
  1. ;;00078-0346-45
  1. ;;9002226.02101,"493,00078-0346-45 ",.02)
  1. ;;00078-0346-45
  1. ;;9002226.02101,"493,00078-0346-62 ",.01)
  1. ;;00078-0346-62
  1. ;;9002226.02101,"493,00078-0346-62 ",.02)
  1. ;;00078-0346-62
  1. ;;9002226.02101,"493,00078-0365-42 ",.01)
  1. ;;00078-0365-42
  1. ;;9002226.02101,"493,00078-0365-42 ",.02)
  1. ;;00078-0365-42
  1. ;;9002226.02101,"493,00078-0365-45 ",.01)
  1. ;;00078-0365-45
  1. ;;9002226.02101,"493,00078-0365-45 ",.02)
  1. ;;00078-0365-45
  1. ;;9002226.02101,"493,00078-0377-42 ",.01)
  1. ;;00078-0377-42
  1. ;;9002226.02101,"493,00078-0377-42 ",.02)
  1. ;;00078-0377-42
  1. ;;9002226.02101,"493,00078-0377-45 ",.01)
  1. ;;00078-0377-45
  1. ;;9002226.02101,"493,00078-0377-45 ",.02)
  1. ;;00078-0377-45
  1. ;;9002226.02101,"493,00078-0377-62 ",.01)
  1. ;;00078-0377-62
  1. ;;9002226.02101,"493,00078-0377-62 ",.02)
  1. ;;00078-0377-62
  1. ;;9002226.02101,"493,00078-0378-42 ",.01)
  1. ;;00078-0378-42
  1. ;;9002226.02101,"493,00078-0378-42 ",.02)
  1. ;;00078-0378-42
  1. ;;9002226.02101,"493,00078-0378-45 ",.01)
  1. ;;00078-0378-45
  1. ;;9002226.02101,"493,00078-0378-45 ",.02)
  1. ;;00078-0378-45
  1. ;;9002226.02101,"493,00078-0378-62 ",.01)
  1. ;;00078-0378-62
  1. ;;9002226.02101,"493,00078-0378-62 ",.02)
  1. ;;00078-0378-62
  1. ;;9002226.02101,"493,00078-0387-25 ",.01)
  1. ;;00078-0387-25
  1. ;;9002226.02101,"493,00078-0387-25 ",.02)
  1. ;;00078-0387-25
  1. ;;9002226.02101,"493,00078-0435-61 ",.01)
  1. ;;00078-0435-61
  1. ;;9002226.02101,"493,00078-0435-61 ",.02)
  1. ;;00078-0435-61
  1. ;;9002226.02101,"493,00078-0480-42 ",.01)
  1. ;;00078-0480-42
  1. ;;9002226.02101,"493,00078-0480-42 ",.02)
  1. ;;00078-0480-42
  1. ;;9002226.02101,"493,00078-0480-62 ",.01)
  1. ;;00078-0480-62
  1. ;;9002226.02101,"493,00078-0480-62 ",.02)
  1. ;;00078-0480-62
  1. ;;9002226.02101,"493,00078-0481-42 ",.01)
  1. ;;00078-0481-42
  1. ;;9002226.02101,"493,00078-0481-42 ",.02)
  1. ;;00078-0481-42
  1. ;;9002226.02101,"493,00078-0481-62 ",.01)
  1. ;;00078-0481-62
  1. ;;9002226.02101,"493,00078-0481-62 ",.02)
  1. ;;00078-0481-62
  1. ;;9002226.02101,"493,00078-0590-61 ",.01)
  1. ;;00078-0590-61
  1. ;;9002226.02101,"493,00078-0590-61 ",.02)
  1. ;;00078-0590-61
  1. ;;9002226.02101,"493,00083-2310-01 ",.01)
  1. ;;00083-2310-01
  1. ;;9002226.02101,"493,00083-2310-01 ",.02)
  1. ;;00083-2310-01
  1. ;;9002226.02101,"493,00083-2310-08 ",.01)
  1. ;;00083-2310-08
  1. ;;9002226.02101,"493,00083-2310-08 ",.02)
  1. ;;00083-2310-08
  1. ;;9002226.02101,"493,00083-2310-62 ",.01)
  1. ;;00083-2310-62
  1. ;;9002226.02101,"493,00083-2310-62 ",.02)
  1. ;;00083-2310-62
  1. ;;9002226.02101,"493,00083-2320-01 ",.01)
  1. ;;00083-2320-01
  1. ;;9002226.02101,"493,00083-2320-01 ",.02)
  1. ;;00083-2320-01
  1. ;;9002226.02101,"493,00083-2320-08 ",.01)
  1. ;;00083-2320-08
  1. ;;9002226.02101,"493,00083-2320-08 ",.02)
  1. ;;00083-2320-08
  1. ;;9002226.02101,"493,00083-2320-62 ",.01)
  1. ;;00083-2320-62
  1. ;;9002226.02101,"493,00083-2320-62 ",.02)
  1. ;;00083-2320-62
  1. ;;9002226.02101,"493,00083-2326-01 ",.01)
  1. ;;00083-2326-01
  1. ;;9002226.02101,"493,00083-2326-01 ",.02)
  1. ;;00083-2326-01
  1. ;;9002226.02101,"493,00083-2327-08 ",.01)
  1. ;;00083-2327-08
  1. ;;9002226.02101,"493,00083-2327-08 ",.02)
  1. ;;00083-2327-08
  1. ;;9002226.02101,"493,00087-0756-01 ",.01)
  1. ;;00087-0756-01
  1. ;;9002226.02101,"493,00087-0756-01 ",.02)
  1. ;;00087-0756-01
  1. ;;9002226.02101,"493,00087-0756-48 ",.01)
  1. ;;00087-0756-48
  1. ;;9002226.02101,"493,00087-0756-48 ",.02)
  1. ;;00087-0756-48
  1. ;;9002226.02101,"493,00093-3122-42 ",.01)
  1. ;;00093-3122-42
  1. ;;9002226.02101,"493,00093-3122-42 ",.02)
  1. ;;00093-3122-42
  1. ;;9002226.02101,"493,00093-3122-98 ",.01)
  1. ;;00093-3122-98
  1. ;;9002226.02101,"493,00093-3122-98 ",.02)
  1. ;;00093-3122-98
  1. ;;9002226.02101,"493,00093-5140-01 ",.01)
  1. ;;00093-5140-01
  1. ;;9002226.02101,"493,00093-5140-01 ",.02)
  1. ;;00093-5140-01
  1. ;;9002226.02101,"493,00093-5140-56 ",.01)
  1. ;;00093-5140-56
  1. ;;9002226.02101,"493,00093-5140-56 ",.02)
  1. ;;00093-5140-56
  1. ;;9002226.02101,"493,00093-5141-01 ",.01)
  1. ;;00093-5141-01
  1. ;;9002226.02101,"493,00093-5141-01 ",.02)
  1. ;;00093-5141-01
  1. ;;9002226.02101,"493,00093-5141-56 ",.01)
  1. ;;00093-5141-56
  1. ;;9002226.02101,"493,00093-5141-56 ",.02)
  1. ;;00093-5141-56
  1. ;;9002226.02101,"493,00093-5142-56 ",.01)
  1. ;;00093-5142-56
  1. ;;9002226.02101,"493,00093-5142-56 ",.02)
  1. ;;00093-5142-56
  1. ;;9002226.02101,"493,00093-5171-19 ",.01)
  1. ;;00093-5171-19
  1. ;;9002226.02101,"493,00093-5171-19 ",.02)
  1. ;;00093-5171-19
  1. ;;9002226.02101,"493,00093-5171-20 ",.01)
  1. ;;00093-5171-20
  1. ;;9002226.02101,"493,00093-5171-20 ",.02)
  1. ;;00093-5171-20
  1. ;;9002226.02101,"493,00093-5171-29 ",.01)
  1. ;;00093-5171-29
  1. ;;9002226.02101,"493,00093-5171-29 ",.02)
  1. ;;00093-5171-29
  1. ;;9002226.02101,"493,00093-5171-44 ",.01)
  1. ;;00093-5171-44
  1. ;;9002226.02101,"493,00093-5171-44 ",.02)
  1. ;;00093-5171-44
  1. ;;9002226.02101,"493,00093-5172-19 ",.01)
  1. ;;00093-5172-19
  1. ;;9002226.02101,"493,00093-5172-19 ",.02)
  1. ;;00093-5172-19
  1. ;;9002226.02101,"493,00093-5172-20 ",.01)
  1. ;;00093-5172-20
  1. ;;9002226.02101,"493,00093-5172-20 ",.02)
  1. ;;00093-5172-20
  1. ;;9002226.02101,"493,00093-5172-29 ",.01)
  1. ;;00093-5172-29
  1. ;;9002226.02101,"493,00093-5172-29 ",.02)
  1. ;;00093-5172-29
  1. ;;9002226.02101,"493,00093-5172-44 ",.01)
  1. ;;00093-5172-44
  1. ;;9002226.02101,"493,00093-5172-44 ",.02)
  1. ;;00093-5172-44
  1. ;;9002226.02101,"493,00093-5455-28 ",.01)
  1. ;;00093-5455-28
  1. ;;9002226.02101,"493,00093-5455-28 ",.02)
  1. ;;00093-5455-28
  1. ;;9002226.02101,"493,00093-5455-42 ",.01)
  1. ;;00093-5455-42
  1. ;;9002226.02101,"493,00093-5455-42 ",.02)
  1. ;;00093-5455-42
  1. ;;9002226.02101,"493,00149-0470-01 ",.01)
  1. ;;00149-0470-01
  1. ;;9002226.02101,"493,00149-0470-01 ",.02)
  1. ;;00149-0470-01
  1. ;;9002226.02101,"493,00149-0470-03 ",.01)
  1. ;;00149-0470-03
  1. ;;9002226.02101,"493,00149-0470-03 ",.02)
  1. ;;00149-0470-03
  1. ;;9002226.02101,"493,00149-0471-01 ",.01)
  1. ;;00149-0471-01
  1. ;;9002226.02101,"493,00149-0471-01 ",.02)
  1. ;;00149-0471-01
  1. ;;9002226.02101,"493,00149-0471-03 ",.01)
  1. ;;00149-0471-03
  1. ;;9002226.02101,"493,00149-0471-03 ",.02)
  1. ;;00149-0471-03
  1. ;;9002226.02101,"493,00149-0472-01 ",.01)
  1. ;;00149-0472-01
  1. ;;9002226.02101,"493,00149-0472-01 ",.02)
  1. ;;00149-0472-01
  1. ;;9002226.02101,"493,00149-0472-04 ",.01)
  1. ;;00149-0472-04
  1. ;;9002226.02101,"493,00149-0472-04 ",.02)
  1. ;;00149-0472-04
  1. ;;9002226.02101,"493,00149-0475-01 ",.01)
  1. ;;00149-0475-01
  1. ;;9002226.02101,"493,00149-0475-01 ",.02)
  1. ;;00149-0475-01
  1. ;;9002226.02101,"493,00149-0477-01 ",.01)
  1. ;;00149-0477-01
  1. ;;9002226.02101,"493,00149-0477-01 ",.02)
  1. ;;00149-0477-01
  1. ;;9002226.02101,"493,00149-0478-01 ",.01)
  1. ;;00149-0478-01
  1. ;;9002226.02101,"493,00149-0478-01 ",.02)
  1. ;;00149-0478-01
  1. ;;9002226.02101,"493,00149-0478-03 ",.01)
  1. ;;00149-0478-03
  1. ;;9002226.02101,"493,00149-0478-03 ",.02)
  1. ;;00149-0478-03
  1. ;;9002226.02101,"493,00149-0491-04 ",.01)
  1. ;;00149-0491-04
  1. ;;9002226.02101,"493,00149-0491-04 ",.02)
  1. ;;00149-0491-04
  1. ;;9002226.02101,"493,00169-5174-01 ",.01)
  1. ;;00169-5174-01
  1. ;;9002226.02101,"493,00169-5174-01 ",.02)
  1. ;;00169-5174-01
  1. ;;9002226.02101,"493,00169-5174-02 ",.01)
  1. ;;00169-5174-02
  1. ;;9002226.02101,"493,00169-5174-02 ",.02)
  1. ;;00169-5174-02
  1. ;;9002226.02101,"493,00169-5175-10 ",.01)
  1. ;;00169-5175-10
  1. ;;9002226.02101,"493,00169-5175-10 ",.02)
  1. ;;00169-5175-10
  1. ;;9002226.02101,"493,00169-5175-11 ",.01)
  1. ;;00169-5175-11
  1. ;;9002226.02101,"493,00169-5175-11 ",.02)
  1. ;;00169-5175-11
  1. ;;9002226.02101,"493,00178-0101-02 ",.01)
  1. ;;00178-0101-02
  1. ;;9002226.02101,"493,00178-0101-02 ",.02)
  1. ;;00178-0101-02