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

BGPM5AEB.m

Go to the documentation of this file.
  1. BGPM5AEB ;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,"881,00185003301 ",.01)
  1. ;;00185003301
  1. ;;9002226.02101,"881,00185003301 ",.02)
  1. ;;00185003301
  1. ;;9002226.02101,"881,00185003305 ",.01)
  1. ;;00185003305
  1. ;;9002226.02101,"881,00185003305 ",.02)
  1. ;;00185003305
  1. ;;9002226.02101,"881,00185003309 ",.01)
  1. ;;00185003309
  1. ;;9002226.02101,"881,00185003309 ",.02)
  1. ;;00185003309
  1. ;;9002226.02101,"881,00185003310 ",.01)
  1. ;;00185003310
  1. ;;9002226.02101,"881,00185003310 ",.02)
  1. ;;00185003310
  1. ;;9002226.02101,"881,00185004101 ",.01)
  1. ;;00185004101
  1. ;;9002226.02101,"881,00185004101 ",.02)
  1. ;;00185004101
  1. ;;9002226.02101,"881,00185004109 ",.01)
  1. ;;00185004109
  1. ;;9002226.02101,"881,00185004109 ",.02)
  1. ;;00185004109
  1. ;;9002226.02101,"881,00185004110 ",.01)
  1. ;;00185004110
  1. ;;9002226.02101,"881,00185004110 ",.02)
  1. ;;00185004110
  1. ;;9002226.02101,"881,00185004190 ",.01)
  1. ;;00185004190
  1. ;;9002226.02101,"881,00185004190 ",.02)
  1. ;;00185004190
  1. ;;9002226.02101,"881,00185004201 ",.01)
  1. ;;00185004201
  1. ;;9002226.02101,"881,00185004201 ",.02)
  1. ;;00185004201
  1. ;;9002226.02101,"881,00185004209 ",.01)
  1. ;;00185004209
  1. ;;9002226.02101,"881,00185004209 ",.02)
  1. ;;00185004209
  1. ;;9002226.02101,"881,00185004210 ",.01)
  1. ;;00185004210
  1. ;;9002226.02101,"881,00185004210 ",.02)
  1. ;;00185004210
  1. ;;9002226.02101,"881,00185004290 ",.01)
  1. ;;00185004290
  1. ;;9002226.02101,"881,00185004290 ",.02)
  1. ;;00185004290
  1. ;;9002226.02101,"881,00185004701 ",.01)
  1. ;;00185004701
  1. ;;9002226.02101,"881,00185004701 ",.02)
  1. ;;00185004701
  1. ;;9002226.02101,"881,00185004709 ",.01)
  1. ;;00185004709
  1. ;;9002226.02101,"881,00185004709 ",.02)
  1. ;;00185004709
  1. ;;9002226.02101,"881,00185004710 ",.01)
  1. ;;00185004710
  1. ;;9002226.02101,"881,00185004710 ",.02)
  1. ;;00185004710
  1. ;;9002226.02101,"881,00185004790 ",.01)
  1. ;;00185004790
  1. ;;9002226.02101,"881,00185004790 ",.02)
  1. ;;00185004790
  1. ;;9002226.02101,"881,00185004901 ",.01)
  1. ;;00185004901
  1. ;;9002226.02101,"881,00185004901 ",.02)
  1. ;;00185004901
  1. ;;9002226.02101,"881,00185004905 ",.01)
  1. ;;00185004905
  1. ;;9002226.02101,"881,00185004905 ",.02)
  1. ;;00185004905
  1. ;;9002226.02101,"881,00185004909 ",.01)
  1. ;;00185004909
  1. ;;9002226.02101,"881,00185004909 ",.02)
  1. ;;00185004909
  1. ;;9002226.02101,"881,00185004910 ",.01)
  1. ;;00185004910
  1. ;;9002226.02101,"881,00185004910 ",.02)
  1. ;;00185004910
  1. ;;9002226.02101,"881,00185006701 ",.01)
  1. ;;00185006701
  1. ;;9002226.02101,"881,00185006701 ",.02)
  1. ;;00185006701
  1. ;;9002226.02101,"881,00185006705 ",.01)
  1. ;;00185006705
  1. ;;9002226.02101,"881,00185006705 ",.02)
  1. ;;00185006705
  1. ;;9002226.02101,"881,00185006709 ",.01)
  1. ;;00185006709
  1. ;;9002226.02101,"881,00185006709 ",.02)
  1. ;;00185006709
  1. ;;9002226.02101,"881,00185006710 ",.01)
  1. ;;00185006710
  1. ;;9002226.02101,"881,00185006710 ",.02)
  1. ;;00185006710
  1. ;;9002226.02101,"881,00185010101 ",.01)
  1. ;;00185010101
  1. ;;9002226.02101,"881,00185010101 ",.02)
  1. ;;00185010101
  1. ;;9002226.02101,"881,00185010110 ",.01)
  1. ;;00185010110
  1. ;;9002226.02101,"881,00185010110 ",.02)
  1. ;;00185010110
  1. ;;9002226.02101,"881,00185010133 ",.01)
  1. ;;00185010133
  1. ;;9002226.02101,"881,00185010133 ",.02)
  1. ;;00185010133
  1. ;;9002226.02101,"881,00185010201 ",.01)
  1. ;;00185010201
  1. ;;9002226.02101,"881,00185010201 ",.02)
  1. ;;00185010201
  1. ;;9002226.02101,"881,00185010210 ",.01)
  1. ;;00185010210
  1. ;;9002226.02101,"881,00185010210 ",.02)
  1. ;;00185010210
  1. ;;9002226.02101,"881,00185010233 ",.01)
  1. ;;00185010233
  1. ;;9002226.02101,"881,00185010233 ",.02)
  1. ;;00185010233
  1. ;;9002226.02101,"881,00185010301 ",.01)
  1. ;;00185010301
  1. ;;9002226.02101,"881,00185010301 ",.02)
  1. ;;00185010301
  1. ;;9002226.02101,"881,00185010310 ",.01)
  1. ;;00185010310
  1. ;;9002226.02101,"881,00185010310 ",.02)
  1. ;;00185010310
  1. ;;9002226.02101,"881,00185010333 ",.01)
  1. ;;00185010333
  1. ;;9002226.02101,"881,00185010333 ",.02)
  1. ;;00185010333
  1. ;;9002226.02101,"881,00185010401 ",.01)
  1. ;;00185010401
  1. ;;9002226.02101,"881,00185010401 ",.02)
  1. ;;00185010401
  1. ;;9002226.02101,"881,00185010410 ",.01)
  1. ;;00185010410
  1. ;;9002226.02101,"881,00185010410 ",.02)
  1. ;;00185010410
  1. ;;9002226.02101,"881,00185011401 ",.01)
  1. ;;00185011401
  1. ;;9002226.02101,"881,00185011401 ",.02)
  1. ;;00185011401
  1. ;;9002226.02101,"881,00185011410 ",.01)
  1. ;;00185011410
  1. ;;9002226.02101,"881,00185011410 ",.02)
  1. ;;00185011410
  1. ;;9002226.02101,"881,00185011450 ",.01)
  1. ;;00185011450
  1. ;;9002226.02101,"881,00185011450 ",.02)
  1. ;;00185011450
  1. ;;9002226.02101,"881,00185012701 ",.01)
  1. ;;00185012701
  1. ;;9002226.02101,"881,00185012701 ",.02)
  1. ;;00185012701
  1. ;;9002226.02101,"881,00185012710 ",.01)
  1. ;;00185012710
  1. ;;9002226.02101,"881,00185012710 ",.02)
  1. ;;00185012710
  1. ;;9002226.02101,"881,00185012750 ",.01)
  1. ;;00185012750
  1. ;;9002226.02101,"881,00185012750 ",.02)
  1. ;;00185012750
  1. ;;9002226.02101,"881,00185014701 ",.01)
  1. ;;00185014701
  1. ;;9002226.02101,"881,00185014701 ",.02)
  1. ;;00185014701
  1. ;;9002226.02101,"881,00185014710 ",.01)
  1. ;;00185014710
  1. ;;9002226.02101,"881,00185014710 ",.02)
  1. ;;00185014710
  1. ;;9002226.02101,"881,00185014750 ",.01)
  1. ;;00185014750
  1. ;;9002226.02101,"881,00185014750 ",.02)
  1. ;;00185014750
  1. ;;9002226.02101,"881,00185015101 ",.01)
  1. ;;00185015101
  1. ;;9002226.02101,"881,00185015101 ",.02)
  1. ;;00185015101
  1. ;;9002226.02101,"881,00185015110 ",.01)
  1. ;;00185015110
  1. ;;9002226.02101,"881,00185015110 ",.02)
  1. ;;00185015110
  1. ;;9002226.02101,"881,00185015201 ",.01)
  1. ;;00185015201
  1. ;;9002226.02101,"881,00185015201 ",.02)
  1. ;;00185015201
  1. ;;9002226.02101,"881,00185015210 ",.01)
  1. ;;00185015210
  1. ;;9002226.02101,"881,00185015210 ",.02)
  1. ;;00185015210
  1. ;;9002226.02101,"881,00185017201 ",.01)
  1. ;;00185017201
  1. ;;9002226.02101,"881,00185017201 ",.02)
  1. ;;00185017201
  1. ;;9002226.02101,"881,00185017210 ",.01)
  1. ;;00185017210
  1. ;;9002226.02101,"881,00185017210 ",.02)
  1. ;;00185017210
  1. ;;9002226.02101,"881,00185017301 ",.01)
  1. ;;00185017301
  1. ;;9002226.02101,"881,00185017301 ",.02)
  1. ;;00185017301
  1. ;;9002226.02101,"881,00185017310 ",.01)
  1. ;;00185017310
  1. ;;9002226.02101,"881,00185017310 ",.02)
  1. ;;00185017310
  1. ;;9002226.02101,"881,00185021401 ",.01)
  1. ;;00185021401
  1. ;;9002226.02101,"881,00185021401 ",.02)
  1. ;;00185021401
  1. ;;9002226.02101,"881,00185021410 ",.01)
  1. ;;00185021410
  1. ;;9002226.02101,"881,00185021410 ",.02)
  1. ;;00185021410
  1. ;;9002226.02101,"881,00185021450 ",.01)
  1. ;;00185021450
  1. ;;9002226.02101,"881,00185021450 ",.02)
  1. ;;00185021450
  1. ;;9002226.02101,"881,00185034101 ",.01)
  1. ;;00185034101
  1. ;;9002226.02101,"881,00185034101 ",.02)
  1. ;;00185034101
  1. ;;9002226.02101,"881,00185034110 ",.01)
  1. ;;00185034110
  1. ;;9002226.02101,"881,00185034110 ",.02)
  1. ;;00185034110
  1. ;;9002226.02101,"881,00185034201 ",.01)
  1. ;;00185034201
  1. ;;9002226.02101,"881,00185034201 ",.02)
  1. ;;00185034201
  1. ;;9002226.02101,"881,00185034210 ",.01)
  1. ;;00185034210
  1. ;;9002226.02101,"881,00185034210 ",.02)
  1. ;;00185034210
  1. ;;9002226.02101,"881,00185047101 ",.01)
  1. ;;00185047101
  1. ;;9002226.02101,"881,00185047101 ",.02)
  1. ;;00185047101
  1. ;;9002226.02101,"881,00185047110 ",.01)
  1. ;;00185047110
  1. ;;9002226.02101,"881,00185047110 ",.02)
  1. ;;00185047110
  1. ;;9002226.02101,"881,00185540001 ",.01)
  1. ;;00185540001
  1. ;;9002226.02101,"881,00185540001 ",.02)
  1. ;;00185540001
  1. ;;9002226.02101,"881,00185540010 ",.01)
  1. ;;00185540010
  1. ;;9002226.02101,"881,00185540010 ",.02)
  1. ;;00185540010
  1. ;;9002226.02101,"881,00185540033 ",.01)
  1. ;;00185540033
  1. ;;9002226.02101,"881,00185540033 ",.02)
  1. ;;00185540033
  1. ;;9002226.02101,"881,00185710001 ",.01)
  1. ;;00185710001
  1. ;;9002226.02101,"881,00185710001 ",.02)
  1. ;;00185710001
  1. ;;9002226.02101,"881,00185710010 ",.01)
  1. ;;00185710010
  1. ;;9002226.02101,"881,00185710010 ",.02)
  1. ;;00185710010
  1. ;;9002226.02101,"881,00228269511 ",.01)
  1. ;;00228269511
  1. ;;9002226.02101,"881,00228269511 ",.02)
  1. ;;00228269511
  1. ;;9002226.02101,"881,00228269550 ",.01)
  1. ;;00228269550
  1. ;;9002226.02101,"881,00228269550 ",.02)
  1. ;;00228269550
  1. ;;9002226.02101,"881,00228269611 ",.01)
  1. ;;00228269611
  1. ;;9002226.02101,"881,00228269611 ",.02)
  1. ;;00228269611
  1. ;;9002226.02101,"881,00228269650 ",.01)
  1. ;;00228269650
  1. ;;9002226.02101,"881,00228269650 ",.02)
  1. ;;00228269650
  1. ;;9002226.02101,"881,00228269711 ",.01)
  1. ;;00228269711
  1. ;;9002226.02101,"881,00228269711 ",.02)
  1. ;;00228269711
  1. ;;9002226.02101,"881,00228269750 ",.01)
  1. ;;00228269750
  1. ;;9002226.02101,"881,00228269750 ",.02)
  1. ;;00228269750
  1. ;;9002226.02101,"881,00228270603 ",.01)
  1. ;;00228270603
  1. ;;9002226.02101,"881,00228270603 ",.02)
  1. ;;00228270603
  1. ;;9002226.02101,"881,00228270611 ",.01)
  1. ;;00228270611
  1. ;;9002226.02101,"881,00228270611 ",.02)
  1. ;;00228270611
  1. ;;9002226.02101,"881,00228270650 ",.01)
  1. ;;00228270650
  1. ;;9002226.02101,"881,00228270650 ",.02)
  1. ;;00228270650
  1. ;;9002226.02101,"881,00228270696 ",.01)
  1. ;;00228270696
  1. ;;9002226.02101,"881,00228270696 ",.02)
  1. ;;00228270696
  1. ;;9002226.02101,"881,00228270703 ",.01)
  1. ;;00228270703
  1. ;;9002226.02101,"881,00228270703 ",.02)
  1. ;;00228270703
  1. ;;9002226.02101,"881,00228270711 ",.01)
  1. ;;00228270711
  1. ;;9002226.02101,"881,00228270711 ",.02)
  1. ;;00228270711
  1. ;;9002226.02101,"881,00228270750 ",.01)
  1. ;;00228270750
  1. ;;9002226.02101,"881,00228270750 ",.02)
  1. ;;00228270750
  1. ;;9002226.02101,"881,00228270796 ",.01)
  1. ;;00228270796
  1. ;;9002226.02101,"881,00228270796 ",.02)
  1. ;;00228270796
  1. ;;9002226.02101,"881,00228270803 ",.01)
  1. ;;00228270803
  1. ;;9002226.02101,"881,00228270803 ",.02)
  1. ;;00228270803
  1. ;;9002226.02101,"881,00228270811 ",.01)
  1. ;;00228270811
  1. ;;9002226.02101,"881,00228270811 ",.02)
  1. ;;00228270811
  1. ;;9002226.02101,"881,00228270850 ",.01)
  1. ;;00228270850
  1. ;;9002226.02101,"881,00228270850 ",.02)
  1. ;;00228270850
  1. ;;9002226.02101,"881,00228270896 ",.01)
  1. ;;00228270896
  1. ;;9002226.02101,"881,00228270896 ",.02)
  1. ;;00228270896
  1. ;;9002226.02101,"881,00247127700 ",.01)
  1. ;;00247127700
  1. ;;9002226.02101,"881,00247127700 ",.02)
  1. ;;00247127700
  1. ;;9002226.02101,"881,00247163530 ",.01)
  1. ;;00247163530
  1. ;;9002226.02101,"881,00247163530 ",.02)
  1. ;;00247163530
  1. ;;9002226.02101,"881,00247163600 ",.01)
  1. ;;00247163600
  1. ;;9002226.02101,"881,00247163600 ",.02)
  1. ;;00247163600
  1. ;;9002226.02101,"881,00247163601 ",.01)
  1. ;;00247163601
  1. ;;9002226.02101,"881,00247163601 ",.02)
  1. ;;00247163601
  1. ;;9002226.02101,"881,00247163614 ",.01)
  1. ;;00247163614
  1. ;;9002226.02101,"881,00247163614 ",.02)
  1. ;;00247163614
  1. ;;9002226.02101,"881,00247163630 ",.01)
  1. ;;00247163630
  1. ;;9002226.02101,"881,00247163630 ",.02)
  1. ;;00247163630
  1. ;;9002226.02101,"881,00247163660 ",.01)
  1. ;;00247163660
  1. ;;9002226.02101,"881,00247163660 ",.02)
  1. ;;00247163660
  1. ;;9002226.02101,"881,00247163690 ",.01)
  1. ;;00247163690
  1. ;;9002226.02101,"881,00247163690 ",.02)
  1. ;;00247163690
  1. ;;9002226.02101,"881,00247163699 ",.01)
  1. ;;00247163699
  1. ;;9002226.02101,"881,00247163699 ",.02)
  1. ;;00247163699
  1. ;;9002226.02101,"881,00247163700 ",.01)
  1. ;;00247163700
  1. ;;9002226.02101,"881,00247163700 ",.02)
  1. ;;00247163700
  1. ;;9002226.02101,"881,00247163730 ",.01)
  1. ;;00247163730
  1. ;;9002226.02101,"881,00247163730 ",.02)
  1. ;;00247163730
  1. ;;9002226.02101,"881,00247163760 ",.01)
  1. ;;00247163760
  1. ;;9002226.02101,"881,00247163760 ",.02)
  1. ;;00247163760
  1. ;;9002226.02101,"881,00247188102 ",.01)
  1. ;;00247188102
  1. ;;9002226.02101,"881,00247188102 ",.02)
  1. ;;00247188102
  1. ;;9002226.02101,"881,00247188105 ",.01)
  1. ;;00247188105
  1. ;;9002226.02101,"881,00247188105 ",.02)
  1. ;;00247188105
  1. ;;9002226.02101,"881,00247188130 ",.01)
  1. ;;00247188130
  1. ;;9002226.02101,"881,00247188130 ",.02)
  1. ;;00247188130
  1. ;;9002226.02101,"881,00247188160 ",.01)
  1. ;;00247188160
  1. ;;9002226.02101,"881,00247188160 ",.02)
  1. ;;00247188160
  1. ;;9002226.02101,"881,00247188230 ",.01)
  1. ;;00247188230
  1. ;;9002226.02101,"881,00247188230 ",.02)
  1. ;;00247188230
  1. ;;9002226.02101,"881,00247188260 ",.01)
  1. ;;00247188260
  1. ;;9002226.02101,"881,00247188260 ",.02)
  1. ;;00247188260