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

BGPM5AXI.m

Go to the documentation of this file.
BGPM5AXI ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 30, 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,"1034,00463600310 ",.02)
 ;;00463600310
 ;;9002226.02101,"1034,00472087308 ",.01)
 ;;00472087308
 ;;9002226.02101,"1034,00472087308 ",.02)
 ;;00472087308
 ;;9002226.02101,"1034,00472144416 ",.01)
 ;;00472144416
 ;;9002226.02101,"1034,00472144416 ",.02)
 ;;00472144416
 ;;9002226.02101,"1034,00472144428 ",.01)
 ;;00472144428
 ;;9002226.02101,"1034,00472144428 ",.02)
 ;;00472144428
 ;;9002226.02101,"1034,00490008000 ",.01)
 ;;00490008000
 ;;9002226.02101,"1034,00490008000 ",.02)
 ;;00490008000
 ;;9002226.02101,"1034,00490008030 ",.01)
 ;;00490008030
 ;;9002226.02101,"1034,00490008030 ",.02)
 ;;00490008030
 ;;9002226.02101,"1034,00490008060 ",.01)
 ;;00490008060
 ;;9002226.02101,"1034,00490008060 ",.02)
 ;;00490008060
 ;;9002226.02101,"1034,00490008090 ",.01)
 ;;00490008090
 ;;9002226.02101,"1034,00490008090 ",.02)
 ;;00490008090
 ;;9002226.02101,"1034,00490708001 ",.01)
 ;;00490708001
 ;;9002226.02101,"1034,00490708001 ",.02)
 ;;00490708001
 ;;9002226.02101,"1034,00490708002 ",.01)
 ;;00490708002
 ;;9002226.02101,"1034,00490708002 ",.02)
 ;;00490708002
 ;;9002226.02101,"1034,00490708003 ",.01)
 ;;00490708003
 ;;9002226.02101,"1034,00490708003 ",.02)
 ;;00490708003
 ;;9002226.02101,"1034,00490708004 ",.01)
 ;;00490708004
 ;;9002226.02101,"1034,00490708004 ",.02)
 ;;00490708004
 ;;9002226.02101,"1034,00490708005 ",.01)
 ;;00490708005
 ;;9002226.02101,"1034,00490708005 ",.02)
 ;;00490708005
 ;;9002226.02101,"1034,00517381025 ",.01)
 ;;00517381025
 ;;9002226.02101,"1034,00517381025 ",.02)
 ;;00517381025
 ;;9002226.02101,"1034,00517382025 ",.01)
 ;;00517382025
 ;;9002226.02101,"1034,00517382025 ",.02)
 ;;00517382025
 ;;9002226.02101,"1034,00536130119 ",.01)
 ;;00536130119
 ;;9002226.02101,"1034,00536130119 ",.02)
 ;;00536130119
 ;;9002226.02101,"1034,00603119058 ",.01)
 ;;00603119058
 ;;9002226.02101,"1034,00603119058 ",.02)
 ;;00603119058
 ;;9002226.02101,"1034,00603172958 ",.01)
 ;;00603172958
 ;;9002226.02101,"1034,00603172958 ",.02)
 ;;00603172958
 ;;9002226.02101,"1034,00603574721 ",.01)
 ;;00603574721
 ;;9002226.02101,"1034,00603574721 ",.02)
 ;;00603574721
 ;;9002226.02101,"1034,00603594421 ",.01)
 ;;00603594421
 ;;9002226.02101,"1034,00603594421 ",.02)
 ;;00603594421
 ;;9002226.02101,"1034,00603594428 ",.01)
 ;;00603594428
 ;;9002226.02101,"1034,00603594428 ",.02)
 ;;00603594428
 ;;9002226.02101,"1034,00603594521 ",.01)
 ;;00603594521
 ;;9002226.02101,"1034,00603594521 ",.02)
 ;;00603594521
 ;;9002226.02101,"1034,00603594528 ",.01)
 ;;00603594528
 ;;9002226.02101,"1034,00603594528 ",.02)
 ;;00603594528
 ;;9002226.02101,"1034,00603594529 ",.01)
 ;;00603594529
 ;;9002226.02101,"1034,00603594529 ",.02)
 ;;00603594529
 ;;9002226.02101,"1034,00603594532 ",.01)
 ;;00603594532
 ;;9002226.02101,"1034,00603594532 ",.02)
 ;;00603594532
 ;;9002226.02101,"1034,00603594621 ",.01)
 ;;00603594621
 ;;9002226.02101,"1034,00603594621 ",.02)
 ;;00603594621
 ;;9002226.02101,"1034,00603594628 ",.01)
 ;;00603594628
 ;;9002226.02101,"1034,00603594628 ",.02)
 ;;00603594628
 ;;9002226.02101,"1034,00603594629 ",.01)
 ;;00603594629
 ;;9002226.02101,"1034,00603594629 ",.02)
 ;;00603594629
 ;;9002226.02101,"1034,00603594632 ",.01)
 ;;00603594632
 ;;9002226.02101,"1034,00603594632 ",.02)
 ;;00603594632
 ;;9002226.02101,"1034,00603595021 ",.01)
 ;;00603595021
 ;;9002226.02101,"1034,00603595021 ",.02)
 ;;00603595021
 ;;9002226.02101,"1034,00603595121 ",.01)
 ;;00603595121
 ;;9002226.02101,"1034,00603595121 ",.02)
 ;;00603595121
 ;;9002226.02101,"1034,00603595221 ",.01)
 ;;00603595221
 ;;9002226.02101,"1034,00603595221 ",.02)
 ;;00603595221
 ;;9002226.02101,"1034,00615159039 ",.01)
 ;;00615159039
 ;;9002226.02101,"1034,00615159039 ",.02)
 ;;00615159039
 ;;9002226.02101,"1034,00615250339 ",.01)
 ;;00615250339
 ;;9002226.02101,"1034,00615250339 ",.02)
 ;;00615250339
 ;;9002226.02101,"1034,00677000301 ",.01)
 ;;00677000301
 ;;9002226.02101,"1034,00677000301 ",.02)
 ;;00677000301
 ;;9002226.02101,"1034,00677000701 ",.01)
 ;;00677000701
 ;;9002226.02101,"1034,00677000701 ",.02)
 ;;00677000701
 ;;9002226.02101,"1034,00677081701 ",.01)
 ;;00677081701
 ;;9002226.02101,"1034,00677081701 ",.02)
 ;;00677081701
 ;;9002226.02101,"1034,00677081705 ",.01)
 ;;00677081705
 ;;9002226.02101,"1034,00677081705 ",.02)
 ;;00677081705
 ;;9002226.02101,"1034,00677084601 ",.01)
 ;;00677084601
 ;;9002226.02101,"1034,00677084601 ",.02)
 ;;00677084601
 ;;9002226.02101,"1034,00677084605 ",.01)
 ;;00677084605
 ;;9002226.02101,"1034,00677084605 ",.02)
 ;;00677084605
 ;;9002226.02101,"1034,00713010309 ",.01)
 ;;00713010309
 ;;9002226.02101,"1034,00713010309 ",.02)
 ;;00713010309
 ;;9002226.02101,"1034,00713010325 ",.01)
 ;;00713010325
 ;;9002226.02101,"1034,00713010325 ",.02)
 ;;00713010325
 ;;9002226.02101,"1034,00713010350 ",.01)
 ;;00713010350
 ;;9002226.02101,"1034,00713010350 ",.02)
 ;;00713010350
 ;;9002226.02101,"1034,00781660016 ",.01)
 ;;00781660016
 ;;9002226.02101,"1034,00781660016 ",.02)
 ;;00781660016
 ;;9002226.02101,"1034,00781660028 ",.01)
 ;;00781660028
 ;;9002226.02101,"1034,00781660028 ",.02)
 ;;00781660028
 ;;9002226.02101,"1034,00801234100 ",.01)
 ;;00801234100
 ;;9002226.02101,"1034,00801234100 ",.02)
 ;;00801234100
 ;;9002226.02101,"1034,00801234200 ",.01)
 ;;00801234200
 ;;9002226.02101,"1034,00801234200 ",.02)
 ;;00801234200
 ;;9002226.02101,"1034,00801234300 ",.01)
 ;;00801234300
 ;;9002226.02101,"1034,00801234300 ",.02)
 ;;00801234300
 ;;9002226.02101,"1034,00904144416 ",.01)
 ;;00904144416
 ;;9002226.02101,"1034,00904144416 ",.02)
 ;;00904144416
 ;;9002226.02101,"1034,00904144428 ",.01)
 ;;00904144428
 ;;9002226.02101,"1034,00904144428 ",.02)
 ;;00904144428
 ;;9002226.02101,"1034,00904161040 ",.01)
 ;;00904161040
 ;;9002226.02101,"1034,00904161040 ",.02)
 ;;00904161040
 ;;9002226.02101,"1034,00904161060 ",.01)
 ;;00904161060
 ;;9002226.02101,"1034,00904161060 ",.02)
 ;;00904161060
 ;;9002226.02101,"1034,00904161160 ",.01)
 ;;00904161160
 ;;9002226.02101,"1034,00904161160 ",.02)
 ;;00904161160
 ;;9002226.02101,"1034,00904161161 ",.01)
 ;;00904161161
 ;;9002226.02101,"1034,00904161161 ",.02)
 ;;00904161161
 ;;9002226.02101,"1034,00904161180 ",.01)
 ;;00904161180
 ;;9002226.02101,"1034,00904161180 ",.02)
 ;;00904161180
 ;;9002226.02101,"1034,00904161280 ",.01)
 ;;00904161280
 ;;9002226.02101,"1034,00904161280 ",.02)
 ;;00904161280
 ;;9002226.02101,"1034,00904161360 ",.01)
 ;;00904161360
 ;;9002226.02101,"1034,00904161360 ",.02)
 ;;00904161360
 ;;9002226.02101,"1034,00904227360 ",.01)
 ;;00904227360
 ;;9002226.02101,"1034,00904227360 ",.02)
 ;;00904227360
 ;;9002226.02101,"1034,00904227380 ",.01)
 ;;00904227380
 ;;9002226.02101,"1034,00904227380 ",.02)
 ;;00904227380
 ;;9002226.02101,"1034,00904228360 ",.01)
 ;;00904228360
 ;;9002226.02101,"1034,00904228360 ",.02)
 ;;00904228360
 ;;9002226.02101,"1034,00904228380 ",.01)
 ;;00904228380
 ;;9002226.02101,"1034,00904228380 ",.02)
 ;;00904228380
 ;;9002226.02101,"1034,00904538660 ",.01)
 ;;00904538660
 ;;9002226.02101,"1034,00904538660 ",.02)
 ;;00904538660
 ;;9002226.02101,"1034,00904588761 ",.01)
 ;;00904588761
 ;;9002226.02101,"1034,00904588761 ",.02)
 ;;00904588761
 ;;9002226.02101,"1034,00904588861 ",.01)
 ;;00904588861
 ;;9002226.02101,"1034,00904588861 ",.02)
 ;;00904588861
 ;;9002226.02101,"1034,00904588961 ",.01)
 ;;00904588961
 ;;9002226.02101,"1034,00904588961 ",.02)
 ;;00904588961
 ;;9002226.02101,"1034,00904784760 ",.01)
 ;;00904784760
 ;;9002226.02101,"1034,00904784760 ",.02)
 ;;00904784760
 ;;9002226.02101,"1034,00904784860 ",.01)
 ;;00904784860
 ;;9002226.02101,"1034,00904784860 ",.02)
 ;;00904784860
 ;;9002226.02101,"1034,00904784960 ",.01)
 ;;00904784960
 ;;9002226.02101,"1034,00904784960 ",.02)
 ;;00904784960
 ;;9002226.02101,"1034,10797038104 ",.01)
 ;;10797038104
 ;;9002226.02101,"1034,10797038104 ",.02)
 ;;10797038104
 ;;9002226.02101,"1034,10797038204 ",.01)
 ;;10797038204
 ;;9002226.02101,"1034,10797038204 ",.02)
 ;;10797038204
 ;;9002226.02101,"1034,14593045996 ",.01)
 ;;14593045996
 ;;9002226.02101,"1034,14593045996 ",.02)
 ;;14593045996
 ;;9002226.02101,"1034,14593048296 ",.01)
 ;;14593048296
 ;;9002226.02101,"1034,14593048296 ",.02)
 ;;14593048296
 ;;9002226.02101,"1034,14593048396 ",.01)
 ;;14593048396
 ;;9002226.02101,"1034,14593048396 ",.02)
 ;;14593048396
 ;;9002226.02101,"1034,14593051896 ",.01)
 ;;14593051896
 ;;9002226.02101,"1034,14593051896 ",.02)
 ;;14593051896
 ;;9002226.02101,"1034,16571001101 ",.01)
 ;;16571001101
 ;;9002226.02101,"1034,16571001101 ",.02)
 ;;16571001101
 ;;9002226.02101,"1034,16571001110 ",.01)
 ;;16571001110
 ;;9002226.02101,"1034,16571001110 ",.02)
 ;;16571001110
 ;;9002226.02101,"1034,23490735501 ",.01)
 ;;23490735501
 ;;9002226.02101,"1034,23490735501 ",.02)
 ;;23490735501
 ;;9002226.02101,"1034,24236043302 ",.01)
 ;;24236043302
 ;;9002226.02101,"1034,24236043302 ",.02)
 ;;24236043302
 ;;9002226.02101,"1034,24236047302 ",.01)
 ;;24236047302
 ;;9002226.02101,"1034,24236047302 ",.02)
 ;;24236047302
 ;;9002226.02101,"1034,24236047702 ",.01)
 ;;24236047702
 ;;9002226.02101,"1034,24236047702 ",.02)
 ;;24236047702
 ;;9002226.02101,"1034,24236068502 ",.01)
 ;;24236068502
 ;;9002226.02101,"1034,24236068502 ",.02)
 ;;24236068502
 ;;9002226.02101,"1034,24236093602 ",.01)
 ;;24236093602
 ;;9002226.02101,"1034,24236093602 ",.02)
 ;;24236093602
 ;;9002226.02101,"1034,29033000101 ",.01)
 ;;29033000101
 ;;9002226.02101,"1034,29033000101 ",.02)
 ;;29033000101
 ;;9002226.02101,"1034,29033000105 ",.01)
 ;;29033000105
 ;;9002226.02101,"1034,29033000105 ",.02)
 ;;29033000105
 ;;9002226.02101,"1034,29033000201 ",.01)
 ;;29033000201
 ;;9002226.02101,"1034,29033000201 ",.02)
 ;;29033000201
 ;;9002226.02101,"1034,35356012660 ",.01)
 ;;35356012660
 ;;9002226.02101,"1034,35356012660 ",.02)
 ;;35356012660
 ;;9002226.02101,"1034,42192030301 ",.01)
 ;;42192030301
 ;;9002226.02101,"1034,42192030301 ",.02)
 ;;42192030301
 ;;9002226.02101,"1034,44514090336 ",.01)
 ;;44514090336
 ;;9002226.02101,"1034,44514090336 ",.02)
 ;;44514090336
 ;;9002226.02101,"1034,44514090436 ",.01)
 ;;44514090436
 ;;9002226.02101,"1034,44514090436 ",.02)
 ;;44514090436
 ;;9002226.02101,"1034,49158026134 ",.01)
 ;;49158026134
 ;;9002226.02101,"1034,49158026134 ",.02)
 ;;49158026134
 ;;9002226.02101,"1034,49158026138 ",.01)
 ;;49158026138
 ;;9002226.02101,"1034,49158026138 ",.02)
 ;;49158026138
 ;;9002226.02101,"1034,49158026139 ",.01)
 ;;49158026139
 ;;9002226.02101,"1034,49158026139 ",.02)
 ;;49158026139
 ;;9002226.02101,"1034,49349001002 ",.01)
 ;;49349001002
 ;;9002226.02101,"1034,49349001002 ",.02)
 ;;49349001002
 ;;9002226.02101,"1034,49349022302 ",.01)
 ;;49349022302
 ;;9002226.02101,"1034,49349022302 ",.02)
 ;;49349022302
 ;;9002226.02101,"1034,49349022320 ",.01)
 ;;49349022320
 ;;9002226.02101,"1034,49349022320 ",.02)
 ;;49349022320
 ;;9002226.02101,"1034,49999055000 ",.01)
 ;;49999055000
 ;;9002226.02101,"1034,49999055000 ",.02)
 ;;49999055000
 ;;9002226.02101,"1034,49999092130 ",.01)
 ;;49999092130
 ;;9002226.02101,"1034,49999092130 ",.02)
 ;;49999092130
 ;;9002226.02101,"1034,50111045901 ",.01)
 ;;50111045901
 ;;9002226.02101,"1034,50111045901 ",.02)
 ;;50111045901
 ;;9002226.02101,"1034,50111045902 ",.01)
 ;;50111045902
 ;;9002226.02101,"1034,50111045902 ",.02)
 ;;50111045902
 ;;9002226.02101,"1034,50111045903 ",.01)
 ;;50111045903
 ;;9002226.02101,"1034,50111045903 ",.02)
 ;;50111045903
 ;;9002226.02101,"1034,50111048201 ",.01)
 ;;50111048201
 ;;9002226.02101,"1034,50111048201 ",.02)
 ;;50111048201