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

BGP83A22.m

Go to the documentation of this file.
BGP83A22 ; 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,43353-0277-46 ",.01)
 ;;43353-0277-46
 ;;9002226.02101,"1828,43353-0277-46 ",.02)
 ;;43353-0277-46
 ;;9002226.02101,"1828,43353-0277-55 ",.01)
 ;;43353-0277-55
 ;;9002226.02101,"1828,43353-0277-55 ",.02)
 ;;43353-0277-55
 ;;9002226.02101,"1828,43353-0277-75 ",.01)
 ;;43353-0277-75
 ;;9002226.02101,"1828,43353-0277-75 ",.02)
 ;;43353-0277-75
 ;;9002226.02101,"1828,43353-0277-80 ",.01)
 ;;43353-0277-80
 ;;9002226.02101,"1828,43353-0277-80 ",.02)
 ;;43353-0277-80
 ;;9002226.02101,"1828,43353-0278-15 ",.01)
 ;;43353-0278-15
 ;;9002226.02101,"1828,43353-0278-15 ",.02)
 ;;43353-0278-15
 ;;9002226.02101,"1828,43353-0278-20 ",.01)
 ;;43353-0278-20
 ;;9002226.02101,"1828,43353-0278-20 ",.02)
 ;;43353-0278-20
 ;;9002226.02101,"1828,43353-0278-30 ",.01)
 ;;43353-0278-30
 ;;9002226.02101,"1828,43353-0278-30 ",.02)
 ;;43353-0278-30
 ;;9002226.02101,"1828,43353-0278-45 ",.01)
 ;;43353-0278-45
 ;;9002226.02101,"1828,43353-0278-45 ",.02)
 ;;43353-0278-45
 ;;9002226.02101,"1828,43353-0278-53 ",.01)
 ;;43353-0278-53
 ;;9002226.02101,"1828,43353-0278-53 ",.02)
 ;;43353-0278-53
 ;;9002226.02101,"1828,43353-0278-55 ",.01)
 ;;43353-0278-55
 ;;9002226.02101,"1828,43353-0278-55 ",.02)
 ;;43353-0278-55
 ;;9002226.02101,"1828,43353-0278-60 ",.01)
 ;;43353-0278-60
 ;;9002226.02101,"1828,43353-0278-60 ",.02)
 ;;43353-0278-60
 ;;9002226.02101,"1828,43353-0278-70 ",.01)
 ;;43353-0278-70
 ;;9002226.02101,"1828,43353-0278-70 ",.02)
 ;;43353-0278-70
 ;;9002226.02101,"1828,43353-0278-75 ",.01)
 ;;43353-0278-75
 ;;9002226.02101,"1828,43353-0278-75 ",.02)
 ;;43353-0278-75
 ;;9002226.02101,"1828,43353-0278-80 ",.01)
 ;;43353-0278-80
 ;;9002226.02101,"1828,43353-0278-80 ",.02)
 ;;43353-0278-80
 ;;9002226.02101,"1828,43353-0278-90 ",.01)
 ;;43353-0278-90
 ;;9002226.02101,"1828,43353-0278-90 ",.02)
 ;;43353-0278-90
 ;;9002226.02101,"1828,43353-0281-30 ",.01)
 ;;43353-0281-30
 ;;9002226.02101,"1828,43353-0281-30 ",.02)
 ;;43353-0281-30
 ;;9002226.02101,"1828,43353-0281-53 ",.01)
 ;;43353-0281-53
 ;;9002226.02101,"1828,43353-0281-53 ",.02)
 ;;43353-0281-53
 ;;9002226.02101,"1828,43353-0281-60 ",.01)
 ;;43353-0281-60
 ;;9002226.02101,"1828,43353-0281-60 ",.02)
 ;;43353-0281-60
 ;;9002226.02101,"1828,43353-0281-70 ",.01)
 ;;43353-0281-70
 ;;9002226.02101,"1828,43353-0281-70 ",.02)
 ;;43353-0281-70
 ;;9002226.02101,"1828,43353-0357-15 ",.01)
 ;;43353-0357-15
 ;;9002226.02101,"1828,43353-0357-15 ",.02)
 ;;43353-0357-15
 ;;9002226.02101,"1828,43353-0357-30 ",.01)
 ;;43353-0357-30
 ;;9002226.02101,"1828,43353-0357-30 ",.02)
 ;;43353-0357-30
 ;;9002226.02101,"1828,43353-0357-53 ",.01)
 ;;43353-0357-53
 ;;9002226.02101,"1828,43353-0357-53 ",.02)
 ;;43353-0357-53
 ;;9002226.02101,"1828,43353-0357-60 ",.01)
 ;;43353-0357-60
 ;;9002226.02101,"1828,43353-0357-60 ",.02)
 ;;43353-0357-60
 ;;9002226.02101,"1828,43353-0357-70 ",.01)
 ;;43353-0357-70
 ;;9002226.02101,"1828,43353-0357-70 ",.02)
 ;;43353-0357-70
 ;;9002226.02101,"1828,43353-0358-20 ",.01)
 ;;43353-0358-20
 ;;9002226.02101,"1828,43353-0358-20 ",.02)
 ;;43353-0358-20
 ;;9002226.02101,"1828,43353-0358-30 ",.01)
 ;;43353-0358-30
 ;;9002226.02101,"1828,43353-0358-30 ",.02)
 ;;43353-0358-30
 ;;9002226.02101,"1828,43353-0358-45 ",.01)
 ;;43353-0358-45
 ;;9002226.02101,"1828,43353-0358-45 ",.02)
 ;;43353-0358-45
 ;;9002226.02101,"1828,43353-0358-53 ",.01)
 ;;43353-0358-53
 ;;9002226.02101,"1828,43353-0358-53 ",.02)
 ;;43353-0358-53
 ;;9002226.02101,"1828,43353-0358-60 ",.01)
 ;;43353-0358-60
 ;;9002226.02101,"1828,43353-0358-60 ",.02)
 ;;43353-0358-60
 ;;9002226.02101,"1828,43353-0358-70 ",.01)
 ;;43353-0358-70
 ;;9002226.02101,"1828,43353-0358-70 ",.02)
 ;;43353-0358-70
 ;;9002226.02101,"1828,43353-0358-75 ",.01)
 ;;43353-0358-75
 ;;9002226.02101,"1828,43353-0358-75 ",.02)
 ;;43353-0358-75
 ;;9002226.02101,"1828,43353-0358-80 ",.01)
 ;;43353-0358-80
 ;;9002226.02101,"1828,43353-0358-80 ",.02)
 ;;43353-0358-80
 ;;9002226.02101,"1828,43353-0358-92 ",.01)
 ;;43353-0358-92
 ;;9002226.02101,"1828,43353-0358-92 ",.02)
 ;;43353-0358-92
 ;;9002226.02101,"1828,43353-0359-30 ",.01)
 ;;43353-0359-30
 ;;9002226.02101,"1828,43353-0359-30 ",.02)
 ;;43353-0359-30
 ;;9002226.02101,"1828,43353-0359-45 ",.01)
 ;;43353-0359-45
 ;;9002226.02101,"1828,43353-0359-45 ",.02)
 ;;43353-0359-45
 ;;9002226.02101,"1828,43353-0359-53 ",.01)
 ;;43353-0359-53
 ;;9002226.02101,"1828,43353-0359-53 ",.02)
 ;;43353-0359-53
 ;;9002226.02101,"1828,43353-0359-60 ",.01)
 ;;43353-0359-60
 ;;9002226.02101,"1828,43353-0359-60 ",.02)
 ;;43353-0359-60
 ;;9002226.02101,"1828,43353-0359-70 ",.01)
 ;;43353-0359-70
 ;;9002226.02101,"1828,43353-0359-70 ",.02)
 ;;43353-0359-70
 ;;9002226.02101,"1828,43353-0359-75 ",.01)
 ;;43353-0359-75
 ;;9002226.02101,"1828,43353-0359-75 ",.02)
 ;;43353-0359-75
 ;;9002226.02101,"1828,43353-0359-80 ",.01)
 ;;43353-0359-80
 ;;9002226.02101,"1828,43353-0359-80 ",.02)
 ;;43353-0359-80
 ;;9002226.02101,"1828,43353-0359-90 ",.01)
 ;;43353-0359-90
 ;;9002226.02101,"1828,43353-0359-90 ",.02)
 ;;43353-0359-90
 ;;9002226.02101,"1828,43353-0451-30 ",.01)
 ;;43353-0451-30
 ;;9002226.02101,"1828,43353-0451-30 ",.02)
 ;;43353-0451-30
 ;;9002226.02101,"1828,43353-0451-53 ",.01)
 ;;43353-0451-53
 ;;9002226.02101,"1828,43353-0451-53 ",.02)
 ;;43353-0451-53
 ;;9002226.02101,"1828,43353-0555-15 ",.01)
 ;;43353-0555-15
 ;;9002226.02101,"1828,43353-0555-15 ",.02)
 ;;43353-0555-15
 ;;9002226.02101,"1828,43353-0555-20 ",.01)
 ;;43353-0555-20
 ;;9002226.02101,"1828,43353-0555-20 ",.02)
 ;;43353-0555-20
 ;;9002226.02101,"1828,43353-0555-30 ",.01)
 ;;43353-0555-30
 ;;9002226.02101,"1828,43353-0555-30 ",.02)
 ;;43353-0555-30
 ;;9002226.02101,"1828,43353-0555-45 ",.01)
 ;;43353-0555-45
 ;;9002226.02101,"1828,43353-0555-45 ",.02)
 ;;43353-0555-45
 ;;9002226.02101,"1828,43353-0555-53 ",.01)
 ;;43353-0555-53
 ;;9002226.02101,"1828,43353-0555-53 ",.02)
 ;;43353-0555-53
 ;;9002226.02101,"1828,43353-0555-55 ",.01)
 ;;43353-0555-55
 ;;9002226.02101,"1828,43353-0555-55 ",.02)
 ;;43353-0555-55
 ;;9002226.02101,"1828,43353-0555-60 ",.01)
 ;;43353-0555-60
 ;;9002226.02101,"1828,43353-0555-60 ",.02)
 ;;43353-0555-60
 ;;9002226.02101,"1828,43353-0555-70 ",.01)
 ;;43353-0555-70
 ;;9002226.02101,"1828,43353-0555-70 ",.02)
 ;;43353-0555-70
 ;;9002226.02101,"1828,43353-0555-75 ",.01)
 ;;43353-0555-75
 ;;9002226.02101,"1828,43353-0555-75 ",.02)
 ;;43353-0555-75
 ;;9002226.02101,"1828,43353-0555-80 ",.01)
 ;;43353-0555-80
 ;;9002226.02101,"1828,43353-0555-80 ",.02)
 ;;43353-0555-80
 ;;9002226.02101,"1828,43353-0555-90 ",.01)
 ;;43353-0555-90
 ;;9002226.02101,"1828,43353-0555-90 ",.02)
 ;;43353-0555-90
 ;;9002226.02101,"1828,43353-0555-92 ",.01)
 ;;43353-0555-92
 ;;9002226.02101,"1828,43353-0555-92 ",.02)
 ;;43353-0555-92
 ;;9002226.02101,"1828,43353-0572-15 ",.01)
 ;;43353-0572-15
 ;;9002226.02101,"1828,43353-0572-15 ",.02)
 ;;43353-0572-15
 ;;9002226.02101,"1828,43353-0572-30 ",.01)
 ;;43353-0572-30
 ;;9002226.02101,"1828,43353-0572-30 ",.02)
 ;;43353-0572-30
 ;;9002226.02101,"1828,43353-0572-53 ",.01)
 ;;43353-0572-53
 ;;9002226.02101,"1828,43353-0572-53 ",.02)
 ;;43353-0572-53
 ;;9002226.02101,"1828,43353-0572-60 ",.01)
 ;;43353-0572-60
 ;;9002226.02101,"1828,43353-0572-60 ",.02)
 ;;43353-0572-60
 ;;9002226.02101,"1828,43353-0572-70 ",.01)
 ;;43353-0572-70
 ;;9002226.02101,"1828,43353-0572-70 ",.02)
 ;;43353-0572-70
 ;;9002226.02101,"1828,43353-0572-75 ",.01)
 ;;43353-0572-75
 ;;9002226.02101,"1828,43353-0572-75 ",.02)
 ;;43353-0572-75
 ;;9002226.02101,"1828,43353-0572-80 ",.01)
 ;;43353-0572-80
 ;;9002226.02101,"1828,43353-0572-80 ",.02)
 ;;43353-0572-80
 ;;9002226.02101,"1828,43353-0572-90 ",.01)
 ;;43353-0572-90
 ;;9002226.02101,"1828,43353-0572-90 ",.02)
 ;;43353-0572-90
 ;;9002226.02101,"1828,43353-0698-30 ",.01)
 ;;43353-0698-30
 ;;9002226.02101,"1828,43353-0698-30 ",.02)
 ;;43353-0698-30
 ;;9002226.02101,"1828,43353-0698-53 ",.01)
 ;;43353-0698-53
 ;;9002226.02101,"1828,43353-0698-53 ",.02)
 ;;43353-0698-53
 ;;9002226.02101,"1828,43353-0698-60 ",.01)
 ;;43353-0698-60
 ;;9002226.02101,"1828,43353-0698-60 ",.02)
 ;;43353-0698-60
 ;;9002226.02101,"1828,43353-0699-30 ",.01)
 ;;43353-0699-30
 ;;9002226.02101,"1828,43353-0699-30 ",.02)
 ;;43353-0699-30
 ;;9002226.02101,"1828,43353-0699-53 ",.01)
 ;;43353-0699-53
 ;;9002226.02101,"1828,43353-0699-53 ",.02)
 ;;43353-0699-53
 ;;9002226.02101,"1828,43353-0699-60 ",.01)
 ;;43353-0699-60
 ;;9002226.02101,"1828,43353-0699-60 ",.02)
 ;;43353-0699-60
 ;;9002226.02101,"1828,43353-0705-15 ",.01)
 ;;43353-0705-15
 ;;9002226.02101,"1828,43353-0705-15 ",.02)
 ;;43353-0705-15
 ;;9002226.02101,"1828,43353-0705-30 ",.01)
 ;;43353-0705-30
 ;;9002226.02101,"1828,43353-0705-30 ",.02)
 ;;43353-0705-30
 ;;9002226.02101,"1828,43353-0705-53 ",.01)
 ;;43353-0705-53
 ;;9002226.02101,"1828,43353-0705-53 ",.02)
 ;;43353-0705-53
 ;;9002226.02101,"1828,43353-0705-60 ",.01)
 ;;43353-0705-60
 ;;9002226.02101,"1828,43353-0705-60 ",.02)
 ;;43353-0705-60
 ;;9002226.02101,"1828,43353-0705-70 ",.01)
 ;;43353-0705-70
 ;;9002226.02101,"1828,43353-0705-70 ",.02)
 ;;43353-0705-70
 ;;9002226.02101,"1828,43353-0711-30 ",.01)
 ;;43353-0711-30
 ;;9002226.02101,"1828,43353-0711-30 ",.02)
 ;;43353-0711-30
 ;;9002226.02101,"1828,43353-0711-53 ",.01)
 ;;43353-0711-53
 ;;9002226.02101,"1828,43353-0711-53 ",.02)
 ;;43353-0711-53
 ;;9002226.02101,"1828,43353-0711-60 ",.01)
 ;;43353-0711-60
 ;;9002226.02101,"1828,43353-0711-60 ",.02)
 ;;43353-0711-60
 ;;9002226.02101,"1828,43353-0783-15 ",.01)
 ;;43353-0783-15
 ;;9002226.02101,"1828,43353-0783-15 ",.02)
 ;;43353-0783-15
 ;;9002226.02101,"1828,43353-0783-20 ",.01)
 ;;43353-0783-20
 ;;9002226.02101,"1828,43353-0783-20 ",.02)
 ;;43353-0783-20
 ;;9002226.02101,"1828,43353-0783-30 ",.01)
 ;;43353-0783-30
 ;;9002226.02101,"1828,43353-0783-30 ",.02)
 ;;43353-0783-30
 ;;9002226.02101,"1828,43353-0783-45 ",.01)
 ;;43353-0783-45
 ;;9002226.02101,"1828,43353-0783-45 ",.02)
 ;;43353-0783-45
 ;;9002226.02101,"1828,43353-0783-53 ",.01)
 ;;43353-0783-53
 ;;9002226.02101,"1828,43353-0783-53 ",.02)
 ;;43353-0783-53
 ;;9002226.02101,"1828,43353-0783-55 ",.01)
 ;;43353-0783-55
 ;;9002226.02101,"1828,43353-0783-55 ",.02)
 ;;43353-0783-55
 ;;9002226.02101,"1828,43353-0783-60 ",.01)
 ;;43353-0783-60
 ;;9002226.02101,"1828,43353-0783-60 ",.02)
 ;;43353-0783-60
 ;;9002226.02101,"1828,43353-0783-70 ",.01)
 ;;43353-0783-70
 ;;9002226.02101,"1828,43353-0783-70 ",.02)
 ;;43353-0783-70
 ;;9002226.02101,"1828,43353-0783-75 ",.01)
 ;;43353-0783-75
 ;;9002226.02101,"1828,43353-0783-75 ",.02)
 ;;43353-0783-75
 ;;9002226.02101,"1828,43353-0783-80 ",.01)
 ;;43353-0783-80
 ;;9002226.02101,"1828,43353-0783-80 ",.02)
 ;;43353-0783-80
 ;;9002226.02101,"1828,43353-0783-90 ",.01)
 ;;43353-0783-90
 ;;9002226.02101,"1828,43353-0783-90 ",.02)
 ;;43353-0783-90
 ;;9002226.02101,"1828,43353-0799-15 ",.01)
 ;;43353-0799-15
 ;;9002226.02101,"1828,43353-0799-15 ",.02)
 ;;43353-0799-15
 ;;9002226.02101,"1828,43353-0799-45 ",.01)
 ;;43353-0799-45
 ;;9002226.02101,"1828,43353-0799-45 ",.02)
 ;;43353-0799-45
 ;;9002226.02101,"1828,43353-0799-70 ",.01)
 ;;43353-0799-70
 ;;9002226.02101,"1828,43353-0799-70 ",.02)
 ;;43353-0799-70
 ;;9002226.02101,"1828,43353-0820-30 ",.01)
 ;;43353-0820-30
 ;;9002226.02101,"1828,43353-0820-30 ",.02)
 ;;43353-0820-30
 ;;9002226.02101,"1828,43353-0820-53 ",.01)
 ;;43353-0820-53
 ;;9002226.02101,"1828,43353-0820-53 ",.02)
 ;;43353-0820-53
 ;;9002226.02101,"1828,43353-0820-60 ",.01)
 ;;43353-0820-60
 ;;9002226.02101,"1828,43353-0820-60 ",.02)
 ;;43353-0820-60
 ;;9002226.02101,"1828,43353-0820-70 ",.01)
 ;;43353-0820-70