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

BGP82Z40.m

Go to the documentation of this file.
BGP82Z40 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"619,43063-0220-30 ",.02)
 ;;43063-0220-30
 ;;9002226.02101,"619,43063-0220-60 ",.01)
 ;;43063-0220-60
 ;;9002226.02101,"619,43063-0220-60 ",.02)
 ;;43063-0220-60
 ;;9002226.02101,"619,43063-0220-77 ",.01)
 ;;43063-0220-77
 ;;9002226.02101,"619,43063-0220-77 ",.02)
 ;;43063-0220-77
 ;;9002226.02101,"619,43063-0220-90 ",.01)
 ;;43063-0220-90
 ;;9002226.02101,"619,43063-0220-90 ",.02)
 ;;43063-0220-90
 ;;9002226.02101,"619,43063-0220-93 ",.01)
 ;;43063-0220-93
 ;;9002226.02101,"619,43063-0220-93 ",.02)
 ;;43063-0220-93
 ;;9002226.02101,"619,43063-0220-98 ",.01)
 ;;43063-0220-98
 ;;9002226.02101,"619,43063-0220-98 ",.02)
 ;;43063-0220-98
 ;;9002226.02101,"619,43063-0222-60 ",.01)
 ;;43063-0222-60
 ;;9002226.02101,"619,43063-0222-60 ",.02)
 ;;43063-0222-60
 ;;9002226.02101,"619,43063-0222-90 ",.01)
 ;;43063-0222-90
 ;;9002226.02101,"619,43063-0222-90 ",.02)
 ;;43063-0222-90
 ;;9002226.02101,"619,43063-0222-93 ",.01)
 ;;43063-0222-93
 ;;9002226.02101,"619,43063-0222-93 ",.02)
 ;;43063-0222-93
 ;;9002226.02101,"619,43063-0222-98 ",.01)
 ;;43063-0222-98
 ;;9002226.02101,"619,43063-0222-98 ",.02)
 ;;43063-0222-98
 ;;9002226.02101,"619,43063-0231-20 ",.01)
 ;;43063-0231-20
 ;;9002226.02101,"619,43063-0231-20 ",.02)
 ;;43063-0231-20
 ;;9002226.02101,"619,43063-0231-30 ",.01)
 ;;43063-0231-30
 ;;9002226.02101,"619,43063-0231-30 ",.02)
 ;;43063-0231-30
 ;;9002226.02101,"619,43063-0231-60 ",.01)
 ;;43063-0231-60
 ;;9002226.02101,"619,43063-0231-60 ",.02)
 ;;43063-0231-60
 ;;9002226.02101,"619,43063-0231-90 ",.01)
 ;;43063-0231-90
 ;;9002226.02101,"619,43063-0231-90 ",.02)
 ;;43063-0231-90
 ;;9002226.02101,"619,43063-0244-30 ",.01)
 ;;43063-0244-30
 ;;9002226.02101,"619,43063-0244-30 ",.02)
 ;;43063-0244-30
 ;;9002226.02101,"619,43063-0245-30 ",.01)
 ;;43063-0245-30
 ;;9002226.02101,"619,43063-0245-30 ",.02)
 ;;43063-0245-30
 ;;9002226.02101,"619,43063-0246-30 ",.01)
 ;;43063-0246-30
 ;;9002226.02101,"619,43063-0246-30 ",.02)
 ;;43063-0246-30
 ;;9002226.02101,"619,43063-0265-06 ",.01)
 ;;43063-0265-06
 ;;9002226.02101,"619,43063-0265-06 ",.02)
 ;;43063-0265-06
 ;;9002226.02101,"619,43063-0272-30 ",.01)
 ;;43063-0272-30
 ;;9002226.02101,"619,43063-0272-30 ",.02)
 ;;43063-0272-30
 ;;9002226.02101,"619,43063-0272-60 ",.01)
 ;;43063-0272-60
 ;;9002226.02101,"619,43063-0272-60 ",.02)
 ;;43063-0272-60
 ;;9002226.02101,"619,43063-0272-90 ",.01)
 ;;43063-0272-90
 ;;9002226.02101,"619,43063-0272-90 ",.02)
 ;;43063-0272-90
 ;;9002226.02101,"619,43063-0274-30 ",.01)
 ;;43063-0274-30
 ;;9002226.02101,"619,43063-0274-30 ",.02)
 ;;43063-0274-30
 ;;9002226.02101,"619,43063-0274-60 ",.01)
 ;;43063-0274-60
 ;;9002226.02101,"619,43063-0274-60 ",.02)
 ;;43063-0274-60
 ;;9002226.02101,"619,43063-0274-90 ",.01)
 ;;43063-0274-90
 ;;9002226.02101,"619,43063-0274-90 ",.02)
 ;;43063-0274-90
 ;;9002226.02101,"619,43063-0275-60 ",.01)
 ;;43063-0275-60
 ;;9002226.02101,"619,43063-0275-60 ",.02)
 ;;43063-0275-60
 ;;9002226.02101,"619,43063-0275-90 ",.01)
 ;;43063-0275-90
 ;;9002226.02101,"619,43063-0275-90 ",.02)
 ;;43063-0275-90
 ;;9002226.02101,"619,43063-0275-98 ",.01)
 ;;43063-0275-98
 ;;9002226.02101,"619,43063-0275-98 ",.02)
 ;;43063-0275-98
 ;;9002226.02101,"619,43063-0279-04 ",.01)
 ;;43063-0279-04
 ;;9002226.02101,"619,43063-0279-04 ",.02)
 ;;43063-0279-04
 ;;9002226.02101,"619,43063-0279-06 ",.01)
 ;;43063-0279-06
 ;;9002226.02101,"619,43063-0279-06 ",.02)
 ;;43063-0279-06
 ;;9002226.02101,"619,43063-0279-10 ",.01)
 ;;43063-0279-10
 ;;9002226.02101,"619,43063-0279-10 ",.02)
 ;;43063-0279-10
 ;;9002226.02101,"619,43063-0279-12 ",.01)
 ;;43063-0279-12
 ;;9002226.02101,"619,43063-0279-12 ",.02)
 ;;43063-0279-12
 ;;9002226.02101,"619,43063-0279-18 ",.01)
 ;;43063-0279-18
 ;;9002226.02101,"619,43063-0279-18 ",.02)
 ;;43063-0279-18
 ;;9002226.02101,"619,43063-0279-20 ",.01)
 ;;43063-0279-20
 ;;9002226.02101,"619,43063-0279-20 ",.02)
 ;;43063-0279-20
 ;;9002226.02101,"619,43063-0279-24 ",.01)
 ;;43063-0279-24
 ;;9002226.02101,"619,43063-0279-24 ",.02)
 ;;43063-0279-24
 ;;9002226.02101,"619,43063-0279-30 ",.01)
 ;;43063-0279-30
 ;;9002226.02101,"619,43063-0279-30 ",.02)
 ;;43063-0279-30
 ;;9002226.02101,"619,43063-0279-40 ",.01)
 ;;43063-0279-40
 ;;9002226.02101,"619,43063-0279-40 ",.02)
 ;;43063-0279-40
 ;;9002226.02101,"619,43063-0279-60 ",.01)
 ;;43063-0279-60
 ;;9002226.02101,"619,43063-0279-60 ",.02)
 ;;43063-0279-60
 ;;9002226.02101,"619,43063-0279-86 ",.01)
 ;;43063-0279-86
 ;;9002226.02101,"619,43063-0279-86 ",.02)
 ;;43063-0279-86
 ;;9002226.02101,"619,43063-0279-90 ",.01)
 ;;43063-0279-90
 ;;9002226.02101,"619,43063-0279-90 ",.02)
 ;;43063-0279-90
 ;;9002226.02101,"619,43063-0279-93 ",.01)
 ;;43063-0279-93
 ;;9002226.02101,"619,43063-0279-93 ",.02)
 ;;43063-0279-93
 ;;9002226.02101,"619,43063-0279-98 ",.01)
 ;;43063-0279-98
 ;;9002226.02101,"619,43063-0279-98 ",.02)
 ;;43063-0279-98
 ;;9002226.02101,"619,43063-0279-99 ",.01)
 ;;43063-0279-99
 ;;9002226.02101,"619,43063-0279-99 ",.02)
 ;;43063-0279-99
 ;;9002226.02101,"619,43063-0280-90 ",.01)
 ;;43063-0280-90
 ;;9002226.02101,"619,43063-0280-90 ",.02)
 ;;43063-0280-90
 ;;9002226.02101,"619,43063-0304-06 ",.01)
 ;;43063-0304-06
 ;;9002226.02101,"619,43063-0304-06 ",.02)
 ;;43063-0304-06
 ;;9002226.02101,"619,43063-0304-15 ",.01)
 ;;43063-0304-15
 ;;9002226.02101,"619,43063-0304-15 ",.02)
 ;;43063-0304-15
 ;;9002226.02101,"619,43063-0304-30 ",.01)
 ;;43063-0304-30
 ;;9002226.02101,"619,43063-0304-30 ",.02)
 ;;43063-0304-30
 ;;9002226.02101,"619,43063-0304-60 ",.01)
 ;;43063-0304-60
 ;;9002226.02101,"619,43063-0304-60 ",.02)
 ;;43063-0304-60
 ;;9002226.02101,"619,43063-0304-90 ",.01)
 ;;43063-0304-90
 ;;9002226.02101,"619,43063-0304-90 ",.02)
 ;;43063-0304-90
 ;;9002226.02101,"619,43063-0304-93 ",.01)
 ;;43063-0304-93
 ;;9002226.02101,"619,43063-0304-93 ",.02)
 ;;43063-0304-93
 ;;9002226.02101,"619,43063-0304-98 ",.01)
 ;;43063-0304-98
 ;;9002226.02101,"619,43063-0304-98 ",.02)
 ;;43063-0304-98
 ;;9002226.02101,"619,43063-0304-99 ",.01)
 ;;43063-0304-99
 ;;9002226.02101,"619,43063-0304-99 ",.02)
 ;;43063-0304-99
 ;;9002226.02101,"619,43063-0339-01 ",.01)
 ;;43063-0339-01
 ;;9002226.02101,"619,43063-0339-01 ",.02)
 ;;43063-0339-01
 ;;9002226.02101,"619,43063-0339-20 ",.01)
 ;;43063-0339-20
 ;;9002226.02101,"619,43063-0339-20 ",.02)
 ;;43063-0339-20
 ;;9002226.02101,"619,43063-0339-30 ",.01)
 ;;43063-0339-30
 ;;9002226.02101,"619,43063-0339-30 ",.02)
 ;;43063-0339-30
 ;;9002226.02101,"619,43063-0339-60 ",.01)
 ;;43063-0339-60
 ;;9002226.02101,"619,43063-0339-60 ",.02)
 ;;43063-0339-60
 ;;9002226.02101,"619,43063-0339-90 ",.01)
 ;;43063-0339-90
 ;;9002226.02101,"619,43063-0339-90 ",.02)
 ;;43063-0339-90
 ;;9002226.02101,"619,43063-0339-98 ",.01)
 ;;43063-0339-98
 ;;9002226.02101,"619,43063-0339-98 ",.02)
 ;;43063-0339-98
 ;;9002226.02101,"619,43063-0349-15 ",.01)
 ;;43063-0349-15
 ;;9002226.02101,"619,43063-0349-15 ",.02)
 ;;43063-0349-15
 ;;9002226.02101,"619,43063-0349-20 ",.01)
 ;;43063-0349-20
 ;;9002226.02101,"619,43063-0349-20 ",.02)
 ;;43063-0349-20
 ;;9002226.02101,"619,43063-0349-30 ",.01)
 ;;43063-0349-30
 ;;9002226.02101,"619,43063-0349-30 ",.02)
 ;;43063-0349-30
 ;;9002226.02101,"619,43063-0349-60 ",.01)
 ;;43063-0349-60
 ;;9002226.02101,"619,43063-0349-60 ",.02)
 ;;43063-0349-60
 ;;9002226.02101,"619,43063-0354-02 ",.01)
 ;;43063-0354-02
 ;;9002226.02101,"619,43063-0354-02 ",.02)
 ;;43063-0354-02
 ;;9002226.02101,"619,43063-0354-10 ",.01)
 ;;43063-0354-10
 ;;9002226.02101,"619,43063-0354-10 ",.02)
 ;;43063-0354-10
 ;;9002226.02101,"619,43063-0379-12 ",.01)
 ;;43063-0379-12
 ;;9002226.02101,"619,43063-0379-12 ",.02)
 ;;43063-0379-12
 ;;9002226.02101,"619,43063-0379-30 ",.01)
 ;;43063-0379-30
 ;;9002226.02101,"619,43063-0379-30 ",.02)
 ;;43063-0379-30
 ;;9002226.02101,"619,43063-0511-30 ",.01)
 ;;43063-0511-30
 ;;9002226.02101,"619,43063-0511-30 ",.02)
 ;;43063-0511-30
 ;;9002226.02101,"619,43063-0511-60 ",.01)
 ;;43063-0511-60
 ;;9002226.02101,"619,43063-0511-60 ",.02)
 ;;43063-0511-60
 ;;9002226.02101,"619,43063-0511-90 ",.01)
 ;;43063-0511-90
 ;;9002226.02101,"619,43063-0511-90 ",.02)
 ;;43063-0511-90
 ;;9002226.02101,"619,43063-0511-93 ",.01)
 ;;43063-0511-93
 ;;9002226.02101,"619,43063-0511-93 ",.02)
 ;;43063-0511-93
 ;;9002226.02101,"619,43063-0511-98 ",.01)
 ;;43063-0511-98
 ;;9002226.02101,"619,43063-0511-98 ",.02)
 ;;43063-0511-98
 ;;9002226.02101,"619,43063-0511-99 ",.01)
 ;;43063-0511-99
 ;;9002226.02101,"619,43063-0511-99 ",.02)
 ;;43063-0511-99
 ;;9002226.02101,"619,43063-0512-30 ",.01)
 ;;43063-0512-30
 ;;9002226.02101,"619,43063-0512-30 ",.02)
 ;;43063-0512-30
 ;;9002226.02101,"619,43063-0512-60 ",.01)
 ;;43063-0512-60
 ;;9002226.02101,"619,43063-0512-60 ",.02)
 ;;43063-0512-60
 ;;9002226.02101,"619,43063-0512-90 ",.01)
 ;;43063-0512-90
 ;;9002226.02101,"619,43063-0512-90 ",.02)
 ;;43063-0512-90
 ;;9002226.02101,"619,43063-0512-93 ",.01)
 ;;43063-0512-93
 ;;9002226.02101,"619,43063-0512-93 ",.02)
 ;;43063-0512-93
 ;;9002226.02101,"619,43063-0512-98 ",.01)
 ;;43063-0512-98
 ;;9002226.02101,"619,43063-0512-98 ",.02)
 ;;43063-0512-98
 ;;9002226.02101,"619,43063-0512-99 ",.01)
 ;;43063-0512-99
 ;;9002226.02101,"619,43063-0512-99 ",.02)
 ;;43063-0512-99
 ;;9002226.02101,"619,43063-0523-12 ",.01)
 ;;43063-0523-12
 ;;9002226.02101,"619,43063-0523-12 ",.02)
 ;;43063-0523-12
 ;;9002226.02101,"619,43063-0523-30 ",.01)
 ;;43063-0523-30
 ;;9002226.02101,"619,43063-0523-30 ",.02)
 ;;43063-0523-30
 ;;9002226.02101,"619,43063-0528-06 ",.01)
 ;;43063-0528-06
 ;;9002226.02101,"619,43063-0528-06 ",.02)
 ;;43063-0528-06
 ;;9002226.02101,"619,43063-0528-20 ",.01)
 ;;43063-0528-20
 ;;9002226.02101,"619,43063-0528-20 ",.02)
 ;;43063-0528-20
 ;;9002226.02101,"619,43063-0528-30 ",.01)
 ;;43063-0528-30
 ;;9002226.02101,"619,43063-0528-30 ",.02)
 ;;43063-0528-30
 ;;9002226.02101,"619,43063-0528-60 ",.01)
 ;;43063-0528-60
 ;;9002226.02101,"619,43063-0528-60 ",.02)
 ;;43063-0528-60
 ;;9002226.02101,"619,43063-0528-90 ",.01)
 ;;43063-0528-90
 ;;9002226.02101,"619,43063-0528-90 ",.02)
 ;;43063-0528-90
 ;;9002226.02101,"619,43063-0528-98 ",.01)
 ;;43063-0528-98
 ;;9002226.02101,"619,43063-0528-98 ",.02)
 ;;43063-0528-98
 ;;9002226.02101,"619,43063-0554-06 ",.01)
 ;;43063-0554-06
 ;;9002226.02101,"619,43063-0554-06 ",.02)
 ;;43063-0554-06
 ;;9002226.02101,"619,43063-0554-10 ",.01)
 ;;43063-0554-10
 ;;9002226.02101,"619,43063-0554-10 ",.02)
 ;;43063-0554-10
 ;;9002226.02101,"619,43063-0554-12 ",.01)
 ;;43063-0554-12
 ;;9002226.02101,"619,43063-0554-12 ",.02)
 ;;43063-0554-12
 ;;9002226.02101,"619,43063-0554-15 ",.01)
 ;;43063-0554-15
 ;;9002226.02101,"619,43063-0554-15 ",.02)
 ;;43063-0554-15
 ;;9002226.02101,"619,43063-0554-18 ",.01)
 ;;43063-0554-18
 ;;9002226.02101,"619,43063-0554-18 ",.02)
 ;;43063-0554-18
 ;;9002226.02101,"619,43063-0554-20 ",.01)
 ;;43063-0554-20
 ;;9002226.02101,"619,43063-0554-20 ",.02)
 ;;43063-0554-20
 ;;9002226.02101,"619,43063-0554-24 ",.01)
 ;;43063-0554-24
 ;;9002226.02101,"619,43063-0554-24 ",.02)
 ;;43063-0554-24
 ;;9002226.02101,"619,43063-0554-25 ",.01)
 ;;43063-0554-25
 ;;9002226.02101,"619,43063-0554-25 ",.02)
 ;;43063-0554-25
 ;;9002226.02101,"619,43063-0554-28 ",.01)
 ;;43063-0554-28
 ;;9002226.02101,"619,43063-0554-28 ",.02)
 ;;43063-0554-28
 ;;9002226.02101,"619,43063-0554-30 ",.01)
 ;;43063-0554-30
 ;;9002226.02101,"619,43063-0554-30 ",.02)
 ;;43063-0554-30
 ;;9002226.02101,"619,43063-0554-60 ",.01)
 ;;43063-0554-60
 ;;9002226.02101,"619,43063-0554-60 ",.02)
 ;;43063-0554-60
 ;;9002226.02101,"619,43063-0554-90 ",.01)
 ;;43063-0554-90