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

BGP47S28.m

Go to the documentation of this file.
  1. BGP47S28 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
  1. ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
  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,"804,58016-0248-40 ",.02)
  1. ;;58016-0248-40
  1. ;;9002226.02101,"804,58016-0248-42 ",.01)
  1. ;;58016-0248-42
  1. ;;9002226.02101,"804,58016-0248-42 ",.02)
  1. ;;58016-0248-42
  1. ;;9002226.02101,"804,58016-0248-50 ",.01)
  1. ;;58016-0248-50
  1. ;;9002226.02101,"804,58016-0248-50 ",.02)
  1. ;;58016-0248-50
  1. ;;9002226.02101,"804,58016-0248-60 ",.01)
  1. ;;58016-0248-60
  1. ;;9002226.02101,"804,58016-0248-60 ",.02)
  1. ;;58016-0248-60
  1. ;;9002226.02101,"804,58016-0248-90 ",.01)
  1. ;;58016-0248-90
  1. ;;9002226.02101,"804,58016-0248-90 ",.02)
  1. ;;58016-0248-90
  1. ;;9002226.02101,"804,58016-0257-00 ",.01)
  1. ;;58016-0257-00
  1. ;;9002226.02101,"804,58016-0257-00 ",.02)
  1. ;;58016-0257-00
  1. ;;9002226.02101,"804,58016-0257-02 ",.01)
  1. ;;58016-0257-02
  1. ;;9002226.02101,"804,58016-0257-02 ",.02)
  1. ;;58016-0257-02
  1. ;;9002226.02101,"804,58016-0257-03 ",.01)
  1. ;;58016-0257-03
  1. ;;9002226.02101,"804,58016-0257-03 ",.02)
  1. ;;58016-0257-03
  1. ;;9002226.02101,"804,58016-0257-12 ",.01)
  1. ;;58016-0257-12
  1. ;;9002226.02101,"804,58016-0257-12 ",.02)
  1. ;;58016-0257-12
  1. ;;9002226.02101,"804,58016-0257-14 ",.01)
  1. ;;58016-0257-14
  1. ;;9002226.02101,"804,58016-0257-14 ",.02)
  1. ;;58016-0257-14
  1. ;;9002226.02101,"804,58016-0257-15 ",.01)
  1. ;;58016-0257-15
  1. ;;9002226.02101,"804,58016-0257-15 ",.02)
  1. ;;58016-0257-15
  1. ;;9002226.02101,"804,58016-0257-20 ",.01)
  1. ;;58016-0257-20
  1. ;;9002226.02101,"804,58016-0257-20 ",.02)
  1. ;;58016-0257-20
  1. ;;9002226.02101,"804,58016-0257-24 ",.01)
  1. ;;58016-0257-24
  1. ;;9002226.02101,"804,58016-0257-24 ",.02)
  1. ;;58016-0257-24
  1. ;;9002226.02101,"804,58016-0257-30 ",.01)
  1. ;;58016-0257-30
  1. ;;9002226.02101,"804,58016-0257-30 ",.02)
  1. ;;58016-0257-30
  1. ;;9002226.02101,"804,58016-0257-40 ",.01)
  1. ;;58016-0257-40
  1. ;;9002226.02101,"804,58016-0257-40 ",.02)
  1. ;;58016-0257-40
  1. ;;9002226.02101,"804,58016-0257-50 ",.01)
  1. ;;58016-0257-50
  1. ;;9002226.02101,"804,58016-0257-50 ",.02)
  1. ;;58016-0257-50
  1. ;;9002226.02101,"804,58016-0257-73 ",.01)
  1. ;;58016-0257-73
  1. ;;9002226.02101,"804,58016-0257-73 ",.02)
  1. ;;58016-0257-73
  1. ;;9002226.02101,"804,58016-0257-84 ",.01)
  1. ;;58016-0257-84
  1. ;;9002226.02101,"804,58016-0257-84 ",.02)
  1. ;;58016-0257-84
  1. ;;9002226.02101,"804,58016-0257-89 ",.01)
  1. ;;58016-0257-89
  1. ;;9002226.02101,"804,58016-0257-89 ",.02)
  1. ;;58016-0257-89
  1. ;;9002226.02101,"804,58016-0257-99 ",.01)
  1. ;;58016-0257-99
  1. ;;9002226.02101,"804,58016-0257-99 ",.02)
  1. ;;58016-0257-99
  1. ;;9002226.02101,"804,58016-0258-00 ",.01)
  1. ;;58016-0258-00
  1. ;;9002226.02101,"804,58016-0258-00 ",.02)
  1. ;;58016-0258-00
  1. ;;9002226.02101,"804,58016-0258-02 ",.01)
  1. ;;58016-0258-02
  1. ;;9002226.02101,"804,58016-0258-02 ",.02)
  1. ;;58016-0258-02
  1. ;;9002226.02101,"804,58016-0258-03 ",.01)
  1. ;;58016-0258-03
  1. ;;9002226.02101,"804,58016-0258-03 ",.02)
  1. ;;58016-0258-03
  1. ;;9002226.02101,"804,58016-0258-08 ",.01)
  1. ;;58016-0258-08
  1. ;;9002226.02101,"804,58016-0258-08 ",.02)
  1. ;;58016-0258-08
  1. ;;9002226.02101,"804,58016-0258-10 ",.01)
  1. ;;58016-0258-10
  1. ;;9002226.02101,"804,58016-0258-10 ",.02)
  1. ;;58016-0258-10
  1. ;;9002226.02101,"804,58016-0258-12 ",.01)
  1. ;;58016-0258-12
  1. ;;9002226.02101,"804,58016-0258-12 ",.02)
  1. ;;58016-0258-12
  1. ;;9002226.02101,"804,58016-0258-14 ",.01)
  1. ;;58016-0258-14
  1. ;;9002226.02101,"804,58016-0258-14 ",.02)
  1. ;;58016-0258-14
  1. ;;9002226.02101,"804,58016-0258-15 ",.01)
  1. ;;58016-0258-15
  1. ;;9002226.02101,"804,58016-0258-15 ",.02)
  1. ;;58016-0258-15
  1. ;;9002226.02101,"804,58016-0258-20 ",.01)
  1. ;;58016-0258-20
  1. ;;9002226.02101,"804,58016-0258-20 ",.02)
  1. ;;58016-0258-20
  1. ;;9002226.02101,"804,58016-0258-21 ",.01)
  1. ;;58016-0258-21
  1. ;;9002226.02101,"804,58016-0258-21 ",.02)
  1. ;;58016-0258-21
  1. ;;9002226.02101,"804,58016-0258-24 ",.01)
  1. ;;58016-0258-24
  1. ;;9002226.02101,"804,58016-0258-24 ",.02)
  1. ;;58016-0258-24
  1. ;;9002226.02101,"804,58016-0258-28 ",.01)
  1. ;;58016-0258-28
  1. ;;9002226.02101,"804,58016-0258-28 ",.02)
  1. ;;58016-0258-28
  1. ;;9002226.02101,"804,58016-0258-30 ",.01)
  1. ;;58016-0258-30
  1. ;;9002226.02101,"804,58016-0258-30 ",.02)
  1. ;;58016-0258-30
  1. ;;9002226.02101,"804,58016-0258-40 ",.01)
  1. ;;58016-0258-40
  1. ;;9002226.02101,"804,58016-0258-40 ",.02)
  1. ;;58016-0258-40
  1. ;;9002226.02101,"804,58016-0258-42 ",.01)
  1. ;;58016-0258-42
  1. ;;9002226.02101,"804,58016-0258-42 ",.02)
  1. ;;58016-0258-42
  1. ;;9002226.02101,"804,58016-0258-46 ",.01)
  1. ;;58016-0258-46
  1. ;;9002226.02101,"804,58016-0258-46 ",.02)
  1. ;;58016-0258-46
  1. ;;9002226.02101,"804,58016-0258-50 ",.01)
  1. ;;58016-0258-50
  1. ;;9002226.02101,"804,58016-0258-50 ",.02)
  1. ;;58016-0258-50
  1. ;;9002226.02101,"804,58016-0258-56 ",.01)
  1. ;;58016-0258-56
  1. ;;9002226.02101,"804,58016-0258-56 ",.02)
  1. ;;58016-0258-56
  1. ;;9002226.02101,"804,58016-0258-60 ",.01)
  1. ;;58016-0258-60
  1. ;;9002226.02101,"804,58016-0258-60 ",.02)
  1. ;;58016-0258-60
  1. ;;9002226.02101,"804,58016-0258-73 ",.01)
  1. ;;58016-0258-73
  1. ;;9002226.02101,"804,58016-0258-73 ",.02)
  1. ;;58016-0258-73
  1. ;;9002226.02101,"804,58016-0258-80 ",.01)
  1. ;;58016-0258-80
  1. ;;9002226.02101,"804,58016-0258-80 ",.02)
  1. ;;58016-0258-80
  1. ;;9002226.02101,"804,58016-0258-89 ",.01)
  1. ;;58016-0258-89
  1. ;;9002226.02101,"804,58016-0258-89 ",.02)
  1. ;;58016-0258-89
  1. ;;9002226.02101,"804,58016-0258-90 ",.01)
  1. ;;58016-0258-90
  1. ;;9002226.02101,"804,58016-0258-90 ",.02)
  1. ;;58016-0258-90
  1. ;;9002226.02101,"804,58016-0258-92 ",.01)
  1. ;;58016-0258-92
  1. ;;9002226.02101,"804,58016-0258-92 ",.02)
  1. ;;58016-0258-92
  1. ;;9002226.02101,"804,58016-0258-99 ",.01)
  1. ;;58016-0258-99
  1. ;;9002226.02101,"804,58016-0258-99 ",.02)
  1. ;;58016-0258-99
  1. ;;9002226.02101,"804,58016-0261-00 ",.01)
  1. ;;58016-0261-00
  1. ;;9002226.02101,"804,58016-0261-00 ",.02)
  1. ;;58016-0261-00
  1. ;;9002226.02101,"804,58016-0261-02 ",.01)
  1. ;;58016-0261-02
  1. ;;9002226.02101,"804,58016-0261-02 ",.02)
  1. ;;58016-0261-02
  1. ;;9002226.02101,"804,58016-0261-03 ",.01)
  1. ;;58016-0261-03
  1. ;;9002226.02101,"804,58016-0261-03 ",.02)
  1. ;;58016-0261-03
  1. ;;9002226.02101,"804,58016-0261-04 ",.01)
  1. ;;58016-0261-04
  1. ;;9002226.02101,"804,58016-0261-04 ",.02)
  1. ;;58016-0261-04
  1. ;;9002226.02101,"804,58016-0261-07 ",.01)
  1. ;;58016-0261-07
  1. ;;9002226.02101,"804,58016-0261-07 ",.02)
  1. ;;58016-0261-07
  1. ;;9002226.02101,"804,58016-0261-10 ",.01)
  1. ;;58016-0261-10
  1. ;;9002226.02101,"804,58016-0261-10 ",.02)
  1. ;;58016-0261-10
  1. ;;9002226.02101,"804,58016-0261-12 ",.01)
  1. ;;58016-0261-12
  1. ;;9002226.02101,"804,58016-0261-12 ",.02)
  1. ;;58016-0261-12
  1. ;;9002226.02101,"804,58016-0261-14 ",.01)
  1. ;;58016-0261-14
  1. ;;9002226.02101,"804,58016-0261-14 ",.02)
  1. ;;58016-0261-14
  1. ;;9002226.02101,"804,58016-0261-15 ",.01)
  1. ;;58016-0261-15
  1. ;;9002226.02101,"804,58016-0261-15 ",.02)
  1. ;;58016-0261-15
  1. ;;9002226.02101,"804,58016-0261-16 ",.01)
  1. ;;58016-0261-16
  1. ;;9002226.02101,"804,58016-0261-16 ",.02)
  1. ;;58016-0261-16
  1. ;;9002226.02101,"804,58016-0261-18 ",.01)
  1. ;;58016-0261-18
  1. ;;9002226.02101,"804,58016-0261-18 ",.02)
  1. ;;58016-0261-18
  1. ;;9002226.02101,"804,58016-0261-20 ",.01)
  1. ;;58016-0261-20
  1. ;;9002226.02101,"804,58016-0261-20 ",.02)
  1. ;;58016-0261-20
  1. ;;9002226.02101,"804,58016-0261-21 ",.01)
  1. ;;58016-0261-21
  1. ;;9002226.02101,"804,58016-0261-21 ",.02)
  1. ;;58016-0261-21
  1. ;;9002226.02101,"804,58016-0261-24 ",.01)
  1. ;;58016-0261-24
  1. ;;9002226.02101,"804,58016-0261-24 ",.02)
  1. ;;58016-0261-24
  1. ;;9002226.02101,"804,58016-0261-25 ",.01)
  1. ;;58016-0261-25
  1. ;;9002226.02101,"804,58016-0261-25 ",.02)
  1. ;;58016-0261-25
  1. ;;9002226.02101,"804,58016-0261-28 ",.01)
  1. ;;58016-0261-28
  1. ;;9002226.02101,"804,58016-0261-28 ",.02)
  1. ;;58016-0261-28
  1. ;;9002226.02101,"804,58016-0261-30 ",.01)
  1. ;;58016-0261-30
  1. ;;9002226.02101,"804,58016-0261-30 ",.02)
  1. ;;58016-0261-30
  1. ;;9002226.02101,"804,58016-0261-40 ",.01)
  1. ;;58016-0261-40
  1. ;;9002226.02101,"804,58016-0261-40 ",.02)
  1. ;;58016-0261-40
  1. ;;9002226.02101,"804,58016-0261-42 ",.01)
  1. ;;58016-0261-42
  1. ;;9002226.02101,"804,58016-0261-42 ",.02)
  1. ;;58016-0261-42
  1. ;;9002226.02101,"804,58016-0261-45 ",.01)
  1. ;;58016-0261-45
  1. ;;9002226.02101,"804,58016-0261-45 ",.02)
  1. ;;58016-0261-45
  1. ;;9002226.02101,"804,58016-0261-50 ",.01)
  1. ;;58016-0261-50
  1. ;;9002226.02101,"804,58016-0261-50 ",.02)
  1. ;;58016-0261-50
  1. ;;9002226.02101,"804,58016-0261-56 ",.01)
  1. ;;58016-0261-56
  1. ;;9002226.02101,"804,58016-0261-56 ",.02)
  1. ;;58016-0261-56
  1. ;;9002226.02101,"804,58016-0261-60 ",.01)
  1. ;;58016-0261-60
  1. ;;9002226.02101,"804,58016-0261-60 ",.02)
  1. ;;58016-0261-60
  1. ;;9002226.02101,"804,58016-0261-62 ",.01)
  1. ;;58016-0261-62
  1. ;;9002226.02101,"804,58016-0261-62 ",.02)
  1. ;;58016-0261-62
  1. ;;9002226.02101,"804,58016-0261-71 ",.01)
  1. ;;58016-0261-71
  1. ;;9002226.02101,"804,58016-0261-71 ",.02)
  1. ;;58016-0261-71
  1. ;;9002226.02101,"804,58016-0261-73 ",.01)
  1. ;;58016-0261-73
  1. ;;9002226.02101,"804,58016-0261-73 ",.02)
  1. ;;58016-0261-73
  1. ;;9002226.02101,"804,58016-0261-80 ",.01)
  1. ;;58016-0261-80
  1. ;;9002226.02101,"804,58016-0261-80 ",.02)
  1. ;;58016-0261-80
  1. ;;9002226.02101,"804,58016-0261-89 ",.01)
  1. ;;58016-0261-89
  1. ;;9002226.02101,"804,58016-0261-89 ",.02)
  1. ;;58016-0261-89
  1. ;;9002226.02101,"804,58016-0261-90 ",.01)
  1. ;;58016-0261-90
  1. ;;9002226.02101,"804,58016-0261-90 ",.02)
  1. ;;58016-0261-90
  1. ;;9002226.02101,"804,58016-0261-92 ",.01)
  1. ;;58016-0261-92
  1. ;;9002226.02101,"804,58016-0261-92 ",.02)
  1. ;;58016-0261-92
  1. ;;9002226.02101,"804,58016-0261-99 ",.01)
  1. ;;58016-0261-99
  1. ;;9002226.02101,"804,58016-0261-99 ",.02)
  1. ;;58016-0261-99
  1. ;;9002226.02101,"804,58016-0281-30 ",.01)
  1. ;;58016-0281-30
  1. ;;9002226.02101,"804,58016-0281-30 ",.02)
  1. ;;58016-0281-30
  1. ;;9002226.02101,"804,58016-0291-00 ",.01)
  1. ;;58016-0291-00
  1. ;;9002226.02101,"804,58016-0291-00 ",.02)
  1. ;;58016-0291-00
  1. ;;9002226.02101,"804,58016-0291-02 ",.01)
  1. ;;58016-0291-02
  1. ;;9002226.02101,"804,58016-0291-02 ",.02)
  1. ;;58016-0291-02
  1. ;;9002226.02101,"804,58016-0291-03 ",.01)
  1. ;;58016-0291-03
  1. ;;9002226.02101,"804,58016-0291-03 ",.02)
  1. ;;58016-0291-03
  1. ;;9002226.02101,"804,58016-0291-08 ",.01)
  1. ;;58016-0291-08
  1. ;;9002226.02101,"804,58016-0291-08 ",.02)
  1. ;;58016-0291-08
  1. ;;9002226.02101,"804,58016-0291-10 ",.01)
  1. ;;58016-0291-10
  1. ;;9002226.02101,"804,58016-0291-10 ",.02)
  1. ;;58016-0291-10
  1. ;;9002226.02101,"804,58016-0291-12 ",.01)
  1. ;;58016-0291-12
  1. ;;9002226.02101,"804,58016-0291-12 ",.02)
  1. ;;58016-0291-12
  1. ;;9002226.02101,"804,58016-0291-14 ",.01)
  1. ;;58016-0291-14
  1. ;;9002226.02101,"804,58016-0291-14 ",.02)
  1. ;;58016-0291-14
  1. ;;9002226.02101,"804,58016-0291-15 ",.01)
  1. ;;58016-0291-15
  1. ;;9002226.02101,"804,58016-0291-15 ",.02)
  1. ;;58016-0291-15
  1. ;;9002226.02101,"804,58016-0291-16 ",.01)
  1. ;;58016-0291-16
  1. ;;9002226.02101,"804,58016-0291-16 ",.02)
  1. ;;58016-0291-16
  1. ;;9002226.02101,"804,58016-0291-20 ",.01)
  1. ;;58016-0291-20
  1. ;;9002226.02101,"804,58016-0291-20 ",.02)
  1. ;;58016-0291-20
  1. ;;9002226.02101,"804,58016-0291-21 ",.01)
  1. ;;58016-0291-21
  1. ;;9002226.02101,"804,58016-0291-21 ",.02)
  1. ;;58016-0291-21
  1. ;;9002226.02101,"804,58016-0291-24 ",.01)
  1. ;;58016-0291-24
  1. ;;9002226.02101,"804,58016-0291-24 ",.02)
  1. ;;58016-0291-24
  1. ;;9002226.02101,"804,58016-0291-28 ",.01)
  1. ;;58016-0291-28
  1. ;;9002226.02101,"804,58016-0291-28 ",.02)
  1. ;;58016-0291-28
  1. ;;9002226.02101,"804,58016-0291-30 ",.01)
  1. ;;58016-0291-30
  1. ;;9002226.02101,"804,58016-0291-30 ",.02)
  1. ;;58016-0291-30
  1. ;;9002226.02101,"804,58016-0291-40 ",.01)
  1. ;;58016-0291-40
  1. ;;9002226.02101,"804,58016-0291-40 ",.02)
  1. ;;58016-0291-40
  1. ;;9002226.02101,"804,58016-0291-42 ",.01)
  1. ;;58016-0291-42
  1. ;;9002226.02101,"804,58016-0291-42 ",.02)
  1. ;;58016-0291-42
  1. ;;9002226.02101,"804,58016-0291-56 ",.01)
  1. ;;58016-0291-56
  1. ;;9002226.02101,"804,58016-0291-56 ",.02)
  1. ;;58016-0291-56
  1. ;;9002226.02101,"804,58016-0291-60 ",.01)
  1. ;;58016-0291-60
  1. ;;9002226.02101,"804,58016-0291-60 ",.02)
  1. ;;58016-0291-60
  1. ;;9002226.02101,"804,58016-0291-73 ",.01)
  1. ;;58016-0291-73
  1. ;;9002226.02101,"804,58016-0291-73 ",.02)
  1. ;;58016-0291-73
  1. ;;9002226.02101,"804,58016-0291-89 ",.01)
  1. ;;58016-0291-89
  1. ;;9002226.02101,"804,58016-0291-89 ",.02)
  1. ;;58016-0291-89
  1. ;;9002226.02101,"804,58016-0291-90 ",.01)
  1. ;;58016-0291-90
  1. ;;9002226.02101,"804,58016-0291-90 ",.02)
  1. ;;58016-0291-90
  1. ;;9002226.02101,"804,58016-0488-00 ",.01)
  1. ;;58016-0488-00
  1. ;;9002226.02101,"804,58016-0488-00 ",.02)
  1. ;;58016-0488-00
  1. ;;9002226.02101,"804,58016-0488-02 ",.01)
  1. ;;58016-0488-02
  1. ;;9002226.02101,"804,58016-0488-02 ",.02)
  1. ;;58016-0488-02
  1. ;;9002226.02101,"804,58016-0488-03 ",.01)
  1. ;;58016-0488-03
  1. ;;9002226.02101,"804,58016-0488-03 ",.02)
  1. ;;58016-0488-03
  1. ;;9002226.02101,"804,58016-0488-04 ",.01)
  1. ;;58016-0488-04
  1. ;;9002226.02101,"804,58016-0488-04 ",.02)
  1. ;;58016-0488-04
  1. ;;9002226.02101,"804,58016-0488-07 ",.01)
  1. ;;58016-0488-07
  1. ;;9002226.02101,"804,58016-0488-07 ",.02)
  1. ;;58016-0488-07
  1. ;;9002226.02101,"804,58016-0488-10 ",.01)
  1. ;;58016-0488-10
  1. ;;9002226.02101,"804,58016-0488-10 ",.02)
  1. ;;58016-0488-10
  1. ;;9002226.02101,"804,58016-0488-12 ",.01)
  1. ;;58016-0488-12
  1. ;;9002226.02101,"804,58016-0488-12 ",.02)
  1. ;;58016-0488-12
  1. ;;9002226.02101,"804,58016-0488-14 ",.01)
  1. ;;58016-0488-14
  1. ;;9002226.02101,"804,58016-0488-14 ",.02)
  1. ;;58016-0488-14
  1. ;;9002226.02101,"804,58016-0488-15 ",.01)
  1. ;;58016-0488-15
  1. ;;9002226.02101,"804,58016-0488-15 ",.02)
  1. ;;58016-0488-15
  1. ;;9002226.02101,"804,58016-0488-16 ",.01)
  1. ;;58016-0488-16
  1. ;;9002226.02101,"804,58016-0488-16 ",.02)
  1. ;;58016-0488-16
  1. ;;9002226.02101,"804,58016-0488-18 ",.01)
  1. ;;58016-0488-18
  1. ;;9002226.02101,"804,58016-0488-18 ",.02)
  1. ;;58016-0488-18
  1. ;;9002226.02101,"804,58016-0488-20 ",.01)
  1. ;;58016-0488-20
  1. ;;9002226.02101,"804,58016-0488-20 ",.02)
  1. ;;58016-0488-20
  1. ;;9002226.02101,"804,58016-0488-21 ",.01)
  1. ;;58016-0488-21
  1. ;;9002226.02101,"804,58016-0488-21 ",.02)
  1. ;;58016-0488-21
  1. ;;9002226.02101,"804,58016-0488-24 ",.01)
  1. ;;58016-0488-24