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

BGPM5BCE.m

Go to the documentation of this file.
BGPM5BCE ;IHS/MSC/SAT-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,"1044,41616075881 ",.01)
 ;;41616075881
 ;;9002226.02101,"1044,41616075881 ",.02)
 ;;41616075881
 ;;9002226.02101,"1044,41616075883 ",.01)
 ;;41616075883
 ;;9002226.02101,"1044,41616075883 ",.02)
 ;;41616075883
 ;;9002226.02101,"1044,41616075888 ",.01)
 ;;41616075888
 ;;9002226.02101,"1044,41616075888 ",.02)
 ;;41616075888
 ;;9002226.02101,"1044,41616075908 ",.01)
 ;;41616075908
 ;;9002226.02101,"1044,41616075908 ",.02)
 ;;41616075908
 ;;9002226.02101,"1044,41616075918 ",.01)
 ;;41616075918
 ;;9002226.02101,"1044,41616075918 ",.02)
 ;;41616075918
 ;;9002226.02101,"1044,41616075981 ",.01)
 ;;41616075981
 ;;9002226.02101,"1044,41616075981 ",.02)
 ;;41616075981
 ;;9002226.02101,"1044,41616075983 ",.01)
 ;;41616075983
 ;;9002226.02101,"1044,41616075983 ",.02)
 ;;41616075983
 ;;9002226.02101,"1044,41616075988 ",.01)
 ;;41616075988
 ;;9002226.02101,"1044,41616075988 ",.02)
 ;;41616075988
 ;;9002226.02101,"1044,41616076008 ",.01)
 ;;41616076008
 ;;9002226.02101,"1044,41616076008 ",.02)
 ;;41616076008
 ;;9002226.02101,"1044,41616076018 ",.01)
 ;;41616076018
 ;;9002226.02101,"1044,41616076018 ",.02)
 ;;41616076018
 ;;9002226.02101,"1044,41616076081 ",.01)
 ;;41616076081
 ;;9002226.02101,"1044,41616076081 ",.02)
 ;;41616076081
 ;;9002226.02101,"1044,41616076083 ",.01)
 ;;41616076083
 ;;9002226.02101,"1044,41616076083 ",.02)
 ;;41616076083
 ;;9002226.02101,"1044,41616076088 ",.01)
 ;;41616076088
 ;;9002226.02101,"1044,41616076088 ",.02)
 ;;41616076088
 ;;9002226.02101,"1044,42549032930 ",.01)
 ;;42549032930
 ;;9002226.02101,"1044,42549032930 ",.02)
 ;;42549032930
 ;;9002226.02101,"1044,42549033630 ",.01)
 ;;42549033630
 ;;9002226.02101,"1044,42549033630 ",.02)
 ;;42549033630
 ;;9002226.02101,"1044,42549052930 ",.01)
 ;;42549052930
 ;;9002226.02101,"1044,42549052930 ",.02)
 ;;42549052930
 ;;9002226.02101,"1044,42549052960 ",.01)
 ;;42549052960
 ;;9002226.02101,"1044,42549052960 ",.02)
 ;;42549052960
 ;;9002226.02101,"1044,42549052990 ",.01)
 ;;42549052990
 ;;9002226.02101,"1044,42549052990 ",.02)
 ;;42549052990
 ;;9002226.02101,"1044,42549053630 ",.01)
 ;;42549053630
 ;;9002226.02101,"1044,42549053630 ",.02)
 ;;42549053630
 ;;9002226.02101,"1044,42549054612 ",.01)
 ;;42549054612
 ;;9002226.02101,"1044,42549054612 ",.02)
 ;;42549054612
 ;;9002226.02101,"1044,42549054630 ",.01)
 ;;42549054630
 ;;9002226.02101,"1044,42549054630 ",.02)
 ;;42549054630
 ;;9002226.02101,"1044,42549054660 ",.01)
 ;;42549054660
 ;;9002226.02101,"1044,42549054660 ",.02)
 ;;42549054660
 ;;9002226.02101,"1044,42549054690 ",.01)
 ;;42549054690
 ;;9002226.02101,"1044,42549054690 ",.02)
 ;;42549054690
 ;;9002226.02101,"1044,42549059930 ",.01)
 ;;42549059930
 ;;9002226.02101,"1044,42549059930 ",.02)
 ;;42549059930
 ;;9002226.02101,"1044,42549060530 ",.01)
 ;;42549060530
 ;;9002226.02101,"1044,42549060530 ",.02)
 ;;42549060530
 ;;9002226.02101,"1044,42549060560 ",.01)
 ;;42549060560
 ;;9002226.02101,"1044,42549060560 ",.02)
 ;;42549060560
 ;;9002226.02101,"1044,42549060590 ",.01)
 ;;42549060590
 ;;9002226.02101,"1044,42549060590 ",.02)
 ;;42549060590
 ;;9002226.02101,"1044,42549061330 ",.01)
 ;;42549061330
 ;;9002226.02101,"1044,42549061330 ",.02)
 ;;42549061330
 ;;9002226.02101,"1044,42549061360 ",.01)
 ;;42549061360
 ;;9002226.02101,"1044,42549061360 ",.02)
 ;;42549061360
 ;;9002226.02101,"1044,42549061390 ",.01)
 ;;42549061390
 ;;9002226.02101,"1044,42549061390 ",.02)
 ;;42549061390
 ;;9002226.02101,"1044,42769122100 ",.01)
 ;;42769122100
 ;;9002226.02101,"1044,42769122100 ",.02)
 ;;42769122100
 ;;9002226.02101,"1044,42769122200 ",.01)
 ;;42769122200
 ;;9002226.02101,"1044,42769122200 ",.02)
 ;;42769122200
 ;;9002226.02101,"1044,42769122500 ",.01)
 ;;42769122500
 ;;9002226.02101,"1044,42769122500 ",.02)
 ;;42769122500
 ;;9002226.02101,"1044,42806001901 ",.01)
 ;;42806001901
 ;;9002226.02101,"1044,42806001901 ",.02)
 ;;42806001901
 ;;9002226.02101,"1044,42806001910 ",.01)
 ;;42806001910
 ;;9002226.02101,"1044,42806001910 ",.02)
 ;;42806001910
 ;;9002226.02101,"1044,42806001930 ",.01)
 ;;42806001930
 ;;9002226.02101,"1044,42806001930 ",.02)
 ;;42806001930
 ;;9002226.02101,"1044,42806002001 ",.01)
 ;;42806002001
 ;;9002226.02101,"1044,42806002001 ",.02)
 ;;42806002001
 ;;9002226.02101,"1044,42806002010 ",.01)
 ;;42806002010
 ;;9002226.02101,"1044,42806002010 ",.02)
 ;;42806002010
 ;;9002226.02101,"1044,42806002030 ",.01)
 ;;42806002030
 ;;9002226.02101,"1044,42806002030 ",.02)
 ;;42806002030
 ;;9002226.02101,"1044,42806002101 ",.01)
 ;;42806002101
 ;;9002226.02101,"1044,42806002101 ",.02)
 ;;42806002101
 ;;9002226.02101,"1044,42806002110 ",.01)
 ;;42806002110
 ;;9002226.02101,"1044,42806002110 ",.02)
 ;;42806002110
 ;;9002226.02101,"1044,42806002130 ",.01)
 ;;42806002130
 ;;9002226.02101,"1044,42806002130 ",.02)
 ;;42806002130
 ;;9002226.02101,"1044,42843030110 ",.01)
 ;;42843030110
 ;;9002226.02101,"1044,42843030110 ",.02)
 ;;42843030110
 ;;9002226.02101,"1044,42843030111 ",.01)
 ;;42843030111
 ;;9002226.02101,"1044,42843030111 ",.02)
 ;;42843030111
 ;;9002226.02101,"1044,42843030210 ",.01)
 ;;42843030210
 ;;9002226.02101,"1044,42843030210 ",.02)
 ;;42843030210
 ;;9002226.02101,"1044,42843030211 ",.01)
 ;;42843030211
 ;;9002226.02101,"1044,42843030211 ",.02)
 ;;42843030211
 ;;9002226.02101,"1044,42843030310 ",.01)
 ;;42843030310
 ;;9002226.02101,"1044,42843030310 ",.02)
 ;;42843030310
 ;;9002226.02101,"1044,42843030311 ",.01)
 ;;42843030311
 ;;9002226.02101,"1044,42843030311 ",.02)
 ;;42843030311
 ;;9002226.02101,"1044,42843030410 ",.01)
 ;;42843030410
 ;;9002226.02101,"1044,42843030410 ",.02)
 ;;42843030410
 ;;9002226.02101,"1044,42843030411 ",.01)
 ;;42843030411
 ;;9002226.02101,"1044,42843030411 ",.02)
 ;;42843030411
 ;;9002226.02101,"1044,43063000901 ",.01)
 ;;43063000901
 ;;9002226.02101,"1044,43063000901 ",.02)
 ;;43063000901
 ;;9002226.02101,"1044,43063003301 ",.01)
 ;;43063003301
 ;;9002226.02101,"1044,43063003301 ",.02)
 ;;43063003301
 ;;9002226.02101,"1044,43063003390 ",.01)
 ;;43063003390
 ;;9002226.02101,"1044,43063003390 ",.02)
 ;;43063003390
 ;;9002226.02101,"1044,43063006301 ",.01)
 ;;43063006301
 ;;9002226.02101,"1044,43063006301 ",.02)
 ;;43063006301
 ;;9002226.02101,"1044,43063019360 ",.01)
 ;;43063019360
 ;;9002226.02101,"1044,43063019360 ",.02)
 ;;43063019360
 ;;9002226.02101,"1044,43063019730 ",.01)
 ;;43063019730
 ;;9002226.02101,"1044,43063019730 ",.02)
 ;;43063019730
 ;;9002226.02101,"1044,43063021301 ",.01)
 ;;43063021301
 ;;9002226.02101,"1044,43063021301 ",.02)
 ;;43063021301
 ;;9002226.02101,"1044,43063021401 ",.01)
 ;;43063021401
 ;;9002226.02101,"1044,43063021401 ",.02)
 ;;43063021401
 ;;9002226.02101,"1044,43063021601 ",.01)
 ;;43063021601
 ;;9002226.02101,"1044,43063021601 ",.02)
 ;;43063021601
 ;;9002226.02101,"1044,43063022101 ",.01)
 ;;43063022101
 ;;9002226.02101,"1044,43063022101 ",.02)
 ;;43063022101
 ;;9002226.02101,"1044,43063022130 ",.01)
 ;;43063022130
 ;;9002226.02101,"1044,43063022130 ",.02)
 ;;43063022130
 ;;9002226.02101,"1044,43063022190 ",.01)
 ;;43063022190
 ;;9002226.02101,"1044,43063022190 ",.02)
 ;;43063022190
 ;;9002226.02101,"1044,43063024930 ",.01)
 ;;43063024930
 ;;9002226.02101,"1044,43063024930 ",.02)
 ;;43063024930
 ;;9002226.02101,"1044,43063025530 ",.01)
 ;;43063025530
 ;;9002226.02101,"1044,43063025530 ",.02)
 ;;43063025530
 ;;9002226.02101,"1044,43063025730 ",.01)
 ;;43063025730
 ;;9002226.02101,"1044,43063025730 ",.02)
 ;;43063025730
 ;;9002226.02101,"1044,43063029230 ",.01)
 ;;43063029230
 ;;9002226.02101,"1044,43063029230 ",.02)
 ;;43063029230
 ;;9002226.02101,"1044,43353000532 ",.01)
 ;;43353000532
 ;;9002226.02101,"1044,43353000532 ",.02)
 ;;43353000532
 ;;9002226.02101,"1044,43353011030 ",.01)
 ;;43353011030
 ;;9002226.02101,"1044,43353011030 ",.02)
 ;;43353011030
 ;;9002226.02101,"1044,43353011032 ",.01)
 ;;43353011032
 ;;9002226.02101,"1044,43353011032 ",.02)
 ;;43353011032
 ;;9002226.02101,"1044,43353011070 ",.01)
 ;;43353011070
 ;;9002226.02101,"1044,43353011070 ",.02)
 ;;43353011070
 ;;9002226.02101,"1044,43353011832 ",.01)
 ;;43353011832
 ;;9002226.02101,"1044,43353011832 ",.02)
 ;;43353011832
 ;;9002226.02101,"1044,43353020430 ",.01)
 ;;43353020430
 ;;9002226.02101,"1044,43353020430 ",.02)
 ;;43353020430
 ;;9002226.02101,"1044,43353020431 ",.01)
 ;;43353020431
 ;;9002226.02101,"1044,43353020431 ",.02)
 ;;43353020431
 ;;9002226.02101,"1044,43353020432 ",.01)
 ;;43353020432
 ;;9002226.02101,"1044,43353020432 ",.02)
 ;;43353020432
 ;;9002226.02101,"1044,43353020453 ",.01)
 ;;43353020453
 ;;9002226.02101,"1044,43353020453 ",.02)
 ;;43353020453
 ;;9002226.02101,"1044,43353020460 ",.01)
 ;;43353020460
 ;;9002226.02101,"1044,43353020460 ",.02)
 ;;43353020460
 ;;9002226.02101,"1044,43353020480 ",.01)
 ;;43353020480
 ;;9002226.02101,"1044,43353020480 ",.02)
 ;;43353020480
 ;;9002226.02101,"1044,43353035330 ",.01)
 ;;43353035330
 ;;9002226.02101,"1044,43353035330 ",.02)
 ;;43353035330
 ;;9002226.02101,"1044,43353035332 ",.01)
 ;;43353035332
 ;;9002226.02101,"1044,43353035332 ",.02)
 ;;43353035332
 ;;9002226.02101,"1044,43353035360 ",.01)
 ;;43353035360
 ;;9002226.02101,"1044,43353035360 ",.02)
 ;;43353035360
 ;;9002226.02101,"1044,43353036215 ",.01)
 ;;43353036215
 ;;9002226.02101,"1044,43353036215 ",.02)
 ;;43353036215
 ;;9002226.02101,"1044,43353036230 ",.01)
 ;;43353036230
 ;;9002226.02101,"1044,43353036230 ",.02)
 ;;43353036230
 ;;9002226.02101,"1044,43353036232 ",.01)
 ;;43353036232
 ;;9002226.02101,"1044,43353036232 ",.02)
 ;;43353036232
 ;;9002226.02101,"1044,43353036245 ",.01)
 ;;43353036245
 ;;9002226.02101,"1044,43353036245 ",.02)
 ;;43353036245
 ;;9002226.02101,"1044,43353036253 ",.01)
 ;;43353036253
 ;;9002226.02101,"1044,43353036253 ",.02)
 ;;43353036253
 ;;9002226.02101,"1044,43353036260 ",.01)
 ;;43353036260
 ;;9002226.02101,"1044,43353036260 ",.02)
 ;;43353036260
 ;;9002226.02101,"1044,43353036273 ",.01)
 ;;43353036273
 ;;9002226.02101,"1044,43353036273 ",.02)
 ;;43353036273
 ;;9002226.02101,"1044,43353036280 ",.01)
 ;;43353036280
 ;;9002226.02101,"1044,43353036280 ",.02)
 ;;43353036280
 ;;9002226.02101,"1044,43353036415 ",.01)
 ;;43353036415
 ;;9002226.02101,"1044,43353036415 ",.02)
 ;;43353036415
 ;;9002226.02101,"1044,43353036430 ",.01)
 ;;43353036430
 ;;9002226.02101,"1044,43353036430 ",.02)
 ;;43353036430
 ;;9002226.02101,"1044,43353036445 ",.01)
 ;;43353036445
 ;;9002226.02101,"1044,43353036445 ",.02)
 ;;43353036445
 ;;9002226.02101,"1044,43353036453 ",.01)
 ;;43353036453
 ;;9002226.02101,"1044,43353036453 ",.02)
 ;;43353036453
 ;;9002226.02101,"1044,43353036460 ",.01)
 ;;43353036460
 ;;9002226.02101,"1044,43353036460 ",.02)
 ;;43353036460
 ;;9002226.02101,"1044,43353036480 ",.01)
 ;;43353036480
 ;;9002226.02101,"1044,43353036480 ",.02)
 ;;43353036480
 ;;9002226.02101,"1044,43353037053 ",.01)
 ;;43353037053
 ;;9002226.02101,"1044,43353037053 ",.02)
 ;;43353037053
 ;;9002226.02101,"1044,43353037845 ",.01)
 ;;43353037845
 ;;9002226.02101,"1044,43353037845 ",.02)
 ;;43353037845
 ;;9002226.02101,"1044,43353038230 ",.01)
 ;;43353038230
 ;;9002226.02101,"1044,43353038230 ",.02)
 ;;43353038230
 ;;9002226.02101,"1044,43353038284 ",.01)
 ;;43353038284
 ;;9002226.02101,"1044,43353038284 ",.02)
 ;;43353038284
 ;;9002226.02101,"1044,43353041515 ",.01)
 ;;43353041515
 ;;9002226.02101,"1044,43353041515 ",.02)
 ;;43353041515
 ;;9002226.02101,"1044,43353041530 ",.01)
 ;;43353041530
 ;;9002226.02101,"1044,43353041530 ",.02)
 ;;43353041530
 ;;9002226.02101,"1044,43353041545 ",.01)
 ;;43353041545