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

BGPM5AKU.m

Go to the documentation of this file.
BGPM5AKU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"885,10056053576 ",.02)
 ;;10056053576
 ;;9002226.02101,"885,10117005701 ",.01)
 ;;10117005701
 ;;9002226.02101,"885,10117005701 ",.02)
 ;;10117005701
 ;;9002226.02101,"885,10135012601 ",.01)
 ;;10135012601
 ;;9002226.02101,"885,10135012601 ",.02)
 ;;10135012601
 ;;9002226.02101,"885,10135012603 ",.01)
 ;;10135012603
 ;;9002226.02101,"885,10135012603 ",.02)
 ;;10135012603
 ;;9002226.02101,"885,10135012610 ",.01)
 ;;10135012610
 ;;9002226.02101,"885,10135012610 ",.02)
 ;;10135012610
 ;;9002226.02101,"885,10135012613 ",.01)
 ;;10135012613
 ;;9002226.02101,"885,10135012613 ",.02)
 ;;10135012613
 ;;9002226.02101,"885,10135012616 ",.01)
 ;;10135012616
 ;;9002226.02101,"885,10135012616 ",.02)
 ;;10135012616
 ;;9002226.02101,"885,10135012620 ",.01)
 ;;10135012620
 ;;9002226.02101,"885,10135012620 ",.02)
 ;;10135012620
 ;;9002226.02101,"885,10135012627 ",.01)
 ;;10135012627
 ;;9002226.02101,"885,10135012627 ",.02)
 ;;10135012627
 ;;9002226.02101,"885,10135012630 ",.01)
 ;;10135012630
 ;;9002226.02101,"885,10135012630 ",.02)
 ;;10135012630
 ;;9002226.02101,"885,10135012650 ",.01)
 ;;10135012650
 ;;9002226.02101,"885,10135012650 ",.02)
 ;;10135012650
 ;;9002226.02101,"885,10135012657 ",.01)
 ;;10135012657
 ;;9002226.02101,"885,10135012657 ",.02)
 ;;10135012657
 ;;9002226.02101,"885,10135012660 ",.01)
 ;;10135012660
 ;;9002226.02101,"885,10135012660 ",.02)
 ;;10135012660
 ;;9002226.02101,"885,10135012669 ",.01)
 ;;10135012669
 ;;9002226.02101,"885,10135012669 ",.02)
 ;;10135012669
 ;;9002226.02101,"885,10135012675 ",.01)
 ;;10135012675
 ;;9002226.02101,"885,10135012675 ",.02)
 ;;10135012675
 ;;9002226.02101,"885,10135012690 ",.01)
 ;;10135012690
 ;;9002226.02101,"885,10135012690 ",.02)
 ;;10135012690
 ;;9002226.02101,"885,10135012699 ",.01)
 ;;10135012699
 ;;9002226.02101,"885,10135012699 ",.02)
 ;;10135012699
 ;;9002226.02101,"885,10135015001 ",.01)
 ;;10135015001
 ;;9002226.02101,"885,10135015001 ",.02)
 ;;10135015001
 ;;9002226.02101,"885,10135015005 ",.01)
 ;;10135015005
 ;;9002226.02101,"885,10135015005 ",.02)
 ;;10135015005
 ;;9002226.02101,"885,10135015010 ",.01)
 ;;10135015010
 ;;9002226.02101,"885,10135015010 ",.02)
 ;;10135015010
 ;;9002226.02101,"885,10135015013 ",.01)
 ;;10135015013
 ;;9002226.02101,"885,10135015013 ",.02)
 ;;10135015013
 ;;9002226.02101,"885,10135015020 ",.01)
 ;;10135015020
 ;;9002226.02101,"885,10135015020 ",.02)
 ;;10135015020
 ;;9002226.02101,"885,10135015024 ",.01)
 ;;10135015024
 ;;9002226.02101,"885,10135015024 ",.02)
 ;;10135015024
 ;;9002226.02101,"885,10135015030 ",.01)
 ;;10135015030
 ;;9002226.02101,"885,10135015030 ",.02)
 ;;10135015030
 ;;9002226.02101,"885,10135015057 ",.01)
 ;;10135015057
 ;;9002226.02101,"885,10135015057 ",.02)
 ;;10135015057
 ;;9002226.02101,"885,10135015069 ",.01)
 ;;10135015069
 ;;9002226.02101,"885,10135015069 ",.02)
 ;;10135015069
 ;;9002226.02101,"885,10135017101 ",.01)
 ;;10135017101
 ;;9002226.02101,"885,10135017101 ",.02)
 ;;10135017101
 ;;9002226.02101,"885,10135017110 ",.01)
 ;;10135017110
 ;;9002226.02101,"885,10135017110 ",.02)
 ;;10135017110
 ;;9002226.02101,"885,10135017160 ",.01)
 ;;10135017160
 ;;9002226.02101,"885,10135017160 ",.02)
 ;;10135017160
 ;;9002226.02101,"885,10135017164 ",.01)
 ;;10135017164
 ;;9002226.02101,"885,10135017164 ",.02)
 ;;10135017164
 ;;9002226.02101,"885,10135017201 ",.01)
 ;;10135017201
 ;;9002226.02101,"885,10135017201 ",.02)
 ;;10135017201
 ;;9002226.02101,"885,10135017210 ",.01)
 ;;10135017210
 ;;9002226.02101,"885,10135017210 ",.02)
 ;;10135017210
 ;;9002226.02101,"885,10135017301 ",.01)
 ;;10135017301
 ;;9002226.02101,"885,10135017301 ",.02)
 ;;10135017301
 ;;9002226.02101,"885,10135017303 ",.01)
 ;;10135017303
 ;;9002226.02101,"885,10135017303 ",.02)
 ;;10135017303
 ;;9002226.02101,"885,10135017305 ",.01)
 ;;10135017305
 ;;9002226.02101,"885,10135017305 ",.02)
 ;;10135017305
 ;;9002226.02101,"885,10135017310 ",.01)
 ;;10135017310
 ;;9002226.02101,"885,10135017310 ",.02)
 ;;10135017310
 ;;9002226.02101,"885,10135017336 ",.01)
 ;;10135017336
 ;;9002226.02101,"885,10135017336 ",.02)
 ;;10135017336
 ;;9002226.02101,"885,10135017353 ",.01)
 ;;10135017353
 ;;9002226.02101,"885,10135017353 ",.02)
 ;;10135017353
 ;;9002226.02101,"885,10135017362 ",.01)
 ;;10135017362
 ;;9002226.02101,"885,10135017362 ",.02)
 ;;10135017362
 ;;9002226.02101,"885,10135017369 ",.01)
 ;;10135017369
 ;;9002226.02101,"885,10135017369 ",.02)
 ;;10135017369
 ;;9002226.02101,"885,10135017401 ",.01)
 ;;10135017401
 ;;9002226.02101,"885,10135017401 ",.02)
 ;;10135017401
 ;;9002226.02101,"885,10135017410 ",.01)
 ;;10135017410
 ;;9002226.02101,"885,10135017410 ",.02)
 ;;10135017410
 ;;9002226.02101,"885,10135024036 ",.01)
 ;;10135024036
 ;;9002226.02101,"885,10135024036 ",.02)
 ;;10135024036
 ;;9002226.02101,"885,10135035301 ",.01)
 ;;10135035301
 ;;9002226.02101,"885,10135035301 ",.02)
 ;;10135035301
 ;;9002226.02101,"885,10135035357 ",.01)
 ;;10135035357
 ;;9002226.02101,"885,10135035357 ",.02)
 ;;10135035357
 ;;9002226.02101,"885,10135037557 ",.01)
 ;;10135037557
 ;;9002226.02101,"885,10135037557 ",.02)
 ;;10135037557
 ;;9002226.02101,"885,10135038715 ",.01)
 ;;10135038715
 ;;9002226.02101,"885,10135038715 ",.02)
 ;;10135038715
 ;;9002226.02101,"885,10135038727 ",.01)
 ;;10135038727
 ;;9002226.02101,"885,10135038727 ",.02)
 ;;10135038727
 ;;9002226.02101,"885,10135038815 ",.01)
 ;;10135038815
 ;;9002226.02101,"885,10135038815 ",.02)
 ;;10135038815
 ;;9002226.02101,"885,10135038827 ",.01)
 ;;10135038827
 ;;9002226.02101,"885,10135038827 ",.02)
 ;;10135038827
 ;;9002226.02101,"885,10158000910 ",.01)
 ;;10158000910
 ;;9002226.02101,"885,10158000910 ",.02)
 ;;10158000910
 ;;9002226.02101,"885,10158001016 ",.01)
 ;;10158001016
 ;;9002226.02101,"885,10158001016 ",.02)
 ;;10158001016
 ;;9002226.02101,"885,10158001018 ",.01)
 ;;10158001018
 ;;9002226.02101,"885,10158001018 ",.02)
 ;;10158001018
 ;;9002226.02101,"885,10158009100 ",.01)
 ;;10158009100
 ;;9002226.02101,"885,10158009100 ",.02)
 ;;10158009100
 ;;9002226.02101,"885,10244056210 ",.01)
 ;;10244056210
 ;;9002226.02101,"885,10244056210 ",.02)
 ;;10244056210
 ;;9002226.02101,"885,10244056211 ",.01)
 ;;10244056211
 ;;9002226.02101,"885,10244056211 ",.02)
 ;;10244056211
 ;;9002226.02101,"885,10244056261 ",.01)
 ;;10244056261
 ;;9002226.02101,"885,10244056261 ",.02)
 ;;10244056261
 ;;9002226.02101,"885,10244056262 ",.01)
 ;;10244056262
 ;;9002226.02101,"885,10244056262 ",.02)
 ;;10244056262
 ;;9002226.02101,"885,10244056265 ",.01)
 ;;10244056265
 ;;9002226.02101,"885,10244056265 ",.02)
 ;;10244056265
 ;;9002226.02101,"885,10267240401 ",.01)
 ;;10267240401
 ;;9002226.02101,"885,10267240401 ",.02)
 ;;10267240401
 ;;9002226.02101,"885,10802975701 ",.01)
 ;;10802975701
 ;;9002226.02101,"885,10802975701 ",.02)
 ;;10802975701
 ;;9002226.02101,"885,11383005011 ",.01)
 ;;11383005011
 ;;9002226.02101,"885,11383005011 ",.02)
 ;;11383005011
 ;;9002226.02101,"885,11383005023 ",.01)
 ;;11383005023
 ;;9002226.02101,"885,11383005023 ",.02)
 ;;11383005023
 ;;9002226.02101,"885,11383007225 ",.01)
 ;;11383007225
 ;;9002226.02101,"885,11383007225 ",.02)
 ;;11383007225
 ;;9002226.02101,"885,11383014811 ",.01)
 ;;11383014811
 ;;9002226.02101,"885,11383014811 ",.02)
 ;;11383014811
 ;;9002226.02101,"885,11383014825 ",.01)
 ;;11383014825
 ;;9002226.02101,"885,11383014825 ",.02)
 ;;11383014825
 ;;9002226.02101,"885,11383014851 ",.01)
 ;;11383014851
 ;;9002226.02101,"885,11383014851 ",.02)
 ;;11383014851
 ;;9002226.02101,"885,11383015814 ",.01)
 ;;11383015814
 ;;9002226.02101,"885,11383015814 ",.02)
 ;;11383015814
 ;;9002226.02101,"885,11383015826 ",.01)
 ;;11383015826
 ;;9002226.02101,"885,11383015826 ",.02)
 ;;11383015826
 ;;9002226.02101,"885,11383025236 ",.01)
 ;;11383025236
 ;;9002226.02101,"885,11383025236 ",.02)
 ;;11383025236
 ;;9002226.02101,"885,11534015511 ",.01)
 ;;11534015511
 ;;9002226.02101,"885,11534015511 ",.02)
 ;;11534015511
 ;;9002226.02101,"885,11673015912 ",.01)
 ;;11673015912
 ;;9002226.02101,"885,11673015912 ",.02)
 ;;11673015912
 ;;9002226.02101,"885,11673015959 ",.01)
 ;;11673015959
 ;;9002226.02101,"885,11673015959 ",.02)
 ;;11673015959
 ;;9002226.02101,"885,11673027468 ",.01)
 ;;11673027468
 ;;9002226.02101,"885,11673027468 ",.02)
 ;;11673027468
 ;;9002226.02101,"885,11673027748 ",.01)
 ;;11673027748
 ;;9002226.02101,"885,11673027748 ",.02)
 ;;11673027748
 ;;9002226.02101,"885,11673037478 ",.01)
 ;;11673037478
 ;;9002226.02101,"885,11673037478 ",.02)
 ;;11673037478
 ;;9002226.02101,"885,11673041687 ",.01)
 ;;11673041687
 ;;9002226.02101,"885,11673041687 ",.02)
 ;;11673041687
 ;;9002226.02101,"885,11673041690 ",.01)
 ;;11673041690
 ;;9002226.02101,"885,11673041690 ",.02)
 ;;11673041690
 ;;9002226.02101,"885,11673043031 ",.01)
 ;;11673043031
 ;;9002226.02101,"885,11673043031 ",.02)
 ;;11673043031
 ;;9002226.02101,"885,11673043078 ",.01)
 ;;11673043078
 ;;9002226.02101,"885,11673043078 ",.02)
 ;;11673043078
 ;;9002226.02101,"885,11673046708 ",.01)
 ;;11673046708
 ;;9002226.02101,"885,11673046708 ",.02)
 ;;11673046708
 ;;9002226.02101,"885,11673046768 ",.01)
 ;;11673046768
 ;;9002226.02101,"885,11673046768 ",.02)
 ;;11673046768
 ;;9002226.02101,"885,11673053576 ",.01)
 ;;11673053576
 ;;9002226.02101,"885,11673053576 ",.02)
 ;;11673053576
 ;;9002226.02101,"885,11673056317 ",.01)
 ;;11673056317
 ;;9002226.02101,"885,11673056317 ",.02)
 ;;11673056317
 ;;9002226.02101,"885,11673056332 ",.01)
 ;;11673056332
 ;;9002226.02101,"885,11673056332 ",.02)
 ;;11673056332
 ;;9002226.02101,"885,11822316901 ",.01)
 ;;11822316901
 ;;9002226.02101,"885,11822316901 ",.02)
 ;;11822316901
 ;;9002226.02101,"885,11845070601 ",.01)
 ;;11845070601
 ;;9002226.02101,"885,11845070601 ",.02)
 ;;11845070601
 ;;9002226.02101,"885,11845070604 ",.01)
 ;;11845070604
 ;;9002226.02101,"885,11845070604 ",.02)
 ;;11845070604
 ;;9002226.02101,"885,11845070629 ",.01)
 ;;11845070629
 ;;9002226.02101,"885,11845070629 ",.02)
 ;;11845070629
 ;;9002226.02101,"885,11845084701 ",.01)
 ;;11845084701
 ;;9002226.02101,"885,11845084701 ",.02)
 ;;11845084701
 ;;9002226.02101,"885,11845089004 ",.01)
 ;;11845089004
 ;;9002226.02101,"885,11845089004 ",.02)
 ;;11845089004
 ;;9002226.02101,"885,11845089108 ",.01)
 ;;11845089108
 ;;9002226.02101,"885,11845089108 ",.02)
 ;;11845089108
 ;;9002226.02101,"885,11845089901 ",.01)
 ;;11845089901
 ;;9002226.02101,"885,11845089901 ",.02)
 ;;11845089901
 ;;9002226.02101,"885,11845093001 ",.01)
 ;;11845093001
 ;;9002226.02101,"885,11845093001 ",.02)
 ;;11845093001
 ;;9002226.02101,"885,11845094236 ",.01)
 ;;11845094236
 ;;9002226.02101,"885,11845094236 ",.02)
 ;;11845094236
 ;;9002226.02101,"885,11845097502 ",.01)
 ;;11845097502
 ;;9002226.02101,"885,11845097502 ",.02)
 ;;11845097502
 ;;9002226.02101,"885,11845099316 ",.01)
 ;;11845099316
 ;;9002226.02101,"885,11845099316 ",.02)
 ;;11845099316
 ;;9002226.02101,"885,11917004160 ",.01)
 ;;11917004160
 ;;9002226.02101,"885,11917004160 ",.02)
 ;;11917004160
 ;;9002226.02101,"885,11917004161 ",.01)
 ;;11917004161
 ;;9002226.02101,"885,11917004161 ",.02)
 ;;11917004161
 ;;9002226.02101,"885,12714012511 ",.01)
 ;;12714012511
 ;;9002226.02101,"885,12714012511 ",.02)
 ;;12714012511
 ;;9002226.02101,"885,12714012560 ",.01)
 ;;12714012560
 ;;9002226.02101,"885,12714012560 ",.02)
 ;;12714012560
 ;;9002226.02101,"885,12843006132 ",.01)
 ;;12843006132
 ;;9002226.02101,"885,12843006132 ",.02)
 ;;12843006132
 ;;9002226.02101,"885,12843010106 ",.01)
 ;;12843010106