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

BGPM5BFX.m

Go to the documentation of this file.
  1. BGPM5BFX ;IHS/MSC/MMT-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,"1084,66267049318 ",.02)
  1. ;;66267049318
  1. ;;9002226.02101,"1084,66267049320 ",.01)
  1. ;;66267049320
  1. ;;9002226.02101,"1084,66267049320 ",.02)
  1. ;;66267049320
  1. ;;9002226.02101,"1084,66267049330 ",.01)
  1. ;;66267049330
  1. ;;9002226.02101,"1084,66267049330 ",.02)
  1. ;;66267049330
  1. ;;9002226.02101,"1084,66267049340 ",.01)
  1. ;;66267049340
  1. ;;9002226.02101,"1084,66267049340 ",.02)
  1. ;;66267049340
  1. ;;9002226.02101,"1084,66267049360 ",.01)
  1. ;;66267049360
  1. ;;9002226.02101,"1084,66267049360 ",.02)
  1. ;;66267049360
  1. ;;9002226.02101,"1084,66267049391 ",.01)
  1. ;;66267049391
  1. ;;9002226.02101,"1084,66267049391 ",.02)
  1. ;;66267049391
  1. ;;9002226.02101,"1084,66267049392 ",.01)
  1. ;;66267049392
  1. ;;9002226.02101,"1084,66267049392 ",.02)
  1. ;;66267049392
  1. ;;9002226.02101,"1084,66267049720 ",.01)
  1. ;;66267049720
  1. ;;9002226.02101,"1084,66267049720 ",.02)
  1. ;;66267049720
  1. ;;9002226.02101,"1084,66267049730 ",.01)
  1. ;;66267049730
  1. ;;9002226.02101,"1084,66267049730 ",.02)
  1. ;;66267049730
  1. ;;9002226.02101,"1084,66267049740 ",.01)
  1. ;;66267049740
  1. ;;9002226.02101,"1084,66267049740 ",.02)
  1. ;;66267049740
  1. ;;9002226.02101,"1084,66267049745 ",.01)
  1. ;;66267049745
  1. ;;9002226.02101,"1084,66267049745 ",.02)
  1. ;;66267049745
  1. ;;9002226.02101,"1084,66267049760 ",.01)
  1. ;;66267049760
  1. ;;9002226.02101,"1084,66267049760 ",.02)
  1. ;;66267049760
  1. ;;9002226.02101,"1084,66267049790 ",.01)
  1. ;;66267049790
  1. ;;9002226.02101,"1084,66267049790 ",.02)
  1. ;;66267049790
  1. ;;9002226.02101,"1084,66267055300 ",.01)
  1. ;;66267055300
  1. ;;9002226.02101,"1084,66267055300 ",.02)
  1. ;;66267055300
  1. ;;9002226.02101,"1084,66267055305 ",.01)
  1. ;;66267055305
  1. ;;9002226.02101,"1084,66267055305 ",.02)
  1. ;;66267055305
  1. ;;9002226.02101,"1084,66267055318 ",.01)
  1. ;;66267055318
  1. ;;9002226.02101,"1084,66267055318 ",.02)
  1. ;;66267055318
  1. ;;9002226.02101,"1084,66267055320 ",.01)
  1. ;;66267055320
  1. ;;9002226.02101,"1084,66267055320 ",.02)
  1. ;;66267055320
  1. ;;9002226.02101,"1084,66267055330 ",.01)
  1. ;;66267055330
  1. ;;9002226.02101,"1084,66267055330 ",.02)
  1. ;;66267055330
  1. ;;9002226.02101,"1084,66267055340 ",.01)
  1. ;;66267055340
  1. ;;9002226.02101,"1084,66267055340 ",.02)
  1. ;;66267055340
  1. ;;9002226.02101,"1084,66267055360 ",.01)
  1. ;;66267055360
  1. ;;9002226.02101,"1084,66267055360 ",.02)
  1. ;;66267055360
  1. ;;9002226.02101,"1084,66267055390 ",.01)
  1. ;;66267055390
  1. ;;9002226.02101,"1084,66267055390 ",.02)
  1. ;;66267055390
  1. ;;9002226.02101,"1084,66267062710 ",.01)
  1. ;;66267062710
  1. ;;9002226.02101,"1084,66267062710 ",.02)
  1. ;;66267062710
  1. ;;9002226.02101,"1084,66336002830 ",.01)
  1. ;;66336002830
  1. ;;9002226.02101,"1084,66336002830 ",.02)
  1. ;;66336002830
  1. ;;9002226.02101,"1084,66336026930 ",.01)
  1. ;;66336026930
  1. ;;9002226.02101,"1084,66336026930 ",.02)
  1. ;;66336026930
  1. ;;9002226.02101,"1084,66336027030 ",.01)
  1. ;;66336027030
  1. ;;9002226.02101,"1084,66336027030 ",.02)
  1. ;;66336027030
  1. ;;9002226.02101,"1084,66336035830 ",.01)
  1. ;;66336035830
  1. ;;9002226.02101,"1084,66336035830 ",.02)
  1. ;;66336035830
  1. ;;9002226.02101,"1084,66336035860 ",.01)
  1. ;;66336035860
  1. ;;9002226.02101,"1084,66336035860 ",.02)
  1. ;;66336035860
  1. ;;9002226.02101,"1084,66336066230 ",.01)
  1. ;;66336066230
  1. ;;9002226.02101,"1084,66336066230 ",.02)
  1. ;;66336066230
  1. ;;9002226.02101,"1084,66336066260 ",.01)
  1. ;;66336066260
  1. ;;9002226.02101,"1084,66336066260 ",.02)
  1. ;;66336066260
  1. ;;9002226.02101,"1084,66336066294 ",.01)
  1. ;;66336066294
  1. ;;9002226.02101,"1084,66336066294 ",.02)
  1. ;;66336066294
  1. ;;9002226.02101,"1084,66336073030 ",.01)
  1. ;;66336073030
  1. ;;9002226.02101,"1084,66336073030 ",.02)
  1. ;;66336073030
  1. ;;9002226.02101,"1084,66336073060 ",.01)
  1. ;;66336073060
  1. ;;9002226.02101,"1084,66336073060 ",.02)
  1. ;;66336073060
  1. ;;9002226.02101,"1084,66336078430 ",.01)
  1. ;;66336078430
  1. ;;9002226.02101,"1084,66336078430 ",.02)
  1. ;;66336078430
  1. ;;9002226.02101,"1084,66336088330 ",.01)
  1. ;;66336088330
  1. ;;9002226.02101,"1084,66336088330 ",.02)
  1. ;;66336088330
  1. ;;9002226.02101,"1084,66336088360 ",.01)
  1. ;;66336088360
  1. ;;9002226.02101,"1084,66336088360 ",.02)
  1. ;;66336088360
  1. ;;9002226.02101,"1084,66336088414 ",.01)
  1. ;;66336088414
  1. ;;9002226.02101,"1084,66336088414 ",.02)
  1. ;;66336088414
  1. ;;9002226.02101,"1084,66336088430 ",.01)
  1. ;;66336088430
  1. ;;9002226.02101,"1084,66336088430 ",.02)
  1. ;;66336088430
  1. ;;9002226.02101,"1084,66336088460 ",.01)
  1. ;;66336088460
  1. ;;9002226.02101,"1084,66336088460 ",.02)
  1. ;;66336088460
  1. ;;9002226.02101,"1084,66336093830 ",.01)
  1. ;;66336093830
  1. ;;9002226.02101,"1084,66336093830 ",.02)
  1. ;;66336093830
  1. ;;9002226.02101,"1084,66336093860 ",.01)
  1. ;;66336093860
  1. ;;9002226.02101,"1084,66336093860 ",.02)
  1. ;;66336093860
  1. ;;9002226.02101,"1084,66993016202 ",.01)
  1. ;;66993016202
  1. ;;9002226.02101,"1084,66993016202 ",.02)
  1. ;;66993016202
  1. ;;9002226.02101,"1084,66993016247 ",.01)
  1. ;;66993016247
  1. ;;9002226.02101,"1084,66993016247 ",.02)
  1. ;;66993016247
  1. ;;9002226.02101,"1084,66993016302 ",.01)
  1. ;;66993016302
  1. ;;9002226.02101,"1084,66993016302 ",.02)
  1. ;;66993016302
  1. ;;9002226.02101,"1084,66993016347 ",.01)
  1. ;;66993016347
  1. ;;9002226.02101,"1084,66993016347 ",.02)
  1. ;;66993016347
  1. ;;9002226.02101,"1084,66993016402 ",.01)
  1. ;;66993016402
  1. ;;9002226.02101,"1084,66993016402 ",.02)
  1. ;;66993016402
  1. ;;9002226.02101,"1084,67046023530 ",.01)
  1. ;;67046023530
  1. ;;9002226.02101,"1084,67046023530 ",.02)
  1. ;;67046023530
  1. ;;9002226.02101,"1084,67046024030 ",.01)
  1. ;;67046024030
  1. ;;9002226.02101,"1084,67046024030 ",.02)
  1. ;;67046024030
  1. ;;9002226.02101,"1084,67046024060 ",.01)
  1. ;;67046024060
  1. ;;9002226.02101,"1084,67046024060 ",.02)
  1. ;;67046024060
  1. ;;9002226.02101,"1084,67046046030 ",.01)
  1. ;;67046046030
  1. ;;9002226.02101,"1084,67046046030 ",.02)
  1. ;;67046046030
  1. ;;9002226.02101,"1084,67046046130 ",.01)
  1. ;;67046046130
  1. ;;9002226.02101,"1084,67046046130 ",.02)
  1. ;;67046046130
  1. ;;9002226.02101,"1084,67046046230 ",.01)
  1. ;;67046046230
  1. ;;9002226.02101,"1084,67046046230 ",.02)
  1. ;;67046046230
  1. ;;9002226.02101,"1084,67228024203 ",.01)
  1. ;;67228024203
  1. ;;9002226.02101,"1084,67228024203 ",.02)
  1. ;;67228024203
  1. ;;9002226.02101,"1084,67228024206 ",.01)
  1. ;;67228024206
  1. ;;9002226.02101,"1084,67228024206 ",.02)
  1. ;;67228024206
  1. ;;9002226.02101,"1084,67228024303 ",.01)
  1. ;;67228024303
  1. ;;9002226.02101,"1084,67228024303 ",.02)
  1. ;;67228024303
  1. ;;9002226.02101,"1084,67228024306 ",.01)
  1. ;;67228024306
  1. ;;9002226.02101,"1084,67228024306 ",.02)
  1. ;;67228024306
  1. ;;9002226.02101,"1084,67228026803 ",.01)
  1. ;;67228026803
  1. ;;9002226.02101,"1084,67228026803 ",.02)
  1. ;;67228026803
  1. ;;9002226.02101,"1084,67228026806 ",.01)
  1. ;;67228026806
  1. ;;9002226.02101,"1084,67228026806 ",.02)
  1. ;;67228026806
  1. ;;9002226.02101,"1084,67228028103 ",.01)
  1. ;;67228028103
  1. ;;9002226.02101,"1084,67228028103 ",.02)
  1. ;;67228028103
  1. ;;9002226.02101,"1084,67228028106 ",.01)
  1. ;;67228028106
  1. ;;9002226.02101,"1084,67228028106 ",.02)
  1. ;;67228028106
  1. ;;9002226.02101,"1084,67228036803 ",.01)
  1. ;;67228036803
  1. ;;9002226.02101,"1084,67228036803 ",.02)
  1. ;;67228036803
  1. ;;9002226.02101,"1084,67228036806 ",.01)
  1. ;;67228036806
  1. ;;9002226.02101,"1084,67228036806 ",.02)
  1. ;;67228036806
  1. ;;9002226.02101,"1084,67228036903 ",.01)
  1. ;;67228036903
  1. ;;9002226.02101,"1084,67228036903 ",.02)
  1. ;;67228036903
  1. ;;9002226.02101,"1084,67228036906 ",.01)
  1. ;;67228036906
  1. ;;9002226.02101,"1084,67228036906 ",.02)
  1. ;;67228036906
  1. ;;9002226.02101,"1084,67251046011 ",.01)
  1. ;;67251046011
  1. ;;9002226.02101,"1084,67251046011 ",.02)
  1. ;;67251046011
  1. ;;9002226.02101,"1084,67251046050 ",.01)
  1. ;;67251046050
  1. ;;9002226.02101,"1084,67251046050 ",.02)
  1. ;;67251046050
  1. ;;9002226.02101,"1084,67253046010 ",.01)
  1. ;;67253046010
  1. ;;9002226.02101,"1084,67253046010 ",.02)
  1. ;;67253046010
  1. ;;9002226.02101,"1084,67253046011 ",.01)
  1. ;;67253046011
  1. ;;9002226.02101,"1084,67253046011 ",.02)
  1. ;;67253046011
  1. ;;9002226.02101,"1084,67253046050 ",.01)
  1. ;;67253046050
  1. ;;9002226.02101,"1084,67253046050 ",.02)
  1. ;;67253046050
  1. ;;9002226.02101,"1084,67253046110 ",.01)
  1. ;;67253046110
  1. ;;9002226.02101,"1084,67253046110 ",.02)
  1. ;;67253046110
  1. ;;9002226.02101,"1084,67253046111 ",.01)
  1. ;;67253046111
  1. ;;9002226.02101,"1084,67253046111 ",.02)
  1. ;;67253046111
  1. ;;9002226.02101,"1084,67253046150 ",.01)
  1. ;;67253046150
  1. ;;9002226.02101,"1084,67253046150 ",.02)
  1. ;;67253046150
  1. ;;9002226.02101,"1084,67253046210 ",.01)
  1. ;;67253046210
  1. ;;9002226.02101,"1084,67253046210 ",.02)
  1. ;;67253046210
  1. ;;9002226.02101,"1084,67253046211 ",.01)
  1. ;;67253046211
  1. ;;9002226.02101,"1084,67253046211 ",.02)
  1. ;;67253046211
  1. ;;9002226.02101,"1084,67253046250 ",.01)
  1. ;;67253046250
  1. ;;9002226.02101,"1084,67253046250 ",.02)
  1. ;;67253046250
  1. ;;9002226.02101,"1084,67263019301 ",.01)
  1. ;;67263019301
  1. ;;9002226.02101,"1084,67263019301 ",.02)
  1. ;;67263019301
  1. ;;9002226.02101,"1084,67544004730 ",.01)
  1. ;;67544004730
  1. ;;9002226.02101,"1084,67544004730 ",.02)
  1. ;;67544004730
  1. ;;9002226.02101,"1084,67544004732 ",.01)
  1. ;;67544004732
  1. ;;9002226.02101,"1084,67544004732 ",.02)
  1. ;;67544004732
  1. ;;9002226.02101,"1084,67544004753 ",.01)
  1. ;;67544004753
  1. ;;9002226.02101,"1084,67544004753 ",.02)
  1. ;;67544004753
  1. ;;9002226.02101,"1084,67544004760 ",.01)
  1. ;;67544004760
  1. ;;9002226.02101,"1084,67544004760 ",.02)
  1. ;;67544004760
  1. ;;9002226.02101,"1084,67544004770 ",.01)
  1. ;;67544004770
  1. ;;9002226.02101,"1084,67544004770 ",.02)
  1. ;;67544004770
  1. ;;9002226.02101,"1084,67544004775 ",.01)
  1. ;;67544004775
  1. ;;9002226.02101,"1084,67544004775 ",.02)
  1. ;;67544004775
  1. ;;9002226.02101,"1084,67544004780 ",.01)
  1. ;;67544004780
  1. ;;9002226.02101,"1084,67544004780 ",.02)
  1. ;;67544004780
  1. ;;9002226.02101,"1084,67544004790 ",.01)
  1. ;;67544004790
  1. ;;9002226.02101,"1084,67544004790 ",.02)
  1. ;;67544004790
  1. ;;9002226.02101,"1084,67544004792 ",.01)
  1. ;;67544004792
  1. ;;9002226.02101,"1084,67544004792 ",.02)
  1. ;;67544004792
  1. ;;9002226.02101,"1084,67544004794 ",.01)
  1. ;;67544004794
  1. ;;9002226.02101,"1084,67544004794 ",.02)
  1. ;;67544004794
  1. ;;9002226.02101,"1084,67544004796 ",.01)
  1. ;;67544004796
  1. ;;9002226.02101,"1084,67544004796 ",.02)
  1. ;;67544004796
  1. ;;9002226.02101,"1084,67544009732 ",.01)
  1. ;;67544009732
  1. ;;9002226.02101,"1084,67544009732 ",.02)
  1. ;;67544009732
  1. ;;9002226.02101,"1084,67544009753 ",.01)
  1. ;;67544009753
  1. ;;9002226.02101,"1084,67544009753 ",.02)
  1. ;;67544009753
  1. ;;9002226.02101,"1084,67544009760 ",.01)
  1. ;;67544009760
  1. ;;9002226.02101,"1084,67544009760 ",.02)
  1. ;;67544009760
  1. ;;9002226.02101,"1084,67544009770 ",.01)
  1. ;;67544009770
  1. ;;9002226.02101,"1084,67544009770 ",.02)
  1. ;;67544009770
  1. ;;9002226.02101,"1084,67544009780 ",.01)
  1. ;;67544009780
  1. ;;9002226.02101,"1084,67544009780 ",.02)
  1. ;;67544009780
  1. ;;9002226.02101,"1084,67544009794 ",.01)
  1. ;;67544009794
  1. ;;9002226.02101,"1084,67544009794 ",.02)
  1. ;;67544009794
  1. ;;9002226.02101,"1084,67544010753 ",.01)
  1. ;;67544010753
  1. ;;9002226.02101,"1084,67544010753 ",.02)
  1. ;;67544010753
  1. ;;9002226.02101,"1084,67544010760 ",.01)
  1. ;;67544010760
  1. ;;9002226.02101,"1084,67544010760 ",.02)
  1. ;;67544010760
  1. ;;9002226.02101,"1084,67544010770 ",.01)
  1. ;;67544010770
  1. ;;9002226.02101,"1084,67544010770 ",.02)
  1. ;;67544010770
  1. ;;9002226.02101,"1084,67544010780 ",.01)
  1. ;;67544010780
  1. ;;9002226.02101,"1084,67544010780 ",.02)
  1. ;;67544010780
  1. ;;9002226.02101,"1084,67544010792 ",.01)
  1. ;;67544010792
  1. ;;9002226.02101,"1084,67544010792 ",.02)
  1. ;;67544010792
  1. ;;9002226.02101,"1084,67544012930 ",.01)
  1. ;;67544012930
  1. ;;9002226.02101,"1084,67544012930 ",.02)
  1. ;;67544012930
  1. ;;9002226.02101,"1084,67544012953 ",.01)
  1. ;;67544012953
  1. ;;9002226.02101,"1084,67544012953 ",.02)
  1. ;;67544012953
  1. ;;9002226.02101,"1084,67544012970 ",.01)
  1. ;;67544012970
  1. ;;9002226.02101,"1084,67544012970 ",.02)
  1. ;;67544012970
  1. ;;9002226.02101,"1084,67544012980 ",.01)
  1. ;;67544012980
  1. ;;9002226.02101,"1084,67544012980 ",.02)
  1. ;;67544012980