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

BGPM5AWU.m

Go to the documentation of this file.
  1. BGPM5AWU ;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,66267009128 ",.02)
  1. ;;66267009128
  1. ;;9002226.02101,"1033,66267009130 ",.01)
  1. ;;66267009130
  1. ;;9002226.02101,"1033,66267009130 ",.02)
  1. ;;66267009130
  1. ;;9002226.02101,"1033,66267009140 ",.01)
  1. ;;66267009140
  1. ;;9002226.02101,"1033,66267009140 ",.02)
  1. ;;66267009140
  1. ;;9002226.02101,"1033,66267015906 ",.01)
  1. ;;66267015906
  1. ;;9002226.02101,"1033,66267015906 ",.02)
  1. ;;66267015906
  1. ;;9002226.02101,"1033,66267015909 ",.01)
  1. ;;66267015909
  1. ;;9002226.02101,"1033,66267015909 ",.02)
  1. ;;66267015909
  1. ;;9002226.02101,"1033,66267015910 ",.01)
  1. ;;66267015910
  1. ;;9002226.02101,"1033,66267015910 ",.02)
  1. ;;66267015910
  1. ;;9002226.02101,"1033,66267015915 ",.01)
  1. ;;66267015915
  1. ;;9002226.02101,"1033,66267015915 ",.02)
  1. ;;66267015915
  1. ;;9002226.02101,"1033,66267015920 ",.01)
  1. ;;66267015920
  1. ;;9002226.02101,"1033,66267015920 ",.02)
  1. ;;66267015920
  1. ;;9002226.02101,"1033,66267015925 ",.01)
  1. ;;66267015925
  1. ;;9002226.02101,"1033,66267015925 ",.02)
  1. ;;66267015925
  1. ;;9002226.02101,"1033,66267015928 ",.01)
  1. ;;66267015928
  1. ;;9002226.02101,"1033,66267015928 ",.02)
  1. ;;66267015928
  1. ;;9002226.02101,"1033,66267015930 ",.01)
  1. ;;66267015930
  1. ;;9002226.02101,"1033,66267015930 ",.02)
  1. ;;66267015930
  1. ;;9002226.02101,"1033,66267015940 ",.01)
  1. ;;66267015940
  1. ;;9002226.02101,"1033,66267015940 ",.02)
  1. ;;66267015940
  1. ;;9002226.02101,"1033,66267015950 ",.01)
  1. ;;66267015950
  1. ;;9002226.02101,"1033,66267015950 ",.02)
  1. ;;66267015950
  1. ;;9002226.02101,"1033,66267015960 ",.01)
  1. ;;66267015960
  1. ;;9002226.02101,"1033,66267015960 ",.02)
  1. ;;66267015960
  1. ;;9002226.02101,"1033,66267015990 ",.01)
  1. ;;66267015990
  1. ;;9002226.02101,"1033,66267015990 ",.02)
  1. ;;66267015990
  1. ;;9002226.02101,"1033,66267016004 ",.01)
  1. ;;66267016004
  1. ;;9002226.02101,"1033,66267016004 ",.02)
  1. ;;66267016004
  1. ;;9002226.02101,"1033,66267016005 ",.01)
  1. ;;66267016005
  1. ;;9002226.02101,"1033,66267016005 ",.02)
  1. ;;66267016005
  1. ;;9002226.02101,"1033,66267016006 ",.01)
  1. ;;66267016006
  1. ;;9002226.02101,"1033,66267016006 ",.02)
  1. ;;66267016006
  1. ;;9002226.02101,"1033,66267016010 ",.01)
  1. ;;66267016010
  1. ;;9002226.02101,"1033,66267016010 ",.02)
  1. ;;66267016010
  1. ;;9002226.02101,"1033,66267016012 ",.01)
  1. ;;66267016012
  1. ;;9002226.02101,"1033,66267016012 ",.02)
  1. ;;66267016012
  1. ;;9002226.02101,"1033,66267016015 ",.01)
  1. ;;66267016015
  1. ;;9002226.02101,"1033,66267016015 ",.02)
  1. ;;66267016015
  1. ;;9002226.02101,"1033,66267016020 ",.01)
  1. ;;66267016020
  1. ;;9002226.02101,"1033,66267016020 ",.02)
  1. ;;66267016020
  1. ;;9002226.02101,"1033,66267016028 ",.01)
  1. ;;66267016028
  1. ;;9002226.02101,"1033,66267016028 ",.02)
  1. ;;66267016028
  1. ;;9002226.02101,"1033,66267016030 ",.01)
  1. ;;66267016030
  1. ;;9002226.02101,"1033,66267016030 ",.02)
  1. ;;66267016030
  1. ;;9002226.02101,"1033,66267016040 ",.01)
  1. ;;66267016040
  1. ;;9002226.02101,"1033,66267016040 ",.02)
  1. ;;66267016040
  1. ;;9002226.02101,"1033,66267016060 ",.01)
  1. ;;66267016060
  1. ;;9002226.02101,"1033,66267016060 ",.02)
  1. ;;66267016060
  1. ;;9002226.02101,"1033,66267016090 ",.01)
  1. ;;66267016090
  1. ;;9002226.02101,"1033,66267016090 ",.02)
  1. ;;66267016090
  1. ;;9002226.02101,"1033,66267019602 ",.01)
  1. ;;66267019602
  1. ;;9002226.02101,"1033,66267019602 ",.02)
  1. ;;66267019602
  1. ;;9002226.02101,"1033,66267019606 ",.01)
  1. ;;66267019606
  1. ;;9002226.02101,"1033,66267019606 ",.02)
  1. ;;66267019606
  1. ;;9002226.02101,"1033,66267019610 ",.01)
  1. ;;66267019610
  1. ;;9002226.02101,"1033,66267019610 ",.02)
  1. ;;66267019610
  1. ;;9002226.02101,"1033,66267019614 ",.01)
  1. ;;66267019614
  1. ;;9002226.02101,"1033,66267019614 ",.02)
  1. ;;66267019614
  1. ;;9002226.02101,"1033,66267019615 ",.01)
  1. ;;66267019615
  1. ;;9002226.02101,"1033,66267019615 ",.02)
  1. ;;66267019615
  1. ;;9002226.02101,"1033,66267019620 ",.01)
  1. ;;66267019620
  1. ;;9002226.02101,"1033,66267019620 ",.02)
  1. ;;66267019620
  1. ;;9002226.02101,"1033,66267019628 ",.01)
  1. ;;66267019628
  1. ;;9002226.02101,"1033,66267019628 ",.02)
  1. ;;66267019628
  1. ;;9002226.02101,"1033,66267019630 ",.01)
  1. ;;66267019630
  1. ;;9002226.02101,"1033,66267019630 ",.02)
  1. ;;66267019630
  1. ;;9002226.02101,"1033,66267019640 ",.01)
  1. ;;66267019640
  1. ;;9002226.02101,"1033,66267019640 ",.02)
  1. ;;66267019640
  1. ;;9002226.02101,"1033,66267019660 ",.01)
  1. ;;66267019660
  1. ;;9002226.02101,"1033,66267019660 ",.02)
  1. ;;66267019660
  1. ;;9002226.02101,"1033,66267020012 ",.01)
  1. ;;66267020012
  1. ;;9002226.02101,"1033,66267020012 ",.02)
  1. ;;66267020012
  1. ;;9002226.02101,"1033,66267020028 ",.01)
  1. ;;66267020028
  1. ;;9002226.02101,"1033,66267020028 ",.02)
  1. ;;66267020028
  1. ;;9002226.02101,"1033,66267020040 ",.01)
  1. ;;66267020040
  1. ;;9002226.02101,"1033,66267020040 ",.02)
  1. ;;66267020040
  1. ;;9002226.02101,"1033,66267020114 ",.01)
  1. ;;66267020114
  1. ;;9002226.02101,"1033,66267020114 ",.02)
  1. ;;66267020114
  1. ;;9002226.02101,"1033,66267020120 ",.01)
  1. ;;66267020120
  1. ;;9002226.02101,"1033,66267020120 ",.02)
  1. ;;66267020120
  1. ;;9002226.02101,"1033,66267020128 ",.01)
  1. ;;66267020128
  1. ;;9002226.02101,"1033,66267020128 ",.02)
  1. ;;66267020128
  1. ;;9002226.02101,"1033,66267020140 ",.01)
  1. ;;66267020140
  1. ;;9002226.02101,"1033,66267020140 ",.02)
  1. ;;66267020140
  1. ;;9002226.02101,"1033,66267025614 ",.01)
  1. ;;66267025614
  1. ;;9002226.02101,"1033,66267025614 ",.02)
  1. ;;66267025614
  1. ;;9002226.02101,"1033,66267025620 ",.01)
  1. ;;66267025620
  1. ;;9002226.02101,"1033,66267025620 ",.02)
  1. ;;66267025620
  1. ;;9002226.02101,"1033,66267025621 ",.01)
  1. ;;66267025621
  1. ;;9002226.02101,"1033,66267025621 ",.02)
  1. ;;66267025621
  1. ;;9002226.02101,"1033,66267025630 ",.01)
  1. ;;66267025630
  1. ;;9002226.02101,"1033,66267025630 ",.02)
  1. ;;66267025630
  1. ;;9002226.02101,"1033,66267025640 ",.01)
  1. ;;66267025640
  1. ;;9002226.02101,"1033,66267025640 ",.02)
  1. ;;66267025640
  1. ;;9002226.02101,"1033,66267025660 ",.01)
  1. ;;66267025660
  1. ;;9002226.02101,"1033,66267025660 ",.02)
  1. ;;66267025660
  1. ;;9002226.02101,"1033,66267026215 ",.01)
  1. ;;66267026215
  1. ;;9002226.02101,"1033,66267026215 ",.02)
  1. ;;66267026215
  1. ;;9002226.02101,"1033,66267026220 ",.01)
  1. ;;66267026220
  1. ;;9002226.02101,"1033,66267026220 ",.02)
  1. ;;66267026220
  1. ;;9002226.02101,"1033,66267026230 ",.01)
  1. ;;66267026230
  1. ;;9002226.02101,"1033,66267026230 ",.02)
  1. ;;66267026230
  1. ;;9002226.02101,"1033,66267026240 ",.01)
  1. ;;66267026240
  1. ;;9002226.02101,"1033,66267026240 ",.02)
  1. ;;66267026240
  1. ;;9002226.02101,"1033,66267026260 ",.01)
  1. ;;66267026260
  1. ;;9002226.02101,"1033,66267026260 ",.02)
  1. ;;66267026260
  1. ;;9002226.02101,"1033,66267030612 ",.01)
  1. ;;66267030612
  1. ;;9002226.02101,"1033,66267030612 ",.02)
  1. ;;66267030612
  1. ;;9002226.02101,"1033,66267030620 ",.01)
  1. ;;66267030620
  1. ;;9002226.02101,"1033,66267030620 ",.02)
  1. ;;66267030620
  1. ;;9002226.02101,"1033,66267030630 ",.01)
  1. ;;66267030630
  1. ;;9002226.02101,"1033,66267030630 ",.02)
  1. ;;66267030630
  1. ;;9002226.02101,"1033,66267030707 ",.01)
  1. ;;66267030707
  1. ;;9002226.02101,"1033,66267030707 ",.02)
  1. ;;66267030707
  1. ;;9002226.02101,"1033,66267030710 ",.01)
  1. ;;66267030710
  1. ;;9002226.02101,"1033,66267030710 ",.02)
  1. ;;66267030710
  1. ;;9002226.02101,"1033,66267030715 ",.01)
  1. ;;66267030715
  1. ;;9002226.02101,"1033,66267030715 ",.02)
  1. ;;66267030715
  1. ;;9002226.02101,"1033,66267030720 ",.01)
  1. ;;66267030720
  1. ;;9002226.02101,"1033,66267030720 ",.02)
  1. ;;66267030720
  1. ;;9002226.02101,"1033,66267030730 ",.01)
  1. ;;66267030730
  1. ;;9002226.02101,"1033,66267030730 ",.02)
  1. ;;66267030730
  1. ;;9002226.02101,"1033,66267031207 ",.01)
  1. ;;66267031207
  1. ;;9002226.02101,"1033,66267031207 ",.02)
  1. ;;66267031207
  1. ;;9002226.02101,"1033,66267031210 ",.01)
  1. ;;66267031210
  1. ;;9002226.02101,"1033,66267031210 ",.02)
  1. ;;66267031210
  1. ;;9002226.02101,"1033,66267031215 ",.01)
  1. ;;66267031215
  1. ;;9002226.02101,"1033,66267031215 ",.02)
  1. ;;66267031215
  1. ;;9002226.02101,"1033,66267031220 ",.01)
  1. ;;66267031220
  1. ;;9002226.02101,"1033,66267031220 ",.02)
  1. ;;66267031220
  1. ;;9002226.02101,"1033,66267031230 ",.01)
  1. ;;66267031230
  1. ;;9002226.02101,"1033,66267031230 ",.02)
  1. ;;66267031230
  1. ;;9002226.02101,"1033,66267031240 ",.01)
  1. ;;66267031240
  1. ;;9002226.02101,"1033,66267031240 ",.02)
  1. ;;66267031240
  1. ;;9002226.02101,"1033,66267031415 ",.01)
  1. ;;66267031415
  1. ;;9002226.02101,"1033,66267031415 ",.02)
  1. ;;66267031415
  1. ;;9002226.02101,"1033,66267031420 ",.01)
  1. ;;66267031420
  1. ;;9002226.02101,"1033,66267031420 ",.02)
  1. ;;66267031420
  1. ;;9002226.02101,"1033,66267031430 ",.01)
  1. ;;66267031430
  1. ;;9002226.02101,"1033,66267031430 ",.02)
  1. ;;66267031430
  1. ;;9002226.02101,"1033,66267031440 ",.01)
  1. ;;66267031440
  1. ;;9002226.02101,"1033,66267031440 ",.02)
  1. ;;66267031440
  1. ;;9002226.02101,"1033,66267031460 ",.01)
  1. ;;66267031460
  1. ;;9002226.02101,"1033,66267031460 ",.02)
  1. ;;66267031460
  1. ;;9002226.02101,"1033,66267041610 ",.01)
  1. ;;66267041610
  1. ;;9002226.02101,"1033,66267041610 ",.02)
  1. ;;66267041610
  1. ;;9002226.02101,"1033,66267041620 ",.01)
  1. ;;66267041620
  1. ;;9002226.02101,"1033,66267041620 ",.02)
  1. ;;66267041620
  1. ;;9002226.02101,"1033,66267041630 ",.01)
  1. ;;66267041630
  1. ;;9002226.02101,"1033,66267041630 ",.02)
  1. ;;66267041630
  1. ;;9002226.02101,"1033,66267041640 ",.01)
  1. ;;66267041640
  1. ;;9002226.02101,"1033,66267041640 ",.02)
  1. ;;66267041640
  1. ;;9002226.02101,"1033,66267041660 ",.01)
  1. ;;66267041660
  1. ;;9002226.02101,"1033,66267041660 ",.02)
  1. ;;66267041660
  1. ;;9002226.02101,"1033,66267042315 ",.01)
  1. ;;66267042315
  1. ;;9002226.02101,"1033,66267042315 ",.02)
  1. ;;66267042315
  1. ;;9002226.02101,"1033,66267042320 ",.01)
  1. ;;66267042320
  1. ;;9002226.02101,"1033,66267042320 ",.02)
  1. ;;66267042320
  1. ;;9002226.02101,"1033,66267042330 ",.01)
  1. ;;66267042330
  1. ;;9002226.02101,"1033,66267042330 ",.02)
  1. ;;66267042330
  1. ;;9002226.02101,"1033,66267042340 ",.01)
  1. ;;66267042340
  1. ;;9002226.02101,"1033,66267042340 ",.02)
  1. ;;66267042340
  1. ;;9002226.02101,"1033,66267042360 ",.01)
  1. ;;66267042360
  1. ;;9002226.02101,"1033,66267042360 ",.02)
  1. ;;66267042360
  1. ;;9002226.02101,"1033,66267045506 ",.01)
  1. ;;66267045506
  1. ;;9002226.02101,"1033,66267045506 ",.02)
  1. ;;66267045506
  1. ;;9002226.02101,"1033,66267045510 ",.01)
  1. ;;66267045510
  1. ;;9002226.02101,"1033,66267045510 ",.02)
  1. ;;66267045510
  1. ;;9002226.02101,"1033,66267045520 ",.01)
  1. ;;66267045520
  1. ;;9002226.02101,"1033,66267045520 ",.02)
  1. ;;66267045520
  1. ;;9002226.02101,"1033,66267045530 ",.01)
  1. ;;66267045530
  1. ;;9002226.02101,"1033,66267045530 ",.02)
  1. ;;66267045530
  1. ;;9002226.02101,"1033,66267045540 ",.01)
  1. ;;66267045540
  1. ;;9002226.02101,"1033,66267045540 ",.02)
  1. ;;66267045540
  1. ;;9002226.02101,"1033,66267050410 ",.01)
  1. ;;66267050410
  1. ;;9002226.02101,"1033,66267050410 ",.02)
  1. ;;66267050410
  1. ;;9002226.02101,"1033,66267050420 ",.01)
  1. ;;66267050420
  1. ;;9002226.02101,"1033,66267050420 ",.02)
  1. ;;66267050420
  1. ;;9002226.02101,"1033,66267050430 ",.01)
  1. ;;66267050430
  1. ;;9002226.02101,"1033,66267050430 ",.02)
  1. ;;66267050430
  1. ;;9002226.02101,"1033,66267050440 ",.01)
  1. ;;66267050440
  1. ;;9002226.02101,"1033,66267050440 ",.02)
  1. ;;66267050440
  1. ;;9002226.02101,"1033,66267050450 ",.01)
  1. ;;66267050450
  1. ;;9002226.02101,"1033,66267050450 ",.02)
  1. ;;66267050450
  1. ;;9002226.02101,"1033,66267054903 ",.01)
  1. ;;66267054903
  1. ;;9002226.02101,"1033,66267054903 ",.02)
  1. ;;66267054903
  1. ;;9002226.02101,"1033,66267054914 ",.01)
  1. ;;66267054914
  1. ;;9002226.02101,"1033,66267054914 ",.02)
  1. ;;66267054914
  1. ;;9002226.02101,"1033,66267054915 ",.01)
  1. ;;66267054915
  1. ;;9002226.02101,"1033,66267054915 ",.02)
  1. ;;66267054915
  1. ;;9002226.02101,"1033,66267054920 ",.01)
  1. ;;66267054920
  1. ;;9002226.02101,"1033,66267054920 ",.02)
  1. ;;66267054920
  1. ;;9002226.02101,"1033,66267054930 ",.01)
  1. ;;66267054930
  1. ;;9002226.02101,"1033,66267054930 ",.02)
  1. ;;66267054930
  1. ;;9002226.02101,"1033,66267054940 ",.01)
  1. ;;66267054940
  1. ;;9002226.02101,"1033,66267054940 ",.02)
  1. ;;66267054940
  1. ;;9002226.02101,"1033,66267055915 ",.01)
  1. ;;66267055915
  1. ;;9002226.02101,"1033,66267055915 ",.02)
  1. ;;66267055915