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

BGPM3ABI.m

Go to the documentation of this file.
BGPM3ABI ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"775,10135015005 ",.01)
 ;;10135015005
 ;;9002226.02101,"775,10135015005 ",.02)
 ;;10135015005
 ;;9002226.02101,"775,10135015010 ",.01)
 ;;10135015010
 ;;9002226.02101,"775,10135015010 ",.02)
 ;;10135015010
 ;;9002226.02101,"775,10135015013 ",.01)
 ;;10135015013
 ;;9002226.02101,"775,10135015013 ",.02)
 ;;10135015013
 ;;9002226.02101,"775,10135015020 ",.01)
 ;;10135015020
 ;;9002226.02101,"775,10135015020 ",.02)
 ;;10135015020
 ;;9002226.02101,"775,10135015024 ",.01)
 ;;10135015024
 ;;9002226.02101,"775,10135015024 ",.02)
 ;;10135015024
 ;;9002226.02101,"775,10135015030 ",.01)
 ;;10135015030
 ;;9002226.02101,"775,10135015030 ",.02)
 ;;10135015030
 ;;9002226.02101,"775,10135015057 ",.01)
 ;;10135015057
 ;;9002226.02101,"775,10135015057 ",.02)
 ;;10135015057
 ;;9002226.02101,"775,10135015069 ",.01)
 ;;10135015069
 ;;9002226.02101,"775,10135015069 ",.02)
 ;;10135015069
 ;;9002226.02101,"775,10135017201 ",.01)
 ;;10135017201
 ;;9002226.02101,"775,10135017201 ",.02)
 ;;10135017201
 ;;9002226.02101,"775,10135017301 ",.01)
 ;;10135017301
 ;;9002226.02101,"775,10135017301 ",.02)
 ;;10135017301
 ;;9002226.02101,"775,10135017303 ",.01)
 ;;10135017303
 ;;9002226.02101,"775,10135017303 ",.02)
 ;;10135017303
 ;;9002226.02101,"775,10135017305 ",.01)
 ;;10135017305
 ;;9002226.02101,"775,10135017305 ",.02)
 ;;10135017305
 ;;9002226.02101,"775,10135017310 ",.01)
 ;;10135017310
 ;;9002226.02101,"775,10135017310 ",.02)
 ;;10135017310
 ;;9002226.02101,"775,10135017336 ",.01)
 ;;10135017336
 ;;9002226.02101,"775,10135017336 ",.02)
 ;;10135017336
 ;;9002226.02101,"775,10135017353 ",.01)
 ;;10135017353
 ;;9002226.02101,"775,10135017353 ",.02)
 ;;10135017353
 ;;9002226.02101,"775,10135017362 ",.01)
 ;;10135017362
 ;;9002226.02101,"775,10135017362 ",.02)
 ;;10135017362
 ;;9002226.02101,"775,10135017369 ",.01)
 ;;10135017369
 ;;9002226.02101,"775,10135017369 ",.02)
 ;;10135017369
 ;;9002226.02101,"775,10135017401 ",.01)
 ;;10135017401
 ;;9002226.02101,"775,10135017401 ",.02)
 ;;10135017401
 ;;9002226.02101,"775,10135017410 ",.01)
 ;;10135017410
 ;;9002226.02101,"775,10135017410 ",.02)
 ;;10135017410
 ;;9002226.02101,"775,10135024036 ",.01)
 ;;10135024036
 ;;9002226.02101,"775,10135024036 ",.02)
 ;;10135024036
 ;;9002226.02101,"775,10244051063 ",.01)
 ;;10244051063
 ;;9002226.02101,"775,10244051063 ",.02)
 ;;10244051063
 ;;9002226.02101,"775,10244051163 ",.01)
 ;;10244051163
 ;;9002226.02101,"775,10244051163 ",.02)
 ;;10244051163
 ;;9002226.02101,"775,10244056210 ",.01)
 ;;10244056210
 ;;9002226.02101,"775,10244056210 ",.02)
 ;;10244056210
 ;;9002226.02101,"775,10244056211 ",.01)
 ;;10244056211
 ;;9002226.02101,"775,10244056211 ",.02)
 ;;10244056211
 ;;9002226.02101,"775,10244056261 ",.01)
 ;;10244056261
 ;;9002226.02101,"775,10244056261 ",.02)
 ;;10244056261
 ;;9002226.02101,"775,10244056262 ",.01)
 ;;10244056262
 ;;9002226.02101,"775,10244056262 ",.02)
 ;;10244056262
 ;;9002226.02101,"775,10244056263 ",.01)
 ;;10244056263
 ;;9002226.02101,"775,10244056263 ",.02)
 ;;10244056263
 ;;9002226.02101,"775,10244056265 ",.01)
 ;;10244056265
 ;;9002226.02101,"775,10244056265 ",.02)
 ;;10244056265
 ;;9002226.02101,"775,10244056663 ",.01)
 ;;10244056663
 ;;9002226.02101,"775,10244056663 ",.02)
 ;;10244056663
 ;;9002226.02101,"775,10244056665 ",.01)
 ;;10244056665
 ;;9002226.02101,"775,10244056665 ",.02)
 ;;10244056665
 ;;9002226.02101,"775,10244057163 ",.01)
 ;;10244057163
 ;;9002226.02101,"775,10244057163 ",.02)
 ;;10244057163
 ;;9002226.02101,"775,10244057263 ",.01)
 ;;10244057263
 ;;9002226.02101,"775,10244057263 ",.02)
 ;;10244057263
 ;;9002226.02101,"775,10244057663 ",.01)
 ;;10244057663
 ;;9002226.02101,"775,10244057663 ",.02)
 ;;10244057663
 ;;9002226.02101,"775,10244057665 ",.01)
 ;;10244057665
 ;;9002226.02101,"775,10244057665 ",.02)
 ;;10244057665
 ;;9002226.02101,"775,10244058263 ",.01)
 ;;10244058263
 ;;9002226.02101,"775,10244058263 ",.02)
 ;;10244058263
 ;;9002226.02101,"775,10244059768 ",.01)
 ;;10244059768
 ;;9002226.02101,"775,10244059768 ",.02)
 ;;10244059768
 ;;9002226.02101,"775,10544011830 ",.01)
 ;;10544011830
 ;;9002226.02101,"775,10544011830 ",.02)
 ;;10544011830
 ;;9002226.02101,"775,10647017202 ",.01)
 ;;10647017202
 ;;9002226.02101,"775,10647017202 ",.02)
 ;;10647017202
 ;;9002226.02101,"775,10719004542 ",.01)
 ;;10719004542
 ;;9002226.02101,"775,10719004542 ",.02)
 ;;10719004542
 ;;9002226.02101,"775,10719004642 ",.01)
 ;;10719004642
 ;;9002226.02101,"775,10719004642 ",.02)
 ;;10719004642
 ;;9002226.02101,"775,10719004731 ",.01)
 ;;10719004731
 ;;9002226.02101,"775,10719004731 ",.02)
 ;;10719004731
 ;;9002226.02101,"775,10719004742 ",.01)
 ;;10719004742
 ;;9002226.02101,"775,10719004742 ",.02)
 ;;10719004742
 ;;9002226.02101,"775,10916001501 ",.01)
 ;;10916001501
 ;;9002226.02101,"775,10916001501 ",.02)
 ;;10916001501
 ;;9002226.02101,"775,10916021301 ",.01)
 ;;10916021301
 ;;9002226.02101,"775,10916021301 ",.02)
 ;;10916021301
 ;;9002226.02101,"775,10916021436 ",.01)
 ;;10916021436
 ;;9002226.02101,"775,10916021436 ",.02)
 ;;10916021436
 ;;9002226.02101,"775,10974000204 ",.01)
 ;;10974000204
 ;;9002226.02101,"775,10974000204 ",.02)
 ;;10974000204
 ;;9002226.02101,"775,10974000205 ",.01)
 ;;10974000205
 ;;9002226.02101,"775,10974000205 ",.02)
 ;;10974000205
 ;;9002226.02101,"775,10974000405 ",.01)
 ;;10974000405
 ;;9002226.02101,"775,10974000405 ",.02)
 ;;10974000405
 ;;9002226.02101,"775,10974000805 ",.01)
 ;;10974000805
 ;;9002226.02101,"775,10974000805 ",.02)
 ;;10974000805
 ;;9002226.02101,"775,10974001010 ",.01)
 ;;10974001010
 ;;9002226.02101,"775,10974001010 ",.02)
 ;;10974001010
 ;;9002226.02101,"775,10974030605 ",.01)
 ;;10974030605
 ;;9002226.02101,"775,10974030605 ",.02)
 ;;10974030605
 ;;9002226.02101,"775,11383005023 ",.01)
 ;;11383005023
 ;;9002226.02101,"775,11383005023 ",.02)
 ;;11383005023
 ;;9002226.02101,"775,11383007225 ",.01)
 ;;11383007225
 ;;9002226.02101,"775,11383007225 ",.02)
 ;;11383007225
 ;;9002226.02101,"775,11383014825 ",.01)
 ;;11383014825
 ;;9002226.02101,"775,11383014825 ",.02)
 ;;11383014825
 ;;9002226.02101,"775,11722092199 ",.01)
 ;;11722092199
 ;;9002226.02101,"775,11722092199 ",.02)
 ;;11722092199
 ;;9002226.02101,"775,11722092299 ",.01)
 ;;11722092299
 ;;9002226.02101,"775,11722092299 ",.02)
 ;;11722092299
 ;;9002226.02101,"775,11722092399 ",.01)
 ;;11722092399
 ;;9002226.02101,"775,11722092399 ",.02)
 ;;11722092399
 ;;9002226.02101,"775,11722092499 ",.01)
 ;;11722092499
 ;;9002226.02101,"775,11722092499 ",.02)
 ;;11722092499
 ;;9002226.02101,"775,11722092599 ",.01)
 ;;11722092599
 ;;9002226.02101,"775,11722092599 ",.02)
 ;;11722092599
 ;;9002226.02101,"775,11722092699 ",.01)
 ;;11722092699
 ;;9002226.02101,"775,11722092699 ",.02)
 ;;11722092699
 ;;9002226.02101,"775,11722092799 ",.01)
 ;;11722092799
 ;;9002226.02101,"775,11722092799 ",.02)
 ;;11722092799
 ;;9002226.02101,"775,11722092999 ",.01)
 ;;11722092999
 ;;9002226.02101,"775,11722092999 ",.02)
 ;;11722092999
 ;;9002226.02101,"775,11743021002 ",.01)
 ;;11743021002
 ;;9002226.02101,"775,11743021002 ",.02)
 ;;11743021002
 ;;9002226.02101,"775,11819000990 ",.01)
 ;;11819000990
 ;;9002226.02101,"775,11819000990 ",.02)
 ;;11819000990
 ;;9002226.02101,"775,11822316901 ",.01)
 ;;11822316901
 ;;9002226.02101,"775,11822316901 ",.02)
 ;;11822316901
 ;;9002226.02101,"775,11845084701 ",.01)
 ;;11845084701
 ;;9002226.02101,"775,11845084701 ",.02)
 ;;11845084701
 ;;9002226.02101,"775,11845089004 ",.01)
 ;;11845089004
 ;;9002226.02101,"775,11845089004 ",.02)
 ;;11845089004
 ;;9002226.02101,"775,11845093001 ",.01)
 ;;11845093001
 ;;9002226.02101,"775,11845093001 ",.02)
 ;;11845093001
 ;;9002226.02101,"775,11845094236 ",.01)
 ;;11845094236
 ;;9002226.02101,"775,11845094236 ",.02)
 ;;11845094236
 ;;9002226.02101,"775,11845097502 ",.01)
 ;;11845097502
 ;;9002226.02101,"775,11845097502 ",.02)
 ;;11845097502
 ;;9002226.02101,"775,11917004160 ",.01)
 ;;11917004160
 ;;9002226.02101,"775,11917004160 ",.02)
 ;;11917004160
 ;;9002226.02101,"775,11917004161 ",.01)
 ;;11917004161
 ;;9002226.02101,"775,11917004161 ",.02)
 ;;11917004161
 ;;9002226.02101,"775,12333902801 ",.01)
 ;;12333902801
 ;;9002226.02101,"775,12333902801 ",.02)
 ;;12333902801
 ;;9002226.02101,"775,12333902802 ",.01)
 ;;12333902802
 ;;9002226.02101,"775,12333902802 ",.02)
 ;;12333902802
 ;;9002226.02101,"775,12333902803 ",.01)
 ;;12333902803
 ;;9002226.02101,"775,12333902803 ",.02)
 ;;12333902803
 ;;9002226.02101,"775,12333902804 ",.01)
 ;;12333902804
 ;;9002226.02101,"775,12333902804 ",.02)
 ;;12333902804
 ;;9002226.02101,"775,12333904804 ",.01)
 ;;12333904804
 ;;9002226.02101,"775,12333904804 ",.02)
 ;;12333904804
 ;;9002226.02101,"775,12333904901 ",.01)
 ;;12333904901
 ;;9002226.02101,"775,12333904901 ",.02)
 ;;12333904901
 ;;9002226.02101,"775,12333904902 ",.01)
 ;;12333904902
 ;;9002226.02101,"775,12333904902 ",.02)
 ;;12333904902
 ;;9002226.02101,"775,12333904903 ",.01)
 ;;12333904903
 ;;9002226.02101,"775,12333904903 ",.02)
 ;;12333904903
 ;;9002226.02101,"775,12333904904 ",.01)
 ;;12333904904
 ;;9002226.02101,"775,12333904904 ",.02)
 ;;12333904904
 ;;9002226.02101,"775,12333905001 ",.01)
 ;;12333905001
 ;;9002226.02101,"775,12333905001 ",.02)
 ;;12333905001
 ;;9002226.02101,"775,12333905002 ",.01)
 ;;12333905002
 ;;9002226.02101,"775,12333905002 ",.02)
 ;;12333905002
 ;;9002226.02101,"775,12333944601 ",.01)
 ;;12333944601
 ;;9002226.02101,"775,12333944601 ",.02)
 ;;12333944601
 ;;9002226.02101,"775,12333950001 ",.01)
 ;;12333950001
 ;;9002226.02101,"775,12333950001 ",.02)
 ;;12333950001
 ;;9002226.02101,"775,12634010401 ",.01)
 ;;12634010401
 ;;9002226.02101,"775,12634010401 ",.02)
 ;;12634010401
 ;;9002226.02101,"775,12634010410 ",.01)
 ;;12634010410
 ;;9002226.02101,"775,12634010410 ",.02)
 ;;12634010410
 ;;9002226.02101,"775,12634010510 ",.01)
 ;;12634010510
 ;;9002226.02101,"775,12634010510 ",.02)
 ;;12634010510
 ;;9002226.02101,"775,12634012001 ",.01)
 ;;12634012001
 ;;9002226.02101,"775,12634012001 ",.02)
 ;;12634012001
 ;;9002226.02101,"775,12671002403 ",.01)
 ;;12671002403
 ;;9002226.02101,"775,12671002403 ",.02)
 ;;12671002403
 ;;9002226.02101,"775,12671002407 ",.01)
 ;;12671002407
 ;;9002226.02101,"775,12671002407 ",.02)
 ;;12671002407
 ;;9002226.02101,"775,12671002503 ",.01)
 ;;12671002503
 ;;9002226.02101,"775,12671002503 ",.02)
 ;;12671002503
 ;;9002226.02101,"775,12671002601 ",.01)
 ;;12671002601
 ;;9002226.02101,"775,12671002601 ",.02)
 ;;12671002601
 ;;9002226.02101,"775,12671002603 ",.01)
 ;;12671002603
 ;;9002226.02101,"775,12671002603 ",.02)
 ;;12671002603
 ;;9002226.02101,"775,12671006303 ",.01)
 ;;12671006303
 ;;9002226.02101,"775,12671006303 ",.02)
 ;;12671006303
 ;;9002226.02101,"775,12671006307 ",.01)
 ;;12671006307
 ;;9002226.02101,"775,12671006307 ",.02)
 ;;12671006307
 ;;9002226.02101,"775,12671006403 ",.01)
 ;;12671006403
 ;;9002226.02101,"775,12671006403 ",.02)
 ;;12671006403
 ;;9002226.02101,"775,12671006501 ",.01)
 ;;12671006501
 ;;9002226.02101,"775,12671006501 ",.02)
 ;;12671006501
 ;;9002226.02101,"775,12671006515 ",.01)
 ;;12671006515
 ;;9002226.02101,"775,12671006515 ",.02)
 ;;12671006515
 ;;9002226.02101,"775,12843010514 ",.01)
 ;;12843010514
 ;;9002226.02101,"775,12843010514 ",.02)
 ;;12843010514
 ;;9002226.02101,"775,12843016158 ",.01)
 ;;12843016158
 ;;9002226.02101,"775,12843016158 ",.02)
 ;;12843016158
 ;;9002226.02101,"775,12843019176 ",.01)
 ;;12843019176
 ;;9002226.02101,"775,12843019176 ",.02)
 ;;12843019176