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

BGPM5AKY.m

Go to the documentation of this file.
  1. BGPM5AKY ;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,"885,47682015213 ",.02)
  1. ;;47682015213
  1. ;;9002226.02101,"885,47682022813 ",.01)
  1. ;;47682022813
  1. ;;9002226.02101,"885,47682022813 ",.02)
  1. ;;47682022813
  1. ;;9002226.02101,"885,47682022833 ",.01)
  1. ;;47682022833
  1. ;;9002226.02101,"885,47682022833 ",.02)
  1. ;;47682022833
  1. ;;9002226.02101,"885,47682022847 ",.01)
  1. ;;47682022847
  1. ;;9002226.02101,"885,47682022847 ",.02)
  1. ;;47682022847
  1. ;;9002226.02101,"885,47682022864 ",.01)
  1. ;;47682022864
  1. ;;9002226.02101,"885,47682022864 ",.02)
  1. ;;47682022864
  1. ;;9002226.02101,"885,47682022869 ",.01)
  1. ;;47682022869
  1. ;;9002226.02101,"885,47682022869 ",.02)
  1. ;;47682022869
  1. ;;9002226.02101,"885,47682022899 ",.01)
  1. ;;47682022899
  1. ;;9002226.02101,"885,47682022899 ",.02)
  1. ;;47682022899
  1. ;;9002226.02101,"885,47682080513 ",.01)
  1. ;;47682080513
  1. ;;9002226.02101,"885,47682080513 ",.02)
  1. ;;47682080513
  1. ;;9002226.02101,"885,47682080533 ",.01)
  1. ;;47682080533
  1. ;;9002226.02101,"885,47682080533 ",.02)
  1. ;;47682080533
  1. ;;9002226.02101,"885,47682080548 ",.01)
  1. ;;47682080548
  1. ;;9002226.02101,"885,47682080548 ",.02)
  1. ;;47682080548
  1. ;;9002226.02101,"885,47682080599 ",.01)
  1. ;;47682080599
  1. ;;9002226.02101,"885,47682080599 ",.02)
  1. ;;47682080599
  1. ;;9002226.02101,"885,47682080613 ",.01)
  1. ;;47682080613
  1. ;;9002226.02101,"885,47682080613 ",.02)
  1. ;;47682080613
  1. ;;9002226.02101,"885,47682080633 ",.01)
  1. ;;47682080633
  1. ;;9002226.02101,"885,47682080633 ",.02)
  1. ;;47682080633
  1. ;;9002226.02101,"885,47682080648 ",.01)
  1. ;;47682080648
  1. ;;9002226.02101,"885,47682080648 ",.02)
  1. ;;47682080648
  1. ;;9002226.02101,"885,47682080699 ",.01)
  1. ;;47682080699
  1. ;;9002226.02101,"885,47682080699 ",.02)
  1. ;;47682080699
  1. ;;9002226.02101,"885,47682090533 ",.01)
  1. ;;47682090533
  1. ;;9002226.02101,"885,47682090533 ",.02)
  1. ;;47682090533
  1. ;;9002226.02101,"885,47682090548 ",.01)
  1. ;;47682090548
  1. ;;9002226.02101,"885,47682090548 ",.02)
  1. ;;47682090548
  1. ;;9002226.02101,"885,47682090633 ",.01)
  1. ;;47682090633
  1. ;;9002226.02101,"885,47682090633 ",.02)
  1. ;;47682090633
  1. ;;9002226.02101,"885,47682090648 ",.01)
  1. ;;47682090648
  1. ;;9002226.02101,"885,47682090648 ",.02)
  1. ;;47682090648
  1. ;;9002226.02101,"885,47862045544 ",.01)
  1. ;;47862045544
  1. ;;9002226.02101,"885,47862045544 ",.02)
  1. ;;47862045544
  1. ;;9002226.02101,"885,49035015908 ",.01)
  1. ;;49035015908
  1. ;;9002226.02101,"885,49035015908 ",.02)
  1. ;;49035015908
  1. ;;9002226.02101,"885,49035015912 ",.01)
  1. ;;49035015912
  1. ;;9002226.02101,"885,49035015912 ",.02)
  1. ;;49035015912
  1. ;;9002226.02101,"885,49035027423 ",.01)
  1. ;;49035027423
  1. ;;9002226.02101,"885,49035027423 ",.02)
  1. ;;49035027423
  1. ;;9002226.02101,"885,49035027468 ",.01)
  1. ;;49035027468
  1. ;;9002226.02101,"885,49035027468 ",.02)
  1. ;;49035027468
  1. ;;9002226.02101,"885,49035041412 ",.01)
  1. ;;49035041412
  1. ;;9002226.02101,"885,49035041412 ",.02)
  1. ;;49035041412
  1. ;;9002226.02101,"885,49035053587 ",.01)
  1. ;;49035053587
  1. ;;9002226.02101,"885,49035053587 ",.02)
  1. ;;49035053587
  1. ;;9002226.02101,"885,49035056317 ",.01)
  1. ;;49035056317
  1. ;;9002226.02101,"885,49035056317 ",.02)
  1. ;;49035056317
  1. ;;9002226.02101,"885,49035056332 ",.01)
  1. ;;49035056332
  1. ;;9002226.02101,"885,49035056332 ",.02)
  1. ;;49035056332
  1. ;;9002226.02101,"885,49348000110 ",.01)
  1. ;;49348000110
  1. ;;9002226.02101,"885,49348000110 ",.02)
  1. ;;49348000110
  1. ;;9002226.02101,"885,49348000114 ",.01)
  1. ;;49348000114
  1. ;;9002226.02101,"885,49348000114 ",.02)
  1. ;;49348000114
  1. ;;9002226.02101,"885,49348000119 ",.01)
  1. ;;49348000119
  1. ;;9002226.02101,"885,49348000119 ",.02)
  1. ;;49348000119
  1. ;;9002226.02101,"885,49348000123 ",.01)
  1. ;;49348000123
  1. ;;9002226.02101,"885,49348000123 ",.02)
  1. ;;49348000123
  1. ;;9002226.02101,"885,49348000645 ",.01)
  1. ;;49348000645
  1. ;;9002226.02101,"885,49348000645 ",.02)
  1. ;;49348000645
  1. ;;9002226.02101,"885,49348003410 ",.01)
  1. ;;49348003410
  1. ;;9002226.02101,"885,49348003410 ",.02)
  1. ;;49348003410
  1. ;;9002226.02101,"885,49348003414 ",.01)
  1. ;;49348003414
  1. ;;9002226.02101,"885,49348003414 ",.02)
  1. ;;49348003414
  1. ;;9002226.02101,"885,49348003419 ",.01)
  1. ;;49348003419
  1. ;;9002226.02101,"885,49348003419 ",.02)
  1. ;;49348003419
  1. ;;9002226.02101,"885,49348003423 ",.01)
  1. ;;49348003423
  1. ;;9002226.02101,"885,49348003423 ",.02)
  1. ;;49348003423
  1. ;;9002226.02101,"885,49348003453 ",.01)
  1. ;;49348003453
  1. ;;9002226.02101,"885,49348003453 ",.02)
  1. ;;49348003453
  1. ;;9002226.02101,"885,49348003482 ",.01)
  1. ;;49348003482
  1. ;;9002226.02101,"885,49348003482 ",.02)
  1. ;;49348003482
  1. ;;9002226.02101,"885,49348019107 ",.01)
  1. ;;49348019107
  1. ;;9002226.02101,"885,49348019107 ",.02)
  1. ;;49348019107
  1. ;;9002226.02101,"885,49348028314 ",.01)
  1. ;;49348028314
  1. ;;9002226.02101,"885,49348028314 ",.02)
  1. ;;49348028314
  1. ;;9002226.02101,"885,49348028423 ",.01)
  1. ;;49348028423
  1. ;;9002226.02101,"885,49348028423 ",.02)
  1. ;;49348028423
  1. ;;9002226.02101,"885,49348049807 ",.01)
  1. ;;49348049807
  1. ;;9002226.02101,"885,49348049807 ",.02)
  1. ;;49348049807
  1. ;;9002226.02101,"885,49348050610 ",.01)
  1. ;;49348050610
  1. ;;9002226.02101,"885,49348050610 ",.02)
  1. ;;49348050610
  1. ;;9002226.02101,"885,49348065315 ",.01)
  1. ;;49348065315
  1. ;;9002226.02101,"885,49348065315 ",.02)
  1. ;;49348065315
  1. ;;9002226.02101,"885,49348071010 ",.01)
  1. ;;49348071010
  1. ;;9002226.02101,"885,49348071010 ",.02)
  1. ;;49348071010
  1. ;;9002226.02101,"885,49348072210 ",.01)
  1. ;;49348072210
  1. ;;9002226.02101,"885,49348072210 ",.02)
  1. ;;49348072210
  1. ;;9002226.02101,"885,49348075615 ",.01)
  1. ;;49348075615
  1. ;;9002226.02101,"885,49348075615 ",.02)
  1. ;;49348075615
  1. ;;9002226.02101,"885,49348075623 ",.01)
  1. ;;49348075623
  1. ;;9002226.02101,"885,49348075623 ",.02)
  1. ;;49348075623
  1. ;;9002226.02101,"885,49348075653 ",.01)
  1. ;;49348075653
  1. ;;9002226.02101,"885,49348075653 ",.02)
  1. ;;49348075653
  1. ;;9002226.02101,"885,49348075707 ",.01)
  1. ;;49348075707
  1. ;;9002226.02101,"885,49348075707 ",.02)
  1. ;;49348075707
  1. ;;9002226.02101,"885,49348093714 ",.01)
  1. ;;49348093714
  1. ;;9002226.02101,"885,49348093714 ",.02)
  1. ;;49348093714
  1. ;;9002226.02101,"885,49348093782 ",.01)
  1. ;;49348093782
  1. ;;9002226.02101,"885,49348093782 ",.02)
  1. ;;49348093782
  1. ;;9002226.02101,"885,49483000201 ",.01)
  1. ;;49483000201
  1. ;;9002226.02101,"885,49483000201 ",.02)
  1. ;;49483000201
  1. ;;9002226.02101,"885,49483000210 ",.01)
  1. ;;49483000210
  1. ;;9002226.02101,"885,49483000210 ",.02)
  1. ;;49483000210
  1. ;;9002226.02101,"885,49483001101 ",.01)
  1. ;;49483001101
  1. ;;9002226.02101,"885,49483001101 ",.02)
  1. ;;49483001101
  1. ;;9002226.02101,"885,49483001110 ",.01)
  1. ;;49483001110
  1. ;;9002226.02101,"885,49483001110 ",.02)
  1. ;;49483001110
  1. ;;9002226.02101,"885,49483002510 ",.01)
  1. ;;49483002510
  1. ;;9002226.02101,"885,49483002510 ",.02)
  1. ;;49483002510
  1. ;;9002226.02101,"885,49483002512 ",.01)
  1. ;;49483002512
  1. ;;9002226.02101,"885,49483002512 ",.02)
  1. ;;49483002512
  1. ;;9002226.02101,"885,49483003201 ",.01)
  1. ;;49483003201
  1. ;;9002226.02101,"885,49483003201 ",.02)
  1. ;;49483003201
  1. ;;9002226.02101,"885,49483003210 ",.01)
  1. ;;49483003210
  1. ;;9002226.02101,"885,49483003210 ",.02)
  1. ;;49483003210
  1. ;;9002226.02101,"885,49483005201 ",.01)
  1. ;;49483005201
  1. ;;9002226.02101,"885,49483005201 ",.02)
  1. ;;49483005201
  1. ;;9002226.02101,"885,49483005210 ",.01)
  1. ;;49483005210
  1. ;;9002226.02101,"885,49483005210 ",.02)
  1. ;;49483005210
  1. ;;9002226.02101,"885,49483022401 ",.01)
  1. ;;49483022401
  1. ;;9002226.02101,"885,49483022401 ",.02)
  1. ;;49483022401
  1. ;;9002226.02101,"885,49483022405 ",.01)
  1. ;;49483022405
  1. ;;9002226.02101,"885,49483022405 ",.02)
  1. ;;49483022405
  1. ;;9002226.02101,"885,49483022410 ",.01)
  1. ;;49483022410
  1. ;;9002226.02101,"885,49483022410 ",.02)
  1. ;;49483022410
  1. ;;9002226.02101,"885,49483032801 ",.01)
  1. ;;49483032801
  1. ;;9002226.02101,"885,49483032801 ",.02)
  1. ;;49483032801
  1. ;;9002226.02101,"885,49483032810 ",.01)
  1. ;;49483032810
  1. ;;9002226.02101,"885,49483032810 ",.02)
  1. ;;49483032810
  1. ;;9002226.02101,"885,49483033100 ",.01)
  1. ;;49483033100
  1. ;;9002226.02101,"885,49483033100 ",.02)
  1. ;;49483033100
  1. ;;9002226.02101,"885,49483033101 ",.01)
  1. ;;49483033101
  1. ;;9002226.02101,"885,49483033101 ",.02)
  1. ;;49483033101
  1. ;;9002226.02101,"885,49483033400 ",.01)
  1. ;;49483033400
  1. ;;9002226.02101,"885,49483033400 ",.02)
  1. ;;49483033400
  1. ;;9002226.02101,"885,49483033463 ",.01)
  1. ;;49483033463
  1. ;;9002226.02101,"885,49483033463 ",.02)
  1. ;;49483033463
  1. ;;9002226.02101,"885,49483034900 ",.01)
  1. ;;49483034900
  1. ;;9002226.02101,"885,49483034900 ",.02)
  1. ;;49483034900
  1. ;;9002226.02101,"885,49483038110 ",.01)
  1. ;;49483038110
  1. ;;9002226.02101,"885,49483038110 ",.02)
  1. ;;49483038110
  1. ;;9002226.02101,"885,49483038112 ",.01)
  1. ;;49483038112
  1. ;;9002226.02101,"885,49483038112 ",.02)
  1. ;;49483038112
  1. ;;9002226.02101,"885,49483038700 ",.01)
  1. ;;49483038700
  1. ;;9002226.02101,"885,49483038700 ",.02)
  1. ;;49483038700
  1. ;;9002226.02101,"885,49483038710 ",.01)
  1. ;;49483038710
  1. ;;9002226.02101,"885,49483038710 ",.02)
  1. ;;49483038710
  1. ;;9002226.02101,"885,49483038712 ",.01)
  1. ;;49483038712
  1. ;;9002226.02101,"885,49483038712 ",.02)
  1. ;;49483038712
  1. ;;9002226.02101,"885,49483039000 ",.01)
  1. ;;49483039000
  1. ;;9002226.02101,"885,49483039000 ",.02)
  1. ;;49483039000
  1. ;;9002226.02101,"885,49614011378 ",.01)
  1. ;;49614011378
  1. ;;9002226.02101,"885,49614011378 ",.02)
  1. ;;49614011378
  1. ;;9002226.02101,"885,49614011385 ",.01)
  1. ;;49614011385
  1. ;;9002226.02101,"885,49614011385 ",.02)
  1. ;;49614011385
  1. ;;9002226.02101,"885,49614046768 ",.01)
  1. ;;49614046768
  1. ;;9002226.02101,"885,49614046768 ",.02)
  1. ;;49614046768
  1. ;;9002226.02101,"885,49692090120 ",.01)
  1. ;;49692090120
  1. ;;9002226.02101,"885,49692090120 ",.02)
  1. ;;49692090120
  1. ;;9002226.02101,"885,49692090123 ",.01)
  1. ;;49692090123
  1. ;;9002226.02101,"885,49692090123 ",.02)
  1. ;;49692090123
  1. ;;9002226.02101,"885,49692090350 ",.01)
  1. ;;49692090350
  1. ;;9002226.02101,"885,49692090350 ",.02)
  1. ;;49692090350
  1. ;;9002226.02101,"885,49692090360 ",.01)
  1. ;;49692090360
  1. ;;9002226.02101,"885,49692090360 ",.02)
  1. ;;49692090360
  1. ;;9002226.02101,"885,49692090378 ",.01)
  1. ;;49692090378
  1. ;;9002226.02101,"885,49692090378 ",.02)
  1. ;;49692090378
  1. ;;9002226.02101,"885,49692090380 ",.01)
  1. ;;49692090380
  1. ;;9002226.02101,"885,49692090380 ",.02)
  1. ;;49692090380
  1. ;;9002226.02101,"885,49692090950 ",.01)
  1. ;;49692090950
  1. ;;9002226.02101,"885,49692090950 ",.02)
  1. ;;49692090950
  1. ;;9002226.02101,"885,49738046768 ",.01)
  1. ;;49738046768
  1. ;;9002226.02101,"885,49738046768 ",.02)
  1. ;;49738046768
  1. ;;9002226.02101,"885,49848000190 ",.01)
  1. ;;49848000190
  1. ;;9002226.02101,"885,49848000190 ",.02)
  1. ;;49848000190
  1. ;;9002226.02101,"885,49848000260 ",.01)
  1. ;;49848000260
  1. ;;9002226.02101,"885,49848000260 ",.02)
  1. ;;49848000260
  1. ;;9002226.02101,"885,49884065701 ",.01)
  1. ;;49884065701
  1. ;;9002226.02101,"885,49884065701 ",.02)
  1. ;;49884065701
  1. ;;9002226.02101,"885,49999011520 ",.01)
  1. ;;49999011520
  1. ;;9002226.02101,"885,49999011520 ",.02)
  1. ;;49999011520
  1. ;;9002226.02101,"885,49999011530 ",.01)
  1. ;;49999011530
  1. ;;9002226.02101,"885,49999011530 ",.02)
  1. ;;49999011530
  1. ;;9002226.02101,"885,49999011560 ",.01)
  1. ;;49999011560
  1. ;;9002226.02101,"885,49999011560 ",.02)
  1. ;;49999011560
  1. ;;9002226.02101,"885,49999035930 ",.01)
  1. ;;49999035930
  1. ;;9002226.02101,"885,49999035930 ",.02)
  1. ;;49999035930
  1. ;;9002226.02101,"885,49999040230 ",.01)
  1. ;;49999040230
  1. ;;9002226.02101,"885,49999040230 ",.02)
  1. ;;49999040230
  1. ;;9002226.02101,"885,49999040290 ",.01)
  1. ;;49999040290
  1. ;;9002226.02101,"885,49999040290 ",.02)
  1. ;;49999040290
  1. ;;9002226.02101,"885,49999081300 ",.01)
  1. ;;49999081300
  1. ;;9002226.02101,"885,49999081300 ",.02)
  1. ;;49999081300
  1. ;;9002226.02101,"885,49999081330 ",.01)
  1. ;;49999081330
  1. ;;9002226.02101,"885,49999081330 ",.02)
  1. ;;49999081330
  1. ;;9002226.02101,"885,49999091960 ",.01)
  1. ;;49999091960
  1. ;;9002226.02101,"885,49999091960 ",.02)
  1. ;;49999091960
  1. ;;9002226.02101,"885,50428126148 ",.01)
  1. ;;50428126148