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

BGP06A19.m

Go to the documentation of this file.
  1. BGP06A19 ;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,"974,00015-7346-39 ",.01)
  1. ;;00015-7346-39
  1. ;;9002226.02101,"974,00015-7346-39 ",.02)
  1. ;;00015-7346-39
  1. ;;9002226.02101,"974,00015-7346-97 ",.01)
  1. ;;00015-7346-97
  1. ;;9002226.02101,"974,00015-7346-97 ",.02)
  1. ;;00015-7346-97
  1. ;;9002226.02101,"974,00015-7401-20 ",.01)
  1. ;;00015-7401-20
  1. ;;9002226.02101,"974,00015-7401-20 ",.02)
  1. ;;00015-7401-20
  1. ;;9002226.02101,"974,00015-7401-99 ",.01)
  1. ;;00015-7401-99
  1. ;;9002226.02101,"974,00015-7401-99 ",.02)
  1. ;;00015-7401-99
  1. ;;9002226.02101,"974,00015-7402-20 ",.01)
  1. ;;00015-7402-20
  1. ;;9002226.02101,"974,00015-7402-20 ",.02)
  1. ;;00015-7402-20
  1. ;;9002226.02101,"974,00015-7402-99 ",.01)
  1. ;;00015-7402-99
  1. ;;9002226.02101,"974,00015-7402-99 ",.02)
  1. ;;00015-7402-99
  1. ;;9002226.02101,"974,00015-7403-20 ",.01)
  1. ;;00015-7403-20
  1. ;;9002226.02101,"974,00015-7403-20 ",.02)
  1. ;;00015-7403-20
  1. ;;9002226.02101,"974,00015-7403-30 ",.01)
  1. ;;00015-7403-30
  1. ;;9002226.02101,"974,00015-7403-30 ",.02)
  1. ;;00015-7403-30
  1. ;;9002226.02101,"974,00015-7403-94 ",.01)
  1. ;;00015-7403-94
  1. ;;9002226.02101,"974,00015-7403-94 ",.02)
  1. ;;00015-7403-94
  1. ;;9002226.02101,"974,00015-7403-99 ",.01)
  1. ;;00015-7403-99
  1. ;;9002226.02101,"974,00015-7403-99 ",.02)
  1. ;;00015-7403-99
  1. ;;9002226.02101,"974,00015-7404-18 ",.01)
  1. ;;00015-7404-18
  1. ;;9002226.02101,"974,00015-7404-18 ",.02)
  1. ;;00015-7404-18
  1. ;;9002226.02101,"974,00015-7404-20 ",.01)
  1. ;;00015-7404-20
  1. ;;9002226.02101,"974,00015-7404-20 ",.02)
  1. ;;00015-7404-20
  1. ;;9002226.02101,"974,00015-7404-28 ",.01)
  1. ;;00015-7404-28
  1. ;;9002226.02101,"974,00015-7404-28 ",.02)
  1. ;;00015-7404-28
  1. ;;9002226.02101,"974,00015-7404-29 ",.01)
  1. ;;00015-7404-29
  1. ;;9002226.02101,"974,00015-7404-29 ",.02)
  1. ;;00015-7404-29
  1. ;;9002226.02101,"974,00015-7404-36 ",.01)
  1. ;;00015-7404-36
  1. ;;9002226.02101,"974,00015-7404-36 ",.02)
  1. ;;00015-7404-36
  1. ;;9002226.02101,"974,00015-7404-89 ",.01)
  1. ;;00015-7404-89
  1. ;;9002226.02101,"974,00015-7404-89 ",.02)
  1. ;;00015-7404-89
  1. ;;9002226.02101,"974,00015-7404-94 ",.01)
  1. ;;00015-7404-94
  1. ;;9002226.02101,"974,00015-7404-94 ",.02)
  1. ;;00015-7404-94
  1. ;;9002226.02101,"974,00015-7404-99 ",.01)
  1. ;;00015-7404-99
  1. ;;9002226.02101,"974,00015-7404-99 ",.02)
  1. ;;00015-7404-99
  1. ;;9002226.02101,"974,00015-7405-18 ",.01)
  1. ;;00015-7405-18
  1. ;;9002226.02101,"974,00015-7405-18 ",.02)
  1. ;;00015-7405-18
  1. ;;9002226.02101,"974,00015-7405-20 ",.01)
  1. ;;00015-7405-20
  1. ;;9002226.02101,"974,00015-7405-20 ",.02)
  1. ;;00015-7405-20
  1. ;;9002226.02101,"974,00015-7405-28 ",.01)
  1. ;;00015-7405-28
  1. ;;9002226.02101,"974,00015-7405-28 ",.02)
  1. ;;00015-7405-28
  1. ;;9002226.02101,"974,00015-7405-29 ",.01)
  1. ;;00015-7405-29
  1. ;;9002226.02101,"974,00015-7405-29 ",.02)
  1. ;;00015-7405-29
  1. ;;9002226.02101,"974,00015-7405-89 ",.01)
  1. ;;00015-7405-89
  1. ;;9002226.02101,"974,00015-7405-89 ",.02)
  1. ;;00015-7405-89
  1. ;;9002226.02101,"974,00015-7405-95 ",.01)
  1. ;;00015-7405-95
  1. ;;9002226.02101,"974,00015-7405-95 ",.02)
  1. ;;00015-7405-95
  1. ;;9002226.02101,"974,00015-7405-99 ",.01)
  1. ;;00015-7405-99
  1. ;;9002226.02101,"974,00015-7405-99 ",.02)
  1. ;;00015-7405-99
  1. ;;9002226.02101,"974,00015-7856-40 ",.01)
  1. ;;00015-7856-40
  1. ;;9002226.02101,"974,00015-7856-40 ",.02)
  1. ;;00015-7856-40
  1. ;;9002226.02101,"974,00015-7856-64 ",.01)
  1. ;;00015-7856-64
  1. ;;9002226.02101,"974,00015-7856-64 ",.02)
  1. ;;00015-7856-64
  1. ;;9002226.02101,"974,00015-7988-67 ",.01)
  1. ;;00015-7988-67
  1. ;;9002226.02101,"974,00015-7988-67 ",.02)
  1. ;;00015-7988-67
  1. ;;9002226.02101,"974,00015-7992-65 ",.01)
  1. ;;00015-7992-65
  1. ;;9002226.02101,"974,00015-7992-65 ",.02)
  1. ;;00015-7992-65
  1. ;;9002226.02101,"974,00015-7992-68 ",.01)
  1. ;;00015-7992-68
  1. ;;9002226.02101,"974,00015-7992-68 ",.02)
  1. ;;00015-7992-68
  1. ;;9002226.02101,"974,00015-7993-68 ",.01)
  1. ;;00015-7993-68
  1. ;;9002226.02101,"974,00015-7993-68 ",.02)
  1. ;;00015-7993-68
  1. ;;9002226.02101,"974,00025-5501-01 ",.01)
  1. ;;00025-5501-01
  1. ;;9002226.02101,"974,00025-5501-01 ",.02)
  1. ;;00025-5501-01
  1. ;;9002226.02101,"974,00026-8511-06 ",.01)
  1. ;;00026-8511-06
  1. ;;9002226.02101,"974,00026-8511-06 ",.02)
  1. ;;00026-8511-06
  1. ;;9002226.02101,"974,00026-8512-48 ",.01)
  1. ;;00026-8512-48
  1. ;;9002226.02101,"974,00026-8512-48 ",.02)
  1. ;;00026-8512-48
  1. ;;9002226.02101,"974,00026-8512-51 ",.01)
  1. ;;00026-8512-51
  1. ;;9002226.02101,"974,00026-8512-51 ",.02)
  1. ;;00026-8512-51
  1. ;;9002226.02101,"974,00026-8513-48 ",.01)
  1. ;;00026-8513-48
  1. ;;9002226.02101,"974,00026-8513-48 ",.02)
  1. ;;00026-8513-48
  1. ;;9002226.02101,"974,00026-8513-51 ",.01)
  1. ;;00026-8513-51
  1. ;;9002226.02101,"974,00026-8513-51 ",.02)
  1. ;;00026-8513-51
  1. ;;9002226.02101,"974,00026-8514-48 ",.01)
  1. ;;00026-8514-48
  1. ;;9002226.02101,"974,00026-8514-48 ",.02)
  1. ;;00026-8514-48
  1. ;;9002226.02101,"974,00026-8514-50 ",.01)
  1. ;;00026-8514-50
  1. ;;9002226.02101,"974,00026-8514-50 ",.02)
  1. ;;00026-8514-50
  1. ;;9002226.02101,"974,00026-8527-36 ",.01)
  1. ;;00026-8527-36
  1. ;;9002226.02101,"974,00026-8527-36 ",.02)
  1. ;;00026-8527-36
  1. ;;9002226.02101,"974,00026-8527-63 ",.01)
  1. ;;00026-8527-63
  1. ;;9002226.02101,"974,00026-8527-63 ",.02)
  1. ;;00026-8527-63
  1. ;;9002226.02101,"974,00026-8551-36 ",.01)
  1. ;;00026-8551-36
  1. ;;9002226.02101,"974,00026-8551-36 ",.02)
  1. ;;00026-8551-36
  1. ;;9002226.02101,"974,00026-8552-36 ",.01)
  1. ;;00026-8552-36
  1. ;;9002226.02101,"974,00026-8552-36 ",.02)
  1. ;;00026-8552-36
  1. ;;9002226.02101,"974,00026-8553-36 ",.01)
  1. ;;00026-8553-36
  1. ;;9002226.02101,"974,00026-8553-36 ",.02)
  1. ;;00026-8553-36
  1. ;;9002226.02101,"974,00026-8554-63 ",.01)
  1. ;;00026-8554-63
  1. ;;9002226.02101,"974,00026-8554-63 ",.02)
  1. ;;00026-8554-63
  1. ;;9002226.02101,"974,00026-8562-20 ",.01)
  1. ;;00026-8562-20
  1. ;;9002226.02101,"974,00026-8562-20 ",.02)
  1. ;;00026-8562-20
  1. ;;9002226.02101,"974,00026-8564-64 ",.01)
  1. ;;00026-8564-64
  1. ;;9002226.02101,"974,00026-8564-64 ",.02)
  1. ;;00026-8564-64
  1. ;;9002226.02101,"974,00026-8566-65 ",.01)
  1. ;;00026-8566-65
  1. ;;9002226.02101,"974,00026-8566-65 ",.02)
  1. ;;00026-8566-65
  1. ;;9002226.02101,"974,00026-8889-50 ",.01)
  1. ;;00026-8889-50
  1. ;;9002226.02101,"974,00026-8889-50 ",.02)
  1. ;;00026-8889-50
  1. ;;9002226.02101,"974,00026-8889-51 ",.01)
  1. ;;00026-8889-51
  1. ;;9002226.02101,"974,00026-8889-51 ",.02)
  1. ;;00026-8889-51
  1. ;;9002226.02101,"974,00026-8897-50 ",.01)
  1. ;;00026-8897-50
  1. ;;9002226.02101,"974,00026-8897-50 ",.02)
  1. ;;00026-8897-50
  1. ;;9002226.02101,"974,00026-8897-51 ",.01)
  1. ;;00026-8897-51
  1. ;;9002226.02101,"974,00026-8897-51 ",.02)
  1. ;;00026-8897-51
  1. ;;9002226.02101,"974,00026-8897-69 ",.01)
  1. ;;00026-8897-69
  1. ;;9002226.02101,"974,00026-8897-69 ",.02)
  1. ;;00026-8897-69
  1. ;;9002226.02101,"974,00029-6006-30 ",.01)
  1. ;;00029-6006-30
  1. ;;9002226.02101,"974,00029-6006-30 ",.02)
  1. ;;00029-6006-30
  1. ;;9002226.02101,"974,00029-6006-32 ",.01)
  1. ;;00029-6006-32
  1. ;;9002226.02101,"974,00029-6006-32 ",.02)
  1. ;;00029-6006-32
  1. ;;9002226.02101,"974,00029-6007-30 ",.01)
  1. ;;00029-6007-30
  1. ;;9002226.02101,"974,00029-6007-30 ",.02)
  1. ;;00029-6007-30
  1. ;;9002226.02101,"974,00029-6007-32 ",.01)
  1. ;;00029-6007-32
  1. ;;9002226.02101,"974,00029-6007-32 ",.02)
  1. ;;00029-6007-32
  1. ;;9002226.02101,"974,00029-6008-21 ",.01)
  1. ;;00029-6008-21
  1. ;;9002226.02101,"974,00029-6008-21 ",.02)
  1. ;;00029-6008-21
  1. ;;9002226.02101,"974,00029-6008-22 ",.01)
  1. ;;00029-6008-22
  1. ;;9002226.02101,"974,00029-6008-22 ",.02)
  1. ;;00029-6008-22
  1. ;;9002226.02101,"974,00029-6008-23 ",.01)
  1. ;;00029-6008-23
  1. ;;9002226.02101,"974,00029-6008-23 ",.02)
  1. ;;00029-6008-23
  1. ;;9002226.02101,"974,00029-6009-18 ",.01)
  1. ;;00029-6009-18
  1. ;;9002226.02101,"974,00029-6009-18 ",.02)
  1. ;;00029-6009-18
  1. ;;9002226.02101,"974,00029-6009-21 ",.01)
  1. ;;00029-6009-21
  1. ;;9002226.02101,"974,00029-6009-21 ",.02)
  1. ;;00029-6009-21
  1. ;;9002226.02101,"974,00029-6009-22 ",.01)
  1. ;;00029-6009-22
  1. ;;9002226.02101,"974,00029-6009-22 ",.02)
  1. ;;00029-6009-22
  1. ;;9002226.02101,"974,00029-6009-23 ",.01)
  1. ;;00029-6009-23
  1. ;;9002226.02101,"974,00029-6009-23 ",.02)
  1. ;;00029-6009-23
  1. ;;9002226.02101,"974,00029-6035-20 ",.01)
  1. ;;00029-6035-20
  1. ;;9002226.02101,"974,00029-6035-20 ",.02)
  1. ;;00029-6035-20
  1. ;;9002226.02101,"974,00029-6038-39 ",.01)
  1. ;;00029-6038-39
  1. ;;9002226.02101,"974,00029-6038-39 ",.02)
  1. ;;00029-6038-39
  1. ;;9002226.02101,"974,00029-6044-12 ",.01)
  1. ;;00029-6044-12
  1. ;;9002226.02101,"974,00029-6044-12 ",.02)
  1. ;;00029-6044-12
  1. ;;9002226.02101,"974,00029-6044-20 ",.01)
  1. ;;00029-6044-20
  1. ;;9002226.02101,"974,00029-6044-20 ",.02)
  1. ;;00029-6044-20
  1. ;;9002226.02101,"974,00029-6045-12 ",.01)
  1. ;;00029-6045-12
  1. ;;9002226.02101,"974,00029-6045-12 ",.02)
  1. ;;00029-6045-12
  1. ;;9002226.02101,"974,00029-6045-20 ",.01)
  1. ;;00029-6045-20
  1. ;;9002226.02101,"974,00029-6045-20 ",.02)
  1. ;;00029-6045-20
  1. ;;9002226.02101,"974,00029-6046-12 ",.01)
  1. ;;00029-6046-12
  1. ;;9002226.02101,"974,00029-6046-12 ",.02)
  1. ;;00029-6046-12
  1. ;;9002226.02101,"974,00029-6046-20 ",.01)
  1. ;;00029-6046-20
  1. ;;9002226.02101,"974,00029-6046-20 ",.02)
  1. ;;00029-6046-20
  1. ;;9002226.02101,"974,00029-6046-25 ",.01)
  1. ;;00029-6046-25
  1. ;;9002226.02101,"974,00029-6046-25 ",.02)
  1. ;;00029-6046-25
  1. ;;9002226.02101,"974,00029-6047-12 ",.01)
  1. ;;00029-6047-12
  1. ;;9002226.02101,"974,00029-6047-12 ",.02)
  1. ;;00029-6047-12
  1. ;;9002226.02101,"974,00029-6047-20 ",.01)
  1. ;;00029-6047-20
  1. ;;9002226.02101,"974,00029-6047-20 ",.02)
  1. ;;00029-6047-20
  1. ;;9002226.02101,"974,00029-6047-25 ",.01)
  1. ;;00029-6047-25
  1. ;;9002226.02101,"974,00029-6047-25 ",.02)
  1. ;;00029-6047-25
  1. ;;9002226.02101,"974,00029-6048-18 ",.01)
  1. ;;00029-6048-18
  1. ;;9002226.02101,"974,00029-6048-18 ",.02)
  1. ;;00029-6048-18
  1. ;;9002226.02101,"974,00029-6048-54 ",.01)
  1. ;;00029-6048-54
  1. ;;9002226.02101,"974,00029-6048-54 ",.02)
  1. ;;00029-6048-54
  1. ;;9002226.02101,"974,00029-6048-55 ",.01)
  1. ;;00029-6048-55
  1. ;;9002226.02101,"974,00029-6048-55 ",.02)
  1. ;;00029-6048-55
  1. ;;9002226.02101,"974,00029-6048-59 ",.01)
  1. ;;00029-6048-59
  1. ;;9002226.02101,"974,00029-6048-59 ",.02)
  1. ;;00029-6048-59
  1. ;;9002226.02101,"974,00029-6049-18 ",.01)
  1. ;;00029-6049-18
  1. ;;9002226.02101,"974,00029-6049-18 ",.02)
  1. ;;00029-6049-18
  1. ;;9002226.02101,"974,00029-6049-54 ",.01)
  1. ;;00029-6049-54
  1. ;;9002226.02101,"974,00029-6049-54 ",.02)
  1. ;;00029-6049-54
  1. ;;9002226.02101,"974,00029-6049-55 ",.01)
  1. ;;00029-6049-55
  1. ;;9002226.02101,"974,00029-6049-55 ",.02)
  1. ;;00029-6049-55
  1. ;;9002226.02101,"974,00029-6049-59 ",.01)
  1. ;;00029-6049-59
  1. ;;9002226.02101,"974,00029-6049-59 ",.02)
  1. ;;00029-6049-59
  1. ;;9002226.02101,"974,00029-6071-12 ",.01)
  1. ;;00029-6071-12
  1. ;;9002226.02101,"974,00029-6071-12 ",.02)
  1. ;;00029-6071-12
  1. ;;9002226.02101,"974,00029-6072-12 ",.01)
  1. ;;00029-6072-12
  1. ;;9002226.02101,"974,00029-6072-12 ",.02)
  1. ;;00029-6072-12
  1. ;;9002226.02101,"974,00029-6073-47 ",.01)
  1. ;;00029-6073-47
  1. ;;9002226.02101,"974,00029-6073-47 ",.02)
  1. ;;00029-6073-47
  1. ;;9002226.02101,"974,00029-6074-47 ",.01)
  1. ;;00029-6074-47
  1. ;;9002226.02101,"974,00029-6074-47 ",.02)
  1. ;;00029-6074-47
  1. ;;9002226.02101,"974,00029-6075-27 ",.01)
  1. ;;00029-6075-27
  1. ;;9002226.02101,"974,00029-6075-27 ",.02)
  1. ;;00029-6075-27
  1. ;;9002226.02101,"974,00029-6075-31 ",.01)
  1. ;;00029-6075-31
  1. ;;9002226.02101,"974,00029-6075-31 ",.02)
  1. ;;00029-6075-31
  1. ;;9002226.02101,"974,00029-6080-12 ",.01)
  1. ;;00029-6080-12
  1. ;;9002226.02101,"974,00029-6080-12 ",.02)
  1. ;;00029-6080-12
  1. ;;9002226.02101,"974,00029-6080-27 ",.01)
  1. ;;00029-6080-27
  1. ;;9002226.02101,"974,00029-6080-27 ",.02)
  1. ;;00029-6080-27
  1. ;;9002226.02101,"974,00029-6080-31 ",.01)
  1. ;;00029-6080-31
  1. ;;9002226.02101,"974,00029-6080-31 ",.02)
  1. ;;00029-6080-31
  1. ;;9002226.02101,"974,00029-6085-22 ",.01)
  1. ;;00029-6085-22
  1. ;;9002226.02101,"974,00029-6085-22 ",.02)
  1. ;;00029-6085-22
  1. ;;9002226.02101,"974,00029-6085-23 ",.01)
  1. ;;00029-6085-23
  1. ;;9002226.02101,"974,00029-6085-23 ",.02)
  1. ;;00029-6085-23
  1. ;;9002226.02101,"974,00029-6085-39 ",.01)
  1. ;;00029-6085-39
  1. ;;9002226.02101,"974,00029-6085-39 ",.02)
  1. ;;00029-6085-39
  1. ;;9002226.02101,"974,00029-6086-12 ",.01)
  1. ;;00029-6086-12
  1. ;;9002226.02101,"974,00029-6086-12 ",.02)
  1. ;;00029-6086-12
  1. ;;9002226.02101,"974,00029-6086-21 ",.01)
  1. ;;00029-6086-21
  1. ;;9002226.02101,"974,00029-6086-21 ",.02)
  1. ;;00029-6086-21
  1. ;;9002226.02101,"974,00029-6087-29 ",.01)
  1. ;;00029-6087-29
  1. ;;9002226.02101,"974,00029-6087-29 ",.02)
  1. ;;00029-6087-29
  1. ;;9002226.02101,"974,00029-6087-39 ",.01)
  1. ;;00029-6087-39
  1. ;;9002226.02101,"974,00029-6087-39 ",.02)
  1. ;;00029-6087-39
  1. ;;9002226.02101,"974,00029-6087-51 ",.01)
  1. ;;00029-6087-51
  1. ;;9002226.02101,"974,00029-6087-51 ",.02)
  1. ;;00029-6087-51
  1. ;;9002226.02101,"974,00029-6090-22 ",.01)
  1. ;;00029-6090-22
  1. ;;9002226.02101,"974,00029-6090-22 ",.02)
  1. ;;00029-6090-22
  1. ;;9002226.02101,"974,00029-6090-23 ",.01)
  1. ;;00029-6090-23
  1. ;;9002226.02101,"974,00029-6090-23 ",.02)
  1. ;;00029-6090-23
  1. ;;9002226.02101,"974,00029-6090-39 ",.01)
  1. ;;00029-6090-39
  1. ;;9002226.02101,"974,00029-6090-39 ",.02)
  1. ;;00029-6090-39
  1. ;;9002226.02101,"974,00029-6092-29 ",.01)
  1. ;;00029-6092-29
  1. ;;9002226.02101,"974,00029-6092-29 ",.02)
  1. ;;00029-6092-29
  1. ;;9002226.02101,"974,00029-6092-39 ",.01)
  1. ;;00029-6092-39
  1. ;;9002226.02101,"974,00029-6092-39 ",.02)
  1. ;;00029-6092-39
  1. ;;9002226.02101,"974,00029-6092-51 ",.01)
  1. ;;00029-6092-51
  1. ;;9002226.02101,"974,00029-6092-51 ",.02)
  1. ;;00029-6092-51
  1. ;;9002226.02101,"974,00029-6094-22 ",.01)
  1. ;;00029-6094-22
  1. ;;9002226.02101,"974,00029-6094-22 ",.02)
  1. ;;00029-6094-22
  1. ;;9002226.02101,"974,00029-6094-24 ",.01)
  1. ;;00029-6094-24
  1. ;;9002226.02101,"974,00029-6094-24 ",.02)
  1. ;;00029-6094-24
  1. ;;9002226.02101,"974,00029-6094-25 ",.01)
  1. ;;00029-6094-25
  1. ;;9002226.02101,"974,00029-6094-25 ",.02)
  1. ;;00029-6094-25
  1. ;;9002226.02101,"974,00029-6094-29 ",.01)
  1. ;;00029-6094-29
  1. ;;9002226.02101,"974,00029-6094-29 ",.02)
  1. ;;00029-6094-29