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

BGPM5AKI.m

Go to the documentation of this file.
  1. BGPM5AKI ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"889,66267056710 ",.01)
  1. ;;66267056710
  1. ;;9002226.02101,"889,66267056710 ",.02)
  1. ;;66267056710
  1. ;;9002226.02101,"889,66267056720 ",.01)
  1. ;;66267056720
  1. ;;9002226.02101,"889,66267056720 ",.02)
  1. ;;66267056720
  1. ;;9002226.02101,"889,66267056730 ",.01)
  1. ;;66267056730
  1. ;;9002226.02101,"889,66267056730 ",.02)
  1. ;;66267056730
  1. ;;9002226.02101,"889,66267056740 ",.01)
  1. ;;66267056740
  1. ;;9002226.02101,"889,66267056740 ",.02)
  1. ;;66267056740
  1. ;;9002226.02101,"889,66267056760 ",.01)
  1. ;;66267056760
  1. ;;9002226.02101,"889,66267056760 ",.02)
  1. ;;66267056760
  1. ;;9002226.02101,"889,66267056910 ",.01)
  1. ;;66267056910
  1. ;;9002226.02101,"889,66267056910 ",.02)
  1. ;;66267056910
  1. ;;9002226.02101,"889,66267056920 ",.01)
  1. ;;66267056920
  1. ;;9002226.02101,"889,66267056920 ",.02)
  1. ;;66267056920
  1. ;;9002226.02101,"889,66267056930 ",.01)
  1. ;;66267056930
  1. ;;9002226.02101,"889,66267056930 ",.02)
  1. ;;66267056930
  1. ;;9002226.02101,"889,66267056940 ",.01)
  1. ;;66267056940
  1. ;;9002226.02101,"889,66267056940 ",.02)
  1. ;;66267056940
  1. ;;9002226.02101,"889,66267056960 ",.01)
  1. ;;66267056960
  1. ;;9002226.02101,"889,66267056960 ",.02)
  1. ;;66267056960
  1. ;;9002226.02101,"889,66267058010 ",.01)
  1. ;;66267058010
  1. ;;9002226.02101,"889,66267058010 ",.02)
  1. ;;66267058010
  1. ;;9002226.02101,"889,66267058020 ",.01)
  1. ;;66267058020
  1. ;;9002226.02101,"889,66267058020 ",.02)
  1. ;;66267058020
  1. ;;9002226.02101,"889,66267058030 ",.01)
  1. ;;66267058030
  1. ;;9002226.02101,"889,66267058030 ",.02)
  1. ;;66267058030
  1. ;;9002226.02101,"889,66267058040 ",.01)
  1. ;;66267058040
  1. ;;9002226.02101,"889,66267058040 ",.02)
  1. ;;66267058040
  1. ;;9002226.02101,"889,66267058060 ",.01)
  1. ;;66267058060
  1. ;;9002226.02101,"889,66267058060 ",.02)
  1. ;;66267058060
  1. ;;9002226.02101,"889,66267082206 ",.01)
  1. ;;66267082206
  1. ;;9002226.02101,"889,66267082206 ",.02)
  1. ;;66267082206
  1. ;;9002226.02101,"889,66336012560 ",.01)
  1. ;;66336012560
  1. ;;9002226.02101,"889,66336012560 ",.02)
  1. ;;66336012560
  1. ;;9002226.02101,"889,66336012660 ",.01)
  1. ;;66336012660
  1. ;;9002226.02101,"889,66336012660 ",.02)
  1. ;;66336012660
  1. ;;9002226.02101,"889,66336051430 ",.01)
  1. ;;66336051430
  1. ;;9002226.02101,"889,66336051430 ",.02)
  1. ;;66336051430
  1. ;;9002226.02101,"889,66336051460 ",.01)
  1. ;;66336051460
  1. ;;9002226.02101,"889,66336051460 ",.02)
  1. ;;66336051460
  1. ;;9002226.02101,"889,66336052330 ",.01)
  1. ;;66336052330
  1. ;;9002226.02101,"889,66336052330 ",.02)
  1. ;;66336052330
  1. ;;9002226.02101,"889,66336052360 ",.01)
  1. ;;66336052360
  1. ;;9002226.02101,"889,66336052360 ",.02)
  1. ;;66336052360
  1. ;;9002226.02101,"889,66336058700 ",.01)
  1. ;;66336058700
  1. ;;9002226.02101,"889,66336058700 ",.02)
  1. ;;66336058700
  1. ;;9002226.02101,"889,66336058730 ",.01)
  1. ;;66336058730
  1. ;;9002226.02101,"889,66336058730 ",.02)
  1. ;;66336058730
  1. ;;9002226.02101,"889,66336058760 ",.01)
  1. ;;66336058760
  1. ;;9002226.02101,"889,66336058760 ",.02)
  1. ;;66336058760
  1. ;;9002226.02101,"889,66336058790 ",.01)
  1. ;;66336058790
  1. ;;9002226.02101,"889,66336058790 ",.02)
  1. ;;66336058790
  1. ;;9002226.02101,"889,66336061290 ",.01)
  1. ;;66336061290
  1. ;;9002226.02101,"889,66336061290 ",.02)
  1. ;;66336061290
  1. ;;9002226.02101,"889,66336071930 ",.01)
  1. ;;66336071930
  1. ;;9002226.02101,"889,66336071930 ",.02)
  1. ;;66336071930
  1. ;;9002226.02101,"889,66336071960 ",.01)
  1. ;;66336071960
  1. ;;9002226.02101,"889,66336071960 ",.02)
  1. ;;66336071960
  1. ;;9002226.02101,"889,66336071990 ",.01)
  1. ;;66336071990
  1. ;;9002226.02101,"889,66336071990 ",.02)
  1. ;;66336071990
  1. ;;9002226.02101,"889,66336081130 ",.01)
  1. ;;66336081130
  1. ;;9002226.02101,"889,66336081130 ",.02)
  1. ;;66336081130
  1. ;;9002226.02101,"889,66336081160 ",.01)
  1. ;;66336081160
  1. ;;9002226.02101,"889,66336081160 ",.02)
  1. ;;66336081160
  1. ;;9002226.02101,"889,66336081190 ",.01)
  1. ;;66336081190
  1. ;;9002226.02101,"889,66336081190 ",.02)
  1. ;;66336081190
  1. ;;9002226.02101,"889,66336091430 ",.01)
  1. ;;66336091430
  1. ;;9002226.02101,"889,66336091430 ",.02)
  1. ;;66336091430
  1. ;;9002226.02101,"889,66336091460 ",.01)
  1. ;;66336091460
  1. ;;9002226.02101,"889,66336091460 ",.02)
  1. ;;66336091460
  1. ;;9002226.02101,"889,66336091490 ",.01)
  1. ;;66336091490
  1. ;;9002226.02101,"889,66336091490 ",.02)
  1. ;;66336091490
  1. ;;9002226.02101,"889,66467333001 ",.01)
  1. ;;66467333001
  1. ;;9002226.02101,"889,66467333001 ",.02)
  1. ;;66467333001
  1. ;;9002226.02101,"889,66484042000 ",.01)
  1. ;;66484042000
  1. ;;9002226.02101,"889,66484042000 ",.02)
  1. ;;66484042000
  1. ;;9002226.02101,"889,66484042001 ",.01)
  1. ;;66484042001
  1. ;;9002226.02101,"889,66484042001 ",.02)
  1. ;;66484042001
  1. ;;9002226.02101,"889,66484042100 ",.01)
  1. ;;66484042100
  1. ;;9002226.02101,"889,66484042100 ",.02)
  1. ;;66484042100
  1. ;;9002226.02101,"889,66484042101 ",.01)
  1. ;;66484042101
  1. ;;9002226.02101,"889,66484042101 ",.02)
  1. ;;66484042101
  1. ;;9002226.02101,"889,66484042200 ",.01)
  1. ;;66484042200
  1. ;;9002226.02101,"889,66484042200 ",.02)
  1. ;;66484042200
  1. ;;9002226.02101,"889,66484042201 ",.01)
  1. ;;66484042201
  1. ;;9002226.02101,"889,66484042201 ",.02)
  1. ;;66484042201
  1. ;;9002226.02101,"889,66860009002 ",.01)
  1. ;;66860009002
  1. ;;9002226.02101,"889,66860009002 ",.02)
  1. ;;66860009002
  1. ;;9002226.02101,"889,67046003030 ",.01)
  1. ;;67046003030
  1. ;;9002226.02101,"889,67046003030 ",.02)
  1. ;;67046003030
  1. ;;9002226.02101,"889,67046003130 ",.01)
  1. ;;67046003130
  1. ;;9002226.02101,"889,67046003130 ",.02)
  1. ;;67046003130
  1. ;;9002226.02101,"889,67046047430 ",.01)
  1. ;;67046047430
  1. ;;9002226.02101,"889,67046047430 ",.02)
  1. ;;67046047430
  1. ;;9002226.02101,"889,67046047530 ",.01)
  1. ;;67046047530
  1. ;;9002226.02101,"889,67046047530 ",.02)
  1. ;;67046047530
  1. ;;9002226.02101,"889,67046047630 ",.01)
  1. ;;67046047630
  1. ;;9002226.02101,"889,67046047630 ",.02)
  1. ;;67046047630
  1. ;;9002226.02101,"889,67046047730 ",.01)
  1. ;;67046047730
  1. ;;9002226.02101,"889,67046047730 ",.02)
  1. ;;67046047730
  1. ;;9002226.02101,"889,67209039110 ",.01)
  1. ;;67209039110
  1. ;;9002226.02101,"889,67209039110 ",.02)
  1. ;;67209039110
  1. ;;9002226.02101,"889,67209039150 ",.01)
  1. ;;67209039150
  1. ;;9002226.02101,"889,67209039150 ",.02)
  1. ;;67209039150
  1. ;;9002226.02101,"889,67209039210 ",.01)
  1. ;;67209039210
  1. ;;9002226.02101,"889,67209039210 ",.02)
  1. ;;67209039210
  1. ;;9002226.02101,"889,67209039250 ",.01)
  1. ;;67209039250
  1. ;;9002226.02101,"889,67209039250 ",.02)
  1. ;;67209039250
  1. ;;9002226.02101,"889,67209039310 ",.01)
  1. ;;67209039310
  1. ;;9002226.02101,"889,67209039310 ",.02)
  1. ;;67209039310
  1. ;;9002226.02101,"889,67209039350 ",.01)
  1. ;;67209039350
  1. ;;9002226.02101,"889,67209039350 ",.02)
  1. ;;67209039350
  1. ;;9002226.02101,"889,67228001603 ",.01)
  1. ;;67228001603
  1. ;;9002226.02101,"889,67228001603 ",.02)
  1. ;;67228001603
  1. ;;9002226.02101,"889,67228001606 ",.01)
  1. ;;67228001606
  1. ;;9002226.02101,"889,67228001606 ",.02)
  1. ;;67228001606
  1. ;;9002226.02101,"889,67228007403 ",.01)
  1. ;;67228007403
  1. ;;9002226.02101,"889,67228007403 ",.02)
  1. ;;67228007403
  1. ;;9002226.02101,"889,67228007406 ",.01)
  1. ;;67228007406
  1. ;;9002226.02101,"889,67228007406 ",.02)
  1. ;;67228007406
  1. ;;9002226.02101,"889,67228007503 ",.01)
  1. ;;67228007503
  1. ;;9002226.02101,"889,67228007503 ",.02)
  1. ;;67228007503
  1. ;;9002226.02101,"889,67228007506 ",.01)
  1. ;;67228007506
  1. ;;9002226.02101,"889,67228007506 ",.02)
  1. ;;67228007506
  1. ;;9002226.02101,"889,67228009503 ",.01)
  1. ;;67228009503
  1. ;;9002226.02101,"889,67228009503 ",.02)
  1. ;;67228009503
  1. ;;9002226.02101,"889,67228009506 ",.01)
  1. ;;67228009506
  1. ;;9002226.02101,"889,67228009506 ",.02)
  1. ;;67228009506
  1. ;;9002226.02101,"889,67228028303 ",.01)
  1. ;;67228028303
  1. ;;9002226.02101,"889,67228028303 ",.02)
  1. ;;67228028303
  1. ;;9002226.02101,"889,67228028306 ",.01)
  1. ;;67228028306
  1. ;;9002226.02101,"889,67228028306 ",.02)
  1. ;;67228028306
  1. ;;9002226.02101,"889,67228028403 ",.01)
  1. ;;67228028403
  1. ;;9002226.02101,"889,67228028403 ",.02)
  1. ;;67228028403
  1. ;;9002226.02101,"889,67228028406 ",.01)
  1. ;;67228028406
  1. ;;9002226.02101,"889,67228028406 ",.02)
  1. ;;67228028406
  1. ;;9002226.02101,"889,67228028503 ",.01)
  1. ;;67228028503
  1. ;;9002226.02101,"889,67228028503 ",.02)
  1. ;;67228028503
  1. ;;9002226.02101,"889,67228028506 ",.01)
  1. ;;67228028506
  1. ;;9002226.02101,"889,67228028506 ",.02)
  1. ;;67228028506
  1. ;;9002226.02101,"889,67228028903 ",.01)
  1. ;;67228028903
  1. ;;9002226.02101,"889,67228028903 ",.02)
  1. ;;67228028903
  1. ;;9002226.02101,"889,67228028906 ",.01)
  1. ;;67228028906
  1. ;;9002226.02101,"889,67228028906 ",.02)
  1. ;;67228028906
  1. ;;9002226.02101,"889,67228031103 ",.01)
  1. ;;67228031103
  1. ;;9002226.02101,"889,67228031103 ",.02)
  1. ;;67228031103
  1. ;;9002226.02101,"889,67228031106 ",.01)
  1. ;;67228031106
  1. ;;9002226.02101,"889,67228031106 ",.02)
  1. ;;67228031106
  1. ;;9002226.02101,"889,67228034403 ",.01)
  1. ;;67228034403
  1. ;;9002226.02101,"889,67228034403 ",.02)
  1. ;;67228034403
  1. ;;9002226.02101,"889,67228034406 ",.01)
  1. ;;67228034406
  1. ;;9002226.02101,"889,67228034406 ",.02)
  1. ;;67228034406
  1. ;;9002226.02101,"889,67228036603 ",.01)
  1. ;;67228036603
  1. ;;9002226.02101,"889,67228036603 ",.02)
  1. ;;67228036603
  1. ;;9002226.02101,"889,67228036606 ",.01)
  1. ;;67228036606
  1. ;;9002226.02101,"889,67228036606 ",.02)
  1. ;;67228036606
  1. ;;9002226.02101,"889,67228037503 ",.01)
  1. ;;67228037503
  1. ;;9002226.02101,"889,67228037503 ",.02)
  1. ;;67228037503
  1. ;;9002226.02101,"889,67228037506 ",.01)
  1. ;;67228037506
  1. ;;9002226.02101,"889,67228037506 ",.02)
  1. ;;67228037506
  1. ;;9002226.02101,"889,67228041403 ",.01)
  1. ;;67228041403
  1. ;;9002226.02101,"889,67228041403 ",.02)
  1. ;;67228041403
  1. ;;9002226.02101,"889,67228041406 ",.01)
  1. ;;67228041406
  1. ;;9002226.02101,"889,67228041406 ",.02)
  1. ;;67228041406
  1. ;;9002226.02101,"889,67228042103 ",.01)
  1. ;;67228042103
  1. ;;9002226.02101,"889,67228042103 ",.02)
  1. ;;67228042103
  1. ;;9002226.02101,"889,67228042106 ",.01)
  1. ;;67228042106
  1. ;;9002226.02101,"889,67228042106 ",.02)
  1. ;;67228042106
  1. ;;9002226.02101,"889,67228043603 ",.01)
  1. ;;67228043603
  1. ;;9002226.02101,"889,67228043603 ",.02)
  1. ;;67228043603
  1. ;;9002226.02101,"889,67228043606 ",.01)
  1. ;;67228043606
  1. ;;9002226.02101,"889,67228043606 ",.02)
  1. ;;67228043606
  1. ;;9002226.02101,"889,67253042009 ",.01)
  1. ;;67253042009
  1. ;;9002226.02101,"889,67253042009 ",.02)
  1. ;;67253042009
  1. ;;9002226.02101,"889,67253042010 ",.01)
  1. ;;67253042010
  1. ;;9002226.02101,"889,67253042010 ",.02)
  1. ;;67253042010
  1. ;;9002226.02101,"889,67253042011 ",.01)
  1. ;;67253042011
  1. ;;9002226.02101,"889,67253042011 ",.02)
  1. ;;67253042011
  1. ;;9002226.02101,"889,67253042109 ",.01)
  1. ;;67253042109
  1. ;;9002226.02101,"889,67253042109 ",.02)
  1. ;;67253042109
  1. ;;9002226.02101,"889,67253042110 ",.01)
  1. ;;67253042110
  1. ;;9002226.02101,"889,67253042110 ",.02)
  1. ;;67253042110
  1. ;;9002226.02101,"889,67253042111 ",.01)
  1. ;;67253042111
  1. ;;9002226.02101,"889,67253042111 ",.02)
  1. ;;67253042111
  1. ;;9002226.02101,"889,67253042209 ",.01)
  1. ;;67253042209
  1. ;;9002226.02101,"889,67253042209 ",.02)
  1. ;;67253042209
  1. ;;9002226.02101,"889,67253042210 ",.01)
  1. ;;67253042210
  1. ;;9002226.02101,"889,67253042210 ",.02)
  1. ;;67253042210
  1. ;;9002226.02101,"889,67253042211 ",.01)
  1. ;;67253042211
  1. ;;9002226.02101,"889,67253042211 ",.02)
  1. ;;67253042211
  1. ;;9002226.02101,"889,67263039901 ",.01)
  1. ;;67263039901
  1. ;;9002226.02101,"889,67263039901 ",.02)
  1. ;;67263039901
  1. ;;9002226.02101,"889,67296012101 ",.01)
  1. ;;67296012101
  1. ;;9002226.02101,"889,67296012101 ",.02)
  1. ;;67296012101
  1. ;;9002226.02101,"889,67296022901 ",.01)
  1. ;;67296022901
  1. ;;9002226.02101,"889,67296022901 ",.02)
  1. ;;67296022901
  1. ;;9002226.02101,"889,67296025901 ",.01)
  1. ;;67296025901
  1. ;;9002226.02101,"889,67296025901 ",.02)
  1. ;;67296025901
  1. ;;9002226.02101,"889,67544004330 ",.01)
  1. ;;67544004330
  1. ;;9002226.02101,"889,67544004330 ",.02)
  1. ;;67544004330
  1. ;;9002226.02101,"889,67544004332 ",.01)
  1. ;;67544004332
  1. ;;9002226.02101,"889,67544004332 ",.02)
  1. ;;67544004332
  1. ;;9002226.02101,"889,67544004353 ",.01)
  1. ;;67544004353
  1. ;;9002226.02101,"889,67544004353 ",.02)
  1. ;;67544004353