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

BGPM5AJI.m

Go to the documentation of this file.
BGPM5AJI ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"889,24236069902 ",.01)
 ;;24236069902
 ;;9002226.02101,"889,24236069902 ",.02)
 ;;24236069902
 ;;9002226.02101,"889,24236090102 ",.01)
 ;;24236090102
 ;;9002226.02101,"889,24236090102 ",.02)
 ;;24236090102
 ;;9002226.02101,"889,24236090702 ",.01)
 ;;24236090702
 ;;9002226.02101,"889,24236090702 ",.02)
 ;;24236090702
 ;;9002226.02101,"889,24236093402 ",.01)
 ;;24236093402
 ;;9002226.02101,"889,24236093402 ",.02)
 ;;24236093402
 ;;9002226.02101,"889,25021030020 ",.01)
 ;;25021030020
 ;;9002226.02101,"889,25021030020 ",.02)
 ;;25021030020
 ;;9002226.02101,"889,25021030040 ",.01)
 ;;25021030040
 ;;9002226.02101,"889,25021030040 ",.02)
 ;;25021030040
 ;;9002226.02101,"889,25021030305 ",.01)
 ;;25021030305
 ;;9002226.02101,"889,25021030305 ",.02)
 ;;25021030305
 ;;9002226.02101,"889,26053007201 ",.01)
 ;;26053007201
 ;;9002226.02101,"889,26053007201 ",.02)
 ;;26053007201
 ;;9002226.02101,"889,26053024001 ",.01)
 ;;26053024001
 ;;9002226.02101,"889,26053024001 ",.02)
 ;;26053024001
 ;;9002226.02101,"889,29300012601 ",.01)
 ;;29300012601
 ;;9002226.02101,"889,29300012601 ",.02)
 ;;29300012601
 ;;9002226.02101,"889,29300012613 ",.01)
 ;;29300012613
 ;;9002226.02101,"889,29300012613 ",.02)
 ;;29300012613
 ;;9002226.02101,"889,29300012701 ",.01)
 ;;29300012701
 ;;9002226.02101,"889,29300012701 ",.02)
 ;;29300012701
 ;;9002226.02101,"889,29300012713 ",.01)
 ;;29300012713
 ;;9002226.02101,"889,29300012713 ",.02)
 ;;29300012713
 ;;9002226.02101,"889,29300018701 ",.01)
 ;;29300018701
 ;;9002226.02101,"889,29300018701 ",.02)
 ;;29300018701
 ;;9002226.02101,"889,29300018705 ",.01)
 ;;29300018705
 ;;9002226.02101,"889,29300018705 ",.02)
 ;;29300018705
 ;;9002226.02101,"889,29300018713 ",.01)
 ;;29300018713
 ;;9002226.02101,"889,29300018713 ",.02)
 ;;29300018713
 ;;9002226.02101,"889,29300018801 ",.01)
 ;;29300018801
 ;;9002226.02101,"889,29300018801 ",.02)
 ;;29300018801
 ;;9002226.02101,"889,29300018805 ",.01)
 ;;29300018805
 ;;9002226.02101,"889,29300018805 ",.02)
 ;;29300018805
 ;;9002226.02101,"889,29300018813 ",.01)
 ;;29300018813
 ;;9002226.02101,"889,29300018813 ",.02)
 ;;29300018813
 ;;9002226.02101,"889,29300018901 ",.01)
 ;;29300018901
 ;;9002226.02101,"889,29300018901 ",.02)
 ;;29300018901
 ;;9002226.02101,"889,29300018905 ",.01)
 ;;29300018905
 ;;9002226.02101,"889,29300018905 ",.02)
 ;;29300018905
 ;;9002226.02101,"889,29300018913 ",.01)
 ;;29300018913
 ;;9002226.02101,"889,29300018913 ",.02)
 ;;29300018913
 ;;9002226.02101,"889,33358003700 ",.01)
 ;;33358003700
 ;;9002226.02101,"889,33358003700 ",.02)
 ;;33358003700
 ;;9002226.02101,"889,33358003730 ",.01)
 ;;33358003730
 ;;9002226.02101,"889,33358003730 ",.02)
 ;;33358003730
 ;;9002226.02101,"889,33358003760 ",.01)
 ;;33358003760
 ;;9002226.02101,"889,33358003760 ",.02)
 ;;33358003760
 ;;9002226.02101,"889,33358003800 ",.01)
 ;;33358003800
 ;;9002226.02101,"889,33358003800 ",.02)
 ;;33358003800
 ;;9002226.02101,"889,33358003830 ",.01)
 ;;33358003830
 ;;9002226.02101,"889,33358003830 ",.02)
 ;;33358003830
 ;;9002226.02101,"889,33358003860 ",.01)
 ;;33358003860
 ;;9002226.02101,"889,33358003860 ",.02)
 ;;33358003860
 ;;9002226.02101,"889,33358003890 ",.01)
 ;;33358003890
 ;;9002226.02101,"889,33358003890 ",.02)
 ;;33358003890
 ;;9002226.02101,"889,33358003900 ",.01)
 ;;33358003900
 ;;9002226.02101,"889,33358003900 ",.02)
 ;;33358003900
 ;;9002226.02101,"889,33358003930 ",.01)
 ;;33358003930
 ;;9002226.02101,"889,33358003930 ",.02)
 ;;33358003930
 ;;9002226.02101,"889,33358019230 ",.01)
 ;;33358019230
 ;;9002226.02101,"889,33358019230 ",.02)
 ;;33358019230
 ;;9002226.02101,"889,33358019330 ",.01)
 ;;33358019330
 ;;9002226.02101,"889,33358019330 ",.02)
 ;;33358019330
 ;;9002226.02101,"889,33358019430 ",.01)
 ;;33358019430
 ;;9002226.02101,"889,33358019430 ",.02)
 ;;33358019430
 ;;9002226.02101,"889,33358024200 ",.01)
 ;;33358024200
 ;;9002226.02101,"889,33358024200 ",.02)
 ;;33358024200
 ;;9002226.02101,"889,33358024201 ",.01)
 ;;33358024201
 ;;9002226.02101,"889,33358024201 ",.02)
 ;;33358024201
 ;;9002226.02101,"889,33358024230 ",.01)
 ;;33358024230
 ;;9002226.02101,"889,33358024230 ",.02)
 ;;33358024230
 ;;9002226.02101,"889,33358024260 ",.01)
 ;;33358024260
 ;;9002226.02101,"889,33358024260 ",.02)
 ;;33358024260
 ;;9002226.02101,"889,33358024290 ",.01)
 ;;33358024290
 ;;9002226.02101,"889,33358024290 ",.02)
 ;;33358024290
 ;;9002226.02101,"889,33358024300 ",.01)
 ;;33358024300
 ;;9002226.02101,"889,33358024300 ",.02)
 ;;33358024300
 ;;9002226.02101,"889,33358024330 ",.01)
 ;;33358024330
 ;;9002226.02101,"889,33358024330 ",.02)
 ;;33358024330
 ;;9002226.02101,"889,35356036260 ",.01)
 ;;35356036260
 ;;9002226.02101,"889,35356036260 ",.02)
 ;;35356036260
 ;;9002226.02101,"889,35356041530 ",.01)
 ;;35356041530
 ;;9002226.02101,"889,35356041530 ",.02)
 ;;35356041530
 ;;9002226.02101,"889,42291017190 ",.01)
 ;;42291017190
 ;;9002226.02101,"889,42291017190 ",.02)
 ;;42291017190
 ;;9002226.02101,"889,42291017290 ",.01)
 ;;42291017290
 ;;9002226.02101,"889,42291017290 ",.02)
 ;;42291017290
 ;;9002226.02101,"889,42291017390 ",.01)
 ;;42291017390
 ;;9002226.02101,"889,42291017390 ",.02)
 ;;42291017390
 ;;9002226.02101,"889,42806003801 ",.01)
 ;;42806003801
 ;;9002226.02101,"889,42806003801 ",.02)
 ;;42806003801
 ;;9002226.02101,"889,42806003810 ",.01)
 ;;42806003810
 ;;9002226.02101,"889,42806003810 ",.02)
 ;;42806003810
 ;;9002226.02101,"889,42806003901 ",.01)
 ;;42806003901
 ;;9002226.02101,"889,42806003901 ",.02)
 ;;42806003901
 ;;9002226.02101,"889,42806003910 ",.01)
 ;;42806003910
 ;;9002226.02101,"889,42806003910 ",.02)
 ;;42806003910
 ;;9002226.02101,"889,43063000601 ",.01)
 ;;43063000601
 ;;9002226.02101,"889,43063000601 ",.02)
 ;;43063000601
 ;;9002226.02101,"889,43063006201 ",.01)
 ;;43063006201
 ;;9002226.02101,"889,43063006201 ",.02)
 ;;43063006201
 ;;9002226.02101,"889,43063006401 ",.01)
 ;;43063006401
 ;;9002226.02101,"889,43063006401 ",.02)
 ;;43063006401
 ;;9002226.02101,"889,43063006406 ",.01)
 ;;43063006406
 ;;9002226.02101,"889,43063006406 ",.02)
 ;;43063006406
 ;;9002226.02101,"889,43063013430 ",.01)
 ;;43063013430
 ;;9002226.02101,"889,43063013430 ",.02)
 ;;43063013430
 ;;9002226.02101,"889,43063013490 ",.01)
 ;;43063013490
 ;;9002226.02101,"889,43063013490 ",.02)
 ;;43063013490
 ;;9002226.02101,"889,43063013590 ",.01)
 ;;43063013590
 ;;9002226.02101,"889,43063013590 ",.02)
 ;;43063013590
 ;;9002226.02101,"889,43063063090 ",.01)
 ;;43063063090
 ;;9002226.02101,"889,43063063090 ",.02)
 ;;43063063090
 ;;9002226.02101,"889,43353014930 ",.01)
 ;;43353014930
 ;;9002226.02101,"889,43353014930 ",.02)
 ;;43353014930
 ;;9002226.02101,"889,43353014960 ",.01)
 ;;43353014960
 ;;9002226.02101,"889,43353014960 ",.02)
 ;;43353014960
 ;;9002226.02101,"889,43353019230 ",.01)
 ;;43353019230
 ;;9002226.02101,"889,43353019230 ",.02)
 ;;43353019230
 ;;9002226.02101,"889,43353019260 ",.01)
 ;;43353019260
 ;;9002226.02101,"889,43353019260 ",.02)
 ;;43353019260
 ;;9002226.02101,"889,43353021060 ",.01)
 ;;43353021060
 ;;9002226.02101,"889,43353021060 ",.02)
 ;;43353021060
 ;;9002226.02101,"889,43353035160 ",.01)
 ;;43353035160
 ;;9002226.02101,"889,43353035160 ",.02)
 ;;43353035160
 ;;9002226.02101,"889,43353036060 ",.01)
 ;;43353036060
 ;;9002226.02101,"889,43353036060 ",.02)
 ;;43353036060
 ;;9002226.02101,"889,43353037660 ",.01)
 ;;43353037660
 ;;9002226.02101,"889,43353037660 ",.02)
 ;;43353037660
 ;;9002226.02101,"889,43353039845 ",.01)
 ;;43353039845
 ;;9002226.02101,"889,43353039845 ",.02)
 ;;43353039845
 ;;9002226.02101,"889,43353039860 ",.01)
 ;;43353039860
 ;;9002226.02101,"889,43353039860 ",.02)
 ;;43353039860
 ;;9002226.02101,"889,43353039960 ",.01)
 ;;43353039960
 ;;9002226.02101,"889,43353039960 ",.02)
 ;;43353039960
 ;;9002226.02101,"889,43353044860 ",.01)
 ;;43353044860
 ;;9002226.02101,"889,43353044860 ",.02)
 ;;43353044860
 ;;9002226.02101,"889,43353047530 ",.01)
 ;;43353047530
 ;;9002226.02101,"889,43353047530 ",.02)
 ;;43353047530
 ;;9002226.02101,"889,43353050860 ",.01)
 ;;43353050860
 ;;9002226.02101,"889,43353050860 ",.02)
 ;;43353050860
 ;;9002226.02101,"889,43353057645 ",.01)
 ;;43353057645
 ;;9002226.02101,"889,43353057645 ",.02)
 ;;43353057645
 ;;9002226.02101,"889,43353057653 ",.01)
 ;;43353057653
 ;;9002226.02101,"889,43353057653 ",.02)
 ;;43353057653
 ;;9002226.02101,"889,43353057660 ",.01)
 ;;43353057660
 ;;9002226.02101,"889,43353057660 ",.02)
 ;;43353057660
 ;;9002226.02101,"889,43353057670 ",.01)
 ;;43353057670
 ;;9002226.02101,"889,43353057670 ",.02)
 ;;43353057670
 ;;9002226.02101,"889,43353057680 ",.01)
 ;;43353057680
 ;;9002226.02101,"889,43353057680 ",.02)
 ;;43353057680
 ;;9002226.02101,"889,43353057692 ",.01)
 ;;43353057692
 ;;9002226.02101,"889,43353057692 ",.02)
 ;;43353057692
 ;;9002226.02101,"889,43353070160 ",.01)
 ;;43353070160
 ;;9002226.02101,"889,43353070160 ",.02)
 ;;43353070160
 ;;9002226.02101,"889,43353070660 ",.01)
 ;;43353070660
 ;;9002226.02101,"889,43353070660 ",.02)
 ;;43353070660
 ;;9002226.02101,"889,43478090088 ",.01)
 ;;43478090088
 ;;9002226.02101,"889,43478090088 ",.02)
 ;;43478090088
 ;;9002226.02101,"889,43478090188 ",.01)
 ;;43478090188
 ;;9002226.02101,"889,43478090188 ",.02)
 ;;43478090188
 ;;9002226.02101,"889,43478090288 ",.01)
 ;;43478090288
 ;;9002226.02101,"889,43478090288 ",.02)
 ;;43478090288
 ;;9002226.02101,"889,43478090388 ",.01)
 ;;43478090388
 ;;9002226.02101,"889,43478090388 ",.02)
 ;;43478090388
 ;;9002226.02101,"889,43683014230 ",.01)
 ;;43683014230
 ;;9002226.02101,"889,43683014230 ",.02)
 ;;43683014230
 ;;9002226.02101,"889,43683014330 ",.01)
 ;;43683014330
 ;;9002226.02101,"889,43683014330 ",.02)
 ;;43683014330
 ;;9002226.02101,"889,43683014430 ",.01)
 ;;43683014430
 ;;9002226.02101,"889,43683014430 ",.02)
 ;;43683014430
 ;;9002226.02101,"889,43683014630 ",.01)
 ;;43683014630
 ;;9002226.02101,"889,43683014630 ",.02)
 ;;43683014630
 ;;9002226.02101,"889,43806003940 ",.01)
 ;;43806003940
 ;;9002226.02101,"889,43806003940 ",.02)
 ;;43806003940
 ;;9002226.02101,"889,43806003970 ",.01)
 ;;43806003970
 ;;9002226.02101,"889,43806003970 ",.02)
 ;;43806003970
 ;;9002226.02101,"889,43806003980 ",.01)
 ;;43806003980
 ;;9002226.02101,"889,43806003980 ",.02)
 ;;43806003980
 ;;9002226.02101,"889,43806008840 ",.01)
 ;;43806008840
 ;;9002226.02101,"889,43806008840 ",.02)
 ;;43806008840
 ;;9002226.02101,"889,43806008870 ",.01)
 ;;43806008870
 ;;9002226.02101,"889,43806008870 ",.02)
 ;;43806008870
 ;;9002226.02101,"889,43806009340 ",.01)
 ;;43806009340
 ;;9002226.02101,"889,43806009340 ",.02)
 ;;43806009340
 ;;9002226.02101,"889,43806009370 ",.01)
 ;;43806009370
 ;;9002226.02101,"889,43806009370 ",.02)
 ;;43806009370
 ;;9002226.02101,"889,43806040140 ",.01)
 ;;43806040140
 ;;9002226.02101,"889,43806040140 ",.02)
 ;;43806040140
 ;;9002226.02101,"889,43806040170 ",.01)
 ;;43806040170
 ;;9002226.02101,"889,43806040170 ",.02)
 ;;43806040170
 ;;9002226.02101,"889,43806040180 ",.01)
 ;;43806040180
 ;;9002226.02101,"889,43806040180 ",.02)
 ;;43806040180
 ;;9002226.02101,"889,43806057027 ",.01)
 ;;43806057027
 ;;9002226.02101,"889,43806057027 ",.02)
 ;;43806057027
 ;;9002226.02101,"889,43806057127 ",.01)
 ;;43806057127
 ;;9002226.02101,"889,43806057127 ",.02)
 ;;43806057127
 ;;9002226.02101,"889,43806072740 ",.01)
 ;;43806072740
 ;;9002226.02101,"889,43806072740 ",.02)
 ;;43806072740
 ;;9002226.02101,"889,43806072770 ",.01)
 ;;43806072770
 ;;9002226.02101,"889,43806072770 ",.02)
 ;;43806072770