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

BGPM5BBM.m

Go to the documentation of this file.
BGPM5BBM ;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,00254210519 ",.02)
 ;;00254210519
 ;;9002226.02101,"1044,00254210521 ",.01)
 ;;00254210521
 ;;9002226.02101,"1044,00254210521 ",.02)
 ;;00254210521
 ;;9002226.02101,"1044,00254210525 ",.01)
 ;;00254210525
 ;;9002226.02101,"1044,00254210525 ",.02)
 ;;00254210525
 ;;9002226.02101,"1044,00254210526 ",.01)
 ;;00254210526
 ;;9002226.02101,"1044,00254210526 ",.02)
 ;;00254210526
 ;;9002226.02101,"1044,00254210528 ",.01)
 ;;00254210528
 ;;9002226.02101,"1044,00254210528 ",.02)
 ;;00254210528
 ;;9002226.02101,"1044,00254210535 ",.01)
 ;;00254210535
 ;;9002226.02101,"1044,00254210535 ",.02)
 ;;00254210535
 ;;9002226.02101,"1044,00254210538 ",.01)
 ;;00254210538
 ;;9002226.02101,"1044,00254210538 ",.02)
 ;;00254210538
 ;;9002226.02101,"1044,00254210619 ",.01)
 ;;00254210619
 ;;9002226.02101,"1044,00254210619 ",.02)
 ;;00254210619
 ;;9002226.02101,"1044,00254210621 ",.01)
 ;;00254210621
 ;;9002226.02101,"1044,00254210621 ",.02)
 ;;00254210621
 ;;9002226.02101,"1044,00254210625 ",.01)
 ;;00254210625
 ;;9002226.02101,"1044,00254210625 ",.02)
 ;;00254210625
 ;;9002226.02101,"1044,00254210626 ",.01)
 ;;00254210626
 ;;9002226.02101,"1044,00254210626 ",.02)
 ;;00254210626
 ;;9002226.02101,"1044,00254210628 ",.01)
 ;;00254210628
 ;;9002226.02101,"1044,00254210628 ",.02)
 ;;00254210628
 ;;9002226.02101,"1044,00254210635 ",.01)
 ;;00254210635
 ;;9002226.02101,"1044,00254210635 ",.02)
 ;;00254210635
 ;;9002226.02101,"1044,00254210638 ",.01)
 ;;00254210638
 ;;9002226.02101,"1044,00254210638 ",.02)
 ;;00254210638
 ;;9002226.02101,"1044,00258369501 ",.01)
 ;;00258369501
 ;;9002226.02101,"1044,00258369501 ",.02)
 ;;00258369501
 ;;9002226.02101,"1044,00258369505 ",.01)
 ;;00258369505
 ;;9002226.02101,"1044,00258369505 ",.02)
 ;;00258369505
 ;;9002226.02101,"1044,00258369601 ",.01)
 ;;00258369601
 ;;9002226.02101,"1044,00258369601 ",.02)
 ;;00258369601
 ;;9002226.02101,"1044,00258369701 ",.01)
 ;;00258369701
 ;;9002226.02101,"1044,00258369701 ",.02)
 ;;00258369701
 ;;9002226.02101,"1044,00339567811 ",.01)
 ;;00339567811
 ;;9002226.02101,"1044,00339567811 ",.02)
 ;;00339567811
 ;;9002226.02101,"1044,00339580411 ",.01)
 ;;00339580411
 ;;9002226.02101,"1044,00339580411 ",.02)
 ;;00339580411
 ;;9002226.02101,"1044,00339613711 ",.01)
 ;;00339613711
 ;;9002226.02101,"1044,00339613711 ",.02)
 ;;00339613711
 ;;9002226.02101,"1044,00339645211 ",.01)
 ;;00339645211
 ;;9002226.02101,"1044,00339645211 ",.02)
 ;;00339645211
 ;;9002226.02101,"1044,00339647530 ",.01)
 ;;00339647530
 ;;9002226.02101,"1044,00339647530 ",.02)
 ;;00339647530
 ;;9002226.02101,"1044,00339647630 ",.01)
 ;;00339647630
 ;;9002226.02101,"1044,00339647630 ",.02)
 ;;00339647630
 ;;9002226.02101,"1044,00378004201 ",.01)
 ;;00378004201
 ;;9002226.02101,"1044,00378004201 ",.02)
 ;;00378004201
 ;;9002226.02101,"1044,00378006001 ",.01)
 ;;00378006001
 ;;9002226.02101,"1044,00378006001 ",.02)
 ;;00378006001
 ;;9002226.02101,"1044,00378007301 ",.01)
 ;;00378007301
 ;;9002226.02101,"1044,00378007301 ",.02)
 ;;00378007301
 ;;9002226.02101,"1044,00378008701 ",.01)
 ;;00378008701
 ;;9002226.02101,"1044,00378008701 ",.02)
 ;;00378008701
 ;;9002226.02101,"1044,00378009201 ",.01)
 ;;00378009201
 ;;9002226.02101,"1044,00378009201 ",.02)
 ;;00378009201
 ;;9002226.02101,"1044,00378021101 ",.01)
 ;;00378021101
 ;;9002226.02101,"1044,00378021101 ",.02)
 ;;00378021101
 ;;9002226.02101,"1044,00378021105 ",.01)
 ;;00378021105
 ;;9002226.02101,"1044,00378021105 ",.02)
 ;;00378021105
 ;;9002226.02101,"1044,00378027701 ",.01)
 ;;00378027701
 ;;9002226.02101,"1044,00378027701 ",.02)
 ;;00378027701
 ;;9002226.02101,"1044,00378027705 ",.01)
 ;;00378027705
 ;;9002226.02101,"1044,00378027705 ",.02)
 ;;00378027705
 ;;9002226.02101,"1044,00378033001 ",.01)
 ;;00378033001
 ;;9002226.02101,"1044,00378033001 ",.02)
 ;;00378033001
 ;;9002226.02101,"1044,00378033005 ",.01)
 ;;00378033005
 ;;9002226.02101,"1044,00378033005 ",.02)
 ;;00378033005
 ;;9002226.02101,"1044,00378040701 ",.01)
 ;;00378040701
 ;;9002226.02101,"1044,00378040701 ",.02)
 ;;00378040701
 ;;9002226.02101,"1044,00378040705 ",.01)
 ;;00378040705
 ;;9002226.02101,"1044,00378040705 ",.02)
 ;;00378040705
 ;;9002226.02101,"1044,00378041201 ",.01)
 ;;00378041201
 ;;9002226.02101,"1044,00378041201 ",.02)
 ;;00378041201
 ;;9002226.02101,"1044,00378041205 ",.01)
 ;;00378041205
 ;;9002226.02101,"1044,00378041205 ",.02)
 ;;00378041205
 ;;9002226.02101,"1044,00378041401 ",.01)
 ;;00378041401
 ;;9002226.02101,"1044,00378041401 ",.02)
 ;;00378041401
 ;;9002226.02101,"1044,00378041405 ",.01)
 ;;00378041405
 ;;9002226.02101,"1044,00378041405 ",.02)
 ;;00378041405
 ;;9002226.02101,"1044,00378044201 ",.01)
 ;;00378044201
 ;;9002226.02101,"1044,00378044201 ",.02)
 ;;00378044201
 ;;9002226.02101,"1044,00378044205 ",.01)
 ;;00378044205
 ;;9002226.02101,"1044,00378044205 ",.02)
 ;;00378044205
 ;;9002226.02101,"1044,00378057401 ",.01)
 ;;00378057401
 ;;9002226.02101,"1044,00378057401 ",.02)
 ;;00378057401
 ;;9002226.02101,"1044,00378057405 ",.01)
 ;;00378057405
 ;;9002226.02101,"1044,00378057405 ",.02)
 ;;00378057405
 ;;9002226.02101,"1044,00378141001 ",.01)
 ;;00378141001
 ;;9002226.02101,"1044,00378141001 ",.02)
 ;;00378141001
 ;;9002226.02101,"1044,00378192101 ",.01)
 ;;00378192101
 ;;9002226.02101,"1044,00378192101 ",.02)
 ;;00378192101
 ;;9002226.02101,"1044,00378192105 ",.01)
 ;;00378192105
 ;;9002226.02101,"1044,00378192105 ",.02)
 ;;00378192105
 ;;9002226.02101,"1044,00378192201 ",.01)
 ;;00378192201
 ;;9002226.02101,"1044,00378192201 ",.02)
 ;;00378192201
 ;;9002226.02101,"1044,00378192205 ",.01)
 ;;00378192205
 ;;9002226.02101,"1044,00378192205 ",.02)
 ;;00378192205
 ;;9002226.02101,"1044,00378192401 ",.01)
 ;;00378192401
 ;;9002226.02101,"1044,00378192401 ",.02)
 ;;00378192401
 ;;9002226.02101,"1044,00378192405 ",.01)
 ;;00378192405
 ;;9002226.02101,"1044,00378192405 ",.02)
 ;;00378192405
 ;;9002226.02101,"1044,00378200301 ",.01)
 ;;00378200301
 ;;9002226.02101,"1044,00378200301 ",.02)
 ;;00378200301
 ;;9002226.02101,"1044,00378200305 ",.01)
 ;;00378200305
 ;;9002226.02101,"1044,00378200305 ",.02)
 ;;00378200305
 ;;9002226.02101,"1044,00378200393 ",.01)
 ;;00378200393
 ;;9002226.02101,"1044,00378200393 ",.02)
 ;;00378200393
 ;;9002226.02101,"1044,00378200401 ",.01)
 ;;00378200401
 ;;9002226.02101,"1044,00378200401 ",.02)
 ;;00378200401
 ;;9002226.02101,"1044,00378200405 ",.01)
 ;;00378200405
 ;;9002226.02101,"1044,00378200405 ",.02)
 ;;00378200405
 ;;9002226.02101,"1044,00378200493 ",.01)
 ;;00378200493
 ;;9002226.02101,"1044,00378200493 ",.02)
 ;;00378200493
 ;;9002226.02101,"1044,00378200501 ",.01)
 ;;00378200501
 ;;9002226.02101,"1044,00378200501 ",.02)
 ;;00378200501
 ;;9002226.02101,"1044,00378200505 ",.01)
 ;;00378200505
 ;;9002226.02101,"1044,00378200505 ",.02)
 ;;00378200505
 ;;9002226.02101,"1044,00378200593 ",.01)
 ;;00378200593
 ;;9002226.02101,"1044,00378200593 ",.02)
 ;;00378200593
 ;;9002226.02101,"1044,00378200693 ",.01)
 ;;00378200693
 ;;9002226.02101,"1044,00378200693 ",.02)
 ;;00378200693
 ;;9002226.02101,"1044,00378201191 ",.01)
 ;;00378201191
 ;;9002226.02101,"1044,00378201191 ",.02)
 ;;00378201191
 ;;9002226.02101,"1044,00378225291 ",.01)
 ;;00378225291
 ;;9002226.02101,"1044,00378225291 ",.02)
 ;;00378225291
 ;;9002226.02101,"1044,00378232501 ",.01)
 ;;00378232501
 ;;9002226.02101,"1044,00378232501 ",.02)
 ;;00378232501
 ;;9002226.02101,"1044,00378261001 ",.01)
 ;;00378261001
 ;;9002226.02101,"1044,00378261001 ",.02)
 ;;00378261001
 ;;9002226.02101,"1044,00378261010 ",.01)
 ;;00378261010
 ;;9002226.02101,"1044,00378261010 ",.02)
 ;;00378261010
 ;;9002226.02101,"1044,00378261093 ",.01)
 ;;00378261093
 ;;9002226.02101,"1044,00378261093 ",.02)
 ;;00378261093
 ;;9002226.02101,"1044,00378262501 ",.01)
 ;;00378262501
 ;;9002226.02101,"1044,00378262501 ",.02)
 ;;00378262501
 ;;9002226.02101,"1044,00378262510 ",.01)
 ;;00378262510
 ;;9002226.02101,"1044,00378262510 ",.02)
 ;;00378262510
 ;;9002226.02101,"1044,00378262593 ",.01)
 ;;00378262593
 ;;9002226.02101,"1044,00378262593 ",.02)
 ;;00378262593
 ;;9002226.02101,"1044,00378265001 ",.01)
 ;;00378265001
 ;;9002226.02101,"1044,00378265001 ",.02)
 ;;00378265001
 ;;9002226.02101,"1044,00378265010 ",.01)
 ;;00378265010
 ;;9002226.02101,"1044,00378265010 ",.02)
 ;;00378265010
 ;;9002226.02101,"1044,00378265093 ",.01)
 ;;00378265093
 ;;9002226.02101,"1044,00378265093 ",.02)
 ;;00378265093
 ;;9002226.02101,"1044,00378267501 ",.01)
 ;;00378267501
 ;;9002226.02101,"1044,00378267501 ",.02)
 ;;00378267501
 ;;9002226.02101,"1044,00378267593 ",.01)
 ;;00378267593
 ;;9002226.02101,"1044,00378267593 ",.02)
 ;;00378267593
 ;;9002226.02101,"1044,00378268501 ",.01)
 ;;00378268501
 ;;9002226.02101,"1044,00378268501 ",.02)
 ;;00378268501
 ;;9002226.02101,"1044,00378268593 ",.01)
 ;;00378268593
 ;;9002226.02101,"1044,00378268593 ",.02)
 ;;00378268593
 ;;9002226.02101,"1044,00378269501 ",.01)
 ;;00378269501
 ;;9002226.02101,"1044,00378269501 ",.02)
 ;;00378269501
 ;;9002226.02101,"1044,00378269593 ",.01)
 ;;00378269593
 ;;9002226.02101,"1044,00378269593 ",.02)
 ;;00378269593
 ;;9002226.02101,"1044,00378302501 ",.01)
 ;;00378302501
 ;;9002226.02101,"1044,00378302501 ",.02)
 ;;00378302501
 ;;9002226.02101,"1044,00378305001 ",.01)
 ;;00378305001
 ;;9002226.02101,"1044,00378305001 ",.02)
 ;;00378305001
 ;;9002226.02101,"1044,00378307501 ",.01)
 ;;00378307501
 ;;9002226.02101,"1044,00378307501 ",.02)
 ;;00378307501
 ;;9002226.02101,"1044,00378325001 ",.01)
 ;;00378325001
 ;;9002226.02101,"1044,00378325001 ",.02)
 ;;00378325001
 ;;9002226.02101,"1044,00378347101 ",.01)
 ;;00378347101
 ;;9002226.02101,"1044,00378347101 ",.02)
 ;;00378347101
 ;;9002226.02101,"1044,00378347110 ",.01)
 ;;00378347110
 ;;9002226.02101,"1044,00378347110 ",.02)
 ;;00378347110
 ;;9002226.02101,"1044,00378347201 ",.01)
 ;;00378347201
 ;;9002226.02101,"1044,00378347201 ",.02)
 ;;00378347201
 ;;9002226.02101,"1044,00378347210 ",.01)
 ;;00378347210
 ;;9002226.02101,"1044,00378347210 ",.02)
 ;;00378347210
 ;;9002226.02101,"1044,00378347301 ",.01)
 ;;00378347301
 ;;9002226.02101,"1044,00378347301 ",.02)
 ;;00378347301
 ;;9002226.02101,"1044,00378347310 ",.01)
 ;;00378347310
 ;;9002226.02101,"1044,00378347310 ",.02)
 ;;00378347310
 ;;9002226.02101,"1044,00378347401 ",.01)
 ;;00378347401
 ;;9002226.02101,"1044,00378347401 ",.02)
 ;;00378347401
 ;;9002226.02101,"1044,00378347405 ",.01)
 ;;00378347405
 ;;9002226.02101,"1044,00378347405 ",.02)
 ;;00378347405
 ;;9002226.02101,"1044,00378347410 ",.01)
 ;;00378347410
 ;;9002226.02101,"1044,00378347410 ",.02)
 ;;00378347410
 ;;9002226.02101,"1044,00378351501 ",.01)
 ;;00378351501
 ;;9002226.02101,"1044,00378351501 ",.02)
 ;;00378351501
 ;;9002226.02101,"1044,00378351510 ",.01)
 ;;00378351510
 ;;9002226.02101,"1044,00378351510 ",.02)
 ;;00378351510
 ;;9002226.02101,"1044,00378351593 ",.01)
 ;;00378351593
 ;;9002226.02101,"1044,00378351593 ",.02)
 ;;00378351593
 ;;9002226.02101,"1044,00378353001 ",.01)
 ;;00378353001
 ;;9002226.02101,"1044,00378353001 ",.02)
 ;;00378353001
 ;;9002226.02101,"1044,00378353005 ",.01)
 ;;00378353005
 ;;9002226.02101,"1044,00378353005 ",.02)
 ;;00378353005
 ;;9002226.02101,"1044,00378353093 ",.01)
 ;;00378353093
 ;;9002226.02101,"1044,00378353093 ",.02)
 ;;00378353093
 ;;9002226.02101,"1044,00378354501 ",.01)
 ;;00378354501
 ;;9002226.02101,"1044,00378354501 ",.02)
 ;;00378354501
 ;;9002226.02101,"1044,00378354505 ",.01)
 ;;00378354505
 ;;9002226.02101,"1044,00378354505 ",.02)
 ;;00378354505