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

BGPM5AKR.m

Go to the documentation of this file.
  1. BGPM5AKR ;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,00078010308 ",.02)
  1. ;;00078010308
  1. ;;9002226.02101,"885,00084004615 ",.01)
  1. ;;00084004615
  1. ;;9002226.02101,"885,00084004615 ",.02)
  1. ;;00084004615
  1. ;;9002226.02101,"885,00084005701 ",.01)
  1. ;;00084005701
  1. ;;9002226.02101,"885,00084005701 ",.02)
  1. ;;00084005701
  1. ;;9002226.02101,"885,00084005718 ",.01)
  1. ;;00084005718
  1. ;;9002226.02101,"885,00084005718 ",.02)
  1. ;;00084005718
  1. ;;9002226.02101,"885,00084007314 ",.01)
  1. ;;00084007314
  1. ;;9002226.02101,"885,00084007314 ",.02)
  1. ;;00084007314
  1. ;;9002226.02101,"885,00084040803 ",.01)
  1. ;;00084040803
  1. ;;9002226.02101,"885,00084040803 ",.02)
  1. ;;00084040803
  1. ;;9002226.02101,"885,00084040814 ",.01)
  1. ;;00084040814
  1. ;;9002226.02101,"885,00084040814 ",.02)
  1. ;;00084040814
  1. ;;9002226.02101,"885,00084040816 ",.01)
  1. ;;00084040816
  1. ;;9002226.02101,"885,00084040816 ",.02)
  1. ;;00084040816
  1. ;;9002226.02101,"885,00113025968 ",.01)
  1. ;;00113025968
  1. ;;9002226.02101,"885,00113025968 ",.02)
  1. ;;00113025968
  1. ;;9002226.02101,"885,00113027468 ",.01)
  1. ;;00113027468
  1. ;;9002226.02101,"885,00113027468 ",.02)
  1. ;;00113027468
  1. ;;9002226.02101,"885,00113027748 ",.01)
  1. ;;00113027748
  1. ;;9002226.02101,"885,00113027748 ",.02)
  1. ;;00113027748
  1. ;;9002226.02101,"885,00113037462 ",.01)
  1. ;;00113037462
  1. ;;9002226.02101,"885,00113037462 ",.02)
  1. ;;00113037462
  1. ;;9002226.02101,"885,00113038171 ",.01)
  1. ;;00113038171
  1. ;;9002226.02101,"885,00113038171 ",.02)
  1. ;;00113038171
  1. ;;9002226.02101,"885,00113038178 ",.01)
  1. ;;00113038178
  1. ;;9002226.02101,"885,00113038178 ",.02)
  1. ;;00113038178
  1. ;;9002226.02101,"885,00113041178 ",.01)
  1. ;;00113041178
  1. ;;9002226.02101,"885,00113041178 ",.02)
  1. ;;00113041178
  1. ;;9002226.02101,"885,00113041187 ",.01)
  1. ;;00113041187
  1. ;;9002226.02101,"885,00113041187 ",.02)
  1. ;;00113041187
  1. ;;9002226.02101,"885,00113041190 ",.01)
  1. ;;00113041190
  1. ;;9002226.02101,"885,00113041190 ",.02)
  1. ;;00113041190
  1. ;;9002226.02101,"885,00113041578 ",.01)
  1. ;;00113041578
  1. ;;9002226.02101,"885,00113041578 ",.02)
  1. ;;00113041578
  1. ;;9002226.02101,"885,00113041660 ",.01)
  1. ;;00113041660
  1. ;;9002226.02101,"885,00113041660 ",.02)
  1. ;;00113041660
  1. ;;9002226.02101,"885,00113041678 ",.01)
  1. ;;00113041678
  1. ;;9002226.02101,"885,00113041678 ",.02)
  1. ;;00113041678
  1. ;;9002226.02101,"885,00113041687 ",.01)
  1. ;;00113041687
  1. ;;9002226.02101,"885,00113041687 ",.02)
  1. ;;00113041687
  1. ;;9002226.02101,"885,00113041693 ",.01)
  1. ;;00113041693
  1. ;;9002226.02101,"885,00113041693 ",.02)
  1. ;;00113041693
  1. ;;9002226.02101,"885,00113042168 ",.01)
  1. ;;00113042168
  1. ;;9002226.02101,"885,00113042168 ",.02)
  1. ;;00113042168
  1. ;;9002226.02101,"885,00113043078 ",.01)
  1. ;;00113043078
  1. ;;9002226.02101,"885,00113043078 ",.02)
  1. ;;00113043078
  1. ;;9002226.02101,"885,00113046708 ",.01)
  1. ;;00113046708
  1. ;;9002226.02101,"885,00113046708 ",.02)
  1. ;;00113046708
  1. ;;9002226.02101,"885,00113046768 ",.01)
  1. ;;00113046768
  1. ;;9002226.02101,"885,00113046768 ",.02)
  1. ;;00113046768
  1. ;;9002226.02101,"885,00113053576 ",.01)
  1. ;;00113053576
  1. ;;9002226.02101,"885,00113053576 ",.02)
  1. ;;00113053576
  1. ;;9002226.02101,"885,00113141182 ",.01)
  1. ;;00113141182
  1. ;;9002226.02101,"885,00113141182 ",.02)
  1. ;;00113141182
  1. ;;9002226.02101,"885,00122080166 ",.01)
  1. ;;00122080166
  1. ;;9002226.02101,"885,00122080166 ",.02)
  1. ;;00122080166
  1. ;;9002226.02101,"885,00122082166 ",.01)
  1. ;;00122082166
  1. ;;9002226.02101,"885,00122082166 ",.02)
  1. ;;00122082166
  1. ;;9002226.02101,"885,00122085066 ",.01)
  1. ;;00122085066
  1. ;;9002226.02101,"885,00122085066 ",.02)
  1. ;;00122085066
  1. ;;9002226.02101,"885,00122086266 ",.01)
  1. ;;00122086266
  1. ;;9002226.02101,"885,00122086266 ",.02)
  1. ;;00122086266
  1. ;;9002226.02101,"885,00135001427 ",.01)
  1. ;;00135001427
  1. ;;9002226.02101,"885,00135001427 ",.02)
  1. ;;00135001427
  1. ;;9002226.02101,"885,00135001430 ",.01)
  1. ;;00135001430
  1. ;;9002226.02101,"885,00135001430 ",.02)
  1. ;;00135001430
  1. ;;9002226.02101,"885,00135001624 ",.01)
  1. ;;00135001624
  1. ;;9002226.02101,"885,00135001624 ",.02)
  1. ;;00135001624
  1. ;;9002226.02101,"885,00135011701 ",.01)
  1. ;;00135011701
  1. ;;9002226.02101,"885,00135011701 ",.02)
  1. ;;00135011701
  1. ;;9002226.02101,"885,00135011702 ",.01)
  1. ;;00135011702
  1. ;;9002226.02101,"885,00135011702 ",.02)
  1. ;;00135011702
  1. ;;9002226.02101,"885,00135011703 ",.01)
  1. ;;00135011703
  1. ;;9002226.02101,"885,00135011703 ",.02)
  1. ;;00135011703
  1. ;;9002226.02101,"885,00135011788 ",.01)
  1. ;;00135011788
  1. ;;9002226.02101,"885,00135011788 ",.02)
  1. ;;00135011788
  1. ;;9002226.02101,"885,00143178501 ",.01)
  1. ;;00143178501
  1. ;;9002226.02101,"885,00143178501 ",.02)
  1. ;;00143178501
  1. ;;9002226.02101,"885,00143178505 ",.01)
  1. ;;00143178505
  1. ;;9002226.02101,"885,00143178505 ",.02)
  1. ;;00143178505
  1. ;;9002226.02101,"885,00143178510 ",.01)
  1. ;;00143178510
  1. ;;9002226.02101,"885,00143178510 ",.02)
  1. ;;00143178510
  1. ;;9002226.02101,"885,00143178525 ",.01)
  1. ;;00143178525
  1. ;;9002226.02101,"885,00143178525 ",.02)
  1. ;;00143178525
  1. ;;9002226.02101,"885,00143178530 ",.01)
  1. ;;00143178530
  1. ;;9002226.02101,"885,00143178530 ",.02)
  1. ;;00143178530
  1. ;;9002226.02101,"885,00143178550 ",.01)
  1. ;;00143178550
  1. ;;9002226.02101,"885,00143178550 ",.02)
  1. ;;00143178550
  1. ;;9002226.02101,"885,00149009311 ",.01)
  1. ;;00149009311
  1. ;;9002226.02101,"885,00149009311 ",.02)
  1. ;;00149009311
  1. ;;9002226.02101,"885,00179104201 ",.01)
  1. ;;00179104201
  1. ;;9002226.02101,"885,00179104201 ",.02)
  1. ;;00179104201
  1. ;;9002226.02101,"885,00179104230 ",.01)
  1. ;;00179104230
  1. ;;9002226.02101,"885,00179104230 ",.02)
  1. ;;00179104230
  1. ;;9002226.02101,"885,00179104250 ",.01)
  1. ;;00179104250
  1. ;;9002226.02101,"885,00179104250 ",.02)
  1. ;;00179104250
  1. ;;9002226.02101,"885,00179104260 ",.01)
  1. ;;00179104260
  1. ;;9002226.02101,"885,00179104260 ",.02)
  1. ;;00179104260
  1. ;;9002226.02101,"885,00179104290 ",.01)
  1. ;;00179104290
  1. ;;9002226.02101,"885,00179104290 ",.02)
  1. ;;00179104290
  1. ;;9002226.02101,"885,00179163770 ",.01)
  1. ;;00179163770
  1. ;;9002226.02101,"885,00179163770 ",.02)
  1. ;;00179163770
  1. ;;9002226.02101,"885,00179163771 ",.01)
  1. ;;00179163771
  1. ;;9002226.02101,"885,00179163771 ",.02)
  1. ;;00179163771
  1. ;;9002226.02101,"885,00179163772 ",.01)
  1. ;;00179163772
  1. ;;9002226.02101,"885,00179163772 ",.02)
  1. ;;00179163772
  1. ;;9002226.02101,"885,00179178870 ",.01)
  1. ;;00179178870
  1. ;;9002226.02101,"885,00179178870 ",.02)
  1. ;;00179178870
  1. ;;9002226.02101,"885,00179178871 ",.01)
  1. ;;00179178871
  1. ;;9002226.02101,"885,00179178871 ",.02)
  1. ;;00179178871
  1. ;;9002226.02101,"885,00179178872 ",.01)
  1. ;;00179178872
  1. ;;9002226.02101,"885,00179178872 ",.02)
  1. ;;00179178872
  1. ;;9002226.02101,"885,00179185470 ",.01)
  1. ;;00179185470
  1. ;;9002226.02101,"885,00179185470 ",.02)
  1. ;;00179185470
  1. ;;9002226.02101,"885,00179185471 ",.01)
  1. ;;00179185471
  1. ;;9002226.02101,"885,00179185471 ",.02)
  1. ;;00179185471
  1. ;;9002226.02101,"885,00179185472 ",.01)
  1. ;;00179185472
  1. ;;9002226.02101,"885,00179185472 ",.02)
  1. ;;00179185472
  1. ;;9002226.02101,"885,00182026611 ",.01)
  1. ;;00182026611
  1. ;;9002226.02101,"885,00182026611 ",.02)
  1. ;;00182026611
  1. ;;9002226.02101,"885,00182044401 ",.01)
  1. ;;00182044401
  1. ;;9002226.02101,"885,00182044401 ",.02)
  1. ;;00182044401
  1. ;;9002226.02101,"885,00182044410 ",.01)
  1. ;;00182044410
  1. ;;9002226.02101,"885,00182044410 ",.02)
  1. ;;00182044410
  1. ;;9002226.02101,"885,00182044801 ",.01)
  1. ;;00182044801
  1. ;;9002226.02101,"885,00182044801 ",.02)
  1. ;;00182044801
  1. ;;9002226.02101,"885,00182044810 ",.01)
  1. ;;00182044810
  1. ;;9002226.02101,"885,00182044810 ",.02)
  1. ;;00182044810
  1. ;;9002226.02101,"885,00182044901 ",.01)
  1. ;;00182044901
  1. ;;9002226.02101,"885,00182044901 ",.02)
  1. ;;00182044901
  1. ;;9002226.02101,"885,00182105801 ",.01)
  1. ;;00182105801
  1. ;;9002226.02101,"885,00182105801 ",.02)
  1. ;;00182105801
  1. ;;9002226.02101,"885,00182106105 ",.01)
  1. ;;00182106105
  1. ;;9002226.02101,"885,00182106105 ",.02)
  1. ;;00182106105
  1. ;;9002226.02101,"885,00182106107 ",.01)
  1. ;;00182106107
  1. ;;9002226.02101,"885,00182106107 ",.02)
  1. ;;00182106107
  1. ;;9002226.02101,"885,00182142095 ",.01)
  1. ;;00182142095
  1. ;;9002226.02101,"885,00182142095 ",.02)
  1. ;;00182142095
  1. ;;9002226.02101,"885,00182163101 ",.01)
  1. ;;00182163101
  1. ;;9002226.02101,"885,00182163101 ",.02)
  1. ;;00182163101
  1. ;;9002226.02101,"885,00182190901 ",.01)
  1. ;;00182190901
  1. ;;9002226.02101,"885,00182190901 ",.02)
  1. ;;00182190901
  1. ;;9002226.02101,"885,00182190910 ",.01)
  1. ;;00182190910
  1. ;;9002226.02101,"885,00182190910 ",.02)
  1. ;;00182190910
  1. ;;9002226.02101,"885,00182821789 ",.01)
  1. ;;00182821789
  1. ;;9002226.02101,"885,00182821789 ",.02)
  1. ;;00182821789
  1. ;;9002226.02101,"885,00228202310 ",.01)
  1. ;;00228202310
  1. ;;9002226.02101,"885,00228202310 ",.02)
  1. ;;00228202310
  1. ;;9002226.02101,"885,00247021400 ",.01)
  1. ;;00247021400
  1. ;;9002226.02101,"885,00247021400 ",.02)
  1. ;;00247021400
  1. ;;9002226.02101,"885,00247021409 ",.01)
  1. ;;00247021409
  1. ;;9002226.02101,"885,00247021409 ",.02)
  1. ;;00247021409
  1. ;;9002226.02101,"885,00247021410 ",.01)
  1. ;;00247021410
  1. ;;9002226.02101,"885,00247021410 ",.02)
  1. ;;00247021410
  1. ;;9002226.02101,"885,00247021428 ",.01)
  1. ;;00247021428
  1. ;;9002226.02101,"885,00247021428 ",.02)
  1. ;;00247021428
  1. ;;9002226.02101,"885,00247060601 ",.01)
  1. ;;00247060601
  1. ;;9002226.02101,"885,00247060601 ",.02)
  1. ;;00247060601
  1. ;;9002226.02101,"885,00247060610 ",.01)
  1. ;;00247060610
  1. ;;9002226.02101,"885,00247060610 ",.02)
  1. ;;00247060610
  1. ;;9002226.02101,"885,00247060625 ",.01)
  1. ;;00247060625
  1. ;;9002226.02101,"885,00247060625 ",.02)
  1. ;;00247060625
  1. ;;9002226.02101,"885,00247060640 ",.01)
  1. ;;00247060640
  1. ;;9002226.02101,"885,00247060640 ",.02)
  1. ;;00247060640
  1. ;;9002226.02101,"885,00247082700 ",.01)
  1. ;;00247082700
  1. ;;9002226.02101,"885,00247082700 ",.02)
  1. ;;00247082700
  1. ;;9002226.02101,"885,00247082712 ",.01)
  1. ;;00247082712
  1. ;;9002226.02101,"885,00247082712 ",.02)
  1. ;;00247082712
  1. ;;9002226.02101,"885,00247082725 ",.01)
  1. ;;00247082725
  1. ;;9002226.02101,"885,00247082725 ",.02)
  1. ;;00247082725
  1. ;;9002226.02101,"885,00247119100 ",.01)
  1. ;;00247119100
  1. ;;9002226.02101,"885,00247119100 ",.02)
  1. ;;00247119100
  1. ;;9002226.02101,"885,00247119101 ",.01)
  1. ;;00247119101
  1. ;;9002226.02101,"885,00247119101 ",.02)
  1. ;;00247119101
  1. ;;9002226.02101,"885,00247119103 ",.01)
  1. ;;00247119103
  1. ;;9002226.02101,"885,00247119103 ",.02)
  1. ;;00247119103
  1. ;;9002226.02101,"885,00247119124 ",.01)
  1. ;;00247119124
  1. ;;9002226.02101,"885,00247119124 ",.02)
  1. ;;00247119124
  1. ;;9002226.02101,"885,00247119130 ",.01)
  1. ;;00247119130
  1. ;;9002226.02101,"885,00247119130 ",.02)
  1. ;;00247119130
  1. ;;9002226.02101,"885,00247131312 ",.01)
  1. ;;00247131312
  1. ;;9002226.02101,"885,00247131312 ",.02)
  1. ;;00247131312
  1. ;;9002226.02101,"885,00247131330 ",.01)
  1. ;;00247131330
  1. ;;9002226.02101,"885,00247131330 ",.02)
  1. ;;00247131330
  1. ;;9002226.02101,"885,00247187400 ",.01)
  1. ;;00247187400
  1. ;;9002226.02101,"885,00247187400 ",.02)
  1. ;;00247187400
  1. ;;9002226.02101,"885,00247187430 ",.01)
  1. ;;00247187430
  1. ;;9002226.02101,"885,00247187430 ",.02)
  1. ;;00247187430
  1. ;;9002226.02101,"885,00247187460 ",.01)
  1. ;;00247187460
  1. ;;9002226.02101,"885,00247187460 ",.02)
  1. ;;00247187460
  1. ;;9002226.02101,"885,00247187477 ",.01)
  1. ;;00247187477
  1. ;;9002226.02101,"885,00247187477 ",.02)
  1. ;;00247187477
  1. ;;9002226.02101,"885,00247187490 ",.01)
  1. ;;00247187490
  1. ;;9002226.02101,"885,00247187490 ",.02)
  1. ;;00247187490
  1. ;;9002226.02101,"885,00247211830 ",.01)
  1. ;;00247211830
  1. ;;9002226.02101,"885,00247211830 ",.02)
  1. ;;00247211830
  1. ;;9002226.02101,"885,00247215000 ",.01)
  1. ;;00247215000
  1. ;;9002226.02101,"885,00247215000 ",.02)
  1. ;;00247215000
  1. ;;9002226.02101,"885,00247215030 ",.01)
  1. ;;00247215030
  1. ;;9002226.02101,"885,00247215030 ",.02)
  1. ;;00247215030
  1. ;;9002226.02101,"885,00280200010 ",.01)
  1. ;;00280200010
  1. ;;9002226.02101,"885,00280200010 ",.02)
  1. ;;00280200010
  1. ;;9002226.02101,"885,00280200051 ",.01)
  1. ;;00280200051