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

BGPM5AUK.m

Go to the documentation of this file.
  1. BGPM5AUK ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,00247000303 ",.02)
  1. ;;00247000303
  1. ;;9002226.02101,"1033,00247000309 ",.01)
  1. ;;00247000309
  1. ;;9002226.02101,"1033,00247000309 ",.02)
  1. ;;00247000309
  1. ;;9002226.02101,"1033,00247000332 ",.01)
  1. ;;00247000332
  1. ;;9002226.02101,"1033,00247000332 ",.02)
  1. ;;00247000332
  1. ;;9002226.02101,"1033,00247000503 ",.01)
  1. ;;00247000503
  1. ;;9002226.02101,"1033,00247000503 ",.02)
  1. ;;00247000503
  1. ;;9002226.02101,"1033,00247000524 ",.01)
  1. ;;00247000524
  1. ;;9002226.02101,"1033,00247000524 ",.02)
  1. ;;00247000524
  1. ;;9002226.02101,"1033,00247000556 ",.01)
  1. ;;00247000556
  1. ;;9002226.02101,"1033,00247000556 ",.02)
  1. ;;00247000556
  1. ;;9002226.02101,"1033,00247000617 ",.01)
  1. ;;00247000617
  1. ;;9002226.02101,"1033,00247000617 ",.02)
  1. ;;00247000617
  1. ;;9002226.02101,"1033,00247000621 ",.01)
  1. ;;00247000621
  1. ;;9002226.02101,"1033,00247000621 ",.02)
  1. ;;00247000621
  1. ;;9002226.02101,"1033,00247000660 ",.01)
  1. ;;00247000660
  1. ;;9002226.02101,"1033,00247000660 ",.02)
  1. ;;00247000660
  1. ;;9002226.02101,"1033,00247000900 ",.01)
  1. ;;00247000900
  1. ;;9002226.02101,"1033,00247000900 ",.02)
  1. ;;00247000900
  1. ;;9002226.02101,"1033,00247000978 ",.01)
  1. ;;00247000978
  1. ;;9002226.02101,"1033,00247000978 ",.02)
  1. ;;00247000978
  1. ;;9002226.02101,"1033,00247000979 ",.01)
  1. ;;00247000979
  1. ;;9002226.02101,"1033,00247000979 ",.02)
  1. ;;00247000979
  1. ;;9002226.02101,"1033,00247001400 ",.01)
  1. ;;00247001400
  1. ;;9002226.02101,"1033,00247001400 ",.02)
  1. ;;00247001400
  1. ;;9002226.02101,"1033,00247001479 ",.01)
  1. ;;00247001479
  1. ;;9002226.02101,"1033,00247001479 ",.02)
  1. ;;00247001479
  1. ;;9002226.02101,"1033,00247002205 ",.01)
  1. ;;00247002205
  1. ;;9002226.02101,"1033,00247002205 ",.02)
  1. ;;00247002205
  1. ;;9002226.02101,"1033,00247002210 ",.01)
  1. ;;00247002210
  1. ;;9002226.02101,"1033,00247002210 ",.02)
  1. ;;00247002210
  1. ;;9002226.02101,"1033,00247002302 ",.01)
  1. ;;00247002302
  1. ;;9002226.02101,"1033,00247002302 ",.02)
  1. ;;00247002302
  1. ;;9002226.02101,"1033,00247002304 ",.01)
  1. ;;00247002304
  1. ;;9002226.02101,"1033,00247002304 ",.02)
  1. ;;00247002304
  1. ;;9002226.02101,"1033,00247002306 ",.01)
  1. ;;00247002306
  1. ;;9002226.02101,"1033,00247002306 ",.02)
  1. ;;00247002306
  1. ;;9002226.02101,"1033,00247002308 ",.01)
  1. ;;00247002308
  1. ;;9002226.02101,"1033,00247002308 ",.02)
  1. ;;00247002308
  1. ;;9002226.02101,"1033,00247002801 ",.01)
  1. ;;00247002801
  1. ;;9002226.02101,"1033,00247002801 ",.02)
  1. ;;00247002801
  1. ;;9002226.02101,"1033,00247002803 ",.01)
  1. ;;00247002803
  1. ;;9002226.02101,"1033,00247002803 ",.02)
  1. ;;00247002803
  1. ;;9002226.02101,"1033,00247002806 ",.01)
  1. ;;00247002806
  1. ;;9002226.02101,"1033,00247002806 ",.02)
  1. ;;00247002806
  1. ;;9002226.02101,"1033,00247002975 ",.01)
  1. ;;00247002975
  1. ;;9002226.02101,"1033,00247002975 ",.02)
  1. ;;00247002975
  1. ;;9002226.02101,"1033,00247002978 ",.01)
  1. ;;00247002978
  1. ;;9002226.02101,"1033,00247002978 ",.02)
  1. ;;00247002978
  1. ;;9002226.02101,"1033,00247002980 ",.01)
  1. ;;00247002980
  1. ;;9002226.02101,"1033,00247002980 ",.02)
  1. ;;00247002980
  1. ;;9002226.02101,"1033,00247005475 ",.01)
  1. ;;00247005475
  1. ;;9002226.02101,"1033,00247005475 ",.02)
  1. ;;00247005475
  1. ;;9002226.02101,"1033,00247005478 ",.01)
  1. ;;00247005478
  1. ;;9002226.02101,"1033,00247005478 ",.02)
  1. ;;00247005478
  1. ;;9002226.02101,"1033,00247005500 ",.01)
  1. ;;00247005500
  1. ;;9002226.02101,"1033,00247005500 ",.02)
  1. ;;00247005500
  1. ;;9002226.02101,"1033,00247005550 ",.01)
  1. ;;00247005550
  1. ;;9002226.02101,"1033,00247005550 ",.02)
  1. ;;00247005550
  1. ;;9002226.02101,"1033,00247006300 ",.01)
  1. ;;00247006300
  1. ;;9002226.02101,"1033,00247006300 ",.02)
  1. ;;00247006300
  1. ;;9002226.02101,"1033,00247006301 ",.01)
  1. ;;00247006301
  1. ;;9002226.02101,"1033,00247006301 ",.02)
  1. ;;00247006301
  1. ;;9002226.02101,"1033,00247006302 ",.01)
  1. ;;00247006302
  1. ;;9002226.02101,"1033,00247006302 ",.02)
  1. ;;00247006302
  1. ;;9002226.02101,"1033,00247006303 ",.01)
  1. ;;00247006303
  1. ;;9002226.02101,"1033,00247006303 ",.02)
  1. ;;00247006303
  1. ;;9002226.02101,"1033,00247006304 ",.01)
  1. ;;00247006304
  1. ;;9002226.02101,"1033,00247006304 ",.02)
  1. ;;00247006304
  1. ;;9002226.02101,"1033,00247006306 ",.01)
  1. ;;00247006306
  1. ;;9002226.02101,"1033,00247006306 ",.02)
  1. ;;00247006306
  1. ;;9002226.02101,"1033,00247006307 ",.01)
  1. ;;00247006307
  1. ;;9002226.02101,"1033,00247006307 ",.02)
  1. ;;00247006307
  1. ;;9002226.02101,"1033,00247006308 ",.01)
  1. ;;00247006308
  1. ;;9002226.02101,"1033,00247006308 ",.02)
  1. ;;00247006308
  1. ;;9002226.02101,"1033,00247006310 ",.01)
  1. ;;00247006310
  1. ;;9002226.02101,"1033,00247006310 ",.02)
  1. ;;00247006310
  1. ;;9002226.02101,"1033,00247006312 ",.01)
  1. ;;00247006312
  1. ;;9002226.02101,"1033,00247006312 ",.02)
  1. ;;00247006312
  1. ;;9002226.02101,"1033,00247006314 ",.01)
  1. ;;00247006314
  1. ;;9002226.02101,"1033,00247006314 ",.02)
  1. ;;00247006314
  1. ;;9002226.02101,"1033,00247006315 ",.01)
  1. ;;00247006315
  1. ;;9002226.02101,"1033,00247006315 ",.02)
  1. ;;00247006315
  1. ;;9002226.02101,"1033,00247006316 ",.01)
  1. ;;00247006316
  1. ;;9002226.02101,"1033,00247006316 ",.02)
  1. ;;00247006316
  1. ;;9002226.02101,"1033,00247006319 ",.01)
  1. ;;00247006319
  1. ;;9002226.02101,"1033,00247006319 ",.02)
  1. ;;00247006319
  1. ;;9002226.02101,"1033,00247006320 ",.01)
  1. ;;00247006320
  1. ;;9002226.02101,"1033,00247006320 ",.02)
  1. ;;00247006320
  1. ;;9002226.02101,"1033,00247006328 ",.01)
  1. ;;00247006328
  1. ;;9002226.02101,"1033,00247006328 ",.02)
  1. ;;00247006328
  1. ;;9002226.02101,"1033,00247006330 ",.01)
  1. ;;00247006330
  1. ;;9002226.02101,"1033,00247006330 ",.02)
  1. ;;00247006330
  1. ;;9002226.02101,"1033,00247006340 ",.01)
  1. ;;00247006340
  1. ;;9002226.02101,"1033,00247006340 ",.02)
  1. ;;00247006340
  1. ;;9002226.02101,"1033,00247006342 ",.01)
  1. ;;00247006342
  1. ;;9002226.02101,"1033,00247006342 ",.02)
  1. ;;00247006342
  1. ;;9002226.02101,"1033,00247006356 ",.01)
  1. ;;00247006356
  1. ;;9002226.02101,"1033,00247006356 ",.02)
  1. ;;00247006356
  1. ;;9002226.02101,"1033,00247006360 ",.01)
  1. ;;00247006360
  1. ;;9002226.02101,"1033,00247006360 ",.02)
  1. ;;00247006360
  1. ;;9002226.02101,"1033,00247006398 ",.01)
  1. ;;00247006398
  1. ;;9002226.02101,"1033,00247006398 ",.02)
  1. ;;00247006398
  1. ;;9002226.02101,"1033,00247006600 ",.01)
  1. ;;00247006600
  1. ;;9002226.02101,"1033,00247006600 ",.02)
  1. ;;00247006600
  1. ;;9002226.02101,"1033,00247006604 ",.01)
  1. ;;00247006604
  1. ;;9002226.02101,"1033,00247006604 ",.02)
  1. ;;00247006604
  1. ;;9002226.02101,"1033,00247006605 ",.01)
  1. ;;00247006605
  1. ;;9002226.02101,"1033,00247006605 ",.02)
  1. ;;00247006605
  1. ;;9002226.02101,"1033,00247006610 ",.01)
  1. ;;00247006610
  1. ;;9002226.02101,"1033,00247006610 ",.02)
  1. ;;00247006610
  1. ;;9002226.02101,"1033,00247006612 ",.01)
  1. ;;00247006612
  1. ;;9002226.02101,"1033,00247006612 ",.02)
  1. ;;00247006612
  1. ;;9002226.02101,"1033,00247006620 ",.01)
  1. ;;00247006620
  1. ;;9002226.02101,"1033,00247006620 ",.02)
  1. ;;00247006620
  1. ;;9002226.02101,"1033,00247006621 ",.01)
  1. ;;00247006621
  1. ;;9002226.02101,"1033,00247006621 ",.02)
  1. ;;00247006621
  1. ;;9002226.02101,"1033,00247006628 ",.01)
  1. ;;00247006628
  1. ;;9002226.02101,"1033,00247006628 ",.02)
  1. ;;00247006628
  1. ;;9002226.02101,"1033,00247006630 ",.01)
  1. ;;00247006630
  1. ;;9002226.02101,"1033,00247006630 ",.02)
  1. ;;00247006630
  1. ;;9002226.02101,"1033,00247006640 ",.01)
  1. ;;00247006640
  1. ;;9002226.02101,"1033,00247006640 ",.02)
  1. ;;00247006640
  1. ;;9002226.02101,"1033,00247006660 ",.01)
  1. ;;00247006660
  1. ;;9002226.02101,"1033,00247006660 ",.02)
  1. ;;00247006660
  1. ;;9002226.02101,"1033,00247006699 ",.01)
  1. ;;00247006699
  1. ;;9002226.02101,"1033,00247006699 ",.02)
  1. ;;00247006699
  1. ;;9002226.02101,"1033,00247006700 ",.01)
  1. ;;00247006700
  1. ;;9002226.02101,"1033,00247006700 ",.02)
  1. ;;00247006700
  1. ;;9002226.02101,"1033,00247006704 ",.01)
  1. ;;00247006704
  1. ;;9002226.02101,"1033,00247006704 ",.02)
  1. ;;00247006704
  1. ;;9002226.02101,"1033,00247006708 ",.01)
  1. ;;00247006708
  1. ;;9002226.02101,"1033,00247006708 ",.02)
  1. ;;00247006708
  1. ;;9002226.02101,"1033,00247006710 ",.01)
  1. ;;00247006710
  1. ;;9002226.02101,"1033,00247006710 ",.02)
  1. ;;00247006710
  1. ;;9002226.02101,"1033,00247006712 ",.01)
  1. ;;00247006712
  1. ;;9002226.02101,"1033,00247006712 ",.02)
  1. ;;00247006712
  1. ;;9002226.02101,"1033,00247006715 ",.01)
  1. ;;00247006715
  1. ;;9002226.02101,"1033,00247006715 ",.02)
  1. ;;00247006715
  1. ;;9002226.02101,"1033,00247006716 ",.01)
  1. ;;00247006716
  1. ;;9002226.02101,"1033,00247006716 ",.02)
  1. ;;00247006716
  1. ;;9002226.02101,"1033,00247006720 ",.01)
  1. ;;00247006720
  1. ;;9002226.02101,"1033,00247006720 ",.02)
  1. ;;00247006720
  1. ;;9002226.02101,"1033,00247006721 ",.01)
  1. ;;00247006721
  1. ;;9002226.02101,"1033,00247006721 ",.02)
  1. ;;00247006721
  1. ;;9002226.02101,"1033,00247006728 ",.01)
  1. ;;00247006728
  1. ;;9002226.02101,"1033,00247006728 ",.02)
  1. ;;00247006728
  1. ;;9002226.02101,"1033,00247006730 ",.01)
  1. ;;00247006730
  1. ;;9002226.02101,"1033,00247006730 ",.02)
  1. ;;00247006730
  1. ;;9002226.02101,"1033,00247006740 ",.01)
  1. ;;00247006740
  1. ;;9002226.02101,"1033,00247006740 ",.02)
  1. ;;00247006740
  1. ;;9002226.02101,"1033,00247006752 ",.01)
  1. ;;00247006752
  1. ;;9002226.02101,"1033,00247006752 ",.02)
  1. ;;00247006752
  1. ;;9002226.02101,"1033,00247006756 ",.01)
  1. ;;00247006756
  1. ;;9002226.02101,"1033,00247006756 ",.02)
  1. ;;00247006756
  1. ;;9002226.02101,"1033,00247006760 ",.01)
  1. ;;00247006760
  1. ;;9002226.02101,"1033,00247006760 ",.02)
  1. ;;00247006760
  1. ;;9002226.02101,"1033,00247006790 ",.01)
  1. ;;00247006790
  1. ;;9002226.02101,"1033,00247006790 ",.02)
  1. ;;00247006790
  1. ;;9002226.02101,"1033,00247006799 ",.01)
  1. ;;00247006799
  1. ;;9002226.02101,"1033,00247006799 ",.02)
  1. ;;00247006799
  1. ;;9002226.02101,"1033,00247006801 ",.01)
  1. ;;00247006801
  1. ;;9002226.02101,"1033,00247006801 ",.02)
  1. ;;00247006801
  1. ;;9002226.02101,"1033,00247006802 ",.01)
  1. ;;00247006802
  1. ;;9002226.02101,"1033,00247006802 ",.02)
  1. ;;00247006802
  1. ;;9002226.02101,"1033,00247006803 ",.01)
  1. ;;00247006803
  1. ;;9002226.02101,"1033,00247006803 ",.02)
  1. ;;00247006803
  1. ;;9002226.02101,"1033,00247006804 ",.01)
  1. ;;00247006804
  1. ;;9002226.02101,"1033,00247006804 ",.02)
  1. ;;00247006804
  1. ;;9002226.02101,"1033,00247006806 ",.01)
  1. ;;00247006806
  1. ;;9002226.02101,"1033,00247006806 ",.02)
  1. ;;00247006806
  1. ;;9002226.02101,"1033,00247006808 ",.01)
  1. ;;00247006808
  1. ;;9002226.02101,"1033,00247006808 ",.02)
  1. ;;00247006808
  1. ;;9002226.02101,"1033,00247006810 ",.01)
  1. ;;00247006810
  1. ;;9002226.02101,"1033,00247006810 ",.02)
  1. ;;00247006810
  1. ;;9002226.02101,"1033,00247006812 ",.01)
  1. ;;00247006812
  1. ;;9002226.02101,"1033,00247006812 ",.02)
  1. ;;00247006812
  1. ;;9002226.02101,"1033,00247006814 ",.01)
  1. ;;00247006814
  1. ;;9002226.02101,"1033,00247006814 ",.02)
  1. ;;00247006814
  1. ;;9002226.02101,"1033,00247006815 ",.01)
  1. ;;00247006815
  1. ;;9002226.02101,"1033,00247006815 ",.02)
  1. ;;00247006815
  1. ;;9002226.02101,"1033,00247006816 ",.01)
  1. ;;00247006816
  1. ;;9002226.02101,"1033,00247006816 ",.02)
  1. ;;00247006816
  1. ;;9002226.02101,"1033,00247006818 ",.01)
  1. ;;00247006818
  1. ;;9002226.02101,"1033,00247006818 ",.02)
  1. ;;00247006818
  1. ;;9002226.02101,"1033,00247006820 ",.01)
  1. ;;00247006820
  1. ;;9002226.02101,"1033,00247006820 ",.02)
  1. ;;00247006820
  1. ;;9002226.02101,"1033,00247006821 ",.01)
  1. ;;00247006821
  1. ;;9002226.02101,"1033,00247006821 ",.02)
  1. ;;00247006821
  1. ;;9002226.02101,"1033,00247006824 ",.01)
  1. ;;00247006824
  1. ;;9002226.02101,"1033,00247006824 ",.02)
  1. ;;00247006824
  1. ;;9002226.02101,"1033,00247006825 ",.01)
  1. ;;00247006825
  1. ;;9002226.02101,"1033,00247006825 ",.02)
  1. ;;00247006825
  1. ;;9002226.02101,"1033,00247006828 ",.01)
  1. ;;00247006828
  1. ;;9002226.02101,"1033,00247006828 ",.02)
  1. ;;00247006828
  1. ;;9002226.02101,"1033,00247006830 ",.01)
  1. ;;00247006830
  1. ;;9002226.02101,"1033,00247006830 ",.02)
  1. ;;00247006830
  1. ;;9002226.02101,"1033,00247006832 ",.01)
  1. ;;00247006832
  1. ;;9002226.02101,"1033,00247006832 ",.02)
  1. ;;00247006832
  1. ;;9002226.02101,"1033,00247006840 ",.01)
  1. ;;00247006840
  1. ;;9002226.02101,"1033,00247006840 ",.02)
  1. ;;00247006840