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

BGP82Z42.m

Go to the documentation of this file.
BGP82Z42 ; 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,43353-0072-65 ",.02)
 ;;43353-0072-65
 ;;9002226.02101,"619,43353-0072-67 ",.01)
 ;;43353-0072-67
 ;;9002226.02101,"619,43353-0072-67 ",.02)
 ;;43353-0072-67
 ;;9002226.02101,"619,43353-0072-70 ",.01)
 ;;43353-0072-70
 ;;9002226.02101,"619,43353-0072-70 ",.02)
 ;;43353-0072-70
 ;;9002226.02101,"619,43353-0072-72 ",.01)
 ;;43353-0072-72
 ;;9002226.02101,"619,43353-0072-72 ",.02)
 ;;43353-0072-72
 ;;9002226.02101,"619,43353-0072-73 ",.01)
 ;;43353-0072-73
 ;;9002226.02101,"619,43353-0072-73 ",.02)
 ;;43353-0072-73
 ;;9002226.02101,"619,43353-0072-75 ",.01)
 ;;43353-0072-75
 ;;9002226.02101,"619,43353-0072-75 ",.02)
 ;;43353-0072-75
 ;;9002226.02101,"619,43353-0072-80 ",.01)
 ;;43353-0072-80
 ;;9002226.02101,"619,43353-0072-80 ",.02)
 ;;43353-0072-80
 ;;9002226.02101,"619,43353-0072-85 ",.01)
 ;;43353-0072-85
 ;;9002226.02101,"619,43353-0072-85 ",.02)
 ;;43353-0072-85
 ;;9002226.02101,"619,43353-0072-89 ",.01)
 ;;43353-0072-89
 ;;9002226.02101,"619,43353-0072-89 ",.02)
 ;;43353-0072-89
 ;;9002226.02101,"619,43353-0072-90 ",.01)
 ;;43353-0072-90
 ;;9002226.02101,"619,43353-0072-90 ",.02)
 ;;43353-0072-90
 ;;9002226.02101,"619,43353-0072-92 ",.01)
 ;;43353-0072-92
 ;;9002226.02101,"619,43353-0072-92 ",.02)
 ;;43353-0072-92
 ;;9002226.02101,"619,43353-0072-94 ",.01)
 ;;43353-0072-94
 ;;9002226.02101,"619,43353-0072-94 ",.02)
 ;;43353-0072-94
 ;;9002226.02101,"619,43353-0072-98 ",.01)
 ;;43353-0072-98
 ;;9002226.02101,"619,43353-0072-98 ",.02)
 ;;43353-0072-98
 ;;9002226.02101,"619,43353-0159-15 ",.01)
 ;;43353-0159-15
 ;;9002226.02101,"619,43353-0159-15 ",.02)
 ;;43353-0159-15
 ;;9002226.02101,"619,43353-0159-30 ",.01)
 ;;43353-0159-30
 ;;9002226.02101,"619,43353-0159-30 ",.02)
 ;;43353-0159-30
 ;;9002226.02101,"619,43353-0159-40 ",.01)
 ;;43353-0159-40
 ;;9002226.02101,"619,43353-0159-40 ",.02)
 ;;43353-0159-40
 ;;9002226.02101,"619,43353-0159-45 ",.01)
 ;;43353-0159-45
 ;;9002226.02101,"619,43353-0159-45 ",.02)
 ;;43353-0159-45
 ;;9002226.02101,"619,43353-0159-46 ",.01)
 ;;43353-0159-46
 ;;9002226.02101,"619,43353-0159-46 ",.02)
 ;;43353-0159-46
 ;;9002226.02101,"619,43353-0159-50 ",.01)
 ;;43353-0159-50
 ;;9002226.02101,"619,43353-0159-50 ",.02)
 ;;43353-0159-50
 ;;9002226.02101,"619,43353-0159-53 ",.01)
 ;;43353-0159-53
 ;;9002226.02101,"619,43353-0159-53 ",.02)
 ;;43353-0159-53
 ;;9002226.02101,"619,43353-0159-54 ",.01)
 ;;43353-0159-54
 ;;9002226.02101,"619,43353-0159-54 ",.02)
 ;;43353-0159-54
 ;;9002226.02101,"619,43353-0159-55 ",.01)
 ;;43353-0159-55
 ;;9002226.02101,"619,43353-0159-55 ",.02)
 ;;43353-0159-55
 ;;9002226.02101,"619,43353-0159-57 ",.01)
 ;;43353-0159-57
 ;;9002226.02101,"619,43353-0159-57 ",.02)
 ;;43353-0159-57
 ;;9002226.02101,"619,43353-0159-60 ",.01)
 ;;43353-0159-60
 ;;9002226.02101,"619,43353-0159-60 ",.02)
 ;;43353-0159-60
 ;;9002226.02101,"619,43353-0159-67 ",.01)
 ;;43353-0159-67
 ;;9002226.02101,"619,43353-0159-67 ",.02)
 ;;43353-0159-67
 ;;9002226.02101,"619,43353-0159-70 ",.01)
 ;;43353-0159-70
 ;;9002226.02101,"619,43353-0159-70 ",.02)
 ;;43353-0159-70
 ;;9002226.02101,"619,43353-0159-72 ",.01)
 ;;43353-0159-72
 ;;9002226.02101,"619,43353-0159-72 ",.02)
 ;;43353-0159-72
 ;;9002226.02101,"619,43353-0159-75 ",.01)
 ;;43353-0159-75
 ;;9002226.02101,"619,43353-0159-75 ",.02)
 ;;43353-0159-75
 ;;9002226.02101,"619,43353-0159-80 ",.01)
 ;;43353-0159-80
 ;;9002226.02101,"619,43353-0159-80 ",.02)
 ;;43353-0159-80
 ;;9002226.02101,"619,43353-0159-90 ",.01)
 ;;43353-0159-90
 ;;9002226.02101,"619,43353-0159-90 ",.02)
 ;;43353-0159-90
 ;;9002226.02101,"619,43353-0283-30 ",.01)
 ;;43353-0283-30
 ;;9002226.02101,"619,43353-0283-30 ",.02)
 ;;43353-0283-30
 ;;9002226.02101,"619,43353-0283-53 ",.01)
 ;;43353-0283-53
 ;;9002226.02101,"619,43353-0283-53 ",.02)
 ;;43353-0283-53
 ;;9002226.02101,"619,43353-0283-60 ",.01)
 ;;43353-0283-60
 ;;9002226.02101,"619,43353-0283-60 ",.02)
 ;;43353-0283-60
 ;;9002226.02101,"619,43353-0283-70 ",.01)
 ;;43353-0283-70
 ;;9002226.02101,"619,43353-0283-70 ",.02)
 ;;43353-0283-70
 ;;9002226.02101,"619,43353-0283-80 ",.01)
 ;;43353-0283-80
 ;;9002226.02101,"619,43353-0283-80 ",.02)
 ;;43353-0283-80
 ;;9002226.02101,"619,43353-0283-90 ",.01)
 ;;43353-0283-90
 ;;9002226.02101,"619,43353-0283-90 ",.02)
 ;;43353-0283-90
 ;;9002226.02101,"619,43353-0324-30 ",.01)
 ;;43353-0324-30
 ;;9002226.02101,"619,43353-0324-30 ",.02)
 ;;43353-0324-30
 ;;9002226.02101,"619,43353-0324-53 ",.01)
 ;;43353-0324-53
 ;;9002226.02101,"619,43353-0324-53 ",.02)
 ;;43353-0324-53
 ;;9002226.02101,"619,43353-0324-54 ",.01)
 ;;43353-0324-54
 ;;9002226.02101,"619,43353-0324-54 ",.02)
 ;;43353-0324-54
 ;;9002226.02101,"619,43353-0324-60 ",.01)
 ;;43353-0324-60
 ;;9002226.02101,"619,43353-0324-60 ",.02)
 ;;43353-0324-60
 ;;9002226.02101,"619,43353-0324-70 ",.01)
 ;;43353-0324-70
 ;;9002226.02101,"619,43353-0324-70 ",.02)
 ;;43353-0324-70
 ;;9002226.02101,"619,43353-0324-80 ",.01)
 ;;43353-0324-80
 ;;9002226.02101,"619,43353-0324-80 ",.02)
 ;;43353-0324-80
 ;;9002226.02101,"619,43353-0324-90 ",.01)
 ;;43353-0324-90
 ;;9002226.02101,"619,43353-0324-90 ",.02)
 ;;43353-0324-90
 ;;9002226.02101,"619,43353-0422-30 ",.01)
 ;;43353-0422-30
 ;;9002226.02101,"619,43353-0422-30 ",.02)
 ;;43353-0422-30
 ;;9002226.02101,"619,43353-0422-53 ",.01)
 ;;43353-0422-53
 ;;9002226.02101,"619,43353-0422-53 ",.02)
 ;;43353-0422-53
 ;;9002226.02101,"619,43353-0422-60 ",.01)
 ;;43353-0422-60
 ;;9002226.02101,"619,43353-0422-60 ",.02)
 ;;43353-0422-60
 ;;9002226.02101,"619,43353-0422-70 ",.01)
 ;;43353-0422-70
 ;;9002226.02101,"619,43353-0422-70 ",.02)
 ;;43353-0422-70
 ;;9002226.02101,"619,43353-0422-75 ",.01)
 ;;43353-0422-75
 ;;9002226.02101,"619,43353-0422-75 ",.02)
 ;;43353-0422-75
 ;;9002226.02101,"619,43353-0503-30 ",.01)
 ;;43353-0503-30
 ;;9002226.02101,"619,43353-0503-30 ",.02)
 ;;43353-0503-30
 ;;9002226.02101,"619,43353-0503-32 ",.01)
 ;;43353-0503-32
 ;;9002226.02101,"619,43353-0503-32 ",.02)
 ;;43353-0503-32
 ;;9002226.02101,"619,43353-0503-40 ",.01)
 ;;43353-0503-40
 ;;9002226.02101,"619,43353-0503-40 ",.02)
 ;;43353-0503-40
 ;;9002226.02101,"619,43353-0503-45 ",.01)
 ;;43353-0503-45
 ;;9002226.02101,"619,43353-0503-45 ",.02)
 ;;43353-0503-45
 ;;9002226.02101,"619,43353-0503-46 ",.01)
 ;;43353-0503-46
 ;;9002226.02101,"619,43353-0503-46 ",.02)
 ;;43353-0503-46
 ;;9002226.02101,"619,43353-0503-53 ",.01)
 ;;43353-0503-53
 ;;9002226.02101,"619,43353-0503-53 ",.02)
 ;;43353-0503-53
 ;;9002226.02101,"619,43353-0503-54 ",.01)
 ;;43353-0503-54
 ;;9002226.02101,"619,43353-0503-54 ",.02)
 ;;43353-0503-54
 ;;9002226.02101,"619,43353-0503-60 ",.01)
 ;;43353-0503-60
 ;;9002226.02101,"619,43353-0503-60 ",.02)
 ;;43353-0503-60
 ;;9002226.02101,"619,43353-0503-70 ",.01)
 ;;43353-0503-70
 ;;9002226.02101,"619,43353-0503-70 ",.02)
 ;;43353-0503-70
 ;;9002226.02101,"619,43353-0503-72 ",.01)
 ;;43353-0503-72
 ;;9002226.02101,"619,43353-0503-72 ",.02)
 ;;43353-0503-72
 ;;9002226.02101,"619,43353-0503-75 ",.01)
 ;;43353-0503-75
 ;;9002226.02101,"619,43353-0503-75 ",.02)
 ;;43353-0503-75
 ;;9002226.02101,"619,43353-0503-80 ",.01)
 ;;43353-0503-80
 ;;9002226.02101,"619,43353-0503-80 ",.02)
 ;;43353-0503-80
 ;;9002226.02101,"619,43353-0503-90 ",.01)
 ;;43353-0503-90
 ;;9002226.02101,"619,43353-0503-90 ",.02)
 ;;43353-0503-90
 ;;9002226.02101,"619,43353-0721-53 ",.01)
 ;;43353-0721-53
 ;;9002226.02101,"619,43353-0721-53 ",.02)
 ;;43353-0721-53
 ;;9002226.02101,"619,43353-0721-60 ",.01)
 ;;43353-0721-60
 ;;9002226.02101,"619,43353-0721-60 ",.02)
 ;;43353-0721-60
 ;;9002226.02101,"619,43353-0721-70 ",.01)
 ;;43353-0721-70
 ;;9002226.02101,"619,43353-0721-70 ",.02)
 ;;43353-0721-70
 ;;9002226.02101,"619,43353-0734-10 ",.01)
 ;;43353-0734-10
 ;;9002226.02101,"619,43353-0734-10 ",.02)
 ;;43353-0734-10
 ;;9002226.02101,"619,43353-0734-15 ",.01)
 ;;43353-0734-15
 ;;9002226.02101,"619,43353-0734-15 ",.02)
 ;;43353-0734-15
 ;;9002226.02101,"619,43353-0734-20 ",.01)
 ;;43353-0734-20
 ;;9002226.02101,"619,43353-0734-20 ",.02)
 ;;43353-0734-20
 ;;9002226.02101,"619,43353-0734-24 ",.01)
 ;;43353-0734-24
 ;;9002226.02101,"619,43353-0734-24 ",.02)
 ;;43353-0734-24
 ;;9002226.02101,"619,43353-0734-28 ",.01)
 ;;43353-0734-28
 ;;9002226.02101,"619,43353-0734-28 ",.02)
 ;;43353-0734-28
 ;;9002226.02101,"619,43353-0734-30 ",.01)
 ;;43353-0734-30
 ;;9002226.02101,"619,43353-0734-30 ",.02)
 ;;43353-0734-30
 ;;9002226.02101,"619,43353-0734-40 ",.01)
 ;;43353-0734-40
 ;;9002226.02101,"619,43353-0734-40 ",.02)
 ;;43353-0734-40
 ;;9002226.02101,"619,43353-0734-45 ",.01)
 ;;43353-0734-45
 ;;9002226.02101,"619,43353-0734-45 ",.02)
 ;;43353-0734-45
 ;;9002226.02101,"619,43353-0734-46 ",.01)
 ;;43353-0734-46
 ;;9002226.02101,"619,43353-0734-46 ",.02)
 ;;43353-0734-46
 ;;9002226.02101,"619,43353-0734-50 ",.01)
 ;;43353-0734-50
 ;;9002226.02101,"619,43353-0734-50 ",.02)
 ;;43353-0734-50
 ;;9002226.02101,"619,43353-0734-53 ",.01)
 ;;43353-0734-53
 ;;9002226.02101,"619,43353-0734-53 ",.02)
 ;;43353-0734-53
 ;;9002226.02101,"619,43353-0734-54 ",.01)
 ;;43353-0734-54
 ;;9002226.02101,"619,43353-0734-54 ",.02)
 ;;43353-0734-54
 ;;9002226.02101,"619,43353-0734-55 ",.01)
 ;;43353-0734-55
 ;;9002226.02101,"619,43353-0734-55 ",.02)
 ;;43353-0734-55
 ;;9002226.02101,"619,43353-0734-57 ",.01)
 ;;43353-0734-57
 ;;9002226.02101,"619,43353-0734-57 ",.02)
 ;;43353-0734-57
 ;;9002226.02101,"619,43353-0734-60 ",.01)
 ;;43353-0734-60
 ;;9002226.02101,"619,43353-0734-60 ",.02)
 ;;43353-0734-60
 ;;9002226.02101,"619,43353-0734-67 ",.01)
 ;;43353-0734-67
 ;;9002226.02101,"619,43353-0734-67 ",.02)
 ;;43353-0734-67
 ;;9002226.02101,"619,43353-0734-70 ",.01)
 ;;43353-0734-70
 ;;9002226.02101,"619,43353-0734-70 ",.02)
 ;;43353-0734-70
 ;;9002226.02101,"619,43353-0734-72 ",.01)
 ;;43353-0734-72
 ;;9002226.02101,"619,43353-0734-72 ",.02)
 ;;43353-0734-72
 ;;9002226.02101,"619,43353-0734-75 ",.01)
 ;;43353-0734-75
 ;;9002226.02101,"619,43353-0734-75 ",.02)
 ;;43353-0734-75
 ;;9002226.02101,"619,43353-0734-80 ",.01)
 ;;43353-0734-80
 ;;9002226.02101,"619,43353-0734-80 ",.02)
 ;;43353-0734-80
 ;;9002226.02101,"619,43353-0734-90 ",.01)
 ;;43353-0734-90
 ;;9002226.02101,"619,43353-0734-90 ",.02)
 ;;43353-0734-90
 ;;9002226.02101,"619,43376-0210-10 ",.01)
 ;;43376-0210-10
 ;;9002226.02101,"619,43376-0210-10 ",.02)
 ;;43376-0210-10
 ;;9002226.02101,"619,43376-0215-10 ",.01)
 ;;43376-0215-10
 ;;9002226.02101,"619,43376-0215-10 ",.02)
 ;;43376-0215-10
 ;;9002226.02101,"619,43376-0220-10 ",.01)
 ;;43376-0220-10
 ;;9002226.02101,"619,43376-0220-10 ",.02)
 ;;43376-0220-10
 ;;9002226.02101,"619,43376-0230-10 ",.01)
 ;;43376-0230-10
 ;;9002226.02101,"619,43376-0230-10 ",.02)
 ;;43376-0230-10
 ;;9002226.02101,"619,43376-0240-10 ",.01)
 ;;43376-0240-10
 ;;9002226.02101,"619,43376-0240-10 ",.02)
 ;;43376-0240-10
 ;;9002226.02101,"619,43376-0250-10 ",.01)
 ;;43376-0250-10
 ;;9002226.02101,"619,43376-0250-10 ",.02)
 ;;43376-0250-10
 ;;9002226.02101,"619,43376-0310-60 ",.01)
 ;;43376-0310-60
 ;;9002226.02101,"619,43376-0310-60 ",.02)
 ;;43376-0310-60
 ;;9002226.02101,"619,43376-0315-60 ",.01)
 ;;43376-0315-60
 ;;9002226.02101,"619,43376-0315-60 ",.02)
 ;;43376-0315-60
 ;;9002226.02101,"619,43376-0320-60 ",.01)
 ;;43376-0320-60
 ;;9002226.02101,"619,43376-0320-60 ",.02)
 ;;43376-0320-60
 ;;9002226.02101,"619,43376-0330-60 ",.01)
 ;;43376-0330-60
 ;;9002226.02101,"619,43376-0330-60 ",.02)
 ;;43376-0330-60
 ;;9002226.02101,"619,43376-0340-60 ",.01)
 ;;43376-0340-60
 ;;9002226.02101,"619,43376-0340-60 ",.02)
 ;;43376-0340-60
 ;;9002226.02101,"619,43376-0350-60 ",.01)
 ;;43376-0350-60