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

BGPM5BCR.m

Go to the documentation of this file.
BGPM5BCR ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"1044,54868222100 ",.02)
 ;;54868222100
 ;;9002226.02101,"1044,54868222101 ",.01)
 ;;54868222101
 ;;9002226.02101,"1044,54868222101 ",.02)
 ;;54868222101
 ;;9002226.02101,"1044,54868222102 ",.01)
 ;;54868222102
 ;;9002226.02101,"1044,54868222102 ",.02)
 ;;54868222102
 ;;9002226.02101,"1044,54868222103 ",.01)
 ;;54868222103
 ;;9002226.02101,"1044,54868222103 ",.02)
 ;;54868222103
 ;;9002226.02101,"1044,54868222104 ",.01)
 ;;54868222104
 ;;9002226.02101,"1044,54868222104 ",.02)
 ;;54868222104
 ;;9002226.02101,"1044,54868222105 ",.01)
 ;;54868222105
 ;;9002226.02101,"1044,54868222105 ",.02)
 ;;54868222105
 ;;9002226.02101,"1044,54868235700 ",.01)
 ;;54868235700
 ;;9002226.02101,"1044,54868235700 ",.02)
 ;;54868235700
 ;;9002226.02101,"1044,54868235702 ",.01)
 ;;54868235702
 ;;9002226.02101,"1044,54868235702 ",.02)
 ;;54868235702
 ;;9002226.02101,"1044,54868235703 ",.01)
 ;;54868235703
 ;;9002226.02101,"1044,54868235703 ",.02)
 ;;54868235703
 ;;9002226.02101,"1044,54868243300 ",.01)
 ;;54868243300
 ;;9002226.02101,"1044,54868243300 ",.02)
 ;;54868243300
 ;;9002226.02101,"1044,54868243302 ",.01)
 ;;54868243302
 ;;9002226.02101,"1044,54868243302 ",.02)
 ;;54868243302
 ;;9002226.02101,"1044,54868243400 ",.01)
 ;;54868243400
 ;;9002226.02101,"1044,54868243400 ",.02)
 ;;54868243400
 ;;9002226.02101,"1044,54868243402 ",.01)
 ;;54868243402
 ;;9002226.02101,"1044,54868243402 ",.02)
 ;;54868243402
 ;;9002226.02101,"1044,54868243800 ",.01)
 ;;54868243800
 ;;9002226.02101,"1044,54868243800 ",.02)
 ;;54868243800
 ;;9002226.02101,"1044,54868243801 ",.01)
 ;;54868243801
 ;;9002226.02101,"1044,54868243801 ",.02)
 ;;54868243801
 ;;9002226.02101,"1044,54868248000 ",.01)
 ;;54868248000
 ;;9002226.02101,"1044,54868248000 ",.02)
 ;;54868248000
 ;;9002226.02101,"1044,54868248001 ",.01)
 ;;54868248001
 ;;9002226.02101,"1044,54868248001 ",.02)
 ;;54868248001
 ;;9002226.02101,"1044,54868248002 ",.01)
 ;;54868248002
 ;;9002226.02101,"1044,54868248002 ",.02)
 ;;54868248002
 ;;9002226.02101,"1044,54868248004 ",.01)
 ;;54868248004
 ;;9002226.02101,"1044,54868248004 ",.02)
 ;;54868248004
 ;;9002226.02101,"1044,54868248101 ",.01)
 ;;54868248101
 ;;9002226.02101,"1044,54868248101 ",.02)
 ;;54868248101
 ;;9002226.02101,"1044,54868248102 ",.01)
 ;;54868248102
 ;;9002226.02101,"1044,54868248102 ",.02)
 ;;54868248102
 ;;9002226.02101,"1044,54868248103 ",.01)
 ;;54868248103
 ;;9002226.02101,"1044,54868248103 ",.02)
 ;;54868248103
 ;;9002226.02101,"1044,54868248200 ",.01)
 ;;54868248200
 ;;9002226.02101,"1044,54868248200 ",.02)
 ;;54868248200
 ;;9002226.02101,"1044,54868248202 ",.01)
 ;;54868248202
 ;;9002226.02101,"1044,54868248202 ",.02)
 ;;54868248202
 ;;9002226.02101,"1044,54868257100 ",.01)
 ;;54868257100
 ;;9002226.02101,"1044,54868257100 ",.02)
 ;;54868257100
 ;;9002226.02101,"1044,54868257101 ",.01)
 ;;54868257101
 ;;9002226.02101,"1044,54868257101 ",.02)
 ;;54868257101
 ;;9002226.02101,"1044,54868283300 ",.01)
 ;;54868283300
 ;;9002226.02101,"1044,54868283300 ",.02)
 ;;54868283300
 ;;9002226.02101,"1044,54868283301 ",.01)
 ;;54868283301
 ;;9002226.02101,"1044,54868283301 ",.02)
 ;;54868283301
 ;;9002226.02101,"1044,54868283501 ",.01)
 ;;54868283501
 ;;9002226.02101,"1044,54868283501 ",.02)
 ;;54868283501
 ;;9002226.02101,"1044,54868283502 ",.01)
 ;;54868283502
 ;;9002226.02101,"1044,54868283502 ",.02)
 ;;54868283502
 ;;9002226.02101,"1044,54868283503 ",.01)
 ;;54868283503
 ;;9002226.02101,"1044,54868283503 ",.02)
 ;;54868283503
 ;;9002226.02101,"1044,54868283504 ",.01)
 ;;54868283504
 ;;9002226.02101,"1044,54868283504 ",.02)
 ;;54868283504
 ;;9002226.02101,"1044,54868392700 ",.01)
 ;;54868392700
 ;;9002226.02101,"1044,54868392700 ",.02)
 ;;54868392700
 ;;9002226.02101,"1044,54868402300 ",.01)
 ;;54868402300
 ;;9002226.02101,"1044,54868402300 ",.02)
 ;;54868402300
 ;;9002226.02101,"1044,54868402301 ",.01)
 ;;54868402301
 ;;9002226.02101,"1044,54868402301 ",.02)
 ;;54868402301
 ;;9002226.02101,"1044,54868405500 ",.01)
 ;;54868405500
 ;;9002226.02101,"1044,54868405500 ",.02)
 ;;54868405500
 ;;9002226.02101,"1044,54868405501 ",.01)
 ;;54868405501
 ;;9002226.02101,"1044,54868405501 ",.02)
 ;;54868405501
 ;;9002226.02101,"1044,54868405502 ",.01)
 ;;54868405502
 ;;9002226.02101,"1044,54868405502 ",.02)
 ;;54868405502
 ;;9002226.02101,"1044,54868405503 ",.01)
 ;;54868405503
 ;;9002226.02101,"1044,54868405503 ",.02)
 ;;54868405503
 ;;9002226.02101,"1044,54868428800 ",.01)
 ;;54868428800
 ;;9002226.02101,"1044,54868428800 ",.02)
 ;;54868428800
 ;;9002226.02101,"1044,54868453700 ",.01)
 ;;54868453700
 ;;9002226.02101,"1044,54868453700 ",.02)
 ;;54868453700
 ;;9002226.02101,"1044,54868453701 ",.01)
 ;;54868453701
 ;;9002226.02101,"1044,54868453701 ",.02)
 ;;54868453701
 ;;9002226.02101,"1044,54868453702 ",.01)
 ;;54868453702
 ;;9002226.02101,"1044,54868453702 ",.02)
 ;;54868453702
 ;;9002226.02101,"1044,54868453703 ",.01)
 ;;54868453703
 ;;9002226.02101,"1044,54868453703 ",.02)
 ;;54868453703
 ;;9002226.02101,"1044,54868453704 ",.01)
 ;;54868453704
 ;;9002226.02101,"1044,54868453704 ",.02)
 ;;54868453704
 ;;9002226.02101,"1044,54868456000 ",.01)
 ;;54868456000
 ;;9002226.02101,"1044,54868456000 ",.02)
 ;;54868456000
 ;;9002226.02101,"1044,54868456001 ",.01)
 ;;54868456001
 ;;9002226.02101,"1044,54868456001 ",.02)
 ;;54868456001
 ;;9002226.02101,"1044,54868456002 ",.01)
 ;;54868456002
 ;;9002226.02101,"1044,54868456002 ",.02)
 ;;54868456002
 ;;9002226.02101,"1044,54868456200 ",.01)
 ;;54868456200
 ;;9002226.02101,"1044,54868456200 ",.02)
 ;;54868456200
 ;;9002226.02101,"1044,54868456201 ",.01)
 ;;54868456201
 ;;9002226.02101,"1044,54868456201 ",.02)
 ;;54868456201
 ;;9002226.02101,"1044,54868481700 ",.01)
 ;;54868481700
 ;;9002226.02101,"1044,54868481700 ",.02)
 ;;54868481700
 ;;9002226.02101,"1044,54868481701 ",.01)
 ;;54868481701
 ;;9002226.02101,"1044,54868481701 ",.02)
 ;;54868481701
 ;;9002226.02101,"1044,54868481702 ",.01)
 ;;54868481702
 ;;9002226.02101,"1044,54868481702 ",.02)
 ;;54868481702
 ;;9002226.02101,"1044,54868493700 ",.01)
 ;;54868493700
 ;;9002226.02101,"1044,54868493700 ",.02)
 ;;54868493700
 ;;9002226.02101,"1044,54868493701 ",.01)
 ;;54868493701
 ;;9002226.02101,"1044,54868493701 ",.02)
 ;;54868493701
 ;;9002226.02101,"1044,54868493702 ",.01)
 ;;54868493702
 ;;9002226.02101,"1044,54868493702 ",.02)
 ;;54868493702
 ;;9002226.02101,"1044,54868493703 ",.01)
 ;;54868493703
 ;;9002226.02101,"1044,54868493703 ",.02)
 ;;54868493703
 ;;9002226.02101,"1044,54868493704 ",.01)
 ;;54868493704
 ;;9002226.02101,"1044,54868493704 ",.02)
 ;;54868493704
 ;;9002226.02101,"1044,54868493800 ",.01)
 ;;54868493800
 ;;9002226.02101,"1044,54868493800 ",.02)
 ;;54868493800
 ;;9002226.02101,"1044,54868508000 ",.01)
 ;;54868508000
 ;;9002226.02101,"1044,54868508000 ",.02)
 ;;54868508000
 ;;9002226.02101,"1044,54868517800 ",.01)
 ;;54868517800
 ;;9002226.02101,"1044,54868517800 ",.02)
 ;;54868517800
 ;;9002226.02101,"1044,54868517801 ",.01)
 ;;54868517801
 ;;9002226.02101,"1044,54868517801 ",.02)
 ;;54868517801
 ;;9002226.02101,"1044,54868517802 ",.01)
 ;;54868517802
 ;;9002226.02101,"1044,54868517802 ",.02)
 ;;54868517802
 ;;9002226.02101,"1044,54868517803 ",.01)
 ;;54868517803
 ;;9002226.02101,"1044,54868517803 ",.02)
 ;;54868517803
 ;;9002226.02101,"1044,54868517804 ",.01)
 ;;54868517804
 ;;9002226.02101,"1044,54868517804 ",.02)
 ;;54868517804
 ;;9002226.02101,"1044,54868517805 ",.01)
 ;;54868517805
 ;;9002226.02101,"1044,54868517805 ",.02)
 ;;54868517805
 ;;9002226.02101,"1044,54868527500 ",.01)
 ;;54868527500
 ;;9002226.02101,"1044,54868527500 ",.02)
 ;;54868527500
 ;;9002226.02101,"1044,54868527501 ",.01)
 ;;54868527501
 ;;9002226.02101,"1044,54868527501 ",.02)
 ;;54868527501
 ;;9002226.02101,"1044,54868527502 ",.01)
 ;;54868527502
 ;;9002226.02101,"1044,54868527502 ",.02)
 ;;54868527502
 ;;9002226.02101,"1044,54868544800 ",.01)
 ;;54868544800
 ;;9002226.02101,"1044,54868544800 ",.02)
 ;;54868544800
 ;;9002226.02101,"1044,54868563500 ",.01)
 ;;54868563500
 ;;9002226.02101,"1044,54868563500 ",.02)
 ;;54868563500
 ;;9002226.02101,"1044,54868563800 ",.01)
 ;;54868563800
 ;;9002226.02101,"1044,54868563800 ",.02)
 ;;54868563800
 ;;9002226.02101,"1044,54868563801 ",.01)
 ;;54868563801
 ;;9002226.02101,"1044,54868563801 ",.02)
 ;;54868563801
 ;;9002226.02101,"1044,54868563802 ",.01)
 ;;54868563802
 ;;9002226.02101,"1044,54868563802 ",.02)
 ;;54868563802
 ;;9002226.02101,"1044,54868563803 ",.01)
 ;;54868563803
 ;;9002226.02101,"1044,54868563803 ",.02)
 ;;54868563803
 ;;9002226.02101,"1044,54868563804 ",.01)
 ;;54868563804
 ;;9002226.02101,"1044,54868563804 ",.02)
 ;;54868563804
 ;;9002226.02101,"1044,54868563805 ",.01)
 ;;54868563805
 ;;9002226.02101,"1044,54868563805 ",.02)
 ;;54868563805
 ;;9002226.02101,"1044,54868563806 ",.01)
 ;;54868563806
 ;;9002226.02101,"1044,54868563806 ",.02)
 ;;54868563806
 ;;9002226.02101,"1044,54868563807 ",.01)
 ;;54868563807
 ;;9002226.02101,"1044,54868563807 ",.02)
 ;;54868563807
 ;;9002226.02101,"1044,54868563808 ",.01)
 ;;54868563808
 ;;9002226.02101,"1044,54868563808 ",.02)
 ;;54868563808
 ;;9002226.02101,"1044,54868563900 ",.01)
 ;;54868563900
 ;;9002226.02101,"1044,54868563900 ",.02)
 ;;54868563900
 ;;9002226.02101,"1044,54868563901 ",.01)
 ;;54868563901
 ;;9002226.02101,"1044,54868563901 ",.02)
 ;;54868563901
 ;;9002226.02101,"1044,54868563902 ",.01)
 ;;54868563902
 ;;9002226.02101,"1044,54868563902 ",.02)
 ;;54868563902
 ;;9002226.02101,"1044,54868563903 ",.01)
 ;;54868563903
 ;;9002226.02101,"1044,54868563903 ",.02)
 ;;54868563903
 ;;9002226.02101,"1044,54868563904 ",.01)
 ;;54868563904
 ;;9002226.02101,"1044,54868563904 ",.02)
 ;;54868563904
 ;;9002226.02101,"1044,54868563905 ",.01)
 ;;54868563905
 ;;9002226.02101,"1044,54868563905 ",.02)
 ;;54868563905
 ;;9002226.02101,"1044,54868563906 ",.01)
 ;;54868563906
 ;;9002226.02101,"1044,54868563906 ",.02)
 ;;54868563906
 ;;9002226.02101,"1044,54868564200 ",.01)
 ;;54868564200
 ;;9002226.02101,"1044,54868564200 ",.02)
 ;;54868564200
 ;;9002226.02101,"1044,54868565800 ",.01)
 ;;54868565800
 ;;9002226.02101,"1044,54868565800 ",.02)
 ;;54868565800
 ;;9002226.02101,"1044,54868566300 ",.01)
 ;;54868566300
 ;;9002226.02101,"1044,54868566300 ",.02)
 ;;54868566300
 ;;9002226.02101,"1044,54868566301 ",.01)
 ;;54868566301
 ;;9002226.02101,"1044,54868566301 ",.02)
 ;;54868566301
 ;;9002226.02101,"1044,54868566302 ",.01)
 ;;54868566302
 ;;9002226.02101,"1044,54868566302 ",.02)
 ;;54868566302
 ;;9002226.02101,"1044,54868575400 ",.01)
 ;;54868575400
 ;;9002226.02101,"1044,54868575400 ",.02)
 ;;54868575400
 ;;9002226.02101,"1044,54868575401 ",.01)
 ;;54868575401
 ;;9002226.02101,"1044,54868575401 ",.02)
 ;;54868575401
 ;;9002226.02101,"1044,54868575402 ",.01)
 ;;54868575402
 ;;9002226.02101,"1044,54868575402 ",.02)
 ;;54868575402
 ;;9002226.02101,"1044,54868575403 ",.01)
 ;;54868575403
 ;;9002226.02101,"1044,54868575403 ",.02)
 ;;54868575403
 ;;9002226.02101,"1044,54868581200 ",.01)
 ;;54868581200
 ;;9002226.02101,"1044,54868581200 ",.02)
 ;;54868581200
 ;;9002226.02101,"1044,54868612700 ",.01)
 ;;54868612700
 ;;9002226.02101,"1044,54868612700 ",.02)
 ;;54868612700
 ;;9002226.02101,"1044,54868613900 ",.01)
 ;;54868613900
 ;;9002226.02101,"1044,54868613900 ",.02)
 ;;54868613900
 ;;9002226.02101,"1044,54868613901 ",.01)
 ;;54868613901
 ;;9002226.02101,"1044,54868613901 ",.02)
 ;;54868613901
 ;;9002226.02101,"1044,54868614000 ",.01)
 ;;54868614000
 ;;9002226.02101,"1044,54868614000 ",.02)
 ;;54868614000