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

BGP06W3.m

Go to the documentation of this file.
  1. BGP06W3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  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,00085-0487-10 ",.01)
  1. ;;00085-0487-10
  1. ;;9002226.02101,"804,00085-0487-10 ",.02)
  1. ;;00085-0487-10
  1. ;;9002226.02101,"804,00085-0487-50 ",.01)
  1. ;;00085-0487-50
  1. ;;9002226.02101,"804,00085-0487-50 ",.02)
  1. ;;00085-0487-50
  1. ;;9002226.02101,"804,00085-0487-81 ",.01)
  1. ;;00085-0487-81
  1. ;;9002226.02101,"804,00085-0487-81 ",.02)
  1. ;;00085-0487-81
  1. ;;9002226.02101,"804,00085-0584-01 ",.01)
  1. ;;00085-0584-01
  1. ;;9002226.02101,"804,00085-0584-01 ",.02)
  1. ;;00085-0584-01
  1. ;;9002226.02101,"804,00085-0584-05 ",.01)
  1. ;;00085-0584-05
  1. ;;9002226.02101,"804,00085-0584-05 ",.02)
  1. ;;00085-0584-05
  1. ;;9002226.02101,"804,00085-0584-10 ",.01)
  1. ;;00085-0584-10
  1. ;;9002226.02101,"804,00085-0584-10 ",.02)
  1. ;;00085-0584-10
  1. ;;9002226.02101,"804,00085-0584-50 ",.01)
  1. ;;00085-0584-50
  1. ;;9002226.02101,"804,00085-0584-50 ",.02)
  1. ;;00085-0584-50
  1. ;;9002226.02101,"804,00085-0584-81 ",.01)
  1. ;;00085-0584-81
  1. ;;9002226.02101,"804,00085-0584-81 ",.02)
  1. ;;00085-0584-81
  1. ;;9002226.02101,"804,00085-0694-01 ",.01)
  1. ;;00085-0694-01
  1. ;;9002226.02101,"804,00085-0694-01 ",.02)
  1. ;;00085-0694-01
  1. ;;9002226.02101,"804,00085-0806-01 ",.01)
  1. ;;00085-0806-01
  1. ;;9002226.02101,"804,00085-0806-01 ",.02)
  1. ;;00085-0806-01
  1. ;;9002226.02101,"804,00085-0933-01 ",.01)
  1. ;;00085-0933-01
  1. ;;9002226.02101,"804,00085-0933-01 ",.02)
  1. ;;00085-0933-01
  1. ;;9002226.02101,"804,00085-0933-05 ",.01)
  1. ;;00085-0933-05
  1. ;;9002226.02101,"804,00085-0933-05 ",.02)
  1. ;;00085-0933-05
  1. ;;9002226.02101,"804,00085-0933-10 ",.01)
  1. ;;00085-0933-10
  1. ;;9002226.02101,"804,00085-0933-10 ",.02)
  1. ;;00085-0933-10
  1. ;;9002226.02101,"804,00085-0933-50 ",.01)
  1. ;;00085-0933-50
  1. ;;9002226.02101,"804,00085-0933-50 ",.02)
  1. ;;00085-0933-50
  1. ;;9002226.02101,"804,00085-0933-81 ",.01)
  1. ;;00085-0933-81
  1. ;;9002226.02101,"804,00085-0933-81 ",.02)
  1. ;;00085-0933-81
  1. ;;9002226.02101,"804,00085-1341-01 ",.01)
  1. ;;00085-1341-01
  1. ;;9002226.02101,"804,00085-1341-01 ",.02)
  1. ;;00085-1341-01
  1. ;;9002226.02101,"804,00085-1341-02 ",.01)
  1. ;;00085-1341-02
  1. ;;9002226.02101,"804,00085-1341-02 ",.02)
  1. ;;00085-1341-02
  1. ;;9002226.02101,"804,00085-1341-03 ",.01)
  1. ;;00085-1341-03
  1. ;;9002226.02101,"804,00085-1341-03 ",.02)
  1. ;;00085-1341-03
  1. ;;9002226.02101,"804,00085-1341-04 ",.01)
  1. ;;00085-1341-04
  1. ;;9002226.02101,"804,00085-1341-04 ",.02)
  1. ;;00085-1341-04
  1. ;;9002226.02101,"804,00085-1461-02 ",.01)
  1. ;;00085-1461-02
  1. ;;9002226.02101,"804,00085-1461-02 ",.02)
  1. ;;00085-1461-02
  1. ;;9002226.02101,"804,00085-1461-07 ",.01)
  1. ;;00085-1461-07
  1. ;;9002226.02101,"804,00085-1461-07 ",.02)
  1. ;;00085-1461-07
  1. ;;9002226.02101,"804,00086-0031-10 ",.01)
  1. ;;00086-0031-10
  1. ;;9002226.02101,"804,00086-0031-10 ",.02)
  1. ;;00086-0031-10
  1. ;;9002226.02101,"804,00086-0031-50 ",.01)
  1. ;;00086-0031-50
  1. ;;9002226.02101,"804,00086-0031-50 ",.02)
  1. ;;00086-0031-50
  1. ;;9002226.02101,"804,00086-0032-10 ",.01)
  1. ;;00086-0032-10
  1. ;;9002226.02101,"804,00086-0032-10 ",.02)
  1. ;;00086-0032-10
  1. ;;9002226.02101,"804,00086-0032-50 ",.01)
  1. ;;00086-0032-50
  1. ;;9002226.02101,"804,00086-0032-50 ",.02)
  1. ;;00086-0032-50
  1. ;;9002226.02101,"804,00086-0032-90 ",.01)
  1. ;;00086-0032-90
  1. ;;9002226.02101,"804,00086-0032-90 ",.02)
  1. ;;00086-0032-90
  1. ;;9002226.02101,"804,00086-0033-10 ",.01)
  1. ;;00086-0033-10
  1. ;;9002226.02101,"804,00086-0033-10 ",.02)
  1. ;;00086-0033-10
  1. ;;9002226.02101,"804,00086-0033-50 ",.01)
  1. ;;00086-0033-50
  1. ;;9002226.02101,"804,00086-0033-50 ",.02)
  1. ;;00086-0033-50
  1. ;;9002226.02101,"804,00086-0033-90 ",.01)
  1. ;;00086-0033-90
  1. ;;9002226.02101,"804,00086-0033-90 ",.02)
  1. ;;00086-0033-90
  1. ;;9002226.02101,"804,00089-0341-80 ",.01)
  1. ;;00089-0341-80
  1. ;;9002226.02101,"804,00089-0341-80 ",.02)
  1. ;;00089-0341-80
  1. ;;9002226.02101,"804,00089-0342-10 ",.01)
  1. ;;00089-0342-10
  1. ;;9002226.02101,"804,00089-0342-10 ",.02)
  1. ;;00089-0342-10
  1. ;;9002226.02101,"804,00089-0344-10 ",.01)
  1. ;;00089-0344-10
  1. ;;9002226.02101,"804,00089-0344-10 ",.02)
  1. ;;00089-0344-10
  1. ;;9002226.02101,"804,00093-6815-73 ",.01)
  1. ;;00093-6815-73
  1. ;;9002226.02101,"804,00093-6815-73 ",.02)
  1. ;;00093-6815-73
  1. ;;9002226.02101,"804,00093-6816-73 ",.01)
  1. ;;00093-6816-73
  1. ;;9002226.02101,"804,00093-6816-73 ",.02)
  1. ;;00093-6816-73
  1. ;;9002226.02101,"804,00121-4794-15 ",.01)
  1. ;;00121-4794-15
  1. ;;9002226.02101,"804,00121-4794-15 ",.02)
  1. ;;00121-4794-15
  1. ;;9002226.02101,"804,00143-1020-01 ",.01)
  1. ;;00143-1020-01
  1. ;;9002226.02101,"804,00143-1020-01 ",.02)
  1. ;;00143-1020-01
  1. ;;9002226.02101,"804,00143-1020-10 ",.01)
  1. ;;00143-1020-10
  1. ;;9002226.02101,"804,00143-1020-10 ",.02)
  1. ;;00143-1020-10
  1. ;;9002226.02101,"804,00143-1025-01 ",.01)
  1. ;;00143-1025-01
  1. ;;9002226.02101,"804,00143-1025-01 ",.02)
  1. ;;00143-1025-01
  1. ;;9002226.02101,"804,00143-1025-10 ",.01)
  1. ;;00143-1025-10
  1. ;;9002226.02101,"804,00143-1025-10 ",.02)
  1. ;;00143-1025-10
  1. ;;9002226.02101,"804,00172-6406-49 ",.01)
  1. ;;00172-6406-49
  1. ;;9002226.02101,"804,00172-6406-49 ",.02)
  1. ;;00172-6406-49
  1. ;;9002226.02101,"804,00172-6406-59 ",.01)
  1. ;;00172-6406-59
  1. ;;9002226.02101,"804,00172-6406-59 ",.02)
  1. ;;00172-6406-59
  1. ;;9002226.02101,"804,00173-0491-00 ",.01)
  1. ;;00173-0491-00
  1. ;;9002226.02101,"804,00173-0491-00 ",.02)
  1. ;;00173-0491-00
  1. ;;9002226.02101,"804,00173-0494-00 ",.01)
  1. ;;00173-0494-00
  1. ;;9002226.02101,"804,00173-0494-00 ",.02)
  1. ;;00173-0494-00
  1. ;;9002226.02101,"804,00173-0495-00 ",.01)
  1. ;;00173-0495-00
  1. ;;9002226.02101,"804,00173-0495-00 ",.02)
  1. ;;00173-0495-00
  1. ;;9002226.02101,"804,00173-0497-00 ",.01)
  1. ;;00173-0497-00
  1. ;;9002226.02101,"804,00173-0497-00 ",.02)
  1. ;;00173-0497-00
  1. ;;9002226.02101,"804,00173-0498-00 ",.01)
  1. ;;00173-0498-00
  1. ;;9002226.02101,"804,00173-0498-00 ",.02)
  1. ;;00173-0498-00
  1. ;;9002226.02101,"804,00173-0499-00 ",.01)
  1. ;;00173-0499-00
  1. ;;9002226.02101,"804,00173-0499-00 ",.02)
  1. ;;00173-0499-00
  1. ;;9002226.02101,"804,00173-0504-00 ",.01)
  1. ;;00173-0504-00
  1. ;;9002226.02101,"804,00173-0504-00 ",.02)
  1. ;;00173-0504-00
  1. ;;9002226.02101,"804,00173-0509-00 ",.01)
  1. ;;00173-0509-00
  1. ;;9002226.02101,"804,00173-0509-00 ",.02)
  1. ;;00173-0509-00
  1. ;;9002226.02101,"804,00173-0511-00 ",.01)
  1. ;;00173-0511-00
  1. ;;9002226.02101,"804,00173-0511-00 ",.02)
  1. ;;00173-0511-00
  1. ;;9002226.02101,"804,00173-0600-02 ",.01)
  1. ;;00173-0600-02
  1. ;;9002226.02101,"804,00173-0600-02 ",.02)
  1. ;;00173-0600-02
  1. ;;9002226.02101,"804,00173-0601-02 ",.01)
  1. ;;00173-0601-02
  1. ;;9002226.02101,"804,00173-0601-02 ",.02)
  1. ;;00173-0601-02
  1. ;;9002226.02101,"804,00173-0602-02 ",.01)
  1. ;;00173-0602-02
  1. ;;9002226.02101,"804,00173-0602-02 ",.02)
  1. ;;00173-0602-02
  1. ;;9002226.02101,"804,00173-0695-00 ",.01)
  1. ;;00173-0695-00
  1. ;;9002226.02101,"804,00173-0695-00 ",.02)
  1. ;;00173-0695-00
  1. ;;9002226.02101,"804,00173-0695-02 ",.01)
  1. ;;00173-0695-02
  1. ;;9002226.02101,"804,00173-0695-02 ",.02)
  1. ;;00173-0695-02
  1. ;;9002226.02101,"804,00173-0695-04 ",.01)
  1. ;;00173-0695-04
  1. ;;9002226.02101,"804,00173-0695-04 ",.02)
  1. ;;00173-0695-04
  1. ;;9002226.02101,"804,00173-0696-00 ",.01)
  1. ;;00173-0696-00
  1. ;;9002226.02101,"804,00173-0696-00 ",.02)
  1. ;;00173-0696-00
  1. ;;9002226.02101,"804,00173-0696-02 ",.01)
  1. ;;00173-0696-02
  1. ;;9002226.02101,"804,00173-0696-02 ",.02)
  1. ;;00173-0696-02
  1. ;;9002226.02101,"804,00173-0696-04 ",.01)
  1. ;;00173-0696-04
  1. ;;9002226.02101,"804,00173-0696-04 ",.02)
  1. ;;00173-0696-04
  1. ;;9002226.02101,"804,00173-0697-00 ",.01)
  1. ;;00173-0697-00
  1. ;;9002226.02101,"804,00173-0697-00 ",.02)
  1. ;;00173-0697-00
  1. ;;9002226.02101,"804,00173-0697-02 ",.01)
  1. ;;00173-0697-02
  1. ;;9002226.02101,"804,00173-0697-02 ",.02)
  1. ;;00173-0697-02
  1. ;;9002226.02101,"804,00173-0697-04 ",.01)
  1. ;;00173-0697-04
  1. ;;9002226.02101,"804,00173-0697-04 ",.02)
  1. ;;00173-0697-04
  1. ;;9002226.02101,"804,00173-0715-00 ",.01)
  1. ;;00173-0715-00
  1. ;;9002226.02101,"804,00173-0715-00 ",.02)
  1. ;;00173-0715-00
  1. ;;9002226.02101,"804,00173-0715-20 ",.01)
  1. ;;00173-0715-20
  1. ;;9002226.02101,"804,00173-0715-20 ",.02)
  1. ;;00173-0715-20
  1. ;;9002226.02101,"804,00173-0716-00 ",.01)
  1. ;;00173-0716-00
  1. ;;9002226.02101,"804,00173-0716-00 ",.02)
  1. ;;00173-0716-00
  1. ;;9002226.02101,"804,00173-0716-20 ",.01)
  1. ;;00173-0716-20
  1. ;;9002226.02101,"804,00173-0716-20 ",.02)
  1. ;;00173-0716-20
  1. ;;9002226.02101,"804,00173-0717-00 ",.01)
  1. ;;00173-0717-00
  1. ;;9002226.02101,"804,00173-0717-00 ",.02)
  1. ;;00173-0717-00
  1. ;;9002226.02101,"804,00173-0717-20 ",.01)
  1. ;;00173-0717-20
  1. ;;9002226.02101,"804,00173-0717-20 ",.02)
  1. ;;00173-0717-20
  1. ;;9002226.02101,"804,00173-0718-00 ",.01)
  1. ;;00173-0718-00
  1. ;;9002226.02101,"804,00173-0718-00 ",.02)
  1. ;;00173-0718-00
  1. ;;9002226.02101,"804,00173-0718-20 ",.01)
  1. ;;00173-0718-20
  1. ;;9002226.02101,"804,00173-0718-20 ",.02)
  1. ;;00173-0718-20
  1. ;;9002226.02101,"804,00173-0719-00 ",.01)
  1. ;;00173-0719-00
  1. ;;9002226.02101,"804,00173-0719-00 ",.02)
  1. ;;00173-0719-00
  1. ;;9002226.02101,"804,00173-0719-20 ",.01)
  1. ;;00173-0719-20
  1. ;;9002226.02101,"804,00173-0719-20 ",.02)
  1. ;;00173-0719-20
  1. ;;9002226.02101,"804,00173-0720-00 ",.01)
  1. ;;00173-0720-00
  1. ;;9002226.02101,"804,00173-0720-00 ",.02)
  1. ;;00173-0720-00
  1. ;;9002226.02101,"804,00173-0720-20 ",.01)
  1. ;;00173-0720-20
  1. ;;9002226.02101,"804,00173-0720-20 ",.02)
  1. ;;00173-0720-20
  1. ;;9002226.02101,"804,00182-0226-41 ",.01)
  1. ;;00182-0226-41
  1. ;;9002226.02101,"804,00182-0226-41 ",.02)
  1. ;;00182-0226-41
  1. ;;9002226.02101,"804,00182-1400-89 ",.01)
  1. ;;00182-1400-89
  1. ;;9002226.02101,"804,00182-1400-89 ",.02)
  1. ;;00182-1400-89
  1. ;;9002226.02101,"804,00182-1589-89 ",.01)
  1. ;;00182-1589-89
  1. ;;9002226.02101,"804,00182-1589-89 ",.02)
  1. ;;00182-1589-89
  1. ;;9002226.02101,"804,00182-1590-89 ",.01)
  1. ;;00182-1590-89
  1. ;;9002226.02101,"804,00182-1590-89 ",.02)
  1. ;;00182-1590-89
  1. ;;9002226.02101,"804,00186-0370-20 ",.01)
  1. ;;00186-0370-20
  1. ;;9002226.02101,"804,00186-0370-20 ",.02)
  1. ;;00186-0370-20
  1. ;;9002226.02101,"804,00186-0370-28 ",.01)
  1. ;;00186-0370-28
  1. ;;9002226.02101,"804,00186-0370-28 ",.02)
  1. ;;00186-0370-28
  1. ;;9002226.02101,"804,00186-0372-20 ",.01)
  1. ;;00186-0372-20
  1. ;;9002226.02101,"804,00186-0372-20 ",.02)
  1. ;;00186-0372-20
  1. ;;9002226.02101,"804,00186-0372-28 ",.01)
  1. ;;00186-0372-28
  1. ;;9002226.02101,"804,00186-0372-28 ",.02)
  1. ;;00186-0372-28
  1. ;;9002226.02101,"804,00186-0426-04 ",.01)
  1. ;;00186-0426-04
  1. ;;9002226.02101,"804,00186-0426-04 ",.02)
  1. ;;00186-0426-04
  1. ;;9002226.02101,"804,00186-0915-42 ",.01)
  1. ;;00186-0915-42
  1. ;;9002226.02101,"804,00186-0915-42 ",.02)
  1. ;;00186-0915-42
  1. ;;9002226.02101,"804,00186-0916-12 ",.01)
  1. ;;00186-0916-12
  1. ;;9002226.02101,"804,00186-0916-12 ",.02)
  1. ;;00186-0916-12
  1. ;;9002226.02101,"804,00186-0917-06 ",.01)
  1. ;;00186-0917-06
  1. ;;9002226.02101,"804,00186-0917-06 ",.02)
  1. ;;00186-0917-06
  1. ;;9002226.02101,"804,00186-1988-04 ",.01)
  1. ;;00186-1988-04
  1. ;;9002226.02101,"804,00186-1988-04 ",.02)
  1. ;;00186-1988-04
  1. ;;9002226.02101,"804,00186-1989-04 ",.01)
  1. ;;00186-1989-04
  1. ;;9002226.02101,"804,00186-1989-04 ",.02)
  1. ;;00186-1989-04
  1. ;;9002226.02101,"804,00186-1990-04 ",.01)
  1. ;;00186-1990-04
  1. ;;9002226.02101,"804,00186-1990-04 ",.02)
  1. ;;00186-1990-04
  1. ;;9002226.02101,"804,00223-6623-01 ",.01)
  1. ;;00223-6623-01
  1. ;;9002226.02101,"804,00223-6623-01 ",.02)
  1. ;;00223-6623-01
  1. ;;9002226.02101,"804,00247-0061-02 ",.01)
  1. ;;00247-0061-02
  1. ;;9002226.02101,"804,00247-0061-02 ",.02)
  1. ;;00247-0061-02
  1. ;;9002226.02101,"804,00247-0061-08 ",.01)
  1. ;;00247-0061-08
  1. ;;9002226.02101,"804,00247-0061-08 ",.02)
  1. ;;00247-0061-08
  1. ;;9002226.02101,"804,00247-0061-20 ",.01)
  1. ;;00247-0061-20
  1. ;;9002226.02101,"804,00247-0061-20 ",.02)
  1. ;;00247-0061-20
  1. ;;9002226.02101,"804,00247-0061-30 ",.01)
  1. ;;00247-0061-30
  1. ;;9002226.02101,"804,00247-0061-30 ",.02)
  1. ;;00247-0061-30
  1. ;;9002226.02101,"804,00247-0061-50 ",.01)
  1. ;;00247-0061-50
  1. ;;9002226.02101,"804,00247-0061-50 ",.02)
  1. ;;00247-0061-50
  1. ;;9002226.02101,"804,00247-0061-60 ",.01)
  1. ;;00247-0061-60
  1. ;;9002226.02101,"804,00247-0061-60 ",.02)
  1. ;;00247-0061-60
  1. ;;9002226.02101,"804,00247-0061-90 ",.01)
  1. ;;00247-0061-90
  1. ;;9002226.02101,"804,00247-0061-90 ",.02)
  1. ;;00247-0061-90
  1. ;;9002226.02101,"804,00247-0070-00 ",.01)
  1. ;;00247-0070-00
  1. ;;9002226.02101,"804,00247-0070-00 ",.02)
  1. ;;00247-0070-00
  1. ;;9002226.02101,"804,00247-0070-02 ",.01)
  1. ;;00247-0070-02
  1. ;;9002226.02101,"804,00247-0070-02 ",.02)
  1. ;;00247-0070-02
  1. ;;9002226.02101,"804,00247-0070-09 ",.01)
  1. ;;00247-0070-09
  1. ;;9002226.02101,"804,00247-0070-09 ",.02)
  1. ;;00247-0070-09
  1. ;;9002226.02101,"804,00247-0070-10 ",.01)
  1. ;;00247-0070-10
  1. ;;9002226.02101,"804,00247-0070-10 ",.02)
  1. ;;00247-0070-10
  1. ;;9002226.02101,"804,00247-0070-12 ",.01)
  1. ;;00247-0070-12
  1. ;;9002226.02101,"804,00247-0070-12 ",.02)
  1. ;;00247-0070-12
  1. ;;9002226.02101,"804,00247-0070-20 ",.01)
  1. ;;00247-0070-20
  1. ;;9002226.02101,"804,00247-0070-20 ",.02)
  1. ;;00247-0070-20
  1. ;;9002226.02101,"804,00247-0070-30 ",.01)
  1. ;;00247-0070-30
  1. ;;9002226.02101,"804,00247-0070-30 ",.02)
  1. ;;00247-0070-30
  1. ;;9002226.02101,"804,00247-0070-50 ",.01)
  1. ;;00247-0070-50
  1. ;;9002226.02101,"804,00247-0070-50 ",.02)
  1. ;;00247-0070-50
  1. ;;9002226.02101,"804,00247-0070-52 ",.01)
  1. ;;00247-0070-52
  1. ;;9002226.02101,"804,00247-0070-52 ",.02)
  1. ;;00247-0070-52
  1. ;;9002226.02101,"804,00247-0070-60 ",.01)
  1. ;;00247-0070-60
  1. ;;9002226.02101,"804,00247-0070-60 ",.02)
  1. ;;00247-0070-60
  1. ;;9002226.02101,"804,00247-0070-90 ",.01)
  1. ;;00247-0070-90
  1. ;;9002226.02101,"804,00247-0070-90 ",.02)
  1. ;;00247-0070-90
  1. ;;9002226.02101,"804,00247-0190-20 ",.01)
  1. ;;00247-0190-20
  1. ;;9002226.02101,"804,00247-0190-20 ",.02)
  1. ;;00247-0190-20
  1. ;;9002226.02101,"804,00247-0656-02 ",.01)
  1. ;;00247-0656-02
  1. ;;9002226.02101,"804,00247-0656-02 ",.02)
  1. ;;00247-0656-02
  1. ;;9002226.02101,"804,00247-0656-04 ",.01)
  1. ;;00247-0656-04
  1. ;;9002226.02101,"804,00247-0656-04 ",.02)
  1. ;;00247-0656-04