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

BGPM5BBJ.m

Go to the documentation of this file.
BGPM5BBJ ;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,00143995650 ",.01)
 ;;00143995650
 ;;9002226.02101,"1044,00143995650 ",.02)
 ;;00143995650
 ;;9002226.02101,"1044,00143995701 ",.01)
 ;;00143995701
 ;;9002226.02101,"1044,00143995701 ",.02)
 ;;00143995701
 ;;9002226.02101,"1044,00143995705 ",.01)
 ;;00143995705
 ;;9002226.02101,"1044,00143995705 ",.02)
 ;;00143995705
 ;;9002226.02101,"1044,00143995730 ",.01)
 ;;00143995730
 ;;9002226.02101,"1044,00143995730 ",.02)
 ;;00143995730
 ;;9002226.02101,"1044,00143995801 ",.01)
 ;;00143995801
 ;;9002226.02101,"1044,00143995801 ",.02)
 ;;00143995801
 ;;9002226.02101,"1044,00143995805 ",.01)
 ;;00143995805
 ;;9002226.02101,"1044,00143995805 ",.02)
 ;;00143995805
 ;;9002226.02101,"1044,00143995830 ",.01)
 ;;00143995830
 ;;9002226.02101,"1044,00143995830 ",.02)
 ;;00143995830
 ;;9002226.02101,"1044,00172434610 ",.01)
 ;;00172434610
 ;;9002226.02101,"1044,00172434610 ",.02)
 ;;00172434610
 ;;9002226.02101,"1044,00172434646 ",.01)
 ;;00172434646
 ;;9002226.02101,"1044,00172434646 ",.02)
 ;;00172434646
 ;;9002226.02101,"1044,00172434660 ",.01)
 ;;00172434660
 ;;9002226.02101,"1044,00172434660 ",.02)
 ;;00172434660
 ;;9002226.02101,"1044,00172434670 ",.01)
 ;;00172434670
 ;;9002226.02101,"1044,00172434670 ",.02)
 ;;00172434670
 ;;9002226.02101,"1044,00172435610 ",.01)
 ;;00172435610
 ;;9002226.02101,"1044,00172435610 ",.02)
 ;;00172435610
 ;;9002226.02101,"1044,00172435660 ",.01)
 ;;00172435660
 ;;9002226.02101,"1044,00172435660 ",.02)
 ;;00172435660
 ;;9002226.02101,"1044,00172435670 ",.01)
 ;;00172435670
 ;;9002226.02101,"1044,00172435670 ",.02)
 ;;00172435670
 ;;9002226.02101,"1044,00172435680 ",.01)
 ;;00172435680
 ;;9002226.02101,"1044,00172435680 ",.02)
 ;;00172435680
 ;;9002226.02101,"1044,00172436310 ",.01)
 ;;00172436310
 ;;9002226.02101,"1044,00172436310 ",.02)
 ;;00172436310
 ;;9002226.02101,"1044,00172436360 ",.01)
 ;;00172436360
 ;;9002226.02101,"1044,00172436360 ",.02)
 ;;00172436360
 ;;9002226.02101,"1044,00172436370 ",.01)
 ;;00172436370
 ;;9002226.02101,"1044,00172436370 ",.02)
 ;;00172436370
 ;;9002226.02101,"1044,00172436380 ",.01)
 ;;00172436380
 ;;9002226.02101,"1044,00172436380 ",.02)
 ;;00172436380
 ;;9002226.02101,"1044,00172438910 ",.01)
 ;;00172438910
 ;;9002226.02101,"1044,00172438910 ",.02)
 ;;00172438910
 ;;9002226.02101,"1044,00172438960 ",.01)
 ;;00172438960
 ;;9002226.02101,"1044,00172438960 ",.02)
 ;;00172438960
 ;;9002226.02101,"1044,00172438970 ",.01)
 ;;00172438970
 ;;9002226.02101,"1044,00172438970 ",.02)
 ;;00172438970
 ;;9002226.02101,"1044,00172439110 ",.01)
 ;;00172439110
 ;;9002226.02101,"1044,00172439110 ",.02)
 ;;00172439110
 ;;9002226.02101,"1044,00172439160 ",.01)
 ;;00172439160
 ;;9002226.02101,"1044,00172439160 ",.02)
 ;;00172439160
 ;;9002226.02101,"1044,00172439170 ",.01)
 ;;00172439170
 ;;9002226.02101,"1044,00172439170 ",.02)
 ;;00172439170
 ;;9002226.02101,"1044,00172439180 ",.01)
 ;;00172439180
 ;;9002226.02101,"1044,00172439180 ",.02)
 ;;00172439180
 ;;9002226.02101,"1044,00172439210 ",.01)
 ;;00172439210
 ;;9002226.02101,"1044,00172439210 ",.02)
 ;;00172439210
 ;;9002226.02101,"1044,00172439260 ",.01)
 ;;00172439260
 ;;9002226.02101,"1044,00172439260 ",.02)
 ;;00172439260
 ;;9002226.02101,"1044,00172439270 ",.01)
 ;;00172439270
 ;;9002226.02101,"1044,00172439270 ",.02)
 ;;00172439270
 ;;9002226.02101,"1044,00172439280 ",.01)
 ;;00172439280
 ;;9002226.02101,"1044,00172439280 ",.02)
 ;;00172439280
 ;;9002226.02101,"1044,00172451070 ",.01)
 ;;00172451070
 ;;9002226.02101,"1044,00172451070 ",.02)
 ;;00172451070
 ;;9002226.02101,"1044,00172483970 ",.01)
 ;;00172483970
 ;;9002226.02101,"1044,00172483970 ",.02)
 ;;00172483970
 ;;9002226.02101,"1044,00172567210 ",.01)
 ;;00172567210
 ;;9002226.02101,"1044,00172567210 ",.02)
 ;;00172567210
 ;;9002226.02101,"1044,00172567280 ",.01)
 ;;00172567280
 ;;9002226.02101,"1044,00172567280 ",.02)
 ;;00172567280
 ;;9002226.02101,"1044,00172567310 ",.01)
 ;;00172567310
 ;;9002226.02101,"1044,00172567310 ",.02)
 ;;00172567310
 ;;9002226.02101,"1044,00172567410 ",.01)
 ;;00172567410
 ;;9002226.02101,"1044,00172567410 ",.02)
 ;;00172567410
 ;;9002226.02101,"1044,00179000570 ",.01)
 ;;00179000570
 ;;9002226.02101,"1044,00179000570 ",.02)
 ;;00179000570
 ;;9002226.02101,"1044,00179000571 ",.01)
 ;;00179000571
 ;;9002226.02101,"1044,00179000571 ",.02)
 ;;00179000571
 ;;9002226.02101,"1044,00179000572 ",.01)
 ;;00179000572
 ;;9002226.02101,"1044,00179000572 ",.02)
 ;;00179000572
 ;;9002226.02101,"1044,00179001436 ",.01)
 ;;00179001436
 ;;9002226.02101,"1044,00179001436 ",.02)
 ;;00179001436
 ;;9002226.02101,"1044,00179001480 ",.01)
 ;;00179001480
 ;;9002226.02101,"1044,00179001480 ",.02)
 ;;00179001480
 ;;9002226.02101,"1044,00179004201 ",.01)
 ;;00179004201
 ;;9002226.02101,"1044,00179004201 ",.02)
 ;;00179004201
 ;;9002226.02101,"1044,00179004230 ",.01)
 ;;00179004230
 ;;9002226.02101,"1044,00179004230 ",.02)
 ;;00179004230
 ;;9002226.02101,"1044,00179004250 ",.01)
 ;;00179004250
 ;;9002226.02101,"1044,00179004250 ",.02)
 ;;00179004250
 ;;9002226.02101,"1044,00179006030 ",.01)
 ;;00179006030
 ;;9002226.02101,"1044,00179006030 ",.02)
 ;;00179006030
 ;;9002226.02101,"1044,00179007188 ",.01)
 ;;00179007188
 ;;9002226.02101,"1044,00179007188 ",.02)
 ;;00179007188
 ;;9002226.02101,"1044,00179111830 ",.01)
 ;;00179111830
 ;;9002226.02101,"1044,00179111830 ",.02)
 ;;00179111830
 ;;9002226.02101,"1044,00179111850 ",.01)
 ;;00179111850
 ;;9002226.02101,"1044,00179111850 ",.02)
 ;;00179111850
 ;;9002226.02101,"1044,00179111860 ",.01)
 ;;00179111860
 ;;9002226.02101,"1044,00179111860 ",.02)
 ;;00179111860
 ;;9002226.02101,"1044,00179111890 ",.01)
 ;;00179111890
 ;;9002226.02101,"1044,00179111890 ",.02)
 ;;00179111890
 ;;9002226.02101,"1044,00179127501 ",.01)
 ;;00179127501
 ;;9002226.02101,"1044,00179127501 ",.02)
 ;;00179127501
 ;;9002226.02101,"1044,00179127530 ",.01)
 ;;00179127530
 ;;9002226.02101,"1044,00179127530 ",.02)
 ;;00179127530
 ;;9002226.02101,"1044,00179127550 ",.01)
 ;;00179127550
 ;;9002226.02101,"1044,00179127550 ",.02)
 ;;00179127550
 ;;9002226.02101,"1044,00179133630 ",.01)
 ;;00179133630
 ;;9002226.02101,"1044,00179133630 ",.02)
 ;;00179133630
 ;;9002226.02101,"1044,00179141901 ",.01)
 ;;00179141901
 ;;9002226.02101,"1044,00179141901 ",.02)
 ;;00179141901
 ;;9002226.02101,"1044,00179141930 ",.01)
 ;;00179141930
 ;;9002226.02101,"1044,00179141930 ",.02)
 ;;00179141930
 ;;9002226.02101,"1044,00179141950 ",.01)
 ;;00179141950
 ;;9002226.02101,"1044,00179141950 ",.02)
 ;;00179141950
 ;;9002226.02101,"1044,00179141960 ",.01)
 ;;00179141960
 ;;9002226.02101,"1044,00179141960 ",.02)
 ;;00179141960
 ;;9002226.02101,"1044,00179141990 ",.01)
 ;;00179141990
 ;;9002226.02101,"1044,00179141990 ",.02)
 ;;00179141990
 ;;9002226.02101,"1044,00179144501 ",.01)
 ;;00179144501
 ;;9002226.02101,"1044,00179144501 ",.02)
 ;;00179144501
 ;;9002226.02101,"1044,00179144530 ",.01)
 ;;00179144530
 ;;9002226.02101,"1044,00179144530 ",.02)
 ;;00179144530
 ;;9002226.02101,"1044,00179144550 ",.01)
 ;;00179144550
 ;;9002226.02101,"1044,00179144550 ",.02)
 ;;00179144550
 ;;9002226.02101,"1044,00179144560 ",.01)
 ;;00179144560
 ;;9002226.02101,"1044,00179144560 ",.02)
 ;;00179144560
 ;;9002226.02101,"1044,00179144570 ",.01)
 ;;00179144570
 ;;9002226.02101,"1044,00179144570 ",.02)
 ;;00179144570
 ;;9002226.02101,"1044,00179144590 ",.01)
 ;;00179144590
 ;;9002226.02101,"1044,00179144590 ",.02)
 ;;00179144590
 ;;9002226.02101,"1044,00179147901 ",.01)
 ;;00179147901
 ;;9002226.02101,"1044,00179147901 ",.02)
 ;;00179147901
 ;;9002226.02101,"1044,00179147911 ",.01)
 ;;00179147911
 ;;9002226.02101,"1044,00179147911 ",.02)
 ;;00179147911
 ;;9002226.02101,"1044,00179147930 ",.01)
 ;;00179147930
 ;;9002226.02101,"1044,00179147930 ",.02)
 ;;00179147930
 ;;9002226.02101,"1044,00179147950 ",.01)
 ;;00179147950
 ;;9002226.02101,"1044,00179147950 ",.02)
 ;;00179147950
 ;;9002226.02101,"1044,00179147960 ",.01)
 ;;00179147960
 ;;9002226.02101,"1044,00179147960 ",.02)
 ;;00179147960
 ;;9002226.02101,"1044,00179150301 ",.01)
 ;;00179150301
 ;;9002226.02101,"1044,00179150301 ",.02)
 ;;00179150301
 ;;9002226.02101,"1044,00179150305 ",.01)
 ;;00179150305
 ;;9002226.02101,"1044,00179150305 ",.02)
 ;;00179150305
 ;;9002226.02101,"1044,00179150330 ",.01)
 ;;00179150330
 ;;9002226.02101,"1044,00179150330 ",.02)
 ;;00179150330
 ;;9002226.02101,"1044,00179150350 ",.01)
 ;;00179150350
 ;;9002226.02101,"1044,00179150350 ",.02)
 ;;00179150350
 ;;9002226.02101,"1044,00179150360 ",.01)
 ;;00179150360
 ;;9002226.02101,"1044,00179150360 ",.02)
 ;;00179150360
 ;;9002226.02101,"1044,00179150401 ",.01)
 ;;00179150401
 ;;9002226.02101,"1044,00179150401 ",.02)
 ;;00179150401
 ;;9002226.02101,"1044,00179150430 ",.01)
 ;;00179150430
 ;;9002226.02101,"1044,00179150430 ",.02)
 ;;00179150430
 ;;9002226.02101,"1044,00179150450 ",.01)
 ;;00179150450
 ;;9002226.02101,"1044,00179150450 ",.02)
 ;;00179150450
 ;;9002226.02101,"1044,00179150460 ",.01)
 ;;00179150460
 ;;9002226.02101,"1044,00179150460 ",.02)
 ;;00179150460
 ;;9002226.02101,"1044,00179151430 ",.01)
 ;;00179151430
 ;;9002226.02101,"1044,00179151430 ",.02)
 ;;00179151430
 ;;9002226.02101,"1044,00179151450 ",.01)
 ;;00179151450
 ;;9002226.02101,"1044,00179151450 ",.02)
 ;;00179151450
 ;;9002226.02101,"1044,00179151460 ",.01)
 ;;00179151460
 ;;9002226.02101,"1044,00179151460 ",.02)
 ;;00179151460
 ;;9002226.02101,"1044,00179151470 ",.01)
 ;;00179151470
 ;;9002226.02101,"1044,00179151470 ",.02)
 ;;00179151470
 ;;9002226.02101,"1044,00179151490 ",.01)
 ;;00179151490
 ;;9002226.02101,"1044,00179151490 ",.02)
 ;;00179151490
 ;;9002226.02101,"1044,00179152001 ",.01)
 ;;00179152001
 ;;9002226.02101,"1044,00179152001 ",.02)
 ;;00179152001
 ;;9002226.02101,"1044,00179152010 ",.01)
 ;;00179152010
 ;;9002226.02101,"1044,00179152010 ",.02)
 ;;00179152010
 ;;9002226.02101,"1044,00179152030 ",.01)
 ;;00179152030
 ;;9002226.02101,"1044,00179152030 ",.02)
 ;;00179152030
 ;;9002226.02101,"1044,00179152060 ",.01)
 ;;00179152060
 ;;9002226.02101,"1044,00179152060 ",.02)
 ;;00179152060
 ;;9002226.02101,"1044,00179152090 ",.01)
 ;;00179152090
 ;;9002226.02101,"1044,00179152090 ",.02)
 ;;00179152090
 ;;9002226.02101,"1044,00179153801 ",.01)
 ;;00179153801
 ;;9002226.02101,"1044,00179153801 ",.02)
 ;;00179153801
 ;;9002226.02101,"1044,00179153830 ",.01)
 ;;00179153830
 ;;9002226.02101,"1044,00179153830 ",.02)
 ;;00179153830
 ;;9002226.02101,"1044,00179153850 ",.01)
 ;;00179153850
 ;;9002226.02101,"1044,00179153850 ",.02)
 ;;00179153850
 ;;9002226.02101,"1044,00179153860 ",.01)
 ;;00179153860
 ;;9002226.02101,"1044,00179153860 ",.02)
 ;;00179153860
 ;;9002226.02101,"1044,00179153890 ",.01)
 ;;00179153890
 ;;9002226.02101,"1044,00179153890 ",.02)
 ;;00179153890
 ;;9002226.02101,"1044,00179163870 ",.01)
 ;;00179163870
 ;;9002226.02101,"1044,00179163870 ",.02)
 ;;00179163870
 ;;9002226.02101,"1044,00179163871 ",.01)
 ;;00179163871
 ;;9002226.02101,"1044,00179163871 ",.02)
 ;;00179163871
 ;;9002226.02101,"1044,00179163872 ",.01)
 ;;00179163872
 ;;9002226.02101,"1044,00179163872 ",.02)
 ;;00179163872
 ;;9002226.02101,"1044,00179175570 ",.01)
 ;;00179175570
 ;;9002226.02101,"1044,00179175570 ",.02)
 ;;00179175570
 ;;9002226.02101,"1044,00179175571 ",.01)
 ;;00179175571
 ;;9002226.02101,"1044,00179175571 ",.02)
 ;;00179175571
 ;;9002226.02101,"1044,00179175572 ",.01)
 ;;00179175572
 ;;9002226.02101,"1044,00179175572 ",.02)
 ;;00179175572
 ;;9002226.02101,"1044,00179179770 ",.01)
 ;;00179179770