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

BGP82Z34.m

Go to the documentation of this file.
BGP82Z34 ; 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,33261-0960-00 ",.02)
 ;;33261-0960-00
 ;;9002226.02101,"619,33261-0960-30 ",.01)
 ;;33261-0960-30
 ;;9002226.02101,"619,33261-0960-30 ",.02)
 ;;33261-0960-30
 ;;9002226.02101,"619,33261-0960-60 ",.01)
 ;;33261-0960-60
 ;;9002226.02101,"619,33261-0960-60 ",.02)
 ;;33261-0960-60
 ;;9002226.02101,"619,33261-0960-90 ",.01)
 ;;33261-0960-90
 ;;9002226.02101,"619,33261-0960-90 ",.02)
 ;;33261-0960-90
 ;;9002226.02101,"619,33342-0201-11 ",.01)
 ;;33342-0201-11
 ;;9002226.02101,"619,33342-0201-11 ",.02)
 ;;33342-0201-11
 ;;9002226.02101,"619,33342-0201-15 ",.01)
 ;;33342-0201-15
 ;;9002226.02101,"619,33342-0201-15 ",.02)
 ;;33342-0201-15
 ;;9002226.02101,"619,33342-0201-44 ",.01)
 ;;33342-0201-44
 ;;9002226.02101,"619,33342-0201-44 ",.02)
 ;;33342-0201-44
 ;;9002226.02101,"619,33358-0001-00 ",.01)
 ;;33358-0001-00
 ;;9002226.02101,"619,33358-0001-00 ",.02)
 ;;33358-0001-00
 ;;9002226.02101,"619,33358-0001-01 ",.01)
 ;;33358-0001-01
 ;;9002226.02101,"619,33358-0001-01 ",.02)
 ;;33358-0001-01
 ;;9002226.02101,"619,33358-0001-15 ",.01)
 ;;33358-0001-15
 ;;9002226.02101,"619,33358-0001-15 ",.02)
 ;;33358-0001-15
 ;;9002226.02101,"619,33358-0001-20 ",.01)
 ;;33358-0001-20
 ;;9002226.02101,"619,33358-0001-20 ",.02)
 ;;33358-0001-20
 ;;9002226.02101,"619,33358-0001-30 ",.01)
 ;;33358-0001-30
 ;;9002226.02101,"619,33358-0001-30 ",.02)
 ;;33358-0001-30
 ;;9002226.02101,"619,33358-0001-40 ",.01)
 ;;33358-0001-40
 ;;9002226.02101,"619,33358-0001-40 ",.02)
 ;;33358-0001-40
 ;;9002226.02101,"619,33358-0001-50 ",.01)
 ;;33358-0001-50
 ;;9002226.02101,"619,33358-0001-50 ",.02)
 ;;33358-0001-50
 ;;9002226.02101,"619,33358-0001-60 ",.01)
 ;;33358-0001-60
 ;;9002226.02101,"619,33358-0001-60 ",.02)
 ;;33358-0001-60
 ;;9002226.02101,"619,33358-0001-90 ",.01)
 ;;33358-0001-90
 ;;9002226.02101,"619,33358-0001-90 ",.02)
 ;;33358-0001-90
 ;;9002226.02101,"619,33358-0002-00 ",.01)
 ;;33358-0002-00
 ;;9002226.02101,"619,33358-0002-00 ",.02)
 ;;33358-0002-00
 ;;9002226.02101,"619,33358-0002-30 ",.01)
 ;;33358-0002-30
 ;;9002226.02101,"619,33358-0002-30 ",.02)
 ;;33358-0002-30
 ;;9002226.02101,"619,33358-0002-60 ",.01)
 ;;33358-0002-60
 ;;9002226.02101,"619,33358-0002-60 ",.02)
 ;;33358-0002-60
 ;;9002226.02101,"619,33358-0061-30 ",.01)
 ;;33358-0061-30
 ;;9002226.02101,"619,33358-0061-30 ",.02)
 ;;33358-0061-30
 ;;9002226.02101,"619,33358-0061-90 ",.01)
 ;;33358-0061-90
 ;;9002226.02101,"619,33358-0061-90 ",.02)
 ;;33358-0061-90
 ;;9002226.02101,"619,33358-0130-20 ",.01)
 ;;33358-0130-20
 ;;9002226.02101,"619,33358-0130-20 ",.02)
 ;;33358-0130-20
 ;;9002226.02101,"619,33358-0130-40 ",.01)
 ;;33358-0130-40
 ;;9002226.02101,"619,33358-0130-40 ",.02)
 ;;33358-0130-40
 ;;9002226.02101,"619,33358-0130-60 ",.01)
 ;;33358-0130-60
 ;;9002226.02101,"619,33358-0130-60 ",.02)
 ;;33358-0130-60
 ;;9002226.02101,"619,33358-0165-90 ",.01)
 ;;33358-0165-90
 ;;9002226.02101,"619,33358-0165-90 ",.02)
 ;;33358-0165-90
 ;;9002226.02101,"619,33358-0167-30 ",.01)
 ;;33358-0167-30
 ;;9002226.02101,"619,33358-0167-30 ",.02)
 ;;33358-0167-30
 ;;9002226.02101,"619,33358-0167-60 ",.01)
 ;;33358-0167-60
 ;;9002226.02101,"619,33358-0167-60 ",.02)
 ;;33358-0167-60
 ;;9002226.02101,"619,33358-0167-90 ",.01)
 ;;33358-0167-90
 ;;9002226.02101,"619,33358-0167-90 ",.02)
 ;;33358-0167-90
 ;;9002226.02101,"619,33358-0170-01 ",.01)
 ;;33358-0170-01
 ;;9002226.02101,"619,33358-0170-01 ",.02)
 ;;33358-0170-01
 ;;9002226.02101,"619,33358-0170-30 ",.01)
 ;;33358-0170-30
 ;;9002226.02101,"619,33358-0170-30 ",.02)
 ;;33358-0170-30
 ;;9002226.02101,"619,33358-0170-60 ",.01)
 ;;33358-0170-60
 ;;9002226.02101,"619,33358-0170-60 ",.02)
 ;;33358-0170-60
 ;;9002226.02101,"619,33358-0170-90 ",.01)
 ;;33358-0170-90
 ;;9002226.02101,"619,33358-0170-90 ",.02)
 ;;33358-0170-90
 ;;9002226.02101,"619,33358-0173-12 ",.01)
 ;;33358-0173-12
 ;;9002226.02101,"619,33358-0173-12 ",.02)
 ;;33358-0173-12
 ;;9002226.02101,"619,33358-0178-00 ",.01)
 ;;33358-0178-00
 ;;9002226.02101,"619,33358-0178-00 ",.02)
 ;;33358-0178-00
 ;;9002226.02101,"619,33358-0178-06 ",.01)
 ;;33358-0178-06
 ;;9002226.02101,"619,33358-0178-06 ",.02)
 ;;33358-0178-06
 ;;9002226.02101,"619,33358-0276-30 ",.01)
 ;;33358-0276-30
 ;;9002226.02101,"619,33358-0276-30 ",.02)
 ;;33358-0276-30
 ;;9002226.02101,"619,33358-0276-60 ",.01)
 ;;33358-0276-60
 ;;9002226.02101,"619,33358-0276-60 ",.02)
 ;;33358-0276-60
 ;;9002226.02101,"619,33358-0279-10 ",.01)
 ;;33358-0279-10
 ;;9002226.02101,"619,33358-0279-10 ",.02)
 ;;33358-0279-10
 ;;9002226.02101,"619,33358-0279-30 ",.01)
 ;;33358-0279-30
 ;;9002226.02101,"619,33358-0279-30 ",.02)
 ;;33358-0279-30
 ;;9002226.02101,"619,33358-0279-60 ",.01)
 ;;33358-0279-60
 ;;9002226.02101,"619,33358-0279-60 ",.02)
 ;;33358-0279-60
 ;;9002226.02101,"619,33358-0280-40 ",.01)
 ;;33358-0280-40
 ;;9002226.02101,"619,33358-0280-40 ",.02)
 ;;33358-0280-40
 ;;9002226.02101,"619,33358-0281-20 ",.01)
 ;;33358-0281-20
 ;;9002226.02101,"619,33358-0281-20 ",.02)
 ;;33358-0281-20
 ;;9002226.02101,"619,33358-0281-30 ",.01)
 ;;33358-0281-30
 ;;9002226.02101,"619,33358-0281-30 ",.02)
 ;;33358-0281-30
 ;;9002226.02101,"619,33358-0281-60 ",.01)
 ;;33358-0281-60
 ;;9002226.02101,"619,33358-0281-60 ",.02)
 ;;33358-0281-60
 ;;9002226.02101,"619,33358-0281-90 ",.01)
 ;;33358-0281-90
 ;;9002226.02101,"619,33358-0281-90 ",.02)
 ;;33358-0281-90
 ;;9002226.02101,"619,33358-0304-04 ",.01)
 ;;33358-0304-04
 ;;9002226.02101,"619,33358-0304-04 ",.02)
 ;;33358-0304-04
 ;;9002226.02101,"619,33358-0305-04 ",.01)
 ;;33358-0305-04
 ;;9002226.02101,"619,33358-0305-04 ",.02)
 ;;33358-0305-04
 ;;9002226.02101,"619,33358-0342-00 ",.01)
 ;;33358-0342-00
 ;;9002226.02101,"619,33358-0342-00 ",.02)
 ;;33358-0342-00
 ;;9002226.02101,"619,33358-0342-01 ",.01)
 ;;33358-0342-01
 ;;9002226.02101,"619,33358-0342-01 ",.02)
 ;;33358-0342-01
 ;;9002226.02101,"619,33358-0342-20 ",.01)
 ;;33358-0342-20
 ;;9002226.02101,"619,33358-0342-20 ",.02)
 ;;33358-0342-20
 ;;9002226.02101,"619,33358-0342-30 ",.01)
 ;;33358-0342-30
 ;;9002226.02101,"619,33358-0342-30 ",.02)
 ;;33358-0342-30
 ;;9002226.02101,"619,33358-0342-40 ",.01)
 ;;33358-0342-40
 ;;9002226.02101,"619,33358-0342-40 ",.02)
 ;;33358-0342-40
 ;;9002226.02101,"619,33358-0342-45 ",.01)
 ;;33358-0342-45
 ;;9002226.02101,"619,33358-0342-45 ",.02)
 ;;33358-0342-45
 ;;9002226.02101,"619,33358-0342-50 ",.01)
 ;;33358-0342-50
 ;;9002226.02101,"619,33358-0342-50 ",.02)
 ;;33358-0342-50
 ;;9002226.02101,"619,33358-0342-60 ",.01)
 ;;33358-0342-60
 ;;9002226.02101,"619,33358-0342-60 ",.02)
 ;;33358-0342-60
 ;;9002226.02101,"619,33358-0342-90 ",.01)
 ;;33358-0342-90
 ;;9002226.02101,"619,33358-0342-90 ",.02)
 ;;33358-0342-90
 ;;9002226.02101,"619,33358-0343-30 ",.01)
 ;;33358-0343-30
 ;;9002226.02101,"619,33358-0343-30 ",.02)
 ;;33358-0343-30
 ;;9002226.02101,"619,33358-0343-50 ",.01)
 ;;33358-0343-50
 ;;9002226.02101,"619,33358-0343-50 ",.02)
 ;;33358-0343-50
 ;;9002226.02101,"619,33358-0343-60 ",.01)
 ;;33358-0343-60
 ;;9002226.02101,"619,33358-0343-60 ",.02)
 ;;33358-0343-60
 ;;9002226.02101,"619,33358-0343-90 ",.01)
 ;;33358-0343-90
 ;;9002226.02101,"619,33358-0343-90 ",.02)
 ;;33358-0343-90
 ;;9002226.02101,"619,33358-0549-30 ",.01)
 ;;33358-0549-30
 ;;9002226.02101,"619,33358-0549-30 ",.02)
 ;;33358-0549-30
 ;;9002226.02101,"619,33358-0549-60 ",.01)
 ;;33358-0549-60
 ;;9002226.02101,"619,33358-0549-60 ",.02)
 ;;33358-0549-60
 ;;9002226.02101,"619,35356-0007-00 ",.01)
 ;;35356-0007-00
 ;;9002226.02101,"619,35356-0007-00 ",.02)
 ;;35356-0007-00
 ;;9002226.02101,"619,35356-0007-30 ",.01)
 ;;35356-0007-30
 ;;9002226.02101,"619,35356-0007-30 ",.02)
 ;;35356-0007-30
 ;;9002226.02101,"619,35356-0047-00 ",.01)
 ;;35356-0047-00
 ;;9002226.02101,"619,35356-0047-00 ",.02)
 ;;35356-0047-00
 ;;9002226.02101,"619,35356-0047-30 ",.01)
 ;;35356-0047-30
 ;;9002226.02101,"619,35356-0047-30 ",.02)
 ;;35356-0047-30
 ;;9002226.02101,"619,35356-0047-60 ",.01)
 ;;35356-0047-60
 ;;9002226.02101,"619,35356-0047-60 ",.02)
 ;;35356-0047-60
 ;;9002226.02101,"619,35356-0048-30 ",.01)
 ;;35356-0048-30
 ;;9002226.02101,"619,35356-0048-30 ",.02)
 ;;35356-0048-30
 ;;9002226.02101,"619,35356-0048-60 ",.01)
 ;;35356-0048-60
 ;;9002226.02101,"619,35356-0048-60 ",.02)
 ;;35356-0048-60
 ;;9002226.02101,"619,35356-0048-90 ",.01)
 ;;35356-0048-90
 ;;9002226.02101,"619,35356-0048-90 ",.02)
 ;;35356-0048-90
 ;;9002226.02101,"619,35356-0049-30 ",.01)
 ;;35356-0049-30
 ;;9002226.02101,"619,35356-0049-30 ",.02)
 ;;35356-0049-30
 ;;9002226.02101,"619,35356-0049-60 ",.01)
 ;;35356-0049-60
 ;;9002226.02101,"619,35356-0049-60 ",.02)
 ;;35356-0049-60
 ;;9002226.02101,"619,35356-0050-00 ",.01)
 ;;35356-0050-00
 ;;9002226.02101,"619,35356-0050-00 ",.02)
 ;;35356-0050-00
 ;;9002226.02101,"619,35356-0050-30 ",.01)
 ;;35356-0050-30
 ;;9002226.02101,"619,35356-0050-30 ",.02)
 ;;35356-0050-30
 ;;9002226.02101,"619,35356-0050-60 ",.01)
 ;;35356-0050-60
 ;;9002226.02101,"619,35356-0050-60 ",.02)
 ;;35356-0050-60
 ;;9002226.02101,"619,35356-0051-00 ",.01)
 ;;35356-0051-00
 ;;9002226.02101,"619,35356-0051-00 ",.02)
 ;;35356-0051-00
 ;;9002226.02101,"619,35356-0051-30 ",.01)
 ;;35356-0051-30
 ;;9002226.02101,"619,35356-0051-30 ",.02)
 ;;35356-0051-30
 ;;9002226.02101,"619,35356-0051-60 ",.01)
 ;;35356-0051-60
 ;;9002226.02101,"619,35356-0051-60 ",.02)
 ;;35356-0051-60
 ;;9002226.02101,"619,35356-0052-00 ",.01)
 ;;35356-0052-00
 ;;9002226.02101,"619,35356-0052-00 ",.02)
 ;;35356-0052-00
 ;;9002226.02101,"619,35356-0052-30 ",.01)
 ;;35356-0052-30
 ;;9002226.02101,"619,35356-0052-30 ",.02)
 ;;35356-0052-30
 ;;9002226.02101,"619,35356-0052-60 ",.01)
 ;;35356-0052-60
 ;;9002226.02101,"619,35356-0052-60 ",.02)
 ;;35356-0052-60
 ;;9002226.02101,"619,35356-0055-30 ",.01)
 ;;35356-0055-30
 ;;9002226.02101,"619,35356-0055-30 ",.02)
 ;;35356-0055-30
 ;;9002226.02101,"619,35356-0056-30 ",.01)
 ;;35356-0056-30
 ;;9002226.02101,"619,35356-0056-30 ",.02)
 ;;35356-0056-30
 ;;9002226.02101,"619,35356-0056-90 ",.01)
 ;;35356-0056-90
 ;;9002226.02101,"619,35356-0056-90 ",.02)
 ;;35356-0056-90
 ;;9002226.02101,"619,35356-0062-05 ",.01)
 ;;35356-0062-05
 ;;9002226.02101,"619,35356-0062-05 ",.02)
 ;;35356-0062-05
 ;;9002226.02101,"619,35356-0076-00 ",.01)
 ;;35356-0076-00
 ;;9002226.02101,"619,35356-0076-00 ",.02)
 ;;35356-0076-00
 ;;9002226.02101,"619,35356-0076-30 ",.01)
 ;;35356-0076-30
 ;;9002226.02101,"619,35356-0076-30 ",.02)
 ;;35356-0076-30
 ;;9002226.02101,"619,35356-0118-30 ",.01)
 ;;35356-0118-30
 ;;9002226.02101,"619,35356-0118-30 ",.02)
 ;;35356-0118-30
 ;;9002226.02101,"619,35356-0127-16 ",.01)
 ;;35356-0127-16
 ;;9002226.02101,"619,35356-0127-16 ",.02)
 ;;35356-0127-16
 ;;9002226.02101,"619,35356-0176-30 ",.01)
 ;;35356-0176-30
 ;;9002226.02101,"619,35356-0176-30 ",.02)
 ;;35356-0176-30
 ;;9002226.02101,"619,35356-0200-73 ",.01)
 ;;35356-0200-73
 ;;9002226.02101,"619,35356-0200-73 ",.02)
 ;;35356-0200-73
 ;;9002226.02101,"619,35356-0211-60 ",.01)
 ;;35356-0211-60
 ;;9002226.02101,"619,35356-0211-60 ",.02)
 ;;35356-0211-60
 ;;9002226.02101,"619,35356-0211-90 ",.01)
 ;;35356-0211-90
 ;;9002226.02101,"619,35356-0211-90 ",.02)
 ;;35356-0211-90
 ;;9002226.02101,"619,35356-0212-60 ",.01)
 ;;35356-0212-60
 ;;9002226.02101,"619,35356-0212-60 ",.02)
 ;;35356-0212-60
 ;;9002226.02101,"619,35356-0212-90 ",.01)
 ;;35356-0212-90
 ;;9002226.02101,"619,35356-0212-90 ",.02)
 ;;35356-0212-90
 ;;9002226.02101,"619,35356-0331-30 ",.01)
 ;;35356-0331-30
 ;;9002226.02101,"619,35356-0331-30 ",.02)
 ;;35356-0331-30
 ;;9002226.02101,"619,35356-0331-90 ",.01)
 ;;35356-0331-90