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