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