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.
BGPM5AIZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"889,00085036207 ",.01)
 ;;00085036207
 ;;9002226.02101,"889,00085036207 ",.02)
 ;;00085036207
 ;;9002226.02101,"889,00085036208 ",.01)
 ;;00085036208
 ;;9002226.02101,"889,00085036208 ",.02)
 ;;00085036208
 ;;9002226.02101,"889,00085036209 ",.01)
 ;;00085036209
 ;;9002226.02101,"889,00085036209 ",.02)
 ;;00085036209
 ;;9002226.02101,"889,00085043803 ",.01)
 ;;00085043803
 ;;9002226.02101,"889,00085043803 ",.02)
 ;;00085043803
 ;;9002226.02101,"889,00085043805 ",.01)
 ;;00085043805
 ;;9002226.02101,"889,00085043805 ",.02)
 ;;00085043805
 ;;9002226.02101,"889,00085043806 ",.01)
 ;;00085043806
 ;;9002226.02101,"889,00085043806 ",.02)
 ;;00085043806
 ;;9002226.02101,"889,00085075204 ",.01)
 ;;00085075204
 ;;9002226.02101,"889,00085075204 ",.02)
 ;;00085075204
 ;;9002226.02101,"889,00085075205 ",.01)
 ;;00085075205
 ;;9002226.02101,"889,00085075205 ",.02)
 ;;00085075205
 ;;9002226.02101,"889,00085075207 ",.01)
 ;;00085075207
 ;;9002226.02101,"889,00085075207 ",.02)
 ;;00085075207
 ;;9002226.02101,"889,00085075208 ",.01)
 ;;00085075208
 ;;9002226.02101,"889,00085075208 ",.02)
 ;;00085075208
 ;;9002226.02101,"889,00091450015 ",.01)
 ;;00091450015
 ;;9002226.02101,"889,00091450015 ",.02)
 ;;00091450015
 ;;9002226.02101,"889,00093073301 ",.01)
 ;;00093073301
 ;;9002226.02101,"889,00093073301 ",.02)
 ;;00093073301
 ;;9002226.02101,"889,00093073310 ",.01)
 ;;00093073310
 ;;9002226.02101,"889,00093073310 ",.02)
 ;;00093073310
 ;;9002226.02101,"889,00093073401 ",.01)
 ;;00093073401
 ;;9002226.02101,"889,00093073401 ",.02)
 ;;00093073401
 ;;9002226.02101,"889,00093073410 ",.01)
 ;;00093073410
 ;;9002226.02101,"889,00093073410 ",.02)
 ;;00093073410
 ;;9002226.02101,"889,00093075201 ",.01)
 ;;00093075201
 ;;9002226.02101,"889,00093075201 ",.02)
 ;;00093075201
 ;;9002226.02101,"889,00093075210 ",.01)
 ;;00093075210
 ;;9002226.02101,"889,00093075210 ",.02)
 ;;00093075210
 ;;9002226.02101,"889,00093075301 ",.01)
 ;;00093075301
 ;;9002226.02101,"889,00093075301 ",.02)
 ;;00093075301
 ;;9002226.02101,"889,00093075305 ",.01)
 ;;00093075305
 ;;9002226.02101,"889,00093075305 ",.02)
 ;;00093075305
 ;;9002226.02101,"889,00093078701 ",.01)
 ;;00093078701
 ;;9002226.02101,"889,00093078701 ",.02)
 ;;00093078701
 ;;9002226.02101,"889,00093078710 ",.01)
 ;;00093078710
 ;;9002226.02101,"889,00093078710 ",.02)
 ;;00093078710
 ;;9002226.02101,"889,00093423501 ",.01)
 ;;00093423501
 ;;9002226.02101,"889,00093423501 ",.02)
 ;;00093423501
 ;;9002226.02101,"889,00093423601 ",.01)
 ;;00093423601
 ;;9002226.02101,"889,00093423601 ",.02)
 ;;00093423601
 ;;9002226.02101,"889,00093423701 ",.01)
 ;;00093423701
 ;;9002226.02101,"889,00093423701 ",.02)
 ;;00093423701
 ;;9002226.02101,"889,00093527056 ",.01)
 ;;00093527056
 ;;9002226.02101,"889,00093527056 ",.02)
 ;;00093527056
 ;;9002226.02101,"889,00093527156 ",.01)
 ;;00093527156
 ;;9002226.02101,"889,00093527156 ",.02)
 ;;00093527156
 ;;9002226.02101,"889,00131450015 ",.01)
 ;;00131450015
 ;;9002226.02101,"889,00131450015 ",.02)
 ;;00131450015
 ;;9002226.02101,"889,00143987201 ",.01)
 ;;00143987201
 ;;9002226.02101,"889,00143987201 ",.02)
 ;;00143987201
 ;;9002226.02101,"889,00143987301 ",.01)
 ;;00143987301
 ;;9002226.02101,"889,00143987301 ",.02)
 ;;00143987301
 ;;9002226.02101,"889,00143987310 ",.01)
 ;;00143987310
 ;;9002226.02101,"889,00143987310 ",.02)
 ;;00143987310
 ;;9002226.02101,"889,00172436400 ",.01)
 ;;00172436400
 ;;9002226.02101,"889,00172436400 ",.02)
 ;;00172436400
 ;;9002226.02101,"889,00172436410 ",.01)
 ;;00172436410
 ;;9002226.02101,"889,00172436410 ",.02)
 ;;00172436410
 ;;9002226.02101,"889,00172436460 ",.01)
 ;;00172436460
 ;;9002226.02101,"889,00172436460 ",.02)
 ;;00172436460
 ;;9002226.02101,"889,00172436470 ",.01)
 ;;00172436470
 ;;9002226.02101,"889,00172436470 ",.02)
 ;;00172436470
 ;;9002226.02101,"889,00172436500 ",.01)
 ;;00172436500
 ;;9002226.02101,"889,00172436500 ",.02)
 ;;00172436500
 ;;9002226.02101,"889,00172436510 ",.01)
 ;;00172436510
 ;;9002226.02101,"889,00172436510 ",.02)
 ;;00172436510
 ;;9002226.02101,"889,00172436560 ",.01)
 ;;00172436560
 ;;9002226.02101,"889,00172436560 ",.02)
 ;;00172436560
 ;;9002226.02101,"889,00172436570 ",.01)
 ;;00172436570
 ;;9002226.02101,"889,00172436570 ",.02)
 ;;00172436570
 ;;9002226.02101,"889,00172436660 ",.01)
 ;;00172436660
 ;;9002226.02101,"889,00172436660 ",.02)
 ;;00172436660
 ;;9002226.02101,"889,00172573060 ",.01)
 ;;00172573060
 ;;9002226.02101,"889,00172573060 ",.02)
 ;;00172573060
 ;;9002226.02101,"889,00172573070 ",.01)
 ;;00172573070
 ;;9002226.02101,"889,00172573070 ",.02)
 ;;00172573070
 ;;9002226.02101,"889,00172573160 ",.01)
 ;;00172573160
 ;;9002226.02101,"889,00172573160 ",.02)
 ;;00172573160
 ;;9002226.02101,"889,00172573170 ",.01)
 ;;00172573170
 ;;9002226.02101,"889,00172573170 ",.02)
 ;;00172573170
 ;;9002226.02101,"889,00172573260 ",.01)
 ;;00172573260
 ;;9002226.02101,"889,00172573260 ",.02)
 ;;00172573260
 ;;9002226.02101,"889,00172573270 ",.01)
 ;;00172573270
 ;;9002226.02101,"889,00172573270 ",.02)
 ;;00172573270
 ;;9002226.02101,"889,00173079001 ",.01)
 ;;00173079001
 ;;9002226.02101,"889,00173079001 ",.02)
 ;;00173079001
 ;;9002226.02101,"889,00173079002 ",.01)
 ;;00173079002
 ;;9002226.02101,"889,00173079002 ",.02)
 ;;00173079002
 ;;9002226.02101,"889,00173079101 ",.01)
 ;;00173079101
 ;;9002226.02101,"889,00173079101 ",.02)
 ;;00173079101
 ;;9002226.02101,"889,00173079102 ",.01)
 ;;00173079102
 ;;9002226.02101,"889,00173079102 ",.02)
 ;;00173079102
 ;;9002226.02101,"889,00179108802 ",.01)
 ;;00179108802
 ;;9002226.02101,"889,00179108802 ",.02)
 ;;00179108802
 ;;9002226.02101,"889,00179108902 ",.01)
 ;;00179108902
 ;;9002226.02101,"889,00179108902 ",.02)
 ;;00179108902
 ;;9002226.02101,"889,00179109002 ",.01)
 ;;00179109002
 ;;9002226.02101,"889,00179109002 ",.02)
 ;;00179109002
 ;;9002226.02101,"889,00179109102 ",.01)
 ;;00179109102
 ;;9002226.02101,"889,00179109102 ",.02)
 ;;00179109102
 ;;9002226.02101,"889,00179116501 ",.01)
 ;;00179116501
 ;;9002226.02101,"889,00179116501 ",.02)
 ;;00179116501
 ;;9002226.02101,"889,00179116530 ",.01)
 ;;00179116530
 ;;9002226.02101,"889,00179116530 ",.02)
 ;;00179116530
 ;;9002226.02101,"889,00179116550 ",.01)
 ;;00179116550
 ;;9002226.02101,"889,00179116550 ",.02)
 ;;00179116550
 ;;9002226.02101,"889,00179116560 ",.01)
 ;;00179116560
 ;;9002226.02101,"889,00179116560 ",.02)
 ;;00179116560
 ;;9002226.02101,"889,00179116590 ",.01)
 ;;00179116590
 ;;9002226.02101,"889,00179116590 ",.02)
 ;;00179116590
 ;;9002226.02101,"889,00179116601 ",.01)
 ;;00179116601
 ;;9002226.02101,"889,00179116601 ",.02)
 ;;00179116601
 ;;9002226.02101,"889,00179116630 ",.01)
 ;;00179116630
 ;;9002226.02101,"889,00179116630 ",.02)
 ;;00179116630
 ;;9002226.02101,"889,00179141701 ",.01)
 ;;00179141701
 ;;9002226.02101,"889,00179141701 ",.02)
 ;;00179141701
 ;;9002226.02101,"889,00179141730 ",.01)
 ;;00179141730
 ;;9002226.02101,"889,00179141730 ",.02)
 ;;00179141730
 ;;9002226.02101,"889,00179141750 ",.01)
 ;;00179141750
 ;;9002226.02101,"889,00179141750 ",.02)
 ;;00179141750
 ;;9002226.02101,"889,00179141760 ",.01)
 ;;00179141760
 ;;9002226.02101,"889,00179141760 ",.02)
 ;;00179141760
 ;;9002226.02101,"889,00179143901 ",.01)
 ;;00179143901
 ;;9002226.02101,"889,00179143901 ",.02)
 ;;00179143901
 ;;9002226.02101,"889,00179143930 ",.01)
 ;;00179143930
 ;;9002226.02101,"889,00179143930 ",.02)
 ;;00179143930
 ;;9002226.02101,"889,00179143950 ",.01)
 ;;00179143950
 ;;9002226.02101,"889,00179143950 ",.02)
 ;;00179143950
 ;;9002226.02101,"889,00179143960 ",.01)
 ;;00179143960
 ;;9002226.02101,"889,00179143960 ",.02)
 ;;00179143960
 ;;9002226.02101,"889,00179143990 ",.01)
 ;;00179143990
 ;;9002226.02101,"889,00179143990 ",.02)
 ;;00179143990
 ;;9002226.02101,"889,00179145201 ",.01)
 ;;00179145201
 ;;9002226.02101,"889,00179145201 ",.02)
 ;;00179145201
 ;;9002226.02101,"889,00179145230 ",.01)
 ;;00179145230
 ;;9002226.02101,"889,00179145230 ",.02)
 ;;00179145230
 ;;9002226.02101,"889,00179145250 ",.01)
 ;;00179145250
 ;;9002226.02101,"889,00179145250 ",.02)
 ;;00179145250
 ;;9002226.02101,"889,00179145260 ",.01)
 ;;00179145260
 ;;9002226.02101,"889,00179145260 ",.02)
 ;;00179145260
 ;;9002226.02101,"889,00179145290 ",.01)
 ;;00179145290
 ;;9002226.02101,"889,00179145290 ",.02)
 ;;00179145290
 ;;9002226.02101,"889,00179150101 ",.01)
 ;;00179150101
 ;;9002226.02101,"889,00179150101 ",.02)
 ;;00179150101
 ;;9002226.02101,"889,00179150130 ",.01)
 ;;00179150130
 ;;9002226.02101,"889,00179150130 ",.02)
 ;;00179150130
 ;;9002226.02101,"889,00179150160 ",.01)
 ;;00179150160
 ;;9002226.02101,"889,00179150160 ",.02)
 ;;00179150160
 ;;9002226.02101,"889,00179150170 ",.01)
 ;;00179150170
 ;;9002226.02101,"889,00179150170 ",.02)
 ;;00179150170
 ;;9002226.02101,"889,00179159770 ",.01)
 ;;00179159770
 ;;9002226.02101,"889,00179159770 ",.02)
 ;;00179159770
 ;;9002226.02101,"889,00179159771 ",.01)
 ;;00179159771
 ;;9002226.02101,"889,00179159771 ",.02)
 ;;00179159771
 ;;9002226.02101,"889,00179159772 ",.01)
 ;;00179159772
 ;;9002226.02101,"889,00179159772 ",.02)
 ;;00179159772
 ;;9002226.02101,"889,00179164870 ",.01)
 ;;00179164870
 ;;9002226.02101,"889,00179164870 ",.02)
 ;;00179164870
 ;;9002226.02101,"889,00179164871 ",.01)
 ;;00179164871
 ;;9002226.02101,"889,00179164871 ",.02)
 ;;00179164871
 ;;9002226.02101,"889,00179164872 ",.01)
 ;;00179164872
 ;;9002226.02101,"889,00179164872 ",.02)
 ;;00179164872
 ;;9002226.02101,"889,00179165170 ",.01)
 ;;00179165170
 ;;9002226.02101,"889,00179165170 ",.02)
 ;;00179165170
 ;;9002226.02101,"889,00179165171 ",.01)
 ;;00179165171
 ;;9002226.02101,"889,00179165171 ",.02)
 ;;00179165171
 ;;9002226.02101,"889,00179165172 ",.01)
 ;;00179165172
 ;;9002226.02101,"889,00179165172 ",.02)
 ;;00179165172
 ;;9002226.02101,"889,00179175670 ",.01)
 ;;00179175670
 ;;9002226.02101,"889,00179175670 ",.02)
 ;;00179175670
 ;;9002226.02101,"889,00179175671 ",.01)
 ;;00179175671
 ;;9002226.02101,"889,00179175671 ",.02)
 ;;00179175671
 ;;9002226.02101,"889,00179175672 ",.01)
 ;;00179175672
 ;;9002226.02101,"889,00179175672 ",.02)
 ;;00179175672
 ;;9002226.02101,"889,00179176070 ",.01)
 ;;00179176070
 ;;9002226.02101,"889,00179176070 ",.02)
 ;;00179176070
 ;;9002226.02101,"889,00179176071 ",.01)
 ;;00179176071
 ;;9002226.02101,"889,00179176071 ",.02)
 ;;00179176071
 ;;9002226.02101,"889,00179176072 ",.01)
 ;;00179176072
 ;;9002226.02101,"889,00179176072 ",.02)
 ;;00179176072
 ;;9002226.02101,"889,00179188470 ",.01)
 ;;00179188470
 ;;9002226.02101,"889,00179188470 ",.02)
 ;;00179188470
 ;;9002226.02101,"889,00179188471 ",.01)
 ;;00179188471
 ;;9002226.02101,"889,00179188471 ",.02)
 ;;00179188471
 ;;9002226.02101,"889,00179188472 ",.01)
 ;;00179188472
 ;;9002226.02101,"889,00179188472 ",.02)
 ;;00179188472
 ;;9002226.02101,"889,00179197401 ",.01)
 ;;00179197401
 ;;9002226.02101,"889,00179197401 ",.02)
 ;;00179197401
 ;;9002226.02101,"889,00179197430 ",.01)
 ;;00179197430
 ;;9002226.02101,"889,00179197430 ",.02)
 ;;00179197430
 ;;9002226.02101,"889,00179197450 ",.01)
 ;;00179197450
 ;;9002226.02101,"889,00179197450 ",.02)
 ;;00179197450
 ;;9002226.02101,"889,00179197460 ",.01)
 ;;00179197460
 ;;9002226.02101,"889,00179197460 ",.02)
 ;;00179197460
 ;;9002226.02101,"889,00179197490 ",.01)
 ;;00179197490
 ;;9002226.02101,"889,00179197490 ",.02)
 ;;00179197490
 ;;9002226.02101,"889,00179197501 ",.01)
 ;;00179197501
 ;;9002226.02101,"889,00179197501 ",.02)
 ;;00179197501