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

BGPM5BDX.m

Go to the documentation of this file.
BGPM5BDX ;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,66116034430 ",.01)
 ;;66116034430
 ;;9002226.02101,"1044,66116034430 ",.02)
 ;;66116034430
 ;;9002226.02101,"1044,66116034830 ",.01)
 ;;66116034830
 ;;9002226.02101,"1044,66116034830 ",.02)
 ;;66116034830
 ;;9002226.02101,"1044,66116035030 ",.01)
 ;;66116035030
 ;;9002226.02101,"1044,66116035030 ",.02)
 ;;66116035030
 ;;9002226.02101,"1044,66116035230 ",.01)
 ;;66116035230
 ;;9002226.02101,"1044,66116035230 ",.02)
 ;;66116035230
 ;;9002226.02101,"1044,66116035315 ",.01)
 ;;66116035315
 ;;9002226.02101,"1044,66116035315 ",.02)
 ;;66116035315
 ;;9002226.02101,"1044,66116035730 ",.01)
 ;;66116035730
 ;;9002226.02101,"1044,66116035730 ",.02)
 ;;66116035730
 ;;9002226.02101,"1044,66116082530 ",.01)
 ;;66116082530
 ;;9002226.02101,"1044,66116082530 ",.02)
 ;;66116082530
 ;;9002226.02101,"1044,66116082630 ",.01)
 ;;66116082630
 ;;9002226.02101,"1044,66116082630 ",.02)
 ;;66116082630
 ;;9002226.02101,"1044,66116084430 ",.01)
 ;;66116084430
 ;;9002226.02101,"1044,66116084430 ",.02)
 ;;66116084430
 ;;9002226.02101,"1044,66116085730 ",.01)
 ;;66116085730
 ;;9002226.02101,"1044,66116085730 ",.02)
 ;;66116085730
 ;;9002226.02101,"1044,66116087130 ",.01)
 ;;66116087130
 ;;9002226.02101,"1044,66116087130 ",.02)
 ;;66116087130
 ;;9002226.02101,"1044,66116087630 ",.01)
 ;;66116087630
 ;;9002226.02101,"1044,66116087630 ",.02)
 ;;66116087630
 ;;9002226.02101,"1044,66258700503 ",.01)
 ;;66258700503
 ;;9002226.02101,"1044,66258700503 ",.02)
 ;;66258700503
 ;;9002226.02101,"1044,66267001810 ",.01)
 ;;66267001810
 ;;9002226.02101,"1044,66267001810 ",.02)
 ;;66267001810
 ;;9002226.02101,"1044,66267001815 ",.01)
 ;;66267001815
 ;;9002226.02101,"1044,66267001815 ",.02)
 ;;66267001815
 ;;9002226.02101,"1044,66267001820 ",.01)
 ;;66267001820
 ;;9002226.02101,"1044,66267001820 ",.02)
 ;;66267001820
 ;;9002226.02101,"1044,66267001828 ",.01)
 ;;66267001828
 ;;9002226.02101,"1044,66267001828 ",.02)
 ;;66267001828
 ;;9002226.02101,"1044,66267001830 ",.01)
 ;;66267001830
 ;;9002226.02101,"1044,66267001830 ",.02)
 ;;66267001830
 ;;9002226.02101,"1044,66267001840 ",.01)
 ;;66267001840
 ;;9002226.02101,"1044,66267001840 ",.02)
 ;;66267001840
 ;;9002226.02101,"1044,66267001860 ",.01)
 ;;66267001860
 ;;9002226.02101,"1044,66267001860 ",.02)
 ;;66267001860
 ;;9002226.02101,"1044,66267001890 ",.01)
 ;;66267001890
 ;;9002226.02101,"1044,66267001890 ",.02)
 ;;66267001890
 ;;9002226.02101,"1044,66267001914 ",.01)
 ;;66267001914
 ;;9002226.02101,"1044,66267001914 ",.02)
 ;;66267001914
 ;;9002226.02101,"1044,66267001915 ",.01)
 ;;66267001915
 ;;9002226.02101,"1044,66267001915 ",.02)
 ;;66267001915
 ;;9002226.02101,"1044,66267001920 ",.01)
 ;;66267001920
 ;;9002226.02101,"1044,66267001920 ",.02)
 ;;66267001920
 ;;9002226.02101,"1044,66267001925 ",.01)
 ;;66267001925
 ;;9002226.02101,"1044,66267001925 ",.02)
 ;;66267001925
 ;;9002226.02101,"1044,66267001930 ",.01)
 ;;66267001930
 ;;9002226.02101,"1044,66267001930 ",.02)
 ;;66267001930
 ;;9002226.02101,"1044,66267001940 ",.01)
 ;;66267001940
 ;;9002226.02101,"1044,66267001940 ",.02)
 ;;66267001940
 ;;9002226.02101,"1044,66267001960 ",.01)
 ;;66267001960
 ;;9002226.02101,"1044,66267001960 ",.02)
 ;;66267001960
 ;;9002226.02101,"1044,66267001990 ",.01)
 ;;66267001990
 ;;9002226.02101,"1044,66267001990 ",.02)
 ;;66267001990
 ;;9002226.02101,"1044,66267001991 ",.01)
 ;;66267001991
 ;;9002226.02101,"1044,66267001991 ",.02)
 ;;66267001991
 ;;9002226.02101,"1044,66267002005 ",.01)
 ;;66267002005
 ;;9002226.02101,"1044,66267002005 ",.02)
 ;;66267002005
 ;;9002226.02101,"1044,66267002010 ",.01)
 ;;66267002010
 ;;9002226.02101,"1044,66267002010 ",.02)
 ;;66267002010
 ;;9002226.02101,"1044,66267002020 ",.01)
 ;;66267002020
 ;;9002226.02101,"1044,66267002020 ",.02)
 ;;66267002020
 ;;9002226.02101,"1044,66267002030 ",.01)
 ;;66267002030
 ;;9002226.02101,"1044,66267002030 ",.02)
 ;;66267002030
 ;;9002226.02101,"1044,66267002040 ",.01)
 ;;66267002040
 ;;9002226.02101,"1044,66267002040 ",.02)
 ;;66267002040
 ;;9002226.02101,"1044,66267002060 ",.01)
 ;;66267002060
 ;;9002226.02101,"1044,66267002060 ",.02)
 ;;66267002060
 ;;9002226.02101,"1044,66267002090 ",.01)
 ;;66267002090
 ;;9002226.02101,"1044,66267002090 ",.02)
 ;;66267002090
 ;;9002226.02101,"1044,66267020504 ",.01)
 ;;66267020504
 ;;9002226.02101,"1044,66267020504 ",.02)
 ;;66267020504
 ;;9002226.02101,"1044,66267020510 ",.01)
 ;;66267020510
 ;;9002226.02101,"1044,66267020510 ",.02)
 ;;66267020510
 ;;9002226.02101,"1044,66267020520 ",.01)
 ;;66267020520
 ;;9002226.02101,"1044,66267020520 ",.02)
 ;;66267020520
 ;;9002226.02101,"1044,66267020530 ",.01)
 ;;66267020530
 ;;9002226.02101,"1044,66267020530 ",.02)
 ;;66267020530
 ;;9002226.02101,"1044,66267020540 ",.01)
 ;;66267020540
 ;;9002226.02101,"1044,66267020540 ",.02)
 ;;66267020540
 ;;9002226.02101,"1044,66267020560 ",.01)
 ;;66267020560
 ;;9002226.02101,"1044,66267020560 ",.02)
 ;;66267020560
 ;;9002226.02101,"1044,66267020590 ",.01)
 ;;66267020590
 ;;9002226.02101,"1044,66267020590 ",.02)
 ;;66267020590
 ;;9002226.02101,"1044,66267020594 ",.01)
 ;;66267020594
 ;;9002226.02101,"1044,66267020594 ",.02)
 ;;66267020594
 ;;9002226.02101,"1044,66267026630 ",.01)
 ;;66267026630
 ;;9002226.02101,"1044,66267026630 ",.02)
 ;;66267026630
 ;;9002226.02101,"1044,66267039220 ",.01)
 ;;66267039220
 ;;9002226.02101,"1044,66267039220 ",.02)
 ;;66267039220
 ;;9002226.02101,"1044,66267039230 ",.01)
 ;;66267039230
 ;;9002226.02101,"1044,66267039230 ",.02)
 ;;66267039230
 ;;9002226.02101,"1044,66267039240 ",.01)
 ;;66267039240
 ;;9002226.02101,"1044,66267039240 ",.02)
 ;;66267039240
 ;;9002226.02101,"1044,66267039260 ",.01)
 ;;66267039260
 ;;9002226.02101,"1044,66267039260 ",.02)
 ;;66267039260
 ;;9002226.02101,"1044,66267039290 ",.01)
 ;;66267039290
 ;;9002226.02101,"1044,66267039290 ",.02)
 ;;66267039290
 ;;9002226.02101,"1044,66267048310 ",.01)
 ;;66267048310
 ;;9002226.02101,"1044,66267048310 ",.02)
 ;;66267048310
 ;;9002226.02101,"1044,66267048315 ",.01)
 ;;66267048315
 ;;9002226.02101,"1044,66267048315 ",.02)
 ;;66267048315
 ;;9002226.02101,"1044,66267048320 ",.01)
 ;;66267048320
 ;;9002226.02101,"1044,66267048320 ",.02)
 ;;66267048320
 ;;9002226.02101,"1044,66267048330 ",.01)
 ;;66267048330
 ;;9002226.02101,"1044,66267048330 ",.02)
 ;;66267048330
 ;;9002226.02101,"1044,66267048340 ",.01)
 ;;66267048340
 ;;9002226.02101,"1044,66267048340 ",.02)
 ;;66267048340
 ;;9002226.02101,"1044,66267048345 ",.01)
 ;;66267048345
 ;;9002226.02101,"1044,66267048345 ",.02)
 ;;66267048345
 ;;9002226.02101,"1044,66267048360 ",.01)
 ;;66267048360
 ;;9002226.02101,"1044,66267048360 ",.02)
 ;;66267048360
 ;;9002226.02101,"1044,66267048415 ",.01)
 ;;66267048415
 ;;9002226.02101,"1044,66267048415 ",.02)
 ;;66267048415
 ;;9002226.02101,"1044,66267048420 ",.01)
 ;;66267048420
 ;;9002226.02101,"1044,66267048420 ",.02)
 ;;66267048420
 ;;9002226.02101,"1044,66267048430 ",.01)
 ;;66267048430
 ;;9002226.02101,"1044,66267048430 ",.02)
 ;;66267048430
 ;;9002226.02101,"1044,66267048440 ",.01)
 ;;66267048440
 ;;9002226.02101,"1044,66267048440 ",.02)
 ;;66267048440
 ;;9002226.02101,"1044,66267048445 ",.01)
 ;;66267048445
 ;;9002226.02101,"1044,66267048445 ",.02)
 ;;66267048445
 ;;9002226.02101,"1044,66267048450 ",.01)
 ;;66267048450
 ;;9002226.02101,"1044,66267048450 ",.02)
 ;;66267048450
 ;;9002226.02101,"1044,66267048460 ",.01)
 ;;66267048460
 ;;9002226.02101,"1044,66267048460 ",.02)
 ;;66267048460
 ;;9002226.02101,"1044,66267048810 ",.01)
 ;;66267048810
 ;;9002226.02101,"1044,66267048810 ",.02)
 ;;66267048810
 ;;9002226.02101,"1044,66267048815 ",.01)
 ;;66267048815
 ;;9002226.02101,"1044,66267048815 ",.02)
 ;;66267048815
 ;;9002226.02101,"1044,66267048820 ",.01)
 ;;66267048820
 ;;9002226.02101,"1044,66267048820 ",.02)
 ;;66267048820
 ;;9002226.02101,"1044,66267048830 ",.01)
 ;;66267048830
 ;;9002226.02101,"1044,66267048830 ",.02)
 ;;66267048830
 ;;9002226.02101,"1044,66267048840 ",.01)
 ;;66267048840
 ;;9002226.02101,"1044,66267048840 ",.02)
 ;;66267048840
 ;;9002226.02101,"1044,66267048860 ",.01)
 ;;66267048860
 ;;9002226.02101,"1044,66267048860 ",.02)
 ;;66267048860
 ;;9002226.02101,"1044,66267048890 ",.01)
 ;;66267048890
 ;;9002226.02101,"1044,66267048890 ",.02)
 ;;66267048890
 ;;9002226.02101,"1044,66267052210 ",.01)
 ;;66267052210
 ;;9002226.02101,"1044,66267052210 ",.02)
 ;;66267052210
 ;;9002226.02101,"1044,66267052215 ",.01)
 ;;66267052215
 ;;9002226.02101,"1044,66267052215 ",.02)
 ;;66267052215
 ;;9002226.02101,"1044,66267052220 ",.01)
 ;;66267052220
 ;;9002226.02101,"1044,66267052220 ",.02)
 ;;66267052220
 ;;9002226.02101,"1044,66267052230 ",.01)
 ;;66267052230
 ;;9002226.02101,"1044,66267052230 ",.02)
 ;;66267052230
 ;;9002226.02101,"1044,66267052240 ",.01)
 ;;66267052240
 ;;9002226.02101,"1044,66267052240 ",.02)
 ;;66267052240
 ;;9002226.02101,"1044,66267056010 ",.01)
 ;;66267056010
 ;;9002226.02101,"1044,66267056010 ",.02)
 ;;66267056010
 ;;9002226.02101,"1044,66267056020 ",.01)
 ;;66267056020
 ;;9002226.02101,"1044,66267056020 ",.02)
 ;;66267056020
 ;;9002226.02101,"1044,66267056030 ",.01)
 ;;66267056030
 ;;9002226.02101,"1044,66267056030 ",.02)
 ;;66267056030
 ;;9002226.02101,"1044,66267056040 ",.01)
 ;;66267056040
 ;;9002226.02101,"1044,66267056040 ",.02)
 ;;66267056040
 ;;9002226.02101,"1044,66267056060 ",.01)
 ;;66267056060
 ;;9002226.02101,"1044,66267056060 ",.02)
 ;;66267056060
 ;;9002226.02101,"1044,66267056090 ",.01)
 ;;66267056090
 ;;9002226.02101,"1044,66267056090 ",.02)
 ;;66267056090
 ;;9002226.02101,"1044,66267057620 ",.01)
 ;;66267057620
 ;;9002226.02101,"1044,66267057620 ",.02)
 ;;66267057620
 ;;9002226.02101,"1044,66267057630 ",.01)
 ;;66267057630
 ;;9002226.02101,"1044,66267057630 ",.02)
 ;;66267057630
 ;;9002226.02101,"1044,66267057640 ",.01)
 ;;66267057640
 ;;9002226.02101,"1044,66267057640 ",.02)
 ;;66267057640
 ;;9002226.02101,"1044,66267057660 ",.01)
 ;;66267057660
 ;;9002226.02101,"1044,66267057660 ",.02)
 ;;66267057660
 ;;9002226.02101,"1044,66267057690 ",.01)
 ;;66267057690
 ;;9002226.02101,"1044,66267057690 ",.02)
 ;;66267057690
 ;;9002226.02101,"1044,66267058710 ",.01)
 ;;66267058710
 ;;9002226.02101,"1044,66267058710 ",.02)
 ;;66267058710
 ;;9002226.02101,"1044,66267058720 ",.01)
 ;;66267058720
 ;;9002226.02101,"1044,66267058720 ",.02)
 ;;66267058720
 ;;9002226.02101,"1044,66267058730 ",.01)
 ;;66267058730
 ;;9002226.02101,"1044,66267058730 ",.02)
 ;;66267058730
 ;;9002226.02101,"1044,66267058740 ",.01)
 ;;66267058740
 ;;9002226.02101,"1044,66267058740 ",.02)
 ;;66267058740
 ;;9002226.02101,"1044,66267058760 ",.01)
 ;;66267058760
 ;;9002226.02101,"1044,66267058760 ",.02)
 ;;66267058760
 ;;9002226.02101,"1044,66267067430 ",.01)
 ;;66267067430
 ;;9002226.02101,"1044,66267067430 ",.02)
 ;;66267067430
 ;;9002226.02101,"1044,66267072130 ",.01)
 ;;66267072130
 ;;9002226.02101,"1044,66267072130 ",.02)
 ;;66267072130
 ;;9002226.02101,"1044,66267072160 ",.01)
 ;;66267072160
 ;;9002226.02101,"1044,66267072160 ",.02)
 ;;66267072160
 ;;9002226.02101,"1044,66267072430 ",.01)
 ;;66267072430
 ;;9002226.02101,"1044,66267072430 ",.02)
 ;;66267072430
 ;;9002226.02101,"1044,66267100600 ",.01)
 ;;66267100600
 ;;9002226.02101,"1044,66267100600 ",.02)
 ;;66267100600
 ;;9002226.02101,"1044,66336000430 ",.01)
 ;;66336000430
 ;;9002226.02101,"1044,66336000430 ",.02)
 ;;66336000430
 ;;9002226.02101,"1044,66336000460 ",.01)
 ;;66336000460
 ;;9002226.02101,"1044,66336000460 ",.02)
 ;;66336000460
 ;;9002226.02101,"1044,66336000490 ",.01)
 ;;66336000490