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

BGPM5BCJ.m

Go to the documentation of this file.
  1. BGPM5BCJ ;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,49999078930 ",.02)
  1. ;;49999078930
  1. ;;9002226.02101,"1044,49999078960 ",.01)
  1. ;;49999078960
  1. ;;9002226.02101,"1044,49999078960 ",.02)
  1. ;;49999078960
  1. ;;9002226.02101,"1044,49999078990 ",.01)
  1. ;;49999078990
  1. ;;9002226.02101,"1044,49999078990 ",.02)
  1. ;;49999078990
  1. ;;9002226.02101,"1044,49999082830 ",.01)
  1. ;;49999082830
  1. ;;9002226.02101,"1044,49999082830 ",.02)
  1. ;;49999082830
  1. ;;9002226.02101,"1044,49999086030 ",.01)
  1. ;;49999086030
  1. ;;9002226.02101,"1044,49999086030 ",.02)
  1. ;;49999086030
  1. ;;9002226.02101,"1044,49999086060 ",.01)
  1. ;;49999086060
  1. ;;9002226.02101,"1044,49999086060 ",.02)
  1. ;;49999086060
  1. ;;9002226.02101,"1044,49999086090 ",.01)
  1. ;;49999086090
  1. ;;9002226.02101,"1044,49999086090 ",.02)
  1. ;;49999086090
  1. ;;9002226.02101,"1044,49999086130 ",.01)
  1. ;;49999086130
  1. ;;9002226.02101,"1044,49999086130 ",.02)
  1. ;;49999086130
  1. ;;9002226.02101,"1044,49999086160 ",.01)
  1. ;;49999086160
  1. ;;9002226.02101,"1044,49999086160 ",.02)
  1. ;;49999086160
  1. ;;9002226.02101,"1044,49999086190 ",.01)
  1. ;;49999086190
  1. ;;9002226.02101,"1044,49999086190 ",.02)
  1. ;;49999086190
  1. ;;9002226.02101,"1044,49999088630 ",.01)
  1. ;;49999088630
  1. ;;9002226.02101,"1044,49999088630 ",.02)
  1. ;;49999088630
  1. ;;9002226.02101,"1044,49999090900 ",.01)
  1. ;;49999090900
  1. ;;9002226.02101,"1044,49999090900 ",.02)
  1. ;;49999090900
  1. ;;9002226.02101,"1044,49999090930 ",.01)
  1. ;;49999090930
  1. ;;9002226.02101,"1044,49999090930 ",.02)
  1. ;;49999090930
  1. ;;9002226.02101,"1044,49999090960 ",.01)
  1. ;;49999090960
  1. ;;9002226.02101,"1044,49999090960 ",.02)
  1. ;;49999090960
  1. ;;9002226.02101,"1044,49999091330 ",.01)
  1. ;;49999091330
  1. ;;9002226.02101,"1044,49999091330 ",.02)
  1. ;;49999091330
  1. ;;9002226.02101,"1044,49999091530 ",.01)
  1. ;;49999091530
  1. ;;9002226.02101,"1044,49999091530 ",.02)
  1. ;;49999091530
  1. ;;9002226.02101,"1044,49999091560 ",.01)
  1. ;;49999091560
  1. ;;9002226.02101,"1044,49999091560 ",.02)
  1. ;;49999091560
  1. ;;9002226.02101,"1044,49999091590 ",.01)
  1. ;;49999091590
  1. ;;9002226.02101,"1044,49999091590 ",.02)
  1. ;;49999091590
  1. ;;9002226.02101,"1044,50111043301 ",.01)
  1. ;;50111043301
  1. ;;9002226.02101,"1044,50111043301 ",.02)
  1. ;;50111043301
  1. ;;9002226.02101,"1044,50111043302 ",.01)
  1. ;;50111043302
  1. ;;9002226.02101,"1044,50111043302 ",.02)
  1. ;;50111043302
  1. ;;9002226.02101,"1044,50111043303 ",.01)
  1. ;;50111043303
  1. ;;9002226.02101,"1044,50111043303 ",.02)
  1. ;;50111043303
  1. ;;9002226.02101,"1044,50111043310 ",.01)
  1. ;;50111043310
  1. ;;9002226.02101,"1044,50111043310 ",.02)
  1. ;;50111043310
  1. ;;9002226.02101,"1044,50111043317 ",.01)
  1. ;;50111043317
  1. ;;9002226.02101,"1044,50111043317 ",.02)
  1. ;;50111043317
  1. ;;9002226.02101,"1044,50111043401 ",.01)
  1. ;;50111043401
  1. ;;9002226.02101,"1044,50111043401 ",.02)
  1. ;;50111043401
  1. ;;9002226.02101,"1044,50111043402 ",.01)
  1. ;;50111043402
  1. ;;9002226.02101,"1044,50111043402 ",.02)
  1. ;;50111043402
  1. ;;9002226.02101,"1044,50111043403 ",.01)
  1. ;;50111043403
  1. ;;9002226.02101,"1044,50111043403 ",.02)
  1. ;;50111043403
  1. ;;9002226.02101,"1044,50111043410 ",.01)
  1. ;;50111043410
  1. ;;9002226.02101,"1044,50111043410 ",.02)
  1. ;;50111043410
  1. ;;9002226.02101,"1044,50111043417 ",.01)
  1. ;;50111043417
  1. ;;9002226.02101,"1044,50111043417 ",.02)
  1. ;;50111043417
  1. ;;9002226.02101,"1044,50111044101 ",.01)
  1. ;;50111044101
  1. ;;9002226.02101,"1044,50111044101 ",.02)
  1. ;;50111044101
  1. ;;9002226.02101,"1044,50111044102 ",.01)
  1. ;;50111044102
  1. ;;9002226.02101,"1044,50111044102 ",.02)
  1. ;;50111044102
  1. ;;9002226.02101,"1044,50111044103 ",.01)
  1. ;;50111044103
  1. ;;9002226.02101,"1044,50111044103 ",.02)
  1. ;;50111044103
  1. ;;9002226.02101,"1044,50111044106 ",.01)
  1. ;;50111044106
  1. ;;9002226.02101,"1044,50111044106 ",.02)
  1. ;;50111044106
  1. ;;9002226.02101,"1044,50111044110 ",.01)
  1. ;;50111044110
  1. ;;9002226.02101,"1044,50111044110 ",.02)
  1. ;;50111044110
  1. ;;9002226.02101,"1044,50111044117 ",.01)
  1. ;;50111044117
  1. ;;9002226.02101,"1044,50111044117 ",.02)
  1. ;;50111044117
  1. ;;9002226.02101,"1044,50111052303 ",.01)
  1. ;;50111052303
  1. ;;9002226.02101,"1044,50111052303 ",.02)
  1. ;;50111052303
  1. ;;9002226.02101,"1044,50111052403 ",.01)
  1. ;;50111052403
  1. ;;9002226.02101,"1044,50111052403 ",.02)
  1. ;;50111052403
  1. ;;9002226.02101,"1044,50111064701 ",.01)
  1. ;;50111064701
  1. ;;9002226.02101,"1044,50111064701 ",.02)
  1. ;;50111064701
  1. ;;9002226.02101,"1044,50111064702 ",.01)
  1. ;;50111064702
  1. ;;9002226.02101,"1044,50111064702 ",.02)
  1. ;;50111064702
  1. ;;9002226.02101,"1044,50111064703 ",.01)
  1. ;;50111064703
  1. ;;9002226.02101,"1044,50111064703 ",.02)
  1. ;;50111064703
  1. ;;9002226.02101,"1044,50111064801 ",.01)
  1. ;;50111064801
  1. ;;9002226.02101,"1044,50111064801 ",.02)
  1. ;;50111064801
  1. ;;9002226.02101,"1044,50111064802 ",.01)
  1. ;;50111064802
  1. ;;9002226.02101,"1044,50111064802 ",.02)
  1. ;;50111064802
  1. ;;9002226.02101,"1044,50111064803 ",.01)
  1. ;;50111064803
  1. ;;9002226.02101,"1044,50111064803 ",.02)
  1. ;;50111064803
  1. ;;9002226.02101,"1044,50111064810 ",.01)
  1. ;;50111064810
  1. ;;9002226.02101,"1044,50111064810 ",.02)
  1. ;;50111064810
  1. ;;9002226.02101,"1044,50111064844 ",.01)
  1. ;;50111064844
  1. ;;9002226.02101,"1044,50111064844 ",.02)
  1. ;;50111064844
  1. ;;9002226.02101,"1044,50111093001 ",.01)
  1. ;;50111093001
  1. ;;9002226.02101,"1044,50111093001 ",.02)
  1. ;;50111093001
  1. ;;9002226.02101,"1044,50111093002 ",.01)
  1. ;;50111093002
  1. ;;9002226.02101,"1044,50111093002 ",.02)
  1. ;;50111093002
  1. ;;9002226.02101,"1044,50111093003 ",.01)
  1. ;;50111093003
  1. ;;9002226.02101,"1044,50111093003 ",.02)
  1. ;;50111093003
  1. ;;9002226.02101,"1044,50111093005 ",.01)
  1. ;;50111093005
  1. ;;9002226.02101,"1044,50111093005 ",.02)
  1. ;;50111093005
  1. ;;9002226.02101,"1044,50111093010 ",.01)
  1. ;;50111093010
  1. ;;9002226.02101,"1044,50111093010 ",.02)
  1. ;;50111093010
  1. ;;9002226.02101,"1044,50111093101 ",.01)
  1. ;;50111093101
  1. ;;9002226.02101,"1044,50111093101 ",.02)
  1. ;;50111093101
  1. ;;9002226.02101,"1044,50111093102 ",.01)
  1. ;;50111093102
  1. ;;9002226.02101,"1044,50111093102 ",.02)
  1. ;;50111093102
  1. ;;9002226.02101,"1044,50111093103 ",.01)
  1. ;;50111093103
  1. ;;9002226.02101,"1044,50111093103 ",.02)
  1. ;;50111093103
  1. ;;9002226.02101,"1044,50111093107 ",.01)
  1. ;;50111093107
  1. ;;9002226.02101,"1044,50111093107 ",.02)
  1. ;;50111093107
  1. ;;9002226.02101,"1044,50111093110 ",.01)
  1. ;;50111093110
  1. ;;9002226.02101,"1044,50111093110 ",.02)
  1. ;;50111093110
  1. ;;9002226.02101,"1044,50111093201 ",.01)
  1. ;;50111093201
  1. ;;9002226.02101,"1044,50111093201 ",.02)
  1. ;;50111093201
  1. ;;9002226.02101,"1044,50111093202 ",.01)
  1. ;;50111093202
  1. ;;9002226.02101,"1044,50111093202 ",.02)
  1. ;;50111093202
  1. ;;9002226.02101,"1044,50111093203 ",.01)
  1. ;;50111093203
  1. ;;9002226.02101,"1044,50111093203 ",.02)
  1. ;;50111093203
  1. ;;9002226.02101,"1044,50111093210 ",.01)
  1. ;;50111093210
  1. ;;9002226.02101,"1044,50111093210 ",.02)
  1. ;;50111093210
  1. ;;9002226.02101,"1044,51079008601 ",.01)
  1. ;;51079008601
  1. ;;9002226.02101,"1044,51079008601 ",.02)
  1. ;;51079008601
  1. ;;9002226.02101,"1044,51079008620 ",.01)
  1. ;;51079008620
  1. ;;9002226.02101,"1044,51079008620 ",.02)
  1. ;;51079008620
  1. ;;9002226.02101,"1044,51079008630 ",.01)
  1. ;;51079008630
  1. ;;9002226.02101,"1044,51079008630 ",.02)
  1. ;;51079008630
  1. ;;9002226.02101,"1044,51079008656 ",.01)
  1. ;;51079008656
  1. ;;9002226.02101,"1044,51079008656 ",.02)
  1. ;;51079008656
  1. ;;9002226.02101,"1044,51079008701 ",.01)
  1. ;;51079008701
  1. ;;9002226.02101,"1044,51079008701 ",.02)
  1. ;;51079008701
  1. ;;9002226.02101,"1044,51079008720 ",.01)
  1. ;;51079008720
  1. ;;9002226.02101,"1044,51079008720 ",.02)
  1. ;;51079008720
  1. ;;9002226.02101,"1044,51079008730 ",.01)
  1. ;;51079008730
  1. ;;9002226.02101,"1044,51079008730 ",.02)
  1. ;;51079008730
  1. ;;9002226.02101,"1044,51079008756 ",.01)
  1. ;;51079008756
  1. ;;9002226.02101,"1044,51079008756 ",.02)
  1. ;;51079008756
  1. ;;9002226.02101,"1044,51079008801 ",.01)
  1. ;;51079008801
  1. ;;9002226.02101,"1044,51079008801 ",.02)
  1. ;;51079008801
  1. ;;9002226.02101,"1044,51079008820 ",.01)
  1. ;;51079008820
  1. ;;9002226.02101,"1044,51079008820 ",.02)
  1. ;;51079008820
  1. ;;9002226.02101,"1044,51079008830 ",.01)
  1. ;;51079008830
  1. ;;9002226.02101,"1044,51079008830 ",.02)
  1. ;;51079008830
  1. ;;9002226.02101,"1044,51079008856 ",.01)
  1. ;;51079008856
  1. ;;9002226.02101,"1044,51079008856 ",.02)
  1. ;;51079008856
  1. ;;9002226.02101,"1044,51079010701 ",.01)
  1. ;;51079010701
  1. ;;9002226.02101,"1044,51079010701 ",.02)
  1. ;;51079010701
  1. ;;9002226.02101,"1044,51079010717 ",.01)
  1. ;;51079010717
  1. ;;9002226.02101,"1044,51079010717 ",.02)
  1. ;;51079010717
  1. ;;9002226.02101,"1044,51079010719 ",.01)
  1. ;;51079010719
  1. ;;9002226.02101,"1044,51079010719 ",.02)
  1. ;;51079010719
  1. ;;9002226.02101,"1044,51079010720 ",.01)
  1. ;;51079010720
  1. ;;9002226.02101,"1044,51079010720 ",.02)
  1. ;;51079010720
  1. ;;9002226.02101,"1044,51079010763 ",.01)
  1. ;;51079010763
  1. ;;9002226.02101,"1044,51079010763 ",.02)
  1. ;;51079010763
  1. ;;9002226.02101,"1044,51079013101 ",.01)
  1. ;;51079013101
  1. ;;9002226.02101,"1044,51079013101 ",.02)
  1. ;;51079013101
  1. ;;9002226.02101,"1044,51079013120 ",.01)
  1. ;;51079013120
  1. ;;9002226.02101,"1044,51079013120 ",.02)
  1. ;;51079013120
  1. ;;9002226.02101,"1044,51079013163 ",.01)
  1. ;;51079013163
  1. ;;9002226.02101,"1044,51079013163 ",.02)
  1. ;;51079013163
  1. ;;9002226.02101,"1044,51079013301 ",.01)
  1. ;;51079013301
  1. ;;9002226.02101,"1044,51079013301 ",.02)
  1. ;;51079013301
  1. ;;9002226.02101,"1044,51079013320 ",.01)
  1. ;;51079013320
  1. ;;9002226.02101,"1044,51079013320 ",.02)
  1. ;;51079013320
  1. ;;9002226.02101,"1044,51079013363 ",.01)
  1. ;;51079013363
  1. ;;9002226.02101,"1044,51079013363 ",.02)
  1. ;;51079013363
  1. ;;9002226.02101,"1044,51079013401 ",.01)
  1. ;;51079013401
  1. ;;9002226.02101,"1044,51079013401 ",.02)
  1. ;;51079013401
  1. ;;9002226.02101,"1044,51079013420 ",.01)
  1. ;;51079013420
  1. ;;9002226.02101,"1044,51079013420 ",.02)
  1. ;;51079013420
  1. ;;9002226.02101,"1044,51079013501 ",.01)
  1. ;;51079013501
  1. ;;9002226.02101,"1044,51079013501 ",.02)
  1. ;;51079013501
  1. ;;9002226.02101,"1044,51079013520 ",.01)
  1. ;;51079013520
  1. ;;9002226.02101,"1044,51079013520 ",.02)
  1. ;;51079013520
  1. ;;9002226.02101,"1044,51079013601 ",.01)
  1. ;;51079013601
  1. ;;9002226.02101,"1044,51079013601 ",.02)
  1. ;;51079013601
  1. ;;9002226.02101,"1044,51079013604 ",.01)
  1. ;;51079013604
  1. ;;9002226.02101,"1044,51079013604 ",.02)
  1. ;;51079013604
  1. ;;9002226.02101,"1044,51079013720 ",.01)
  1. ;;51079013720
  1. ;;9002226.02101,"1044,51079013720 ",.02)
  1. ;;51079013720
  1. ;;9002226.02101,"1044,51079014701 ",.01)
  1. ;;51079014701
  1. ;;9002226.02101,"1044,51079014701 ",.02)
  1. ;;51079014701
  1. ;;9002226.02101,"1044,51079014720 ",.01)
  1. ;;51079014720
  1. ;;9002226.02101,"1044,51079014720 ",.02)
  1. ;;51079014720
  1. ;;9002226.02101,"1044,51079042719 ",.01)
  1. ;;51079042719
  1. ;;9002226.02101,"1044,51079042719 ",.02)
  1. ;;51079042719
  1. ;;9002226.02101,"1044,51079042720 ",.01)
  1. ;;51079042720
  1. ;;9002226.02101,"1044,51079042720 ",.02)
  1. ;;51079042720
  1. ;;9002226.02101,"1044,51079042819 ",.01)
  1. ;;51079042819
  1. ;;9002226.02101,"1044,51079042819 ",.02)
  1. ;;51079042819
  1. ;;9002226.02101,"1044,51079042820 ",.01)
  1. ;;51079042820
  1. ;;9002226.02101,"1044,51079042820 ",.02)
  1. ;;51079042820
  1. ;;9002226.02101,"1044,51079048001 ",.01)
  1. ;;51079048001
  1. ;;9002226.02101,"1044,51079048001 ",.02)
  1. ;;51079048001
  1. ;;9002226.02101,"1044,51079048020 ",.01)
  1. ;;51079048020
  1. ;;9002226.02101,"1044,51079048020 ",.02)
  1. ;;51079048020
  1. ;;9002226.02101,"1044,51079048201 ",.01)
  1. ;;51079048201
  1. ;;9002226.02101,"1044,51079048201 ",.02)
  1. ;;51079048201
  1. ;;9002226.02101,"1044,51079048220 ",.01)
  1. ;;51079048220
  1. ;;9002226.02101,"1044,51079048220 ",.02)
  1. ;;51079048220
  1. ;;9002226.02101,"1044,51079048230 ",.01)
  1. ;;51079048230
  1. ;;9002226.02101,"1044,51079048230 ",.02)
  1. ;;51079048230
  1. ;;9002226.02101,"1044,51079048256 ",.01)
  1. ;;51079048256
  1. ;;9002226.02101,"1044,51079048256 ",.02)
  1. ;;51079048256
  1. ;;9002226.02101,"1044,51079056301 ",.01)
  1. ;;51079056301
  1. ;;9002226.02101,"1044,51079056301 ",.02)
  1. ;;51079056301