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

BGPM5BFS.m

Go to the documentation of this file.
BGPM5BFS ;IHS/MSC/MMT-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,"1084,61442011525 ",.01)
 ;;61442011525
 ;;9002226.02101,"1084,61442011525 ",.02)
 ;;61442011525
 ;;9002226.02101,"1084,61442011601 ",.01)
 ;;61442011601
 ;;9002226.02101,"1084,61442011601 ",.02)
 ;;61442011601
 ;;9002226.02101,"1084,61442011605 ",.01)
 ;;61442011605
 ;;9002226.02101,"1084,61442011605 ",.02)
 ;;61442011605
 ;;9002226.02101,"1084,61442011610 ",.01)
 ;;61442011610
 ;;9002226.02101,"1084,61442011610 ",.02)
 ;;61442011610
 ;;9002226.02101,"1084,61442011625 ",.01)
 ;;61442011625
 ;;9002226.02101,"1084,61442011625 ",.02)
 ;;61442011625
 ;;9002226.02101,"1084,61442011701 ",.01)
 ;;61442011701
 ;;9002226.02101,"1084,61442011701 ",.02)
 ;;61442011701
 ;;9002226.02101,"1084,61442011705 ",.01)
 ;;61442011705
 ;;9002226.02101,"1084,61442011705 ",.02)
 ;;61442011705
 ;;9002226.02101,"1084,61442011710 ",.01)
 ;;61442011710
 ;;9002226.02101,"1084,61442011710 ",.02)
 ;;61442011710
 ;;9002226.02101,"1084,61442011725 ",.01)
 ;;61442011725
 ;;9002226.02101,"1084,61442011725 ",.02)
 ;;61442011725
 ;;9002226.02101,"1084,62037057101 ",.01)
 ;;62037057101
 ;;9002226.02101,"1084,62037057101 ",.02)
 ;;62037057101
 ;;9002226.02101,"1084,62037057105 ",.01)
 ;;62037057105
 ;;9002226.02101,"1084,62037057105 ",.02)
 ;;62037057105
 ;;9002226.02101,"1084,62037057110 ",.01)
 ;;62037057110
 ;;9002226.02101,"1084,62037057110 ",.02)
 ;;62037057110
 ;;9002226.02101,"1084,62037057701 ",.01)
 ;;62037057701
 ;;9002226.02101,"1084,62037057701 ",.02)
 ;;62037057701
 ;;9002226.02101,"1084,62037057705 ",.01)
 ;;62037057705
 ;;9002226.02101,"1084,62037057705 ",.02)
 ;;62037057705
 ;;9002226.02101,"1084,62037057710 ",.01)
 ;;62037057710
 ;;9002226.02101,"1084,62037057710 ",.02)
 ;;62037057710
 ;;9002226.02101,"1084,62037067401 ",.01)
 ;;62037067401
 ;;9002226.02101,"1084,62037067401 ",.02)
 ;;62037067401
 ;;9002226.02101,"1084,62037067405 ",.01)
 ;;62037067405
 ;;9002226.02101,"1084,62037067405 ",.02)
 ;;62037067405
 ;;9002226.02101,"1084,62037067410 ",.01)
 ;;62037067410
 ;;9002226.02101,"1084,62037067410 ",.02)
 ;;62037067410
 ;;9002226.02101,"1084,62037067501 ",.01)
 ;;62037067501
 ;;9002226.02101,"1084,62037067501 ",.02)
 ;;62037067501
 ;;9002226.02101,"1084,62037067505 ",.01)
 ;;62037067505
 ;;9002226.02101,"1084,62037067505 ",.02)
 ;;62037067505
 ;;9002226.02101,"1084,62037067510 ",.01)
 ;;62037067510
 ;;9002226.02101,"1084,62037067510 ",.02)
 ;;62037067510
 ;;9002226.02101,"1084,62037067601 ",.01)
 ;;62037067601
 ;;9002226.02101,"1084,62037067601 ",.02)
 ;;62037067601
 ;;9002226.02101,"1084,62037067605 ",.01)
 ;;62037067605
 ;;9002226.02101,"1084,62037067605 ",.02)
 ;;62037067605
 ;;9002226.02101,"1084,62037067610 ",.01)
 ;;62037067610
 ;;9002226.02101,"1084,62037067610 ",.02)
 ;;62037067610
 ;;9002226.02101,"1084,62037087130 ",.01)
 ;;62037087130
 ;;9002226.02101,"1084,62037087130 ",.02)
 ;;62037087130
 ;;9002226.02101,"1084,62037087201 ",.01)
 ;;62037087201
 ;;9002226.02101,"1084,62037087201 ",.02)
 ;;62037087201
 ;;9002226.02101,"1084,62037087205 ",.01)
 ;;62037087205
 ;;9002226.02101,"1084,62037087205 ",.02)
 ;;62037087205
 ;;9002226.02101,"1084,62037087301 ",.01)
 ;;62037087301
 ;;9002226.02101,"1084,62037087301 ",.02)
 ;;62037087301
 ;;9002226.02101,"1084,62037087305 ",.01)
 ;;62037087305
 ;;9002226.02101,"1084,62037087305 ",.02)
 ;;62037087305
 ;;9002226.02101,"1084,62147500000 ",.01)
 ;;62147500000
 ;;9002226.02101,"1084,62147500000 ",.02)
 ;;62147500000
 ;;9002226.02101,"1084,62147500100 ",.01)
 ;;62147500100
 ;;9002226.02101,"1084,62147500100 ",.02)
 ;;62147500100
 ;;9002226.02101,"1084,62147500200 ",.01)
 ;;62147500200
 ;;9002226.02101,"1084,62147500200 ",.02)
 ;;62147500200
 ;;9002226.02101,"1084,62147500301 ",.01)
 ;;62147500301
 ;;9002226.02101,"1084,62147500301 ",.02)
 ;;62147500301
 ;;9002226.02101,"1084,62147500302 ",.01)
 ;;62147500302
 ;;9002226.02101,"1084,62147500302 ",.02)
 ;;62147500302
 ;;9002226.02101,"1084,62147500401 ",.01)
 ;;62147500401
 ;;9002226.02101,"1084,62147500401 ",.02)
 ;;62147500401
 ;;9002226.02101,"1084,62147500402 ",.01)
 ;;62147500402
 ;;9002226.02101,"1084,62147500402 ",.02)
 ;;62147500402
 ;;9002226.02101,"1084,62147500501 ",.01)
 ;;62147500501
 ;;9002226.02101,"1084,62147500501 ",.02)
 ;;62147500501
 ;;9002226.02101,"1084,62147500502 ",.01)
 ;;62147500502
 ;;9002226.02101,"1084,62147500502 ",.02)
 ;;62147500502
 ;;9002226.02101,"1084,62318014100 ",.01)
 ;;62318014100
 ;;9002226.02101,"1084,62318014100 ",.02)
 ;;62318014100
 ;;9002226.02101,"1084,62318014101 ",.01)
 ;;62318014101
 ;;9002226.02101,"1084,62318014101 ",.02)
 ;;62318014101
 ;;9002226.02101,"1084,62318014102 ",.01)
 ;;62318014102
 ;;9002226.02101,"1084,62318014102 ",.02)
 ;;62318014102
 ;;9002226.02101,"1084,62318014200 ",.01)
 ;;62318014200
 ;;9002226.02101,"1084,62318014200 ",.02)
 ;;62318014200
 ;;9002226.02101,"1084,62318014201 ",.01)
 ;;62318014201
 ;;9002226.02101,"1084,62318014201 ",.02)
 ;;62318014201
 ;;9002226.02101,"1084,62318014202 ",.01)
 ;;62318014202
 ;;9002226.02101,"1084,62318014202 ",.02)
 ;;62318014202
 ;;9002226.02101,"1084,62318019000 ",.01)
 ;;62318019000
 ;;9002226.02101,"1084,62318019000 ",.02)
 ;;62318019000
 ;;9002226.02101,"1084,62318019001 ",.01)
 ;;62318019001
 ;;9002226.02101,"1084,62318019001 ",.02)
 ;;62318019001
 ;;9002226.02101,"1084,62318019100 ",.01)
 ;;62318019100
 ;;9002226.02101,"1084,62318019100 ",.02)
 ;;62318019100
 ;;9002226.02101,"1084,62318019101 ",.01)
 ;;62318019101
 ;;9002226.02101,"1084,62318019101 ",.02)
 ;;62318019101
 ;;9002226.02101,"1084,62318019200 ",.01)
 ;;62318019200
 ;;9002226.02101,"1084,62318019200 ",.02)
 ;;62318019200
 ;;9002226.02101,"1084,62318019201 ",.01)
 ;;62318019201
 ;;9002226.02101,"1084,62318019201 ",.02)
 ;;62318019201
 ;;9002226.02101,"1084,62528034427 ",.01)
 ;;62528034427
 ;;9002226.02101,"1084,62528034427 ",.02)
 ;;62528034427
 ;;9002226.02101,"1084,62528034435 ",.01)
 ;;62528034435
 ;;9002226.02101,"1084,62528034435 ",.02)
 ;;62528034435
 ;;9002226.02101,"1084,62528034440 ",.01)
 ;;62528034440
 ;;9002226.02101,"1084,62528034440 ",.02)
 ;;62528034440
 ;;9002226.02101,"1084,62528034470 ",.01)
 ;;62528034470
 ;;9002226.02101,"1084,62528034470 ",.02)
 ;;62528034470
 ;;9002226.02101,"1084,62528034480 ",.01)
 ;;62528034480
 ;;9002226.02101,"1084,62528034480 ",.02)
 ;;62528034480
 ;;9002226.02101,"1084,62540725401 ",.01)
 ;;62540725401
 ;;9002226.02101,"1084,62540725401 ",.02)
 ;;62540725401
 ;;9002226.02101,"1084,62540725404 ",.01)
 ;;62540725404
 ;;9002226.02101,"1084,62540725404 ",.02)
 ;;62540725404
 ;;9002226.02101,"1084,62540725501 ",.01)
 ;;62540725501
 ;;9002226.02101,"1084,62540725501 ",.02)
 ;;62540725501
 ;;9002226.02101,"1084,62540725504 ",.01)
 ;;62540725504
 ;;9002226.02101,"1084,62540725504 ",.02)
 ;;62540725504
 ;;9002226.02101,"1084,62540725601 ",.01)
 ;;62540725601
 ;;9002226.02101,"1084,62540725601 ",.02)
 ;;62540725601
 ;;9002226.02101,"1084,62540725603 ",.01)
 ;;62540725603
 ;;9002226.02101,"1084,62540725603 ",.02)
 ;;62540725603
 ;;9002226.02101,"1084,62540725604 ",.01)
 ;;62540725604
 ;;9002226.02101,"1084,62540725604 ",.02)
 ;;62540725604
 ;;9002226.02101,"1084,62584025901 ",.01)
 ;;62584025901
 ;;9002226.02101,"1084,62584025901 ",.02)
 ;;62584025901
 ;;9002226.02101,"1084,62584025911 ",.01)
 ;;62584025911
 ;;9002226.02101,"1084,62584025911 ",.02)
 ;;62584025911
 ;;9002226.02101,"1084,62584025985 ",.01)
 ;;62584025985
 ;;9002226.02101,"1084,62584025985 ",.02)
 ;;62584025985
 ;;9002226.02101,"1084,62584033201 ",.01)
 ;;62584033201
 ;;9002226.02101,"1084,62584033201 ",.02)
 ;;62584033201
 ;;9002226.02101,"1084,62584033211 ",.01)
 ;;62584033211
 ;;9002226.02101,"1084,62584033211 ",.02)
 ;;62584033211
 ;;9002226.02101,"1084,62584045201 ",.01)
 ;;62584045201
 ;;9002226.02101,"1084,62584045201 ",.02)
 ;;62584045201
 ;;9002226.02101,"1084,62584045211 ",.01)
 ;;62584045211
 ;;9002226.02101,"1084,62584045211 ",.02)
 ;;62584045211
 ;;9002226.02101,"1084,62584045285 ",.01)
 ;;62584045285
 ;;9002226.02101,"1084,62584045285 ",.02)
 ;;62584045285
 ;;9002226.02101,"1084,62682500403 ",.01)
 ;;62682500403
 ;;9002226.02101,"1084,62682500403 ",.02)
 ;;62682500403
 ;;9002226.02101,"1084,62682500408 ",.01)
 ;;62682500408
 ;;9002226.02101,"1084,62682500408 ",.02)
 ;;62682500408
 ;;9002226.02101,"1084,62682500603 ",.01)
 ;;62682500603
 ;;9002226.02101,"1084,62682500603 ",.02)
 ;;62682500603
 ;;9002226.02101,"1084,62756014201 ",.01)
 ;;62756014201
 ;;9002226.02101,"1084,62756014201 ",.02)
 ;;62756014201
 ;;9002226.02101,"1084,62756014202 ",.01)
 ;;62756014202
 ;;9002226.02101,"1084,62756014202 ",.02)
 ;;62756014202
 ;;9002226.02101,"1084,62756014301 ",.01)
 ;;62756014301
 ;;9002226.02101,"1084,62756014301 ",.02)
 ;;62756014301
 ;;9002226.02101,"1084,62756039751 ",.01)
 ;;62756039751
 ;;9002226.02101,"1084,62756039751 ",.02)
 ;;62756039751
 ;;9002226.02101,"1084,62756039753 ",.01)
 ;;62756039753
 ;;9002226.02101,"1084,62756039753 ",.02)
 ;;62756039753
 ;;9002226.02101,"1084,62756039758 ",.01)
 ;;62756039758
 ;;9002226.02101,"1084,62756039758 ",.02)
 ;;62756039758
 ;;9002226.02101,"1084,62756043551 ",.01)
 ;;62756043551
 ;;9002226.02101,"1084,62756043551 ",.02)
 ;;62756043551
 ;;9002226.02101,"1084,62756043553 ",.01)
 ;;62756043553
 ;;9002226.02101,"1084,62756043553 ",.02)
 ;;62756043553
 ;;9002226.02101,"1084,62756043558 ",.01)
 ;;62756043558
 ;;9002226.02101,"1084,62756043558 ",.02)
 ;;62756043558
 ;;9002226.02101,"1084,62756047451 ",.01)
 ;;62756047451
 ;;9002226.02101,"1084,62756047451 ",.02)
 ;;62756047451
 ;;9002226.02101,"1084,62756047453 ",.01)
 ;;62756047453
 ;;9002226.02101,"1084,62756047453 ",.02)
 ;;62756047453
 ;;9002226.02101,"1084,62756047458 ",.01)
 ;;62756047458
 ;;9002226.02101,"1084,62756047458 ",.02)
 ;;62756047458
 ;;9002226.02101,"1084,63304042501 ",.01)
 ;;63304042501
 ;;9002226.02101,"1084,63304042501 ",.02)
 ;;63304042501
 ;;9002226.02101,"1084,63304042510 ",.01)
 ;;63304042510
 ;;9002226.02101,"1084,63304042510 ",.02)
 ;;63304042510
 ;;9002226.02101,"1084,63304042530 ",.01)
 ;;63304042530
 ;;9002226.02101,"1084,63304042530 ",.02)
 ;;63304042530
 ;;9002226.02101,"1084,63304042601 ",.01)
 ;;63304042601
 ;;9002226.02101,"1084,63304042601 ",.02)
 ;;63304042601
 ;;9002226.02101,"1084,63304042610 ",.01)
 ;;63304042610
 ;;9002226.02101,"1084,63304042610 ",.02)
 ;;63304042610
 ;;9002226.02101,"1084,63304042630 ",.01)
 ;;63304042630
 ;;9002226.02101,"1084,63304042630 ",.02)
 ;;63304042630
 ;;9002226.02101,"1084,63304042701 ",.01)
 ;;63304042701
 ;;9002226.02101,"1084,63304042701 ",.02)
 ;;63304042701
 ;;9002226.02101,"1084,63304042710 ",.01)
 ;;63304042710
 ;;9002226.02101,"1084,63304042710 ",.02)
 ;;63304042710
 ;;9002226.02101,"1084,63304042730 ",.01)
 ;;63304042730
 ;;9002226.02101,"1084,63304042730 ",.02)
 ;;63304042730
 ;;9002226.02101,"1084,63304076701 ",.01)
 ;;63304076701
 ;;9002226.02101,"1084,63304076701 ",.02)
 ;;63304076701
 ;;9002226.02101,"1084,63304076705 ",.01)
 ;;63304076705
 ;;9002226.02101,"1084,63304076705 ",.02)
 ;;63304076705
 ;;9002226.02101,"1084,63304076720 ",.01)
 ;;63304076720
 ;;9002226.02101,"1084,63304076720 ",.02)
 ;;63304076720
 ;;9002226.02101,"1084,63304086001 ",.01)
 ;;63304086001
 ;;9002226.02101,"1084,63304086001 ",.02)
 ;;63304086001
 ;;9002226.02101,"1084,63304086005 ",.01)
 ;;63304086005
 ;;9002226.02101,"1084,63304086005 ",.02)
 ;;63304086005
 ;;9002226.02101,"1084,63304086030 ",.01)
 ;;63304086030
 ;;9002226.02101,"1084,63304086030 ",.02)
 ;;63304086030
 ;;9002226.02101,"1084,63552033060 ",.01)
 ;;63552033060