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

BGP7LXAD.m

Go to the documentation of this file.
  1. BGP7LXAD ; 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,"622,00008-0308-02 ",.02)
  1. ;;00008-0308-02
  1. ;;9002226.02101,"622,00008-0601-51 ",.01)
  1. ;;00008-0601-51
  1. ;;9002226.02101,"622,00008-0601-51 ",.02)
  1. ;;00008-0601-51
  1. ;;9002226.02101,"622,00008-0602-51 ",.01)
  1. ;;00008-0602-51
  1. ;;9002226.02101,"622,00008-0602-51 ",.02)
  1. ;;00008-0602-51
  1. ;;9002226.02101,"622,00008-0605-51 ",.01)
  1. ;;00008-0605-51
  1. ;;9002226.02101,"622,00008-0605-51 ",.02)
  1. ;;00008-0605-51
  1. ;;9002226.02101,"622,00009-0024-01 ",.01)
  1. ;;00009-0024-01
  1. ;;9002226.02101,"622,00009-0024-01 ",.02)
  1. ;;00009-0024-01
  1. ;;9002226.02101,"622,00009-0024-02 ",.01)
  1. ;;00009-0024-02
  1. ;;9002226.02101,"622,00009-0024-02 ",.02)
  1. ;;00009-0024-02
  1. ;;9002226.02101,"622,00024-1918-02 ",.01)
  1. ;;00024-1918-02
  1. ;;9002226.02101,"622,00024-1918-02 ",.02)
  1. ;;00024-1918-02
  1. ;;9002226.02101,"622,00029-2205-30 ",.01)
  1. ;;00029-2205-30
  1. ;;9002226.02101,"622,00029-2205-30 ",.02)
  1. ;;00029-2205-30
  1. ;;9002226.02101,"622,00029-2205-39 ",.01)
  1. ;;00029-2205-39
  1. ;;9002226.02101,"622,00029-2205-39 ",.02)
  1. ;;00029-2205-39
  1. ;;9002226.02101,"622,00045-0176-01 ",.01)
  1. ;;00045-0176-01
  1. ;;9002226.02101,"622,00045-0176-01 ",.02)
  1. ;;00045-0176-01
  1. ;;9002226.02101,"622,00045-0176-12 ",.01)
  1. ;;00045-0176-12
  1. ;;9002226.02101,"622,00045-0176-12 ",.02)
  1. ;;00045-0176-12
  1. ;;9002226.02101,"622,00045-0176-65 ",.01)
  1. ;;00045-0176-65
  1. ;;9002226.02101,"622,00045-0176-65 ",.02)
  1. ;;00045-0176-65
  1. ;;9002226.02101,"622,00045-0182-10 ",.01)
  1. ;;00045-0182-10
  1. ;;9002226.02101,"622,00045-0182-10 ",.02)
  1. ;;00045-0182-10
  1. ;;9002226.02101,"622,00045-0182-65 ",.01)
  1. ;;00045-0182-65
  1. ;;9002226.02101,"622,00045-0182-65 ",.02)
  1. ;;00045-0182-65
  1. ;;9002226.02101,"622,00045-0211-48 ",.01)
  1. ;;00045-0211-48
  1. ;;9002226.02101,"622,00045-0211-48 ",.02)
  1. ;;00045-0211-48
  1. ;;9002226.02101,"622,00045-0382-24 ",.01)
  1. ;;00045-0382-24
  1. ;;9002226.02101,"622,00045-0382-24 ",.02)
  1. ;;00045-0382-24
  1. ;;9002226.02101,"622,00045-0482-13 ",.01)
  1. ;;00045-0482-13
  1. ;;9002226.02101,"622,00045-0482-13 ",.02)
  1. ;;00045-0482-13
  1. ;;9002226.02101,"622,00045-0482-17 ",.01)
  1. ;;00045-0482-17
  1. ;;9002226.02101,"622,00045-0482-17 ",.02)
  1. ;;00045-0482-17
  1. ;;9002226.02101,"622,00045-0482-18 ",.01)
  1. ;;00045-0482-18
  1. ;;9002226.02101,"622,00045-0482-18 ",.02)
  1. ;;00045-0482-18
  1. ;;9002226.02101,"622,00045-0482-35 ",.01)
  1. ;;00045-0482-35
  1. ;;9002226.02101,"622,00045-0482-35 ",.02)
  1. ;;00045-0482-35
  1. ;;9002226.02101,"622,00045-0482-48 ",.01)
  1. ;;00045-0482-48
  1. ;;9002226.02101,"622,00045-0482-48 ",.02)
  1. ;;00045-0482-48
  1. ;;9002226.02101,"622,00045-0482-65 ",.01)
  1. ;;00045-0482-65
  1. ;;9002226.02101,"622,00045-0482-65 ",.02)
  1. ;;00045-0482-65
  1. ;;9002226.02101,"622,00047-0980-24 ",.01)
  1. ;;00047-0980-24
  1. ;;9002226.02101,"622,00047-0980-24 ",.02)
  1. ;;00047-0980-24
  1. ;;9002226.02101,"622,00047-0980-30 ",.01)
  1. ;;00047-0980-30
  1. ;;9002226.02101,"622,00047-0980-30 ",.02)
  1. ;;00047-0980-30
  1. ;;9002226.02101,"622,00054-2719-25 ",.01)
  1. ;;00054-2719-25
  1. ;;9002226.02101,"622,00054-2719-25 ",.02)
  1. ;;00054-2719-25
  1. ;;9002226.02101,"622,00054-8732-11 ",.01)
  1. ;;00054-8732-11
  1. ;;9002226.02101,"622,00054-8732-11 ",.02)
  1. ;;00054-8732-11
  1. ;;9002226.02101,"622,00054-8732-24 ",.01)
  1. ;;00054-8732-24
  1. ;;9002226.02101,"622,00054-8732-24 ",.02)
  1. ;;00054-8732-24
  1. ;;9002226.02101,"622,00054-8732-25 ",.01)
  1. ;;00054-8732-25
  1. ;;9002226.02101,"622,00054-8732-25 ",.02)
  1. ;;00054-8732-25
  1. ;;9002226.02101,"622,00068-0697-61 ",.01)
  1. ;;00068-0697-61
  1. ;;9002226.02101,"622,00068-0697-61 ",.02)
  1. ;;00068-0697-61
  1. ;;9002226.02101,"622,00068-0698-61 ",.01)
  1. ;;00068-0698-61
  1. ;;9002226.02101,"622,00068-0698-61 ",.02)
  1. ;;00068-0698-61
  1. ;;9002226.02101,"622,00068-0698-62 ",.01)
  1. ;;00068-0698-62
  1. ;;9002226.02101,"622,00068-0698-62 ",.02)
  1. ;;00068-0698-62
  1. ;;9002226.02101,"622,00074-3377-04 ",.01)
  1. ;;00074-3377-04
  1. ;;9002226.02101,"622,00074-3377-04 ",.02)
  1. ;;00074-3377-04
  1. ;;9002226.02101,"622,00074-6025-13 ",.01)
  1. ;;00074-6025-13
  1. ;;9002226.02101,"622,00074-6025-13 ",.02)
  1. ;;00074-6025-13
  1. ;;9002226.02101,"622,00074-6057-13 ",.01)
  1. ;;00074-6057-13
  1. ;;9002226.02101,"622,00074-6057-13 ",.02)
  1. ;;00074-6057-13
  1. ;;9002226.02101,"622,00074-6073-13 ",.01)
  1. ;;00074-6073-13
  1. ;;9002226.02101,"622,00074-6073-13 ",.02)
  1. ;;00074-6073-13
  1. ;;9002226.02101,"622,00074-6088-13 ",.01)
  1. ;;00074-6088-13
  1. ;;9002226.02101,"622,00074-6088-13 ",.02)
  1. ;;00074-6088-13
  1. ;;9002226.02101,"622,00074-6948-08 ",.01)
  1. ;;00074-6948-08
  1. ;;9002226.02101,"622,00074-6948-08 ",.02)
  1. ;;00074-6948-08
  1. ;;9002226.02101,"622,00074-6959-07 ",.01)
  1. ;;00074-6959-07
  1. ;;9002226.02101,"622,00074-6959-07 ",.02)
  1. ;;00074-6959-07
  1. ;;9002226.02101,"622,00078-0370-05 ",.01)
  1. ;;00078-0370-05
  1. ;;9002226.02101,"622,00078-0370-05 ",.02)
  1. ;;00078-0370-05
  1. ;;9002226.02101,"622,00078-0371-05 ",.01)
  1. ;;00078-0371-05
  1. ;;9002226.02101,"622,00078-0371-05 ",.02)
  1. ;;00078-0371-05
  1. ;;9002226.02101,"622,00078-0372-05 ",.01)
  1. ;;00078-0372-05
  1. ;;9002226.02101,"622,00078-0372-05 ",.02)
  1. ;;00078-0372-05
  1. ;;9002226.02101,"622,00078-0380-05 ",.01)
  1. ;;00078-0380-05
  1. ;;9002226.02101,"622,00078-0380-05 ",.02)
  1. ;;00078-0380-05
  1. ;;9002226.02101,"622,00078-0381-05 ",.01)
  1. ;;00078-0381-05
  1. ;;9002226.02101,"622,00078-0381-05 ",.02)
  1. ;;00078-0381-05
  1. ;;9002226.02101,"622,00078-0382-05 ",.01)
  1. ;;00078-0382-05
  1. ;;9002226.02101,"622,00078-0382-05 ",.02)
  1. ;;00078-0382-05
  1. ;;9002226.02101,"622,00078-0424-05 ",.01)
  1. ;;00078-0424-05
  1. ;;9002226.02101,"622,00078-0424-05 ",.02)
  1. ;;00078-0424-05
  1. ;;9002226.02101,"622,00078-0430-05 ",.01)
  1. ;;00078-0430-05
  1. ;;9002226.02101,"622,00078-0430-05 ",.02)
  1. ;;00078-0430-05
  1. ;;9002226.02101,"622,00078-0431-05 ",.01)
  1. ;;00078-0431-05
  1. ;;9002226.02101,"622,00078-0431-05 ",.02)
  1. ;;00078-0431-05
  1. ;;9002226.02101,"622,00078-0432-05 ",.01)
  1. ;;00078-0432-05
  1. ;;9002226.02101,"622,00078-0432-05 ",.02)
  1. ;;00078-0432-05
  1. ;;9002226.02101,"622,00083-0003-30 ",.01)
  1. ;;00083-0003-30
  1. ;;9002226.02101,"622,00083-0003-30 ",.02)
  1. ;;00083-0003-30
  1. ;;9002226.02101,"622,00083-0007-30 ",.01)
  1. ;;00083-0007-30
  1. ;;9002226.02101,"622,00083-0007-30 ",.02)
  1. ;;00083-0007-30
  1. ;;9002226.02101,"622,00083-0016-30 ",.01)
  1. ;;00083-0016-30
  1. ;;9002226.02101,"622,00083-0016-30 ",.02)
  1. ;;00083-0016-30
  1. ;;9002226.02101,"622,00083-0034-30 ",.01)
  1. ;;00083-0034-30
  1. ;;9002226.02101,"622,00083-0034-30 ",.02)
  1. ;;00083-0034-30
  1. ;;9002226.02101,"622,00083-0246-17 ",.01)
  1. ;;00083-0246-17
  1. ;;9002226.02101,"622,00083-0246-17 ",.02)
  1. ;;00083-0246-17
  1. ;;9002226.02101,"622,00086-0047-10 ",.01)
  1. ;;00086-0047-10
  1. ;;9002226.02101,"622,00086-0047-10 ",.02)
  1. ;;00086-0047-10
  1. ;;9002226.02101,"622,00086-0048-10 ",.01)
  1. ;;00086-0048-10
  1. ;;9002226.02101,"622,00086-0048-10 ",.02)
  1. ;;00086-0048-10
  1. ;;9002226.02101,"622,00086-0048-90 ",.01)
  1. ;;00086-0048-90
  1. ;;9002226.02101,"622,00086-0048-90 ",.02)
  1. ;;00086-0048-90
  1. ;;9002226.02101,"622,00093-0590-45 ",.01)
  1. ;;00093-0590-45
  1. ;;9002226.02101,"622,00093-0590-45 ",.02)
  1. ;;00093-0590-45
  1. ;;9002226.02101,"622,00093-9472-01 ",.01)
  1. ;;00093-9472-01
  1. ;;9002226.02101,"622,00093-9472-01 ",.02)
  1. ;;00093-9472-01
  1. ;;9002226.02101,"622,00093-9524-01 ",.01)
  1. ;;00093-9524-01
  1. ;;9002226.02101,"622,00093-9524-01 ",.02)
  1. ;;00093-9524-01
  1. ;;9002226.02101,"622,00093-9541-01 ",.01)
  1. ;;00093-9541-01
  1. ;;9002226.02101,"622,00093-9541-01 ",.02)
  1. ;;00093-9541-01
  1. ;;9002226.02101,"622,00093-9577-01 ",.01)
  1. ;;00093-9577-01
  1. ;;9002226.02101,"622,00093-9577-01 ",.02)
  1. ;;00093-9577-01
  1. ;;9002226.02101,"622,00113-0465-71 ",.01)
  1. ;;00113-0465-71
  1. ;;9002226.02101,"622,00113-0465-71 ",.02)
  1. ;;00113-0465-71
  1. ;;9002226.02101,"622,00115-7027-01 ",.01)
  1. ;;00115-7027-01
  1. ;;9002226.02101,"622,00115-7027-01 ",.02)
  1. ;;00115-7027-01
  1. ;;9002226.02101,"622,00143-2179-25 ",.01)
  1. ;;00143-2179-25
  1. ;;9002226.02101,"622,00143-2179-25 ",.02)
  1. ;;00143-2179-25
  1. ;;9002226.02101,"622,00143-2179-52 ",.01)
  1. ;;00143-2179-52
  1. ;;9002226.02101,"622,00143-2179-52 ",.02)
  1. ;;00143-2179-52
  1. ;;9002226.02101,"622,00144-0740-01 ",.01)
  1. ;;00144-0740-01
  1. ;;9002226.02101,"622,00144-0740-01 ",.02)
  1. ;;00144-0740-01
  1. ;;9002226.02101,"622,00147-0102-20 ",.01)
  1. ;;00147-0102-20
  1. ;;9002226.02101,"622,00147-0102-20 ",.02)
  1. ;;00147-0102-20
  1. ;;9002226.02101,"622,00147-0103-10 ",.01)
  1. ;;00147-0103-10
  1. ;;9002226.02101,"622,00147-0103-10 ",.02)
  1. ;;00147-0103-10
  1. ;;9002226.02101,"622,00147-0103-20 ",.01)
  1. ;;00147-0103-20
  1. ;;9002226.02101,"622,00147-0103-20 ",.02)
  1. ;;00147-0103-20
  1. ;;9002226.02101,"622,00147-0103-30 ",.01)
  1. ;;00147-0103-30
  1. ;;9002226.02101,"622,00147-0103-30 ",.02)
  1. ;;00147-0103-30
  1. ;;9002226.02101,"622,00147-0105-10 ",.01)
  1. ;;00147-0105-10
  1. ;;9002226.02101,"622,00147-0105-10 ",.02)
  1. ;;00147-0105-10
  1. ;;9002226.02101,"622,00147-0105-20 ",.01)
  1. ;;00147-0105-20
  1. ;;9002226.02101,"622,00147-0105-20 ",.02)
  1. ;;00147-0105-20
  1. ;;9002226.02101,"622,00147-0105-30 ",.01)
  1. ;;00147-0105-30
  1. ;;9002226.02101,"622,00147-0105-30 ",.02)
  1. ;;00147-0105-30
  1. ;;9002226.02101,"622,00147-0106-10 ",.01)
  1. ;;00147-0106-10
  1. ;;9002226.02101,"622,00147-0106-10 ",.02)
  1. ;;00147-0106-10
  1. ;;9002226.02101,"622,00147-0106-20 ",.01)
  1. ;;00147-0106-20
  1. ;;9002226.02101,"622,00147-0106-20 ",.02)
  1. ;;00147-0106-20
  1. ;;9002226.02101,"622,00147-0106-30 ",.01)
  1. ;;00147-0106-30
  1. ;;9002226.02101,"622,00147-0106-30 ",.02)
  1. ;;00147-0106-30
  1. ;;9002226.02101,"622,00147-0107-10 ",.01)
  1. ;;00147-0107-10
  1. ;;9002226.02101,"622,00147-0107-10 ",.02)
  1. ;;00147-0107-10
  1. ;;9002226.02101,"622,00147-0107-20 ",.01)
  1. ;;00147-0107-20
  1. ;;9002226.02101,"622,00147-0107-20 ",.02)
  1. ;;00147-0107-20
  1. ;;9002226.02101,"622,00147-0107-30 ",.01)
  1. ;;00147-0107-30
  1. ;;9002226.02101,"622,00147-0107-30 ",.02)
  1. ;;00147-0107-30
  1. ;;9002226.02101,"622,00147-0109-10 ",.01)
  1. ;;00147-0109-10
  1. ;;9002226.02101,"622,00147-0109-10 ",.02)
  1. ;;00147-0109-10
  1. ;;9002226.02101,"622,00147-0109-20 ",.01)
  1. ;;00147-0109-20
  1. ;;9002226.02101,"622,00147-0109-20 ",.02)
  1. ;;00147-0109-20
  1. ;;9002226.02101,"622,00147-0132-20 ",.01)
  1. ;;00147-0132-20
  1. ;;9002226.02101,"622,00147-0132-20 ",.02)
  1. ;;00147-0132-20
  1. ;;9002226.02101,"622,00147-0135-20 ",.01)
  1. ;;00147-0135-20
  1. ;;9002226.02101,"622,00147-0135-20 ",.02)
  1. ;;00147-0135-20
  1. ;;9002226.02101,"622,00147-0136-10 ",.01)
  1. ;;00147-0136-10
  1. ;;9002226.02101,"622,00147-0136-10 ",.02)
  1. ;;00147-0136-10
  1. ;;9002226.02101,"622,00147-0136-20 ",.01)
  1. ;;00147-0136-20
  1. ;;9002226.02101,"622,00147-0136-20 ",.02)
  1. ;;00147-0136-20
  1. ;;9002226.02101,"622,00147-0198-10 ",.01)
  1. ;;00147-0198-10
  1. ;;9002226.02101,"622,00147-0198-10 ",.02)
  1. ;;00147-0198-10
  1. ;;9002226.02101,"622,00147-0198-20 ",.01)
  1. ;;00147-0198-20
  1. ;;9002226.02101,"622,00147-0198-20 ",.02)
  1. ;;00147-0198-20
  1. ;;9002226.02101,"622,00147-0201-10 ",.01)
  1. ;;00147-0201-10
  1. ;;9002226.02101,"622,00147-0201-10 ",.02)
  1. ;;00147-0201-10
  1. ;;9002226.02101,"622,00147-0201-20 ",.01)
  1. ;;00147-0201-20
  1. ;;9002226.02101,"622,00147-0201-20 ",.02)
  1. ;;00147-0201-20
  1. ;;9002226.02101,"622,00147-0202-10 ",.01)
  1. ;;00147-0202-10
  1. ;;9002226.02101,"622,00147-0202-10 ",.02)
  1. ;;00147-0202-10
  1. ;;9002226.02101,"622,00147-0202-20 ",.01)
  1. ;;00147-0202-20
  1. ;;9002226.02101,"622,00147-0202-20 ",.02)
  1. ;;00147-0202-20
  1. ;;9002226.02101,"622,00147-0231-10 ",.01)
  1. ;;00147-0231-10
  1. ;;9002226.02101,"622,00147-0231-10 ",.02)
  1. ;;00147-0231-10
  1. ;;9002226.02101,"622,00147-0231-20 ",.01)
  1. ;;00147-0231-20
  1. ;;9002226.02101,"622,00147-0231-20 ",.02)
  1. ;;00147-0231-20
  1. ;;9002226.02101,"622,00147-0232-10 ",.01)
  1. ;;00147-0232-10
  1. ;;9002226.02101,"622,00147-0232-10 ",.02)
  1. ;;00147-0232-10
  1. ;;9002226.02101,"622,00147-0232-20 ",.01)
  1. ;;00147-0232-20
  1. ;;9002226.02101,"622,00147-0232-20 ",.02)
  1. ;;00147-0232-20
  1. ;;9002226.02101,"622,00147-0234-10 ",.01)
  1. ;;00147-0234-10
  1. ;;9002226.02101,"622,00147-0234-10 ",.02)
  1. ;;00147-0234-10
  1. ;;9002226.02101,"622,00147-0234-20 ",.01)
  1. ;;00147-0234-20
  1. ;;9002226.02101,"622,00147-0234-20 ",.02)
  1. ;;00147-0234-20
  1. ;;9002226.02101,"622,00147-0235-10 ",.01)
  1. ;;00147-0235-10
  1. ;;9002226.02101,"622,00147-0235-10 ",.02)
  1. ;;00147-0235-10
  1. ;;9002226.02101,"622,00147-0235-20 ",.01)
  1. ;;00147-0235-20
  1. ;;9002226.02101,"622,00147-0235-20 ",.02)
  1. ;;00147-0235-20
  1. ;;9002226.02101,"622,00147-0237-10 ",.01)
  1. ;;00147-0237-10
  1. ;;9002226.02101,"622,00147-0237-10 ",.02)
  1. ;;00147-0237-10
  1. ;;9002226.02101,"622,00147-0237-20 ",.01)
  1. ;;00147-0237-20
  1. ;;9002226.02101,"622,00147-0237-20 ",.02)
  1. ;;00147-0237-20
  1. ;;9002226.02101,"622,00147-0248-10 ",.01)
  1. ;;00147-0248-10
  1. ;;9002226.02101,"622,00147-0248-10 ",.02)
  1. ;;00147-0248-10
  1. ;;9002226.02101,"622,00147-0248-20 ",.01)
  1. ;;00147-0248-20
  1. ;;9002226.02101,"622,00147-0248-20 ",.02)
  1. ;;00147-0248-20
  1. ;;9002226.02101,"622,00147-0249-10 ",.01)
  1. ;;00147-0249-10
  1. ;;9002226.02101,"622,00147-0249-10 ",.02)
  1. ;;00147-0249-10
  1. ;;9002226.02101,"622,00147-0249-20 ",.01)
  1. ;;00147-0249-20
  1. ;;9002226.02101,"622,00147-0249-20 ",.02)
  1. ;;00147-0249-20
  1. ;;9002226.02101,"622,00147-0251-10 ",.01)
  1. ;;00147-0251-10
  1. ;;9002226.02101,"622,00147-0251-10 ",.02)
  1. ;;00147-0251-10
  1. ;;9002226.02101,"622,00147-0251-20 ",.01)
  1. ;;00147-0251-20
  1. ;;9002226.02101,"622,00147-0251-20 ",.02)
  1. ;;00147-0251-20
  1. ;;9002226.02101,"622,00147-0253-10 ",.01)
  1. ;;00147-0253-10
  1. ;;9002226.02101,"622,00147-0253-10 ",.02)
  1. ;;00147-0253-10
  1. ;;9002226.02101,"622,00147-0253-20 ",.01)
  1. ;;00147-0253-20
  1. ;;9002226.02101,"622,00147-0253-20 ",.02)
  1. ;;00147-0253-20
  1. ;;9002226.02101,"622,00147-0254-10 ",.01)
  1. ;;00147-0254-10
  1. ;;9002226.02101,"622,00147-0254-10 ",.02)
  1. ;;00147-0254-10
  1. ;;9002226.02101,"622,00147-0254-20 ",.01)
  1. ;;00147-0254-20
  1. ;;9002226.02101,"622,00147-0254-20 ",.02)
  1. ;;00147-0254-20
  1. ;;9002226.02101,"622,00182-0205-01 ",.01)
  1. ;;00182-0205-01