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

BGP82Z24.m

Go to the documentation of this file.
BGP82Z24 ; 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,00574-7224-06 ",.02)
 ;;00574-7224-06
 ;;9002226.02101,"619,00591-0349-01 ",.01)
 ;;00591-0349-01
 ;;9002226.02101,"619,00591-0349-01 ",.02)
 ;;00591-0349-01
 ;;9002226.02101,"619,00591-0349-05 ",.01)
 ;;00591-0349-05
 ;;9002226.02101,"619,00591-0349-05 ",.02)
 ;;00591-0349-05
 ;;9002226.02101,"619,00591-0385-01 ",.01)
 ;;00591-0385-01
 ;;9002226.02101,"619,00591-0385-01 ",.02)
 ;;00591-0385-01
 ;;9002226.02101,"619,00591-0385-05 ",.01)
 ;;00591-0385-05
 ;;9002226.02101,"619,00591-0385-05 ",.02)
 ;;00591-0385-05
 ;;9002226.02101,"619,00591-0387-01 ",.01)
 ;;00591-0387-01
 ;;9002226.02101,"619,00591-0387-01 ",.02)
 ;;00591-0387-01
 ;;9002226.02101,"619,00591-0387-05 ",.01)
 ;;00591-0387-05
 ;;9002226.02101,"619,00591-0387-05 ",.02)
 ;;00591-0387-05
 ;;9002226.02101,"619,00591-0388-01 ",.01)
 ;;00591-0388-01
 ;;9002226.02101,"619,00591-0388-01 ",.02)
 ;;00591-0388-01
 ;;9002226.02101,"619,00591-0395-01 ",.01)
 ;;00591-0395-01
 ;;9002226.02101,"619,00591-0395-01 ",.02)
 ;;00591-0395-01
 ;;9002226.02101,"619,00591-0737-01 ",.01)
 ;;00591-0737-01
 ;;9002226.02101,"619,00591-0737-01 ",.02)
 ;;00591-0737-01
 ;;9002226.02101,"619,00591-0737-05 ",.01)
 ;;00591-0737-05
 ;;9002226.02101,"619,00591-0737-05 ",.02)
 ;;00591-0737-05
 ;;9002226.02101,"619,00591-0749-01 ",.01)
 ;;00591-0749-01
 ;;9002226.02101,"619,00591-0749-01 ",.02)
 ;;00591-0749-01
 ;;9002226.02101,"619,00591-0749-05 ",.01)
 ;;00591-0749-05
 ;;9002226.02101,"619,00591-0749-05 ",.02)
 ;;00591-0749-05
 ;;9002226.02101,"619,00591-0824-01 ",.01)
 ;;00591-0824-01
 ;;9002226.02101,"619,00591-0824-01 ",.02)
 ;;00591-0824-01
 ;;9002226.02101,"619,00591-0825-01 ",.01)
 ;;00591-0825-01
 ;;9002226.02101,"619,00591-0825-01 ",.02)
 ;;00591-0825-01
 ;;9002226.02101,"619,00591-0932-01 ",.01)
 ;;00591-0932-01
 ;;9002226.02101,"619,00591-0932-01 ",.02)
 ;;00591-0932-01
 ;;9002226.02101,"619,00591-0933-01 ",.01)
 ;;00591-0933-01
 ;;9002226.02101,"619,00591-0933-01 ",.02)
 ;;00591-0933-01
 ;;9002226.02101,"619,00591-2171-01 ",.01)
 ;;00591-2171-01
 ;;9002226.02101,"619,00591-2171-01 ",.02)
 ;;00591-2171-01
 ;;9002226.02101,"619,00591-2172-01 ",.01)
 ;;00591-2172-01
 ;;9002226.02101,"619,00591-2172-01 ",.02)
 ;;00591-2172-01
 ;;9002226.02101,"619,00591-2172-05 ",.01)
 ;;00591-2172-05
 ;;9002226.02101,"619,00591-2172-05 ",.02)
 ;;00591-2172-05
 ;;9002226.02101,"619,00591-2174-01 ",.01)
 ;;00591-2174-01
 ;;9002226.02101,"619,00591-2174-01 ",.02)
 ;;00591-2174-01
 ;;9002226.02101,"619,00591-2174-05 ",.01)
 ;;00591-2174-05
 ;;9002226.02101,"619,00591-2174-05 ",.02)
 ;;00591-2174-05
 ;;9002226.02101,"619,00591-2175-01 ",.01)
 ;;00591-2175-01
 ;;9002226.02101,"619,00591-2175-01 ",.02)
 ;;00591-2175-01
 ;;9002226.02101,"619,00591-2175-05 ",.01)
 ;;00591-2175-05
 ;;9002226.02101,"619,00591-2175-05 ",.02)
 ;;00591-2175-05
 ;;9002226.02101,"619,00591-2176-01 ",.01)
 ;;00591-2176-01
 ;;9002226.02101,"619,00591-2176-01 ",.02)
 ;;00591-2176-01
 ;;9002226.02101,"619,00591-2176-05 ",.01)
 ;;00591-2176-05
 ;;9002226.02101,"619,00591-2176-05 ",.02)
 ;;00591-2176-05
 ;;9002226.02101,"619,00591-2605-01 ",.01)
 ;;00591-2605-01
 ;;9002226.02101,"619,00591-2605-01 ",.02)
 ;;00591-2605-01
 ;;9002226.02101,"619,00591-2605-05 ",.01)
 ;;00591-2605-05
 ;;9002226.02101,"619,00591-2605-05 ",.02)
 ;;00591-2605-05
 ;;9002226.02101,"619,00591-2607-01 ",.01)
 ;;00591-2607-01
 ;;9002226.02101,"619,00591-2607-01 ",.02)
 ;;00591-2607-01
 ;;9002226.02101,"619,00591-2609-01 ",.01)
 ;;00591-2609-01
 ;;9002226.02101,"619,00591-2609-01 ",.02)
 ;;00591-2609-01
 ;;9002226.02101,"619,00591-2609-05 ",.01)
 ;;00591-2609-05
 ;;9002226.02101,"619,00591-2609-05 ",.02)
 ;;00591-2609-05
 ;;9002226.02101,"619,00591-2610-01 ",.01)
 ;;00591-2610-01
 ;;9002226.02101,"619,00591-2610-01 ",.02)
 ;;00591-2610-01
 ;;9002226.02101,"619,00591-2610-05 ",.01)
 ;;00591-2610-05
 ;;9002226.02101,"619,00591-2610-05 ",.02)
 ;;00591-2610-05
 ;;9002226.02101,"619,00591-2611-01 ",.01)
 ;;00591-2611-01
 ;;9002226.02101,"619,00591-2611-01 ",.02)
 ;;00591-2611-01
 ;;9002226.02101,"619,00591-2611-05 ",.01)
 ;;00591-2611-05
 ;;9002226.02101,"619,00591-2611-05 ",.02)
 ;;00591-2611-05
 ;;9002226.02101,"619,00591-2612-01 ",.01)
 ;;00591-2612-01
 ;;9002226.02101,"619,00591-2612-01 ",.02)
 ;;00591-2612-01
 ;;9002226.02101,"619,00591-2612-05 ",.01)
 ;;00591-2612-05
 ;;9002226.02101,"619,00591-2612-05 ",.02)
 ;;00591-2612-05
 ;;9002226.02101,"619,00591-2641-01 ",.01)
 ;;00591-2641-01
 ;;9002226.02101,"619,00591-2641-01 ",.02)
 ;;00591-2641-01
 ;;9002226.02101,"619,00591-2693-01 ",.01)
 ;;00591-2693-01
 ;;9002226.02101,"619,00591-2693-01 ",.02)
 ;;00591-2693-01
 ;;9002226.02101,"619,00591-2708-01 ",.01)
 ;;00591-2708-01
 ;;9002226.02101,"619,00591-2708-01 ",.02)
 ;;00591-2708-01
 ;;9002226.02101,"619,00591-3198-54 ",.01)
 ;;00591-3198-54
 ;;9002226.02101,"619,00591-3198-54 ",.02)
 ;;00591-3198-54
 ;;9002226.02101,"619,00591-3198-72 ",.01)
 ;;00591-3198-72
 ;;9002226.02101,"619,00591-3198-72 ",.02)
 ;;00591-3198-72
 ;;9002226.02101,"619,00591-3202-01 ",.01)
 ;;00591-3202-01
 ;;9002226.02101,"619,00591-3202-01 ",.02)
 ;;00591-3202-01
 ;;9002226.02101,"619,00591-3202-05 ",.01)
 ;;00591-3202-05
 ;;9002226.02101,"619,00591-3202-05 ",.02)
 ;;00591-3202-05
 ;;9002226.02101,"619,00591-3212-54 ",.01)
 ;;00591-3212-54
 ;;9002226.02101,"619,00591-3212-54 ",.02)
 ;;00591-3212-54
 ;;9002226.02101,"619,00591-3212-72 ",.01)
 ;;00591-3212-72
 ;;9002226.02101,"619,00591-3212-72 ",.02)
 ;;00591-3212-72
 ;;9002226.02101,"619,00591-3213-54 ",.01)
 ;;00591-3213-54
 ;;9002226.02101,"619,00591-3213-54 ",.02)
 ;;00591-3213-54
 ;;9002226.02101,"619,00591-3213-72 ",.01)
 ;;00591-3213-72
 ;;9002226.02101,"619,00591-3213-72 ",.02)
 ;;00591-3213-72
 ;;9002226.02101,"619,00591-3214-54 ",.01)
 ;;00591-3214-54
 ;;9002226.02101,"619,00591-3214-54 ",.02)
 ;;00591-3214-54
 ;;9002226.02101,"619,00591-3214-72 ",.01)
 ;;00591-3214-72
 ;;9002226.02101,"619,00591-3214-72 ",.02)
 ;;00591-3214-72
 ;;9002226.02101,"619,00591-3220-01 ",.01)
 ;;00591-3220-01
 ;;9002226.02101,"619,00591-3220-01 ",.02)
 ;;00591-3220-01
 ;;9002226.02101,"619,00591-3449-01 ",.01)
 ;;00591-3449-01
 ;;9002226.02101,"619,00591-3449-01 ",.02)
 ;;00591-3449-01
 ;;9002226.02101,"619,00591-3450-01 ",.01)
 ;;00591-3450-01
 ;;9002226.02101,"619,00591-3450-01 ",.02)
 ;;00591-3450-01
 ;;9002226.02101,"619,00591-3451-01 ",.01)
 ;;00591-3451-01
 ;;9002226.02101,"619,00591-3451-01 ",.02)
 ;;00591-3451-01
 ;;9002226.02101,"619,00591-3452-01 ",.01)
 ;;00591-3452-01
 ;;9002226.02101,"619,00591-3452-01 ",.02)
 ;;00591-3452-01
 ;;9002226.02101,"619,00591-3453-01 ",.01)
 ;;00591-3453-01
 ;;9002226.02101,"619,00591-3453-01 ",.02)
 ;;00591-3453-01
 ;;9002226.02101,"619,00591-3546-01 ",.01)
 ;;00591-3546-01
 ;;9002226.02101,"619,00591-3546-01 ",.02)
 ;;00591-3546-01
 ;;9002226.02101,"619,00591-3546-05 ",.01)
 ;;00591-3546-05
 ;;9002226.02101,"619,00591-3546-05 ",.02)
 ;;00591-3546-05
 ;;9002226.02101,"619,00591-3551-01 ",.01)
 ;;00591-3551-01
 ;;9002226.02101,"619,00591-3551-01 ",.02)
 ;;00591-3551-01
 ;;9002226.02101,"619,00591-3576-01 ",.01)
 ;;00591-3576-01
 ;;9002226.02101,"619,00591-3576-01 ",.02)
 ;;00591-3576-01
 ;;9002226.02101,"619,00591-3600-54 ",.01)
 ;;00591-3600-54
 ;;9002226.02101,"619,00591-3600-54 ",.02)
 ;;00591-3600-54
 ;;9002226.02101,"619,00591-3600-72 ",.01)
 ;;00591-3600-72
 ;;9002226.02101,"619,00591-3600-72 ",.02)
 ;;00591-3600-72
 ;;9002226.02101,"619,00591-3601-54 ",.01)
 ;;00591-3601-54
 ;;9002226.02101,"619,00591-3601-54 ",.02)
 ;;00591-3601-54
 ;;9002226.02101,"619,00591-3601-72 ",.01)
 ;;00591-3601-72
 ;;9002226.02101,"619,00591-3601-72 ",.02)
 ;;00591-3601-72
 ;;9002226.02101,"619,00591-3602-54 ",.01)
 ;;00591-3602-54
 ;;9002226.02101,"619,00591-3602-54 ",.02)
 ;;00591-3602-54
 ;;9002226.02101,"619,00591-3602-72 ",.01)
 ;;00591-3602-72
 ;;9002226.02101,"619,00591-3602-72 ",.02)
 ;;00591-3602-72
 ;;9002226.02101,"619,00591-3603-54 ",.01)
 ;;00591-3603-54
 ;;9002226.02101,"619,00591-3603-54 ",.02)
 ;;00591-3603-54
 ;;9002226.02101,"619,00591-3603-72 ",.01)
 ;;00591-3603-72
 ;;9002226.02101,"619,00591-3603-72 ",.02)
 ;;00591-3603-72
 ;;9002226.02101,"619,00591-3629-01 ",.01)
 ;;00591-3629-01
 ;;9002226.02101,"619,00591-3629-01 ",.02)
 ;;00591-3629-01
 ;;9002226.02101,"619,00591-3630-01 ",.01)
 ;;00591-3630-01
 ;;9002226.02101,"619,00591-3630-01 ",.02)
 ;;00591-3630-01
 ;;9002226.02101,"619,00591-3631-01 ",.01)
 ;;00591-3631-01
 ;;9002226.02101,"619,00591-3631-01 ",.02)
 ;;00591-3631-01
 ;;9002226.02101,"619,00591-3739-01 ",.01)
 ;;00591-3739-01
 ;;9002226.02101,"619,00591-3739-01 ",.02)
 ;;00591-3739-01
 ;;9002226.02101,"619,00603-1020-58 ",.01)
 ;;00603-1020-58
 ;;9002226.02101,"619,00603-1020-58 ",.02)
 ;;00603-1020-58
 ;;9002226.02101,"619,00603-1585-54 ",.01)
 ;;00603-1585-54
 ;;9002226.02101,"619,00603-1585-54 ",.02)
 ;;00603-1585-54
 ;;9002226.02101,"619,00603-1585-58 ",.01)
 ;;00603-1585-58
 ;;9002226.02101,"619,00603-1585-58 ",.02)
 ;;00603-1585-58
 ;;9002226.02101,"619,00603-1588-54 ",.01)
 ;;00603-1588-54
 ;;9002226.02101,"619,00603-1588-54 ",.02)
 ;;00603-1588-54
 ;;9002226.02101,"619,00603-1588-58 ",.01)
 ;;00603-1588-58
 ;;9002226.02101,"619,00603-1588-58 ",.02)
 ;;00603-1588-58
 ;;9002226.02101,"619,00603-2337-21 ",.01)
 ;;00603-2337-21
 ;;9002226.02101,"619,00603-2337-21 ",.02)
 ;;00603-2337-21
 ;;9002226.02101,"619,00603-2338-02 ",.01)
 ;;00603-2338-02
 ;;9002226.02101,"619,00603-2338-02 ",.02)
 ;;00603-2338-02
 ;;9002226.02101,"619,00603-2338-04 ",.01)
 ;;00603-2338-04
 ;;9002226.02101,"619,00603-2338-04 ",.02)
 ;;00603-2338-04
 ;;9002226.02101,"619,00603-2338-16 ",.01)
 ;;00603-2338-16
 ;;9002226.02101,"619,00603-2338-16 ",.02)
 ;;00603-2338-16
 ;;9002226.02101,"619,00603-2338-20 ",.01)
 ;;00603-2338-20
 ;;9002226.02101,"619,00603-2338-20 ",.02)
 ;;00603-2338-20
 ;;9002226.02101,"619,00603-2338-21 ",.01)
 ;;00603-2338-21
 ;;9002226.02101,"619,00603-2338-21 ",.02)
 ;;00603-2338-21
 ;;9002226.02101,"619,00603-2338-22 ",.01)
 ;;00603-2338-22
 ;;9002226.02101,"619,00603-2338-22 ",.02)
 ;;00603-2338-22
 ;;9002226.02101,"619,00603-2338-32 ",.01)
 ;;00603-2338-32
 ;;9002226.02101,"619,00603-2338-32 ",.02)
 ;;00603-2338-32
 ;;9002226.02101,"619,00603-2339-21 ",.01)
 ;;00603-2339-21
 ;;9002226.02101,"619,00603-2339-21 ",.02)
 ;;00603-2339-21
 ;;9002226.02101,"619,00603-2339-28 ",.01)
 ;;00603-2339-28
 ;;9002226.02101,"619,00603-2339-28 ",.02)
 ;;00603-2339-28
 ;;9002226.02101,"619,00603-2553-21 ",.01)
 ;;00603-2553-21
 ;;9002226.02101,"619,00603-2553-21 ",.02)
 ;;00603-2553-21
 ;;9002226.02101,"619,00603-3584-21 ",.01)
 ;;00603-3584-21
 ;;9002226.02101,"619,00603-3584-21 ",.02)
 ;;00603-3584-21
 ;;9002226.02101,"619,00603-3586-21 ",.01)
 ;;00603-3586-21
 ;;9002226.02101,"619,00603-3586-21 ",.02)
 ;;00603-3586-21
 ;;9002226.02101,"619,00603-3609-21 ",.01)
 ;;00603-3609-21
 ;;9002226.02101,"619,00603-3609-21 ",.02)
 ;;00603-3609-21
 ;;9002226.02101,"619,00603-3887-02 ",.01)
 ;;00603-3887-02
 ;;9002226.02101,"619,00603-3887-02 ",.02)
 ;;00603-3887-02
 ;;9002226.02101,"619,00603-3887-04 ",.01)
 ;;00603-3887-04
 ;;9002226.02101,"619,00603-3887-04 ",.02)
 ;;00603-3887-04
 ;;9002226.02101,"619,00603-3887-12 ",.01)
 ;;00603-3887-12
 ;;9002226.02101,"619,00603-3887-12 ",.02)
 ;;00603-3887-12
 ;;9002226.02101,"619,00603-3887-20 ",.01)
 ;;00603-3887-20
 ;;9002226.02101,"619,00603-3887-20 ",.02)
 ;;00603-3887-20
 ;;9002226.02101,"619,00603-3887-21 ",.01)
 ;;00603-3887-21
 ;;9002226.02101,"619,00603-3887-21 ",.02)
 ;;00603-3887-21
 ;;9002226.02101,"619,00603-3887-22 ",.01)
 ;;00603-3887-22