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

BGPM3AAI.m

Go to the documentation of this file.
BGPM3AAI ;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,"774,00894558001 ",.02)
 ;;00894558001
 ;;9002226.02101,"774,00894558002 ",.01)
 ;;00894558002
 ;;9002226.02101,"774,00894558002 ",.02)
 ;;00894558002
 ;;9002226.02101,"774,00904256060 ",.01)
 ;;00904256060
 ;;9002226.02101,"774,00904256060 ",.02)
 ;;00904256060
 ;;9002226.02101,"774,00904256160 ",.01)
 ;;00904256160
 ;;9002226.02101,"774,00904256160 ",.02)
 ;;00904256160
 ;;9002226.02101,"774,00904256260 ",.01)
 ;;00904256260
 ;;9002226.02101,"774,00904256260 ",.02)
 ;;00904256260
 ;;9002226.02101,"774,00904256270 ",.01)
 ;;00904256270
 ;;9002226.02101,"774,00904256270 ",.02)
 ;;00904256270
 ;;9002226.02101,"774,00904256360 ",.01)
 ;;00904256360
 ;;9002226.02101,"774,00904256360 ",.02)
 ;;00904256360
 ;;9002226.02101,"774,00904256460 ",.01)
 ;;00904256460
 ;;9002226.02101,"774,00904256460 ",.02)
 ;;00904256460
 ;;9002226.02101,"774,08290037003 ",.01)
 ;;08290037003
 ;;9002226.02101,"774,08290037003 ",.02)
 ;;08290037003
 ;;9002226.02101,"774,08290038003 ",.01)
 ;;08290038003
 ;;9002226.02101,"774,08290038003 ",.02)
 ;;08290038003
 ;;9002226.02101,"774,08290038005 ",.01)
 ;;08290038005
 ;;9002226.02101,"774,08290038005 ",.02)
 ;;08290038005
 ;;9002226.02101,"774,08290039003 ",.01)
 ;;08290039003
 ;;9002226.02101,"774,08290039003 ",.02)
 ;;08290039003
 ;;9002226.02101,"774,08290039005 ",.01)
 ;;08290039005
 ;;9002226.02101,"774,08290039005 ",.02)
 ;;08290039005
 ;;9002226.02101,"774,08290039105 ",.01)
 ;;08290039105
 ;;9002226.02101,"774,08290039105 ",.02)
 ;;08290039105
 ;;9002226.02101,"774,10009008401 ",.01)
 ;;10009008401
 ;;9002226.02101,"774,10009008401 ",.02)
 ;;10009008401
 ;;9002226.02101,"774,10544011830 ",.01)
 ;;10544011830
 ;;9002226.02101,"774,10544011830 ",.02)
 ;;10544011830
 ;;9002226.02101,"774,10647017202 ",.01)
 ;;10647017202
 ;;9002226.02101,"774,10647017202 ",.02)
 ;;10647017202
 ;;9002226.02101,"774,10719004542 ",.01)
 ;;10719004542
 ;;9002226.02101,"774,10719004542 ",.02)
 ;;10719004542
 ;;9002226.02101,"774,10719004642 ",.01)
 ;;10719004642
 ;;9002226.02101,"774,10719004642 ",.02)
 ;;10719004642
 ;;9002226.02101,"774,10719004731 ",.01)
 ;;10719004731
 ;;9002226.02101,"774,10719004731 ",.02)
 ;;10719004731
 ;;9002226.02101,"774,10719004742 ",.01)
 ;;10719004742
 ;;9002226.02101,"774,10719004742 ",.02)
 ;;10719004742
 ;;9002226.02101,"774,10974000204 ",.01)
 ;;10974000204
 ;;9002226.02101,"774,10974000204 ",.02)
 ;;10974000204
 ;;9002226.02101,"774,10974000205 ",.01)
 ;;10974000205
 ;;9002226.02101,"774,10974000205 ",.02)
 ;;10974000205
 ;;9002226.02101,"774,10974000405 ",.01)
 ;;10974000405
 ;;9002226.02101,"774,10974000405 ",.02)
 ;;10974000405
 ;;9002226.02101,"774,10974000805 ",.01)
 ;;10974000805
 ;;9002226.02101,"774,10974000805 ",.02)
 ;;10974000805
 ;;9002226.02101,"774,10974001010 ",.01)
 ;;10974001010
 ;;9002226.02101,"774,10974001010 ",.02)
 ;;10974001010
 ;;9002226.02101,"774,10974030605 ",.01)
 ;;10974030605
 ;;9002226.02101,"774,10974030605 ",.02)
 ;;10974030605
 ;;9002226.02101,"774,11722092199 ",.01)
 ;;11722092199
 ;;9002226.02101,"774,11722092199 ",.02)
 ;;11722092199
 ;;9002226.02101,"774,11722092299 ",.01)
 ;;11722092299
 ;;9002226.02101,"774,11722092299 ",.02)
 ;;11722092299
 ;;9002226.02101,"774,11722092399 ",.01)
 ;;11722092399
 ;;9002226.02101,"774,11722092399 ",.02)
 ;;11722092399
 ;;9002226.02101,"774,11722092499 ",.01)
 ;;11722092499
 ;;9002226.02101,"774,11722092499 ",.02)
 ;;11722092499
 ;;9002226.02101,"774,11722092599 ",.01)
 ;;11722092599
 ;;9002226.02101,"774,11722092599 ",.02)
 ;;11722092599
 ;;9002226.02101,"774,11722092699 ",.01)
 ;;11722092699
 ;;9002226.02101,"774,11722092699 ",.02)
 ;;11722092699
 ;;9002226.02101,"774,11722092799 ",.01)
 ;;11722092799
 ;;9002226.02101,"774,11722092799 ",.02)
 ;;11722092799
 ;;9002226.02101,"774,11722092999 ",.01)
 ;;11722092999
 ;;9002226.02101,"774,11722092999 ",.02)
 ;;11722092999
 ;;9002226.02101,"774,11743021002 ",.01)
 ;;11743021002
 ;;9002226.02101,"774,11743021002 ",.02)
 ;;11743021002
 ;;9002226.02101,"774,12671002403 ",.01)
 ;;12671002403
 ;;9002226.02101,"774,12671002403 ",.02)
 ;;12671002403
 ;;9002226.02101,"774,12671002407 ",.01)
 ;;12671002407
 ;;9002226.02101,"774,12671002407 ",.02)
 ;;12671002407
 ;;9002226.02101,"774,12671002503 ",.01)
 ;;12671002503
 ;;9002226.02101,"774,12671002503 ",.02)
 ;;12671002503
 ;;9002226.02101,"774,12671002601 ",.01)
 ;;12671002601
 ;;9002226.02101,"774,12671002601 ",.02)
 ;;12671002601
 ;;9002226.02101,"774,12671002603 ",.01)
 ;;12671002603
 ;;9002226.02101,"774,12671002603 ",.02)
 ;;12671002603
 ;;9002226.02101,"774,12671006303 ",.01)
 ;;12671006303
 ;;9002226.02101,"774,12671006303 ",.02)
 ;;12671006303
 ;;9002226.02101,"774,12671006307 ",.01)
 ;;12671006307
 ;;9002226.02101,"774,12671006307 ",.02)
 ;;12671006307
 ;;9002226.02101,"774,12671006403 ",.01)
 ;;12671006403
 ;;9002226.02101,"774,12671006403 ",.02)
 ;;12671006403
 ;;9002226.02101,"774,12671006501 ",.01)
 ;;12671006501
 ;;9002226.02101,"774,12671006501 ",.02)
 ;;12671006501
 ;;9002226.02101,"774,12671006515 ",.01)
 ;;12671006515
 ;;9002226.02101,"774,12671006515 ",.02)
 ;;12671006515
 ;;9002226.02101,"774,13411033903 ",.01)
 ;;13411033903
 ;;9002226.02101,"774,13411033903 ",.02)
 ;;13411033903
 ;;9002226.02101,"774,15330010001 ",.01)
 ;;15330010001
 ;;9002226.02101,"774,15330010001 ",.02)
 ;;15330010001
 ;;9002226.02101,"774,15330010010 ",.01)
 ;;15330010010
 ;;9002226.02101,"774,15330010010 ",.02)
 ;;15330010010
 ;;9002226.02101,"774,15330010101 ",.01)
 ;;15330010101
 ;;9002226.02101,"774,15330010101 ",.02)
 ;;15330010101
 ;;9002226.02101,"774,15330010110 ",.01)
 ;;15330010110
 ;;9002226.02101,"774,15330010110 ",.02)
 ;;15330010110
 ;;9002226.02101,"774,15330010201 ",.01)
 ;;15330010201
 ;;9002226.02101,"774,15330010201 ",.02)
 ;;15330010201
 ;;9002226.02101,"774,15330010210 ",.01)
 ;;15330010210
 ;;9002226.02101,"774,15330010210 ",.02)
 ;;15330010210
 ;;9002226.02101,"774,15330010601 ",.01)
 ;;15330010601
 ;;9002226.02101,"774,15330010601 ",.02)
 ;;15330010601
 ;;9002226.02101,"774,15330010701 ",.01)
 ;;15330010701
 ;;9002226.02101,"774,15330010701 ",.02)
 ;;15330010701
 ;;9002226.02101,"774,15330010801 ",.01)
 ;;15330010801
 ;;9002226.02101,"774,15330010801 ",.02)
 ;;15330010801
 ;;9002226.02101,"774,15330026601 ",.01)
 ;;15330026601
 ;;9002226.02101,"774,15330026601 ",.02)
 ;;15330026601
 ;;9002226.02101,"774,15330026701 ",.01)
 ;;15330026701
 ;;9002226.02101,"774,15330026701 ",.02)
 ;;15330026701
 ;;9002226.02101,"774,15330026801 ",.01)
 ;;15330026801
 ;;9002226.02101,"774,15330026801 ",.02)
 ;;15330026801
 ;;9002226.02101,"774,15330026810 ",.01)
 ;;15330026810
 ;;9002226.02101,"774,15330026810 ",.02)
 ;;15330026810
 ;;9002226.02101,"774,17856402902 ",.01)
 ;;17856402902
 ;;9002226.02101,"774,17856402902 ",.02)
 ;;17856402902
 ;;9002226.02101,"774,19458044301 ",.01)
 ;;19458044301
 ;;9002226.02101,"774,19458044301 ",.02)
 ;;19458044301
 ;;9002226.02101,"774,19458047101 ",.01)
 ;;19458047101
 ;;9002226.02101,"774,19458047101 ",.02)
 ;;19458047101
 ;;9002226.02101,"774,19458059801 ",.01)
 ;;19458059801
 ;;9002226.02101,"774,19458059801 ",.02)
 ;;19458059801
 ;;9002226.02101,"774,21695067330 ",.01)
 ;;21695067330
 ;;9002226.02101,"774,21695067330 ",.02)
 ;;21695067330
 ;;9002226.02101,"774,21695067730 ",.01)
 ;;21695067730
 ;;9002226.02101,"774,21695067730 ",.02)
 ;;21695067730
 ;;9002226.02101,"774,23490083305 ",.01)
 ;;23490083305
 ;;9002226.02101,"774,23490083305 ",.02)
 ;;23490083305
 ;;9002226.02101,"774,23490141903 ",.01)
 ;;23490141903
 ;;9002226.02101,"774,23490141903 ",.02)
 ;;23490141903
 ;;9002226.02101,"774,23490141909 ",.01)
 ;;23490141909
 ;;9002226.02101,"774,23490141909 ",.02)
 ;;23490141909
 ;;9002226.02101,"774,23490142003 ",.01)
 ;;23490142003
 ;;9002226.02101,"774,23490142003 ",.02)
 ;;23490142003
 ;;9002226.02101,"774,23490142009 ",.01)
 ;;23490142009
 ;;9002226.02101,"774,23490142009 ",.02)
 ;;23490142009
 ;;9002226.02101,"774,23490142203 ",.01)
 ;;23490142203
 ;;9002226.02101,"774,23490142203 ",.02)
 ;;23490142203
 ;;9002226.02101,"774,23490142206 ",.01)
 ;;23490142206
 ;;9002226.02101,"774,23490142206 ",.02)
 ;;23490142206
 ;;9002226.02101,"774,23490142209 ",.01)
 ;;23490142209
 ;;9002226.02101,"774,23490142209 ",.02)
 ;;23490142209
 ;;9002226.02101,"774,23490647801 ",.01)
 ;;23490647801
 ;;9002226.02101,"774,23490647801 ",.02)
 ;;23490647801
 ;;9002226.02101,"774,23490647802 ",.01)
 ;;23490647802
 ;;9002226.02101,"774,23490647802 ",.02)
 ;;23490647802
 ;;9002226.02101,"774,23490647803 ",.01)
 ;;23490647803
 ;;9002226.02101,"774,23490647803 ",.02)
 ;;23490647803
 ;;9002226.02101,"774,23490648001 ",.01)
 ;;23490648001
 ;;9002226.02101,"774,23490648001 ",.02)
 ;;23490648001
 ;;9002226.02101,"774,23490648002 ",.01)
 ;;23490648002
 ;;9002226.02101,"774,23490648002 ",.02)
 ;;23490648002
 ;;9002226.02101,"774,23490648003 ",.01)
 ;;23490648003
 ;;9002226.02101,"774,23490648003 ",.02)
 ;;23490648003
 ;;9002226.02101,"774,23490648101 ",.01)
 ;;23490648101
 ;;9002226.02101,"774,23490648101 ",.02)
 ;;23490648101
 ;;9002226.02101,"774,23490648102 ",.01)
 ;;23490648102
 ;;9002226.02101,"774,23490648102 ",.02)
 ;;23490648102
 ;;9002226.02101,"774,23490648103 ",.01)
 ;;23490648103
 ;;9002226.02101,"774,23490648103 ",.02)
 ;;23490648103
 ;;9002226.02101,"774,23490648201 ",.01)
 ;;23490648201
 ;;9002226.02101,"774,23490648201 ",.02)
 ;;23490648201
 ;;9002226.02101,"774,23490648202 ",.01)
 ;;23490648202
 ;;9002226.02101,"774,23490648202 ",.02)
 ;;23490648202
 ;;9002226.02101,"774,23490648203 ",.01)
 ;;23490648203
 ;;9002226.02101,"774,23490648203 ",.02)
 ;;23490648203
 ;;9002226.02101,"774,23490648301 ",.01)
 ;;23490648301
 ;;9002226.02101,"774,23490648301 ",.02)
 ;;23490648301
 ;;9002226.02101,"774,23490648302 ",.01)
 ;;23490648302
 ;;9002226.02101,"774,23490648302 ",.02)
 ;;23490648302
 ;;9002226.02101,"774,23490648303 ",.01)
 ;;23490648303
 ;;9002226.02101,"774,23490648303 ",.02)
 ;;23490648303
 ;;9002226.02101,"774,23490648401 ",.01)
 ;;23490648401
 ;;9002226.02101,"774,23490648401 ",.02)
 ;;23490648401
 ;;9002226.02101,"774,23490648402 ",.01)
 ;;23490648402
 ;;9002226.02101,"774,23490648402 ",.02)
 ;;23490648402
 ;;9002226.02101,"774,23490648403 ",.01)
 ;;23490648403
 ;;9002226.02101,"774,23490648403 ",.02)
 ;;23490648403
 ;;9002226.02101,"774,24236022802 ",.01)
 ;;24236022802
 ;;9002226.02101,"774,24236022802 ",.02)
 ;;24236022802
 ;;9002226.02101,"774,24236026002 ",.01)
 ;;24236026002
 ;;9002226.02101,"774,24236026002 ",.02)
 ;;24236026002
 ;;9002226.02101,"774,24236032102 ",.01)
 ;;24236032102
 ;;9002226.02101,"774,24236032102 ",.02)
 ;;24236032102
 ;;9002226.02101,"774,24236034802 ",.01)
 ;;24236034802
 ;;9002226.02101,"774,24236034802 ",.02)
 ;;24236034802
 ;;9002226.02101,"774,24236035302 ",.01)
 ;;24236035302
 ;;9002226.02101,"774,24236035302 ",.02)
 ;;24236035302
 ;;9002226.02101,"774,24236056402 ",.01)
 ;;24236056402
 ;;9002226.02101,"774,24236056402 ",.02)
 ;;24236056402
 ;;9002226.02101,"774,24236069302 ",.01)
 ;;24236069302
 ;;9002226.02101,"774,24236069302 ",.02)
 ;;24236069302
 ;;9002226.02101,"774,24236084702 ",.01)
 ;;24236084702
 ;;9002226.02101,"774,24236084702 ",.02)
 ;;24236084702
 ;;9002226.02101,"774,24236087202 ",.01)
 ;;24236087202
 ;;9002226.02101,"774,24236087202 ",.02)
 ;;24236087202
 ;;9002226.02101,"774,25021040001 ",.01)
 ;;25021040001
 ;;9002226.02101,"774,25021040001 ",.02)
 ;;25021040001
 ;;9002226.02101,"774,25021040010 ",.01)
 ;;25021040010