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

BGPM5APE.m

Go to the documentation of this file.
BGPM5APE ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 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,"998,10135015020 ",.02)
 ;;10135015020
 ;;9002226.02101,"998,10135015024 ",.01)
 ;;10135015024
 ;;9002226.02101,"998,10135015024 ",.02)
 ;;10135015024
 ;;9002226.02101,"998,10135015030 ",.01)
 ;;10135015030
 ;;9002226.02101,"998,10135015030 ",.02)
 ;;10135015030
 ;;9002226.02101,"998,10135015057 ",.01)
 ;;10135015057
 ;;9002226.02101,"998,10135015057 ",.02)
 ;;10135015057
 ;;9002226.02101,"998,10135015069 ",.01)
 ;;10135015069
 ;;9002226.02101,"998,10135015069 ",.02)
 ;;10135015069
 ;;9002226.02101,"998,10135017101 ",.01)
 ;;10135017101
 ;;9002226.02101,"998,10135017101 ",.02)
 ;;10135017101
 ;;9002226.02101,"998,10135017110 ",.01)
 ;;10135017110
 ;;9002226.02101,"998,10135017110 ",.02)
 ;;10135017110
 ;;9002226.02101,"998,10135017160 ",.01)
 ;;10135017160
 ;;9002226.02101,"998,10135017160 ",.02)
 ;;10135017160
 ;;9002226.02101,"998,10135017164 ",.01)
 ;;10135017164
 ;;9002226.02101,"998,10135017164 ",.02)
 ;;10135017164
 ;;9002226.02101,"998,10135017201 ",.01)
 ;;10135017201
 ;;9002226.02101,"998,10135017201 ",.02)
 ;;10135017201
 ;;9002226.02101,"998,10135017210 ",.01)
 ;;10135017210
 ;;9002226.02101,"998,10135017210 ",.02)
 ;;10135017210
 ;;9002226.02101,"998,10135017301 ",.01)
 ;;10135017301
 ;;9002226.02101,"998,10135017301 ",.02)
 ;;10135017301
 ;;9002226.02101,"998,10135017303 ",.01)
 ;;10135017303
 ;;9002226.02101,"998,10135017303 ",.02)
 ;;10135017303
 ;;9002226.02101,"998,10135017305 ",.01)
 ;;10135017305
 ;;9002226.02101,"998,10135017305 ",.02)
 ;;10135017305
 ;;9002226.02101,"998,10135017310 ",.01)
 ;;10135017310
 ;;9002226.02101,"998,10135017310 ",.02)
 ;;10135017310
 ;;9002226.02101,"998,10135017336 ",.01)
 ;;10135017336
 ;;9002226.02101,"998,10135017336 ",.02)
 ;;10135017336
 ;;9002226.02101,"998,10135017353 ",.01)
 ;;10135017353
 ;;9002226.02101,"998,10135017353 ",.02)
 ;;10135017353
 ;;9002226.02101,"998,10135017362 ",.01)
 ;;10135017362
 ;;9002226.02101,"998,10135017362 ",.02)
 ;;10135017362
 ;;9002226.02101,"998,10135017369 ",.01)
 ;;10135017369
 ;;9002226.02101,"998,10135017369 ",.02)
 ;;10135017369
 ;;9002226.02101,"998,10135017401 ",.01)
 ;;10135017401
 ;;9002226.02101,"998,10135017401 ",.02)
 ;;10135017401
 ;;9002226.02101,"998,10135017410 ",.01)
 ;;10135017410
 ;;9002226.02101,"998,10135017410 ",.02)
 ;;10135017410
 ;;9002226.02101,"998,10135024036 ",.01)
 ;;10135024036
 ;;9002226.02101,"998,10135024036 ",.02)
 ;;10135024036
 ;;9002226.02101,"998,10135038715 ",.01)
 ;;10135038715
 ;;9002226.02101,"998,10135038715 ",.02)
 ;;10135038715
 ;;9002226.02101,"998,10135038727 ",.01)
 ;;10135038727
 ;;9002226.02101,"998,10135038727 ",.02)
 ;;10135038727
 ;;9002226.02101,"998,10135038815 ",.01)
 ;;10135038815
 ;;9002226.02101,"998,10135038815 ",.02)
 ;;10135038815
 ;;9002226.02101,"998,10135038827 ",.01)
 ;;10135038827
 ;;9002226.02101,"998,10135038827 ",.02)
 ;;10135038827
 ;;9002226.02101,"998,10244056210 ",.01)
 ;;10244056210
 ;;9002226.02101,"998,10244056210 ",.02)
 ;;10244056210
 ;;9002226.02101,"998,10244056211 ",.01)
 ;;10244056211
 ;;9002226.02101,"998,10244056211 ",.02)
 ;;10244056211
 ;;9002226.02101,"998,10244056261 ",.01)
 ;;10244056261
 ;;9002226.02101,"998,10244056261 ",.02)
 ;;10244056261
 ;;9002226.02101,"998,10244056262 ",.01)
 ;;10244056262
 ;;9002226.02101,"998,10244056262 ",.02)
 ;;10244056262
 ;;9002226.02101,"998,10244056265 ",.01)
 ;;10244056265
 ;;9002226.02101,"998,10244056265 ",.02)
 ;;10244056265
 ;;9002226.02101,"998,10267240401 ",.01)
 ;;10267240401
 ;;9002226.02101,"998,10267240401 ",.02)
 ;;10267240401
 ;;9002226.02101,"998,11383005011 ",.01)
 ;;11383005011
 ;;9002226.02101,"998,11383005011 ",.02)
 ;;11383005011
 ;;9002226.02101,"998,11383005023 ",.01)
 ;;11383005023
 ;;9002226.02101,"998,11383005023 ",.02)
 ;;11383005023
 ;;9002226.02101,"998,11383007225 ",.01)
 ;;11383007225
 ;;9002226.02101,"998,11383007225 ",.02)
 ;;11383007225
 ;;9002226.02101,"998,11383014811 ",.01)
 ;;11383014811
 ;;9002226.02101,"998,11383014811 ",.02)
 ;;11383014811
 ;;9002226.02101,"998,11383014825 ",.01)
 ;;11383014825
 ;;9002226.02101,"998,11383014825 ",.02)
 ;;11383014825
 ;;9002226.02101,"998,11383014851 ",.01)
 ;;11383014851
 ;;9002226.02101,"998,11383014851 ",.02)
 ;;11383014851
 ;;9002226.02101,"998,11383015814 ",.01)
 ;;11383015814
 ;;9002226.02101,"998,11383015814 ",.02)
 ;;11383015814
 ;;9002226.02101,"998,11383015826 ",.01)
 ;;11383015826
 ;;9002226.02101,"998,11383015826 ",.02)
 ;;11383015826
 ;;9002226.02101,"998,11383025236 ",.01)
 ;;11383025236
 ;;9002226.02101,"998,11383025236 ",.02)
 ;;11383025236
 ;;9002226.02101,"998,11530000202 ",.01)
 ;;11530000202
 ;;9002226.02101,"998,11530000202 ",.02)
 ;;11530000202
 ;;9002226.02101,"998,11530000206 ",.01)
 ;;11530000206
 ;;9002226.02101,"998,11530000206 ",.02)
 ;;11530000206
 ;;9002226.02101,"998,11534015511 ",.01)
 ;;11534015511
 ;;9002226.02101,"998,11534015511 ",.02)
 ;;11534015511
 ;;9002226.02101,"998,11673027468 ",.01)
 ;;11673027468
 ;;9002226.02101,"998,11673027468 ",.02)
 ;;11673027468
 ;;9002226.02101,"998,11673027748 ",.01)
 ;;11673027748
 ;;9002226.02101,"998,11673027748 ",.02)
 ;;11673027748
 ;;9002226.02101,"998,11673041687 ",.01)
 ;;11673041687
 ;;9002226.02101,"998,11673041687 ",.02)
 ;;11673041687
 ;;9002226.02101,"998,11673041690 ",.01)
 ;;11673041690
 ;;9002226.02101,"998,11673041690 ",.02)
 ;;11673041690
 ;;9002226.02101,"998,11673046708 ",.01)
 ;;11673046708
 ;;9002226.02101,"998,11673046708 ",.02)
 ;;11673046708
 ;;9002226.02101,"998,11673046768 ",.01)
 ;;11673046768
 ;;9002226.02101,"998,11673046768 ",.02)
 ;;11673046768
 ;;9002226.02101,"998,11673053576 ",.01)
 ;;11673053576
 ;;9002226.02101,"998,11673053576 ",.02)
 ;;11673053576
 ;;9002226.02101,"998,11673056317 ",.01)
 ;;11673056317
 ;;9002226.02101,"998,11673056317 ",.02)
 ;;11673056317
 ;;9002226.02101,"998,11673056332 ",.01)
 ;;11673056332
 ;;9002226.02101,"998,11673056332 ",.02)
 ;;11673056332
 ;;9002226.02101,"998,11822316901 ",.01)
 ;;11822316901
 ;;9002226.02101,"998,11822316901 ",.02)
 ;;11822316901
 ;;9002226.02101,"998,11845070601 ",.01)
 ;;11845070601
 ;;9002226.02101,"998,11845070601 ",.02)
 ;;11845070601
 ;;9002226.02101,"998,11845070604 ",.01)
 ;;11845070604
 ;;9002226.02101,"998,11845070604 ",.02)
 ;;11845070604
 ;;9002226.02101,"998,11845070629 ",.01)
 ;;11845070629
 ;;9002226.02101,"998,11845070629 ",.02)
 ;;11845070629
 ;;9002226.02101,"998,11845084701 ",.01)
 ;;11845084701
 ;;9002226.02101,"998,11845084701 ",.02)
 ;;11845084701
 ;;9002226.02101,"998,11845089004 ",.01)
 ;;11845089004
 ;;9002226.02101,"998,11845089004 ",.02)
 ;;11845089004
 ;;9002226.02101,"998,11845089901 ",.01)
 ;;11845089901
 ;;9002226.02101,"998,11845089901 ",.02)
 ;;11845089901
 ;;9002226.02101,"998,11845093001 ",.01)
 ;;11845093001
 ;;9002226.02101,"998,11845093001 ",.02)
 ;;11845093001
 ;;9002226.02101,"998,11845094236 ",.01)
 ;;11845094236
 ;;9002226.02101,"998,11845094236 ",.02)
 ;;11845094236
 ;;9002226.02101,"998,11845097502 ",.01)
 ;;11845097502
 ;;9002226.02101,"998,11845097502 ",.02)
 ;;11845097502
 ;;9002226.02101,"998,11845099316 ",.01)
 ;;11845099316
 ;;9002226.02101,"998,11845099316 ",.02)
 ;;11845099316
 ;;9002226.02101,"998,11917004160 ",.01)
 ;;11917004160
 ;;9002226.02101,"998,11917004160 ",.02)
 ;;11917004160
 ;;9002226.02101,"998,11917004161 ",.01)
 ;;11917004161
 ;;9002226.02101,"998,11917004161 ",.02)
 ;;11917004161
 ;;9002226.02101,"998,12843006132 ",.01)
 ;;12843006132
 ;;9002226.02101,"998,12843006132 ",.02)
 ;;12843006132
 ;;9002226.02101,"998,12843010514 ",.01)
 ;;12843010514
 ;;9002226.02101,"998,12843010514 ",.02)
 ;;12843010514
 ;;9002226.02101,"998,12843053636 ",.01)
 ;;12843053636
 ;;9002226.02101,"998,12843053636 ",.02)
 ;;12843053636
 ;;9002226.02101,"998,12843053637 ",.01)
 ;;12843053637
 ;;9002226.02101,"998,12843053637 ",.02)
 ;;12843053637
 ;;9002226.02101,"998,12843053640 ",.01)
 ;;12843053640
 ;;9002226.02101,"998,12843053640 ",.02)
 ;;12843053640
 ;;9002226.02101,"998,15127001105 ",.01)
 ;;15127001105
 ;;9002226.02101,"998,15127001105 ",.02)
 ;;15127001105
 ;;9002226.02101,"998,15127012020 ",.01)
 ;;15127012020
 ;;9002226.02101,"998,15127012020 ",.02)
 ;;15127012020
 ;;9002226.02101,"998,15127022894 ",.01)
 ;;15127022894
 ;;9002226.02101,"998,15127022894 ",.02)
 ;;15127022894
 ;;9002226.02101,"998,15127024136 ",.01)
 ;;15127024136
 ;;9002226.02101,"998,15127024136 ",.02)
 ;;15127024136
 ;;9002226.02101,"998,15127073801 ",.01)
 ;;15127073801
 ;;9002226.02101,"998,15127073801 ",.02)
 ;;15127073801
 ;;9002226.02101,"998,15127073805 ",.01)
 ;;15127073805
 ;;9002226.02101,"998,15127073805 ",.02)
 ;;15127073805
 ;;9002226.02101,"998,15127073809 ",.01)
 ;;15127073809
 ;;9002226.02101,"998,15127073809 ",.02)
 ;;15127073809
 ;;9002226.02101,"998,15127073810 ",.01)
 ;;15127073810
 ;;9002226.02101,"998,15127073810 ",.02)
 ;;15127073810
 ;;9002226.02101,"998,15127073821 ",.01)
 ;;15127073821
 ;;9002226.02101,"998,15127073821 ",.02)
 ;;15127073821
 ;;9002226.02101,"998,15127076008 ",.01)
 ;;15127076008
 ;;9002226.02101,"998,15127076008 ",.02)
 ;;15127076008
 ;;9002226.02101,"998,15127087436 ",.01)
 ;;15127087436
 ;;9002226.02101,"998,15127087436 ",.02)
 ;;15127087436
 ;;9002226.02101,"998,17714000936 ",.01)
 ;;17714000936
 ;;9002226.02101,"998,17714000936 ",.02)
 ;;17714000936
 ;;9002226.02101,"998,17714001001 ",.01)
 ;;17714001001
 ;;9002226.02101,"998,17714001001 ",.02)
 ;;17714001001
 ;;9002226.02101,"998,17714001010 ",.01)
 ;;17714001010
 ;;9002226.02101,"998,17714001010 ",.02)
 ;;17714001010
 ;;9002226.02101,"998,17714001101 ",.01)
 ;;17714001101
 ;;9002226.02101,"998,17714001101 ",.02)
 ;;17714001101
 ;;9002226.02101,"998,17714001110 ",.01)
 ;;17714001110
 ;;9002226.02101,"998,17714001110 ",.02)
 ;;17714001110
 ;;9002226.02101,"998,17856044420 ",.01)
 ;;17856044420
 ;;9002226.02101,"998,17856044420 ",.02)
 ;;17856044420
 ;;9002226.02101,"998,19458500101 ",.01)
 ;;19458500101
 ;;9002226.02101,"998,19458500101 ",.02)
 ;;19458500101
 ;;9002226.02101,"998,19458500102 ",.01)
 ;;19458500102
 ;;9002226.02101,"998,19458500102 ",.02)
 ;;19458500102
 ;;9002226.02101,"998,19458500201 ",.01)
 ;;19458500201
 ;;9002226.02101,"998,19458500201 ",.02)
 ;;19458500201
 ;;9002226.02101,"998,19458500301 ",.01)
 ;;19458500301
 ;;9002226.02101,"998,19458500301 ",.02)
 ;;19458500301
 ;;9002226.02101,"998,19458500801 ",.01)
 ;;19458500801
 ;;9002226.02101,"998,19458500801 ",.02)
 ;;19458500801
 ;;9002226.02101,"998,21695053336 ",.01)
 ;;21695053336
 ;;9002226.02101,"998,21695053336 ",.02)
 ;;21695053336
 ;;9002226.02101,"998,21695066600 ",.01)
 ;;21695066600
 ;;9002226.02101,"998,21695066600 ",.02)
 ;;21695066600
 ;;9002226.02101,"998,21695066630 ",.01)
 ;;21695066630
 ;;9002226.02101,"998,21695066630 ",.02)
 ;;21695066630
 ;;9002226.02101,"998,21695066690 ",.01)
 ;;21695066690
 ;;9002226.02101,"998,21695066690 ",.02)
 ;;21695066690
 ;;9002226.02101,"998,21695068400 ",.01)
 ;;21695068400
 ;;9002226.02101,"998,21695068400 ",.02)
 ;;21695068400
 ;;9002226.02101,"998,21695068430 ",.01)
 ;;21695068430
 ;;9002226.02101,"998,21695068430 ",.02)
 ;;21695068430
 ;;9002226.02101,"998,21695068472 ",.01)
 ;;21695068472
 ;;9002226.02101,"998,21695068472 ",.02)
 ;;21695068472
 ;;9002226.02101,"998,21695068490 ",.01)
 ;;21695068490
 ;;9002226.02101,"998,21695068490 ",.02)
 ;;21695068490
 ;;9002226.02101,"998,23490660701 ",.01)
 ;;23490660701
 ;;9002226.02101,"998,23490660701 ",.02)
 ;;23490660701
 ;;9002226.02101,"998,23490660702 ",.01)
 ;;23490660702