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

BGPM5AQN.m

Go to the documentation of this file.
  1. BGPM5AQN ;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,00186003228 ",.02)
  1. ;;00186003228
  1. ;;9002226.02101,"1005,00186003231 ",.01)
  1. ;;00186003231
  1. ;;9002226.02101,"1005,00186003231 ",.02)
  1. ;;00186003231
  1. ;;9002226.02101,"1005,00186003254 ",.01)
  1. ;;00186003254
  1. ;;9002226.02101,"1005,00186003254 ",.02)
  1. ;;00186003254
  1. ;;9002226.02101,"1005,00186016228 ",.01)
  1. ;;00186016228
  1. ;;9002226.02101,"1005,00186016228 ",.02)
  1. ;;00186016228
  1. ;;9002226.02101,"1005,00186016254 ",.01)
  1. ;;00186016254
  1. ;;9002226.02101,"1005,00186016254 ",.02)
  1. ;;00186016254
  1. ;;9002226.02101,"1005,00186032228 ",.01)
  1. ;;00186032228
  1. ;;9002226.02101,"1005,00186032228 ",.02)
  1. ;;00186032228
  1. ;;9002226.02101,"1005,00186032254 ",.01)
  1. ;;00186032254
  1. ;;9002226.02101,"1005,00186032254 ",.02)
  1. ;;00186032254
  1. ;;9002226.02101,"1005,00228270603 ",.01)
  1. ;;00228270603
  1. ;;9002226.02101,"1005,00228270603 ",.02)
  1. ;;00228270603
  1. ;;9002226.02101,"1005,00228270611 ",.01)
  1. ;;00228270611
  1. ;;9002226.02101,"1005,00228270611 ",.02)
  1. ;;00228270611
  1. ;;9002226.02101,"1005,00228270650 ",.01)
  1. ;;00228270650
  1. ;;9002226.02101,"1005,00228270650 ",.02)
  1. ;;00228270650
  1. ;;9002226.02101,"1005,00228270696 ",.01)
  1. ;;00228270696
  1. ;;9002226.02101,"1005,00228270696 ",.02)
  1. ;;00228270696
  1. ;;9002226.02101,"1005,00228270703 ",.01)
  1. ;;00228270703
  1. ;;9002226.02101,"1005,00228270703 ",.02)
  1. ;;00228270703
  1. ;;9002226.02101,"1005,00228270711 ",.01)
  1. ;;00228270711
  1. ;;9002226.02101,"1005,00228270711 ",.02)
  1. ;;00228270711
  1. ;;9002226.02101,"1005,00228270750 ",.01)
  1. ;;00228270750
  1. ;;9002226.02101,"1005,00228270750 ",.02)
  1. ;;00228270750
  1. ;;9002226.02101,"1005,00228270796 ",.01)
  1. ;;00228270796
  1. ;;9002226.02101,"1005,00228270796 ",.02)
  1. ;;00228270796
  1. ;;9002226.02101,"1005,00228270803 ",.01)
  1. ;;00228270803
  1. ;;9002226.02101,"1005,00228270803 ",.02)
  1. ;;00228270803
  1. ;;9002226.02101,"1005,00228270811 ",.01)
  1. ;;00228270811
  1. ;;9002226.02101,"1005,00228270811 ",.02)
  1. ;;00228270811
  1. ;;9002226.02101,"1005,00228270850 ",.01)
  1. ;;00228270850
  1. ;;9002226.02101,"1005,00228270850 ",.02)
  1. ;;00228270850
  1. ;;9002226.02101,"1005,00228270896 ",.01)
  1. ;;00228270896
  1. ;;9002226.02101,"1005,00228270896 ",.02)
  1. ;;00228270896
  1. ;;9002226.02101,"1005,00247057802 ",.01)
  1. ;;00247057802
  1. ;;9002226.02101,"1005,00247057802 ",.02)
  1. ;;00247057802
  1. ;;9002226.02101,"1005,00247057803 ",.01)
  1. ;;00247057803
  1. ;;9002226.02101,"1005,00247057803 ",.02)
  1. ;;00247057803
  1. ;;9002226.02101,"1005,00247057830 ",.01)
  1. ;;00247057830
  1. ;;9002226.02101,"1005,00247057830 ",.02)
  1. ;;00247057830
  1. ;;9002226.02101,"1005,00247057845 ",.01)
  1. ;;00247057845
  1. ;;9002226.02101,"1005,00247057845 ",.02)
  1. ;;00247057845
  1. ;;9002226.02101,"1005,00247057903 ",.01)
  1. ;;00247057903
  1. ;;9002226.02101,"1005,00247057903 ",.02)
  1. ;;00247057903
  1. ;;9002226.02101,"1005,00247057930 ",.01)
  1. ;;00247057930
  1. ;;9002226.02101,"1005,00247057930 ",.02)
  1. ;;00247057930
  1. ;;9002226.02101,"1005,00247102359 ",.01)
  1. ;;00247102359
  1. ;;9002226.02101,"1005,00247102359 ",.02)
  1. ;;00247102359
  1. ;;9002226.02101,"1005,00247102377 ",.01)
  1. ;;00247102377
  1. ;;9002226.02101,"1005,00247102377 ",.02)
  1. ;;00247102377
  1. ;;9002226.02101,"1005,00247102379 ",.01)
  1. ;;00247102379
  1. ;;9002226.02101,"1005,00247102379 ",.02)
  1. ;;00247102379
  1. ;;9002226.02101,"1005,00247102395 ",.01)
  1. ;;00247102395
  1. ;;9002226.02101,"1005,00247102395 ",.02)
  1. ;;00247102395
  1. ;;9002226.02101,"1005,00247109103 ",.01)
  1. ;;00247109103
  1. ;;9002226.02101,"1005,00247109103 ",.02)
  1. ;;00247109103
  1. ;;9002226.02101,"1005,00247113130 ",.01)
  1. ;;00247113130
  1. ;;9002226.02101,"1005,00247113130 ",.02)
  1. ;;00247113130
  1. ;;9002226.02101,"1005,00247113160 ",.01)
  1. ;;00247113160
  1. ;;9002226.02101,"1005,00247113160 ",.02)
  1. ;;00247113160
  1. ;;9002226.02101,"1005,00247113230 ",.01)
  1. ;;00247113230
  1. ;;9002226.02101,"1005,00247113230 ",.02)
  1. ;;00247113230
  1. ;;9002226.02101,"1005,00247113260 ",.01)
  1. ;;00247113260
  1. ;;9002226.02101,"1005,00247113260 ",.02)
  1. ;;00247113260
  1. ;;9002226.02101,"1005,00247114810 ",.01)
  1. ;;00247114810
  1. ;;9002226.02101,"1005,00247114810 ",.02)
  1. ;;00247114810
  1. ;;9002226.02101,"1005,00247127700 ",.01)
  1. ;;00247127700
  1. ;;9002226.02101,"1005,00247127700 ",.02)
  1. ;;00247127700
  1. ;;9002226.02101,"1005,00247138014 ",.01)
  1. ;;00247138014
  1. ;;9002226.02101,"1005,00247138014 ",.02)
  1. ;;00247138014
  1. ;;9002226.02101,"1005,00247143904 ",.01)
  1. ;;00247143904
  1. ;;9002226.02101,"1005,00247143904 ",.02)
  1. ;;00247143904
  1. ;;9002226.02101,"1005,00247144004 ",.01)
  1. ;;00247144004
  1. ;;9002226.02101,"1005,00247144004 ",.02)
  1. ;;00247144004
  1. ;;9002226.02101,"1005,00247152530 ",.01)
  1. ;;00247152530
  1. ;;9002226.02101,"1005,00247152530 ",.02)
  1. ;;00247152530
  1. ;;9002226.02101,"1005,00247152559 ",.01)
  1. ;;00247152559
  1. ;;9002226.02101,"1005,00247152559 ",.02)
  1. ;;00247152559
  1. ;;9002226.02101,"1005,00247152590 ",.01)
  1. ;;00247152590
  1. ;;9002226.02101,"1005,00247152590 ",.02)
  1. ;;00247152590
  1. ;;9002226.02101,"1005,00247163530 ",.01)
  1. ;;00247163530
  1. ;;9002226.02101,"1005,00247163530 ",.02)
  1. ;;00247163530
  1. ;;9002226.02101,"1005,00247163600 ",.01)
  1. ;;00247163600
  1. ;;9002226.02101,"1005,00247163600 ",.02)
  1. ;;00247163600
  1. ;;9002226.02101,"1005,00247163601 ",.01)
  1. ;;00247163601
  1. ;;9002226.02101,"1005,00247163601 ",.02)
  1. ;;00247163601
  1. ;;9002226.02101,"1005,00247163614 ",.01)
  1. ;;00247163614
  1. ;;9002226.02101,"1005,00247163614 ",.02)
  1. ;;00247163614
  1. ;;9002226.02101,"1005,00247163630 ",.01)
  1. ;;00247163630
  1. ;;9002226.02101,"1005,00247163630 ",.02)
  1. ;;00247163630
  1. ;;9002226.02101,"1005,00247163660 ",.01)
  1. ;;00247163660
  1. ;;9002226.02101,"1005,00247163660 ",.02)
  1. ;;00247163660
  1. ;;9002226.02101,"1005,00247163690 ",.01)
  1. ;;00247163690
  1. ;;9002226.02101,"1005,00247163690 ",.02)
  1. ;;00247163690
  1. ;;9002226.02101,"1005,00247163699 ",.01)
  1. ;;00247163699
  1. ;;9002226.02101,"1005,00247163699 ",.02)
  1. ;;00247163699
  1. ;;9002226.02101,"1005,00247163700 ",.01)
  1. ;;00247163700
  1. ;;9002226.02101,"1005,00247163700 ",.02)
  1. ;;00247163700
  1. ;;9002226.02101,"1005,00247163730 ",.01)
  1. ;;00247163730
  1. ;;9002226.02101,"1005,00247163730 ",.02)
  1. ;;00247163730
  1. ;;9002226.02101,"1005,00247163760 ",.01)
  1. ;;00247163760
  1. ;;9002226.02101,"1005,00247163760 ",.02)
  1. ;;00247163760
  1. ;;9002226.02101,"1005,00247188102 ",.01)
  1. ;;00247188102
  1. ;;9002226.02101,"1005,00247188102 ",.02)
  1. ;;00247188102
  1. ;;9002226.02101,"1005,00247188105 ",.01)
  1. ;;00247188105
  1. ;;9002226.02101,"1005,00247188105 ",.02)
  1. ;;00247188105
  1. ;;9002226.02101,"1005,00247188130 ",.01)
  1. ;;00247188130
  1. ;;9002226.02101,"1005,00247188130 ",.02)
  1. ;;00247188130
  1. ;;9002226.02101,"1005,00247188160 ",.01)
  1. ;;00247188160
  1. ;;9002226.02101,"1005,00247188160 ",.02)
  1. ;;00247188160
  1. ;;9002226.02101,"1005,00247188230 ",.01)
  1. ;;00247188230
  1. ;;9002226.02101,"1005,00247188230 ",.02)
  1. ;;00247188230
  1. ;;9002226.02101,"1005,00247188260 ",.01)
  1. ;;00247188260
  1. ;;9002226.02101,"1005,00247188260 ",.02)
  1. ;;00247188260
  1. ;;9002226.02101,"1005,00247188299 ",.01)
  1. ;;00247188299
  1. ;;9002226.02101,"1005,00247188299 ",.02)
  1. ;;00247188299
  1. ;;9002226.02101,"1005,00247191930 ",.01)
  1. ;;00247191930
  1. ;;9002226.02101,"1005,00247191930 ",.02)
  1. ;;00247191930
  1. ;;9002226.02101,"1005,00247192030 ",.01)
  1. ;;00247192030
  1. ;;9002226.02101,"1005,00247192030 ",.02)
  1. ;;00247192030
  1. ;;9002226.02101,"1005,00247192130 ",.01)
  1. ;;00247192130
  1. ;;9002226.02101,"1005,00247192130 ",.02)
  1. ;;00247192130
  1. ;;9002226.02101,"1005,00247195530 ",.01)
  1. ;;00247195530
  1. ;;9002226.02101,"1005,00247195530 ",.02)
  1. ;;00247195530
  1. ;;9002226.02101,"1005,00247195560 ",.01)
  1. ;;00247195560
  1. ;;9002226.02101,"1005,00247195560 ",.02)
  1. ;;00247195560
  1. ;;9002226.02101,"1005,00247195590 ",.01)
  1. ;;00247195590
  1. ;;9002226.02101,"1005,00247195590 ",.02)
  1. ;;00247195590
  1. ;;9002226.02101,"1005,00247195630 ",.01)
  1. ;;00247195630
  1. ;;9002226.02101,"1005,00247195630 ",.02)
  1. ;;00247195630
  1. ;;9002226.02101,"1005,00247195660 ",.01)
  1. ;;00247195660
  1. ;;9002226.02101,"1005,00247195660 ",.02)
  1. ;;00247195660
  1. ;;9002226.02101,"1005,00247195690 ",.01)
  1. ;;00247195690
  1. ;;9002226.02101,"1005,00247195690 ",.02)
  1. ;;00247195690
  1. ;;9002226.02101,"1005,00247195730 ",.01)
  1. ;;00247195730
  1. ;;9002226.02101,"1005,00247195730 ",.02)
  1. ;;00247195730
  1. ;;9002226.02101,"1005,00247195760 ",.01)
  1. ;;00247195760
  1. ;;9002226.02101,"1005,00247195760 ",.02)
  1. ;;00247195760
  1. ;;9002226.02101,"1005,00247195790 ",.01)
  1. ;;00247195790
  1. ;;9002226.02101,"1005,00247195790 ",.02)
  1. ;;00247195790
  1. ;;9002226.02101,"1005,00247196200 ",.01)
  1. ;;00247196200
  1. ;;9002226.02101,"1005,00247196200 ",.02)
  1. ;;00247196200
  1. ;;9002226.02101,"1005,00247196230 ",.01)
  1. ;;00247196230
  1. ;;9002226.02101,"1005,00247196230 ",.02)
  1. ;;00247196230
  1. ;;9002226.02101,"1005,00247200106 ",.01)
  1. ;;00247200106
  1. ;;9002226.02101,"1005,00247200106 ",.02)
  1. ;;00247200106
  1. ;;9002226.02101,"1005,00247200130 ",.01)
  1. ;;00247200130
  1. ;;9002226.02101,"1005,00247200130 ",.02)
  1. ;;00247200130
  1. ;;9002226.02101,"1005,00247202100 ",.01)
  1. ;;00247202100
  1. ;;9002226.02101,"1005,00247202100 ",.02)
  1. ;;00247202100
  1. ;;9002226.02101,"1005,00247202130 ",.01)
  1. ;;00247202130
  1. ;;9002226.02101,"1005,00247202130 ",.02)
  1. ;;00247202130
  1. ;;9002226.02101,"1005,00247202160 ",.01)
  1. ;;00247202160
  1. ;;9002226.02101,"1005,00247202160 ",.02)
  1. ;;00247202160
  1. ;;9002226.02101,"1005,00247205830 ",.01)
  1. ;;00247205830
  1. ;;9002226.02101,"1005,00247205830 ",.02)
  1. ;;00247205830
  1. ;;9002226.02101,"1005,00247210700 ",.01)
  1. ;;00247210700
  1. ;;9002226.02101,"1005,00247210700 ",.02)
  1. ;;00247210700
  1. ;;9002226.02101,"1005,00247210730 ",.01)
  1. ;;00247210730
  1. ;;9002226.02101,"1005,00247210730 ",.02)
  1. ;;00247210730
  1. ;;9002226.02101,"1005,00247210760 ",.01)
  1. ;;00247210760
  1. ;;9002226.02101,"1005,00247210760 ",.02)
  1. ;;00247210760
  1. ;;9002226.02101,"1005,00247210779 ",.01)
  1. ;;00247210779
  1. ;;9002226.02101,"1005,00247210779 ",.02)
  1. ;;00247210779
  1. ;;9002226.02101,"1005,00247210790 ",.01)
  1. ;;00247210790
  1. ;;9002226.02101,"1005,00247210790 ",.02)
  1. ;;00247210790
  1. ;;9002226.02101,"1005,00247215530 ",.01)
  1. ;;00247215530
  1. ;;9002226.02101,"1005,00247215530 ",.02)
  1. ;;00247215530
  1. ;;9002226.02101,"1005,00247215560 ",.01)
  1. ;;00247215560
  1. ;;9002226.02101,"1005,00247215560 ",.02)
  1. ;;00247215560
  1. ;;9002226.02101,"1005,00247215590 ",.01)
  1. ;;00247215590
  1. ;;9002226.02101,"1005,00247215590 ",.02)
  1. ;;00247215590
  1. ;;9002226.02101,"1005,00247217130 ",.01)
  1. ;;00247217130
  1. ;;9002226.02101,"1005,00247217130 ",.02)
  1. ;;00247217130
  1. ;;9002226.02101,"1005,00247223700 ",.01)
  1. ;;00247223700
  1. ;;9002226.02101,"1005,00247223700 ",.02)
  1. ;;00247223700
  1. ;;9002226.02101,"1005,00247223730 ",.01)
  1. ;;00247223730
  1. ;;9002226.02101,"1005,00247223730 ",.02)
  1. ;;00247223730
  1. ;;9002226.02101,"1005,00247225790 ",.01)
  1. ;;00247225790
  1. ;;9002226.02101,"1005,00247225790 ",.02)
  1. ;;00247225790
  1. ;;9002226.02101,"1005,00247228530 ",.01)
  1. ;;00247228530
  1. ;;9002226.02101,"1005,00247228530 ",.02)
  1. ;;00247228530
  1. ;;9002226.02101,"1005,00247228560 ",.01)
  1. ;;00247228560
  1. ;;9002226.02101,"1005,00247228560 ",.02)
  1. ;;00247228560
  1. ;;9002226.02101,"1005,00247228590 ",.01)
  1. ;;00247228590
  1. ;;9002226.02101,"1005,00247228590 ",.02)
  1. ;;00247228590
  1. ;;9002226.02101,"1005,00247228630 ",.01)
  1. ;;00247228630
  1. ;;9002226.02101,"1005,00247228630 ",.02)
  1. ;;00247228630
  1. ;;9002226.02101,"1005,00247228660 ",.01)
  1. ;;00247228660
  1. ;;9002226.02101,"1005,00247228660 ",.02)
  1. ;;00247228660
  1. ;;9002226.02101,"1005,00247228690 ",.01)
  1. ;;00247228690
  1. ;;9002226.02101,"1005,00247228690 ",.02)
  1. ;;00247228690
  1. ;;9002226.02101,"1005,00247228730 ",.01)
  1. ;;00247228730
  1. ;;9002226.02101,"1005,00247228730 ",.02)
  1. ;;00247228730
  1. ;;9002226.02101,"1005,00247228760 ",.01)
  1. ;;00247228760
  1. ;;9002226.02101,"1005,00247228760 ",.02)
  1. ;;00247228760
  1. ;;9002226.02101,"1005,00247228790 ",.01)
  1. ;;00247228790
  1. ;;9002226.02101,"1005,00247228790 ",.02)
  1. ;;00247228790