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

BGP82Z53.m

Go to the documentation of this file.
BGP82Z53 ; 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,54868-0510-02 ",.02)
 ;;54868-0510-02
 ;;9002226.02101,"619,54868-0510-03 ",.01)
 ;;54868-0510-03
 ;;9002226.02101,"619,54868-0510-03 ",.02)
 ;;54868-0510-03
 ;;9002226.02101,"619,54868-0534-02 ",.01)
 ;;54868-0534-02
 ;;9002226.02101,"619,54868-0534-02 ",.02)
 ;;54868-0534-02
 ;;9002226.02101,"619,54868-0860-00 ",.01)
 ;;54868-0860-00
 ;;9002226.02101,"619,54868-0860-00 ",.02)
 ;;54868-0860-00
 ;;9002226.02101,"619,54868-0860-01 ",.01)
 ;;54868-0860-01
 ;;9002226.02101,"619,54868-0860-01 ",.02)
 ;;54868-0860-01
 ;;9002226.02101,"619,54868-0860-02 ",.01)
 ;;54868-0860-02
 ;;9002226.02101,"619,54868-0860-02 ",.02)
 ;;54868-0860-02
 ;;9002226.02101,"619,54868-0860-03 ",.01)
 ;;54868-0860-03
 ;;9002226.02101,"619,54868-0860-03 ",.02)
 ;;54868-0860-03
 ;;9002226.02101,"619,54868-1029-00 ",.01)
 ;;54868-1029-00
 ;;9002226.02101,"619,54868-1029-00 ",.02)
 ;;54868-1029-00
 ;;9002226.02101,"619,54868-1029-01 ",.01)
 ;;54868-1029-01
 ;;9002226.02101,"619,54868-1029-01 ",.02)
 ;;54868-1029-01
 ;;9002226.02101,"619,54868-1029-02 ",.01)
 ;;54868-1029-02
 ;;9002226.02101,"619,54868-1029-02 ",.02)
 ;;54868-1029-02
 ;;9002226.02101,"619,54868-1037-01 ",.01)
 ;;54868-1037-01
 ;;9002226.02101,"619,54868-1037-01 ",.02)
 ;;54868-1037-01
 ;;9002226.02101,"619,54868-1037-03 ",.01)
 ;;54868-1037-03
 ;;9002226.02101,"619,54868-1037-03 ",.02)
 ;;54868-1037-03
 ;;9002226.02101,"619,54868-1037-04 ",.01)
 ;;54868-1037-04
 ;;9002226.02101,"619,54868-1037-04 ",.02)
 ;;54868-1037-04
 ;;9002226.02101,"619,54868-1037-05 ",.01)
 ;;54868-1037-05
 ;;9002226.02101,"619,54868-1037-05 ",.02)
 ;;54868-1037-05
 ;;9002226.02101,"619,54868-1071-00 ",.01)
 ;;54868-1071-00
 ;;9002226.02101,"619,54868-1071-00 ",.02)
 ;;54868-1071-00
 ;;9002226.02101,"619,54868-1071-01 ",.01)
 ;;54868-1071-01
 ;;9002226.02101,"619,54868-1071-01 ",.02)
 ;;54868-1071-01
 ;;9002226.02101,"619,54868-1071-02 ",.01)
 ;;54868-1071-02
 ;;9002226.02101,"619,54868-1071-02 ",.02)
 ;;54868-1071-02
 ;;9002226.02101,"619,54868-1071-03 ",.01)
 ;;54868-1071-03
 ;;9002226.02101,"619,54868-1071-03 ",.02)
 ;;54868-1071-03
 ;;9002226.02101,"619,54868-1233-01 ",.01)
 ;;54868-1233-01
 ;;9002226.02101,"619,54868-1233-01 ",.02)
 ;;54868-1233-01
 ;;9002226.02101,"619,54868-1233-02 ",.01)
 ;;54868-1233-02
 ;;9002226.02101,"619,54868-1233-02 ",.02)
 ;;54868-1233-02
 ;;9002226.02101,"619,54868-1233-04 ",.01)
 ;;54868-1233-04
 ;;9002226.02101,"619,54868-1233-04 ",.02)
 ;;54868-1233-04
 ;;9002226.02101,"619,54868-1233-05 ",.01)
 ;;54868-1233-05
 ;;9002226.02101,"619,54868-1233-05 ",.02)
 ;;54868-1233-05
 ;;9002226.02101,"619,54868-1233-06 ",.01)
 ;;54868-1233-06
 ;;9002226.02101,"619,54868-1233-06 ",.02)
 ;;54868-1233-06
 ;;9002226.02101,"619,54868-1523-00 ",.01)
 ;;54868-1523-00
 ;;9002226.02101,"619,54868-1523-00 ",.02)
 ;;54868-1523-00
 ;;9002226.02101,"619,54868-1523-01 ",.01)
 ;;54868-1523-01
 ;;9002226.02101,"619,54868-1523-01 ",.02)
 ;;54868-1523-01
 ;;9002226.02101,"619,54868-1700-00 ",.01)
 ;;54868-1700-00
 ;;9002226.02101,"619,54868-1700-00 ",.02)
 ;;54868-1700-00
 ;;9002226.02101,"619,54868-1700-01 ",.01)
 ;;54868-1700-01
 ;;9002226.02101,"619,54868-1700-01 ",.02)
 ;;54868-1700-01
 ;;9002226.02101,"619,54868-1700-02 ",.01)
 ;;54868-1700-02
 ;;9002226.02101,"619,54868-1700-02 ",.02)
 ;;54868-1700-02
 ;;9002226.02101,"619,54868-1700-04 ",.01)
 ;;54868-1700-04
 ;;9002226.02101,"619,54868-1700-04 ",.02)
 ;;54868-1700-04
 ;;9002226.02101,"619,54868-1700-06 ",.01)
 ;;54868-1700-06
 ;;9002226.02101,"619,54868-1700-06 ",.02)
 ;;54868-1700-06
 ;;9002226.02101,"619,54868-1700-07 ",.01)
 ;;54868-1700-07
 ;;9002226.02101,"619,54868-1700-07 ",.02)
 ;;54868-1700-07
 ;;9002226.02101,"619,54868-1700-08 ",.01)
 ;;54868-1700-08
 ;;9002226.02101,"619,54868-1700-08 ",.02)
 ;;54868-1700-08
 ;;9002226.02101,"619,54868-1700-09 ",.01)
 ;;54868-1700-09
 ;;9002226.02101,"619,54868-1700-09 ",.02)
 ;;54868-1700-09
 ;;9002226.02101,"619,54868-2094-00 ",.01)
 ;;54868-2094-00
 ;;9002226.02101,"619,54868-2094-00 ",.02)
 ;;54868-2094-00
 ;;9002226.02101,"619,54868-2094-01 ",.01)
 ;;54868-2094-01
 ;;9002226.02101,"619,54868-2094-01 ",.02)
 ;;54868-2094-01
 ;;9002226.02101,"619,54868-2115-00 ",.01)
 ;;54868-2115-00
 ;;9002226.02101,"619,54868-2115-00 ",.02)
 ;;54868-2115-00
 ;;9002226.02101,"619,54868-2115-01 ",.01)
 ;;54868-2115-01
 ;;9002226.02101,"619,54868-2115-01 ",.02)
 ;;54868-2115-01
 ;;9002226.02101,"619,54868-2130-01 ",.01)
 ;;54868-2130-01
 ;;9002226.02101,"619,54868-2130-01 ",.02)
 ;;54868-2130-01
 ;;9002226.02101,"619,54868-2413-00 ",.01)
 ;;54868-2413-00
 ;;9002226.02101,"619,54868-2413-00 ",.02)
 ;;54868-2413-00
 ;;9002226.02101,"619,54868-2541-00 ",.01)
 ;;54868-2541-00
 ;;9002226.02101,"619,54868-2541-00 ",.02)
 ;;54868-2541-00
 ;;9002226.02101,"619,54868-2541-01 ",.01)
 ;;54868-2541-01
 ;;9002226.02101,"619,54868-2541-01 ",.02)
 ;;54868-2541-01
 ;;9002226.02101,"619,54868-2541-02 ",.01)
 ;;54868-2541-02
 ;;9002226.02101,"619,54868-2541-02 ",.02)
 ;;54868-2541-02
 ;;9002226.02101,"619,54868-2905-00 ",.01)
 ;;54868-2905-00
 ;;9002226.02101,"619,54868-2905-00 ",.02)
 ;;54868-2905-00
 ;;9002226.02101,"619,54868-2905-01 ",.01)
 ;;54868-2905-01
 ;;9002226.02101,"619,54868-2905-01 ",.02)
 ;;54868-2905-01
 ;;9002226.02101,"619,54868-2905-02 ",.01)
 ;;54868-2905-02
 ;;9002226.02101,"619,54868-2905-02 ",.02)
 ;;54868-2905-02
 ;;9002226.02101,"619,54868-2905-03 ",.01)
 ;;54868-2905-03
 ;;9002226.02101,"619,54868-2905-03 ",.02)
 ;;54868-2905-03
 ;;9002226.02101,"619,54868-2905-04 ",.01)
 ;;54868-2905-04
 ;;9002226.02101,"619,54868-2905-04 ",.02)
 ;;54868-2905-04
 ;;9002226.02101,"619,54868-2905-05 ",.01)
 ;;54868-2905-05
 ;;9002226.02101,"619,54868-2905-05 ",.02)
 ;;54868-2905-05
 ;;9002226.02101,"619,54868-2908-00 ",.01)
 ;;54868-2908-00
 ;;9002226.02101,"619,54868-2908-00 ",.02)
 ;;54868-2908-00
 ;;9002226.02101,"619,54868-3073-00 ",.01)
 ;;54868-3073-00
 ;;9002226.02101,"619,54868-3073-00 ",.02)
 ;;54868-3073-00
 ;;9002226.02101,"619,54868-3074-00 ",.01)
 ;;54868-3074-00
 ;;9002226.02101,"619,54868-3074-00 ",.02)
 ;;54868-3074-00
 ;;9002226.02101,"619,54868-3075-00 ",.01)
 ;;54868-3075-00
 ;;9002226.02101,"619,54868-3075-00 ",.02)
 ;;54868-3075-00
 ;;9002226.02101,"619,54868-3076-00 ",.01)
 ;;54868-3076-00
 ;;9002226.02101,"619,54868-3076-00 ",.02)
 ;;54868-3076-00
 ;;9002226.02101,"619,54868-3081-00 ",.01)
 ;;54868-3081-00
 ;;9002226.02101,"619,54868-3081-00 ",.02)
 ;;54868-3081-00
 ;;9002226.02101,"619,54868-3081-01 ",.01)
 ;;54868-3081-01
 ;;9002226.02101,"619,54868-3081-01 ",.02)
 ;;54868-3081-01
 ;;9002226.02101,"619,54868-3137-01 ",.01)
 ;;54868-3137-01
 ;;9002226.02101,"619,54868-3137-01 ",.02)
 ;;54868-3137-01
 ;;9002226.02101,"619,54868-3165-00 ",.01)
 ;;54868-3165-00
 ;;9002226.02101,"619,54868-3165-00 ",.02)
 ;;54868-3165-00
 ;;9002226.02101,"619,54868-3165-01 ",.01)
 ;;54868-3165-01
 ;;9002226.02101,"619,54868-3165-01 ",.02)
 ;;54868-3165-01
 ;;9002226.02101,"619,54868-3165-02 ",.01)
 ;;54868-3165-02
 ;;9002226.02101,"619,54868-3165-02 ",.02)
 ;;54868-3165-02
 ;;9002226.02101,"619,54868-3165-03 ",.01)
 ;;54868-3165-03
 ;;9002226.02101,"619,54868-3165-03 ",.02)
 ;;54868-3165-03
 ;;9002226.02101,"619,54868-3165-04 ",.01)
 ;;54868-3165-04
 ;;9002226.02101,"619,54868-3165-04 ",.02)
 ;;54868-3165-04
 ;;9002226.02101,"619,54868-3165-05 ",.01)
 ;;54868-3165-05
 ;;9002226.02101,"619,54868-3165-05 ",.02)
 ;;54868-3165-05
 ;;9002226.02101,"619,54868-3165-06 ",.01)
 ;;54868-3165-06
 ;;9002226.02101,"619,54868-3165-06 ",.02)
 ;;54868-3165-06
 ;;9002226.02101,"619,54868-3165-07 ",.01)
 ;;54868-3165-07
 ;;9002226.02101,"619,54868-3165-07 ",.02)
 ;;54868-3165-07
 ;;9002226.02101,"619,54868-3191-02 ",.01)
 ;;54868-3191-02
 ;;9002226.02101,"619,54868-3191-02 ",.02)
 ;;54868-3191-02
 ;;9002226.02101,"619,54868-3191-03 ",.01)
 ;;54868-3191-03
 ;;9002226.02101,"619,54868-3191-03 ",.02)
 ;;54868-3191-03
 ;;9002226.02101,"619,54868-3191-04 ",.01)
 ;;54868-3191-04
 ;;9002226.02101,"619,54868-3191-04 ",.02)
 ;;54868-3191-04
 ;;9002226.02101,"619,54868-3191-05 ",.01)
 ;;54868-3191-05
 ;;9002226.02101,"619,54868-3191-05 ",.02)
 ;;54868-3191-05
 ;;9002226.02101,"619,54868-3191-06 ",.01)
 ;;54868-3191-06
 ;;9002226.02101,"619,54868-3191-06 ",.02)
 ;;54868-3191-06
 ;;9002226.02101,"619,54868-3605-00 ",.01)
 ;;54868-3605-00
 ;;9002226.02101,"619,54868-3605-00 ",.02)
 ;;54868-3605-00
 ;;9002226.02101,"619,54868-3605-02 ",.01)
 ;;54868-3605-02
 ;;9002226.02101,"619,54868-3605-02 ",.02)
 ;;54868-3605-02
 ;;9002226.02101,"619,54868-3605-03 ",.01)
 ;;54868-3605-03
 ;;9002226.02101,"619,54868-3605-03 ",.02)
 ;;54868-3605-03
 ;;9002226.02101,"619,54868-3605-04 ",.01)
 ;;54868-3605-04
 ;;9002226.02101,"619,54868-3605-04 ",.02)
 ;;54868-3605-04
 ;;9002226.02101,"619,54868-3605-05 ",.01)
 ;;54868-3605-05
 ;;9002226.02101,"619,54868-3605-05 ",.02)
 ;;54868-3605-05
 ;;9002226.02101,"619,54868-3813-00 ",.01)
 ;;54868-3813-00
 ;;9002226.02101,"619,54868-3813-00 ",.02)
 ;;54868-3813-00
 ;;9002226.02101,"619,54868-3813-01 ",.01)
 ;;54868-3813-01
 ;;9002226.02101,"619,54868-3813-01 ",.02)
 ;;54868-3813-01
 ;;9002226.02101,"619,54868-3813-02 ",.01)
 ;;54868-3813-02
 ;;9002226.02101,"619,54868-3813-02 ",.02)
 ;;54868-3813-02
 ;;9002226.02101,"619,54868-3813-03 ",.01)
 ;;54868-3813-03
 ;;9002226.02101,"619,54868-3813-03 ",.02)
 ;;54868-3813-03
 ;;9002226.02101,"619,54868-3813-04 ",.01)
 ;;54868-3813-04
 ;;9002226.02101,"619,54868-3813-04 ",.02)
 ;;54868-3813-04
 ;;9002226.02101,"619,54868-3813-05 ",.01)
 ;;54868-3813-05
 ;;9002226.02101,"619,54868-3813-05 ",.02)
 ;;54868-3813-05
 ;;9002226.02101,"619,54868-3814-00 ",.01)
 ;;54868-3814-00
 ;;9002226.02101,"619,54868-3814-00 ",.02)
 ;;54868-3814-00
 ;;9002226.02101,"619,54868-3814-01 ",.01)
 ;;54868-3814-01
 ;;9002226.02101,"619,54868-3814-01 ",.02)
 ;;54868-3814-01
 ;;9002226.02101,"619,54868-3814-02 ",.01)
 ;;54868-3814-02
 ;;9002226.02101,"619,54868-3814-02 ",.02)
 ;;54868-3814-02
 ;;9002226.02101,"619,54868-3814-03 ",.01)
 ;;54868-3814-03
 ;;9002226.02101,"619,54868-3814-03 ",.02)
 ;;54868-3814-03
 ;;9002226.02101,"619,54868-3814-04 ",.01)
 ;;54868-3814-04
 ;;9002226.02101,"619,54868-3814-04 ",.02)
 ;;54868-3814-04
 ;;9002226.02101,"619,54868-3814-05 ",.01)
 ;;54868-3814-05
 ;;9002226.02101,"619,54868-3814-05 ",.02)
 ;;54868-3814-05
 ;;9002226.02101,"619,54868-3814-06 ",.01)
 ;;54868-3814-06
 ;;9002226.02101,"619,54868-3814-06 ",.02)
 ;;54868-3814-06
 ;;9002226.02101,"619,54868-3815-00 ",.01)
 ;;54868-3815-00
 ;;9002226.02101,"619,54868-3815-00 ",.02)
 ;;54868-3815-00
 ;;9002226.02101,"619,54868-3815-01 ",.01)
 ;;54868-3815-01
 ;;9002226.02101,"619,54868-3815-01 ",.02)
 ;;54868-3815-01
 ;;9002226.02101,"619,54868-3815-03 ",.01)
 ;;54868-3815-03
 ;;9002226.02101,"619,54868-3815-03 ",.02)
 ;;54868-3815-03
 ;;9002226.02101,"619,54868-3815-04 ",.01)
 ;;54868-3815-04
 ;;9002226.02101,"619,54868-3815-04 ",.02)
 ;;54868-3815-04
 ;;9002226.02101,"619,54868-3815-05 ",.01)
 ;;54868-3815-05
 ;;9002226.02101,"619,54868-3815-05 ",.02)
 ;;54868-3815-05
 ;;9002226.02101,"619,54868-3932-00 ",.01)
 ;;54868-3932-00
 ;;9002226.02101,"619,54868-3932-00 ",.02)
 ;;54868-3932-00
 ;;9002226.02101,"619,54868-3932-01 ",.01)
 ;;54868-3932-01
 ;;9002226.02101,"619,54868-3932-01 ",.02)
 ;;54868-3932-01
 ;;9002226.02101,"619,54868-3932-02 ",.01)
 ;;54868-3932-02
 ;;9002226.02101,"619,54868-3932-02 ",.02)
 ;;54868-3932-02
 ;;9002226.02101,"619,54868-3932-03 ",.01)
 ;;54868-3932-03
 ;;9002226.02101,"619,54868-3932-03 ",.02)
 ;;54868-3932-03
 ;;9002226.02101,"619,54868-3932-04 ",.01)
 ;;54868-3932-04