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

BGP7LXFD.m

Go to the documentation of this file.
  1. BGP7LXFD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  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,"623,00182-1099-00 ",.01)
  1. ;;00182-1099-00
  1. ;;9002226.02101,"623,00182-1099-00 ",.02)
  1. ;;00182-1099-00
  1. ;;9002226.02101,"623,00182-1274-01 ",.01)
  1. ;;00182-1274-01
  1. ;;9002226.02101,"623,00182-1274-01 ",.02)
  1. ;;00182-1274-01
  1. ;;9002226.02101,"623,00182-1274-05 ",.01)
  1. ;;00182-1274-05
  1. ;;9002226.02101,"623,00182-1274-05 ",.02)
  1. ;;00182-1274-05
  1. ;;9002226.02101,"623,00182-1631-01 ",.01)
  1. ;;00182-1631-01
  1. ;;9002226.02101,"623,00182-1631-01 ",.02)
  1. ;;00182-1631-01
  1. ;;9002226.02101,"623,00182-1631-10 ",.01)
  1. ;;00182-1631-10
  1. ;;9002226.02101,"623,00182-1631-10 ",.02)
  1. ;;00182-1631-10
  1. ;;9002226.02101,"623,00182-2659-01 ",.01)
  1. ;;00182-2659-01
  1. ;;9002226.02101,"623,00182-2659-01 ",.02)
  1. ;;00182-2659-01
  1. ;;9002226.02101,"623,00182-2659-05 ",.01)
  1. ;;00182-2659-05
  1. ;;9002226.02101,"623,00182-2659-05 ",.02)
  1. ;;00182-2659-05
  1. ;;9002226.02101,"623,00182-2693-01 ",.01)
  1. ;;00182-2693-01
  1. ;;9002226.02101,"623,00182-2693-01 ",.02)
  1. ;;00182-2693-01
  1. ;;9002226.02101,"623,00182-2694-01 ",.01)
  1. ;;00182-2694-01
  1. ;;9002226.02101,"623,00182-2694-01 ",.02)
  1. ;;00182-2694-01
  1. ;;9002226.02101,"623,00185-0015-10 ",.01)
  1. ;;00185-0015-10
  1. ;;9002226.02101,"623,00185-0015-10 ",.02)
  1. ;;00185-0015-10
  1. ;;9002226.02101,"623,00185-0030-10 ",.01)
  1. ;;00185-0030-10
  1. ;;9002226.02101,"623,00185-0030-10 ",.02)
  1. ;;00185-0030-10
  1. ;;9002226.02101,"623,00187-0842-01 ",.01)
  1. ;;00187-0842-01
  1. ;;9002226.02101,"623,00187-0842-01 ",.02)
  1. ;;00187-0842-01
  1. ;;9002226.02101,"623,00187-0843-01 ",.01)
  1. ;;00187-0843-01
  1. ;;9002226.02101,"623,00187-0843-01 ",.02)
  1. ;;00187-0843-01
  1. ;;9002226.02101,"623,00187-0844-01 ",.01)
  1. ;;00187-0844-01
  1. ;;9002226.02101,"623,00187-0844-01 ",.02)
  1. ;;00187-0844-01
  1. ;;9002226.02101,"623,00187-0844-02 ",.01)
  1. ;;00187-0844-02
  1. ;;9002226.02101,"623,00187-0844-02 ",.02)
  1. ;;00187-0844-02
  1. ;;9002226.02101,"623,00223-0585-00 ",.01)
  1. ;;00223-0585-00
  1. ;;9002226.02101,"623,00223-0585-00 ",.02)
  1. ;;00223-0585-00
  1. ;;9002226.02101,"623,00223-0585-02 ",.01)
  1. ;;00223-0585-02
  1. ;;9002226.02101,"623,00223-0585-02 ",.02)
  1. ;;00223-0585-02
  1. ;;9002226.02101,"623,00223-1049-05 ",.01)
  1. ;;00223-1049-05
  1. ;;9002226.02101,"623,00223-1049-05 ",.02)
  1. ;;00223-1049-05
  1. ;;9002226.02101,"623,00223-1050-05 ",.01)
  1. ;;00223-1050-05
  1. ;;9002226.02101,"623,00223-1050-05 ",.02)
  1. ;;00223-1050-05
  1. ;;9002226.02101,"623,00223-1051-05 ",.01)
  1. ;;00223-1051-05
  1. ;;9002226.02101,"623,00223-1051-05 ",.02)
  1. ;;00223-1051-05
  1. ;;9002226.02101,"623,00223-1430-01 ",.01)
  1. ;;00223-1430-01
  1. ;;9002226.02101,"623,00223-1430-01 ",.02)
  1. ;;00223-1430-01
  1. ;;9002226.02101,"623,00223-1430-02 ",.01)
  1. ;;00223-1430-02
  1. ;;9002226.02101,"623,00223-1430-02 ",.02)
  1. ;;00223-1430-02
  1. ;;9002226.02101,"623,00223-1431-01 ",.01)
  1. ;;00223-1431-01
  1. ;;9002226.02101,"623,00223-1431-01 ",.02)
  1. ;;00223-1431-01
  1. ;;9002226.02101,"623,00223-1431-02 ",.01)
  1. ;;00223-1431-02
  1. ;;9002226.02101,"623,00223-1431-02 ",.02)
  1. ;;00223-1431-02
  1. ;;9002226.02101,"623,00223-1432-01 ",.01)
  1. ;;00223-1432-01
  1. ;;9002226.02101,"623,00223-1432-01 ",.02)
  1. ;;00223-1432-01
  1. ;;9002226.02101,"623,00223-1432-02 ",.01)
  1. ;;00223-1432-02
  1. ;;9002226.02101,"623,00223-1432-02 ",.02)
  1. ;;00223-1432-02
  1. ;;9002226.02101,"623,00223-1433-01 ",.01)
  1. ;;00223-1433-01
  1. ;;9002226.02101,"623,00223-1433-01 ",.02)
  1. ;;00223-1433-01
  1. ;;9002226.02101,"623,00223-1433-02 ",.01)
  1. ;;00223-1433-02
  1. ;;9002226.02101,"623,00223-1433-02 ",.02)
  1. ;;00223-1433-02
  1. ;;9002226.02101,"623,00228-2023-10 ",.01)
  1. ;;00228-2023-10
  1. ;;9002226.02101,"623,00228-2023-10 ",.02)
  1. ;;00228-2023-10
  1. ;;9002226.02101,"623,00228-2023-96 ",.01)
  1. ;;00228-2023-96
  1. ;;9002226.02101,"623,00228-2023-96 ",.02)
  1. ;;00228-2023-96
  1. ;;9002226.02101,"623,00228-2026-96 ",.01)
  1. ;;00228-2026-96
  1. ;;9002226.02101,"623,00228-2026-96 ",.02)
  1. ;;00228-2026-96
  1. ;;9002226.02101,"623,00228-2028-96 ",.01)
  1. ;;00228-2028-96
  1. ;;9002226.02101,"623,00228-2028-96 ",.02)
  1. ;;00228-2028-96
  1. ;;9002226.02101,"623,00247-0185-05 ",.01)
  1. ;;00247-0185-05
  1. ;;9002226.02101,"623,00247-0185-05 ",.02)
  1. ;;00247-0185-05
  1. ;;9002226.02101,"623,00247-0185-10 ",.01)
  1. ;;00247-0185-10
  1. ;;9002226.02101,"623,00247-0185-10 ",.02)
  1. ;;00247-0185-10
  1. ;;9002226.02101,"623,00247-0185-12 ",.01)
  1. ;;00247-0185-12
  1. ;;9002226.02101,"623,00247-0185-12 ",.02)
  1. ;;00247-0185-12
  1. ;;9002226.02101,"623,00247-0185-20 ",.01)
  1. ;;00247-0185-20
  1. ;;9002226.02101,"623,00247-0185-20 ",.02)
  1. ;;00247-0185-20
  1. ;;9002226.02101,"623,00247-0185-24 ",.01)
  1. ;;00247-0185-24
  1. ;;9002226.02101,"623,00247-0185-24 ",.02)
  1. ;;00247-0185-24
  1. ;;9002226.02101,"623,00247-0185-25 ",.01)
  1. ;;00247-0185-25
  1. ;;9002226.02101,"623,00247-0185-25 ",.02)
  1. ;;00247-0185-25
  1. ;;9002226.02101,"623,00247-0185-30 ",.01)
  1. ;;00247-0185-30
  1. ;;9002226.02101,"623,00247-0185-30 ",.02)
  1. ;;00247-0185-30
  1. ;;9002226.02101,"623,00247-0214-00 ",.01)
  1. ;;00247-0214-00
  1. ;;9002226.02101,"623,00247-0214-00 ",.02)
  1. ;;00247-0214-00
  1. ;;9002226.02101,"623,00247-0214-06 ",.01)
  1. ;;00247-0214-06
  1. ;;9002226.02101,"623,00247-0214-06 ",.02)
  1. ;;00247-0214-06
  1. ;;9002226.02101,"623,00247-0214-09 ",.01)
  1. ;;00247-0214-09
  1. ;;9002226.02101,"623,00247-0214-09 ",.02)
  1. ;;00247-0214-09
  1. ;;9002226.02101,"623,00247-0214-12 ",.01)
  1. ;;00247-0214-12
  1. ;;9002226.02101,"623,00247-0214-12 ",.02)
  1. ;;00247-0214-12
  1. ;;9002226.02101,"623,00247-0214-15 ",.01)
  1. ;;00247-0214-15
  1. ;;9002226.02101,"623,00247-0214-15 ",.02)
  1. ;;00247-0214-15
  1. ;;9002226.02101,"623,00247-0214-20 ",.01)
  1. ;;00247-0214-20
  1. ;;9002226.02101,"623,00247-0214-20 ",.02)
  1. ;;00247-0214-20
  1. ;;9002226.02101,"623,00247-0214-25 ",.01)
  1. ;;00247-0214-25
  1. ;;9002226.02101,"623,00247-0214-25 ",.02)
  1. ;;00247-0214-25
  1. ;;9002226.02101,"623,00247-0214-28 ",.01)
  1. ;;00247-0214-28
  1. ;;9002226.02101,"623,00247-0214-28 ",.02)
  1. ;;00247-0214-28
  1. ;;9002226.02101,"623,00247-0214-30 ",.01)
  1. ;;00247-0214-30
  1. ;;9002226.02101,"623,00247-0214-30 ",.02)
  1. ;;00247-0214-30
  1. ;;9002226.02101,"623,00247-0337-00 ",.01)
  1. ;;00247-0337-00
  1. ;;9002226.02101,"623,00247-0337-00 ",.02)
  1. ;;00247-0337-00
  1. ;;9002226.02101,"623,00247-0337-06 ",.01)
  1. ;;00247-0337-06
  1. ;;9002226.02101,"623,00247-0337-06 ",.02)
  1. ;;00247-0337-06
  1. ;;9002226.02101,"623,00247-0337-10 ",.01)
  1. ;;00247-0337-10
  1. ;;9002226.02101,"623,00247-0337-10 ",.02)
  1. ;;00247-0337-10
  1. ;;9002226.02101,"623,00247-0337-12 ",.01)
  1. ;;00247-0337-12
  1. ;;9002226.02101,"623,00247-0337-12 ",.02)
  1. ;;00247-0337-12
  1. ;;9002226.02101,"623,00247-0337-15 ",.01)
  1. ;;00247-0337-15
  1. ;;9002226.02101,"623,00247-0337-15 ",.02)
  1. ;;00247-0337-15
  1. ;;9002226.02101,"623,00247-0337-16 ",.01)
  1. ;;00247-0337-16
  1. ;;9002226.02101,"623,00247-0337-16 ",.02)
  1. ;;00247-0337-16
  1. ;;9002226.02101,"623,00247-0337-20 ",.01)
  1. ;;00247-0337-20
  1. ;;9002226.02101,"623,00247-0337-20 ",.02)
  1. ;;00247-0337-20
  1. ;;9002226.02101,"623,00247-0337-24 ",.01)
  1. ;;00247-0337-24
  1. ;;9002226.02101,"623,00247-0337-24 ",.02)
  1. ;;00247-0337-24
  1. ;;9002226.02101,"623,00247-0337-25 ",.01)
  1. ;;00247-0337-25
  1. ;;9002226.02101,"623,00247-0337-25 ",.02)
  1. ;;00247-0337-25
  1. ;;9002226.02101,"623,00247-0337-30 ",.01)
  1. ;;00247-0337-30
  1. ;;9002226.02101,"623,00247-0337-30 ",.02)
  1. ;;00247-0337-30
  1. ;;9002226.02101,"623,00247-0337-50 ",.01)
  1. ;;00247-0337-50
  1. ;;9002226.02101,"623,00247-0337-50 ",.02)
  1. ;;00247-0337-50
  1. ;;9002226.02101,"623,00247-1053-20 ",.01)
  1. ;;00247-1053-20
  1. ;;9002226.02101,"623,00247-1053-20 ",.02)
  1. ;;00247-1053-20
  1. ;;9002226.02101,"623,00247-1053-24 ",.01)
  1. ;;00247-1053-24
  1. ;;9002226.02101,"623,00247-1053-24 ",.02)
  1. ;;00247-1053-24
  1. ;;9002226.02101,"623,00247-1053-30 ",.01)
  1. ;;00247-1053-30
  1. ;;9002226.02101,"623,00247-1053-30 ",.02)
  1. ;;00247-1053-30
  1. ;;9002226.02101,"623,00247-1350-30 ",.01)
  1. ;;00247-1350-30
  1. ;;9002226.02101,"623,00247-1350-30 ",.02)
  1. ;;00247-1350-30
  1. ;;9002226.02101,"623,00247-1350-52 ",.01)
  1. ;;00247-1350-52
  1. ;;9002226.02101,"623,00247-1350-52 ",.02)
  1. ;;00247-1350-52
  1. ;;9002226.02101,"623,00247-1350-60 ",.01)
  1. ;;00247-1350-60
  1. ;;9002226.02101,"623,00247-1350-60 ",.02)
  1. ;;00247-1350-60
  1. ;;9002226.02101,"623,00247-1350-77 ",.01)
  1. ;;00247-1350-77
  1. ;;9002226.02101,"623,00247-1350-77 ",.02)
  1. ;;00247-1350-77
  1. ;;9002226.02101,"623,00254-5011-38 ",.01)
  1. ;;00254-5011-38
  1. ;;9002226.02101,"623,00254-5011-38 ",.02)
  1. ;;00254-5011-38
  1. ;;9002226.02101,"623,00254-5012-28 ",.01)
  1. ;;00254-5012-28
  1. ;;9002226.02101,"623,00254-5012-28 ",.02)
  1. ;;00254-5012-28
  1. ;;9002226.02101,"623,00254-5012-38 ",.01)
  1. ;;00254-5012-38
  1. ;;9002226.02101,"623,00254-5012-38 ",.02)
  1. ;;00254-5012-38
  1. ;;9002226.02101,"623,00254-5013-28 ",.01)
  1. ;;00254-5013-28
  1. ;;9002226.02101,"623,00254-5013-28 ",.02)
  1. ;;00254-5013-28
  1. ;;9002226.02101,"623,00254-5013-38 ",.01)
  1. ;;00254-5013-38
  1. ;;9002226.02101,"623,00254-5013-38 ",.02)
  1. ;;00254-5013-38
  1. ;;9002226.02101,"623,00254-5014-28 ",.01)
  1. ;;00254-5014-28
  1. ;;9002226.02101,"623,00254-5014-28 ",.02)
  1. ;;00254-5014-28
  1. ;;9002226.02101,"623,00254-9355-58 ",.01)
  1. ;;00254-9355-58
  1. ;;9002226.02101,"623,00254-9355-58 ",.02)
  1. ;;00254-9355-58
  1. ;;9002226.02101,"623,00258-3657-01 ",.01)
  1. ;;00258-3657-01
  1. ;;9002226.02101,"623,00258-3657-01 ",.02)
  1. ;;00258-3657-01
  1. ;;9002226.02101,"623,00258-3665-01 ",.01)
  1. ;;00258-3665-01
  1. ;;9002226.02101,"623,00258-3665-01 ",.02)
  1. ;;00258-3665-01
  1. ;;9002226.02101,"623,00258-3665-05 ",.01)
  1. ;;00258-3665-05
  1. ;;9002226.02101,"623,00258-3665-05 ",.02)
  1. ;;00258-3665-05
  1. ;;9002226.02101,"623,00259-0392-01 ",.01)
  1. ;;00259-0392-01
  1. ;;9002226.02101,"623,00259-0392-01 ",.02)
  1. ;;00259-0392-01
  1. ;;9002226.02101,"623,00259-1278-01 ",.01)
  1. ;;00259-1278-01
  1. ;;9002226.02101,"623,00259-1278-01 ",.02)
  1. ;;00259-1278-01
  1. ;;9002226.02101,"623,00281-0198-17 ",.01)
  1. ;;00281-0198-17
  1. ;;9002226.02101,"623,00281-0198-17 ",.02)
  1. ;;00281-0198-17
  1. ;;9002226.02101,"623,00281-0389-53 ",.01)
  1. ;;00281-0389-53
  1. ;;9002226.02101,"623,00281-0389-53 ",.02)
  1. ;;00281-0389-53
  1. ;;9002226.02101,"623,00298-2472-11 ",.01)
  1. ;;00298-2472-11
  1. ;;9002226.02101,"623,00298-2472-11 ",.02)
  1. ;;00298-2472-11
  1. ;;9002226.02101,"623,00302-2270-01 ",.01)
  1. ;;00302-2270-01
  1. ;;9002226.02101,"623,00302-2270-01 ",.02)
  1. ;;00302-2270-01
  1. ;;9002226.02101,"623,00302-2270-10 ",.01)
  1. ;;00302-2270-10
  1. ;;9002226.02101,"623,00302-2270-10 ",.02)
  1. ;;00302-2270-10
  1. ;;9002226.02101,"623,00302-3470-01 ",.01)
  1. ;;00302-3470-01
  1. ;;9002226.02101,"623,00302-3470-01 ",.02)
  1. ;;00302-3470-01
  1. ;;9002226.02101,"623,00302-3470-05 ",.01)
  1. ;;00302-3470-05
  1. ;;9002226.02101,"623,00302-3470-05 ",.02)
  1. ;;00302-3470-05
  1. ;;9002226.02101,"623,00302-3470-10 ",.01)
  1. ;;00302-3470-10
  1. ;;9002226.02101,"623,00302-3470-10 ",.02)
  1. ;;00302-3470-10
  1. ;;9002226.02101,"623,00302-3471-01 ",.01)
  1. ;;00302-3471-01
  1. ;;9002226.02101,"623,00302-3471-01 ",.02)
  1. ;;00302-3471-01
  1. ;;9002226.02101,"623,00302-3471-10 ",.01)
  1. ;;00302-3471-10
  1. ;;9002226.02101,"623,00302-3471-10 ",.02)
  1. ;;00302-3471-10
  1. ;;9002226.02101,"623,00302-3472-01 ",.01)
  1. ;;00302-3472-01
  1. ;;9002226.02101,"623,00302-3472-01 ",.02)
  1. ;;00302-3472-01
  1. ;;9002226.02101,"623,00304-0112-00 ",.01)
  1. ;;00304-0112-00
  1. ;;9002226.02101,"623,00304-0112-00 ",.02)
  1. ;;00304-0112-00
  1. ;;9002226.02101,"623,00314-2229-01 ",.01)
  1. ;;00314-2229-01
  1. ;;9002226.02101,"623,00314-2229-01 ",.02)
  1. ;;00314-2229-01
  1. ;;9002226.02101,"623,00339-4083-12 ",.01)
  1. ;;00339-4083-12
  1. ;;9002226.02101,"623,00339-4083-12 ",.02)
  1. ;;00339-4083-12
  1. ;;9002226.02101,"623,00339-5843-12 ",.01)
  1. ;;00339-5843-12
  1. ;;9002226.02101,"623,00339-5843-12 ",.02)
  1. ;;00339-5843-12
  1. ;;9002226.02101,"623,00349-2058-01 ",.01)
  1. ;;00349-2058-01
  1. ;;9002226.02101,"623,00349-2058-01 ",.02)
  1. ;;00349-2058-01
  1. ;;9002226.02101,"623,00349-2058-10 ",.01)
  1. ;;00349-2058-10
  1. ;;9002226.02101,"623,00349-2058-10 ",.02)
  1. ;;00349-2058-10
  1. ;;9002226.02101,"623,00349-2156-01 ",.01)
  1. ;;00349-2156-01
  1. ;;9002226.02101,"623,00349-2156-01 ",.02)
  1. ;;00349-2156-01
  1. ;;9002226.02101,"623,00349-2156-05 ",.01)
  1. ;;00349-2156-05
  1. ;;9002226.02101,"623,00349-2156-05 ",.02)
  1. ;;00349-2156-05
  1. ;;9002226.02101,"623,00349-2157-01 ",.01)
  1. ;;00349-2157-01
  1. ;;9002226.02101,"623,00349-2157-01 ",.02)
  1. ;;00349-2157-01
  1. ;;9002226.02101,"623,00349-2157-05 ",.01)
  1. ;;00349-2157-05
  1. ;;9002226.02101,"623,00349-2157-05 ",.02)
  1. ;;00349-2157-05
  1. ;;9002226.02101,"623,00349-2157-10 ",.01)
  1. ;;00349-2157-10
  1. ;;9002226.02101,"623,00349-2157-10 ",.02)
  1. ;;00349-2157-10
  1. ;;9002226.02101,"623,00349-2158-01 ",.01)
  1. ;;00349-2158-01
  1. ;;9002226.02101,"623,00349-2158-01 ",.02)
  1. ;;00349-2158-01
  1. ;;9002226.02101,"623,00353-2624-01 ",.01)
  1. ;;00353-2624-01
  1. ;;9002226.02101,"623,00353-2624-01 ",.02)
  1. ;;00353-2624-01
  1. ;;9002226.02101,"623,00353-2624-03 ",.01)
  1. ;;00353-2624-03
  1. ;;9002226.02101,"623,00353-2624-03 ",.02)
  1. ;;00353-2624-03
  1. ;;9002226.02101,"623,00363-0379-26 ",.01)
  1. ;;00363-0379-26
  1. ;;9002226.02101,"623,00363-0379-26 ",.02)
  1. ;;00363-0379-26
  1. ;;9002226.02101,"623,00363-0379-34 ",.01)
  1. ;;00363-0379-34
  1. ;;9002226.02101,"623,00363-0379-34 ",.02)
  1. ;;00363-0379-34
  1. ;;9002226.02101,"623,00364-0485-01 ",.01)
  1. ;;00364-0485-01
  1. ;;9002226.02101,"623,00364-0485-01 ",.02)
  1. ;;00364-0485-01
  1. ;;9002226.02101,"623,00364-0677-01 ",.01)
  1. ;;00364-0677-01
  1. ;;9002226.02101,"623,00364-0677-01 ",.02)
  1. ;;00364-0677-01
  1. ;;9002226.02101,"623,00403-0413-18 ",.01)
  1. ;;00403-0413-18
  1. ;;9002226.02101,"623,00403-0413-18 ",.02)
  1. ;;00403-0413-18
  1. ;;9002226.02101,"623,00405-0026-01 ",.01)
  1. ;;00405-0026-01
  1. ;;9002226.02101,"623,00405-0026-01 ",.02)
  1. ;;00405-0026-01
  1. ;;9002226.02101,"623,00405-0026-02 ",.01)
  1. ;;00405-0026-02
  1. ;;9002226.02101,"623,00405-0026-02 ",.02)
  1. ;;00405-0026-02
  1. ;;9002226.02101,"623,00405-0028-01 ",.01)
  1. ;;00405-0028-01
  1. ;;9002226.02101,"623,00405-0028-01 ",.02)
  1. ;;00405-0028-01