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

BGPM5BCT.m

Go to the documentation of this file.
BGPM5BCT ;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,55045334106 ",.02)
 ;;55045334106
 ;;9002226.02101,"1044,55045334108 ",.01)
 ;;55045334108
 ;;9002226.02101,"1044,55045334108 ",.02)
 ;;55045334108
 ;;9002226.02101,"1044,55045342301 ",.01)
 ;;55045342301
 ;;9002226.02101,"1044,55045342301 ",.02)
 ;;55045342301
 ;;9002226.02101,"1044,55045342302 ",.01)
 ;;55045342302
 ;;9002226.02101,"1044,55045342302 ",.02)
 ;;55045342302
 ;;9002226.02101,"1044,55045342400 ",.01)
 ;;55045342400
 ;;9002226.02101,"1044,55045342400 ",.02)
 ;;55045342400
 ;;9002226.02101,"1044,55045342408 ",.01)
 ;;55045342408
 ;;9002226.02101,"1044,55045342408 ",.02)
 ;;55045342408
 ;;9002226.02101,"1044,55045356201 ",.01)
 ;;55045356201
 ;;9002226.02101,"1044,55045356201 ",.02)
 ;;55045356201
 ;;9002226.02101,"1044,55045356601 ",.01)
 ;;55045356601
 ;;9002226.02101,"1044,55045356601 ",.02)
 ;;55045356601
 ;;9002226.02101,"1044,55045356801 ",.01)
 ;;55045356801
 ;;9002226.02101,"1044,55045356801 ",.02)
 ;;55045356801
 ;;9002226.02101,"1044,55045375708 ",.01)
 ;;55045375708
 ;;9002226.02101,"1044,55045375708 ",.02)
 ;;55045375708
 ;;9002226.02101,"1044,55045376608 ",.01)
 ;;55045376608
 ;;9002226.02101,"1044,55045376608 ",.02)
 ;;55045376608
 ;;9002226.02101,"1044,55045379901 ",.01)
 ;;55045379901
 ;;9002226.02101,"1044,55045379901 ",.02)
 ;;55045379901
 ;;9002226.02101,"1044,55111014701 ",.01)
 ;;55111014701
 ;;9002226.02101,"1044,55111014701 ",.02)
 ;;55111014701
 ;;9002226.02101,"1044,55111014730 ",.01)
 ;;55111014730
 ;;9002226.02101,"1044,55111014730 ",.02)
 ;;55111014730
 ;;9002226.02101,"1044,55111014790 ",.01)
 ;;55111014790
 ;;9002226.02101,"1044,55111014790 ",.02)
 ;;55111014790
 ;;9002226.02101,"1044,55111014801 ",.01)
 ;;55111014801
 ;;9002226.02101,"1044,55111014801 ",.02)
 ;;55111014801
 ;;9002226.02101,"1044,55111014810 ",.01)
 ;;55111014810
 ;;9002226.02101,"1044,55111014810 ",.02)
 ;;55111014810
 ;;9002226.02101,"1044,55111014830 ",.01)
 ;;55111014830
 ;;9002226.02101,"1044,55111014830 ",.02)
 ;;55111014830
 ;;9002226.02101,"1044,55111014890 ",.01)
 ;;55111014890
 ;;9002226.02101,"1044,55111014890 ",.02)
 ;;55111014890
 ;;9002226.02101,"1044,55111014901 ",.01)
 ;;55111014901
 ;;9002226.02101,"1044,55111014901 ",.02)
 ;;55111014901
 ;;9002226.02101,"1044,55111014910 ",.01)
 ;;55111014910
 ;;9002226.02101,"1044,55111014910 ",.02)
 ;;55111014910
 ;;9002226.02101,"1044,55111014930 ",.01)
 ;;55111014930
 ;;9002226.02101,"1044,55111014930 ",.02)
 ;;55111014930
 ;;9002226.02101,"1044,55111014990 ",.01)
 ;;55111014990
 ;;9002226.02101,"1044,55111014990 ",.02)
 ;;55111014990
 ;;9002226.02101,"1044,55111015001 ",.01)
 ;;55111015001
 ;;9002226.02101,"1044,55111015001 ",.02)
 ;;55111015001
 ;;9002226.02101,"1044,55111015005 ",.01)
 ;;55111015005
 ;;9002226.02101,"1044,55111015005 ",.02)
 ;;55111015005
 ;;9002226.02101,"1044,55111015010 ",.01)
 ;;55111015010
 ;;9002226.02101,"1044,55111015010 ",.02)
 ;;55111015010
 ;;9002226.02101,"1044,55111015030 ",.01)
 ;;55111015030
 ;;9002226.02101,"1044,55111015030 ",.02)
 ;;55111015030
 ;;9002226.02101,"1044,55111015078 ",.01)
 ;;55111015078
 ;;9002226.02101,"1044,55111015078 ",.02)
 ;;55111015078
 ;;9002226.02101,"1044,55111015079 ",.01)
 ;;55111015079
 ;;9002226.02101,"1044,55111015079 ",.02)
 ;;55111015079
 ;;9002226.02101,"1044,55111017301 ",.01)
 ;;55111017301
 ;;9002226.02101,"1044,55111017301 ",.02)
 ;;55111017301
 ;;9002226.02101,"1044,55111017305 ",.01)
 ;;55111017305
 ;;9002226.02101,"1044,55111017305 ",.02)
 ;;55111017305
 ;;9002226.02101,"1044,55111017330 ",.01)
 ;;55111017330
 ;;9002226.02101,"1044,55111017330 ",.02)
 ;;55111017330
 ;;9002226.02101,"1044,55111017360 ",.01)
 ;;55111017360
 ;;9002226.02101,"1044,55111017360 ",.02)
 ;;55111017360
 ;;9002226.02101,"1044,55111017390 ",.01)
 ;;55111017390
 ;;9002226.02101,"1044,55111017390 ",.02)
 ;;55111017390
 ;;9002226.02101,"1044,55111017401 ",.01)
 ;;55111017401
 ;;9002226.02101,"1044,55111017401 ",.02)
 ;;55111017401
 ;;9002226.02101,"1044,55111017405 ",.01)
 ;;55111017405
 ;;9002226.02101,"1044,55111017405 ",.02)
 ;;55111017405
 ;;9002226.02101,"1044,55111017430 ",.01)
 ;;55111017430
 ;;9002226.02101,"1044,55111017430 ",.02)
 ;;55111017430
 ;;9002226.02101,"1044,55111017460 ",.01)
 ;;55111017460
 ;;9002226.02101,"1044,55111017460 ",.02)
 ;;55111017460
 ;;9002226.02101,"1044,55111017490 ",.01)
 ;;55111017490
 ;;9002226.02101,"1044,55111017490 ",.02)
 ;;55111017490
 ;;9002226.02101,"1044,55111017501 ",.01)
 ;;55111017501
 ;;9002226.02101,"1044,55111017501 ",.02)
 ;;55111017501
 ;;9002226.02101,"1044,55111017505 ",.01)
 ;;55111017505
 ;;9002226.02101,"1044,55111017505 ",.02)
 ;;55111017505
 ;;9002226.02101,"1044,55111017530 ",.01)
 ;;55111017530
 ;;9002226.02101,"1044,55111017530 ",.02)
 ;;55111017530
 ;;9002226.02101,"1044,55111017560 ",.01)
 ;;55111017560
 ;;9002226.02101,"1044,55111017560 ",.02)
 ;;55111017560
 ;;9002226.02101,"1044,55111017590 ",.01)
 ;;55111017590
 ;;9002226.02101,"1044,55111017590 ",.02)
 ;;55111017590
 ;;9002226.02101,"1044,55111028448 ",.01)
 ;;55111028448
 ;;9002226.02101,"1044,55111028448 ",.02)
 ;;55111028448
 ;;9002226.02101,"1044,55111034201 ",.01)
 ;;55111034201
 ;;9002226.02101,"1044,55111034201 ",.02)
 ;;55111034201
 ;;9002226.02101,"1044,55111034205 ",.01)
 ;;55111034205
 ;;9002226.02101,"1044,55111034205 ",.02)
 ;;55111034205
 ;;9002226.02101,"1044,55111034230 ",.01)
 ;;55111034230
 ;;9002226.02101,"1044,55111034230 ",.02)
 ;;55111034230
 ;;9002226.02101,"1044,55111034260 ",.01)
 ;;55111034260
 ;;9002226.02101,"1044,55111034260 ",.02)
 ;;55111034260
 ;;9002226.02101,"1044,55111034278 ",.01)
 ;;55111034278
 ;;9002226.02101,"1044,55111034278 ",.02)
 ;;55111034278
 ;;9002226.02101,"1044,55111034288 ",.01)
 ;;55111034288
 ;;9002226.02101,"1044,55111034288 ",.02)
 ;;55111034288
 ;;9002226.02101,"1044,55111034290 ",.01)
 ;;55111034290
 ;;9002226.02101,"1044,55111034290 ",.02)
 ;;55111034290
 ;;9002226.02101,"1044,55111034299 ",.01)
 ;;55111034299
 ;;9002226.02101,"1044,55111034299 ",.02)
 ;;55111034299
 ;;9002226.02101,"1044,55111034301 ",.01)
 ;;55111034301
 ;;9002226.02101,"1044,55111034301 ",.02)
 ;;55111034301
 ;;9002226.02101,"1044,55111034305 ",.01)
 ;;55111034305
 ;;9002226.02101,"1044,55111034305 ",.02)
 ;;55111034305
 ;;9002226.02101,"1044,55111034330 ",.01)
 ;;55111034330
 ;;9002226.02101,"1044,55111034330 ",.02)
 ;;55111034330
 ;;9002226.02101,"1044,55111034360 ",.01)
 ;;55111034360
 ;;9002226.02101,"1044,55111034360 ",.02)
 ;;55111034360
 ;;9002226.02101,"1044,55111034378 ",.01)
 ;;55111034378
 ;;9002226.02101,"1044,55111034378 ",.02)
 ;;55111034378
 ;;9002226.02101,"1044,55111034390 ",.01)
 ;;55111034390
 ;;9002226.02101,"1044,55111034390 ",.02)
 ;;55111034390
 ;;9002226.02101,"1044,55111034396 ",.01)
 ;;55111034396
 ;;9002226.02101,"1044,55111034396 ",.02)
 ;;55111034396
 ;;9002226.02101,"1044,55111034398 ",.01)
 ;;55111034398
 ;;9002226.02101,"1044,55111034398 ",.02)
 ;;55111034398
 ;;9002226.02101,"1044,55111034401 ",.01)
 ;;55111034401
 ;;9002226.02101,"1044,55111034401 ",.02)
 ;;55111034401
 ;;9002226.02101,"1044,55111034405 ",.01)
 ;;55111034405
 ;;9002226.02101,"1044,55111034405 ",.02)
 ;;55111034405
 ;;9002226.02101,"1044,55111034430 ",.01)
 ;;55111034430
 ;;9002226.02101,"1044,55111034430 ",.02)
 ;;55111034430
 ;;9002226.02101,"1044,55111034460 ",.01)
 ;;55111034460
 ;;9002226.02101,"1044,55111034460 ",.02)
 ;;55111034460
 ;;9002226.02101,"1044,55111034478 ",.01)
 ;;55111034478
 ;;9002226.02101,"1044,55111034478 ",.02)
 ;;55111034478
 ;;9002226.02101,"1044,55111034486 ",.01)
 ;;55111034486
 ;;9002226.02101,"1044,55111034486 ",.02)
 ;;55111034486
 ;;9002226.02101,"1044,55111034490 ",.01)
 ;;55111034490
 ;;9002226.02101,"1044,55111034490 ",.02)
 ;;55111034490
 ;;9002226.02101,"1044,55111034497 ",.01)
 ;;55111034497
 ;;9002226.02101,"1044,55111034497 ",.02)
 ;;55111034497
 ;;9002226.02101,"1044,55111045301 ",.01)
 ;;55111045301
 ;;9002226.02101,"1044,55111045301 ",.02)
 ;;55111045301
 ;;9002226.02101,"1044,55111045305 ",.01)
 ;;55111045305
 ;;9002226.02101,"1044,55111045305 ",.02)
 ;;55111045305
 ;;9002226.02101,"1044,55111045330 ",.01)
 ;;55111045330
 ;;9002226.02101,"1044,55111045330 ",.02)
 ;;55111045330
 ;;9002226.02101,"1044,55111045360 ",.01)
 ;;55111045360
 ;;9002226.02101,"1044,55111045360 ",.02)
 ;;55111045360
 ;;9002226.02101,"1044,55111045378 ",.01)
 ;;55111045378
 ;;9002226.02101,"1044,55111045378 ",.02)
 ;;55111045378
 ;;9002226.02101,"1044,55111045379 ",.01)
 ;;55111045379
 ;;9002226.02101,"1044,55111045379 ",.02)
 ;;55111045379
 ;;9002226.02101,"1044,55111045390 ",.01)
 ;;55111045390
 ;;9002226.02101,"1044,55111045390 ",.02)
 ;;55111045390
 ;;9002226.02101,"1044,55111045401 ",.01)
 ;;55111045401
 ;;9002226.02101,"1044,55111045401 ",.02)
 ;;55111045401
 ;;9002226.02101,"1044,55111045405 ",.01)
 ;;55111045405
 ;;9002226.02101,"1044,55111045405 ",.02)
 ;;55111045405
 ;;9002226.02101,"1044,55111045430 ",.01)
 ;;55111045430
 ;;9002226.02101,"1044,55111045430 ",.02)
 ;;55111045430
 ;;9002226.02101,"1044,55111045460 ",.01)
 ;;55111045460
 ;;9002226.02101,"1044,55111045460 ",.02)
 ;;55111045460
 ;;9002226.02101,"1044,55111045478 ",.01)
 ;;55111045478
 ;;9002226.02101,"1044,55111045478 ",.02)
 ;;55111045478
 ;;9002226.02101,"1044,55111045479 ",.01)
 ;;55111045479
 ;;9002226.02101,"1044,55111045479 ",.02)
 ;;55111045479
 ;;9002226.02101,"1044,55111045490 ",.01)
 ;;55111045490
 ;;9002226.02101,"1044,55111045490 ",.02)
 ;;55111045490
 ;;9002226.02101,"1044,55111045501 ",.01)
 ;;55111045501
 ;;9002226.02101,"1044,55111045501 ",.02)
 ;;55111045501
 ;;9002226.02101,"1044,55111045505 ",.01)
 ;;55111045505
 ;;9002226.02101,"1044,55111045505 ",.02)
 ;;55111045505
 ;;9002226.02101,"1044,55111045530 ",.01)
 ;;55111045530
 ;;9002226.02101,"1044,55111045530 ",.02)
 ;;55111045530
 ;;9002226.02101,"1044,55111045560 ",.01)
 ;;55111045560
 ;;9002226.02101,"1044,55111045560 ",.02)
 ;;55111045560
 ;;9002226.02101,"1044,55111045578 ",.01)
 ;;55111045578
 ;;9002226.02101,"1044,55111045578 ",.02)
 ;;55111045578
 ;;9002226.02101,"1044,55111045579 ",.01)
 ;;55111045579
 ;;9002226.02101,"1044,55111045579 ",.02)
 ;;55111045579
 ;;9002226.02101,"1044,55111045590 ",.01)
 ;;55111045590
 ;;9002226.02101,"1044,55111045590 ",.02)
 ;;55111045590
 ;;9002226.02101,"1044,55111054501 ",.01)
 ;;55111054501
 ;;9002226.02101,"1044,55111054501 ",.02)
 ;;55111054501
 ;;9002226.02101,"1044,55111054505 ",.01)
 ;;55111054505
 ;;9002226.02101,"1044,55111054505 ",.02)
 ;;55111054505
 ;;9002226.02101,"1044,55111054530 ",.01)
 ;;55111054530
 ;;9002226.02101,"1044,55111054530 ",.02)
 ;;55111054530
 ;;9002226.02101,"1044,55111054560 ",.01)
 ;;55111054560
 ;;9002226.02101,"1044,55111054560 ",.02)
 ;;55111054560
 ;;9002226.02101,"1044,55111054579 ",.01)
 ;;55111054579
 ;;9002226.02101,"1044,55111054579 ",.02)
 ;;55111054579
 ;;9002226.02101,"1044,55111054590 ",.01)
 ;;55111054590
 ;;9002226.02101,"1044,55111054590 ",.02)
 ;;55111054590
 ;;9002226.02101,"1044,55111054601 ",.01)
 ;;55111054601
 ;;9002226.02101,"1044,55111054601 ",.02)
 ;;55111054601
 ;;9002226.02101,"1044,55111054605 ",.01)
 ;;55111054605
 ;;9002226.02101,"1044,55111054605 ",.02)
 ;;55111054605
 ;;9002226.02101,"1044,55111054630 ",.01)
 ;;55111054630
 ;;9002226.02101,"1044,55111054630 ",.02)
 ;;55111054630
 ;;9002226.02101,"1044,55111054660 ",.01)
 ;;55111054660
 ;;9002226.02101,"1044,55111054660 ",.02)
 ;;55111054660
 ;;9002226.02101,"1044,55111054679 ",.01)
 ;;55111054679
 ;;9002226.02101,"1044,55111054679 ",.02)
 ;;55111054679