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

BGP83A42.m

Go to the documentation of this file.
BGP83A42 ; 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,67544-0261-20 ",.01)
 ;;67544-0261-20
 ;;9002226.02101,"1828,67544-0261-20 ",.02)
 ;;67544-0261-20
 ;;9002226.02101,"1828,67544-0261-30 ",.01)
 ;;67544-0261-30
 ;;9002226.02101,"1828,67544-0261-30 ",.02)
 ;;67544-0261-30
 ;;9002226.02101,"1828,67544-0261-40 ",.01)
 ;;67544-0261-40
 ;;9002226.02101,"1828,67544-0261-40 ",.02)
 ;;67544-0261-40
 ;;9002226.02101,"1828,67544-0261-45 ",.01)
 ;;67544-0261-45
 ;;9002226.02101,"1828,67544-0261-45 ",.02)
 ;;67544-0261-45
 ;;9002226.02101,"1828,67544-0261-53 ",.01)
 ;;67544-0261-53
 ;;9002226.02101,"1828,67544-0261-53 ",.02)
 ;;67544-0261-53
 ;;9002226.02101,"1828,67544-0261-55 ",.01)
 ;;67544-0261-55
 ;;9002226.02101,"1828,67544-0261-55 ",.02)
 ;;67544-0261-55
 ;;9002226.02101,"1828,67544-0261-60 ",.01)
 ;;67544-0261-60
 ;;9002226.02101,"1828,67544-0261-60 ",.02)
 ;;67544-0261-60
 ;;9002226.02101,"1828,67544-0261-70 ",.01)
 ;;67544-0261-70
 ;;9002226.02101,"1828,67544-0261-70 ",.02)
 ;;67544-0261-70
 ;;9002226.02101,"1828,67544-0261-75 ",.01)
 ;;67544-0261-75
 ;;9002226.02101,"1828,67544-0261-75 ",.02)
 ;;67544-0261-75
 ;;9002226.02101,"1828,67544-0261-80 ",.01)
 ;;67544-0261-80
 ;;9002226.02101,"1828,67544-0261-80 ",.02)
 ;;67544-0261-80
 ;;9002226.02101,"1828,67544-0261-92 ",.01)
 ;;67544-0261-92
 ;;9002226.02101,"1828,67544-0261-92 ",.02)
 ;;67544-0261-92
 ;;9002226.02101,"1828,67544-0268-30 ",.01)
 ;;67544-0268-30
 ;;9002226.02101,"1828,67544-0268-30 ",.02)
 ;;67544-0268-30
 ;;9002226.02101,"1828,67544-0268-53 ",.01)
 ;;67544-0268-53
 ;;9002226.02101,"1828,67544-0268-53 ",.02)
 ;;67544-0268-53
 ;;9002226.02101,"1828,67544-0268-60 ",.01)
 ;;67544-0268-60
 ;;9002226.02101,"1828,67544-0268-60 ",.02)
 ;;67544-0268-60
 ;;9002226.02101,"1828,67544-0268-70 ",.01)
 ;;67544-0268-70
 ;;9002226.02101,"1828,67544-0268-70 ",.02)
 ;;67544-0268-70
 ;;9002226.02101,"1828,67544-0274-30 ",.01)
 ;;67544-0274-30
 ;;9002226.02101,"1828,67544-0274-30 ",.02)
 ;;67544-0274-30
 ;;9002226.02101,"1828,67544-0274-53 ",.01)
 ;;67544-0274-53
 ;;9002226.02101,"1828,67544-0274-53 ",.02)
 ;;67544-0274-53
 ;;9002226.02101,"1828,67544-0274-60 ",.01)
 ;;67544-0274-60
 ;;9002226.02101,"1828,67544-0274-60 ",.02)
 ;;67544-0274-60
 ;;9002226.02101,"1828,67544-0274-70 ",.01)
 ;;67544-0274-70
 ;;9002226.02101,"1828,67544-0274-70 ",.02)
 ;;67544-0274-70
 ;;9002226.02101,"1828,67544-0287-10 ",.01)
 ;;67544-0287-10
 ;;9002226.02101,"1828,67544-0287-10 ",.02)
 ;;67544-0287-10
 ;;9002226.02101,"1828,67544-0287-15 ",.01)
 ;;67544-0287-15
 ;;9002226.02101,"1828,67544-0287-15 ",.02)
 ;;67544-0287-15
 ;;9002226.02101,"1828,67544-0287-20 ",.01)
 ;;67544-0287-20
 ;;9002226.02101,"1828,67544-0287-20 ",.02)
 ;;67544-0287-20
 ;;9002226.02101,"1828,67544-0287-28 ",.01)
 ;;67544-0287-28
 ;;9002226.02101,"1828,67544-0287-28 ",.02)
 ;;67544-0287-28
 ;;9002226.02101,"1828,67544-0287-30 ",.01)
 ;;67544-0287-30
 ;;9002226.02101,"1828,67544-0287-30 ",.02)
 ;;67544-0287-30
 ;;9002226.02101,"1828,67544-0287-53 ",.01)
 ;;67544-0287-53
 ;;9002226.02101,"1828,67544-0287-53 ",.02)
 ;;67544-0287-53
 ;;9002226.02101,"1828,67544-0287-59 ",.01)
 ;;67544-0287-59
 ;;9002226.02101,"1828,67544-0287-59 ",.02)
 ;;67544-0287-59
 ;;9002226.02101,"1828,67544-0287-60 ",.01)
 ;;67544-0287-60
 ;;9002226.02101,"1828,67544-0287-60 ",.02)
 ;;67544-0287-60
 ;;9002226.02101,"1828,67544-0288-30 ",.01)
 ;;67544-0288-30
 ;;9002226.02101,"1828,67544-0288-30 ",.02)
 ;;67544-0288-30
 ;;9002226.02101,"1828,67544-0288-45 ",.01)
 ;;67544-0288-45
 ;;9002226.02101,"1828,67544-0288-45 ",.02)
 ;;67544-0288-45
 ;;9002226.02101,"1828,67544-0288-53 ",.01)
 ;;67544-0288-53
 ;;9002226.02101,"1828,67544-0288-53 ",.02)
 ;;67544-0288-53
 ;;9002226.02101,"1828,67544-0288-60 ",.01)
 ;;67544-0288-60
 ;;9002226.02101,"1828,67544-0288-60 ",.02)
 ;;67544-0288-60
 ;;9002226.02101,"1828,67544-0289-15 ",.01)
 ;;67544-0289-15
 ;;9002226.02101,"1828,67544-0289-15 ",.02)
 ;;67544-0289-15
 ;;9002226.02101,"1828,67544-0289-30 ",.01)
 ;;67544-0289-30
 ;;9002226.02101,"1828,67544-0289-30 ",.02)
 ;;67544-0289-30
 ;;9002226.02101,"1828,67544-0289-45 ",.01)
 ;;67544-0289-45
 ;;9002226.02101,"1828,67544-0289-45 ",.02)
 ;;67544-0289-45
 ;;9002226.02101,"1828,67544-0289-46 ",.01)
 ;;67544-0289-46
 ;;9002226.02101,"1828,67544-0289-46 ",.02)
 ;;67544-0289-46
 ;;9002226.02101,"1828,67544-0289-53 ",.01)
 ;;67544-0289-53
 ;;9002226.02101,"1828,67544-0289-53 ",.02)
 ;;67544-0289-53
 ;;9002226.02101,"1828,67544-0289-55 ",.01)
 ;;67544-0289-55
 ;;9002226.02101,"1828,67544-0289-55 ",.02)
 ;;67544-0289-55
 ;;9002226.02101,"1828,67544-0289-60 ",.01)
 ;;67544-0289-60
 ;;9002226.02101,"1828,67544-0289-60 ",.02)
 ;;67544-0289-60
 ;;9002226.02101,"1828,67544-0289-70 ",.01)
 ;;67544-0289-70
 ;;9002226.02101,"1828,67544-0289-70 ",.02)
 ;;67544-0289-70
 ;;9002226.02101,"1828,67544-0289-75 ",.01)
 ;;67544-0289-75
 ;;9002226.02101,"1828,67544-0289-75 ",.02)
 ;;67544-0289-75
 ;;9002226.02101,"1828,67544-0289-80 ",.01)
 ;;67544-0289-80
 ;;9002226.02101,"1828,67544-0289-80 ",.02)
 ;;67544-0289-80
 ;;9002226.02101,"1828,67544-0289-90 ",.01)
 ;;67544-0289-90
 ;;9002226.02101,"1828,67544-0289-90 ",.02)
 ;;67544-0289-90
 ;;9002226.02101,"1828,67544-0289-92 ",.01)
 ;;67544-0289-92
 ;;9002226.02101,"1828,67544-0289-92 ",.02)
 ;;67544-0289-92
 ;;9002226.02101,"1828,67544-0290-15 ",.01)
 ;;67544-0290-15
 ;;9002226.02101,"1828,67544-0290-15 ",.02)
 ;;67544-0290-15
 ;;9002226.02101,"1828,67544-0290-30 ",.01)
 ;;67544-0290-30
 ;;9002226.02101,"1828,67544-0290-30 ",.02)
 ;;67544-0290-30
 ;;9002226.02101,"1828,67544-0290-45 ",.01)
 ;;67544-0290-45
 ;;9002226.02101,"1828,67544-0290-45 ",.02)
 ;;67544-0290-45
 ;;9002226.02101,"1828,67544-0290-53 ",.01)
 ;;67544-0290-53
 ;;9002226.02101,"1828,67544-0290-53 ",.02)
 ;;67544-0290-53
 ;;9002226.02101,"1828,67544-0290-55 ",.01)
 ;;67544-0290-55
 ;;9002226.02101,"1828,67544-0290-55 ",.02)
 ;;67544-0290-55
 ;;9002226.02101,"1828,67544-0290-60 ",.01)
 ;;67544-0290-60
 ;;9002226.02101,"1828,67544-0290-60 ",.02)
 ;;67544-0290-60
 ;;9002226.02101,"1828,67544-0290-70 ",.01)
 ;;67544-0290-70
 ;;9002226.02101,"1828,67544-0290-70 ",.02)
 ;;67544-0290-70
 ;;9002226.02101,"1828,67544-0290-75 ",.01)
 ;;67544-0290-75
 ;;9002226.02101,"1828,67544-0290-75 ",.02)
 ;;67544-0290-75
 ;;9002226.02101,"1828,67544-0290-80 ",.01)
 ;;67544-0290-80
 ;;9002226.02101,"1828,67544-0290-80 ",.02)
 ;;67544-0290-80
 ;;9002226.02101,"1828,67544-0290-90 ",.01)
 ;;67544-0290-90
 ;;9002226.02101,"1828,67544-0290-90 ",.02)
 ;;67544-0290-90
 ;;9002226.02101,"1828,67544-0294-30 ",.01)
 ;;67544-0294-30
 ;;9002226.02101,"1828,67544-0294-30 ",.02)
 ;;67544-0294-30
 ;;9002226.02101,"1828,67544-0294-53 ",.01)
 ;;67544-0294-53
 ;;9002226.02101,"1828,67544-0294-53 ",.02)
 ;;67544-0294-53
 ;;9002226.02101,"1828,67544-0294-60 ",.01)
 ;;67544-0294-60
 ;;9002226.02101,"1828,67544-0294-60 ",.02)
 ;;67544-0294-60
 ;;9002226.02101,"1828,67544-0294-70 ",.01)
 ;;67544-0294-70
 ;;9002226.02101,"1828,67544-0294-70 ",.02)
 ;;67544-0294-70
 ;;9002226.02101,"1828,67544-0301-15 ",.01)
 ;;67544-0301-15
 ;;9002226.02101,"1828,67544-0301-15 ",.02)
 ;;67544-0301-15
 ;;9002226.02101,"1828,67544-0301-30 ",.01)
 ;;67544-0301-30
 ;;9002226.02101,"1828,67544-0301-30 ",.02)
 ;;67544-0301-30
 ;;9002226.02101,"1828,67544-0301-45 ",.01)
 ;;67544-0301-45
 ;;9002226.02101,"1828,67544-0301-45 ",.02)
 ;;67544-0301-45
 ;;9002226.02101,"1828,67544-0301-53 ",.01)
 ;;67544-0301-53
 ;;9002226.02101,"1828,67544-0301-53 ",.02)
 ;;67544-0301-53
 ;;9002226.02101,"1828,67544-0301-55 ",.01)
 ;;67544-0301-55
 ;;9002226.02101,"1828,67544-0301-55 ",.02)
 ;;67544-0301-55
 ;;9002226.02101,"1828,67544-0301-60 ",.01)
 ;;67544-0301-60
 ;;9002226.02101,"1828,67544-0301-60 ",.02)
 ;;67544-0301-60
 ;;9002226.02101,"1828,67544-0301-70 ",.01)
 ;;67544-0301-70
 ;;9002226.02101,"1828,67544-0301-70 ",.02)
 ;;67544-0301-70
 ;;9002226.02101,"1828,67544-0301-75 ",.01)
 ;;67544-0301-75
 ;;9002226.02101,"1828,67544-0301-75 ",.02)
 ;;67544-0301-75
 ;;9002226.02101,"1828,67544-0301-80 ",.01)
 ;;67544-0301-80
 ;;9002226.02101,"1828,67544-0301-80 ",.02)
 ;;67544-0301-80
 ;;9002226.02101,"1828,67544-0301-92 ",.01)
 ;;67544-0301-92
 ;;9002226.02101,"1828,67544-0301-92 ",.02)
 ;;67544-0301-92
 ;;9002226.02101,"1828,67544-0340-15 ",.01)
 ;;67544-0340-15
 ;;9002226.02101,"1828,67544-0340-15 ",.02)
 ;;67544-0340-15
 ;;9002226.02101,"1828,67544-0340-20 ",.01)
 ;;67544-0340-20
 ;;9002226.02101,"1828,67544-0340-20 ",.02)
 ;;67544-0340-20
 ;;9002226.02101,"1828,67544-0340-30 ",.01)
 ;;67544-0340-30
 ;;9002226.02101,"1828,67544-0340-30 ",.02)
 ;;67544-0340-30
 ;;9002226.02101,"1828,67544-0340-40 ",.01)
 ;;67544-0340-40
 ;;9002226.02101,"1828,67544-0340-40 ",.02)
 ;;67544-0340-40
 ;;9002226.02101,"1828,67544-0340-45 ",.01)
 ;;67544-0340-45
 ;;9002226.02101,"1828,67544-0340-45 ",.02)
 ;;67544-0340-45
 ;;9002226.02101,"1828,67544-0340-53 ",.01)
 ;;67544-0340-53
 ;;9002226.02101,"1828,67544-0340-53 ",.02)
 ;;67544-0340-53
 ;;9002226.02101,"1828,67544-0340-55 ",.01)
 ;;67544-0340-55
 ;;9002226.02101,"1828,67544-0340-55 ",.02)
 ;;67544-0340-55
 ;;9002226.02101,"1828,67544-0340-60 ",.01)
 ;;67544-0340-60
 ;;9002226.02101,"1828,67544-0340-60 ",.02)
 ;;67544-0340-60
 ;;9002226.02101,"1828,67544-0340-70 ",.01)
 ;;67544-0340-70
 ;;9002226.02101,"1828,67544-0340-70 ",.02)
 ;;67544-0340-70
 ;;9002226.02101,"1828,67544-0340-75 ",.01)
 ;;67544-0340-75
 ;;9002226.02101,"1828,67544-0340-75 ",.02)
 ;;67544-0340-75
 ;;9002226.02101,"1828,67544-0340-80 ",.01)
 ;;67544-0340-80
 ;;9002226.02101,"1828,67544-0340-80 ",.02)
 ;;67544-0340-80
 ;;9002226.02101,"1828,67544-0340-90 ",.01)
 ;;67544-0340-90
 ;;9002226.02101,"1828,67544-0340-90 ",.02)
 ;;67544-0340-90
 ;;9002226.02101,"1828,67544-0341-30 ",.01)
 ;;67544-0341-30
 ;;9002226.02101,"1828,67544-0341-30 ",.02)
 ;;67544-0341-30
 ;;9002226.02101,"1828,67544-0341-53 ",.01)
 ;;67544-0341-53
 ;;9002226.02101,"1828,67544-0341-53 ",.02)
 ;;67544-0341-53
 ;;9002226.02101,"1828,67544-0341-60 ",.01)
 ;;67544-0341-60
 ;;9002226.02101,"1828,67544-0341-60 ",.02)
 ;;67544-0341-60
 ;;9002226.02101,"1828,67544-0341-70 ",.01)
 ;;67544-0341-70
 ;;9002226.02101,"1828,67544-0341-70 ",.02)
 ;;67544-0341-70
 ;;9002226.02101,"1828,67544-0347-15 ",.01)
 ;;67544-0347-15
 ;;9002226.02101,"1828,67544-0347-15 ",.02)
 ;;67544-0347-15
 ;;9002226.02101,"1828,67544-0347-30 ",.01)
 ;;67544-0347-30
 ;;9002226.02101,"1828,67544-0347-30 ",.02)
 ;;67544-0347-30
 ;;9002226.02101,"1828,67544-0347-45 ",.01)
 ;;67544-0347-45
 ;;9002226.02101,"1828,67544-0347-45 ",.02)
 ;;67544-0347-45
 ;;9002226.02101,"1828,67544-0347-53 ",.01)
 ;;67544-0347-53
 ;;9002226.02101,"1828,67544-0347-53 ",.02)
 ;;67544-0347-53
 ;;9002226.02101,"1828,67544-0347-55 ",.01)
 ;;67544-0347-55
 ;;9002226.02101,"1828,67544-0347-55 ",.02)
 ;;67544-0347-55
 ;;9002226.02101,"1828,67544-0347-60 ",.01)
 ;;67544-0347-60
 ;;9002226.02101,"1828,67544-0347-60 ",.02)
 ;;67544-0347-60
 ;;9002226.02101,"1828,67544-0347-70 ",.01)
 ;;67544-0347-70
 ;;9002226.02101,"1828,67544-0347-70 ",.02)
 ;;67544-0347-70
 ;;9002226.02101,"1828,67544-0347-75 ",.01)
 ;;67544-0347-75
 ;;9002226.02101,"1828,67544-0347-75 ",.02)
 ;;67544-0347-75
 ;;9002226.02101,"1828,67544-0347-80 ",.01)
 ;;67544-0347-80
 ;;9002226.02101,"1828,67544-0347-80 ",.02)
 ;;67544-0347-80
 ;;9002226.02101,"1828,67544-0347-90 ",.01)
 ;;67544-0347-90
 ;;9002226.02101,"1828,67544-0347-90 ",.02)
 ;;67544-0347-90
 ;;9002226.02101,"1828,67544-0368-15 ",.01)
 ;;67544-0368-15
 ;;9002226.02101,"1828,67544-0368-15 ",.02)
 ;;67544-0368-15
 ;;9002226.02101,"1828,67544-0368-20 ",.01)
 ;;67544-0368-20