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

BGPM5BEW.m

Go to the documentation of this file.
  1. BGPM5BEW ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,00904560289 ",.02)
  1. ;;00904560289
  1. ;;9002226.02101,"1084,00904560293 ",.01)
  1. ;;00904560293
  1. ;;9002226.02101,"1084,00904560293 ",.02)
  1. ;;00904560293
  1. ;;9002226.02101,"1084,00904560340 ",.01)
  1. ;;00904560340
  1. ;;9002226.02101,"1084,00904560340 ",.02)
  1. ;;00904560340
  1. ;;9002226.02101,"1084,00904560352 ",.01)
  1. ;;00904560352
  1. ;;9002226.02101,"1084,00904560352 ",.02)
  1. ;;00904560352
  1. ;;9002226.02101,"1084,00904560361 ",.01)
  1. ;;00904560361
  1. ;;9002226.02101,"1084,00904560361 ",.02)
  1. ;;00904560361
  1. ;;9002226.02101,"1084,00904560389 ",.01)
  1. ;;00904560389
  1. ;;9002226.02101,"1084,00904560389 ",.02)
  1. ;;00904560389
  1. ;;9002226.02101,"1084,00904560393 ",.01)
  1. ;;00904560393
  1. ;;9002226.02101,"1084,00904560393 ",.02)
  1. ;;00904560393
  1. ;;9002226.02101,"1084,00904563461 ",.01)
  1. ;;00904563461
  1. ;;9002226.02101,"1084,00904563461 ",.02)
  1. ;;00904563461
  1. ;;9002226.02101,"1084,00904563561 ",.01)
  1. ;;00904563561
  1. ;;9002226.02101,"1084,00904563561 ",.02)
  1. ;;00904563561
  1. ;;9002226.02101,"1084,00904563661 ",.01)
  1. ;;00904563661
  1. ;;9002226.02101,"1084,00904563661 ",.02)
  1. ;;00904563661
  1. ;;9002226.02101,"1084,00904579461 ",.01)
  1. ;;00904579461
  1. ;;9002226.02101,"1084,00904579461 ",.02)
  1. ;;00904579461
  1. ;;9002226.02101,"1084,00904579561 ",.01)
  1. ;;00904579561
  1. ;;9002226.02101,"1084,00904579561 ",.02)
  1. ;;00904579561
  1. ;;9002226.02101,"1084,00904584914 ",.01)
  1. ;;00904584914
  1. ;;9002226.02101,"1084,00904584914 ",.02)
  1. ;;00904584914
  1. ;;9002226.02101,"1084,00904584918 ",.01)
  1. ;;00904584918
  1. ;;9002226.02101,"1084,00904584918 ",.02)
  1. ;;00904584918
  1. ;;9002226.02101,"1084,00904584940 ",.01)
  1. ;;00904584940
  1. ;;9002226.02101,"1084,00904584940 ",.02)
  1. ;;00904584940
  1. ;;9002226.02101,"1084,00904584952 ",.01)
  1. ;;00904584952
  1. ;;9002226.02101,"1084,00904584952 ",.02)
  1. ;;00904584952
  1. ;;9002226.02101,"1084,00904584953 ",.01)
  1. ;;00904584953
  1. ;;9002226.02101,"1084,00904584953 ",.02)
  1. ;;00904584953
  1. ;;9002226.02101,"1084,00904584954 ",.01)
  1. ;;00904584954
  1. ;;9002226.02101,"1084,00904584954 ",.02)
  1. ;;00904584954
  1. ;;9002226.02101,"1084,00904584980 ",.01)
  1. ;;00904584980
  1. ;;9002226.02101,"1084,00904584980 ",.02)
  1. ;;00904584980
  1. ;;9002226.02101,"1084,00904584989 ",.01)
  1. ;;00904584989
  1. ;;9002226.02101,"1084,00904584989 ",.02)
  1. ;;00904584989
  1. ;;9002226.02101,"1084,00904584993 ",.01)
  1. ;;00904584993
  1. ;;9002226.02101,"1084,00904584993 ",.02)
  1. ;;00904584993
  1. ;;9002226.02101,"1084,00904585040 ",.01)
  1. ;;00904585040
  1. ;;9002226.02101,"1084,00904585040 ",.02)
  1. ;;00904585040
  1. ;;9002226.02101,"1084,00904585053 ",.01)
  1. ;;00904585053
  1. ;;9002226.02101,"1084,00904585053 ",.02)
  1. ;;00904585053
  1. ;;9002226.02101,"1084,00904585089 ",.01)
  1. ;;00904585089
  1. ;;9002226.02101,"1084,00904585089 ",.02)
  1. ;;00904585089
  1. ;;9002226.02101,"1084,00904585093 ",.01)
  1. ;;00904585093
  1. ;;9002226.02101,"1084,00904585093 ",.02)
  1. ;;00904585093
  1. ;;9002226.02101,"1084,00904585140 ",.01)
  1. ;;00904585140
  1. ;;9002226.02101,"1084,00904585140 ",.02)
  1. ;;00904585140
  1. ;;9002226.02101,"1084,00904585152 ",.01)
  1. ;;00904585152
  1. ;;9002226.02101,"1084,00904585152 ",.02)
  1. ;;00904585152
  1. ;;9002226.02101,"1084,00904585189 ",.01)
  1. ;;00904585189
  1. ;;9002226.02101,"1084,00904585189 ",.02)
  1. ;;00904585189
  1. ;;9002226.02101,"1084,00904585193 ",.01)
  1. ;;00904585193
  1. ;;9002226.02101,"1084,00904585193 ",.02)
  1. ;;00904585193
  1. ;;9002226.02101,"1084,00904609061 ",.01)
  1. ;;00904609061
  1. ;;9002226.02101,"1084,00904609061 ",.02)
  1. ;;00904609061
  1. ;;9002226.02101,"1084,00904609161 ",.01)
  1. ;;00904609161
  1. ;;9002226.02101,"1084,00904609161 ",.02)
  1. ;;00904609161
  1. ;;9002226.02101,"1084,00904609210 ",.01)
  1. ;;00904609210
  1. ;;9002226.02101,"1084,00904609210 ",.02)
  1. ;;00904609210
  1. ;;9002226.02101,"1084,00904609261 ",.01)
  1. ;;00904609261
  1. ;;9002226.02101,"1084,00904609261 ",.02)
  1. ;;00904609261
  1. ;;9002226.02101,"1084,00904610740 ",.01)
  1. ;;00904610740
  1. ;;9002226.02101,"1084,00904610740 ",.02)
  1. ;;00904610740
  1. ;;9002226.02101,"1084,00904610761 ",.01)
  1. ;;00904610761
  1. ;;9002226.02101,"1084,00904610761 ",.02)
  1. ;;00904610761
  1. ;;9002226.02101,"1084,00904610860 ",.01)
  1. ;;00904610860
  1. ;;9002226.02101,"1084,00904610860 ",.02)
  1. ;;00904610860
  1. ;;9002226.02101,"1084,00904610861 ",.01)
  1. ;;00904610861
  1. ;;9002226.02101,"1084,00904610861 ",.02)
  1. ;;00904610861
  1. ;;9002226.02101,"1084,00904612361 ",.01)
  1. ;;00904612361
  1. ;;9002226.02101,"1084,00904612361 ",.02)
  1. ;;00904612361
  1. ;;9002226.02101,"1084,00904612461 ",.01)
  1. ;;00904612461
  1. ;;9002226.02101,"1084,00904612461 ",.02)
  1. ;;00904612461
  1. ;;9002226.02101,"1084,00904613760 ",.01)
  1. ;;00904613760
  1. ;;9002226.02101,"1084,00904613760 ",.02)
  1. ;;00904613760
  1. ;;9002226.02101,"1084,00904613840 ",.01)
  1. ;;00904613840
  1. ;;9002226.02101,"1084,00904613840 ",.02)
  1. ;;00904613840
  1. ;;9002226.02101,"1084,00904613860 ",.01)
  1. ;;00904613860
  1. ;;9002226.02101,"1084,00904613860 ",.02)
  1. ;;00904613860
  1. ;;9002226.02101,"1084,00904613960 ",.01)
  1. ;;00904613960
  1. ;;9002226.02101,"1084,00904613960 ",.02)
  1. ;;00904613960
  1. ;;9002226.02101,"1084,00904613980 ",.01)
  1. ;;00904613980
  1. ;;9002226.02101,"1084,00904613980 ",.02)
  1. ;;00904613980
  1. ;;9002226.02101,"1084,00904792440 ",.01)
  1. ;;00904792440
  1. ;;9002226.02101,"1084,00904792440 ",.02)
  1. ;;00904792440
  1. ;;9002226.02101,"1084,00904792460 ",.01)
  1. ;;00904792460
  1. ;;9002226.02101,"1084,00904792460 ",.02)
  1. ;;00904792460
  1. ;;9002226.02101,"1084,00904792461 ",.01)
  1. ;;00904792461
  1. ;;9002226.02101,"1084,00904792461 ",.02)
  1. ;;00904792461
  1. ;;9002226.02101,"1084,00904792480 ",.01)
  1. ;;00904792480
  1. ;;9002226.02101,"1084,00904792480 ",.02)
  1. ;;00904792480
  1. ;;9002226.02101,"1084,00904792540 ",.01)
  1. ;;00904792540
  1. ;;9002226.02101,"1084,00904792540 ",.02)
  1. ;;00904792540
  1. ;;9002226.02101,"1084,00904792560 ",.01)
  1. ;;00904792560
  1. ;;9002226.02101,"1084,00904792560 ",.02)
  1. ;;00904792560
  1. ;;9002226.02101,"1084,00904792561 ",.01)
  1. ;;00904792561
  1. ;;9002226.02101,"1084,00904792561 ",.02)
  1. ;;00904792561
  1. ;;9002226.02101,"1084,00904792580 ",.01)
  1. ;;00904792580
  1. ;;9002226.02101,"1084,00904792580 ",.02)
  1. ;;00904792580
  1. ;;9002226.02101,"1084,05486853840 ",.01)
  1. ;;05486853840
  1. ;;9002226.02101,"1084,05486853840 ",.02)
  1. ;;05486853840
  1. ;;9002226.02101,"1084,05486853842 ",.01)
  1. ;;05486853842
  1. ;;9002226.02101,"1084,05486853842 ",.02)
  1. ;;05486853842
  1. ;;9002226.02101,"1084,06678021007 ",.01)
  1. ;;06678021007
  1. ;;9002226.02101,"1084,06678021007 ",.02)
  1. ;;06678021007
  1. ;;9002226.02101,"1084,06678021009 ",.01)
  1. ;;06678021009
  1. ;;9002226.02101,"1084,06678021009 ",.02)
  1. ;;06678021009
  1. ;;9002226.02101,"1084,06678021201 ",.01)
  1. ;;06678021201
  1. ;;9002226.02101,"1084,06678021201 ",.02)
  1. ;;06678021201
  1. ;;9002226.02101,"1084,10544019230 ",.01)
  1. ;;10544019230
  1. ;;9002226.02101,"1084,10544019230 ",.02)
  1. ;;10544019230
  1. ;;9002226.02101,"1084,10768715001 ",.01)
  1. ;;10768715001
  1. ;;9002226.02101,"1084,10768715001 ",.02)
  1. ;;10768715001
  1. ;;9002226.02101,"1084,10768715002 ",.01)
  1. ;;10768715002
  1. ;;9002226.02101,"1084,10768715002 ",.02)
  1. ;;10768715002
  1. ;;9002226.02101,"1084,10768747501 ",.01)
  1. ;;10768747501
  1. ;;9002226.02101,"1084,10768747501 ",.02)
  1. ;;10768747501
  1. ;;9002226.02101,"1084,10768747502 ",.01)
  1. ;;10768747502
  1. ;;9002226.02101,"1084,10768747502 ",.02)
  1. ;;10768747502
  1. ;;9002226.02101,"1084,10768770001 ",.01)
  1. ;;10768770001
  1. ;;9002226.02101,"1084,10768770001 ",.02)
  1. ;;10768770001
  1. ;;9002226.02101,"1084,10768770002 ",.01)
  1. ;;10768770002
  1. ;;9002226.02101,"1084,10768770002 ",.02)
  1. ;;10768770002
  1. ;;9002226.02101,"1084,11819006560 ",.01)
  1. ;;11819006560
  1. ;;9002226.02101,"1084,11819006560 ",.02)
  1. ;;11819006560
  1. ;;9002226.02101,"1084,11819006590 ",.01)
  1. ;;11819006590
  1. ;;9002226.02101,"1084,11819006590 ",.02)
  1. ;;11819006590
  1. ;;9002226.02101,"1084,11819006591 ",.01)
  1. ;;11819006591
  1. ;;9002226.02101,"1084,11819006591 ",.02)
  1. ;;11819006591
  1. ;;9002226.02101,"1084,11819006595 ",.01)
  1. ;;11819006595
  1. ;;9002226.02101,"1084,11819006595 ",.02)
  1. ;;11819006595
  1. ;;9002226.02101,"1084,11819006597 ",.01)
  1. ;;11819006597
  1. ;;9002226.02101,"1084,11819006597 ",.02)
  1. ;;11819006597
  1. ;;9002226.02101,"1084,11819006598 ",.01)
  1. ;;11819006598
  1. ;;9002226.02101,"1084,11819006598 ",.02)
  1. ;;11819006598
  1. ;;9002226.02101,"1084,11819008760 ",.01)
  1. ;;11819008760
  1. ;;9002226.02101,"1084,11819008760 ",.02)
  1. ;;11819008760
  1. ;;9002226.02101,"1084,11819008790 ",.01)
  1. ;;11819008790
  1. ;;9002226.02101,"1084,11819008790 ",.02)
  1. ;;11819008790
  1. ;;9002226.02101,"1084,11819008791 ",.01)
  1. ;;11819008791
  1. ;;9002226.02101,"1084,11819008791 ",.02)
  1. ;;11819008791
  1. ;;9002226.02101,"1084,11819008795 ",.01)
  1. ;;11819008795
  1. ;;9002226.02101,"1084,11819008795 ",.02)
  1. ;;11819008795
  1. ;;9002226.02101,"1084,11819008797 ",.01)
  1. ;;11819008797
  1. ;;9002226.02101,"1084,11819008797 ",.02)
  1. ;;11819008797
  1. ;;9002226.02101,"1084,11819008798 ",.01)
  1. ;;11819008798
  1. ;;9002226.02101,"1084,11819008798 ",.02)
  1. ;;11819008798
  1. ;;9002226.02101,"1084,11819012160 ",.01)
  1. ;;11819012160
  1. ;;9002226.02101,"1084,11819012160 ",.02)
  1. ;;11819012160
  1. ;;9002226.02101,"1084,11819012190 ",.01)
  1. ;;11819012190
  1. ;;9002226.02101,"1084,11819012190 ",.02)
  1. ;;11819012190
  1. ;;9002226.02101,"1084,12634049060 ",.01)
  1. ;;12634049060
  1. ;;9002226.02101,"1084,12634049060 ",.02)
  1. ;;12634049060
  1. ;;9002226.02101,"1084,12634072960 ",.01)
  1. ;;12634072960
  1. ;;9002226.02101,"1084,12634072960 ",.02)
  1. ;;12634072960
  1. ;;9002226.02101,"1084,12634075690 ",.01)
  1. ;;12634075690
  1. ;;9002226.02101,"1084,12634075690 ",.02)
  1. ;;12634075690
  1. ;;9002226.02101,"1084,12634078480 ",.01)
  1. ;;12634078480
  1. ;;9002226.02101,"1084,12634078480 ",.02)
  1. ;;12634078480
  1. ;;9002226.02101,"1084,12634078912 ",.01)
  1. ;;12634078912
  1. ;;9002226.02101,"1084,12634078912 ",.02)
  1. ;;12634078912
  1. ;;9002226.02101,"1084,12634079012 ",.01)
  1. ;;12634079012
  1. ;;9002226.02101,"1084,12634079012 ",.02)
  1. ;;12634079012
  1. ;;9002226.02101,"1084,13107000801 ",.01)
  1. ;;13107000801
  1. ;;9002226.02101,"1084,13107000801 ",.02)
  1. ;;13107000801
  1. ;;9002226.02101,"1084,13107000805 ",.01)
  1. ;;13107000805
  1. ;;9002226.02101,"1084,13107000805 ",.02)
  1. ;;13107000805
  1. ;;9002226.02101,"1084,13107000849 ",.01)
  1. ;;13107000849
  1. ;;9002226.02101,"1084,13107000849 ",.02)
  1. ;;13107000849
  1. ;;9002226.02101,"1084,13107000850 ",.01)
  1. ;;13107000850
  1. ;;9002226.02101,"1084,13107000850 ",.02)
  1. ;;13107000850
  1. ;;9002226.02101,"1084,13107000860 ",.01)
  1. ;;13107000860
  1. ;;9002226.02101,"1084,13107000860 ",.02)
  1. ;;13107000860
  1. ;;9002226.02101,"1084,13107000890 ",.01)
  1. ;;13107000890
  1. ;;9002226.02101,"1084,13107000890 ",.02)
  1. ;;13107000890
  1. ;;9002226.02101,"1084,13107000901 ",.01)
  1. ;;13107000901
  1. ;;9002226.02101,"1084,13107000901 ",.02)
  1. ;;13107000901
  1. ;;9002226.02101,"1084,13107000905 ",.01)
  1. ;;13107000905
  1. ;;9002226.02101,"1084,13107000905 ",.02)
  1. ;;13107000905
  1. ;;9002226.02101,"1084,13107000922 ",.01)
  1. ;;13107000922
  1. ;;9002226.02101,"1084,13107000922 ",.02)
  1. ;;13107000922
  1. ;;9002226.02101,"1084,13107000950 ",.01)
  1. ;;13107000950
  1. ;;9002226.02101,"1084,13107000950 ",.02)
  1. ;;13107000950
  1. ;;9002226.02101,"1084,13107000960 ",.01)
  1. ;;13107000960
  1. ;;9002226.02101,"1084,13107000960 ",.02)
  1. ;;13107000960
  1. ;;9002226.02101,"1084,13107000990 ",.01)
  1. ;;13107000990
  1. ;;9002226.02101,"1084,13107000990 ",.02)
  1. ;;13107000990
  1. ;;9002226.02101,"1084,13107001001 ",.01)
  1. ;;13107001001
  1. ;;9002226.02101,"1084,13107001001 ",.02)
  1. ;;13107001001
  1. ;;9002226.02101,"1084,13107001005 ",.01)
  1. ;;13107001005
  1. ;;9002226.02101,"1084,13107001005 ",.02)
  1. ;;13107001005
  1. ;;9002226.02101,"1084,13107001026 ",.01)
  1. ;;13107001026
  1. ;;9002226.02101,"1084,13107001026 ",.02)
  1. ;;13107001026
  1. ;;9002226.02101,"1084,13107001050 ",.01)
  1. ;;13107001050
  1. ;;9002226.02101,"1084,13107001050 ",.02)
  1. ;;13107001050
  1. ;;9002226.02101,"1084,13107001090 ",.01)
  1. ;;13107001090
  1. ;;9002226.02101,"1084,13107001090 ",.02)
  1. ;;13107001090