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

BGP53I59.m

Go to the documentation of this file.
  1. BGP53I59 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  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,"734,55887-0823-14 ",.02)
  1. ;;55887-0823-14
  1. ;;9002226.02101,"734,55887-0830-20 ",.01)
  1. ;;55887-0830-20
  1. ;;9002226.02101,"734,55887-0830-20 ",.02)
  1. ;;55887-0830-20
  1. ;;9002226.02101,"734,55887-0830-28 ",.01)
  1. ;;55887-0830-28
  1. ;;9002226.02101,"734,55887-0830-28 ",.02)
  1. ;;55887-0830-28
  1. ;;9002226.02101,"734,55887-0830-30 ",.01)
  1. ;;55887-0830-30
  1. ;;9002226.02101,"734,55887-0830-30 ",.02)
  1. ;;55887-0830-30
  1. ;;9002226.02101,"734,55887-0830-40 ",.01)
  1. ;;55887-0830-40
  1. ;;9002226.02101,"734,55887-0830-40 ",.02)
  1. ;;55887-0830-40
  1. ;;9002226.02101,"734,55887-0837-30 ",.01)
  1. ;;55887-0837-30
  1. ;;9002226.02101,"734,55887-0837-30 ",.02)
  1. ;;55887-0837-30
  1. ;;9002226.02101,"734,55887-0849-20 ",.01)
  1. ;;55887-0849-20
  1. ;;9002226.02101,"734,55887-0849-20 ",.02)
  1. ;;55887-0849-20
  1. ;;9002226.02101,"734,55887-0849-21 ",.01)
  1. ;;55887-0849-21
  1. ;;9002226.02101,"734,55887-0849-21 ",.02)
  1. ;;55887-0849-21
  1. ;;9002226.02101,"734,55887-0849-28 ",.01)
  1. ;;55887-0849-28
  1. ;;9002226.02101,"734,55887-0849-28 ",.02)
  1. ;;55887-0849-28
  1. ;;9002226.02101,"734,55887-0849-30 ",.01)
  1. ;;55887-0849-30
  1. ;;9002226.02101,"734,55887-0849-30 ",.02)
  1. ;;55887-0849-30
  1. ;;9002226.02101,"734,55887-0849-40 ",.01)
  1. ;;55887-0849-40
  1. ;;9002226.02101,"734,55887-0849-40 ",.02)
  1. ;;55887-0849-40
  1. ;;9002226.02101,"734,55887-0858-14 ",.01)
  1. ;;55887-0858-14
  1. ;;9002226.02101,"734,55887-0858-14 ",.02)
  1. ;;55887-0858-14
  1. ;;9002226.02101,"734,55887-0858-20 ",.01)
  1. ;;55887-0858-20
  1. ;;9002226.02101,"734,55887-0858-20 ",.02)
  1. ;;55887-0858-20
  1. ;;9002226.02101,"734,55887-0889-21 ",.01)
  1. ;;55887-0889-21
  1. ;;9002226.02101,"734,55887-0889-21 ",.02)
  1. ;;55887-0889-21
  1. ;;9002226.02101,"734,55887-0893-24 ",.01)
  1. ;;55887-0893-24
  1. ;;9002226.02101,"734,55887-0893-24 ",.02)
  1. ;;55887-0893-24
  1. ;;9002226.02101,"734,55887-0904-06 ",.01)
  1. ;;55887-0904-06
  1. ;;9002226.02101,"734,55887-0904-06 ",.02)
  1. ;;55887-0904-06
  1. ;;9002226.02101,"734,55887-0904-10 ",.01)
  1. ;;55887-0904-10
  1. ;;9002226.02101,"734,55887-0904-10 ",.02)
  1. ;;55887-0904-10
  1. ;;9002226.02101,"734,55887-0904-14 ",.01)
  1. ;;55887-0904-14
  1. ;;9002226.02101,"734,55887-0904-14 ",.02)
  1. ;;55887-0904-14
  1. ;;9002226.02101,"734,55887-0904-20 ",.01)
  1. ;;55887-0904-20
  1. ;;9002226.02101,"734,55887-0904-20 ",.02)
  1. ;;55887-0904-20
  1. ;;9002226.02101,"734,55887-0904-30 ",.01)
  1. ;;55887-0904-30
  1. ;;9002226.02101,"734,55887-0904-30 ",.02)
  1. ;;55887-0904-30
  1. ;;9002226.02101,"734,55887-0904-60 ",.01)
  1. ;;55887-0904-60
  1. ;;9002226.02101,"734,55887-0904-60 ",.02)
  1. ;;55887-0904-60
  1. ;;9002226.02101,"734,55887-0924-20 ",.01)
  1. ;;55887-0924-20
  1. ;;9002226.02101,"734,55887-0924-20 ",.02)
  1. ;;55887-0924-20
  1. ;;9002226.02101,"734,55887-0924-28 ",.01)
  1. ;;55887-0924-28
  1. ;;9002226.02101,"734,55887-0924-28 ",.02)
  1. ;;55887-0924-28
  1. ;;9002226.02101,"734,55887-0924-60 ",.01)
  1. ;;55887-0924-60
  1. ;;9002226.02101,"734,55887-0924-60 ",.02)
  1. ;;55887-0924-60
  1. ;;9002226.02101,"734,55887-0930-28 ",.01)
  1. ;;55887-0930-28
  1. ;;9002226.02101,"734,55887-0930-28 ",.02)
  1. ;;55887-0930-28
  1. ;;9002226.02101,"734,55887-0958-01 ",.01)
  1. ;;55887-0958-01
  1. ;;9002226.02101,"734,55887-0958-01 ",.02)
  1. ;;55887-0958-01
  1. ;;9002226.02101,"734,55887-0958-05 ",.01)
  1. ;;55887-0958-05
  1. ;;9002226.02101,"734,55887-0958-05 ",.02)
  1. ;;55887-0958-05
  1. ;;9002226.02101,"734,55887-0958-08 ",.01)
  1. ;;55887-0958-08
  1. ;;9002226.02101,"734,55887-0958-08 ",.02)
  1. ;;55887-0958-08
  1. ;;9002226.02101,"734,55887-0958-09 ",.01)
  1. ;;55887-0958-09
  1. ;;9002226.02101,"734,55887-0958-09 ",.02)
  1. ;;55887-0958-09
  1. ;;9002226.02101,"734,55887-0958-60 ",.01)
  1. ;;55887-0958-60
  1. ;;9002226.02101,"734,55887-0958-60 ",.02)
  1. ;;55887-0958-60
  1. ;;9002226.02101,"734,55887-0958-90 ",.01)
  1. ;;55887-0958-90
  1. ;;9002226.02101,"734,55887-0958-90 ",.02)
  1. ;;55887-0958-90
  1. ;;9002226.02101,"734,55887-0980-21 ",.01)
  1. ;;55887-0980-21
  1. ;;9002226.02101,"734,55887-0980-21 ",.02)
  1. ;;55887-0980-21
  1. ;;9002226.02101,"734,55887-0980-28 ",.01)
  1. ;;55887-0980-28
  1. ;;9002226.02101,"734,55887-0980-28 ",.02)
  1. ;;55887-0980-28
  1. ;;9002226.02101,"734,55887-0980-40 ",.01)
  1. ;;55887-0980-40
  1. ;;9002226.02101,"734,55887-0980-40 ",.02)
  1. ;;55887-0980-40
  1. ;;9002226.02101,"734,55887-0982-01 ",.01)
  1. ;;55887-0982-01
  1. ;;9002226.02101,"734,55887-0982-01 ",.02)
  1. ;;55887-0982-01
  1. ;;9002226.02101,"734,55887-0982-04 ",.01)
  1. ;;55887-0982-04
  1. ;;9002226.02101,"734,55887-0982-04 ",.02)
  1. ;;55887-0982-04
  1. ;;9002226.02101,"734,55887-0982-09 ",.01)
  1. ;;55887-0982-09
  1. ;;9002226.02101,"734,55887-0982-09 ",.02)
  1. ;;55887-0982-09
  1. ;;9002226.02101,"734,55887-0982-82 ",.01)
  1. ;;55887-0982-82
  1. ;;9002226.02101,"734,55887-0982-82 ",.02)
  1. ;;55887-0982-82
  1. ;;9002226.02101,"734,55887-0983-01 ",.01)
  1. ;;55887-0983-01
  1. ;;9002226.02101,"734,55887-0983-01 ",.02)
  1. ;;55887-0983-01
  1. ;;9002226.02101,"734,55887-0983-15 ",.01)
  1. ;;55887-0983-15
  1. ;;9002226.02101,"734,55887-0983-15 ",.02)
  1. ;;55887-0983-15
  1. ;;9002226.02101,"734,55887-0983-40 ",.01)
  1. ;;55887-0983-40
  1. ;;9002226.02101,"734,55887-0983-40 ",.02)
  1. ;;55887-0983-40
  1. ;;9002226.02101,"734,55887-0983-42 ",.01)
  1. ;;55887-0983-42
  1. ;;9002226.02101,"734,55887-0983-42 ",.02)
  1. ;;55887-0983-42
  1. ;;9002226.02101,"734,55887-0983-60 ",.01)
  1. ;;55887-0983-60
  1. ;;9002226.02101,"734,55887-0983-60 ",.02)
  1. ;;55887-0983-60
  1. ;;9002226.02101,"734,55887-0991-28 ",.01)
  1. ;;55887-0991-28
  1. ;;9002226.02101,"734,55887-0991-28 ",.02)
  1. ;;55887-0991-28
  1. ;;9002226.02101,"734,55887-0993-09 ",.01)
  1. ;;55887-0993-09
  1. ;;9002226.02101,"734,55887-0993-09 ",.02)
  1. ;;55887-0993-09
  1. ;;9002226.02101,"734,55887-0993-14 ",.01)
  1. ;;55887-0993-14
  1. ;;9002226.02101,"734,55887-0993-14 ",.02)
  1. ;;55887-0993-14
  1. ;;9002226.02101,"734,55887-0993-15 ",.01)
  1. ;;55887-0993-15
  1. ;;9002226.02101,"734,55887-0993-15 ",.02)
  1. ;;55887-0993-15
  1. ;;9002226.02101,"734,55887-0993-20 ",.01)
  1. ;;55887-0993-20
  1. ;;9002226.02101,"734,55887-0993-20 ",.02)
  1. ;;55887-0993-20
  1. ;;9002226.02101,"734,55887-0993-42 ",.01)
  1. ;;55887-0993-42
  1. ;;9002226.02101,"734,55887-0993-42 ",.02)
  1. ;;55887-0993-42
  1. ;;9002226.02101,"734,55953-0251-80 ",.01)
  1. ;;55953-0251-80
  1. ;;9002226.02101,"734,55953-0251-80 ",.02)
  1. ;;55953-0251-80
  1. ;;9002226.02101,"734,55953-0253-80 ",.01)
  1. ;;55953-0253-80
  1. ;;9002226.02101,"734,55953-0253-80 ",.02)
  1. ;;55953-0253-80
  1. ;;9002226.02101,"734,57237-0028-01 ",.01)
  1. ;;57237-0028-01
  1. ;;9002226.02101,"734,57237-0028-01 ",.02)
  1. ;;57237-0028-01
  1. ;;9002226.02101,"734,57237-0029-01 ",.01)
  1. ;;57237-0029-01
  1. ;;9002226.02101,"734,57237-0029-01 ",.02)
  1. ;;57237-0029-01
  1. ;;9002226.02101,"734,57237-0030-01 ",.01)
  1. ;;57237-0030-01
  1. ;;9002226.02101,"734,57237-0030-01 ",.02)
  1. ;;57237-0030-01
  1. ;;9002226.02101,"734,57237-0030-05 ",.01)
  1. ;;57237-0030-05
  1. ;;9002226.02101,"734,57237-0030-05 ",.02)
  1. ;;57237-0030-05
  1. ;;9002226.02101,"734,57237-0031-01 ",.01)
  1. ;;57237-0031-01
  1. ;;9002226.02101,"734,57237-0031-01 ",.02)
  1. ;;57237-0031-01
  1. ;;9002226.02101,"734,57237-0031-05 ",.01)
  1. ;;57237-0031-05
  1. ;;9002226.02101,"734,57237-0031-05 ",.02)
  1. ;;57237-0031-05
  1. ;;9002226.02101,"734,57237-0032-01 ",.01)
  1. ;;57237-0032-01
  1. ;;9002226.02101,"734,57237-0032-01 ",.02)
  1. ;;57237-0032-01
  1. ;;9002226.02101,"734,57237-0032-75 ",.01)
  1. ;;57237-0032-75
  1. ;;9002226.02101,"734,57237-0032-75 ",.02)
  1. ;;57237-0032-75
  1. ;;9002226.02101,"734,57237-0033-01 ",.01)
  1. ;;57237-0033-01
  1. ;;9002226.02101,"734,57237-0033-01 ",.02)
  1. ;;57237-0033-01
  1. ;;9002226.02101,"734,57237-0033-75 ",.01)
  1. ;;57237-0033-75
  1. ;;9002226.02101,"734,57237-0033-75 ",.02)
  1. ;;57237-0033-75
  1. ;;9002226.02101,"734,57237-0034-01 ",.01)
  1. ;;57237-0034-01
  1. ;;9002226.02101,"734,57237-0034-01 ",.02)
  1. ;;57237-0034-01
  1. ;;9002226.02101,"734,57237-0034-50 ",.01)
  1. ;;57237-0034-50
  1. ;;9002226.02101,"734,57237-0034-50 ",.02)
  1. ;;57237-0034-50
  1. ;;9002226.02101,"734,57237-0034-75 ",.01)
  1. ;;57237-0034-75
  1. ;;9002226.02101,"734,57237-0034-75 ",.02)
  1. ;;57237-0034-75
  1. ;;9002226.02101,"734,57237-0035-01 ",.01)
  1. ;;57237-0035-01
  1. ;;9002226.02101,"734,57237-0035-01 ",.02)
  1. ;;57237-0035-01
  1. ;;9002226.02101,"734,57237-0035-50 ",.01)
  1. ;;57237-0035-50
  1. ;;9002226.02101,"734,57237-0035-50 ",.02)
  1. ;;57237-0035-50
  1. ;;9002226.02101,"734,57237-0035-75 ",.01)
  1. ;;57237-0035-75
  1. ;;9002226.02101,"734,57237-0035-75 ",.02)
  1. ;;57237-0035-75
  1. ;;9002226.02101,"734,57237-0036-01 ",.01)
  1. ;;57237-0036-01
  1. ;;9002226.02101,"734,57237-0036-01 ",.02)
  1. ;;57237-0036-01
  1. ;;9002226.02101,"734,57237-0037-01 ",.01)
  1. ;;57237-0037-01
  1. ;;9002226.02101,"734,57237-0037-01 ",.02)
  1. ;;57237-0037-01
  1. ;;9002226.02101,"734,57237-0037-50 ",.01)
  1. ;;57237-0037-50
  1. ;;9002226.02101,"734,57237-0037-50 ",.02)
  1. ;;57237-0037-50
  1. ;;9002226.02101,"734,57237-0040-01 ",.01)
  1. ;;57237-0040-01
  1. ;;9002226.02101,"734,57237-0040-01 ",.02)
  1. ;;57237-0040-01
  1. ;;9002226.02101,"734,57237-0040-99 ",.01)
  1. ;;57237-0040-99
  1. ;;9002226.02101,"734,57237-0040-99 ",.02)
  1. ;;57237-0040-99
  1. ;;9002226.02101,"734,57237-0041-01 ",.01)
  1. ;;57237-0041-01
  1. ;;9002226.02101,"734,57237-0041-01 ",.02)
  1. ;;57237-0041-01
  1. ;;9002226.02101,"734,57237-0041-05 ",.01)
  1. ;;57237-0041-05
  1. ;;9002226.02101,"734,57237-0041-05 ",.02)
  1. ;;57237-0041-05
  1. ;;9002226.02101,"734,57237-0041-99 ",.01)
  1. ;;57237-0041-99
  1. ;;9002226.02101,"734,57237-0041-99 ",.02)
  1. ;;57237-0041-99
  1. ;;9002226.02101,"734,57237-0044-60 ",.01)
  1. ;;57237-0044-60
  1. ;;9002226.02101,"734,57237-0044-60 ",.02)
  1. ;;57237-0044-60
  1. ;;9002226.02101,"734,57237-0045-60 ",.01)
  1. ;;57237-0045-60
  1. ;;9002226.02101,"734,57237-0045-60 ",.02)
  1. ;;57237-0045-60
  1. ;;9002226.02101,"734,57237-0058-20 ",.01)
  1. ;;57237-0058-20
  1. ;;9002226.02101,"734,57237-0058-20 ",.02)
  1. ;;57237-0058-20
  1. ;;9002226.02101,"734,57237-0058-60 ",.01)
  1. ;;57237-0058-60
  1. ;;9002226.02101,"734,57237-0058-60 ",.02)
  1. ;;57237-0058-60
  1. ;;9002226.02101,"734,57237-0059-20 ",.01)
  1. ;;57237-0059-20
  1. ;;9002226.02101,"734,57237-0059-20 ",.02)
  1. ;;57237-0059-20
  1. ;;9002226.02101,"734,57237-0059-60 ",.01)
  1. ;;57237-0059-60
  1. ;;9002226.02101,"734,57237-0059-60 ",.02)
  1. ;;57237-0059-60
  1. ;;9002226.02101,"734,57664-0851-88 ",.01)
  1. ;;57664-0851-88
  1. ;;9002226.02101,"734,57664-0851-88 ",.02)
  1. ;;57664-0851-88
  1. ;;9002226.02101,"734,57664-0852-88 ",.01)
  1. ;;57664-0852-88
  1. ;;9002226.02101,"734,57664-0852-88 ",.02)
  1. ;;57664-0852-88
  1. ;;9002226.02101,"734,57664-0853-85 ",.01)
  1. ;;57664-0853-85
  1. ;;9002226.02101,"734,57664-0853-85 ",.02)
  1. ;;57664-0853-85
  1. ;;9002226.02101,"734,57866-0106-01 ",.01)
  1. ;;57866-0106-01
  1. ;;9002226.02101,"734,57866-0106-01 ",.02)
  1. ;;57866-0106-01
  1. ;;9002226.02101,"734,57866-0106-02 ",.01)
  1. ;;57866-0106-02
  1. ;;9002226.02101,"734,57866-0106-02 ",.02)
  1. ;;57866-0106-02
  1. ;;9002226.02101,"734,57866-0117-01 ",.01)
  1. ;;57866-0117-01
  1. ;;9002226.02101,"734,57866-0117-01 ",.02)
  1. ;;57866-0117-01
  1. ;;9002226.02101,"734,57866-0117-03 ",.01)
  1. ;;57866-0117-03
  1. ;;9002226.02101,"734,57866-0117-03 ",.02)
  1. ;;57866-0117-03
  1. ;;9002226.02101,"734,57866-0117-04 ",.01)
  1. ;;57866-0117-04
  1. ;;9002226.02101,"734,57866-0117-04 ",.02)
  1. ;;57866-0117-04
  1. ;;9002226.02101,"734,57866-0117-05 ",.01)
  1. ;;57866-0117-05
  1. ;;9002226.02101,"734,57866-0117-05 ",.02)
  1. ;;57866-0117-05
  1. ;;9002226.02101,"734,57866-0117-06 ",.01)
  1. ;;57866-0117-06
  1. ;;9002226.02101,"734,57866-0117-06 ",.02)
  1. ;;57866-0117-06
  1. ;;9002226.02101,"734,57866-0155-00 ",.01)
  1. ;;57866-0155-00
  1. ;;9002226.02101,"734,57866-0155-00 ",.02)
  1. ;;57866-0155-00
  1. ;;9002226.02101,"734,57866-0155-05 ",.01)
  1. ;;57866-0155-05
  1. ;;9002226.02101,"734,57866-0155-05 ",.02)
  1. ;;57866-0155-05
  1. ;;9002226.02101,"734,57866-0340-01 ",.01)
  1. ;;57866-0340-01
  1. ;;9002226.02101,"734,57866-0340-01 ",.02)
  1. ;;57866-0340-01
  1. ;;9002226.02101,"734,57866-0340-02 ",.01)
  1. ;;57866-0340-02
  1. ;;9002226.02101,"734,57866-0340-02 ",.02)
  1. ;;57866-0340-02
  1. ;;9002226.02101,"734,57866-0340-05 ",.01)
  1. ;;57866-0340-05
  1. ;;9002226.02101,"734,57866-0340-05 ",.02)
  1. ;;57866-0340-05
  1. ;;9002226.02101,"734,57866-0341-02 ",.01)
  1. ;;57866-0341-02
  1. ;;9002226.02101,"734,57866-0341-02 ",.02)
  1. ;;57866-0341-02
  1. ;;9002226.02101,"734,57866-0341-04 ",.01)
  1. ;;57866-0341-04
  1. ;;9002226.02101,"734,57866-0341-04 ",.02)
  1. ;;57866-0341-04
  1. ;;9002226.02101,"734,57866-0343-01 ",.01)
  1. ;;57866-0343-01
  1. ;;9002226.02101,"734,57866-0343-01 ",.02)
  1. ;;57866-0343-01
  1. ;;9002226.02101,"734,57866-1094-02 ",.01)
  1. ;;57866-1094-02
  1. ;;9002226.02101,"734,57866-1094-02 ",.02)
  1. ;;57866-1094-02
  1. ;;9002226.02101,"734,57866-3129-01 ",.01)
  1. ;;57866-3129-01
  1. ;;9002226.02101,"734,57866-3129-01 ",.02)
  1. ;;57866-3129-01
  1. ;;9002226.02101,"734,57866-3135-01 ",.01)
  1. ;;57866-3135-01
  1. ;;9002226.02101,"734,57866-3135-01 ",.02)
  1. ;;57866-3135-01
  1. ;;9002226.02101,"734,57866-3136-01 ",.01)
  1. ;;57866-3136-01
  1. ;;9002226.02101,"734,57866-3136-01 ",.02)
  1. ;;57866-3136-01
  1. ;;9002226.02101,"734,57866-3148-02 ",.01)
  1. ;;57866-3148-02
  1. ;;9002226.02101,"734,57866-3148-02 ",.02)
  1. ;;57866-3148-02
  1. ;;9002226.02101,"734,57866-3613-02 ",.01)
  1. ;;57866-3613-02
  1. ;;9002226.02101,"734,57866-3613-02 ",.02)
  1. ;;57866-3613-02
  1. ;;9002226.02101,"734,57866-3614-01 ",.01)
  1. ;;57866-3614-01
  1. ;;9002226.02101,"734,57866-3614-01 ",.02)
  1. ;;57866-3614-01
  1. ;;9002226.02101,"734,57866-4356-01 ",.01)
  1. ;;57866-4356-01
  1. ;;9002226.02101,"734,57866-4356-01 ",.02)
  1. ;;57866-4356-01
  1. ;;9002226.02101,"734,57866-4693-01 ",.01)
  1. ;;57866-4693-01
  1. ;;9002226.02101,"734,57866-4693-01 ",.02)
  1. ;;57866-4693-01
  1. ;;9002226.02101,"734,57866-4693-02 ",.01)
  1. ;;57866-4693-02
  1. ;;9002226.02101,"734,57866-4693-02 ",.02)
  1. ;;57866-4693-02
  1. ;;9002226.02101,"734,57866-4693-04 ",.01)
  1. ;;57866-4693-04
  1. ;;9002226.02101,"734,57866-4693-04 ",.02)
  1. ;;57866-4693-04
  1. ;;9002226.02101,"734,57866-4693-06 ",.01)
  1. ;;57866-4693-06
  1. ;;9002226.02101,"734,57866-4693-06 ",.02)
  1. ;;57866-4693-06
  1. ;;9002226.02101,"734,57866-6041-01 ",.01)
  1. ;;57866-6041-01