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

BGPM5BCI.m

Go to the documentation of this file.
BGPM5BCI ;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,49856252001 ",.01)
 ;;49856252001
 ;;9002226.02101,"1044,49856252001 ",.02)
 ;;49856252001
 ;;9002226.02101,"1044,49856252004 ",.01)
 ;;49856252004
 ;;9002226.02101,"1044,49856252004 ",.02)
 ;;49856252004
 ;;9002226.02101,"1044,49856252008 ",.01)
 ;;49856252008
 ;;9002226.02101,"1044,49856252008 ",.02)
 ;;49856252008
 ;;9002226.02101,"1044,49856343803 ",.01)
 ;;49856343803
 ;;9002226.02101,"1044,49856343803 ",.02)
 ;;49856343803
 ;;9002226.02101,"1044,49856343808 ",.01)
 ;;49856343808
 ;;9002226.02101,"1044,49856343808 ",.02)
 ;;49856343808
 ;;9002226.02101,"1044,49884003201 ",.01)
 ;;49884003201
 ;;9002226.02101,"1044,49884003201 ",.02)
 ;;49884003201
 ;;9002226.02101,"1044,49884005401 ",.01)
 ;;49884005401
 ;;9002226.02101,"1044,49884005401 ",.02)
 ;;49884005401
 ;;9002226.02101,"1044,49884005410 ",.01)
 ;;49884005410
 ;;9002226.02101,"1044,49884005410 ",.02)
 ;;49884005410
 ;;9002226.02101,"1044,49884005501 ",.01)
 ;;49884005501
 ;;9002226.02101,"1044,49884005501 ",.02)
 ;;49884005501
 ;;9002226.02101,"1044,49884005510 ",.01)
 ;;49884005510
 ;;9002226.02101,"1044,49884005510 ",.02)
 ;;49884005510
 ;;9002226.02101,"1044,49884005601 ",.01)
 ;;49884005601
 ;;9002226.02101,"1044,49884005601 ",.02)
 ;;49884005601
 ;;9002226.02101,"1044,49884005610 ",.01)
 ;;49884005610
 ;;9002226.02101,"1044,49884005610 ",.02)
 ;;49884005610
 ;;9002226.02101,"1044,49884026501 ",.01)
 ;;49884026501
 ;;9002226.02101,"1044,49884026501 ",.02)
 ;;49884026501
 ;;9002226.02101,"1044,49884026601 ",.01)
 ;;49884026601
 ;;9002226.02101,"1044,49884026601 ",.02)
 ;;49884026601
 ;;9002226.02101,"1044,49884061002 ",.01)
 ;;49884061002
 ;;9002226.02101,"1044,49884061002 ",.02)
 ;;49884061002
 ;;9002226.02101,"1044,49884065501 ",.01)
 ;;49884065501
 ;;9002226.02101,"1044,49884065501 ",.02)
 ;;49884065501
 ;;9002226.02101,"1044,49884065510 ",.01)
 ;;49884065510
 ;;9002226.02101,"1044,49884065510 ",.02)
 ;;49884065510
 ;;9002226.02101,"1044,49884065511 ",.01)
 ;;49884065511
 ;;9002226.02101,"1044,49884065511 ",.02)
 ;;49884065511
 ;;9002226.02101,"1044,49884065601 ",.01)
 ;;49884065601
 ;;9002226.02101,"1044,49884065601 ",.02)
 ;;49884065601
 ;;9002226.02101,"1044,49884065610 ",.01)
 ;;49884065610
 ;;9002226.02101,"1044,49884065610 ",.02)
 ;;49884065610
 ;;9002226.02101,"1044,49884065611 ",.01)
 ;;49884065611
 ;;9002226.02101,"1044,49884065611 ",.02)
 ;;49884065611
 ;;9002226.02101,"1044,49884073401 ",.01)
 ;;49884073401
 ;;9002226.02101,"1044,49884073401 ",.02)
 ;;49884073401
 ;;9002226.02101,"1044,49884073410 ",.01)
 ;;49884073410
 ;;9002226.02101,"1044,49884073410 ",.02)
 ;;49884073410
 ;;9002226.02101,"1044,49884073411 ",.01)
 ;;49884073411
 ;;9002226.02101,"1044,49884073411 ",.02)
 ;;49884073411
 ;;9002226.02101,"1044,49884073482 ",.01)
 ;;49884073482
 ;;9002226.02101,"1044,49884073482 ",.02)
 ;;49884073482
 ;;9002226.02101,"1044,49884073501 ",.01)
 ;;49884073501
 ;;9002226.02101,"1044,49884073501 ",.02)
 ;;49884073501
 ;;9002226.02101,"1044,49884073510 ",.01)
 ;;49884073510
 ;;9002226.02101,"1044,49884073510 ",.02)
 ;;49884073510
 ;;9002226.02101,"1044,49884073511 ",.01)
 ;;49884073511
 ;;9002226.02101,"1044,49884073511 ",.02)
 ;;49884073511
 ;;9002226.02101,"1044,49884073582 ",.01)
 ;;49884073582
 ;;9002226.02101,"1044,49884073582 ",.02)
 ;;49884073582
 ;;9002226.02101,"1044,49884074301 ",.01)
 ;;49884074301
 ;;9002226.02101,"1044,49884074301 ",.02)
 ;;49884074301
 ;;9002226.02101,"1044,49884074305 ",.01)
 ;;49884074305
 ;;9002226.02101,"1044,49884074305 ",.02)
 ;;49884074305
 ;;9002226.02101,"1044,49884074311 ",.01)
 ;;49884074311
 ;;9002226.02101,"1044,49884074311 ",.02)
 ;;49884074311
 ;;9002226.02101,"1044,49884075110 ",.01)
 ;;49884075110
 ;;9002226.02101,"1044,49884075110 ",.02)
 ;;49884075110
 ;;9002226.02101,"1044,49884075111 ",.01)
 ;;49884075111
 ;;9002226.02101,"1044,49884075111 ",.02)
 ;;49884075111
 ;;9002226.02101,"1044,49884087201 ",.01)
 ;;49884087201
 ;;9002226.02101,"1044,49884087201 ",.02)
 ;;49884087201
 ;;9002226.02101,"1044,49884087205 ",.01)
 ;;49884087205
 ;;9002226.02101,"1044,49884087205 ",.02)
 ;;49884087205
 ;;9002226.02101,"1044,49884087211 ",.01)
 ;;49884087211
 ;;9002226.02101,"1044,49884087211 ",.02)
 ;;49884087211
 ;;9002226.02101,"1044,49884087301 ",.01)
 ;;49884087301
 ;;9002226.02101,"1044,49884087301 ",.02)
 ;;49884087301
 ;;9002226.02101,"1044,49884087310 ",.01)
 ;;49884087310
 ;;9002226.02101,"1044,49884087310 ",.02)
 ;;49884087310
 ;;9002226.02101,"1044,49884087311 ",.01)
 ;;49884087311
 ;;9002226.02101,"1044,49884087311 ",.02)
 ;;49884087311
 ;;9002226.02101,"1044,49884087605 ",.01)
 ;;49884087605
 ;;9002226.02101,"1044,49884087605 ",.02)
 ;;49884087605
 ;;9002226.02101,"1044,49884087701 ",.01)
 ;;49884087701
 ;;9002226.02101,"1044,49884087701 ",.02)
 ;;49884087701
 ;;9002226.02101,"1044,49884087705 ",.01)
 ;;49884087705
 ;;9002226.02101,"1044,49884087705 ",.02)
 ;;49884087705
 ;;9002226.02101,"1044,49884087805 ",.01)
 ;;49884087805
 ;;9002226.02101,"1044,49884087805 ",.02)
 ;;49884087805
 ;;9002226.02101,"1044,49884087905 ",.01)
 ;;49884087905
 ;;9002226.02101,"1044,49884087905 ",.02)
 ;;49884087905
 ;;9002226.02101,"1044,49884087911 ",.01)
 ;;49884087911
 ;;9002226.02101,"1044,49884087911 ",.02)
 ;;49884087911
 ;;9002226.02101,"1044,49884096101 ",.01)
 ;;49884096101
 ;;9002226.02101,"1044,49884096101 ",.02)
 ;;49884096101
 ;;9002226.02101,"1044,49884096201 ",.01)
 ;;49884096201
 ;;9002226.02101,"1044,49884096201 ",.02)
 ;;49884096201
 ;;9002226.02101,"1044,49999006300 ",.01)
 ;;49999006300
 ;;9002226.02101,"1044,49999006300 ",.02)
 ;;49999006300
 ;;9002226.02101,"1044,49999006315 ",.01)
 ;;49999006315
 ;;9002226.02101,"1044,49999006315 ",.02)
 ;;49999006315
 ;;9002226.02101,"1044,49999006330 ",.01)
 ;;49999006330
 ;;9002226.02101,"1044,49999006330 ",.02)
 ;;49999006330
 ;;9002226.02101,"1044,49999006350 ",.01)
 ;;49999006350
 ;;9002226.02101,"1044,49999006350 ",.02)
 ;;49999006350
 ;;9002226.02101,"1044,49999006360 ",.01)
 ;;49999006360
 ;;9002226.02101,"1044,49999006360 ",.02)
 ;;49999006360
 ;;9002226.02101,"1044,49999006390 ",.01)
 ;;49999006390
 ;;9002226.02101,"1044,49999006390 ",.02)
 ;;49999006390
 ;;9002226.02101,"1044,49999012800 ",.01)
 ;;49999012800
 ;;9002226.02101,"1044,49999012800 ",.02)
 ;;49999012800
 ;;9002226.02101,"1044,49999012814 ",.01)
 ;;49999012814
 ;;9002226.02101,"1044,49999012814 ",.02)
 ;;49999012814
 ;;9002226.02101,"1044,49999012820 ",.01)
 ;;49999012820
 ;;9002226.02101,"1044,49999012820 ",.02)
 ;;49999012820
 ;;9002226.02101,"1044,49999012830 ",.01)
 ;;49999012830
 ;;9002226.02101,"1044,49999012830 ",.02)
 ;;49999012830
 ;;9002226.02101,"1044,49999012860 ",.01)
 ;;49999012860
 ;;9002226.02101,"1044,49999012860 ",.02)
 ;;49999012860
 ;;9002226.02101,"1044,49999012890 ",.01)
 ;;49999012890
 ;;9002226.02101,"1044,49999012890 ",.02)
 ;;49999012890
 ;;9002226.02101,"1044,49999015600 ",.01)
 ;;49999015600
 ;;9002226.02101,"1044,49999015600 ",.02)
 ;;49999015600
 ;;9002226.02101,"1044,49999015614 ",.01)
 ;;49999015614
 ;;9002226.02101,"1044,49999015614 ",.02)
 ;;49999015614
 ;;9002226.02101,"1044,49999015620 ",.01)
 ;;49999015620
 ;;9002226.02101,"1044,49999015620 ",.02)
 ;;49999015620
 ;;9002226.02101,"1044,49999015630 ",.01)
 ;;49999015630
 ;;9002226.02101,"1044,49999015630 ",.02)
 ;;49999015630
 ;;9002226.02101,"1044,49999015660 ",.01)
 ;;49999015660
 ;;9002226.02101,"1044,49999015660 ",.02)
 ;;49999015660
 ;;9002226.02101,"1044,49999020500 ",.01)
 ;;49999020500
 ;;9002226.02101,"1044,49999020500 ",.02)
 ;;49999020500
 ;;9002226.02101,"1044,49999020530 ",.01)
 ;;49999020530
 ;;9002226.02101,"1044,49999020530 ",.02)
 ;;49999020530
 ;;9002226.02101,"1044,49999020560 ",.01)
 ;;49999020560
 ;;9002226.02101,"1044,49999020560 ",.02)
 ;;49999020560
 ;;9002226.02101,"1044,49999021525 ",.01)
 ;;49999021525
 ;;9002226.02101,"1044,49999021525 ",.02)
 ;;49999021525
 ;;9002226.02101,"1044,49999021530 ",.01)
 ;;49999021530
 ;;9002226.02101,"1044,49999021530 ",.02)
 ;;49999021530
 ;;9002226.02101,"1044,49999021560 ",.01)
 ;;49999021560
 ;;9002226.02101,"1044,49999021560 ",.02)
 ;;49999021560
 ;;9002226.02101,"1044,49999021590 ",.01)
 ;;49999021590
 ;;9002226.02101,"1044,49999021590 ",.02)
 ;;49999021590
 ;;9002226.02101,"1044,49999022800 ",.01)
 ;;49999022800
 ;;9002226.02101,"1044,49999022800 ",.02)
 ;;49999022800
 ;;9002226.02101,"1044,49999022830 ",.01)
 ;;49999022830
 ;;9002226.02101,"1044,49999022830 ",.02)
 ;;49999022830
 ;;9002226.02101,"1044,49999022860 ",.01)
 ;;49999022860
 ;;9002226.02101,"1044,49999022860 ",.02)
 ;;49999022860
 ;;9002226.02101,"1044,49999022890 ",.01)
 ;;49999022890
 ;;9002226.02101,"1044,49999022890 ",.02)
 ;;49999022890
 ;;9002226.02101,"1044,49999031800 ",.01)
 ;;49999031800
 ;;9002226.02101,"1044,49999031800 ",.02)
 ;;49999031800
 ;;9002226.02101,"1044,49999031830 ",.01)
 ;;49999031830
 ;;9002226.02101,"1044,49999031830 ",.02)
 ;;49999031830
 ;;9002226.02101,"1044,49999031860 ",.01)
 ;;49999031860
 ;;9002226.02101,"1044,49999031860 ",.02)
 ;;49999031860
 ;;9002226.02101,"1044,49999034300 ",.01)
 ;;49999034300
 ;;9002226.02101,"1044,49999034300 ",.02)
 ;;49999034300
 ;;9002226.02101,"1044,49999034315 ",.01)
 ;;49999034315
 ;;9002226.02101,"1044,49999034315 ",.02)
 ;;49999034315
 ;;9002226.02101,"1044,49999034330 ",.01)
 ;;49999034330
 ;;9002226.02101,"1044,49999034330 ",.02)
 ;;49999034330
 ;;9002226.02101,"1044,49999034360 ",.01)
 ;;49999034360
 ;;9002226.02101,"1044,49999034360 ",.02)
 ;;49999034360
 ;;9002226.02101,"1044,49999036214 ",.01)
 ;;49999036214
 ;;9002226.02101,"1044,49999036214 ",.02)
 ;;49999036214
 ;;9002226.02101,"1044,49999036230 ",.01)
 ;;49999036230
 ;;9002226.02101,"1044,49999036230 ",.02)
 ;;49999036230
 ;;9002226.02101,"1044,49999036290 ",.01)
 ;;49999036290
 ;;9002226.02101,"1044,49999036290 ",.02)
 ;;49999036290
 ;;9002226.02101,"1044,49999040030 ",.01)
 ;;49999040030
 ;;9002226.02101,"1044,49999040030 ",.02)
 ;;49999040030
 ;;9002226.02101,"1044,49999053830 ",.01)
 ;;49999053830
 ;;9002226.02101,"1044,49999053830 ",.02)
 ;;49999053830
 ;;9002226.02101,"1044,49999055130 ",.01)
 ;;49999055130
 ;;9002226.02101,"1044,49999055130 ",.02)
 ;;49999055130
 ;;9002226.02101,"1044,49999061330 ",.01)
 ;;49999061330
 ;;9002226.02101,"1044,49999061330 ",.02)
 ;;49999061330
 ;;9002226.02101,"1044,49999062930 ",.01)
 ;;49999062930
 ;;9002226.02101,"1044,49999062930 ",.02)
 ;;49999062930
 ;;9002226.02101,"1044,49999062960 ",.01)
 ;;49999062960
 ;;9002226.02101,"1044,49999062960 ",.02)
 ;;49999062960
 ;;9002226.02101,"1044,49999063030 ",.01)
 ;;49999063030
 ;;9002226.02101,"1044,49999063030 ",.02)
 ;;49999063030
 ;;9002226.02101,"1044,49999063130 ",.01)
 ;;49999063130
 ;;9002226.02101,"1044,49999063130 ",.02)
 ;;49999063130
 ;;9002226.02101,"1044,49999063160 ",.01)
 ;;49999063160
 ;;9002226.02101,"1044,49999063160 ",.02)
 ;;49999063160
 ;;9002226.02101,"1044,49999063200 ",.01)
 ;;49999063200
 ;;9002226.02101,"1044,49999063200 ",.02)
 ;;49999063200
 ;;9002226.02101,"1044,49999063230 ",.01)
 ;;49999063230
 ;;9002226.02101,"1044,49999063230 ",.02)
 ;;49999063230
 ;;9002226.02101,"1044,49999063260 ",.01)
 ;;49999063260
 ;;9002226.02101,"1044,49999063260 ",.02)
 ;;49999063260
 ;;9002226.02101,"1044,49999065400 ",.01)
 ;;49999065400
 ;;9002226.02101,"1044,49999065400 ",.02)
 ;;49999065400
 ;;9002226.02101,"1044,49999065430 ",.01)
 ;;49999065430
 ;;9002226.02101,"1044,49999065430 ",.02)
 ;;49999065430
 ;;9002226.02101,"1044,49999078930 ",.01)
 ;;49999078930