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

BGPM5ASG.m

Go to the documentation of this file.
BGPM5ASG ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,65862004400 ",.01)
 ;;65862004400
 ;;9002226.02101,"1005,65862004400 ",.02)
 ;;65862004400
 ;;9002226.02101,"1005,65862004401 ",.01)
 ;;65862004401
 ;;9002226.02101,"1005,65862004401 ",.02)
 ;;65862004401
 ;;9002226.02101,"1005,65862004405 ",.01)
 ;;65862004405
 ;;9002226.02101,"1005,65862004405 ",.02)
 ;;65862004405
 ;;9002226.02101,"1005,65862004430 ",.01)
 ;;65862004430
 ;;9002226.02101,"1005,65862004430 ",.02)
 ;;65862004430
 ;;9002226.02101,"1005,65862004459 ",.01)
 ;;65862004459
 ;;9002226.02101,"1005,65862004459 ",.02)
 ;;65862004459
 ;;9002226.02101,"1005,65862004499 ",.01)
 ;;65862004499
 ;;9002226.02101,"1005,65862004499 ",.02)
 ;;65862004499
 ;;9002226.02101,"1005,65862004500 ",.01)
 ;;65862004500
 ;;9002226.02101,"1005,65862004500 ",.02)
 ;;65862004500
 ;;9002226.02101,"1005,65862004501 ",.01)
 ;;65862004501
 ;;9002226.02101,"1005,65862004501 ",.02)
 ;;65862004501
 ;;9002226.02101,"1005,65862004505 ",.01)
 ;;65862004505
 ;;9002226.02101,"1005,65862004505 ",.02)
 ;;65862004505
 ;;9002226.02101,"1005,65862004530 ",.01)
 ;;65862004530
 ;;9002226.02101,"1005,65862004530 ",.02)
 ;;65862004530
 ;;9002226.02101,"1005,65862004559 ",.01)
 ;;65862004559
 ;;9002226.02101,"1005,65862004559 ",.02)
 ;;65862004559
 ;;9002226.02101,"1005,65862004599 ",.01)
 ;;65862004599
 ;;9002226.02101,"1005,65862004599 ",.02)
 ;;65862004599
 ;;9002226.02101,"1005,65862030801 ",.01)
 ;;65862030801
 ;;9002226.02101,"1005,65862030801 ",.02)
 ;;65862030801
 ;;9002226.02101,"1005,65862030830 ",.01)
 ;;65862030830
 ;;9002226.02101,"1005,65862030830 ",.02)
 ;;65862030830
 ;;9002226.02101,"1005,65862030849 ",.01)
 ;;65862030849
 ;;9002226.02101,"1005,65862030849 ",.02)
 ;;65862030849
 ;;9002226.02101,"1005,65862030899 ",.01)
 ;;65862030899
 ;;9002226.02101,"1005,65862030899 ",.02)
 ;;65862030899
 ;;9002226.02101,"1005,65862030901 ",.01)
 ;;65862030901
 ;;9002226.02101,"1005,65862030901 ",.02)
 ;;65862030901
 ;;9002226.02101,"1005,65862030926 ",.01)
 ;;65862030926
 ;;9002226.02101,"1005,65862030926 ",.02)
 ;;65862030926
 ;;9002226.02101,"1005,65862030930 ",.01)
 ;;65862030930
 ;;9002226.02101,"1005,65862030930 ",.02)
 ;;65862030930
 ;;9002226.02101,"1005,65862030999 ",.01)
 ;;65862030999
 ;;9002226.02101,"1005,65862030999 ",.02)
 ;;65862030999
 ;;9002226.02101,"1005,65862047130 ",.01)
 ;;65862047130
 ;;9002226.02101,"1005,65862047130 ",.02)
 ;;65862047130
 ;;9002226.02101,"1005,65862047149 ",.01)
 ;;65862047149
 ;;9002226.02101,"1005,65862047149 ",.02)
 ;;65862047149
 ;;9002226.02101,"1005,65862047190 ",.01)
 ;;65862047190
 ;;9002226.02101,"1005,65862047190 ",.02)
 ;;65862047190
 ;;9002226.02101,"1005,65862047199 ",.01)
 ;;65862047199
 ;;9002226.02101,"1005,65862047199 ",.02)
 ;;65862047199
 ;;9002226.02101,"1005,65862047230 ",.01)
 ;;65862047230
 ;;9002226.02101,"1005,65862047230 ",.02)
 ;;65862047230
 ;;9002226.02101,"1005,65862047239 ",.01)
 ;;65862047239
 ;;9002226.02101,"1005,65862047239 ",.02)
 ;;65862047239
 ;;9002226.02101,"1005,65862047290 ",.01)
 ;;65862047290
 ;;9002226.02101,"1005,65862047290 ",.02)
 ;;65862047290
 ;;9002226.02101,"1005,65862047299 ",.01)
 ;;65862047299
 ;;9002226.02101,"1005,65862047299 ",.02)
 ;;65862047299
 ;;9002226.02101,"1005,65862047322 ",.01)
 ;;65862047322
 ;;9002226.02101,"1005,65862047322 ",.02)
 ;;65862047322
 ;;9002226.02101,"1005,65862047330 ",.01)
 ;;65862047330
 ;;9002226.02101,"1005,65862047330 ",.02)
 ;;65862047330
 ;;9002226.02101,"1005,65862047390 ",.01)
 ;;65862047390
 ;;9002226.02101,"1005,65862047390 ",.02)
 ;;65862047390
 ;;9002226.02101,"1005,65862047399 ",.01)
 ;;65862047399
 ;;9002226.02101,"1005,65862047399 ",.02)
 ;;65862047399
 ;;9002226.02101,"1005,66003010501 ",.01)
 ;;66003010501
 ;;9002226.02101,"1005,66003010501 ",.02)
 ;;66003010501
 ;;9002226.02101,"1005,66105010109 ",.01)
 ;;66105010109
 ;;9002226.02101,"1005,66105010109 ",.02)
 ;;66105010109
 ;;9002226.02101,"1005,66105010209 ",.01)
 ;;66105010209
 ;;9002226.02101,"1005,66105010209 ",.02)
 ;;66105010209
 ;;9002226.02101,"1005,66105010309 ",.01)
 ;;66105010309
 ;;9002226.02101,"1005,66105010309 ",.02)
 ;;66105010309
 ;;9002226.02101,"1005,66105050301 ",.01)
 ;;66105050301
 ;;9002226.02101,"1005,66105050301 ",.02)
 ;;66105050301
 ;;9002226.02101,"1005,66105050303 ",.01)
 ;;66105050303
 ;;9002226.02101,"1005,66105050303 ",.02)
 ;;66105050303
 ;;9002226.02101,"1005,66105050306 ",.01)
 ;;66105050306
 ;;9002226.02101,"1005,66105050306 ",.02)
 ;;66105050306
 ;;9002226.02101,"1005,66105050309 ",.01)
 ;;66105050309
 ;;9002226.02101,"1005,66105050309 ",.02)
 ;;66105050309
 ;;9002226.02101,"1005,66105050310 ",.01)
 ;;66105050310
 ;;9002226.02101,"1005,66105050310 ",.02)
 ;;66105050310
 ;;9002226.02101,"1005,66105050315 ",.01)
 ;;66105050315
 ;;9002226.02101,"1005,66105050315 ",.02)
 ;;66105050315
 ;;9002226.02101,"1005,66105050401 ",.01)
 ;;66105050401
 ;;9002226.02101,"1005,66105050401 ",.02)
 ;;66105050401
 ;;9002226.02101,"1005,66105050403 ",.01)
 ;;66105050403
 ;;9002226.02101,"1005,66105050403 ",.02)
 ;;66105050403
 ;;9002226.02101,"1005,66105050406 ",.01)
 ;;66105050406
 ;;9002226.02101,"1005,66105050406 ",.02)
 ;;66105050406
 ;;9002226.02101,"1005,66105050409 ",.01)
 ;;66105050409
 ;;9002226.02101,"1005,66105050409 ",.02)
 ;;66105050409
 ;;9002226.02101,"1005,66105050415 ",.01)
 ;;66105050415
 ;;9002226.02101,"1005,66105050415 ",.02)
 ;;66105050415
 ;;9002226.02101,"1005,66105052409 ",.01)
 ;;66105052409
 ;;9002226.02101,"1005,66105052409 ",.02)
 ;;66105052409
 ;;9002226.02101,"1005,66105054409 ",.01)
 ;;66105054409
 ;;9002226.02101,"1005,66105054409 ",.02)
 ;;66105054409
 ;;9002226.02101,"1005,66105054501 ",.01)
 ;;66105054501
 ;;9002226.02101,"1005,66105054501 ",.02)
 ;;66105054501
 ;;9002226.02101,"1005,66105054503 ",.01)
 ;;66105054503
 ;;9002226.02101,"1005,66105054503 ",.02)
 ;;66105054503
 ;;9002226.02101,"1005,66105054506 ",.01)
 ;;66105054506
 ;;9002226.02101,"1005,66105054506 ",.02)
 ;;66105054506
 ;;9002226.02101,"1005,66105054509 ",.01)
 ;;66105054509
 ;;9002226.02101,"1005,66105054509 ",.02)
 ;;66105054509
 ;;9002226.02101,"1005,66105054510 ",.01)
 ;;66105054510
 ;;9002226.02101,"1005,66105054510 ",.02)
 ;;66105054510
 ;;9002226.02101,"1005,66105054609 ",.01)
 ;;66105054609
 ;;9002226.02101,"1005,66105054609 ",.02)
 ;;66105054609
 ;;9002226.02101,"1005,66105054803 ",.01)
 ;;66105054803
 ;;9002226.02101,"1005,66105054803 ",.02)
 ;;66105054803
 ;;9002226.02101,"1005,66105055510 ",.01)
 ;;66105055510
 ;;9002226.02101,"1005,66105055510 ",.02)
 ;;66105055510
 ;;9002226.02101,"1005,66105066602 ",.01)
 ;;66105066602
 ;;9002226.02101,"1005,66105066602 ",.02)
 ;;66105066602
 ;;9002226.02101,"1005,66105066603 ",.01)
 ;;66105066603
 ;;9002226.02101,"1005,66105066603 ",.02)
 ;;66105066603
 ;;9002226.02101,"1005,66105066606 ",.01)
 ;;66105066606
 ;;9002226.02101,"1005,66105066606 ",.02)
 ;;66105066606
 ;;9002226.02101,"1005,66105066609 ",.01)
 ;;66105066609
 ;;9002226.02101,"1005,66105066609 ",.02)
 ;;66105066609
 ;;9002226.02101,"1005,66105066610 ",.01)
 ;;66105066610
 ;;9002226.02101,"1005,66105066610 ",.02)
 ;;66105066610
 ;;9002226.02101,"1005,66105069402 ",.01)
 ;;66105069402
 ;;9002226.02101,"1005,66105069402 ",.02)
 ;;66105069402
 ;;9002226.02101,"1005,66105069403 ",.01)
 ;;66105069403
 ;;9002226.02101,"1005,66105069403 ",.02)
 ;;66105069403
 ;;9002226.02101,"1005,66105069406 ",.01)
 ;;66105069406
 ;;9002226.02101,"1005,66105069406 ",.02)
 ;;66105069406
 ;;9002226.02101,"1005,66105069409 ",.01)
 ;;66105069409
 ;;9002226.02101,"1005,66105069409 ",.02)
 ;;66105069409
 ;;9002226.02101,"1005,66105069410 ",.01)
 ;;66105069410
 ;;9002226.02101,"1005,66105069410 ",.02)
 ;;66105069410
 ;;9002226.02101,"1005,66105069502 ",.01)
 ;;66105069502
 ;;9002226.02101,"1005,66105069502 ",.02)
 ;;66105069502
 ;;9002226.02101,"1005,66105069503 ",.01)
 ;;66105069503
 ;;9002226.02101,"1005,66105069503 ",.02)
 ;;66105069503
 ;;9002226.02101,"1005,66105069506 ",.01)
 ;;66105069506
 ;;9002226.02101,"1005,66105069506 ",.02)
 ;;66105069506
 ;;9002226.02101,"1005,66105069509 ",.01)
 ;;66105069509
 ;;9002226.02101,"1005,66105069509 ",.02)
 ;;66105069509
 ;;9002226.02101,"1005,66105069510 ",.01)
 ;;66105069510
 ;;9002226.02101,"1005,66105069510 ",.02)
 ;;66105069510
 ;;9002226.02101,"1005,66105078223 ",.01)
 ;;66105078223
 ;;9002226.02101,"1005,66105078223 ",.02)
 ;;66105078223
 ;;9002226.02101,"1005,66105078823 ",.01)
 ;;66105078823
 ;;9002226.02101,"1005,66105078823 ",.02)
 ;;66105078823
 ;;9002226.02101,"1005,66105084203 ",.01)
 ;;66105084203
 ;;9002226.02101,"1005,66105084203 ",.02)
 ;;66105084203
 ;;9002226.02101,"1005,66105084206 ",.01)
 ;;66105084206
 ;;9002226.02101,"1005,66105084206 ",.02)
 ;;66105084206
 ;;9002226.02101,"1005,66105084209 ",.01)
 ;;66105084209
 ;;9002226.02101,"1005,66105084209 ",.02)
 ;;66105084209
 ;;9002226.02101,"1005,66105084210 ",.01)
 ;;66105084210
 ;;9002226.02101,"1005,66105084210 ",.02)
 ;;66105084210
 ;;9002226.02101,"1005,66105084228 ",.01)
 ;;66105084228
 ;;9002226.02101,"1005,66105084228 ",.02)
 ;;66105084228
 ;;9002226.02101,"1005,66116027930 ",.01)
 ;;66116027930
 ;;9002226.02101,"1005,66116027930 ",.02)
 ;;66116027930
 ;;9002226.02101,"1005,66116030030 ",.01)
 ;;66116030030
 ;;9002226.02101,"1005,66116030030 ",.02)
 ;;66116030030
 ;;9002226.02101,"1005,66116030430 ",.01)
 ;;66116030430
 ;;9002226.02101,"1005,66116030430 ",.02)
 ;;66116030430
 ;;9002226.02101,"1005,66116031030 ",.01)
 ;;66116031030
 ;;9002226.02101,"1005,66116031030 ",.02)
 ;;66116031030
 ;;9002226.02101,"1005,66116032530 ",.01)
 ;;66116032530
 ;;9002226.02101,"1005,66116032530 ",.02)
 ;;66116032530
 ;;9002226.02101,"1005,66116032630 ",.01)
 ;;66116032630
 ;;9002226.02101,"1005,66116032630 ",.02)
 ;;66116032630
 ;;9002226.02101,"1005,66116050030 ",.01)
 ;;66116050030
 ;;9002226.02101,"1005,66116050030 ",.02)
 ;;66116050030
 ;;9002226.02101,"1005,66116050230 ",.01)
 ;;66116050230
 ;;9002226.02101,"1005,66116050230 ",.02)
 ;;66116050230
 ;;9002226.02101,"1005,66116071830 ",.01)
 ;;66116071830
 ;;9002226.02101,"1005,66116071830 ",.02)
 ;;66116071830
 ;;9002226.02101,"1005,66116081330 ",.01)
 ;;66116081330
 ;;9002226.02101,"1005,66116081330 ",.02)
 ;;66116081330
 ;;9002226.02101,"1005,66116081930 ",.01)
 ;;66116081930
 ;;9002226.02101,"1005,66116081930 ",.02)
 ;;66116081930
 ;;9002226.02101,"1005,66116082930 ",.01)
 ;;66116082930
 ;;9002226.02101,"1005,66116082930 ",.02)
 ;;66116082930
 ;;9002226.02101,"1005,66116083030 ",.01)
 ;;66116083030
 ;;9002226.02101,"1005,66116083030 ",.02)
 ;;66116083030
 ;;9002226.02101,"1005,66116083130 ",.01)
 ;;66116083130
 ;;9002226.02101,"1005,66116083130 ",.02)
 ;;66116083130
 ;;9002226.02101,"1005,66116086130 ",.01)
 ;;66116086130
 ;;9002226.02101,"1005,66116086130 ",.02)
 ;;66116086130
 ;;9002226.02101,"1005,66116087230 ",.01)
 ;;66116087230
 ;;9002226.02101,"1005,66116087230 ",.02)
 ;;66116087230
 ;;9002226.02101,"1005,66116087430 ",.01)
 ;;66116087430
 ;;9002226.02101,"1005,66116087430 ",.02)
 ;;66116087430
 ;;9002226.02101,"1005,66267004020 ",.01)
 ;;66267004020
 ;;9002226.02101,"1005,66267004020 ",.02)
 ;;66267004020
 ;;9002226.02101,"1005,66267004030 ",.01)
 ;;66267004030
 ;;9002226.02101,"1005,66267004030 ",.02)
 ;;66267004030
 ;;9002226.02101,"1005,66267004040 ",.01)
 ;;66267004040
 ;;9002226.02101,"1005,66267004040 ",.02)
 ;;66267004040
 ;;9002226.02101,"1005,66267004060 ",.01)
 ;;66267004060
 ;;9002226.02101,"1005,66267004060 ",.02)
 ;;66267004060
 ;;9002226.02101,"1005,66267004090 ",.01)
 ;;66267004090