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

BGP83A16.m

Go to the documentation of this file.
BGP83A16 ; 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,"1828,16590-0005-15 ",.01)
 ;;16590-0005-15
 ;;9002226.02101,"1828,16590-0005-15 ",.02)
 ;;16590-0005-15
 ;;9002226.02101,"1828,16590-0005-20 ",.01)
 ;;16590-0005-20
 ;;9002226.02101,"1828,16590-0005-20 ",.02)
 ;;16590-0005-20
 ;;9002226.02101,"1828,16590-0005-30 ",.01)
 ;;16590-0005-30
 ;;9002226.02101,"1828,16590-0005-30 ",.02)
 ;;16590-0005-30
 ;;9002226.02101,"1828,16590-0005-60 ",.01)
 ;;16590-0005-60
 ;;9002226.02101,"1828,16590-0005-60 ",.02)
 ;;16590-0005-60
 ;;9002226.02101,"1828,16590-0005-72 ",.01)
 ;;16590-0005-72
 ;;9002226.02101,"1828,16590-0005-72 ",.02)
 ;;16590-0005-72
 ;;9002226.02101,"1828,16590-0005-90 ",.01)
 ;;16590-0005-90
 ;;9002226.02101,"1828,16590-0005-90 ",.02)
 ;;16590-0005-90
 ;;9002226.02101,"1828,16590-0006-15 ",.01)
 ;;16590-0006-15
 ;;9002226.02101,"1828,16590-0006-15 ",.02)
 ;;16590-0006-15
 ;;9002226.02101,"1828,16590-0006-28 ",.01)
 ;;16590-0006-28
 ;;9002226.02101,"1828,16590-0006-28 ",.02)
 ;;16590-0006-28
 ;;9002226.02101,"1828,16590-0006-30 ",.01)
 ;;16590-0006-30
 ;;9002226.02101,"1828,16590-0006-30 ",.02)
 ;;16590-0006-30
 ;;9002226.02101,"1828,16590-0006-60 ",.01)
 ;;16590-0006-60
 ;;9002226.02101,"1828,16590-0006-60 ",.02)
 ;;16590-0006-60
 ;;9002226.02101,"1828,16590-0006-72 ",.01)
 ;;16590-0006-72
 ;;9002226.02101,"1828,16590-0006-72 ",.02)
 ;;16590-0006-72
 ;;9002226.02101,"1828,16590-0006-90 ",.01)
 ;;16590-0006-90
 ;;9002226.02101,"1828,16590-0006-90 ",.02)
 ;;16590-0006-90
 ;;9002226.02101,"1828,16590-0058-28 ",.01)
 ;;16590-0058-28
 ;;9002226.02101,"1828,16590-0058-28 ",.02)
 ;;16590-0058-28
 ;;9002226.02101,"1828,16590-0058-30 ",.01)
 ;;16590-0058-30
 ;;9002226.02101,"1828,16590-0058-30 ",.02)
 ;;16590-0058-30
 ;;9002226.02101,"1828,16590-0058-56 ",.01)
 ;;16590-0058-56
 ;;9002226.02101,"1828,16590-0058-56 ",.02)
 ;;16590-0058-56
 ;;9002226.02101,"1828,16590-0058-60 ",.01)
 ;;16590-0058-60
 ;;9002226.02101,"1828,16590-0058-60 ",.02)
 ;;16590-0058-60
 ;;9002226.02101,"1828,16590-0058-72 ",.01)
 ;;16590-0058-72
 ;;9002226.02101,"1828,16590-0058-72 ",.02)
 ;;16590-0058-72
 ;;9002226.02101,"1828,16590-0058-90 ",.01)
 ;;16590-0058-90
 ;;9002226.02101,"1828,16590-0058-90 ",.02)
 ;;16590-0058-90
 ;;9002226.02101,"1828,16590-0059-28 ",.01)
 ;;16590-0059-28
 ;;9002226.02101,"1828,16590-0059-28 ",.02)
 ;;16590-0059-28
 ;;9002226.02101,"1828,16590-0059-30 ",.01)
 ;;16590-0059-30
 ;;9002226.02101,"1828,16590-0059-30 ",.02)
 ;;16590-0059-30
 ;;9002226.02101,"1828,16590-0059-45 ",.01)
 ;;16590-0059-45
 ;;9002226.02101,"1828,16590-0059-45 ",.02)
 ;;16590-0059-45
 ;;9002226.02101,"1828,16590-0059-56 ",.01)
 ;;16590-0059-56
 ;;9002226.02101,"1828,16590-0059-56 ",.02)
 ;;16590-0059-56
 ;;9002226.02101,"1828,16590-0059-60 ",.01)
 ;;16590-0059-60
 ;;9002226.02101,"1828,16590-0059-60 ",.02)
 ;;16590-0059-60
 ;;9002226.02101,"1828,16590-0059-72 ",.01)
 ;;16590-0059-72
 ;;9002226.02101,"1828,16590-0059-72 ",.02)
 ;;16590-0059-72
 ;;9002226.02101,"1828,16590-0059-90 ",.01)
 ;;16590-0059-90
 ;;9002226.02101,"1828,16590-0059-90 ",.02)
 ;;16590-0059-90
 ;;9002226.02101,"1828,16590-0069-30 ",.01)
 ;;16590-0069-30
 ;;9002226.02101,"1828,16590-0069-30 ",.02)
 ;;16590-0069-30
 ;;9002226.02101,"1828,16590-0069-60 ",.01)
 ;;16590-0069-60
 ;;9002226.02101,"1828,16590-0069-60 ",.02)
 ;;16590-0069-60
 ;;9002226.02101,"1828,16590-0069-90 ",.01)
 ;;16590-0069-90
 ;;9002226.02101,"1828,16590-0069-90 ",.02)
 ;;16590-0069-90
 ;;9002226.02101,"1828,16590-0070-02 ",.01)
 ;;16590-0070-02
 ;;9002226.02101,"1828,16590-0070-02 ",.02)
 ;;16590-0070-02
 ;;9002226.02101,"1828,16590-0070-03 ",.01)
 ;;16590-0070-03
 ;;9002226.02101,"1828,16590-0070-03 ",.02)
 ;;16590-0070-03
 ;;9002226.02101,"1828,16590-0070-15 ",.01)
 ;;16590-0070-15
 ;;9002226.02101,"1828,16590-0070-15 ",.02)
 ;;16590-0070-15
 ;;9002226.02101,"1828,16590-0070-20 ",.01)
 ;;16590-0070-20
 ;;9002226.02101,"1828,16590-0070-20 ",.02)
 ;;16590-0070-20
 ;;9002226.02101,"1828,16590-0070-30 ",.01)
 ;;16590-0070-30
 ;;9002226.02101,"1828,16590-0070-30 ",.02)
 ;;16590-0070-30
 ;;9002226.02101,"1828,16590-0070-45 ",.01)
 ;;16590-0070-45
 ;;9002226.02101,"1828,16590-0070-45 ",.02)
 ;;16590-0070-45
 ;;9002226.02101,"1828,16590-0070-60 ",.01)
 ;;16590-0070-60
 ;;9002226.02101,"1828,16590-0070-60 ",.02)
 ;;16590-0070-60
 ;;9002226.02101,"1828,16590-0070-72 ",.01)
 ;;16590-0070-72
 ;;9002226.02101,"1828,16590-0070-72 ",.02)
 ;;16590-0070-72
 ;;9002226.02101,"1828,16590-0070-75 ",.01)
 ;;16590-0070-75
 ;;9002226.02101,"1828,16590-0070-75 ",.02)
 ;;16590-0070-75
 ;;9002226.02101,"1828,16590-0070-90 ",.01)
 ;;16590-0070-90
 ;;9002226.02101,"1828,16590-0070-90 ",.02)
 ;;16590-0070-90
 ;;9002226.02101,"1828,16590-0071-04 ",.01)
 ;;16590-0071-04
 ;;9002226.02101,"1828,16590-0071-04 ",.02)
 ;;16590-0071-04
 ;;9002226.02101,"1828,16590-0071-10 ",.01)
 ;;16590-0071-10
 ;;9002226.02101,"1828,16590-0071-10 ",.02)
 ;;16590-0071-10
 ;;9002226.02101,"1828,16590-0071-15 ",.01)
 ;;16590-0071-15
 ;;9002226.02101,"1828,16590-0071-15 ",.02)
 ;;16590-0071-15
 ;;9002226.02101,"1828,16590-0071-20 ",.01)
 ;;16590-0071-20
 ;;9002226.02101,"1828,16590-0071-20 ",.02)
 ;;16590-0071-20
 ;;9002226.02101,"1828,16590-0071-28 ",.01)
 ;;16590-0071-28
 ;;9002226.02101,"1828,16590-0071-28 ",.02)
 ;;16590-0071-28
 ;;9002226.02101,"1828,16590-0071-30 ",.01)
 ;;16590-0071-30
 ;;9002226.02101,"1828,16590-0071-30 ",.02)
 ;;16590-0071-30
 ;;9002226.02101,"1828,16590-0071-45 ",.01)
 ;;16590-0071-45
 ;;9002226.02101,"1828,16590-0071-45 ",.02)
 ;;16590-0071-45
 ;;9002226.02101,"1828,16590-0071-56 ",.01)
 ;;16590-0071-56
 ;;9002226.02101,"1828,16590-0071-56 ",.02)
 ;;16590-0071-56
 ;;9002226.02101,"1828,16590-0071-60 ",.01)
 ;;16590-0071-60
 ;;9002226.02101,"1828,16590-0071-60 ",.02)
 ;;16590-0071-60
 ;;9002226.02101,"1828,16590-0071-62 ",.01)
 ;;16590-0071-62
 ;;9002226.02101,"1828,16590-0071-62 ",.02)
 ;;16590-0071-62
 ;;9002226.02101,"1828,16590-0071-72 ",.01)
 ;;16590-0071-72
 ;;9002226.02101,"1828,16590-0071-72 ",.02)
 ;;16590-0071-72
 ;;9002226.02101,"1828,16590-0071-75 ",.01)
 ;;16590-0071-75
 ;;9002226.02101,"1828,16590-0071-75 ",.02)
 ;;16590-0071-75
 ;;9002226.02101,"1828,16590-0071-90 ",.01)
 ;;16590-0071-90
 ;;9002226.02101,"1828,16590-0071-90 ",.02)
 ;;16590-0071-90
 ;;9002226.02101,"1828,16590-0143-15 ",.01)
 ;;16590-0143-15
 ;;9002226.02101,"1828,16590-0143-15 ",.02)
 ;;16590-0143-15
 ;;9002226.02101,"1828,16590-0143-30 ",.01)
 ;;16590-0143-30
 ;;9002226.02101,"1828,16590-0143-30 ",.02)
 ;;16590-0143-30
 ;;9002226.02101,"1828,16590-0143-60 ",.01)
 ;;16590-0143-60
 ;;9002226.02101,"1828,16590-0143-60 ",.02)
 ;;16590-0143-60
 ;;9002226.02101,"1828,16590-0143-72 ",.01)
 ;;16590-0143-72
 ;;9002226.02101,"1828,16590-0143-72 ",.02)
 ;;16590-0143-72
 ;;9002226.02101,"1828,16590-0143-90 ",.01)
 ;;16590-0143-90
 ;;9002226.02101,"1828,16590-0143-90 ",.02)
 ;;16590-0143-90
 ;;9002226.02101,"1828,16590-0214-28 ",.01)
 ;;16590-0214-28
 ;;9002226.02101,"1828,16590-0214-28 ",.02)
 ;;16590-0214-28
 ;;9002226.02101,"1828,16590-0214-30 ",.01)
 ;;16590-0214-30
 ;;9002226.02101,"1828,16590-0214-30 ",.02)
 ;;16590-0214-30
 ;;9002226.02101,"1828,16590-0214-45 ",.01)
 ;;16590-0214-45
 ;;9002226.02101,"1828,16590-0214-45 ",.02)
 ;;16590-0214-45
 ;;9002226.02101,"1828,16590-0214-60 ",.01)
 ;;16590-0214-60
 ;;9002226.02101,"1828,16590-0214-60 ",.02)
 ;;16590-0214-60
 ;;9002226.02101,"1828,16590-0214-90 ",.01)
 ;;16590-0214-90
 ;;9002226.02101,"1828,16590-0214-90 ",.02)
 ;;16590-0214-90
 ;;9002226.02101,"1828,16590-0236-30 ",.01)
 ;;16590-0236-30
 ;;9002226.02101,"1828,16590-0236-30 ",.02)
 ;;16590-0236-30
 ;;9002226.02101,"1828,16590-0236-60 ",.01)
 ;;16590-0236-60
 ;;9002226.02101,"1828,16590-0236-60 ",.02)
 ;;16590-0236-60
 ;;9002226.02101,"1828,16590-0236-90 ",.01)
 ;;16590-0236-90
 ;;9002226.02101,"1828,16590-0236-90 ",.02)
 ;;16590-0236-90
 ;;9002226.02101,"1828,16590-0304-90 ",.01)
 ;;16590-0304-90
 ;;9002226.02101,"1828,16590-0304-90 ",.02)
 ;;16590-0304-90
 ;;9002226.02101,"1828,16590-0447-30 ",.01)
 ;;16590-0447-30
 ;;9002226.02101,"1828,16590-0447-30 ",.02)
 ;;16590-0447-30
 ;;9002226.02101,"1828,16590-0447-60 ",.01)
 ;;16590-0447-60
 ;;9002226.02101,"1828,16590-0447-60 ",.02)
 ;;16590-0447-60
 ;;9002226.02101,"1828,16590-0447-90 ",.01)
 ;;16590-0447-90
 ;;9002226.02101,"1828,16590-0447-90 ",.02)
 ;;16590-0447-90
 ;;9002226.02101,"1828,16590-0481-28 ",.01)
 ;;16590-0481-28
 ;;9002226.02101,"1828,16590-0481-28 ",.02)
 ;;16590-0481-28
 ;;9002226.02101,"1828,16590-0481-30 ",.01)
 ;;16590-0481-30
 ;;9002226.02101,"1828,16590-0481-30 ",.02)
 ;;16590-0481-30
 ;;9002226.02101,"1828,16590-0481-45 ",.01)
 ;;16590-0481-45
 ;;9002226.02101,"1828,16590-0481-45 ",.02)
 ;;16590-0481-45
 ;;9002226.02101,"1828,16590-0481-60 ",.01)
 ;;16590-0481-60
 ;;9002226.02101,"1828,16590-0481-60 ",.02)
 ;;16590-0481-60
 ;;9002226.02101,"1828,16590-0481-75 ",.01)
 ;;16590-0481-75
 ;;9002226.02101,"1828,16590-0481-75 ",.02)
 ;;16590-0481-75
 ;;9002226.02101,"1828,16590-0481-90 ",.01)
 ;;16590-0481-90
 ;;9002226.02101,"1828,16590-0481-90 ",.02)
 ;;16590-0481-90
 ;;9002226.02101,"1828,16590-0584-15 ",.01)
 ;;16590-0584-15
 ;;9002226.02101,"1828,16590-0584-15 ",.02)
 ;;16590-0584-15
 ;;9002226.02101,"1828,16590-0584-30 ",.01)
 ;;16590-0584-30
 ;;9002226.02101,"1828,16590-0584-30 ",.02)
 ;;16590-0584-30
 ;;9002226.02101,"1828,16590-0584-60 ",.01)
 ;;16590-0584-60
 ;;9002226.02101,"1828,16590-0584-60 ",.02)
 ;;16590-0584-60
 ;;9002226.02101,"1828,16590-0584-72 ",.01)
 ;;16590-0584-72
 ;;9002226.02101,"1828,16590-0584-72 ",.02)
 ;;16590-0584-72
 ;;9002226.02101,"1828,16590-0584-90 ",.01)
 ;;16590-0584-90
 ;;9002226.02101,"1828,16590-0584-90 ",.02)
 ;;16590-0584-90
 ;;9002226.02101,"1828,16590-0588-30 ",.01)
 ;;16590-0588-30
 ;;9002226.02101,"1828,16590-0588-30 ",.02)
 ;;16590-0588-30
 ;;9002226.02101,"1828,16590-0588-60 ",.01)
 ;;16590-0588-60
 ;;9002226.02101,"1828,16590-0588-60 ",.02)
 ;;16590-0588-60
 ;;9002226.02101,"1828,16590-0588-72 ",.01)
 ;;16590-0588-72
 ;;9002226.02101,"1828,16590-0588-72 ",.02)
 ;;16590-0588-72
 ;;9002226.02101,"1828,16590-0588-90 ",.01)
 ;;16590-0588-90
 ;;9002226.02101,"1828,16590-0588-90 ",.02)
 ;;16590-0588-90
 ;;9002226.02101,"1828,16590-0813-72 ",.01)
 ;;16590-0813-72
 ;;9002226.02101,"1828,16590-0813-72 ",.02)
 ;;16590-0813-72
 ;;9002226.02101,"1828,16590-0935-28 ",.01)
 ;;16590-0935-28
 ;;9002226.02101,"1828,16590-0935-28 ",.02)
 ;;16590-0935-28
 ;;9002226.02101,"1828,16590-0937-60 ",.01)
 ;;16590-0937-60
 ;;9002226.02101,"1828,16590-0937-60 ",.02)
 ;;16590-0937-60
 ;;9002226.02101,"1828,16590-0938-72 ",.01)
 ;;16590-0938-72
 ;;9002226.02101,"1828,16590-0938-72 ",.02)
 ;;16590-0938-72
 ;;9002226.02101,"1828,16714-0469-01 ",.01)
 ;;16714-0469-01
 ;;9002226.02101,"1828,16714-0469-01 ",.02)
 ;;16714-0469-01
 ;;9002226.02101,"1828,16714-0469-02 ",.01)
 ;;16714-0469-02
 ;;9002226.02101,"1828,16714-0469-02 ",.02)
 ;;16714-0469-02
 ;;9002226.02101,"1828,16714-0470-01 ",.01)
 ;;16714-0470-01
 ;;9002226.02101,"1828,16714-0470-01 ",.02)
 ;;16714-0470-01
 ;;9002226.02101,"1828,16714-0470-02 ",.01)
 ;;16714-0470-02
 ;;9002226.02101,"1828,16714-0470-02 ",.02)
 ;;16714-0470-02
 ;;9002226.02101,"1828,16714-0471-01 ",.01)
 ;;16714-0471-01
 ;;9002226.02101,"1828,16714-0471-01 ",.02)
 ;;16714-0471-01
 ;;9002226.02101,"1828,16714-0471-02 ",.01)
 ;;16714-0471-02
 ;;9002226.02101,"1828,16714-0471-02 ",.02)
 ;;16714-0471-02
 ;;9002226.02101,"1828,16729-0136-00 ",.01)
 ;;16729-0136-00
 ;;9002226.02101,"1828,16729-0136-00 ",.02)
 ;;16729-0136-00
 ;;9002226.02101,"1828,16729-0136-16 ",.01)
 ;;16729-0136-16