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

BGPM5AFJ.m

Go to the documentation of this file.
  1. BGPM5AFJ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"881,65862004400 ",.01)
  1. ;;65862004400
  1. ;;9002226.02101,"881,65862004400 ",.02)
  1. ;;65862004400
  1. ;;9002226.02101,"881,65862004401 ",.01)
  1. ;;65862004401
  1. ;;9002226.02101,"881,65862004401 ",.02)
  1. ;;65862004401
  1. ;;9002226.02101,"881,65862004405 ",.01)
  1. ;;65862004405
  1. ;;9002226.02101,"881,65862004405 ",.02)
  1. ;;65862004405
  1. ;;9002226.02101,"881,65862004430 ",.01)
  1. ;;65862004430
  1. ;;9002226.02101,"881,65862004430 ",.02)
  1. ;;65862004430
  1. ;;9002226.02101,"881,65862004459 ",.01)
  1. ;;65862004459
  1. ;;9002226.02101,"881,65862004459 ",.02)
  1. ;;65862004459
  1. ;;9002226.02101,"881,65862004499 ",.01)
  1. ;;65862004499
  1. ;;9002226.02101,"881,65862004499 ",.02)
  1. ;;65862004499
  1. ;;9002226.02101,"881,65862004500 ",.01)
  1. ;;65862004500
  1. ;;9002226.02101,"881,65862004500 ",.02)
  1. ;;65862004500
  1. ;;9002226.02101,"881,65862004501 ",.01)
  1. ;;65862004501
  1. ;;9002226.02101,"881,65862004501 ",.02)
  1. ;;65862004501
  1. ;;9002226.02101,"881,65862004505 ",.01)
  1. ;;65862004505
  1. ;;9002226.02101,"881,65862004505 ",.02)
  1. ;;65862004505
  1. ;;9002226.02101,"881,65862004530 ",.01)
  1. ;;65862004530
  1. ;;9002226.02101,"881,65862004530 ",.02)
  1. ;;65862004530
  1. ;;9002226.02101,"881,65862004559 ",.01)
  1. ;;65862004559
  1. ;;9002226.02101,"881,65862004559 ",.02)
  1. ;;65862004559
  1. ;;9002226.02101,"881,65862004599 ",.01)
  1. ;;65862004599
  1. ;;9002226.02101,"881,65862004599 ",.02)
  1. ;;65862004599
  1. ;;9002226.02101,"881,65862016171 ",.01)
  1. ;;65862016171
  1. ;;9002226.02101,"881,65862016171 ",.02)
  1. ;;65862016171
  1. ;;9002226.02101,"881,65862016190 ",.01)
  1. ;;65862016190
  1. ;;9002226.02101,"881,65862016190 ",.02)
  1. ;;65862016190
  1. ;;9002226.02101,"881,65862016230 ",.01)
  1. ;;65862016230
  1. ;;9002226.02101,"881,65862016230 ",.02)
  1. ;;65862016230
  1. ;;9002226.02101,"881,65862016259 ",.01)
  1. ;;65862016259
  1. ;;9002226.02101,"881,65862016259 ",.02)
  1. ;;65862016259
  1. ;;9002226.02101,"881,65862016290 ",.01)
  1. ;;65862016290
  1. ;;9002226.02101,"881,65862016290 ",.02)
  1. ;;65862016290
  1. ;;9002226.02101,"881,65862016359 ",.01)
  1. ;;65862016359
  1. ;;9002226.02101,"881,65862016359 ",.02)
  1. ;;65862016359
  1. ;;9002226.02101,"881,65862016390 ",.01)
  1. ;;65862016390
  1. ;;9002226.02101,"881,65862016390 ",.02)
  1. ;;65862016390
  1. ;;9002226.02101,"881,65862016401 ",.01)
  1. ;;65862016401
  1. ;;9002226.02101,"881,65862016401 ",.02)
  1. ;;65862016401
  1. ;;9002226.02101,"881,65862016453 ",.01)
  1. ;;65862016453
  1. ;;9002226.02101,"881,65862016453 ",.02)
  1. ;;65862016453
  1. ;;9002226.02101,"881,65862016499 ",.01)
  1. ;;65862016499
  1. ;;9002226.02101,"881,65862016499 ",.02)
  1. ;;65862016499
  1. ;;9002226.02101,"881,65862016501 ",.01)
  1. ;;65862016501
  1. ;;9002226.02101,"881,65862016501 ",.02)
  1. ;;65862016501
  1. ;;9002226.02101,"881,65862016581 ",.01)
  1. ;;65862016581
  1. ;;9002226.02101,"881,65862016581 ",.02)
  1. ;;65862016581
  1. ;;9002226.02101,"881,65862016599 ",.01)
  1. ;;65862016599
  1. ;;9002226.02101,"881,65862016599 ",.02)
  1. ;;65862016599
  1. ;;9002226.02101,"881,65862028601 ",.01)
  1. ;;65862028601
  1. ;;9002226.02101,"881,65862028601 ",.02)
  1. ;;65862028601
  1. ;;9002226.02101,"881,65862028653 ",.01)
  1. ;;65862028653
  1. ;;9002226.02101,"881,65862028653 ",.02)
  1. ;;65862028653
  1. ;;9002226.02101,"881,65862028701 ",.01)
  1. ;;65862028701
  1. ;;9002226.02101,"881,65862028701 ",.02)
  1. ;;65862028701
  1. ;;9002226.02101,"881,65862028719 ",.01)
  1. ;;65862028719
  1. ;;9002226.02101,"881,65862028719 ",.02)
  1. ;;65862028719
  1. ;;9002226.02101,"881,65862028801 ",.01)
  1. ;;65862028801
  1. ;;9002226.02101,"881,65862028801 ",.02)
  1. ;;65862028801
  1. ;;9002226.02101,"881,65862028859 ",.01)
  1. ;;65862028859
  1. ;;9002226.02101,"881,65862028859 ",.02)
  1. ;;65862028859
  1. ;;9002226.02101,"881,65862030801 ",.01)
  1. ;;65862030801
  1. ;;9002226.02101,"881,65862030801 ",.02)
  1. ;;65862030801
  1. ;;9002226.02101,"881,65862030830 ",.01)
  1. ;;65862030830
  1. ;;9002226.02101,"881,65862030830 ",.02)
  1. ;;65862030830
  1. ;;9002226.02101,"881,65862030849 ",.01)
  1. ;;65862030849
  1. ;;9002226.02101,"881,65862030849 ",.02)
  1. ;;65862030849
  1. ;;9002226.02101,"881,65862030899 ",.01)
  1. ;;65862030899
  1. ;;9002226.02101,"881,65862030899 ",.02)
  1. ;;65862030899
  1. ;;9002226.02101,"881,65862030901 ",.01)
  1. ;;65862030901
  1. ;;9002226.02101,"881,65862030901 ",.02)
  1. ;;65862030901
  1. ;;9002226.02101,"881,65862030926 ",.01)
  1. ;;65862030926
  1. ;;9002226.02101,"881,65862030926 ",.02)
  1. ;;65862030926
  1. ;;9002226.02101,"881,65862030930 ",.01)
  1. ;;65862030930
  1. ;;9002226.02101,"881,65862030930 ",.02)
  1. ;;65862030930
  1. ;;9002226.02101,"881,65862030999 ",.01)
  1. ;;65862030999
  1. ;;9002226.02101,"881,65862030999 ",.02)
  1. ;;65862030999
  1. ;;9002226.02101,"881,65862047130 ",.01)
  1. ;;65862047130
  1. ;;9002226.02101,"881,65862047130 ",.02)
  1. ;;65862047130
  1. ;;9002226.02101,"881,65862047149 ",.01)
  1. ;;65862047149
  1. ;;9002226.02101,"881,65862047149 ",.02)
  1. ;;65862047149
  1. ;;9002226.02101,"881,65862047190 ",.01)
  1. ;;65862047190
  1. ;;9002226.02101,"881,65862047190 ",.02)
  1. ;;65862047190
  1. ;;9002226.02101,"881,65862047199 ",.01)
  1. ;;65862047199
  1. ;;9002226.02101,"881,65862047199 ",.02)
  1. ;;65862047199
  1. ;;9002226.02101,"881,65862047230 ",.01)
  1. ;;65862047230
  1. ;;9002226.02101,"881,65862047230 ",.02)
  1. ;;65862047230
  1. ;;9002226.02101,"881,65862047239 ",.01)
  1. ;;65862047239
  1. ;;9002226.02101,"881,65862047239 ",.02)
  1. ;;65862047239
  1. ;;9002226.02101,"881,65862047290 ",.01)
  1. ;;65862047290
  1. ;;9002226.02101,"881,65862047290 ",.02)
  1. ;;65862047290
  1. ;;9002226.02101,"881,65862047299 ",.01)
  1. ;;65862047299
  1. ;;9002226.02101,"881,65862047299 ",.02)
  1. ;;65862047299
  1. ;;9002226.02101,"881,65862047322 ",.01)
  1. ;;65862047322
  1. ;;9002226.02101,"881,65862047322 ",.02)
  1. ;;65862047322
  1. ;;9002226.02101,"881,65862047330 ",.01)
  1. ;;65862047330
  1. ;;9002226.02101,"881,65862047330 ",.02)
  1. ;;65862047330
  1. ;;9002226.02101,"881,65862047390 ",.01)
  1. ;;65862047390
  1. ;;9002226.02101,"881,65862047390 ",.02)
  1. ;;65862047390
  1. ;;9002226.02101,"881,65862047399 ",.01)
  1. ;;65862047399
  1. ;;9002226.02101,"881,65862047399 ",.02)
  1. ;;65862047399
  1. ;;9002226.02101,"881,65862047401 ",.01)
  1. ;;65862047401
  1. ;;9002226.02101,"881,65862047401 ",.02)
  1. ;;65862047401
  1. ;;9002226.02101,"881,65862047410 ",.01)
  1. ;;65862047410
  1. ;;9002226.02101,"881,65862047410 ",.02)
  1. ;;65862047410
  1. ;;9002226.02101,"881,65862047430 ",.01)
  1. ;;65862047430
  1. ;;9002226.02101,"881,65862047430 ",.02)
  1. ;;65862047430
  1. ;;9002226.02101,"881,65862047449 ",.01)
  1. ;;65862047449
  1. ;;9002226.02101,"881,65862047449 ",.02)
  1. ;;65862047449
  1. ;;9002226.02101,"881,65862047499 ",.01)
  1. ;;65862047499
  1. ;;9002226.02101,"881,65862047499 ",.02)
  1. ;;65862047499
  1. ;;9002226.02101,"881,65862047501 ",.01)
  1. ;;65862047501
  1. ;;9002226.02101,"881,65862047501 ",.02)
  1. ;;65862047501
  1. ;;9002226.02101,"881,65862047510 ",.01)
  1. ;;65862047510
  1. ;;9002226.02101,"881,65862047510 ",.02)
  1. ;;65862047510
  1. ;;9002226.02101,"881,65862047530 ",.01)
  1. ;;65862047530
  1. ;;9002226.02101,"881,65862047530 ",.02)
  1. ;;65862047530
  1. ;;9002226.02101,"881,65862047549 ",.01)
  1. ;;65862047549
  1. ;;9002226.02101,"881,65862047549 ",.02)
  1. ;;65862047549
  1. ;;9002226.02101,"881,65862047599 ",.01)
  1. ;;65862047599
  1. ;;9002226.02101,"881,65862047599 ",.02)
  1. ;;65862047599
  1. ;;9002226.02101,"881,65862047601 ",.01)
  1. ;;65862047601
  1. ;;9002226.02101,"881,65862047601 ",.02)
  1. ;;65862047601
  1. ;;9002226.02101,"881,65862047610 ",.01)
  1. ;;65862047610
  1. ;;9002226.02101,"881,65862047610 ",.02)
  1. ;;65862047610
  1. ;;9002226.02101,"881,65862047630 ",.01)
  1. ;;65862047630
  1. ;;9002226.02101,"881,65862047630 ",.02)
  1. ;;65862047630
  1. ;;9002226.02101,"881,65862047649 ",.01)
  1. ;;65862047649
  1. ;;9002226.02101,"881,65862047649 ",.02)
  1. ;;65862047649
  1. ;;9002226.02101,"881,65862047699 ",.01)
  1. ;;65862047699
  1. ;;9002226.02101,"881,65862047699 ",.02)
  1. ;;65862047699
  1. ;;9002226.02101,"881,65862047701 ",.01)
  1. ;;65862047701
  1. ;;9002226.02101,"881,65862047701 ",.02)
  1. ;;65862047701
  1. ;;9002226.02101,"881,65862047710 ",.01)
  1. ;;65862047710
  1. ;;9002226.02101,"881,65862047710 ",.02)
  1. ;;65862047710
  1. ;;9002226.02101,"881,65862047730 ",.01)
  1. ;;65862047730
  1. ;;9002226.02101,"881,65862047730 ",.02)
  1. ;;65862047730
  1. ;;9002226.02101,"881,65862047749 ",.01)
  1. ;;65862047749
  1. ;;9002226.02101,"881,65862047749 ",.02)
  1. ;;65862047749
  1. ;;9002226.02101,"881,65862047799 ",.01)
  1. ;;65862047799
  1. ;;9002226.02101,"881,65862047799 ",.02)
  1. ;;65862047799
  1. ;;9002226.02101,"881,66105066602 ",.01)
  1. ;;66105066602
  1. ;;9002226.02101,"881,66105066602 ",.02)
  1. ;;66105066602
  1. ;;9002226.02101,"881,66105066603 ",.01)
  1. ;;66105066603
  1. ;;9002226.02101,"881,66105066603 ",.02)
  1. ;;66105066603
  1. ;;9002226.02101,"881,66105066606 ",.01)
  1. ;;66105066606
  1. ;;9002226.02101,"881,66105066606 ",.02)
  1. ;;66105066606
  1. ;;9002226.02101,"881,66105066609 ",.01)
  1. ;;66105066609
  1. ;;9002226.02101,"881,66105066609 ",.02)
  1. ;;66105066609
  1. ;;9002226.02101,"881,66105066610 ",.01)
  1. ;;66105066610
  1. ;;9002226.02101,"881,66105066610 ",.02)
  1. ;;66105066610
  1. ;;9002226.02101,"881,66105069402 ",.01)
  1. ;;66105069402
  1. ;;9002226.02101,"881,66105069402 ",.02)
  1. ;;66105069402
  1. ;;9002226.02101,"881,66105069403 ",.01)
  1. ;;66105069403
  1. ;;9002226.02101,"881,66105069403 ",.02)
  1. ;;66105069403
  1. ;;9002226.02101,"881,66105069406 ",.01)
  1. ;;66105069406
  1. ;;9002226.02101,"881,66105069406 ",.02)
  1. ;;66105069406
  1. ;;9002226.02101,"881,66105069409 ",.01)
  1. ;;66105069409
  1. ;;9002226.02101,"881,66105069409 ",.02)
  1. ;;66105069409
  1. ;;9002226.02101,"881,66105069410 ",.01)
  1. ;;66105069410
  1. ;;9002226.02101,"881,66105069410 ",.02)
  1. ;;66105069410
  1. ;;9002226.02101,"881,66105069502 ",.01)
  1. ;;66105069502
  1. ;;9002226.02101,"881,66105069502 ",.02)
  1. ;;66105069502
  1. ;;9002226.02101,"881,66105069503 ",.01)
  1. ;;66105069503
  1. ;;9002226.02101,"881,66105069503 ",.02)
  1. ;;66105069503
  1. ;;9002226.02101,"881,66105069506 ",.01)
  1. ;;66105069506
  1. ;;9002226.02101,"881,66105069506 ",.02)
  1. ;;66105069506
  1. ;;9002226.02101,"881,66105069509 ",.01)
  1. ;;66105069509
  1. ;;9002226.02101,"881,66105069509 ",.02)
  1. ;;66105069509
  1. ;;9002226.02101,"881,66105069510 ",.01)
  1. ;;66105069510
  1. ;;9002226.02101,"881,66105069510 ",.02)
  1. ;;66105069510
  1. ;;9002226.02101,"881,66105078223 ",.01)
  1. ;;66105078223
  1. ;;9002226.02101,"881,66105078223 ",.02)
  1. ;;66105078223
  1. ;;9002226.02101,"881,66116030030 ",.01)
  1. ;;66116030030
  1. ;;9002226.02101,"881,66116030030 ",.02)
  1. ;;66116030030
  1. ;;9002226.02101,"881,66116030430 ",.01)
  1. ;;66116030430
  1. ;;9002226.02101,"881,66116030430 ",.02)
  1. ;;66116030430
  1. ;;9002226.02101,"881,66116031030 ",.01)
  1. ;;66116031030
  1. ;;9002226.02101,"881,66116031030 ",.02)
  1. ;;66116031030
  1. ;;9002226.02101,"881,66116032530 ",.01)
  1. ;;66116032530
  1. ;;9002226.02101,"881,66116032530 ",.02)
  1. ;;66116032530
  1. ;;9002226.02101,"881,66116032630 ",.01)
  1. ;;66116032630
  1. ;;9002226.02101,"881,66116032630 ",.02)
  1. ;;66116032630
  1. ;;9002226.02101,"881,66116050030 ",.01)
  1. ;;66116050030
  1. ;;9002226.02101,"881,66116050030 ",.02)
  1. ;;66116050030
  1. ;;9002226.02101,"881,66116050230 ",.01)
  1. ;;66116050230
  1. ;;9002226.02101,"881,66116050230 ",.02)
  1. ;;66116050230
  1. ;;9002226.02101,"881,66116071830 ",.01)
  1. ;;66116071830
  1. ;;9002226.02101,"881,66116071830 ",.02)
  1. ;;66116071830
  1. ;;9002226.02101,"881,66116081330 ",.01)
  1. ;;66116081330
  1. ;;9002226.02101,"881,66116081330 ",.02)
  1. ;;66116081330
  1. ;;9002226.02101,"881,66116081930 ",.01)
  1. ;;66116081930
  1. ;;9002226.02101,"881,66116081930 ",.02)
  1. ;;66116081930
  1. ;;9002226.02101,"881,66116082930 ",.01)
  1. ;;66116082930
  1. ;;9002226.02101,"881,66116082930 ",.02)
  1. ;;66116082930
  1. ;;9002226.02101,"881,66116083030 ",.01)
  1. ;;66116083030
  1. ;;9002226.02101,"881,66116083030 ",.02)
  1. ;;66116083030
  1. ;;9002226.02101,"881,66116083130 ",.01)
  1. ;;66116083130
  1. ;;9002226.02101,"881,66116083130 ",.02)
  1. ;;66116083130
  1. ;;9002226.02101,"881,66116086130 ",.01)
  1. ;;66116086130
  1. ;;9002226.02101,"881,66116086130 ",.02)
  1. ;;66116086130
  1. ;;9002226.02101,"881,66116087230 ",.01)
  1. ;;66116087230
  1. ;;9002226.02101,"881,66116087230 ",.02)
  1. ;;66116087230