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