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