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

BGPM3AEB.m

Go to the documentation of this file.
  1. BGPM3AEB ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"785,67228028806 ",.01)
  1. ;;67228028806
  1. ;;9002226.02101,"785,67228028806 ",.02)
  1. ;;67228028806
  1. ;;9002226.02101,"785,67228029403 ",.01)
  1. ;;67228029403
  1. ;;9002226.02101,"785,67228029403 ",.02)
  1. ;;67228029403
  1. ;;9002226.02101,"785,67228029406 ",.01)
  1. ;;67228029406
  1. ;;9002226.02101,"785,67228029406 ",.02)
  1. ;;67228029406
  1. ;;9002226.02101,"785,67228034003 ",.01)
  1. ;;67228034003
  1. ;;9002226.02101,"785,67228034003 ",.02)
  1. ;;67228034003
  1. ;;9002226.02101,"785,67228034006 ",.01)
  1. ;;67228034006
  1. ;;9002226.02101,"785,67228034006 ",.02)
  1. ;;67228034006
  1. ;;9002226.02101,"785,67228034803 ",.01)
  1. ;;67228034803
  1. ;;9002226.02101,"785,67228034803 ",.02)
  1. ;;67228034803
  1. ;;9002226.02101,"785,67228034806 ",.01)
  1. ;;67228034806
  1. ;;9002226.02101,"785,67228034806 ",.02)
  1. ;;67228034806
  1. ;;9002226.02101,"785,67228035403 ",.01)
  1. ;;67228035403
  1. ;;9002226.02101,"785,67228035403 ",.02)
  1. ;;67228035403
  1. ;;9002226.02101,"785,67228035406 ",.01)
  1. ;;67228035406
  1. ;;9002226.02101,"785,67228035406 ",.02)
  1. ;;67228035406
  1. ;;9002226.02101,"785,67228036003 ",.01)
  1. ;;67228036003
  1. ;;9002226.02101,"785,67228036003 ",.02)
  1. ;;67228036003
  1. ;;9002226.02101,"785,67228036006 ",.01)
  1. ;;67228036006
  1. ;;9002226.02101,"785,67228036006 ",.02)
  1. ;;67228036006
  1. ;;9002226.02101,"785,67228042703 ",.01)
  1. ;;67228042703
  1. ;;9002226.02101,"785,67228042703 ",.02)
  1. ;;67228042703
  1. ;;9002226.02101,"785,67228044903 ",.01)
  1. ;;67228044903
  1. ;;9002226.02101,"785,67228044903 ",.02)
  1. ;;67228044903
  1. ;;9002226.02101,"785,67228044906 ",.01)
  1. ;;67228044906
  1. ;;9002226.02101,"785,67228044906 ",.02)
  1. ;;67228044906
  1. ;;9002226.02101,"785,67228045803 ",.01)
  1. ;;67228045803
  1. ;;9002226.02101,"785,67228045803 ",.02)
  1. ;;67228045803
  1. ;;9002226.02101,"785,67228045806 ",.01)
  1. ;;67228045806
  1. ;;9002226.02101,"785,67228045806 ",.02)
  1. ;;67228045806
  1. ;;9002226.02101,"785,67228046603 ",.01)
  1. ;;67228046603
  1. ;;9002226.02101,"785,67228046603 ",.02)
  1. ;;67228046603
  1. ;;9002226.02101,"785,67228046606 ",.01)
  1. ;;67228046606
  1. ;;9002226.02101,"785,67228046606 ",.02)
  1. ;;67228046606
  1. ;;9002226.02101,"785,67228046803 ",.01)
  1. ;;67228046803
  1. ;;9002226.02101,"785,67228046803 ",.02)
  1. ;;67228046803
  1. ;;9002226.02101,"785,67228046806 ",.01)
  1. ;;67228046806
  1. ;;9002226.02101,"785,67228046806 ",.02)
  1. ;;67228046806
  1. ;;9002226.02101,"785,67317337301 ",.01)
  1. ;;67317337301
  1. ;;9002226.02101,"785,67317337301 ",.02)
  1. ;;67317337301
  1. ;;9002226.02101,"785,67317337401 ",.01)
  1. ;;67317337401
  1. ;;9002226.02101,"785,67317337401 ",.02)
  1. ;;67317337401
  1. ;;9002226.02101,"785,67317337501 ",.01)
  1. ;;67317337501
  1. ;;9002226.02101,"785,67317337501 ",.02)
  1. ;;67317337501
  1. ;;9002226.02101,"785,67317337601 ",.01)
  1. ;;67317337601
  1. ;;9002226.02101,"785,67317337601 ",.02)
  1. ;;67317337601
  1. ;;9002226.02101,"785,67544010615 ",.01)
  1. ;;67544010615
  1. ;;9002226.02101,"785,67544010615 ",.02)
  1. ;;67544010615
  1. ;;9002226.02101,"785,67544010630 ",.01)
  1. ;;67544010630
  1. ;;9002226.02101,"785,67544010630 ",.02)
  1. ;;67544010630
  1. ;;9002226.02101,"785,67544010631 ",.01)
  1. ;;67544010631
  1. ;;9002226.02101,"785,67544010631 ",.02)
  1. ;;67544010631
  1. ;;9002226.02101,"785,67544010632 ",.01)
  1. ;;67544010632
  1. ;;9002226.02101,"785,67544010632 ",.02)
  1. ;;67544010632
  1. ;;9002226.02101,"785,67544010645 ",.01)
  1. ;;67544010645
  1. ;;9002226.02101,"785,67544010645 ",.02)
  1. ;;67544010645
  1. ;;9002226.02101,"785,67544010653 ",.01)
  1. ;;67544010653
  1. ;;9002226.02101,"785,67544010653 ",.02)
  1. ;;67544010653
  1. ;;9002226.02101,"785,67544010660 ",.01)
  1. ;;67544010660
  1. ;;9002226.02101,"785,67544010660 ",.02)
  1. ;;67544010660
  1. ;;9002226.02101,"785,67544022515 ",.01)
  1. ;;67544022515
  1. ;;9002226.02101,"785,67544022515 ",.02)
  1. ;;67544022515
  1. ;;9002226.02101,"785,67544022530 ",.01)
  1. ;;67544022530
  1. ;;9002226.02101,"785,67544022530 ",.02)
  1. ;;67544022530
  1. ;;9002226.02101,"785,67544022532 ",.01)
  1. ;;67544022532
  1. ;;9002226.02101,"785,67544022532 ",.02)
  1. ;;67544022532
  1. ;;9002226.02101,"785,67544022545 ",.01)
  1. ;;67544022545
  1. ;;9002226.02101,"785,67544022545 ",.02)
  1. ;;67544022545
  1. ;;9002226.02101,"785,67544022553 ",.01)
  1. ;;67544022553
  1. ;;9002226.02101,"785,67544022553 ",.02)
  1. ;;67544022553
  1. ;;9002226.02101,"785,67544022560 ",.01)
  1. ;;67544022560
  1. ;;9002226.02101,"785,67544022560 ",.02)
  1. ;;67544022560
  1. ;;9002226.02101,"785,67544022580 ",.01)
  1. ;;67544022580
  1. ;;9002226.02101,"785,67544022580 ",.02)
  1. ;;67544022580
  1. ;;9002226.02101,"785,67544060131 ",.01)
  1. ;;67544060131
  1. ;;9002226.02101,"785,67544060131 ",.02)
  1. ;;67544060131
  1. ;;9002226.02101,"785,67544069231 ",.01)
  1. ;;67544069231
  1. ;;9002226.02101,"785,67544069231 ",.02)
  1. ;;67544069231
  1. ;;9002226.02101,"785,67544069232 ",.01)
  1. ;;67544069232
  1. ;;9002226.02101,"785,67544069232 ",.02)
  1. ;;67544069232
  1. ;;9002226.02101,"785,67544083031 ",.01)
  1. ;;67544083031
  1. ;;9002226.02101,"785,67544083031 ",.02)
  1. ;;67544083031
  1. ;;9002226.02101,"785,67544085430 ",.01)
  1. ;;67544085430
  1. ;;9002226.02101,"785,67544085430 ",.02)
  1. ;;67544085430
  1. ;;9002226.02101,"785,67544085445 ",.01)
  1. ;;67544085445
  1. ;;9002226.02101,"785,67544085445 ",.02)
  1. ;;67544085445
  1. ;;9002226.02101,"785,67544085453 ",.01)
  1. ;;67544085453
  1. ;;9002226.02101,"785,67544085453 ",.02)
  1. ;;67544085453
  1. ;;9002226.02101,"785,67544085460 ",.01)
  1. ;;67544085460
  1. ;;9002226.02101,"785,67544085460 ",.02)
  1. ;;67544085460
  1. ;;9002226.02101,"785,67544085515 ",.01)
  1. ;;67544085515
  1. ;;9002226.02101,"785,67544085515 ",.02)
  1. ;;67544085515
  1. ;;9002226.02101,"785,67544085530 ",.01)
  1. ;;67544085530
  1. ;;9002226.02101,"785,67544085530 ",.02)
  1. ;;67544085530
  1. ;;9002226.02101,"785,67544085545 ",.01)
  1. ;;67544085545
  1. ;;9002226.02101,"785,67544085545 ",.02)
  1. ;;67544085545
  1. ;;9002226.02101,"785,67544085560 ",.01)
  1. ;;67544085560
  1. ;;9002226.02101,"785,67544085560 ",.02)
  1. ;;67544085560
  1. ;;9002226.02101,"785,67544085615 ",.01)
  1. ;;67544085615
  1. ;;9002226.02101,"785,67544085615 ",.02)
  1. ;;67544085615
  1. ;;9002226.02101,"785,67544085645 ",.01)
  1. ;;67544085645
  1. ;;9002226.02101,"785,67544085645 ",.02)
  1. ;;67544085645
  1. ;;9002226.02101,"785,67544085715 ",.01)
  1. ;;67544085715
  1. ;;9002226.02101,"785,67544085715 ",.02)
  1. ;;67544085715
  1. ;;9002226.02101,"785,67544085716 ",.01)
  1. ;;67544085716
  1. ;;9002226.02101,"785,67544085716 ",.02)
  1. ;;67544085716
  1. ;;9002226.02101,"785,67544085745 ",.01)
  1. ;;67544085745
  1. ;;9002226.02101,"785,67544085745 ",.02)
  1. ;;67544085745
  1. ;;9002226.02101,"785,67544085753 ",.01)
  1. ;;67544085753
  1. ;;9002226.02101,"785,67544085753 ",.02)
  1. ;;67544085753
  1. ;;9002226.02101,"785,67544091032 ",.01)
  1. ;;67544091032
  1. ;;9002226.02101,"785,67544091032 ",.02)
  1. ;;67544091032
  1. ;;9002226.02101,"785,67544092230 ",.01)
  1. ;;67544092230
  1. ;;9002226.02101,"785,67544092230 ",.02)
  1. ;;67544092230
  1. ;;9002226.02101,"785,67544092231 ",.01)
  1. ;;67544092231
  1. ;;9002226.02101,"785,67544092231 ",.02)
  1. ;;67544092231
  1. ;;9002226.02101,"785,67544092232 ",.01)
  1. ;;67544092232
  1. ;;9002226.02101,"785,67544092232 ",.02)
  1. ;;67544092232
  1. ;;9002226.02101,"785,67544092245 ",.01)
  1. ;;67544092245
  1. ;;9002226.02101,"785,67544092245 ",.02)
  1. ;;67544092245
  1. ;;9002226.02101,"785,67544093632 ",.01)
  1. ;;67544093632
  1. ;;9002226.02101,"785,67544093632 ",.02)
  1. ;;67544093632
  1. ;;9002226.02101,"785,68071069005 ",.01)
  1. ;;68071069005
  1. ;;9002226.02101,"785,68071069005 ",.02)
  1. ;;68071069005
  1. ;;9002226.02101,"785,68071069930 ",.01)
  1. ;;68071069930
  1. ;;9002226.02101,"785,68071069930 ",.02)
  1. ;;68071069930
  1. ;;9002226.02101,"785,68071070430 ",.01)
  1. ;;68071070430
  1. ;;9002226.02101,"785,68071070430 ",.02)
  1. ;;68071070430
  1. ;;9002226.02101,"785,68071071630 ",.01)
  1. ;;68071071630
  1. ;;9002226.02101,"785,68071071630 ",.02)
  1. ;;68071071630
  1. ;;9002226.02101,"785,68084013101 ",.01)
  1. ;;68084013101
  1. ;;9002226.02101,"785,68084013101 ",.02)
  1. ;;68084013101
  1. ;;9002226.02101,"785,68084013110 ",.01)
  1. ;;68084013110
  1. ;;9002226.02101,"785,68084013110 ",.02)
  1. ;;68084013110
  1. ;;9002226.02101,"785,68084013111 ",.01)
  1. ;;68084013111
  1. ;;9002226.02101,"785,68084013111 ",.02)
  1. ;;68084013111
  1. ;;9002226.02101,"785,68084013201 ",.01)
  1. ;;68084013201
  1. ;;9002226.02101,"785,68084013201 ",.02)
  1. ;;68084013201
  1. ;;9002226.02101,"785,68084013210 ",.01)
  1. ;;68084013210
  1. ;;9002226.02101,"785,68084013210 ",.02)
  1. ;;68084013210
  1. ;;9002226.02101,"785,68084013301 ",.01)
  1. ;;68084013301
  1. ;;9002226.02101,"785,68084013301 ",.02)
  1. ;;68084013301
  1. ;;9002226.02101,"785,68084013310 ",.01)
  1. ;;68084013310
  1. ;;9002226.02101,"785,68084013310 ",.02)
  1. ;;68084013310
  1. ;;9002226.02101,"785,68084016101 ",.01)
  1. ;;68084016101
  1. ;;9002226.02101,"785,68084016101 ",.02)
  1. ;;68084016101
  1. ;;9002226.02101,"785,68084016111 ",.01)
  1. ;;68084016111
  1. ;;9002226.02101,"785,68084016111 ",.02)
  1. ;;68084016111
  1. ;;9002226.02101,"785,68084016201 ",.01)
  1. ;;68084016201
  1. ;;9002226.02101,"785,68084016201 ",.02)
  1. ;;68084016201
  1. ;;9002226.02101,"785,68084016211 ",.01)
  1. ;;68084016211
  1. ;;9002226.02101,"785,68084016211 ",.02)
  1. ;;68084016211
  1. ;;9002226.02101,"785,68084016301 ",.01)
  1. ;;68084016301
  1. ;;9002226.02101,"785,68084016301 ",.02)
  1. ;;68084016301
  1. ;;9002226.02101,"785,68084016311 ",.01)
  1. ;;68084016311
  1. ;;9002226.02101,"785,68084016311 ",.02)
  1. ;;68084016311
  1. ;;9002226.02101,"785,68084016401 ",.01)
  1. ;;68084016401
  1. ;;9002226.02101,"785,68084016401 ",.02)
  1. ;;68084016401
  1. ;;9002226.02101,"785,68084016411 ",.01)
  1. ;;68084016411
  1. ;;9002226.02101,"785,68084016411 ",.02)
  1. ;;68084016411
  1. ;;9002226.02101,"785,68084016501 ",.01)
  1. ;;68084016501
  1. ;;9002226.02101,"785,68084016501 ",.02)
  1. ;;68084016501
  1. ;;9002226.02101,"785,68084016511 ",.01)
  1. ;;68084016511
  1. ;;9002226.02101,"785,68084016511 ",.02)
  1. ;;68084016511
  1. ;;9002226.02101,"785,68084031214 ",.01)
  1. ;;68084031214
  1. ;;9002226.02101,"785,68084031214 ",.02)
  1. ;;68084031214
  1. ;;9002226.02101,"785,68115021830 ",.01)
  1. ;;68115021830
  1. ;;9002226.02101,"785,68115021830 ",.02)
  1. ;;68115021830
  1. ;;9002226.02101,"785,68115021930 ",.01)
  1. ;;68115021930
  1. ;;9002226.02101,"785,68115021930 ",.02)
  1. ;;68115021930
  1. ;;9002226.02101,"785,68115021960 ",.01)
  1. ;;68115021960
  1. ;;9002226.02101,"785,68115021960 ",.02)
  1. ;;68115021960
  1. ;;9002226.02101,"785,68115065800 ",.01)
  1. ;;68115065800
  1. ;;9002226.02101,"785,68115065800 ",.02)
  1. ;;68115065800
  1. ;;9002226.02101,"785,68180046701 ",.01)
  1. ;;68180046701
  1. ;;9002226.02101,"785,68180046701 ",.02)
  1. ;;68180046701
  1. ;;9002226.02101,"785,68180046703 ",.01)
  1. ;;68180046703
  1. ;;9002226.02101,"785,68180046703 ",.02)
  1. ;;68180046703
  1. ;;9002226.02101,"785,68180046707 ",.01)
  1. ;;68180046707
  1. ;;9002226.02101,"785,68180046707 ",.02)
  1. ;;68180046707
  1. ;;9002226.02101,"785,68180046801 ",.01)
  1. ;;68180046801
  1. ;;9002226.02101,"785,68180046801 ",.02)
  1. ;;68180046801
  1. ;;9002226.02101,"785,68180046803 ",.01)
  1. ;;68180046803
  1. ;;9002226.02101,"785,68180046803 ",.02)
  1. ;;68180046803
  1. ;;9002226.02101,"785,68180046805 ",.01)
  1. ;;68180046805
  1. ;;9002226.02101,"785,68180046805 ",.02)
  1. ;;68180046805
  1. ;;9002226.02101,"785,68180046807 ",.01)
  1. ;;68180046807
  1. ;;9002226.02101,"785,68180046807 ",.02)
  1. ;;68180046807
  1. ;;9002226.02101,"785,68180046809 ",.01)
  1. ;;68180046809
  1. ;;9002226.02101,"785,68180046809 ",.02)
  1. ;;68180046809
  1. ;;9002226.02101,"785,68180046901 ",.01)
  1. ;;68180046901
  1. ;;9002226.02101,"785,68180046901 ",.02)
  1. ;;68180046901
  1. ;;9002226.02101,"785,68180046903 ",.01)
  1. ;;68180046903
  1. ;;9002226.02101,"785,68180046903 ",.02)
  1. ;;68180046903
  1. ;;9002226.02101,"785,68180046905 ",.01)
  1. ;;68180046905
  1. ;;9002226.02101,"785,68180046905 ",.02)
  1. ;;68180046905
  1. ;;9002226.02101,"785,68180046907 ",.01)
  1. ;;68180046907
  1. ;;9002226.02101,"785,68180046907 ",.02)
  1. ;;68180046907
  1. ;;9002226.02101,"785,68180046909 ",.01)
  1. ;;68180046909
  1. ;;9002226.02101,"785,68180046909 ",.02)
  1. ;;68180046909
  1. ;;9002226.02101,"785,68180047801 ",.01)
  1. ;;68180047801
  1. ;;9002226.02101,"785,68180047801 ",.02)
  1. ;;68180047801