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

BGP31L10.m

Go to the documentation of this file.
  1. BGP31L10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
  1. ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
  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,"618,00372-0048-28 ",.01)
  1. ;;00372-0048-28
  1. ;;9002226.02101,"618,00372-0048-28 ",.02)
  1. ;;00372-0048-28
  1. ;;9002226.02101,"618,00378-2586-01 ",.01)
  1. ;;00378-2586-01
  1. ;;9002226.02101,"618,00378-2586-01 ",.02)
  1. ;;00378-2586-01
  1. ;;9002226.02101,"618,00378-2586-10 ",.01)
  1. ;;00378-2586-10
  1. ;;9002226.02101,"618,00378-2586-10 ",.02)
  1. ;;00378-2586-10
  1. ;;9002226.02101,"618,00378-2587-01 ",.01)
  1. ;;00378-2587-01
  1. ;;9002226.02101,"618,00378-2587-01 ",.02)
  1. ;;00378-2587-01
  1. ;;9002226.02101,"618,00378-2587-10 ",.01)
  1. ;;00378-2587-10
  1. ;;9002226.02101,"618,00378-2587-10 ",.02)
  1. ;;00378-2587-10
  1. ;;9002226.02101,"618,00378-2588-01 ",.01)
  1. ;;00378-2588-01
  1. ;;9002226.02101,"618,00378-2588-01 ",.02)
  1. ;;00378-2588-01
  1. ;;9002226.02101,"618,00378-2588-10 ",.01)
  1. ;;00378-2588-10
  1. ;;9002226.02101,"618,00378-2588-10 ",.02)
  1. ;;00378-2588-10
  1. ;;9002226.02101,"618,00378-7028-01 ",.01)
  1. ;;00378-7028-01
  1. ;;9002226.02101,"618,00378-7028-01 ",.02)
  1. ;;00378-7028-01
  1. ;;9002226.02101,"618,00378-7028-10 ",.01)
  1. ;;00378-7028-10
  1. ;;9002226.02101,"618,00378-7028-10 ",.02)
  1. ;;00378-7028-10
  1. ;;9002226.02101,"618,00378-7029-01 ",.01)
  1. ;;00378-7029-01
  1. ;;9002226.02101,"618,00378-7029-01 ",.02)
  1. ;;00378-7029-01
  1. ;;9002226.02101,"618,00378-7029-10 ",.01)
  1. ;;00378-7029-10
  1. ;;9002226.02101,"618,00378-7029-10 ",.02)
  1. ;;00378-7029-10
  1. ;;9002226.02101,"618,00378-7030-01 ",.01)
  1. ;;00378-7030-01
  1. ;;9002226.02101,"618,00378-7030-01 ",.02)
  1. ;;00378-7030-01
  1. ;;9002226.02101,"618,00378-7030-10 ",.01)
  1. ;;00378-7030-10
  1. ;;9002226.02101,"618,00378-7030-10 ",.02)
  1. ;;00378-7030-10
  1. ;;9002226.02101,"618,00406-2040-01 ",.01)
  1. ;;00406-2040-01
  1. ;;9002226.02101,"618,00406-2040-01 ",.02)
  1. ;;00406-2040-01
  1. ;;9002226.02101,"618,00406-2041-01 ",.01)
  1. ;;00406-2041-01
  1. ;;9002226.02101,"618,00406-2041-01 ",.02)
  1. ;;00406-2041-01
  1. ;;9002226.02101,"618,00406-2041-10 ",.01)
  1. ;;00406-2041-10
  1. ;;9002226.02101,"618,00406-2041-10 ",.02)
  1. ;;00406-2041-10
  1. ;;9002226.02101,"618,00406-2042-01 ",.01)
  1. ;;00406-2042-01
  1. ;;9002226.02101,"618,00406-2042-01 ",.02)
  1. ;;00406-2042-01
  1. ;;9002226.02101,"618,00409-2312-02 ",.01)
  1. ;;00409-2312-02
  1. ;;9002226.02101,"618,00409-2312-02 ",.02)
  1. ;;00409-2312-02
  1. ;;9002226.02101,"618,00409-2312-31 ",.01)
  1. ;;00409-2312-31
  1. ;;9002226.02101,"618,00409-2312-31 ",.02)
  1. ;;00409-2312-31
  1. ;;9002226.02101,"618,00440-1617-12 ",.01)
  1. ;;00440-1617-12
  1. ;;9002226.02101,"618,00440-1617-12 ",.02)
  1. ;;00440-1617-12
  1. ;;9002226.02101,"618,00440-2365-20 ",.01)
  1. ;;00440-2365-20
  1. ;;9002226.02101,"618,00440-2365-20 ",.02)
  1. ;;00440-2365-20
  1. ;;9002226.02101,"618,00440-7195-30 ",.01)
  1. ;;00440-7195-30
  1. ;;9002226.02101,"618,00440-7195-30 ",.02)
  1. ;;00440-7195-30
  1. ;;9002226.02101,"618,00440-7195-60 ",.01)
  1. ;;00440-7195-60
  1. ;;9002226.02101,"618,00440-7195-60 ",.02)
  1. ;;00440-7195-60
  1. ;;9002226.02101,"618,00440-7195-90 ",.01)
  1. ;;00440-7195-90
  1. ;;9002226.02101,"618,00440-7195-90 ",.02)
  1. ;;00440-7195-90
  1. ;;9002226.02101,"618,00440-7195-92 ",.01)
  1. ;;00440-7195-92
  1. ;;9002226.02101,"618,00440-7195-92 ",.02)
  1. ;;00440-7195-92
  1. ;;9002226.02101,"618,00440-7196-30 ",.01)
  1. ;;00440-7196-30
  1. ;;9002226.02101,"618,00440-7196-30 ",.02)
  1. ;;00440-7196-30
  1. ;;9002226.02101,"618,00440-7196-60 ",.01)
  1. ;;00440-7196-60
  1. ;;9002226.02101,"618,00440-7196-60 ",.02)
  1. ;;00440-7196-60
  1. ;;9002226.02101,"618,00440-7196-90 ",.01)
  1. ;;00440-7196-90
  1. ;;9002226.02101,"618,00440-7196-90 ",.02)
  1. ;;00440-7196-90
  1. ;;9002226.02101,"618,00440-7196-92 ",.01)
  1. ;;00440-7196-92
  1. ;;9002226.02101,"618,00440-7196-92 ",.02)
  1. ;;00440-7196-92
  1. ;;9002226.02101,"618,00440-7277-30 ",.01)
  1. ;;00440-7277-30
  1. ;;9002226.02101,"618,00440-7277-30 ",.02)
  1. ;;00440-7277-30
  1. ;;9002226.02101,"618,00440-7280-30 ",.01)
  1. ;;00440-7280-30
  1. ;;9002226.02101,"618,00440-7280-30 ",.02)
  1. ;;00440-7280-30
  1. ;;9002226.02101,"618,00440-7360-30 ",.01)
  1. ;;00440-7360-30
  1. ;;9002226.02101,"618,00440-7360-30 ",.02)
  1. ;;00440-7360-30
  1. ;;9002226.02101,"618,00440-7365-10 ",.01)
  1. ;;00440-7365-10
  1. ;;9002226.02101,"618,00440-7365-10 ",.02)
  1. ;;00440-7365-10
  1. ;;9002226.02101,"618,00440-7365-12 ",.01)
  1. ;;00440-7365-12
  1. ;;9002226.02101,"618,00440-7365-12 ",.02)
  1. ;;00440-7365-12
  1. ;;9002226.02101,"618,00440-7365-20 ",.01)
  1. ;;00440-7365-20
  1. ;;9002226.02101,"618,00440-7365-20 ",.02)
  1. ;;00440-7365-20
  1. ;;9002226.02101,"618,00440-7365-30 ",.01)
  1. ;;00440-7365-30
  1. ;;9002226.02101,"618,00440-7365-30 ",.02)
  1. ;;00440-7365-30
  1. ;;9002226.02101,"618,00440-7365-60 ",.01)
  1. ;;00440-7365-60
  1. ;;9002226.02101,"618,00440-7365-60 ",.02)
  1. ;;00440-7365-60
  1. ;;9002226.02101,"618,00440-7425-04 ",.01)
  1. ;;00440-7425-04
  1. ;;9002226.02101,"618,00440-7425-04 ",.02)
  1. ;;00440-7425-04
  1. ;;9002226.02101,"618,00440-7425-05 ",.01)
  1. ;;00440-7425-05
  1. ;;9002226.02101,"618,00440-7425-05 ",.02)
  1. ;;00440-7425-05
  1. ;;9002226.02101,"618,00440-7425-06 ",.01)
  1. ;;00440-7425-06
  1. ;;9002226.02101,"618,00440-7425-06 ",.02)
  1. ;;00440-7425-06
  1. ;;9002226.02101,"618,00440-7425-10 ",.01)
  1. ;;00440-7425-10
  1. ;;9002226.02101,"618,00440-7425-10 ",.02)
  1. ;;00440-7425-10
  1. ;;9002226.02101,"618,00440-7425-12 ",.01)
  1. ;;00440-7425-12
  1. ;;9002226.02101,"618,00440-7425-12 ",.02)
  1. ;;00440-7425-12
  1. ;;9002226.02101,"618,00440-7425-16 ",.01)
  1. ;;00440-7425-16
  1. ;;9002226.02101,"618,00440-7425-16 ",.02)
  1. ;;00440-7425-16
  1. ;;9002226.02101,"618,00440-7425-20 ",.01)
  1. ;;00440-7425-20
  1. ;;9002226.02101,"618,00440-7425-20 ",.02)
  1. ;;00440-7425-20
  1. ;;9002226.02101,"618,00440-7425-24 ",.01)
  1. ;;00440-7425-24
  1. ;;9002226.02101,"618,00440-7425-24 ",.02)
  1. ;;00440-7425-24
  1. ;;9002226.02101,"618,00440-7425-30 ",.01)
  1. ;;00440-7425-30
  1. ;;9002226.02101,"618,00440-7425-30 ",.02)
  1. ;;00440-7425-30
  1. ;;9002226.02101,"618,00440-7425-60 ",.01)
  1. ;;00440-7425-60
  1. ;;9002226.02101,"618,00440-7425-60 ",.02)
  1. ;;00440-7425-60
  1. ;;9002226.02101,"618,00440-7426-04 ",.01)
  1. ;;00440-7426-04
  1. ;;9002226.02101,"618,00440-7426-04 ",.02)
  1. ;;00440-7426-04
  1. ;;9002226.02101,"618,00440-7426-06 ",.01)
  1. ;;00440-7426-06
  1. ;;9002226.02101,"618,00440-7426-06 ",.02)
  1. ;;00440-7426-06
  1. ;;9002226.02101,"618,00440-7426-09 ",.01)
  1. ;;00440-7426-09
  1. ;;9002226.02101,"618,00440-7426-09 ",.02)
  1. ;;00440-7426-09
  1. ;;9002226.02101,"618,00440-7426-12 ",.01)
  1. ;;00440-7426-12
  1. ;;9002226.02101,"618,00440-7426-12 ",.02)
  1. ;;00440-7426-12
  1. ;;9002226.02101,"618,00440-7426-20 ",.01)
  1. ;;00440-7426-20
  1. ;;9002226.02101,"618,00440-7426-20 ",.02)
  1. ;;00440-7426-20
  1. ;;9002226.02101,"618,00440-7426-30 ",.01)
  1. ;;00440-7426-30
  1. ;;9002226.02101,"618,00440-7426-30 ",.02)
  1. ;;00440-7426-30
  1. ;;9002226.02101,"618,00440-7426-60 ",.01)
  1. ;;00440-7426-60
  1. ;;9002226.02101,"618,00440-7426-60 ",.02)
  1. ;;00440-7426-60
  1. ;;9002226.02101,"618,00440-7616-30 ",.01)
  1. ;;00440-7616-30
  1. ;;9002226.02101,"618,00440-7616-30 ",.02)
  1. ;;00440-7616-30
  1. ;;9002226.02101,"618,00440-7617-04 ",.01)
  1. ;;00440-7617-04
  1. ;;9002226.02101,"618,00440-7617-04 ",.02)
  1. ;;00440-7617-04
  1. ;;9002226.02101,"618,00440-7617-06 ",.01)
  1. ;;00440-7617-06
  1. ;;9002226.02101,"618,00440-7617-06 ",.02)
  1. ;;00440-7617-06
  1. ;;9002226.02101,"618,00440-7617-12 ",.01)
  1. ;;00440-7617-12
  1. ;;9002226.02101,"618,00440-7617-12 ",.02)
  1. ;;00440-7617-12
  1. ;;9002226.02101,"618,00440-7617-15 ",.01)
  1. ;;00440-7617-15
  1. ;;9002226.02101,"618,00440-7617-15 ",.02)
  1. ;;00440-7617-15
  1. ;;9002226.02101,"618,00440-7617-16 ",.01)
  1. ;;00440-7617-16
  1. ;;9002226.02101,"618,00440-7617-16 ",.02)
  1. ;;00440-7617-16
  1. ;;9002226.02101,"618,00440-7617-21 ",.01)
  1. ;;00440-7617-21
  1. ;;9002226.02101,"618,00440-7617-21 ",.02)
  1. ;;00440-7617-21
  1. ;;9002226.02101,"618,00440-7617-30 ",.01)
  1. ;;00440-7617-30
  1. ;;9002226.02101,"618,00440-7617-30 ",.02)
  1. ;;00440-7617-30
  1. ;;9002226.02101,"618,00440-7617-99 ",.01)
  1. ;;00440-7617-99
  1. ;;9002226.02101,"618,00440-7617-99 ",.02)
  1. ;;00440-7617-99
  1. ;;9002226.02101,"618,00440-7620-04 ",.01)
  1. ;;00440-7620-04
  1. ;;9002226.02101,"618,00440-7620-04 ",.02)
  1. ;;00440-7620-04
  1. ;;9002226.02101,"618,00440-8195-04 ",.01)
  1. ;;00440-8195-04
  1. ;;9002226.02101,"618,00440-8195-04 ",.02)
  1. ;;00440-8195-04
  1. ;;9002226.02101,"618,00440-8195-06 ",.01)
  1. ;;00440-8195-06
  1. ;;9002226.02101,"618,00440-8195-06 ",.02)
  1. ;;00440-8195-06
  1. ;;9002226.02101,"618,00440-8195-10 ",.01)
  1. ;;00440-8195-10
  1. ;;9002226.02101,"618,00440-8195-10 ",.02)
  1. ;;00440-8195-10
  1. ;;9002226.02101,"618,00440-8195-12 ",.01)
  1. ;;00440-8195-12
  1. ;;9002226.02101,"618,00440-8195-12 ",.02)
  1. ;;00440-8195-12
  1. ;;9002226.02101,"618,00440-8195-20 ",.01)
  1. ;;00440-8195-20
  1. ;;9002226.02101,"618,00440-8195-20 ",.02)
  1. ;;00440-8195-20
  1. ;;9002226.02101,"618,00440-8195-99 ",.01)
  1. ;;00440-8195-99
  1. ;;9002226.02101,"618,00440-8195-99 ",.02)
  1. ;;00440-8195-99
  1. ;;9002226.02101,"618,00440-8255-10 ",.01)
  1. ;;00440-8255-10
  1. ;;9002226.02101,"618,00440-8255-10 ",.02)
  1. ;;00440-8255-10
  1. ;;9002226.02101,"618,00440-8255-12 ",.01)
  1. ;;00440-8255-12
  1. ;;9002226.02101,"618,00440-8255-12 ",.02)
  1. ;;00440-8255-12
  1. ;;9002226.02101,"618,00440-8255-14 ",.01)
  1. ;;00440-8255-14
  1. ;;9002226.02101,"618,00440-8255-14 ",.02)
  1. ;;00440-8255-14
  1. ;;9002226.02101,"618,00440-8255-20 ",.01)
  1. ;;00440-8255-20
  1. ;;9002226.02101,"618,00440-8255-20 ",.02)
  1. ;;00440-8255-20
  1. ;;9002226.02101,"618,00440-8255-30 ",.01)
  1. ;;00440-8255-30
  1. ;;9002226.02101,"618,00440-8255-30 ",.02)
  1. ;;00440-8255-30
  1. ;;9002226.02101,"618,00440-8255-60 ",.01)
  1. ;;00440-8255-60
  1. ;;9002226.02101,"618,00440-8255-60 ",.02)
  1. ;;00440-8255-60
  1. ;;9002226.02101,"618,00451-4000-50 ",.01)
  1. ;;00451-4000-50
  1. ;;9002226.02101,"618,00451-4000-50 ",.02)
  1. ;;00451-4000-50
  1. ;;9002226.02101,"618,00451-4000-60 ",.01)
  1. ;;00451-4000-60
  1. ;;9002226.02101,"618,00451-4000-60 ",.02)
  1. ;;00451-4000-60
  1. ;;9002226.02101,"618,00451-4001-50 ",.01)
  1. ;;00451-4001-50
  1. ;;9002226.02101,"618,00451-4001-50 ",.02)
  1. ;;00451-4001-50
  1. ;;9002226.02101,"618,00451-4001-60 ",.01)
  1. ;;00451-4001-60
  1. ;;9002226.02101,"618,00451-4001-60 ",.02)
  1. ;;00451-4001-60
  1. ;;9002226.02101,"618,00451-4060-50 ",.01)
  1. ;;00451-4060-50
  1. ;;9002226.02101,"618,00451-4060-50 ",.02)
  1. ;;00451-4060-50
  1. ;;9002226.02101,"618,00472-0096-12 ",.01)
  1. ;;00472-0096-12
  1. ;;9002226.02101,"618,00472-0096-12 ",.02)
  1. ;;00472-0096-12
  1. ;;9002226.02101,"618,00472-0727-16 ",.01)
  1. ;;00472-0727-16
  1. ;;9002226.02101,"618,00472-0727-16 ",.02)
  1. ;;00472-0727-16
  1. ;;9002226.02101,"618,00472-0731-04 ",.01)
  1. ;;00472-0731-04
  1. ;;9002226.02101,"618,00472-0731-04 ",.02)
  1. ;;00472-0731-04
  1. ;;9002226.02101,"618,00472-0731-16 ",.01)
  1. ;;00472-0731-16
  1. ;;9002226.02101,"618,00472-0731-16 ",.02)
  1. ;;00472-0731-16
  1. ;;9002226.02101,"618,00472-0731-28 ",.01)
  1. ;;00472-0731-28
  1. ;;9002226.02101,"618,00472-0731-28 ",.02)
  1. ;;00472-0731-28
  1. ;;9002226.02101,"618,00472-0733-31 ",.01)
  1. ;;00472-0733-31
  1. ;;9002226.02101,"618,00472-0733-31 ",.02)
  1. ;;00472-0733-31
  1. ;;9002226.02101,"618,00472-0755-16 ",.01)
  1. ;;00472-0755-16
  1. ;;9002226.02101,"618,00472-0755-16 ",.02)
  1. ;;00472-0755-16
  1. ;;9002226.02101,"618,00472-0771-16 ",.01)
  1. ;;00472-0771-16
  1. ;;9002226.02101,"618,00472-0771-16 ",.02)
  1. ;;00472-0771-16
  1. ;;9002226.02101,"618,00472-1400-16 ",.01)
  1. ;;00472-1400-16
  1. ;;9002226.02101,"618,00472-1400-16 ",.02)
  1. ;;00472-1400-16
  1. ;;9002226.02101,"618,00472-1504-04 ",.01)
  1. ;;00472-1504-04
  1. ;;9002226.02101,"618,00472-1504-04 ",.02)
  1. ;;00472-1504-04
  1. ;;9002226.02101,"618,00472-1504-08 ",.01)
  1. ;;00472-1504-08
  1. ;;9002226.02101,"618,00472-1504-08 ",.02)
  1. ;;00472-1504-08
  1. ;;9002226.02101,"618,00472-1504-16 ",.01)
  1. ;;00472-1504-16
  1. ;;9002226.02101,"618,00472-1504-16 ",.02)
  1. ;;00472-1504-16
  1. ;;9002226.02101,"618,00472-1504-28 ",.01)
  1. ;;00472-1504-28
  1. ;;9002226.02101,"618,00472-1504-28 ",.02)
  1. ;;00472-1504-28
  1. ;;9002226.02101,"618,00472-1627-04 ",.01)
  1. ;;00472-1627-04
  1. ;;9002226.02101,"618,00472-1627-04 ",.02)
  1. ;;00472-1627-04
  1. ;;9002226.02101,"618,00472-1627-08 ",.01)
  1. ;;00472-1627-08
  1. ;;9002226.02101,"618,00472-1627-08 ",.02)
  1. ;;00472-1627-08
  1. ;;9002226.02101,"618,00472-1627-16 ",.01)
  1. ;;00472-1627-16
  1. ;;9002226.02101,"618,00472-1627-16 ",.02)
  1. ;;00472-1627-16
  1. ;;9002226.02101,"618,00472-1627-28 ",.01)
  1. ;;00472-1627-28
  1. ;;9002226.02101,"618,00472-1627-28 ",.02)
  1. ;;00472-1627-28
  1. ;;9002226.02101,"618,00472-1628-04 ",.01)
  1. ;;00472-1628-04
  1. ;;9002226.02101,"618,00472-1628-04 ",.02)
  1. ;;00472-1628-04
  1. ;;9002226.02101,"618,00472-1628-08 ",.01)
  1. ;;00472-1628-08
  1. ;;9002226.02101,"618,00472-1628-08 ",.02)
  1. ;;00472-1628-08
  1. ;;9002226.02101,"618,00472-1628-16 ",.01)
  1. ;;00472-1628-16
  1. ;;9002226.02101,"618,00472-1628-16 ",.02)
  1. ;;00472-1628-16
  1. ;;9002226.02101,"618,00472-1628-28 ",.01)
  1. ;;00472-1628-28
  1. ;;9002226.02101,"618,00472-1628-28 ",.02)
  1. ;;00472-1628-28
  1. ;;9002226.02101,"618,00472-1629-04 ",.01)
  1. ;;00472-1629-04
  1. ;;9002226.02101,"618,00472-1629-04 ",.02)
  1. ;;00472-1629-04
  1. ;;9002226.02101,"618,00472-1629-08 ",.01)
  1. ;;00472-1629-08
  1. ;;9002226.02101,"618,00472-1629-08 ",.02)
  1. ;;00472-1629-08
  1. ;;9002226.02101,"618,00472-1629-16 ",.01)
  1. ;;00472-1629-16
  1. ;;9002226.02101,"618,00472-1629-16 ",.02)
  1. ;;00472-1629-16
  1. ;;9002226.02101,"618,00472-1629-28 ",.01)
  1. ;;00472-1629-28
  1. ;;9002226.02101,"618,00472-1629-28 ",.02)
  1. ;;00472-1629-28
  1. ;;9002226.02101,"618,00472-1630-04 ",.01)
  1. ;;00472-1630-04
  1. ;;9002226.02101,"618,00472-1630-04 ",.02)
  1. ;;00472-1630-04
  1. ;;9002226.02101,"618,00472-1630-16 ",.01)
  1. ;;00472-1630-16
  1. ;;9002226.02101,"618,00472-1630-16 ",.02)
  1. ;;00472-1630-16
  1. ;;9002226.02101,"618,00472-1630-28 ",.01)
  1. ;;00472-1630-28
  1. ;;9002226.02101,"618,00472-1630-28 ",.02)
  1. ;;00472-1630-28
  1. ;;9002226.02101,"618,00472-1633-04 ",.01)
  1. ;;00472-1633-04
  1. ;;9002226.02101,"618,00472-1633-04 ",.02)
  1. ;;00472-1633-04
  1. ;;9002226.02101,"618,00472-1633-16 ",.01)
  1. ;;00472-1633-16
  1. ;;9002226.02101,"618,00472-1633-16 ",.02)
  1. ;;00472-1633-16