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.
  1. BGPM5ASG ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1005,65862004400 ",.01)
  1. ;;65862004400
  1. ;;9002226.02101,"1005,65862004400 ",.02)
  1. ;;65862004400
  1. ;;9002226.02101,"1005,65862004401 ",.01)
  1. ;;65862004401
  1. ;;9002226.02101,"1005,65862004401 ",.02)
  1. ;;65862004401
  1. ;;9002226.02101,"1005,65862004405 ",.01)
  1. ;;65862004405
  1. ;;9002226.02101,"1005,65862004405 ",.02)
  1. ;;65862004405
  1. ;;9002226.02101,"1005,65862004430 ",.01)
  1. ;;65862004430
  1. ;;9002226.02101,"1005,65862004430 ",.02)
  1. ;;65862004430
  1. ;;9002226.02101,"1005,65862004459 ",.01)
  1. ;;65862004459
  1. ;;9002226.02101,"1005,65862004459 ",.02)
  1. ;;65862004459
  1. ;;9002226.02101,"1005,65862004499 ",.01)
  1. ;;65862004499
  1. ;;9002226.02101,"1005,65862004499 ",.02)
  1. ;;65862004499
  1. ;;9002226.02101,"1005,65862004500 ",.01)
  1. ;;65862004500
  1. ;;9002226.02101,"1005,65862004500 ",.02)
  1. ;;65862004500
  1. ;;9002226.02101,"1005,65862004501 ",.01)
  1. ;;65862004501
  1. ;;9002226.02101,"1005,65862004501 ",.02)
  1. ;;65862004501
  1. ;;9002226.02101,"1005,65862004505 ",.01)
  1. ;;65862004505
  1. ;;9002226.02101,"1005,65862004505 ",.02)
  1. ;;65862004505
  1. ;;9002226.02101,"1005,65862004530 ",.01)
  1. ;;65862004530
  1. ;;9002226.02101,"1005,65862004530 ",.02)
  1. ;;65862004530
  1. ;;9002226.02101,"1005,65862004559 ",.01)
  1. ;;65862004559
  1. ;;9002226.02101,"1005,65862004559 ",.02)
  1. ;;65862004559
  1. ;;9002226.02101,"1005,65862004599 ",.01)
  1. ;;65862004599
  1. ;;9002226.02101,"1005,65862004599 ",.02)
  1. ;;65862004599
  1. ;;9002226.02101,"1005,65862030801 ",.01)
  1. ;;65862030801
  1. ;;9002226.02101,"1005,65862030801 ",.02)
  1. ;;65862030801
  1. ;;9002226.02101,"1005,65862030830 ",.01)
  1. ;;65862030830
  1. ;;9002226.02101,"1005,65862030830 ",.02)
  1. ;;65862030830
  1. ;;9002226.02101,"1005,65862030849 ",.01)
  1. ;;65862030849
  1. ;;9002226.02101,"1005,65862030849 ",.02)
  1. ;;65862030849
  1. ;;9002226.02101,"1005,65862030899 ",.01)
  1. ;;65862030899
  1. ;;9002226.02101,"1005,65862030899 ",.02)
  1. ;;65862030899
  1. ;;9002226.02101,"1005,65862030901 ",.01)
  1. ;;65862030901
  1. ;;9002226.02101,"1005,65862030901 ",.02)
  1. ;;65862030901
  1. ;;9002226.02101,"1005,65862030926 ",.01)
  1. ;;65862030926
  1. ;;9002226.02101,"1005,65862030926 ",.02)
  1. ;;65862030926
  1. ;;9002226.02101,"1005,65862030930 ",.01)
  1. ;;65862030930
  1. ;;9002226.02101,"1005,65862030930 ",.02)
  1. ;;65862030930
  1. ;;9002226.02101,"1005,65862030999 ",.01)
  1. ;;65862030999
  1. ;;9002226.02101,"1005,65862030999 ",.02)
  1. ;;65862030999
  1. ;;9002226.02101,"1005,65862047130 ",.01)
  1. ;;65862047130
  1. ;;9002226.02101,"1005,65862047130 ",.02)
  1. ;;65862047130
  1. ;;9002226.02101,"1005,65862047149 ",.01)
  1. ;;65862047149
  1. ;;9002226.02101,"1005,65862047149 ",.02)
  1. ;;65862047149
  1. ;;9002226.02101,"1005,65862047190 ",.01)
  1. ;;65862047190
  1. ;;9002226.02101,"1005,65862047190 ",.02)
  1. ;;65862047190
  1. ;;9002226.02101,"1005,65862047199 ",.01)
  1. ;;65862047199
  1. ;;9002226.02101,"1005,65862047199 ",.02)
  1. ;;65862047199
  1. ;;9002226.02101,"1005,65862047230 ",.01)
  1. ;;65862047230
  1. ;;9002226.02101,"1005,65862047230 ",.02)
  1. ;;65862047230
  1. ;;9002226.02101,"1005,65862047239 ",.01)
  1. ;;65862047239
  1. ;;9002226.02101,"1005,65862047239 ",.02)
  1. ;;65862047239
  1. ;;9002226.02101,"1005,65862047290 ",.01)
  1. ;;65862047290
  1. ;;9002226.02101,"1005,65862047290 ",.02)
  1. ;;65862047290
  1. ;;9002226.02101,"1005,65862047299 ",.01)
  1. ;;65862047299
  1. ;;9002226.02101,"1005,65862047299 ",.02)
  1. ;;65862047299
  1. ;;9002226.02101,"1005,65862047322 ",.01)
  1. ;;65862047322
  1. ;;9002226.02101,"1005,65862047322 ",.02)
  1. ;;65862047322
  1. ;;9002226.02101,"1005,65862047330 ",.01)
  1. ;;65862047330
  1. ;;9002226.02101,"1005,65862047330 ",.02)
  1. ;;65862047330
  1. ;;9002226.02101,"1005,65862047390 ",.01)
  1. ;;65862047390
  1. ;;9002226.02101,"1005,65862047390 ",.02)
  1. ;;65862047390
  1. ;;9002226.02101,"1005,65862047399 ",.01)
  1. ;;65862047399
  1. ;;9002226.02101,"1005,65862047399 ",.02)
  1. ;;65862047399
  1. ;;9002226.02101,"1005,66003010501 ",.01)
  1. ;;66003010501
  1. ;;9002226.02101,"1005,66003010501 ",.02)
  1. ;;66003010501
  1. ;;9002226.02101,"1005,66105010109 ",.01)
  1. ;;66105010109
  1. ;;9002226.02101,"1005,66105010109 ",.02)
  1. ;;66105010109
  1. ;;9002226.02101,"1005,66105010209 ",.01)
  1. ;;66105010209
  1. ;;9002226.02101,"1005,66105010209 ",.02)
  1. ;;66105010209
  1. ;;9002226.02101,"1005,66105010309 ",.01)
  1. ;;66105010309
  1. ;;9002226.02101,"1005,66105010309 ",.02)
  1. ;;66105010309
  1. ;;9002226.02101,"1005,66105050301 ",.01)
  1. ;;66105050301
  1. ;;9002226.02101,"1005,66105050301 ",.02)
  1. ;;66105050301
  1. ;;9002226.02101,"1005,66105050303 ",.01)
  1. ;;66105050303
  1. ;;9002226.02101,"1005,66105050303 ",.02)
  1. ;;66105050303
  1. ;;9002226.02101,"1005,66105050306 ",.01)
  1. ;;66105050306
  1. ;;9002226.02101,"1005,66105050306 ",.02)
  1. ;;66105050306
  1. ;;9002226.02101,"1005,66105050309 ",.01)
  1. ;;66105050309
  1. ;;9002226.02101,"1005,66105050309 ",.02)
  1. ;;66105050309
  1. ;;9002226.02101,"1005,66105050310 ",.01)
  1. ;;66105050310
  1. ;;9002226.02101,"1005,66105050310 ",.02)
  1. ;;66105050310
  1. ;;9002226.02101,"1005,66105050315 ",.01)
  1. ;;66105050315
  1. ;;9002226.02101,"1005,66105050315 ",.02)
  1. ;;66105050315
  1. ;;9002226.02101,"1005,66105050401 ",.01)
  1. ;;66105050401
  1. ;;9002226.02101,"1005,66105050401 ",.02)
  1. ;;66105050401
  1. ;;9002226.02101,"1005,66105050403 ",.01)
  1. ;;66105050403
  1. ;;9002226.02101,"1005,66105050403 ",.02)
  1. ;;66105050403
  1. ;;9002226.02101,"1005,66105050406 ",.01)
  1. ;;66105050406
  1. ;;9002226.02101,"1005,66105050406 ",.02)
  1. ;;66105050406
  1. ;;9002226.02101,"1005,66105050409 ",.01)
  1. ;;66105050409
  1. ;;9002226.02101,"1005,66105050409 ",.02)
  1. ;;66105050409
  1. ;;9002226.02101,"1005,66105050415 ",.01)
  1. ;;66105050415
  1. ;;9002226.02101,"1005,66105050415 ",.02)
  1. ;;66105050415
  1. ;;9002226.02101,"1005,66105052409 ",.01)
  1. ;;66105052409
  1. ;;9002226.02101,"1005,66105052409 ",.02)
  1. ;;66105052409
  1. ;;9002226.02101,"1005,66105054409 ",.01)
  1. ;;66105054409
  1. ;;9002226.02101,"1005,66105054409 ",.02)
  1. ;;66105054409
  1. ;;9002226.02101,"1005,66105054501 ",.01)
  1. ;;66105054501
  1. ;;9002226.02101,"1005,66105054501 ",.02)
  1. ;;66105054501
  1. ;;9002226.02101,"1005,66105054503 ",.01)
  1. ;;66105054503
  1. ;;9002226.02101,"1005,66105054503 ",.02)
  1. ;;66105054503
  1. ;;9002226.02101,"1005,66105054506 ",.01)
  1. ;;66105054506
  1. ;;9002226.02101,"1005,66105054506 ",.02)
  1. ;;66105054506
  1. ;;9002226.02101,"1005,66105054509 ",.01)
  1. ;;66105054509
  1. ;;9002226.02101,"1005,66105054509 ",.02)
  1. ;;66105054509
  1. ;;9002226.02101,"1005,66105054510 ",.01)
  1. ;;66105054510
  1. ;;9002226.02101,"1005,66105054510 ",.02)
  1. ;;66105054510
  1. ;;9002226.02101,"1005,66105054609 ",.01)
  1. ;;66105054609
  1. ;;9002226.02101,"1005,66105054609 ",.02)
  1. ;;66105054609
  1. ;;9002226.02101,"1005,66105054803 ",.01)
  1. ;;66105054803
  1. ;;9002226.02101,"1005,66105054803 ",.02)
  1. ;;66105054803
  1. ;;9002226.02101,"1005,66105055510 ",.01)
  1. ;;66105055510
  1. ;;9002226.02101,"1005,66105055510 ",.02)
  1. ;;66105055510
  1. ;;9002226.02101,"1005,66105066602 ",.01)
  1. ;;66105066602
  1. ;;9002226.02101,"1005,66105066602 ",.02)
  1. ;;66105066602
  1. ;;9002226.02101,"1005,66105066603 ",.01)
  1. ;;66105066603
  1. ;;9002226.02101,"1005,66105066603 ",.02)
  1. ;;66105066603
  1. ;;9002226.02101,"1005,66105066606 ",.01)
  1. ;;66105066606
  1. ;;9002226.02101,"1005,66105066606 ",.02)
  1. ;;66105066606
  1. ;;9002226.02101,"1005,66105066609 ",.01)
  1. ;;66105066609
  1. ;;9002226.02101,"1005,66105066609 ",.02)
  1. ;;66105066609
  1. ;;9002226.02101,"1005,66105066610 ",.01)
  1. ;;66105066610
  1. ;;9002226.02101,"1005,66105066610 ",.02)
  1. ;;66105066610
  1. ;;9002226.02101,"1005,66105069402 ",.01)
  1. ;;66105069402
  1. ;;9002226.02101,"1005,66105069402 ",.02)
  1. ;;66105069402
  1. ;;9002226.02101,"1005,66105069403 ",.01)
  1. ;;66105069403
  1. ;;9002226.02101,"1005,66105069403 ",.02)
  1. ;;66105069403
  1. ;;9002226.02101,"1005,66105069406 ",.01)
  1. ;;66105069406
  1. ;;9002226.02101,"1005,66105069406 ",.02)
  1. ;;66105069406
  1. ;;9002226.02101,"1005,66105069409 ",.01)
  1. ;;66105069409
  1. ;;9002226.02101,"1005,66105069409 ",.02)
  1. ;;66105069409
  1. ;;9002226.02101,"1005,66105069410 ",.01)
  1. ;;66105069410
  1. ;;9002226.02101,"1005,66105069410 ",.02)
  1. ;;66105069410
  1. ;;9002226.02101,"1005,66105069502 ",.01)
  1. ;;66105069502
  1. ;;9002226.02101,"1005,66105069502 ",.02)
  1. ;;66105069502
  1. ;;9002226.02101,"1005,66105069503 ",.01)
  1. ;;66105069503
  1. ;;9002226.02101,"1005,66105069503 ",.02)
  1. ;;66105069503
  1. ;;9002226.02101,"1005,66105069506 ",.01)
  1. ;;66105069506
  1. ;;9002226.02101,"1005,66105069506 ",.02)
  1. ;;66105069506
  1. ;;9002226.02101,"1005,66105069509 ",.01)
  1. ;;66105069509
  1. ;;9002226.02101,"1005,66105069509 ",.02)
  1. ;;66105069509
  1. ;;9002226.02101,"1005,66105069510 ",.01)
  1. ;;66105069510
  1. ;;9002226.02101,"1005,66105069510 ",.02)
  1. ;;66105069510
  1. ;;9002226.02101,"1005,66105078223 ",.01)
  1. ;;66105078223
  1. ;;9002226.02101,"1005,66105078223 ",.02)
  1. ;;66105078223
  1. ;;9002226.02101,"1005,66105078823 ",.01)
  1. ;;66105078823
  1. ;;9002226.02101,"1005,66105078823 ",.02)
  1. ;;66105078823
  1. ;;9002226.02101,"1005,66105084203 ",.01)
  1. ;;66105084203
  1. ;;9002226.02101,"1005,66105084203 ",.02)
  1. ;;66105084203
  1. ;;9002226.02101,"1005,66105084206 ",.01)
  1. ;;66105084206
  1. ;;9002226.02101,"1005,66105084206 ",.02)
  1. ;;66105084206
  1. ;;9002226.02101,"1005,66105084209 ",.01)
  1. ;;66105084209
  1. ;;9002226.02101,"1005,66105084209 ",.02)
  1. ;;66105084209
  1. ;;9002226.02101,"1005,66105084210 ",.01)
  1. ;;66105084210
  1. ;;9002226.02101,"1005,66105084210 ",.02)
  1. ;;66105084210
  1. ;;9002226.02101,"1005,66105084228 ",.01)
  1. ;;66105084228
  1. ;;9002226.02101,"1005,66105084228 ",.02)
  1. ;;66105084228
  1. ;;9002226.02101,"1005,66116027930 ",.01)
  1. ;;66116027930
  1. ;;9002226.02101,"1005,66116027930 ",.02)
  1. ;;66116027930
  1. ;;9002226.02101,"1005,66116030030 ",.01)
  1. ;;66116030030
  1. ;;9002226.02101,"1005,66116030030 ",.02)
  1. ;;66116030030
  1. ;;9002226.02101,"1005,66116030430 ",.01)
  1. ;;66116030430
  1. ;;9002226.02101,"1005,66116030430 ",.02)
  1. ;;66116030430
  1. ;;9002226.02101,"1005,66116031030 ",.01)
  1. ;;66116031030
  1. ;;9002226.02101,"1005,66116031030 ",.02)
  1. ;;66116031030
  1. ;;9002226.02101,"1005,66116032530 ",.01)
  1. ;;66116032530
  1. ;;9002226.02101,"1005,66116032530 ",.02)
  1. ;;66116032530
  1. ;;9002226.02101,"1005,66116032630 ",.01)
  1. ;;66116032630
  1. ;;9002226.02101,"1005,66116032630 ",.02)
  1. ;;66116032630
  1. ;;9002226.02101,"1005,66116050030 ",.01)
  1. ;;66116050030
  1. ;;9002226.02101,"1005,66116050030 ",.02)
  1. ;;66116050030
  1. ;;9002226.02101,"1005,66116050230 ",.01)
  1. ;;66116050230
  1. ;;9002226.02101,"1005,66116050230 ",.02)
  1. ;;66116050230
  1. ;;9002226.02101,"1005,66116071830 ",.01)
  1. ;;66116071830
  1. ;;9002226.02101,"1005,66116071830 ",.02)
  1. ;;66116071830
  1. ;;9002226.02101,"1005,66116081330 ",.01)
  1. ;;66116081330
  1. ;;9002226.02101,"1005,66116081330 ",.02)
  1. ;;66116081330
  1. ;;9002226.02101,"1005,66116081930 ",.01)
  1. ;;66116081930
  1. ;;9002226.02101,"1005,66116081930 ",.02)
  1. ;;66116081930
  1. ;;9002226.02101,"1005,66116082930 ",.01)
  1. ;;66116082930
  1. ;;9002226.02101,"1005,66116082930 ",.02)
  1. ;;66116082930
  1. ;;9002226.02101,"1005,66116083030 ",.01)
  1. ;;66116083030
  1. ;;9002226.02101,"1005,66116083030 ",.02)
  1. ;;66116083030
  1. ;;9002226.02101,"1005,66116083130 ",.01)
  1. ;;66116083130
  1. ;;9002226.02101,"1005,66116083130 ",.02)
  1. ;;66116083130
  1. ;;9002226.02101,"1005,66116086130 ",.01)
  1. ;;66116086130
  1. ;;9002226.02101,"1005,66116086130 ",.02)
  1. ;;66116086130
  1. ;;9002226.02101,"1005,66116087230 ",.01)
  1. ;;66116087230
  1. ;;9002226.02101,"1005,66116087230 ",.02)
  1. ;;66116087230
  1. ;;9002226.02101,"1005,66116087430 ",.01)
  1. ;;66116087430
  1. ;;9002226.02101,"1005,66116087430 ",.02)
  1. ;;66116087430
  1. ;;9002226.02101,"1005,66267004020 ",.01)
  1. ;;66267004020
  1. ;;9002226.02101,"1005,66267004020 ",.02)
  1. ;;66267004020
  1. ;;9002226.02101,"1005,66267004030 ",.01)
  1. ;;66267004030
  1. ;;9002226.02101,"1005,66267004030 ",.02)
  1. ;;66267004030
  1. ;;9002226.02101,"1005,66267004040 ",.01)
  1. ;;66267004040
  1. ;;9002226.02101,"1005,66267004040 ",.02)
  1. ;;66267004040
  1. ;;9002226.02101,"1005,66267004060 ",.01)
  1. ;;66267004060
  1. ;;9002226.02101,"1005,66267004060 ",.02)
  1. ;;66267004060
  1. ;;9002226.02101,"1005,66267004090 ",.01)
  1. ;;66267004090