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

BGPM5AIZ.m

Go to the documentation of this file.
  1. BGPM5AIZ ;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,"889,00085036207 ",.01)
  1. ;;00085036207
  1. ;;9002226.02101,"889,00085036207 ",.02)
  1. ;;00085036207
  1. ;;9002226.02101,"889,00085036208 ",.01)
  1. ;;00085036208
  1. ;;9002226.02101,"889,00085036208 ",.02)
  1. ;;00085036208
  1. ;;9002226.02101,"889,00085036209 ",.01)
  1. ;;00085036209
  1. ;;9002226.02101,"889,00085036209 ",.02)
  1. ;;00085036209
  1. ;;9002226.02101,"889,00085043803 ",.01)
  1. ;;00085043803
  1. ;;9002226.02101,"889,00085043803 ",.02)
  1. ;;00085043803
  1. ;;9002226.02101,"889,00085043805 ",.01)
  1. ;;00085043805
  1. ;;9002226.02101,"889,00085043805 ",.02)
  1. ;;00085043805
  1. ;;9002226.02101,"889,00085043806 ",.01)
  1. ;;00085043806
  1. ;;9002226.02101,"889,00085043806 ",.02)
  1. ;;00085043806
  1. ;;9002226.02101,"889,00085075204 ",.01)
  1. ;;00085075204
  1. ;;9002226.02101,"889,00085075204 ",.02)
  1. ;;00085075204
  1. ;;9002226.02101,"889,00085075205 ",.01)
  1. ;;00085075205
  1. ;;9002226.02101,"889,00085075205 ",.02)
  1. ;;00085075205
  1. ;;9002226.02101,"889,00085075207 ",.01)
  1. ;;00085075207
  1. ;;9002226.02101,"889,00085075207 ",.02)
  1. ;;00085075207
  1. ;;9002226.02101,"889,00085075208 ",.01)
  1. ;;00085075208
  1. ;;9002226.02101,"889,00085075208 ",.02)
  1. ;;00085075208
  1. ;;9002226.02101,"889,00091450015 ",.01)
  1. ;;00091450015
  1. ;;9002226.02101,"889,00091450015 ",.02)
  1. ;;00091450015
  1. ;;9002226.02101,"889,00093073301 ",.01)
  1. ;;00093073301
  1. ;;9002226.02101,"889,00093073301 ",.02)
  1. ;;00093073301
  1. ;;9002226.02101,"889,00093073310 ",.01)
  1. ;;00093073310
  1. ;;9002226.02101,"889,00093073310 ",.02)
  1. ;;00093073310
  1. ;;9002226.02101,"889,00093073401 ",.01)
  1. ;;00093073401
  1. ;;9002226.02101,"889,00093073401 ",.02)
  1. ;;00093073401
  1. ;;9002226.02101,"889,00093073410 ",.01)
  1. ;;00093073410
  1. ;;9002226.02101,"889,00093073410 ",.02)
  1. ;;00093073410
  1. ;;9002226.02101,"889,00093075201 ",.01)
  1. ;;00093075201
  1. ;;9002226.02101,"889,00093075201 ",.02)
  1. ;;00093075201
  1. ;;9002226.02101,"889,00093075210 ",.01)
  1. ;;00093075210
  1. ;;9002226.02101,"889,00093075210 ",.02)
  1. ;;00093075210
  1. ;;9002226.02101,"889,00093075301 ",.01)
  1. ;;00093075301
  1. ;;9002226.02101,"889,00093075301 ",.02)
  1. ;;00093075301
  1. ;;9002226.02101,"889,00093075305 ",.01)
  1. ;;00093075305
  1. ;;9002226.02101,"889,00093075305 ",.02)
  1. ;;00093075305
  1. ;;9002226.02101,"889,00093078701 ",.01)
  1. ;;00093078701
  1. ;;9002226.02101,"889,00093078701 ",.02)
  1. ;;00093078701
  1. ;;9002226.02101,"889,00093078710 ",.01)
  1. ;;00093078710
  1. ;;9002226.02101,"889,00093078710 ",.02)
  1. ;;00093078710
  1. ;;9002226.02101,"889,00093423501 ",.01)
  1. ;;00093423501
  1. ;;9002226.02101,"889,00093423501 ",.02)
  1. ;;00093423501
  1. ;;9002226.02101,"889,00093423601 ",.01)
  1. ;;00093423601
  1. ;;9002226.02101,"889,00093423601 ",.02)
  1. ;;00093423601
  1. ;;9002226.02101,"889,00093423701 ",.01)
  1. ;;00093423701
  1. ;;9002226.02101,"889,00093423701 ",.02)
  1. ;;00093423701
  1. ;;9002226.02101,"889,00093527056 ",.01)
  1. ;;00093527056
  1. ;;9002226.02101,"889,00093527056 ",.02)
  1. ;;00093527056
  1. ;;9002226.02101,"889,00093527156 ",.01)
  1. ;;00093527156
  1. ;;9002226.02101,"889,00093527156 ",.02)
  1. ;;00093527156
  1. ;;9002226.02101,"889,00131450015 ",.01)
  1. ;;00131450015
  1. ;;9002226.02101,"889,00131450015 ",.02)
  1. ;;00131450015
  1. ;;9002226.02101,"889,00143987201 ",.01)
  1. ;;00143987201
  1. ;;9002226.02101,"889,00143987201 ",.02)
  1. ;;00143987201
  1. ;;9002226.02101,"889,00143987301 ",.01)
  1. ;;00143987301
  1. ;;9002226.02101,"889,00143987301 ",.02)
  1. ;;00143987301
  1. ;;9002226.02101,"889,00143987310 ",.01)
  1. ;;00143987310
  1. ;;9002226.02101,"889,00143987310 ",.02)
  1. ;;00143987310
  1. ;;9002226.02101,"889,00172436400 ",.01)
  1. ;;00172436400
  1. ;;9002226.02101,"889,00172436400 ",.02)
  1. ;;00172436400
  1. ;;9002226.02101,"889,00172436410 ",.01)
  1. ;;00172436410
  1. ;;9002226.02101,"889,00172436410 ",.02)
  1. ;;00172436410
  1. ;;9002226.02101,"889,00172436460 ",.01)
  1. ;;00172436460
  1. ;;9002226.02101,"889,00172436460 ",.02)
  1. ;;00172436460
  1. ;;9002226.02101,"889,00172436470 ",.01)
  1. ;;00172436470
  1. ;;9002226.02101,"889,00172436470 ",.02)
  1. ;;00172436470
  1. ;;9002226.02101,"889,00172436500 ",.01)
  1. ;;00172436500
  1. ;;9002226.02101,"889,00172436500 ",.02)
  1. ;;00172436500
  1. ;;9002226.02101,"889,00172436510 ",.01)
  1. ;;00172436510
  1. ;;9002226.02101,"889,00172436510 ",.02)
  1. ;;00172436510
  1. ;;9002226.02101,"889,00172436560 ",.01)
  1. ;;00172436560
  1. ;;9002226.02101,"889,00172436560 ",.02)
  1. ;;00172436560
  1. ;;9002226.02101,"889,00172436570 ",.01)
  1. ;;00172436570
  1. ;;9002226.02101,"889,00172436570 ",.02)
  1. ;;00172436570
  1. ;;9002226.02101,"889,00172436660 ",.01)
  1. ;;00172436660
  1. ;;9002226.02101,"889,00172436660 ",.02)
  1. ;;00172436660
  1. ;;9002226.02101,"889,00172573060 ",.01)
  1. ;;00172573060
  1. ;;9002226.02101,"889,00172573060 ",.02)
  1. ;;00172573060
  1. ;;9002226.02101,"889,00172573070 ",.01)
  1. ;;00172573070
  1. ;;9002226.02101,"889,00172573070 ",.02)
  1. ;;00172573070
  1. ;;9002226.02101,"889,00172573160 ",.01)
  1. ;;00172573160
  1. ;;9002226.02101,"889,00172573160 ",.02)
  1. ;;00172573160
  1. ;;9002226.02101,"889,00172573170 ",.01)
  1. ;;00172573170
  1. ;;9002226.02101,"889,00172573170 ",.02)
  1. ;;00172573170
  1. ;;9002226.02101,"889,00172573260 ",.01)
  1. ;;00172573260
  1. ;;9002226.02101,"889,00172573260 ",.02)
  1. ;;00172573260
  1. ;;9002226.02101,"889,00172573270 ",.01)
  1. ;;00172573270
  1. ;;9002226.02101,"889,00172573270 ",.02)
  1. ;;00172573270
  1. ;;9002226.02101,"889,00173079001 ",.01)
  1. ;;00173079001
  1. ;;9002226.02101,"889,00173079001 ",.02)
  1. ;;00173079001
  1. ;;9002226.02101,"889,00173079002 ",.01)
  1. ;;00173079002
  1. ;;9002226.02101,"889,00173079002 ",.02)
  1. ;;00173079002
  1. ;;9002226.02101,"889,00173079101 ",.01)
  1. ;;00173079101
  1. ;;9002226.02101,"889,00173079101 ",.02)
  1. ;;00173079101
  1. ;;9002226.02101,"889,00173079102 ",.01)
  1. ;;00173079102
  1. ;;9002226.02101,"889,00173079102 ",.02)
  1. ;;00173079102
  1. ;;9002226.02101,"889,00179108802 ",.01)
  1. ;;00179108802
  1. ;;9002226.02101,"889,00179108802 ",.02)
  1. ;;00179108802
  1. ;;9002226.02101,"889,00179108902 ",.01)
  1. ;;00179108902
  1. ;;9002226.02101,"889,00179108902 ",.02)
  1. ;;00179108902
  1. ;;9002226.02101,"889,00179109002 ",.01)
  1. ;;00179109002
  1. ;;9002226.02101,"889,00179109002 ",.02)
  1. ;;00179109002
  1. ;;9002226.02101,"889,00179109102 ",.01)
  1. ;;00179109102
  1. ;;9002226.02101,"889,00179109102 ",.02)
  1. ;;00179109102
  1. ;;9002226.02101,"889,00179116501 ",.01)
  1. ;;00179116501
  1. ;;9002226.02101,"889,00179116501 ",.02)
  1. ;;00179116501
  1. ;;9002226.02101,"889,00179116530 ",.01)
  1. ;;00179116530
  1. ;;9002226.02101,"889,00179116530 ",.02)
  1. ;;00179116530
  1. ;;9002226.02101,"889,00179116550 ",.01)
  1. ;;00179116550
  1. ;;9002226.02101,"889,00179116550 ",.02)
  1. ;;00179116550
  1. ;;9002226.02101,"889,00179116560 ",.01)
  1. ;;00179116560
  1. ;;9002226.02101,"889,00179116560 ",.02)
  1. ;;00179116560
  1. ;;9002226.02101,"889,00179116590 ",.01)
  1. ;;00179116590
  1. ;;9002226.02101,"889,00179116590 ",.02)
  1. ;;00179116590
  1. ;;9002226.02101,"889,00179116601 ",.01)
  1. ;;00179116601
  1. ;;9002226.02101,"889,00179116601 ",.02)
  1. ;;00179116601
  1. ;;9002226.02101,"889,00179116630 ",.01)
  1. ;;00179116630
  1. ;;9002226.02101,"889,00179116630 ",.02)
  1. ;;00179116630
  1. ;;9002226.02101,"889,00179141701 ",.01)
  1. ;;00179141701
  1. ;;9002226.02101,"889,00179141701 ",.02)
  1. ;;00179141701
  1. ;;9002226.02101,"889,00179141730 ",.01)
  1. ;;00179141730
  1. ;;9002226.02101,"889,00179141730 ",.02)
  1. ;;00179141730
  1. ;;9002226.02101,"889,00179141750 ",.01)
  1. ;;00179141750
  1. ;;9002226.02101,"889,00179141750 ",.02)
  1. ;;00179141750
  1. ;;9002226.02101,"889,00179141760 ",.01)
  1. ;;00179141760
  1. ;;9002226.02101,"889,00179141760 ",.02)
  1. ;;00179141760
  1. ;;9002226.02101,"889,00179143901 ",.01)
  1. ;;00179143901
  1. ;;9002226.02101,"889,00179143901 ",.02)
  1. ;;00179143901
  1. ;;9002226.02101,"889,00179143930 ",.01)
  1. ;;00179143930
  1. ;;9002226.02101,"889,00179143930 ",.02)
  1. ;;00179143930
  1. ;;9002226.02101,"889,00179143950 ",.01)
  1. ;;00179143950
  1. ;;9002226.02101,"889,00179143950 ",.02)
  1. ;;00179143950
  1. ;;9002226.02101,"889,00179143960 ",.01)
  1. ;;00179143960
  1. ;;9002226.02101,"889,00179143960 ",.02)
  1. ;;00179143960
  1. ;;9002226.02101,"889,00179143990 ",.01)
  1. ;;00179143990
  1. ;;9002226.02101,"889,00179143990 ",.02)
  1. ;;00179143990
  1. ;;9002226.02101,"889,00179145201 ",.01)
  1. ;;00179145201
  1. ;;9002226.02101,"889,00179145201 ",.02)
  1. ;;00179145201
  1. ;;9002226.02101,"889,00179145230 ",.01)
  1. ;;00179145230
  1. ;;9002226.02101,"889,00179145230 ",.02)
  1. ;;00179145230
  1. ;;9002226.02101,"889,00179145250 ",.01)
  1. ;;00179145250
  1. ;;9002226.02101,"889,00179145250 ",.02)
  1. ;;00179145250
  1. ;;9002226.02101,"889,00179145260 ",.01)
  1. ;;00179145260
  1. ;;9002226.02101,"889,00179145260 ",.02)
  1. ;;00179145260
  1. ;;9002226.02101,"889,00179145290 ",.01)
  1. ;;00179145290
  1. ;;9002226.02101,"889,00179145290 ",.02)
  1. ;;00179145290
  1. ;;9002226.02101,"889,00179150101 ",.01)
  1. ;;00179150101
  1. ;;9002226.02101,"889,00179150101 ",.02)
  1. ;;00179150101
  1. ;;9002226.02101,"889,00179150130 ",.01)
  1. ;;00179150130
  1. ;;9002226.02101,"889,00179150130 ",.02)
  1. ;;00179150130
  1. ;;9002226.02101,"889,00179150160 ",.01)
  1. ;;00179150160
  1. ;;9002226.02101,"889,00179150160 ",.02)
  1. ;;00179150160
  1. ;;9002226.02101,"889,00179150170 ",.01)
  1. ;;00179150170
  1. ;;9002226.02101,"889,00179150170 ",.02)
  1. ;;00179150170
  1. ;;9002226.02101,"889,00179159770 ",.01)
  1. ;;00179159770
  1. ;;9002226.02101,"889,00179159770 ",.02)
  1. ;;00179159770
  1. ;;9002226.02101,"889,00179159771 ",.01)
  1. ;;00179159771
  1. ;;9002226.02101,"889,00179159771 ",.02)
  1. ;;00179159771
  1. ;;9002226.02101,"889,00179159772 ",.01)
  1. ;;00179159772
  1. ;;9002226.02101,"889,00179159772 ",.02)
  1. ;;00179159772
  1. ;;9002226.02101,"889,00179164870 ",.01)
  1. ;;00179164870
  1. ;;9002226.02101,"889,00179164870 ",.02)
  1. ;;00179164870
  1. ;;9002226.02101,"889,00179164871 ",.01)
  1. ;;00179164871
  1. ;;9002226.02101,"889,00179164871 ",.02)
  1. ;;00179164871
  1. ;;9002226.02101,"889,00179164872 ",.01)
  1. ;;00179164872
  1. ;;9002226.02101,"889,00179164872 ",.02)
  1. ;;00179164872
  1. ;;9002226.02101,"889,00179165170 ",.01)
  1. ;;00179165170
  1. ;;9002226.02101,"889,00179165170 ",.02)
  1. ;;00179165170
  1. ;;9002226.02101,"889,00179165171 ",.01)
  1. ;;00179165171
  1. ;;9002226.02101,"889,00179165171 ",.02)
  1. ;;00179165171
  1. ;;9002226.02101,"889,00179165172 ",.01)
  1. ;;00179165172
  1. ;;9002226.02101,"889,00179165172 ",.02)
  1. ;;00179165172
  1. ;;9002226.02101,"889,00179175670 ",.01)
  1. ;;00179175670
  1. ;;9002226.02101,"889,00179175670 ",.02)
  1. ;;00179175670
  1. ;;9002226.02101,"889,00179175671 ",.01)
  1. ;;00179175671
  1. ;;9002226.02101,"889,00179175671 ",.02)
  1. ;;00179175671
  1. ;;9002226.02101,"889,00179175672 ",.01)
  1. ;;00179175672
  1. ;;9002226.02101,"889,00179175672 ",.02)
  1. ;;00179175672
  1. ;;9002226.02101,"889,00179176070 ",.01)
  1. ;;00179176070
  1. ;;9002226.02101,"889,00179176070 ",.02)
  1. ;;00179176070
  1. ;;9002226.02101,"889,00179176071 ",.01)
  1. ;;00179176071
  1. ;;9002226.02101,"889,00179176071 ",.02)
  1. ;;00179176071
  1. ;;9002226.02101,"889,00179176072 ",.01)
  1. ;;00179176072
  1. ;;9002226.02101,"889,00179176072 ",.02)
  1. ;;00179176072
  1. ;;9002226.02101,"889,00179188470 ",.01)
  1. ;;00179188470
  1. ;;9002226.02101,"889,00179188470 ",.02)
  1. ;;00179188470
  1. ;;9002226.02101,"889,00179188471 ",.01)
  1. ;;00179188471
  1. ;;9002226.02101,"889,00179188471 ",.02)
  1. ;;00179188471
  1. ;;9002226.02101,"889,00179188472 ",.01)
  1. ;;00179188472
  1. ;;9002226.02101,"889,00179188472 ",.02)
  1. ;;00179188472
  1. ;;9002226.02101,"889,00179197401 ",.01)
  1. ;;00179197401
  1. ;;9002226.02101,"889,00179197401 ",.02)
  1. ;;00179197401
  1. ;;9002226.02101,"889,00179197430 ",.01)
  1. ;;00179197430
  1. ;;9002226.02101,"889,00179197430 ",.02)
  1. ;;00179197430
  1. ;;9002226.02101,"889,00179197450 ",.01)
  1. ;;00179197450
  1. ;;9002226.02101,"889,00179197450 ",.02)
  1. ;;00179197450
  1. ;;9002226.02101,"889,00179197460 ",.01)
  1. ;;00179197460
  1. ;;9002226.02101,"889,00179197460 ",.02)
  1. ;;00179197460
  1. ;;9002226.02101,"889,00179197490 ",.01)
  1. ;;00179197490
  1. ;;9002226.02101,"889,00179197490 ",.02)
  1. ;;00179197490
  1. ;;9002226.02101,"889,00179197501 ",.01)
  1. ;;00179197501
  1. ;;9002226.02101,"889,00179197501 ",.02)
  1. ;;00179197501