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

BGP82I58.m

Go to the documentation of this file.
BGP82I58 ; 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,"1733,66336-0665-15 ",.02)
 ;;66336-0665-15
 ;;9002226.02101,"1733,66336-0665-30 ",.01)
 ;;66336-0665-30
 ;;9002226.02101,"1733,66336-0665-30 ",.02)
 ;;66336-0665-30
 ;;9002226.02101,"1733,66336-0666-30 ",.01)
 ;;66336-0666-30
 ;;9002226.02101,"1733,66336-0666-30 ",.02)
 ;;66336-0666-30
 ;;9002226.02101,"1733,66685-0302-00 ",.01)
 ;;66685-0302-00
 ;;9002226.02101,"1733,66685-0302-00 ",.02)
 ;;66685-0302-00
 ;;9002226.02101,"1733,66685-0302-02 ",.01)
 ;;66685-0302-02
 ;;9002226.02101,"1733,66685-0302-02 ",.02)
 ;;66685-0302-02
 ;;9002226.02101,"1733,66685-0303-00 ",.01)
 ;;66685-0303-00
 ;;9002226.02101,"1733,66685-0303-00 ",.02)
 ;;66685-0303-00
 ;;9002226.02101,"1733,66685-0304-00 ",.01)
 ;;66685-0304-00
 ;;9002226.02101,"1733,66685-0304-00 ",.02)
 ;;66685-0304-00
 ;;9002226.02101,"1733,66685-0304-02 ",.01)
 ;;66685-0304-02
 ;;9002226.02101,"1733,66685-0304-02 ",.02)
 ;;66685-0304-02
 ;;9002226.02101,"1733,66685-0706-04 ",.01)
 ;;66685-0706-04
 ;;9002226.02101,"1733,66685-0706-04 ",.02)
 ;;66685-0706-04
 ;;9002226.02101,"1733,67544-0062-30 ",.01)
 ;;67544-0062-30
 ;;9002226.02101,"1733,67544-0062-30 ",.02)
 ;;67544-0062-30
 ;;9002226.02101,"1733,67544-0062-60 ",.01)
 ;;67544-0062-60
 ;;9002226.02101,"1733,67544-0062-60 ",.02)
 ;;67544-0062-60
 ;;9002226.02101,"1733,67544-0062-82 ",.01)
 ;;67544-0062-82
 ;;9002226.02101,"1733,67544-0062-82 ",.02)
 ;;67544-0062-82
 ;;9002226.02101,"1733,67544-0128-15 ",.01)
 ;;67544-0128-15
 ;;9002226.02101,"1733,67544-0128-15 ",.02)
 ;;67544-0128-15
 ;;9002226.02101,"1733,67544-0128-30 ",.01)
 ;;67544-0128-30
 ;;9002226.02101,"1733,67544-0128-30 ",.02)
 ;;67544-0128-30
 ;;9002226.02101,"1733,67544-0128-45 ",.01)
 ;;67544-0128-45
 ;;9002226.02101,"1733,67544-0128-45 ",.02)
 ;;67544-0128-45
 ;;9002226.02101,"1733,67544-0128-53 ",.01)
 ;;67544-0128-53
 ;;9002226.02101,"1733,67544-0128-53 ",.02)
 ;;67544-0128-53
 ;;9002226.02101,"1733,67544-0128-60 ",.01)
 ;;67544-0128-60
 ;;9002226.02101,"1733,67544-0128-60 ",.02)
 ;;67544-0128-60
 ;;9002226.02101,"1733,67544-0134-15 ",.01)
 ;;67544-0134-15
 ;;9002226.02101,"1733,67544-0134-15 ",.02)
 ;;67544-0134-15
 ;;9002226.02101,"1733,67544-0134-30 ",.01)
 ;;67544-0134-30
 ;;9002226.02101,"1733,67544-0134-30 ",.02)
 ;;67544-0134-30
 ;;9002226.02101,"1733,67544-0134-45 ",.01)
 ;;67544-0134-45
 ;;9002226.02101,"1733,67544-0134-45 ",.02)
 ;;67544-0134-45
 ;;9002226.02101,"1733,67544-0134-60 ",.01)
 ;;67544-0134-60
 ;;9002226.02101,"1733,67544-0134-60 ",.02)
 ;;67544-0134-60
 ;;9002226.02101,"1733,67544-0134-80 ",.01)
 ;;67544-0134-80
 ;;9002226.02101,"1733,67544-0134-80 ",.02)
 ;;67544-0134-80
 ;;9002226.02101,"1733,67544-0148-15 ",.01)
 ;;67544-0148-15
 ;;9002226.02101,"1733,67544-0148-15 ",.02)
 ;;67544-0148-15
 ;;9002226.02101,"1733,67544-0148-30 ",.01)
 ;;67544-0148-30
 ;;9002226.02101,"1733,67544-0148-30 ",.02)
 ;;67544-0148-30
 ;;9002226.02101,"1733,67544-0148-45 ",.01)
 ;;67544-0148-45
 ;;9002226.02101,"1733,67544-0148-45 ",.02)
 ;;67544-0148-45
 ;;9002226.02101,"1733,67544-0148-53 ",.01)
 ;;67544-0148-53
 ;;9002226.02101,"1733,67544-0148-53 ",.02)
 ;;67544-0148-53
 ;;9002226.02101,"1733,67544-0148-60 ",.01)
 ;;67544-0148-60
 ;;9002226.02101,"1733,67544-0148-60 ",.02)
 ;;67544-0148-60
 ;;9002226.02101,"1733,67544-0148-80 ",.01)
 ;;67544-0148-80
 ;;9002226.02101,"1733,67544-0148-80 ",.02)
 ;;67544-0148-80
 ;;9002226.02101,"1733,67544-0150-45 ",.01)
 ;;67544-0150-45
 ;;9002226.02101,"1733,67544-0150-45 ",.02)
 ;;67544-0150-45
 ;;9002226.02101,"1733,67544-0150-60 ",.01)
 ;;67544-0150-60
 ;;9002226.02101,"1733,67544-0150-60 ",.02)
 ;;67544-0150-60
 ;;9002226.02101,"1733,67544-0150-73 ",.01)
 ;;67544-0150-73
 ;;9002226.02101,"1733,67544-0150-73 ",.02)
 ;;67544-0150-73
 ;;9002226.02101,"1733,67544-0150-92 ",.01)
 ;;67544-0150-92
 ;;9002226.02101,"1733,67544-0150-92 ",.02)
 ;;67544-0150-92
 ;;9002226.02101,"1733,67544-0159-15 ",.01)
 ;;67544-0159-15
 ;;9002226.02101,"1733,67544-0159-15 ",.02)
 ;;67544-0159-15
 ;;9002226.02101,"1733,67544-0159-30 ",.01)
 ;;67544-0159-30
 ;;9002226.02101,"1733,67544-0159-30 ",.02)
 ;;67544-0159-30
 ;;9002226.02101,"1733,67544-0159-45 ",.01)
 ;;67544-0159-45
 ;;9002226.02101,"1733,67544-0159-45 ",.02)
 ;;67544-0159-45
 ;;9002226.02101,"1733,67544-0159-58 ",.01)
 ;;67544-0159-58
 ;;9002226.02101,"1733,67544-0159-58 ",.02)
 ;;67544-0159-58
 ;;9002226.02101,"1733,67544-0159-60 ",.01)
 ;;67544-0159-60
 ;;9002226.02101,"1733,67544-0159-60 ",.02)
 ;;67544-0159-60
 ;;9002226.02101,"1733,67544-0159-80 ",.01)
 ;;67544-0159-80
 ;;9002226.02101,"1733,67544-0159-80 ",.02)
 ;;67544-0159-80
 ;;9002226.02101,"1733,67544-0160-60 ",.01)
 ;;67544-0160-60
 ;;9002226.02101,"1733,67544-0160-60 ",.02)
 ;;67544-0160-60
 ;;9002226.02101,"1733,67544-0160-80 ",.01)
 ;;67544-0160-80
 ;;9002226.02101,"1733,67544-0160-80 ",.02)
 ;;67544-0160-80
 ;;9002226.02101,"1733,67544-0165-80 ",.01)
 ;;67544-0165-80
 ;;9002226.02101,"1733,67544-0165-80 ",.02)
 ;;67544-0165-80
 ;;9002226.02101,"1733,67544-0173-30 ",.01)
 ;;67544-0173-30
 ;;9002226.02101,"1733,67544-0173-30 ",.02)
 ;;67544-0173-30
 ;;9002226.02101,"1733,67544-0173-45 ",.01)
 ;;67544-0173-45
 ;;9002226.02101,"1733,67544-0173-45 ",.02)
 ;;67544-0173-45
 ;;9002226.02101,"1733,67544-0173-53 ",.01)
 ;;67544-0173-53
 ;;9002226.02101,"1733,67544-0173-53 ",.02)
 ;;67544-0173-53
 ;;9002226.02101,"1733,67544-0173-60 ",.01)
 ;;67544-0173-60
 ;;9002226.02101,"1733,67544-0173-60 ",.02)
 ;;67544-0173-60
 ;;9002226.02101,"1733,67544-0174-30 ",.01)
 ;;67544-0174-30
 ;;9002226.02101,"1733,67544-0174-30 ",.02)
 ;;67544-0174-30
 ;;9002226.02101,"1733,67544-0174-45 ",.01)
 ;;67544-0174-45
 ;;9002226.02101,"1733,67544-0174-45 ",.02)
 ;;67544-0174-45
 ;;9002226.02101,"1733,67544-0174-60 ",.01)
 ;;67544-0174-60
 ;;9002226.02101,"1733,67544-0174-60 ",.02)
 ;;67544-0174-60
 ;;9002226.02101,"1733,67544-0174-80 ",.01)
 ;;67544-0174-80
 ;;9002226.02101,"1733,67544-0174-80 ",.02)
 ;;67544-0174-80
 ;;9002226.02101,"1733,67544-0177-45 ",.01)
 ;;67544-0177-45
 ;;9002226.02101,"1733,67544-0177-45 ",.02)
 ;;67544-0177-45
 ;;9002226.02101,"1733,67544-0192-30 ",.01)
 ;;67544-0192-30
 ;;9002226.02101,"1733,67544-0192-30 ",.02)
 ;;67544-0192-30
 ;;9002226.02101,"1733,67544-0192-45 ",.01)
 ;;67544-0192-45
 ;;9002226.02101,"1733,67544-0192-45 ",.02)
 ;;67544-0192-45
 ;;9002226.02101,"1733,67544-0192-53 ",.01)
 ;;67544-0192-53
 ;;9002226.02101,"1733,67544-0192-53 ",.02)
 ;;67544-0192-53
 ;;9002226.02101,"1733,67544-0192-60 ",.01)
 ;;67544-0192-60
 ;;9002226.02101,"1733,67544-0192-60 ",.02)
 ;;67544-0192-60
 ;;9002226.02101,"1733,67544-0212-45 ",.01)
 ;;67544-0212-45
 ;;9002226.02101,"1733,67544-0212-45 ",.02)
 ;;67544-0212-45
 ;;9002226.02101,"1733,67544-0212-53 ",.01)
 ;;67544-0212-53
 ;;9002226.02101,"1733,67544-0212-53 ",.02)
 ;;67544-0212-53
 ;;9002226.02101,"1733,67544-0218-60 ",.01)
 ;;67544-0218-60
 ;;9002226.02101,"1733,67544-0218-60 ",.02)
 ;;67544-0218-60
 ;;9002226.02101,"1733,67544-0218-82 ",.01)
 ;;67544-0218-82
 ;;9002226.02101,"1733,67544-0218-82 ",.02)
 ;;67544-0218-82
 ;;9002226.02101,"1733,67544-0219-15 ",.01)
 ;;67544-0219-15
 ;;9002226.02101,"1733,67544-0219-15 ",.02)
 ;;67544-0219-15
 ;;9002226.02101,"1733,67544-0219-30 ",.01)
 ;;67544-0219-30
 ;;9002226.02101,"1733,67544-0219-30 ",.02)
 ;;67544-0219-30
 ;;9002226.02101,"1733,67544-0219-45 ",.01)
 ;;67544-0219-45
 ;;9002226.02101,"1733,67544-0219-45 ",.02)
 ;;67544-0219-45
 ;;9002226.02101,"1733,67544-0219-60 ",.01)
 ;;67544-0219-60
 ;;9002226.02101,"1733,67544-0219-60 ",.02)
 ;;67544-0219-60
 ;;9002226.02101,"1733,67544-0234-32 ",.01)
 ;;67544-0234-32
 ;;9002226.02101,"1733,67544-0234-32 ",.02)
 ;;67544-0234-32
 ;;9002226.02101,"1733,67544-0234-45 ",.01)
 ;;67544-0234-45
 ;;9002226.02101,"1733,67544-0234-45 ",.02)
 ;;67544-0234-45
 ;;9002226.02101,"1733,67544-0234-53 ",.01)
 ;;67544-0234-53
 ;;9002226.02101,"1733,67544-0234-53 ",.02)
 ;;67544-0234-53
 ;;9002226.02101,"1733,67544-0250-60 ",.01)
 ;;67544-0250-60
 ;;9002226.02101,"1733,67544-0250-60 ",.02)
 ;;67544-0250-60
 ;;9002226.02101,"1733,67544-0250-80 ",.01)
 ;;67544-0250-80
 ;;9002226.02101,"1733,67544-0250-80 ",.02)
 ;;67544-0250-80
 ;;9002226.02101,"1733,67544-0276-60 ",.01)
 ;;67544-0276-60
 ;;9002226.02101,"1733,67544-0276-60 ",.02)
 ;;67544-0276-60
 ;;9002226.02101,"1733,67544-0276-80 ",.01)
 ;;67544-0276-80
 ;;9002226.02101,"1733,67544-0276-80 ",.02)
 ;;67544-0276-80
 ;;9002226.02101,"1733,67544-0306-30 ",.01)
 ;;67544-0306-30
 ;;9002226.02101,"1733,67544-0306-30 ",.02)
 ;;67544-0306-30
 ;;9002226.02101,"1733,67544-0306-45 ",.01)
 ;;67544-0306-45
 ;;9002226.02101,"1733,67544-0306-45 ",.02)
 ;;67544-0306-45
 ;;9002226.02101,"1733,67544-0306-60 ",.01)
 ;;67544-0306-60
 ;;9002226.02101,"1733,67544-0306-60 ",.02)
 ;;67544-0306-60
 ;;9002226.02101,"1733,67544-0311-30 ",.01)
 ;;67544-0311-30
 ;;9002226.02101,"1733,67544-0311-30 ",.02)
 ;;67544-0311-30
 ;;9002226.02101,"1733,67544-0311-45 ",.01)
 ;;67544-0311-45
 ;;9002226.02101,"1733,67544-0311-45 ",.02)
 ;;67544-0311-45
 ;;9002226.02101,"1733,67544-0321-15 ",.01)
 ;;67544-0321-15
 ;;9002226.02101,"1733,67544-0321-15 ",.02)
 ;;67544-0321-15
 ;;9002226.02101,"1733,67544-0321-30 ",.01)
 ;;67544-0321-30
 ;;9002226.02101,"1733,67544-0321-30 ",.02)
 ;;67544-0321-30
 ;;9002226.02101,"1733,67544-0321-60 ",.01)
 ;;67544-0321-60
 ;;9002226.02101,"1733,67544-0321-60 ",.02)
 ;;67544-0321-60
 ;;9002226.02101,"1733,67544-0322-30 ",.01)
 ;;67544-0322-30
 ;;9002226.02101,"1733,67544-0322-30 ",.02)
 ;;67544-0322-30
 ;;9002226.02101,"1733,67544-0322-45 ",.01)
 ;;67544-0322-45
 ;;9002226.02101,"1733,67544-0322-45 ",.02)
 ;;67544-0322-45
 ;;9002226.02101,"1733,67544-0322-53 ",.01)
 ;;67544-0322-53
 ;;9002226.02101,"1733,67544-0322-53 ",.02)
 ;;67544-0322-53
 ;;9002226.02101,"1733,67544-0322-60 ",.01)
 ;;67544-0322-60
 ;;9002226.02101,"1733,67544-0322-60 ",.02)
 ;;67544-0322-60
 ;;9002226.02101,"1733,67544-0322-73 ",.01)
 ;;67544-0322-73
 ;;9002226.02101,"1733,67544-0322-73 ",.02)
 ;;67544-0322-73
 ;;9002226.02101,"1733,67544-0322-80 ",.01)
 ;;67544-0322-80
 ;;9002226.02101,"1733,67544-0322-80 ",.02)
 ;;67544-0322-80
 ;;9002226.02101,"1733,67544-0322-92 ",.01)
 ;;67544-0322-92
 ;;9002226.02101,"1733,67544-0322-92 ",.02)
 ;;67544-0322-92
 ;;9002226.02101,"1733,67544-0322-94 ",.01)
 ;;67544-0322-94
 ;;9002226.02101,"1733,67544-0322-94 ",.02)
 ;;67544-0322-94
 ;;9002226.02101,"1733,67544-0382-30 ",.01)
 ;;67544-0382-30
 ;;9002226.02101,"1733,67544-0382-30 ",.02)
 ;;67544-0382-30
 ;;9002226.02101,"1733,67544-0382-60 ",.01)
 ;;67544-0382-60
 ;;9002226.02101,"1733,67544-0382-60 ",.02)
 ;;67544-0382-60
 ;;9002226.02101,"1733,67544-0400-45 ",.01)
 ;;67544-0400-45
 ;;9002226.02101,"1733,67544-0400-45 ",.02)
 ;;67544-0400-45
 ;;9002226.02101,"1733,67544-0403-30 ",.01)
 ;;67544-0403-30
 ;;9002226.02101,"1733,67544-0403-30 ",.02)
 ;;67544-0403-30
 ;;9002226.02101,"1733,67544-0403-79 ",.01)
 ;;67544-0403-79
 ;;9002226.02101,"1733,67544-0403-79 ",.02)
 ;;67544-0403-79
 ;;9002226.02101,"1733,67544-0404-30 ",.01)
 ;;67544-0404-30
 ;;9002226.02101,"1733,67544-0404-30 ",.02)
 ;;67544-0404-30
 ;;9002226.02101,"1733,67544-0404-79 ",.01)
 ;;67544-0404-79
 ;;9002226.02101,"1733,67544-0404-79 ",.02)
 ;;67544-0404-79
 ;;9002226.02101,"1733,67544-0418-60 ",.01)
 ;;67544-0418-60
 ;;9002226.02101,"1733,67544-0418-60 ",.02)
 ;;67544-0418-60
 ;;9002226.02101,"1733,67544-0418-80 ",.01)
 ;;67544-0418-80
 ;;9002226.02101,"1733,67544-0418-80 ",.02)
 ;;67544-0418-80
 ;;9002226.02101,"1733,67544-0431-15 ",.01)
 ;;67544-0431-15
 ;;9002226.02101,"1733,67544-0431-15 ",.02)
 ;;67544-0431-15