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

BGP06A34.m

Go to the documentation of this file.
  1. BGP06A34 ;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,00603-3553-28 ",.01)
  1. ;;00603-3553-28
  1. ;;9002226.02101,"974,00603-3553-28 ",.02)
  1. ;;00603-3553-28
  1. ;;9002226.02101,"974,00603-3554-21 ",.01)
  1. ;;00603-3554-21
  1. ;;9002226.02101,"974,00603-3554-21 ",.02)
  1. ;;00603-3554-21
  1. ;;9002226.02101,"974,00603-4678-21 ",.01)
  1. ;;00603-4678-21
  1. ;;9002226.02101,"974,00603-4678-21 ",.02)
  1. ;;00603-4678-21
  1. ;;9002226.02101,"974,00603-4679-19 ",.01)
  1. ;;00603-4679-19
  1. ;;9002226.02101,"974,00603-4679-19 ",.02)
  1. ;;00603-4679-19
  1. ;;9002226.02101,"974,00603-5067-32 ",.01)
  1. ;;00603-5067-32
  1. ;;9002226.02101,"974,00603-5067-32 ",.02)
  1. ;;00603-5067-32
  1. ;;9002226.02101,"974,00603-5068-21 ",.01)
  1. ;;00603-5068-21
  1. ;;9002226.02101,"974,00603-5068-21 ",.02)
  1. ;;00603-5068-21
  1. ;;9002226.02101,"974,00603-5778-21 ",.01)
  1. ;;00603-5778-21
  1. ;;9002226.02101,"974,00603-5778-21 ",.02)
  1. ;;00603-5778-21
  1. ;;9002226.02101,"974,00603-5779-28 ",.01)
  1. ;;00603-5779-28
  1. ;;9002226.02101,"974,00603-5779-28 ",.02)
  1. ;;00603-5779-28
  1. ;;9002226.02101,"974,00603-5919-21 ",.01)
  1. ;;00603-5919-21
  1. ;;9002226.02101,"974,00603-5919-21 ",.02)
  1. ;;00603-5919-21
  1. ;;9002226.02101,"974,00603-5919-32 ",.01)
  1. ;;00603-5919-32
  1. ;;9002226.02101,"974,00603-5919-32 ",.02)
  1. ;;00603-5919-32
  1. ;;9002226.02101,"974,00603-5920-21 ",.01)
  1. ;;00603-5920-21
  1. ;;9002226.02101,"974,00603-5920-21 ",.02)
  1. ;;00603-5920-21
  1. ;;9002226.02101,"974,00603-6500-64 ",.01)
  1. ;;00603-6500-64
  1. ;;9002226.02101,"974,00603-6500-64 ",.02)
  1. ;;00603-6500-64
  1. ;;9002226.02101,"974,00603-6500-66 ",.01)
  1. ;;00603-6500-66
  1. ;;9002226.02101,"974,00603-6500-66 ",.02)
  1. ;;00603-6500-66
  1. ;;9002226.02101,"974,00603-6500-84 ",.01)
  1. ;;00603-6500-84
  1. ;;9002226.02101,"974,00603-6500-84 ",.02)
  1. ;;00603-6500-84
  1. ;;9002226.02101,"974,00603-6501-64 ",.01)
  1. ;;00603-6501-64
  1. ;;9002226.02101,"974,00603-6501-64 ",.02)
  1. ;;00603-6501-64
  1. ;;9002226.02101,"974,00603-6501-66 ",.01)
  1. ;;00603-6501-66
  1. ;;9002226.02101,"974,00603-6501-66 ",.02)
  1. ;;00603-6501-66
  1. ;;9002226.02101,"974,00603-6534-62 ",.01)
  1. ;;00603-6534-62
  1. ;;9002226.02101,"974,00603-6534-62 ",.02)
  1. ;;00603-6534-62
  1. ;;9002226.02101,"974,00603-6534-66 ",.01)
  1. ;;00603-6534-66
  1. ;;9002226.02101,"974,00603-6534-66 ",.02)
  1. ;;00603-6534-66
  1. ;;9002226.02101,"974,00603-6535-47 ",.01)
  1. ;;00603-6535-47
  1. ;;9002226.02101,"974,00603-6535-47 ",.02)
  1. ;;00603-6535-47
  1. ;;9002226.02101,"974,00603-6535-64 ",.01)
  1. ;;00603-6535-64
  1. ;;9002226.02101,"974,00603-6535-64 ",.02)
  1. ;;00603-6535-64
  1. ;;9002226.02101,"974,00603-6536-62 ",.01)
  1. ;;00603-6536-62
  1. ;;9002226.02101,"974,00603-6536-62 ",.02)
  1. ;;00603-6536-62
  1. ;;9002226.02101,"974,00603-6536-66 ",.01)
  1. ;;00603-6536-66
  1. ;;9002226.02101,"974,00603-6536-66 ",.02)
  1. ;;00603-6536-66
  1. ;;9002226.02101,"974,00603-6537-47 ",.01)
  1. ;;00603-6537-47
  1. ;;9002226.02101,"974,00603-6537-47 ",.02)
  1. ;;00603-6537-47
  1. ;;9002226.02101,"974,00603-6537-64 ",.01)
  1. ;;00603-6537-64
  1. ;;9002226.02101,"974,00603-6537-64 ",.02)
  1. ;;00603-6537-64
  1. ;;9002226.02101,"974,00603-6541-64 ",.01)
  1. ;;00603-6541-64
  1. ;;9002226.02101,"974,00603-6541-64 ",.02)
  1. ;;00603-6541-64
  1. ;;9002226.02101,"974,00603-6541-68 ",.01)
  1. ;;00603-6541-68
  1. ;;9002226.02101,"974,00603-6541-68 ",.02)
  1. ;;00603-6541-68
  1. ;;9002226.02101,"974,00603-6542-68 ",.01)
  1. ;;00603-6542-68
  1. ;;9002226.02101,"974,00603-6542-68 ",.02)
  1. ;;00603-6542-68
  1. ;;9002226.02101,"974,00603-6563-64 ",.01)
  1. ;;00603-6563-64
  1. ;;9002226.02101,"974,00603-6563-64 ",.02)
  1. ;;00603-6563-64
  1. ;;9002226.02101,"974,00603-6563-66 ",.01)
  1. ;;00603-6563-66
  1. ;;9002226.02101,"974,00603-6563-66 ",.02)
  1. ;;00603-6563-66
  1. ;;9002226.02101,"974,00603-6563-68 ",.01)
  1. ;;00603-6563-68
  1. ;;9002226.02101,"974,00603-6563-68 ",.02)
  1. ;;00603-6563-68
  1. ;;9002226.02101,"974,00603-6605-64 ",.01)
  1. ;;00603-6605-64
  1. ;;9002226.02101,"974,00603-6605-64 ",.02)
  1. ;;00603-6605-64
  1. ;;9002226.02101,"974,00603-6605-68 ",.01)
  1. ;;00603-6605-68
  1. ;;9002226.02101,"974,00603-6605-68 ",.02)
  1. ;;00603-6605-68
  1. ;;9002226.02101,"974,00603-6606-64 ",.01)
  1. ;;00603-6606-64
  1. ;;9002226.02101,"974,00603-6606-64 ",.02)
  1. ;;00603-6606-64
  1. ;;9002226.02101,"974,00603-6606-68 ",.01)
  1. ;;00603-6606-68
  1. ;;9002226.02101,"974,00603-6606-68 ",.02)
  1. ;;00603-6606-68
  1. ;;9002226.02101,"974,00603-8537-47 ",.01)
  1. ;;00603-8537-47
  1. ;;9002226.02101,"974,00603-8537-47 ",.02)
  1. ;;00603-8537-47
  1. ;;9002226.02101,"974,00603-8563-68 ",.01)
  1. ;;00603-8563-68
  1. ;;9002226.02101,"974,00603-8563-68 ",.02)
  1. ;;00603-8563-68
  1. ;;9002226.02101,"974,00615-0121-01 ",.01)
  1. ;;00615-0121-01
  1. ;;9002226.02101,"974,00615-0121-01 ",.02)
  1. ;;00615-0121-01
  1. ;;9002226.02101,"974,00615-0124-01 ",.01)
  1. ;;00615-0124-01
  1. ;;9002226.02101,"974,00615-0124-01 ",.02)
  1. ;;00615-0124-01
  1. ;;9002226.02101,"974,00615-0124-05 ",.01)
  1. ;;00615-0124-05
  1. ;;9002226.02101,"974,00615-0124-05 ",.02)
  1. ;;00615-0124-05
  1. ;;9002226.02101,"974,00615-0124-13 ",.01)
  1. ;;00615-0124-13
  1. ;;9002226.02101,"974,00615-0124-13 ",.02)
  1. ;;00615-0124-13
  1. ;;9002226.02101,"974,00615-0170-13 ",.01)
  1. ;;00615-0170-13
  1. ;;9002226.02101,"974,00615-0170-13 ",.02)
  1. ;;00615-0170-13
  1. ;;9002226.02101,"974,00615-0170-43 ",.01)
  1. ;;00615-0170-43
  1. ;;9002226.02101,"974,00615-0170-43 ",.02)
  1. ;;00615-0170-43
  1. ;;9002226.02101,"974,00615-0170-53 ",.01)
  1. ;;00615-0170-53
  1. ;;9002226.02101,"974,00615-0170-53 ",.02)
  1. ;;00615-0170-53
  1. ;;9002226.02101,"974,00615-0170-63 ",.01)
  1. ;;00615-0170-63
  1. ;;9002226.02101,"974,00615-0170-63 ",.02)
  1. ;;00615-0170-63
  1. ;;9002226.02101,"974,00615-0171-13 ",.01)
  1. ;;00615-0171-13
  1. ;;9002226.02101,"974,00615-0171-13 ",.02)
  1. ;;00615-0171-13
  1. ;;9002226.02101,"974,00615-0180-01 ",.01)
  1. ;;00615-0180-01
  1. ;;9002226.02101,"974,00615-0180-01 ",.02)
  1. ;;00615-0180-01
  1. ;;9002226.02101,"974,00615-0385-13 ",.01)
  1. ;;00615-0385-13
  1. ;;9002226.02101,"974,00615-0385-13 ",.02)
  1. ;;00615-0385-13
  1. ;;9002226.02101,"974,00615-1310-13 ",.01)
  1. ;;00615-1310-13
  1. ;;9002226.02101,"974,00615-1310-13 ",.02)
  1. ;;00615-1310-13
  1. ;;9002226.02101,"974,00641-2764-43 ",.01)
  1. ;;00641-2764-43
  1. ;;9002226.02101,"974,00641-2764-43 ",.02)
  1. ;;00641-2764-43
  1. ;;9002226.02101,"974,00641-2765-43 ",.01)
  1. ;;00641-2765-43
  1. ;;9002226.02101,"974,00641-2765-43 ",.02)
  1. ;;00641-2765-43
  1. ;;9002226.02101,"974,00641-2766-41 ",.01)
  1. ;;00641-2766-41
  1. ;;9002226.02101,"974,00641-2766-41 ",.02)
  1. ;;00641-2766-41
  1. ;;9002226.02101,"974,00677-0562-02 ",.01)
  1. ;;00677-0562-02
  1. ;;9002226.02101,"974,00677-0562-02 ",.02)
  1. ;;00677-0562-02
  1. ;;9002226.02101,"974,00677-0562-05 ",.01)
  1. ;;00677-0562-05
  1. ;;9002226.02101,"974,00677-0562-05 ",.02)
  1. ;;00677-0562-05
  1. ;;9002226.02101,"974,00677-0598-02 ",.01)
  1. ;;00677-0598-02
  1. ;;9002226.02101,"974,00677-0598-02 ",.02)
  1. ;;00677-0598-02
  1. ;;9002226.02101,"974,00677-0660-05 ",.01)
  1. ;;00677-0660-05
  1. ;;9002226.02101,"974,00677-0660-05 ",.02)
  1. ;;00677-0660-05
  1. ;;9002226.02101,"974,00677-0661-01 ",.01)
  1. ;;00677-0661-01
  1. ;;9002226.02101,"974,00677-0661-01 ",.02)
  1. ;;00677-0661-01
  1. ;;9002226.02101,"974,00677-0661-02 ",.01)
  1. ;;00677-0661-02
  1. ;;9002226.02101,"974,00677-0661-02 ",.02)
  1. ;;00677-0661-02
  1. ;;9002226.02101,"974,00677-0661-05 ",.01)
  1. ;;00677-0661-05
  1. ;;9002226.02101,"974,00677-0661-05 ",.02)
  1. ;;00677-0661-05
  1. ;;9002226.02101,"974,00677-0783-01 ",.01)
  1. ;;00677-0783-01
  1. ;;9002226.02101,"974,00677-0783-01 ",.02)
  1. ;;00677-0783-01
  1. ;;9002226.02101,"974,00677-0783-05 ",.01)
  1. ;;00677-0783-05
  1. ;;9002226.02101,"974,00677-0783-05 ",.02)
  1. ;;00677-0783-05
  1. ;;9002226.02101,"974,00677-0783-60 ",.01)
  1. ;;00677-0783-60
  1. ;;9002226.02101,"974,00677-0783-60 ",.02)
  1. ;;00677-0783-60
  1. ;;9002226.02101,"974,00677-0784-01 ",.01)
  1. ;;00677-0784-01
  1. ;;9002226.02101,"974,00677-0784-01 ",.02)
  1. ;;00677-0784-01
  1. ;;9002226.02101,"974,00677-0784-05 ",.01)
  1. ;;00677-0784-05
  1. ;;9002226.02101,"974,00677-0784-05 ",.02)
  1. ;;00677-0784-05
  1. ;;9002226.02101,"974,00677-0784-60 ",.01)
  1. ;;00677-0784-60
  1. ;;9002226.02101,"974,00677-0784-60 ",.02)
  1. ;;00677-0784-60
  1. ;;9002226.02101,"974,00677-0799-02 ",.01)
  1. ;;00677-0799-02
  1. ;;9002226.02101,"974,00677-0799-02 ",.02)
  1. ;;00677-0799-02
  1. ;;9002226.02101,"974,00677-0799-05 ",.01)
  1. ;;00677-0799-05
  1. ;;9002226.02101,"974,00677-0799-05 ",.02)
  1. ;;00677-0799-05
  1. ;;9002226.02101,"974,00677-0840-33 ",.01)
  1. ;;00677-0840-33
  1. ;;9002226.02101,"974,00677-0840-33 ",.02)
  1. ;;00677-0840-33
  1. ;;9002226.02101,"974,00677-0841-33 ",.01)
  1. ;;00677-0841-33
  1. ;;9002226.02101,"974,00677-0841-33 ",.02)
  1. ;;00677-0841-33
  1. ;;9002226.02101,"974,00677-1158-01 ",.01)
  1. ;;00677-1158-01
  1. ;;9002226.02101,"974,00677-1158-01 ",.02)
  1. ;;00677-1158-01
  1. ;;9002226.02101,"974,00677-1158-05 ",.01)
  1. ;;00677-1158-05
  1. ;;9002226.02101,"974,00677-1158-05 ",.02)
  1. ;;00677-1158-05
  1. ;;9002226.02101,"974,00677-1159-01 ",.01)
  1. ;;00677-1159-01
  1. ;;9002226.02101,"974,00677-1159-01 ",.02)
  1. ;;00677-1159-01
  1. ;;9002226.02101,"974,00677-1187-29 ",.01)
  1. ;;00677-1187-29
  1. ;;9002226.02101,"974,00677-1187-29 ",.02)
  1. ;;00677-1187-29
  1. ;;9002226.02101,"974,00677-1188-29 ",.01)
  1. ;;00677-1188-29
  1. ;;9002226.02101,"974,00677-1188-29 ",.02)
  1. ;;00677-1188-29
  1. ;;9002226.02101,"974,00677-1303-27 ",.01)
  1. ;;00677-1303-27
  1. ;;9002226.02101,"974,00677-1303-27 ",.02)
  1. ;;00677-1303-27
  1. ;;9002226.02101,"974,00677-1303-29 ",.01)
  1. ;;00677-1303-29
  1. ;;9002226.02101,"974,00677-1303-29 ",.02)
  1. ;;00677-1303-29
  1. ;;9002226.02101,"974,00677-1865-01 ",.01)
  1. ;;00677-1865-01
  1. ;;9002226.02101,"974,00677-1865-01 ",.02)
  1. ;;00677-1865-01
  1. ;;9002226.02101,"974,00677-1865-06 ",.01)
  1. ;;00677-1865-06
  1. ;;9002226.02101,"974,00677-1865-06 ",.02)
  1. ;;00677-1865-06
  1. ;;9002226.02101,"974,00686-0148-20 ",.01)
  1. ;;00686-0148-20
  1. ;;9002226.02101,"974,00686-0148-20 ",.02)
  1. ;;00686-0148-20
  1. ;;9002226.02101,"974,00686-0162-13 ",.01)
  1. ;;00686-0162-13
  1. ;;9002226.02101,"974,00686-0162-13 ",.02)
  1. ;;00686-0162-13
  1. ;;9002226.02101,"974,00686-0170-13 ",.01)
  1. ;;00686-0170-13
  1. ;;9002226.02101,"974,00686-0170-13 ",.02)
  1. ;;00686-0170-13
  1. ;;9002226.02101,"974,00686-0171-13 ",.01)
  1. ;;00686-0171-13
  1. ;;9002226.02101,"974,00686-0171-13 ",.02)
  1. ;;00686-0171-13
  1. ;;9002226.02101,"974,00686-0226-02 ",.01)
  1. ;;00686-0226-02
  1. ;;9002226.02101,"974,00686-0226-02 ",.02)
  1. ;;00686-0226-02
  1. ;;9002226.02101,"974,00686-0226-04 ",.01)
  1. ;;00686-0226-04
  1. ;;9002226.02101,"974,00686-0226-04 ",.02)
  1. ;;00686-0226-04
  1. ;;9002226.02101,"974,00686-0226-06 ",.01)
  1. ;;00686-0226-06
  1. ;;9002226.02101,"974,00686-0226-06 ",.02)
  1. ;;00686-0226-06
  1. ;;9002226.02101,"974,00686-0522-20 ",.01)
  1. ;;00686-0522-20
  1. ;;9002226.02101,"974,00686-0522-20 ",.02)
  1. ;;00686-0522-20
  1. ;;9002226.02101,"974,00686-0554-20 ",.01)
  1. ;;00686-0554-20
  1. ;;9002226.02101,"974,00686-0554-20 ",.02)
  1. ;;00686-0554-20
  1. ;;9002226.02101,"974,00686-0598-20 ",.01)
  1. ;;00686-0598-20
  1. ;;9002226.02101,"974,00686-0598-20 ",.02)
  1. ;;00686-0598-20
  1. ;;9002226.02101,"974,00686-0600-20 ",.01)
  1. ;;00686-0600-20
  1. ;;9002226.02101,"974,00686-0600-20 ",.02)
  1. ;;00686-0600-20
  1. ;;9002226.02101,"974,00686-0601-20 ",.01)
  1. ;;00686-0601-20
  1. ;;9002226.02101,"974,00686-0601-20 ",.02)
  1. ;;00686-0601-20
  1. ;;9002226.02101,"974,00686-0602-20 ",.01)
  1. ;;00686-0602-20
  1. ;;9002226.02101,"974,00686-0602-20 ",.02)
  1. ;;00686-0602-20
  1. ;;9002226.02101,"974,00686-0603-20 ",.01)
  1. ;;00686-0603-20
  1. ;;9002226.02101,"974,00686-0603-20 ",.02)
  1. ;;00686-0603-20
  1. ;;9002226.02101,"974,00686-0604-20 ",.01)
  1. ;;00686-0604-20
  1. ;;9002226.02101,"974,00686-0604-20 ",.02)
  1. ;;00686-0604-20
  1. ;;9002226.02101,"974,00686-0605-20 ",.01)
  1. ;;00686-0605-20
  1. ;;9002226.02101,"974,00686-0605-20 ",.02)
  1. ;;00686-0605-20
  1. ;;9002226.02101,"974,00686-0606-20 ",.01)
  1. ;;00686-0606-20
  1. ;;9002226.02101,"974,00686-0606-20 ",.02)
  1. ;;00686-0606-20
  1. ;;9002226.02101,"974,00686-0607-20 ",.01)
  1. ;;00686-0607-20
  1. ;;9002226.02101,"974,00686-0607-20 ",.02)
  1. ;;00686-0607-20
  1. ;;9002226.02101,"974,00686-0610-20 ",.01)
  1. ;;00686-0610-20
  1. ;;9002226.02101,"974,00686-0610-20 ",.02)
  1. ;;00686-0610-20
  1. ;;9002226.02101,"974,00686-0611-20 ",.01)
  1. ;;00686-0611-20
  1. ;;9002226.02101,"974,00686-0611-20 ",.02)
  1. ;;00686-0611-20
  1. ;;9002226.02101,"974,00686-0638-10 ",.01)
  1. ;;00686-0638-10
  1. ;;9002226.02101,"974,00686-0638-10 ",.02)
  1. ;;00686-0638-10
  1. ;;9002226.02101,"974,00686-0965-39 ",.01)
  1. ;;00686-0965-39
  1. ;;9002226.02101,"974,00686-0965-39 ",.02)
  1. ;;00686-0965-39
  1. ;;9002226.02101,"974,00686-0970-39 ",.01)
  1. ;;00686-0970-39
  1. ;;9002226.02101,"974,00686-0970-39 ",.02)
  1. ;;00686-0970-39
  1. ;;9002226.02101,"974,00686-0977-16 ",.01)
  1. ;;00686-0977-16
  1. ;;9002226.02101,"974,00686-0977-16 ",.02)
  1. ;;00686-0977-16
  1. ;;9002226.02101,"974,00686-0979-16 ",.01)
  1. ;;00686-0979-16
  1. ;;9002226.02101,"974,00686-0979-16 ",.02)
  1. ;;00686-0979-16
  1. ;;9002226.02101,"974,00686-2130-09 ",.01)
  1. ;;00686-2130-09
  1. ;;9002226.02101,"974,00686-2130-09 ",.02)
  1. ;;00686-2130-09
  1. ;;9002226.02101,"974,00686-2132-09 ",.01)
  1. ;;00686-2132-09
  1. ;;9002226.02101,"974,00686-2132-09 ",.02)
  1. ;;00686-2132-09
  1. ;;9002226.02101,"974,00686-3107-09 ",.01)
  1. ;;00686-3107-09
  1. ;;9002226.02101,"974,00686-3107-09 ",.02)
  1. ;;00686-3107-09
  1. ;;9002226.02101,"974,00686-3109-07 ",.01)
  1. ;;00686-3109-07
  1. ;;9002226.02101,"974,00686-3109-07 ",.02)
  1. ;;00686-3109-07
  1. ;;9002226.02101,"974,00686-3111-09 ",.01)
  1. ;;00686-3111-09
  1. ;;9002226.02101,"974,00686-3111-09 ",.02)
  1. ;;00686-3111-09
  1. ;;9002226.02101,"974,00686-3145-09 ",.01)
  1. ;;00686-3145-09
  1. ;;9002226.02101,"974,00686-3145-09 ",.02)
  1. ;;00686-3145-09
  1. ;;9002226.02101,"974,00686-3147-09 ",.01)
  1. ;;00686-3147-09
  1. ;;9002226.02101,"974,00686-3147-09 ",.02)
  1. ;;00686-3147-09
  1. ;;9002226.02101,"974,00686-3147-13 ",.01)
  1. ;;00686-3147-13
  1. ;;9002226.02101,"974,00686-3147-13 ",.02)
  1. ;;00686-3147-13
  1. ;;9002226.02101,"974,00686-3153-09 ",.01)
  1. ;;00686-3153-09
  1. ;;9002226.02101,"974,00686-3153-09 ",.02)
  1. ;;00686-3153-09