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

BGP13T20.m

Go to the documentation of this file.
BGP13T20 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"992,00185-0222-30 ",.02)
 ;;00185-0222-30
 ;;9002226.02101,"992,00185-0265-30 ",.01)
 ;;00185-0265-30
 ;;9002226.02101,"992,00185-0265-30 ",.02)
 ;;00185-0265-30
 ;;9002226.02101,"992,00185-0371-01 ",.01)
 ;;00185-0371-01
 ;;9002226.02101,"992,00185-0371-01 ",.02)
 ;;00185-0371-01
 ;;9002226.02101,"992,00185-0371-10 ",.01)
 ;;00185-0371-10
 ;;9002226.02101,"992,00185-0371-10 ",.02)
 ;;00185-0371-10
 ;;9002226.02101,"992,00185-0372-01 ",.01)
 ;;00185-0372-01
 ;;9002226.02101,"992,00185-0372-01 ",.02)
 ;;00185-0372-01
 ;;9002226.02101,"992,00185-0372-10 ",.01)
 ;;00185-0372-10
 ;;9002226.02101,"992,00185-0372-10 ",.02)
 ;;00185-0372-10
 ;;9002226.02101,"992,00185-0373-01 ",.01)
 ;;00185-0373-01
 ;;9002226.02101,"992,00185-0373-01 ",.02)
 ;;00185-0373-01
 ;;9002226.02101,"992,00185-0373-05 ",.01)
 ;;00185-0373-05
 ;;9002226.02101,"992,00185-0373-05 ",.02)
 ;;00185-0373-05
 ;;9002226.02101,"992,00185-0373-10 ",.01)
 ;;00185-0373-10
 ;;9002226.02101,"992,00185-0373-10 ",.02)
 ;;00185-0373-10
 ;;9002226.02101,"992,00185-0410-01 ",.01)
 ;;00185-0410-01
 ;;9002226.02101,"992,00185-0410-01 ",.02)
 ;;00185-0410-01
 ;;9002226.02101,"992,00185-0410-05 ",.01)
 ;;00185-0410-05
 ;;9002226.02101,"992,00185-0410-05 ",.02)
 ;;00185-0410-05
 ;;9002226.02101,"992,00185-0410-60 ",.01)
 ;;00185-0410-60
 ;;9002226.02101,"992,00185-0410-60 ",.02)
 ;;00185-0410-60
 ;;9002226.02101,"992,00185-0415-01 ",.01)
 ;;00185-0415-01
 ;;9002226.02101,"992,00185-0415-01 ",.02)
 ;;00185-0415-01
 ;;9002226.02101,"992,00185-0415-05 ",.01)
 ;;00185-0415-05
 ;;9002226.02101,"992,00185-0415-05 ",.02)
 ;;00185-0415-05
 ;;9002226.02101,"992,00185-0415-52 ",.01)
 ;;00185-0415-52
 ;;9002226.02101,"992,00185-0415-52 ",.02)
 ;;00185-0415-52
 ;;9002226.02101,"992,00185-0415-60 ",.01)
 ;;00185-0415-60
 ;;9002226.02101,"992,00185-0415-60 ",.02)
 ;;00185-0415-60
 ;;9002226.02101,"992,00185-0721-01 ",.01)
 ;;00185-0721-01
 ;;9002226.02101,"992,00185-0721-01 ",.02)
 ;;00185-0721-01
 ;;9002226.02101,"992,00185-0721-10 ",.01)
 ;;00185-0721-10
 ;;9002226.02101,"992,00185-0721-10 ",.02)
 ;;00185-0721-10
 ;;9002226.02101,"992,00185-0722-01 ",.01)
 ;;00185-0722-01
 ;;9002226.02101,"992,00185-0722-01 ",.02)
 ;;00185-0722-01
 ;;9002226.02101,"992,00185-0722-05 ",.01)
 ;;00185-0722-05
 ;;9002226.02101,"992,00185-0722-05 ",.02)
 ;;00185-0722-05
 ;;9002226.02101,"992,00185-0736-01 ",.01)
 ;;00185-0736-01
 ;;9002226.02101,"992,00185-0736-01 ",.02)
 ;;00185-0736-01
 ;;9002226.02101,"992,00185-0736-05 ",.01)
 ;;00185-0736-05
 ;;9002226.02101,"992,00185-0736-05 ",.02)
 ;;00185-0736-05
 ;;9002226.02101,"992,00185-0760-53 ",.01)
 ;;00185-0760-53
 ;;9002226.02101,"992,00185-0760-53 ",.02)
 ;;00185-0760-53
 ;;9002226.02101,"992,00185-1111-60 ",.01)
 ;;00185-1111-60
 ;;9002226.02101,"992,00185-1111-60 ",.02)
 ;;00185-1111-60
 ;;9002226.02101,"992,00187-3805-10 ",.01)
 ;;00187-3805-10
 ;;9002226.02101,"992,00187-3805-10 ",.02)
 ;;00187-3805-10
 ;;9002226.02101,"992,00187-3806-10 ",.01)
 ;;00187-3806-10
 ;;9002226.02101,"992,00187-3806-10 ",.02)
 ;;00187-3806-10
 ;;9002226.02101,"992,00223-0195-01 ",.01)
 ;;00223-0195-01
 ;;9002226.02101,"992,00223-0195-01 ",.02)
 ;;00223-0195-01
 ;;9002226.02101,"992,00223-0195-02 ",.01)
 ;;00223-0195-02
 ;;9002226.02101,"992,00223-0195-02 ",.02)
 ;;00223-0195-02
 ;;9002226.02101,"992,00223-0196-01 ",.01)
 ;;00223-0196-01
 ;;9002226.02101,"992,00223-0196-01 ",.02)
 ;;00223-0196-01
 ;;9002226.02101,"992,00223-0196-02 ",.01)
 ;;00223-0196-02
 ;;9002226.02101,"992,00223-0196-02 ",.02)
 ;;00223-0196-02
 ;;9002226.02101,"992,00223-0197-01 ",.01)
 ;;00223-0197-01
 ;;9002226.02101,"992,00223-0197-01 ",.02)
 ;;00223-0197-01
 ;;9002226.02101,"992,00223-0197-02 ",.01)
 ;;00223-0197-02
 ;;9002226.02101,"992,00223-0197-02 ",.02)
 ;;00223-0197-02
 ;;9002226.02101,"992,00223-0198-01 ",.01)
 ;;00223-0198-01
 ;;9002226.02101,"992,00223-0198-01 ",.02)
 ;;00223-0198-01
 ;;9002226.02101,"992,00223-0198-02 ",.01)
 ;;00223-0198-02
 ;;9002226.02101,"992,00223-0198-02 ",.02)
 ;;00223-0198-02
 ;;9002226.02101,"992,00223-0199-01 ",.01)
 ;;00223-0199-01
 ;;9002226.02101,"992,00223-0199-01 ",.02)
 ;;00223-0199-01
 ;;9002226.02101,"992,00223-0200-01 ",.01)
 ;;00223-0200-01
 ;;9002226.02101,"992,00223-0200-01 ",.02)
 ;;00223-0200-01
 ;;9002226.02101,"992,00223-0201-01 ",.01)
 ;;00223-0201-01
 ;;9002226.02101,"992,00223-0201-01 ",.02)
 ;;00223-0201-01
 ;;9002226.02101,"992,00223-1102-01 ",.01)
 ;;00223-1102-01
 ;;9002226.02101,"992,00223-1102-01 ",.02)
 ;;00223-1102-01
 ;;9002226.02101,"992,00223-1102-02 ",.01)
 ;;00223-1102-02
 ;;9002226.02101,"992,00223-1102-02 ",.02)
 ;;00223-1102-02
 ;;9002226.02101,"992,00223-1103-01 ",.01)
 ;;00223-1103-01
 ;;9002226.02101,"992,00223-1103-01 ",.02)
 ;;00223-1103-01
 ;;9002226.02101,"992,00223-1103-02 ",.01)
 ;;00223-1103-02
 ;;9002226.02101,"992,00223-1103-02 ",.02)
 ;;00223-1103-02
 ;;9002226.02101,"992,00223-1104-01 ",.01)
 ;;00223-1104-01
 ;;9002226.02101,"992,00223-1104-01 ",.02)
 ;;00223-1104-01
 ;;9002226.02101,"992,00223-1104-02 ",.01)
 ;;00223-1104-02
 ;;9002226.02101,"992,00223-1104-02 ",.02)
 ;;00223-1104-02
 ;;9002226.02101,"992,00228-2131-10 ",.01)
 ;;00228-2131-10
 ;;9002226.02101,"992,00228-2131-10 ",.02)
 ;;00228-2131-10
 ;;9002226.02101,"992,00228-2131-96 ",.01)
 ;;00228-2131-96
 ;;9002226.02101,"992,00228-2131-96 ",.02)
 ;;00228-2131-96
 ;;9002226.02101,"992,00228-2132-10 ",.01)
 ;;00228-2132-10
 ;;9002226.02101,"992,00228-2132-10 ",.02)
 ;;00228-2132-10
 ;;9002226.02101,"992,00228-2132-96 ",.01)
 ;;00228-2132-96
 ;;9002226.02101,"992,00228-2132-96 ",.02)
 ;;00228-2132-96
 ;;9002226.02101,"992,00228-2133-10 ",.01)
 ;;00228-2133-10
 ;;9002226.02101,"992,00228-2133-10 ",.02)
 ;;00228-2133-10
 ;;9002226.02101,"992,00228-2133-96 ",.01)
 ;;00228-2133-96
 ;;9002226.02101,"992,00228-2133-96 ",.02)
 ;;00228-2133-96
 ;;9002226.02101,"992,00228-2134-10 ",.01)
 ;;00228-2134-10
 ;;9002226.02101,"992,00228-2134-10 ",.02)
 ;;00228-2134-10
 ;;9002226.02101,"992,00228-2135-10 ",.01)
 ;;00228-2135-10
 ;;9002226.02101,"992,00228-2135-10 ",.02)
 ;;00228-2135-10
 ;;9002226.02101,"992,00228-2439-10 ",.01)
 ;;00228-2439-10
 ;;9002226.02101,"992,00228-2439-10 ",.02)
 ;;00228-2439-10
 ;;9002226.02101,"992,00228-2439-50 ",.01)
 ;;00228-2439-50
 ;;9002226.02101,"992,00228-2439-50 ",.02)
 ;;00228-2439-50
 ;;9002226.02101,"992,00228-2441-10 ",.01)
 ;;00228-2441-10
 ;;9002226.02101,"992,00228-2441-10 ",.02)
 ;;00228-2441-10
 ;;9002226.02101,"992,00228-2655-11 ",.01)
 ;;00228-2655-11
 ;;9002226.02101,"992,00228-2655-11 ",.02)
 ;;00228-2655-11
 ;;9002226.02101,"992,00228-2655-50 ",.01)
 ;;00228-2655-50
 ;;9002226.02101,"992,00228-2655-50 ",.02)
 ;;00228-2655-50
 ;;9002226.02101,"992,00228-2656-11 ",.01)
 ;;00228-2656-11
 ;;9002226.02101,"992,00228-2656-11 ",.02)
 ;;00228-2656-11
 ;;9002226.02101,"992,00228-2656-50 ",.01)
 ;;00228-2656-50
 ;;9002226.02101,"992,00228-2656-50 ",.02)
 ;;00228-2656-50
 ;;9002226.02101,"992,00228-2702-11 ",.01)
 ;;00228-2702-11
 ;;9002226.02101,"992,00228-2702-11 ",.02)
 ;;00228-2702-11
 ;;9002226.02101,"992,00228-2703-11 ",.01)
 ;;00228-2703-11
 ;;9002226.02101,"992,00228-2703-11 ",.02)
 ;;00228-2703-11
 ;;9002226.02101,"992,00228-2704-11 ",.01)
 ;;00228-2704-11
 ;;9002226.02101,"992,00228-2704-11 ",.02)
 ;;00228-2704-11
 ;;9002226.02101,"992,00228-2704-50 ",.01)
 ;;00228-2704-50
 ;;9002226.02101,"992,00228-2704-50 ",.02)
 ;;00228-2704-50
 ;;9002226.02101,"992,00228-2721-03 ",.01)
 ;;00228-2721-03
 ;;9002226.02101,"992,00228-2721-03 ",.02)
 ;;00228-2721-03
 ;;9002226.02101,"992,00228-2721-09 ",.01)
 ;;00228-2721-09
 ;;9002226.02101,"992,00228-2721-09 ",.02)
 ;;00228-2721-09
 ;;9002226.02101,"992,00228-2721-50 ",.01)
 ;;00228-2721-50
 ;;9002226.02101,"992,00228-2721-50 ",.02)
 ;;00228-2721-50
 ;;9002226.02101,"992,00228-2722-03 ",.01)
 ;;00228-2722-03
 ;;9002226.02101,"992,00228-2722-03 ",.02)
 ;;00228-2722-03
 ;;9002226.02101,"992,00228-2722-09 ",.01)
 ;;00228-2722-09
 ;;9002226.02101,"992,00228-2722-09 ",.02)
 ;;00228-2722-09
 ;;9002226.02101,"992,00228-2722-90 ",.01)
 ;;00228-2722-90
 ;;9002226.02101,"992,00228-2722-90 ",.02)
 ;;00228-2722-90
 ;;9002226.02101,"992,00228-2723-03 ",.01)
 ;;00228-2723-03
 ;;9002226.02101,"992,00228-2723-03 ",.02)
 ;;00228-2723-03
 ;;9002226.02101,"992,00228-2723-09 ",.01)
 ;;00228-2723-09
 ;;9002226.02101,"992,00228-2723-09 ",.02)
 ;;00228-2723-09
 ;;9002226.02101,"992,00228-2723-96 ",.01)
 ;;00228-2723-96
 ;;9002226.02101,"992,00228-2723-96 ",.02)
 ;;00228-2723-96
 ;;9002226.02101,"992,00228-2755-11 ",.01)
 ;;00228-2755-11
 ;;9002226.02101,"992,00228-2755-11 ",.02)
 ;;00228-2755-11
 ;;9002226.02101,"992,00228-2756-11 ",.01)
 ;;00228-2756-11
 ;;9002226.02101,"992,00228-2756-11 ",.02)
 ;;00228-2756-11
 ;;9002226.02101,"992,00228-2756-50 ",.01)
 ;;00228-2756-50
 ;;9002226.02101,"992,00228-2756-50 ",.02)
 ;;00228-2756-50
 ;;9002226.02101,"992,00228-2757-11 ",.01)
 ;;00228-2757-11
 ;;9002226.02101,"992,00228-2757-11 ",.02)
 ;;00228-2757-11
 ;;9002226.02101,"992,00228-2757-50 ",.01)
 ;;00228-2757-50
 ;;9002226.02101,"992,00228-2757-50 ",.02)
 ;;00228-2757-50
 ;;9002226.02101,"992,00247-0038-07 ",.01)
 ;;00247-0038-07
 ;;9002226.02101,"992,00247-0038-07 ",.02)
 ;;00247-0038-07
 ;;9002226.02101,"992,00247-0038-14 ",.01)
 ;;00247-0038-14
 ;;9002226.02101,"992,00247-0038-14 ",.02)
 ;;00247-0038-14
 ;;9002226.02101,"992,00247-0038-15 ",.01)
 ;;00247-0038-15
 ;;9002226.02101,"992,00247-0038-15 ",.02)
 ;;00247-0038-15
 ;;9002226.02101,"992,00247-0038-20 ",.01)
 ;;00247-0038-20
 ;;9002226.02101,"992,00247-0038-20 ",.02)
 ;;00247-0038-20
 ;;9002226.02101,"992,00247-0038-25 ",.01)
 ;;00247-0038-25
 ;;9002226.02101,"992,00247-0038-25 ",.02)
 ;;00247-0038-25
 ;;9002226.02101,"992,00247-0038-30 ",.01)
 ;;00247-0038-30
 ;;9002226.02101,"992,00247-0038-30 ",.02)
 ;;00247-0038-30
 ;;9002226.02101,"992,00247-0038-40 ",.01)
 ;;00247-0038-40
 ;;9002226.02101,"992,00247-0038-40 ",.02)
 ;;00247-0038-40
 ;;9002226.02101,"992,00247-0038-60 ",.01)
 ;;00247-0038-60
 ;;9002226.02101,"992,00247-0038-60 ",.02)
 ;;00247-0038-60
 ;;9002226.02101,"992,00247-0038-90 ",.01)
 ;;00247-0038-90
 ;;9002226.02101,"992,00247-0038-90 ",.02)
 ;;00247-0038-90
 ;;9002226.02101,"992,00247-0370-30 ",.01)
 ;;00247-0370-30
 ;;9002226.02101,"992,00247-0370-30 ",.02)
 ;;00247-0370-30
 ;;9002226.02101,"992,00247-0371-03 ",.01)
 ;;00247-0371-03
 ;;9002226.02101,"992,00247-0371-03 ",.02)
 ;;00247-0371-03
 ;;9002226.02101,"992,00247-0371-06 ",.01)
 ;;00247-0371-06
 ;;9002226.02101,"992,00247-0371-06 ",.02)
 ;;00247-0371-06
 ;;9002226.02101,"992,00247-0371-07 ",.01)
 ;;00247-0371-07
 ;;9002226.02101,"992,00247-0371-07 ",.02)
 ;;00247-0371-07
 ;;9002226.02101,"992,00247-0371-10 ",.01)
 ;;00247-0371-10
 ;;9002226.02101,"992,00247-0371-10 ",.02)
 ;;00247-0371-10
 ;;9002226.02101,"992,00247-0371-14 ",.01)
 ;;00247-0371-14
 ;;9002226.02101,"992,00247-0371-14 ",.02)
 ;;00247-0371-14
 ;;9002226.02101,"992,00247-0371-28 ",.01)
 ;;00247-0371-28
 ;;9002226.02101,"992,00247-0371-28 ",.02)
 ;;00247-0371-28
 ;;9002226.02101,"992,00247-0371-30 ",.01)
 ;;00247-0371-30
 ;;9002226.02101,"992,00247-0371-30 ",.02)
 ;;00247-0371-30
 ;;9002226.02101,"992,00247-0371-45 ",.01)
 ;;00247-0371-45
 ;;9002226.02101,"992,00247-0371-45 ",.02)
 ;;00247-0371-45
 ;;9002226.02101,"992,00247-0371-50 ",.01)
 ;;00247-0371-50
 ;;9002226.02101,"992,00247-0371-50 ",.02)
 ;;00247-0371-50
 ;;9002226.02101,"992,00247-0371-60 ",.01)
 ;;00247-0371-60
 ;;9002226.02101,"992,00247-0371-60 ",.02)
 ;;00247-0371-60
 ;;9002226.02101,"992,00247-0372-00 ",.01)
 ;;00247-0372-00
 ;;9002226.02101,"992,00247-0372-00 ",.02)
 ;;00247-0372-00
 ;;9002226.02101,"992,00247-0372-03 ",.01)
 ;;00247-0372-03
 ;;9002226.02101,"992,00247-0372-03 ",.02)
 ;;00247-0372-03
 ;;9002226.02101,"992,00247-0372-04 ",.01)
 ;;00247-0372-04
 ;;9002226.02101,"992,00247-0372-04 ",.02)
 ;;00247-0372-04
 ;;9002226.02101,"992,00247-0372-07 ",.01)
 ;;00247-0372-07
 ;;9002226.02101,"992,00247-0372-07 ",.02)
 ;;00247-0372-07
 ;;9002226.02101,"992,00247-0372-10 ",.01)
 ;;00247-0372-10
 ;;9002226.02101,"992,00247-0372-10 ",.02)
 ;;00247-0372-10
 ;;9002226.02101,"992,00247-0372-14 ",.01)
 ;;00247-0372-14
 ;;9002226.02101,"992,00247-0372-14 ",.02)
 ;;00247-0372-14
 ;;9002226.02101,"992,00247-0372-15 ",.01)
 ;;00247-0372-15
 ;;9002226.02101,"992,00247-0372-15 ",.02)
 ;;00247-0372-15
 ;;9002226.02101,"992,00247-0372-28 ",.01)
 ;;00247-0372-28
 ;;9002226.02101,"992,00247-0372-28 ",.02)
 ;;00247-0372-28