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