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

BGPM5APG.m

Go to the documentation of this file.
BGPM5APG ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 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,"998,47682009899 ",.02)
 ;;47682009899
 ;;9002226.02101,"998,47682009933 ",.01)
 ;;47682009933
 ;;9002226.02101,"998,47682009933 ",.02)
 ;;47682009933
 ;;9002226.02101,"998,47682009948 ",.01)
 ;;47682009948
 ;;9002226.02101,"998,47682009948 ",.02)
 ;;47682009948
 ;;9002226.02101,"998,47682010433 ",.01)
 ;;47682010433
 ;;9002226.02101,"998,47682010433 ",.02)
 ;;47682010433
 ;;9002226.02101,"998,47682010613 ",.01)
 ;;47682010613
 ;;9002226.02101,"998,47682010613 ",.02)
 ;;47682010613
 ;;9002226.02101,"998,47682010633 ",.01)
 ;;47682010633
 ;;9002226.02101,"998,47682010633 ",.02)
 ;;47682010633
 ;;9002226.02101,"998,47682011613 ",.01)
 ;;47682011613
 ;;9002226.02101,"998,47682011613 ",.02)
 ;;47682011613
 ;;9002226.02101,"998,47682011647 ",.01)
 ;;47682011647
 ;;9002226.02101,"998,47682011647 ",.02)
 ;;47682011647
 ;;9002226.02101,"998,47682011664 ",.01)
 ;;47682011664
 ;;9002226.02101,"998,47682011664 ",.02)
 ;;47682011664
 ;;9002226.02101,"998,47682011699 ",.01)
 ;;47682011699
 ;;9002226.02101,"998,47682011699 ",.02)
 ;;47682011699
 ;;9002226.02101,"998,47682011913 ",.01)
 ;;47682011913
 ;;9002226.02101,"998,47682011913 ",.02)
 ;;47682011913
 ;;9002226.02101,"998,47682011936 ",.01)
 ;;47682011936
 ;;9002226.02101,"998,47682011936 ",.02)
 ;;47682011936
 ;;9002226.02101,"998,47682011948 ",.01)
 ;;47682011948
 ;;9002226.02101,"998,47682011948 ",.02)
 ;;47682011948
 ;;9002226.02101,"998,47682011999 ",.01)
 ;;47682011999
 ;;9002226.02101,"998,47682011999 ",.02)
 ;;47682011999
 ;;9002226.02101,"998,47682015113 ",.01)
 ;;47682015113
 ;;9002226.02101,"998,47682015113 ",.02)
 ;;47682015113
 ;;9002226.02101,"998,47682015213 ",.01)
 ;;47682015213
 ;;9002226.02101,"998,47682015213 ",.02)
 ;;47682015213
 ;;9002226.02101,"998,47682080513 ",.01)
 ;;47682080513
 ;;9002226.02101,"998,47682080513 ",.02)
 ;;47682080513
 ;;9002226.02101,"998,47682080533 ",.01)
 ;;47682080533
 ;;9002226.02101,"998,47682080533 ",.02)
 ;;47682080533
 ;;9002226.02101,"998,47682080548 ",.01)
 ;;47682080548
 ;;9002226.02101,"998,47682080548 ",.02)
 ;;47682080548
 ;;9002226.02101,"998,47682080599 ",.01)
 ;;47682080599
 ;;9002226.02101,"998,47682080599 ",.02)
 ;;47682080599
 ;;9002226.02101,"998,47682080613 ",.01)
 ;;47682080613
 ;;9002226.02101,"998,47682080613 ",.02)
 ;;47682080613
 ;;9002226.02101,"998,47682080633 ",.01)
 ;;47682080633
 ;;9002226.02101,"998,47682080633 ",.02)
 ;;47682080633
 ;;9002226.02101,"998,47682080648 ",.01)
 ;;47682080648
 ;;9002226.02101,"998,47682080648 ",.02)
 ;;47682080648
 ;;9002226.02101,"998,47682080699 ",.01)
 ;;47682080699
 ;;9002226.02101,"998,47682080699 ",.02)
 ;;47682080699
 ;;9002226.02101,"998,47682090533 ",.01)
 ;;47682090533
 ;;9002226.02101,"998,47682090533 ",.02)
 ;;47682090533
 ;;9002226.02101,"998,47682090548 ",.01)
 ;;47682090548
 ;;9002226.02101,"998,47682090548 ",.02)
 ;;47682090548
 ;;9002226.02101,"998,47682090633 ",.01)
 ;;47682090633
 ;;9002226.02101,"998,47682090633 ",.02)
 ;;47682090633
 ;;9002226.02101,"998,47682090648 ",.01)
 ;;47682090648
 ;;9002226.02101,"998,47682090648 ",.02)
 ;;47682090648
 ;;9002226.02101,"998,49035027423 ",.01)
 ;;49035027423
 ;;9002226.02101,"998,49035027423 ",.02)
 ;;49035027423
 ;;9002226.02101,"998,49035027468 ",.01)
 ;;49035027468
 ;;9002226.02101,"998,49035027468 ",.02)
 ;;49035027468
 ;;9002226.02101,"998,49035041412 ",.01)
 ;;49035041412
 ;;9002226.02101,"998,49035041412 ",.02)
 ;;49035041412
 ;;9002226.02101,"998,49035053587 ",.01)
 ;;49035053587
 ;;9002226.02101,"998,49035053587 ",.02)
 ;;49035053587
 ;;9002226.02101,"998,49035056317 ",.01)
 ;;49035056317
 ;;9002226.02101,"998,49035056317 ",.02)
 ;;49035056317
 ;;9002226.02101,"998,49035056332 ",.01)
 ;;49035056332
 ;;9002226.02101,"998,49035056332 ",.02)
 ;;49035056332
 ;;9002226.02101,"998,49348000110 ",.01)
 ;;49348000110
 ;;9002226.02101,"998,49348000110 ",.02)
 ;;49348000110
 ;;9002226.02101,"998,49348000114 ",.01)
 ;;49348000114
 ;;9002226.02101,"998,49348000114 ",.02)
 ;;49348000114
 ;;9002226.02101,"998,49348000119 ",.01)
 ;;49348000119
 ;;9002226.02101,"998,49348000119 ",.02)
 ;;49348000119
 ;;9002226.02101,"998,49348000123 ",.01)
 ;;49348000123
 ;;9002226.02101,"998,49348000123 ",.02)
 ;;49348000123
 ;;9002226.02101,"998,49348000645 ",.01)
 ;;49348000645
 ;;9002226.02101,"998,49348000645 ",.02)
 ;;49348000645
 ;;9002226.02101,"998,49348003410 ",.01)
 ;;49348003410
 ;;9002226.02101,"998,49348003410 ",.02)
 ;;49348003410
 ;;9002226.02101,"998,49348003414 ",.01)
 ;;49348003414
 ;;9002226.02101,"998,49348003414 ",.02)
 ;;49348003414
 ;;9002226.02101,"998,49348003419 ",.01)
 ;;49348003419
 ;;9002226.02101,"998,49348003419 ",.02)
 ;;49348003419
 ;;9002226.02101,"998,49348003423 ",.01)
 ;;49348003423
 ;;9002226.02101,"998,49348003423 ",.02)
 ;;49348003423
 ;;9002226.02101,"998,49348003453 ",.01)
 ;;49348003453
 ;;9002226.02101,"998,49348003453 ",.02)
 ;;49348003453
 ;;9002226.02101,"998,49348003482 ",.01)
 ;;49348003482
 ;;9002226.02101,"998,49348003482 ",.02)
 ;;49348003482
 ;;9002226.02101,"998,49348019107 ",.01)
 ;;49348019107
 ;;9002226.02101,"998,49348019107 ",.02)
 ;;49348019107
 ;;9002226.02101,"998,49348028314 ",.01)
 ;;49348028314
 ;;9002226.02101,"998,49348028314 ",.02)
 ;;49348028314
 ;;9002226.02101,"998,49348028423 ",.01)
 ;;49348028423
 ;;9002226.02101,"998,49348028423 ",.02)
 ;;49348028423
 ;;9002226.02101,"998,49348049807 ",.01)
 ;;49348049807
 ;;9002226.02101,"998,49348049807 ",.02)
 ;;49348049807
 ;;9002226.02101,"998,49348065315 ",.01)
 ;;49348065315
 ;;9002226.02101,"998,49348065315 ",.02)
 ;;49348065315
 ;;9002226.02101,"998,49348075615 ",.01)
 ;;49348075615
 ;;9002226.02101,"998,49348075615 ",.02)
 ;;49348075615
 ;;9002226.02101,"998,49348075623 ",.01)
 ;;49348075623
 ;;9002226.02101,"998,49348075623 ",.02)
 ;;49348075623
 ;;9002226.02101,"998,49348075653 ",.01)
 ;;49348075653
 ;;9002226.02101,"998,49348075653 ",.02)
 ;;49348075653
 ;;9002226.02101,"998,49348075707 ",.01)
 ;;49348075707
 ;;9002226.02101,"998,49348075707 ",.02)
 ;;49348075707
 ;;9002226.02101,"998,49348078412 ",.01)
 ;;49348078412
 ;;9002226.02101,"998,49348078412 ",.02)
 ;;49348078412
 ;;9002226.02101,"998,49348093714 ",.01)
 ;;49348093714
 ;;9002226.02101,"998,49348093714 ",.02)
 ;;49348093714
 ;;9002226.02101,"998,49348093782 ",.01)
 ;;49348093782
 ;;9002226.02101,"998,49348093782 ",.02)
 ;;49348093782
 ;;9002226.02101,"998,49483000201 ",.01)
 ;;49483000201
 ;;9002226.02101,"998,49483000201 ",.02)
 ;;49483000201
 ;;9002226.02101,"998,49483000210 ",.01)
 ;;49483000210
 ;;9002226.02101,"998,49483000210 ",.02)
 ;;49483000210
 ;;9002226.02101,"998,49483001101 ",.01)
 ;;49483001101
 ;;9002226.02101,"998,49483001101 ",.02)
 ;;49483001101
 ;;9002226.02101,"998,49483001110 ",.01)
 ;;49483001110
 ;;9002226.02101,"998,49483001110 ",.02)
 ;;49483001110
 ;;9002226.02101,"998,49483002510 ",.01)
 ;;49483002510
 ;;9002226.02101,"998,49483002510 ",.02)
 ;;49483002510
 ;;9002226.02101,"998,49483002512 ",.01)
 ;;49483002512
 ;;9002226.02101,"998,49483002512 ",.02)
 ;;49483002512
 ;;9002226.02101,"998,49483003201 ",.01)
 ;;49483003201
 ;;9002226.02101,"998,49483003201 ",.02)
 ;;49483003201
 ;;9002226.02101,"998,49483003210 ",.01)
 ;;49483003210
 ;;9002226.02101,"998,49483003210 ",.02)
 ;;49483003210
 ;;9002226.02101,"998,49483005201 ",.01)
 ;;49483005201
 ;;9002226.02101,"998,49483005201 ",.02)
 ;;49483005201
 ;;9002226.02101,"998,49483005210 ",.01)
 ;;49483005210
 ;;9002226.02101,"998,49483005210 ",.02)
 ;;49483005210
 ;;9002226.02101,"998,49483022401 ",.01)
 ;;49483022401
 ;;9002226.02101,"998,49483022401 ",.02)
 ;;49483022401
 ;;9002226.02101,"998,49483022405 ",.01)
 ;;49483022405
 ;;9002226.02101,"998,49483022405 ",.02)
 ;;49483022405
 ;;9002226.02101,"998,49483022410 ",.01)
 ;;49483022410
 ;;9002226.02101,"998,49483022410 ",.02)
 ;;49483022410
 ;;9002226.02101,"998,49483032801 ",.01)
 ;;49483032801
 ;;9002226.02101,"998,49483032801 ",.02)
 ;;49483032801
 ;;9002226.02101,"998,49483032810 ",.01)
 ;;49483032810
 ;;9002226.02101,"998,49483032810 ",.02)
 ;;49483032810
 ;;9002226.02101,"998,49483033100 ",.01)
 ;;49483033100
 ;;9002226.02101,"998,49483033100 ",.02)
 ;;49483033100
 ;;9002226.02101,"998,49483033101 ",.01)
 ;;49483033101
 ;;9002226.02101,"998,49483033101 ",.02)
 ;;49483033101
 ;;9002226.02101,"998,49483033400 ",.01)
 ;;49483033400
 ;;9002226.02101,"998,49483033400 ",.02)
 ;;49483033400
 ;;9002226.02101,"998,49483033463 ",.01)
 ;;49483033463
 ;;9002226.02101,"998,49483033463 ",.02)
 ;;49483033463
 ;;9002226.02101,"998,49483034900 ",.01)
 ;;49483034900
 ;;9002226.02101,"998,49483034900 ",.02)
 ;;49483034900
 ;;9002226.02101,"998,49483038110 ",.01)
 ;;49483038110
 ;;9002226.02101,"998,49483038110 ",.02)
 ;;49483038110
 ;;9002226.02101,"998,49483038112 ",.01)
 ;;49483038112
 ;;9002226.02101,"998,49483038112 ",.02)
 ;;49483038112
 ;;9002226.02101,"998,49483038700 ",.01)
 ;;49483038700
 ;;9002226.02101,"998,49483038700 ",.02)
 ;;49483038700
 ;;9002226.02101,"998,49483038710 ",.01)
 ;;49483038710
 ;;9002226.02101,"998,49483038710 ",.02)
 ;;49483038710
 ;;9002226.02101,"998,49483038712 ",.01)
 ;;49483038712
 ;;9002226.02101,"998,49483038712 ",.02)
 ;;49483038712
 ;;9002226.02101,"998,49483039000 ",.01)
 ;;49483039000
 ;;9002226.02101,"998,49483039000 ",.02)
 ;;49483039000
 ;;9002226.02101,"998,49614011378 ",.01)
 ;;49614011378
 ;;9002226.02101,"998,49614011378 ",.02)
 ;;49614011378
 ;;9002226.02101,"998,49614011385 ",.01)
 ;;49614011385
 ;;9002226.02101,"998,49614011385 ",.02)
 ;;49614011385
 ;;9002226.02101,"998,49614046768 ",.01)
 ;;49614046768
 ;;9002226.02101,"998,49614046768 ",.02)
 ;;49614046768
 ;;9002226.02101,"998,49738046768 ",.01)
 ;;49738046768
 ;;9002226.02101,"998,49738046768 ",.02)
 ;;49738046768
 ;;9002226.02101,"998,49856002702 ",.01)
 ;;49856002702
 ;;9002226.02101,"998,49856002702 ",.02)
 ;;49856002702
 ;;9002226.02101,"998,49856002704 ",.01)
 ;;49856002704
 ;;9002226.02101,"998,49856002704 ",.02)
 ;;49856002704
 ;;9002226.02101,"998,49856002707 ",.01)
 ;;49856002707
 ;;9002226.02101,"998,49856002707 ",.02)
 ;;49856002707
 ;;9002226.02101,"998,49856002709 ",.01)
 ;;49856002709
 ;;9002226.02101,"998,49856002709 ",.02)
 ;;49856002709
 ;;9002226.02101,"998,49856025301 ",.01)
 ;;49856025301
 ;;9002226.02101,"998,49856025301 ",.02)
 ;;49856025301
 ;;9002226.02101,"998,49856025302 ",.01)
 ;;49856025302
 ;;9002226.02101,"998,49856025302 ",.02)
 ;;49856025302
 ;;9002226.02101,"998,49856025303 ",.01)
 ;;49856025303
 ;;9002226.02101,"998,49856025303 ",.02)
 ;;49856025303
 ;;9002226.02101,"998,49856025304 ",.01)
 ;;49856025304
 ;;9002226.02101,"998,49856025304 ",.02)
 ;;49856025304
 ;;9002226.02101,"998,49999035930 ",.01)
 ;;49999035930
 ;;9002226.02101,"998,49999035930 ",.02)
 ;;49999035930
 ;;9002226.02101,"998,49999081300 ",.01)
 ;;49999081300
 ;;9002226.02101,"998,49999081300 ",.02)
 ;;49999081300
 ;;9002226.02101,"998,49999081330 ",.01)
 ;;49999081330
 ;;9002226.02101,"998,49999081330 ",.02)
 ;;49999081330
 ;;9002226.02101,"998,50428126148 ",.01)
 ;;50428126148
 ;;9002226.02101,"998,50428126148 ",.02)
 ;;50428126148
 ;;9002226.02101,"998,50428140897 ",.01)
 ;;50428140897
 ;;9002226.02101,"998,50428140897 ",.02)
 ;;50428140897
 ;;9002226.02101,"998,50428152314 ",.01)
 ;;50428152314
 ;;9002226.02101,"998,50428152314 ",.02)
 ;;50428152314
 ;;9002226.02101,"998,50428218859 ",.01)
 ;;50428218859
 ;;9002226.02101,"998,50428218859 ",.02)
 ;;50428218859
 ;;9002226.02101,"998,50428230268 ",.01)
 ;;50428230268