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

BGPM5AGK.m

Go to the documentation of this file.
  1. BGPM5AGK ;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,"882,00904577889 ",.02)
  1. ;;00904577889
  1. ;;9002226.02101,"882,00904580843 ",.01)
  1. ;;00904580843
  1. ;;9002226.02101,"882,00904580843 ",.02)
  1. ;;00904580843
  1. ;;9002226.02101,"882,00904580846 ",.01)
  1. ;;00904580846
  1. ;;9002226.02101,"882,00904580846 ",.02)
  1. ;;00904580846
  1. ;;9002226.02101,"882,00904580848 ",.01)
  1. ;;00904580848
  1. ;;9002226.02101,"882,00904580848 ",.02)
  1. ;;00904580848
  1. ;;9002226.02101,"882,00904580861 ",.01)
  1. ;;00904580861
  1. ;;9002226.02101,"882,00904580861 ",.02)
  1. ;;00904580861
  1. ;;9002226.02101,"882,00904580880 ",.01)
  1. ;;00904580880
  1. ;;9002226.02101,"882,00904580880 ",.02)
  1. ;;00904580880
  1. ;;9002226.02101,"882,00904580889 ",.01)
  1. ;;00904580889
  1. ;;9002226.02101,"882,00904580889 ",.02)
  1. ;;00904580889
  1. ;;9002226.02101,"882,00904580893 ",.01)
  1. ;;00904580893
  1. ;;9002226.02101,"882,00904580893 ",.02)
  1. ;;00904580893
  1. ;;9002226.02101,"882,00904580943 ",.01)
  1. ;;00904580943
  1. ;;9002226.02101,"882,00904580943 ",.02)
  1. ;;00904580943
  1. ;;9002226.02101,"882,00904580946 ",.01)
  1. ;;00904580946
  1. ;;9002226.02101,"882,00904580946 ",.02)
  1. ;;00904580946
  1. ;;9002226.02101,"882,00904580948 ",.01)
  1. ;;00904580948
  1. ;;9002226.02101,"882,00904580948 ",.02)
  1. ;;00904580948
  1. ;;9002226.02101,"882,00904580961 ",.01)
  1. ;;00904580961
  1. ;;9002226.02101,"882,00904580961 ",.02)
  1. ;;00904580961
  1. ;;9002226.02101,"882,00904580980 ",.01)
  1. ;;00904580980
  1. ;;9002226.02101,"882,00904580980 ",.02)
  1. ;;00904580980
  1. ;;9002226.02101,"882,00904580989 ",.01)
  1. ;;00904580989
  1. ;;9002226.02101,"882,00904580989 ",.02)
  1. ;;00904580989
  1. ;;9002226.02101,"882,00904580993 ",.01)
  1. ;;00904580993
  1. ;;9002226.02101,"882,00904580993 ",.02)
  1. ;;00904580993
  1. ;;9002226.02101,"882,00904581043 ",.01)
  1. ;;00904581043
  1. ;;9002226.02101,"882,00904581043 ",.02)
  1. ;;00904581043
  1. ;;9002226.02101,"882,00904581046 ",.01)
  1. ;;00904581046
  1. ;;9002226.02101,"882,00904581046 ",.02)
  1. ;;00904581046
  1. ;;9002226.02101,"882,00904581048 ",.01)
  1. ;;00904581048
  1. ;;9002226.02101,"882,00904581048 ",.02)
  1. ;;00904581048
  1. ;;9002226.02101,"882,00904581052 ",.01)
  1. ;;00904581052
  1. ;;9002226.02101,"882,00904581052 ",.02)
  1. ;;00904581052
  1. ;;9002226.02101,"882,00904581061 ",.01)
  1. ;;00904581061
  1. ;;9002226.02101,"882,00904581061 ",.02)
  1. ;;00904581061
  1. ;;9002226.02101,"882,00904581080 ",.01)
  1. ;;00904581080
  1. ;;9002226.02101,"882,00904581080 ",.02)
  1. ;;00904581080
  1. ;;9002226.02101,"882,00904581089 ",.01)
  1. ;;00904581089
  1. ;;9002226.02101,"882,00904581089 ",.02)
  1. ;;00904581089
  1. ;;9002226.02101,"882,00904581093 ",.01)
  1. ;;00904581093
  1. ;;9002226.02101,"882,00904581093 ",.02)
  1. ;;00904581093
  1. ;;9002226.02101,"882,00904581143 ",.01)
  1. ;;00904581143
  1. ;;9002226.02101,"882,00904581143 ",.02)
  1. ;;00904581143
  1. ;;9002226.02101,"882,00904581146 ",.01)
  1. ;;00904581146
  1. ;;9002226.02101,"882,00904581146 ",.02)
  1. ;;00904581146
  1. ;;9002226.02101,"882,00904581161 ",.01)
  1. ;;00904581161
  1. ;;9002226.02101,"882,00904581161 ",.02)
  1. ;;00904581161
  1. ;;9002226.02101,"882,00904581180 ",.01)
  1. ;;00904581180
  1. ;;9002226.02101,"882,00904581180 ",.02)
  1. ;;00904581180
  1. ;;9002226.02101,"882,00904581189 ",.01)
  1. ;;00904581189
  1. ;;9002226.02101,"882,00904581189 ",.02)
  1. ;;00904581189
  1. ;;9002226.02101,"882,00904581240 ",.01)
  1. ;;00904581240
  1. ;;9002226.02101,"882,00904581240 ",.02)
  1. ;;00904581240
  1. ;;9002226.02101,"882,00904606380 ",.01)
  1. ;;00904606380
  1. ;;9002226.02101,"882,00904606380 ",.02)
  1. ;;00904606380
  1. ;;9002226.02101,"882,00904606480 ",.01)
  1. ;;00904606480
  1. ;;9002226.02101,"882,00904606480 ",.02)
  1. ;;00904606480
  1. ;;9002226.02101,"882,00904606580 ",.01)
  1. ;;00904606580
  1. ;;9002226.02101,"882,00904606580 ",.02)
  1. ;;00904606580
  1. ;;9002226.02101,"882,00904606680 ",.01)
  1. ;;00904606680
  1. ;;9002226.02101,"882,00904606680 ",.02)
  1. ;;00904606680
  1. ;;9002226.02101,"882,10544023830 ",.01)
  1. ;;10544023830
  1. ;;9002226.02101,"882,10544023830 ",.02)
  1. ;;10544023830
  1. ;;9002226.02101,"882,10544023860 ",.01)
  1. ;;10544023860
  1. ;;9002226.02101,"882,10544023860 ",.02)
  1. ;;10544023860
  1. ;;9002226.02101,"882,10544023930 ",.01)
  1. ;;10544023930
  1. ;;9002226.02101,"882,10544023930 ",.02)
  1. ;;10544023930
  1. ;;9002226.02101,"882,10544023960 ",.01)
  1. ;;10544023960
  1. ;;9002226.02101,"882,10544023960 ",.02)
  1. ;;10544023960
  1. ;;9002226.02101,"882,10544024030 ",.01)
  1. ;;10544024030
  1. ;;9002226.02101,"882,10544024030 ",.02)
  1. ;;10544024030
  1. ;;9002226.02101,"882,10544024060 ",.01)
  1. ;;10544024060
  1. ;;9002226.02101,"882,10544024060 ",.02)
  1. ;;10544024060
  1. ;;9002226.02101,"882,10544056430 ",.01)
  1. ;;10544056430
  1. ;;9002226.02101,"882,10544056430 ",.02)
  1. ;;10544056430
  1. ;;9002226.02101,"882,11819009690 ",.01)
  1. ;;11819009690
  1. ;;9002226.02101,"882,11819009690 ",.02)
  1. ;;11819009690
  1. ;;9002226.02101,"882,11819011190 ",.01)
  1. ;;11819011190
  1. ;;9002226.02101,"882,11819011190 ",.02)
  1. ;;11819011190
  1. ;;9002226.02101,"882,11819029290 ",.01)
  1. ;;11819029290
  1. ;;9002226.02101,"882,11819029290 ",.02)
  1. ;;11819029290
  1. ;;9002226.02101,"882,11819029345 ",.01)
  1. ;;11819029345
  1. ;;9002226.02101,"882,11819029345 ",.02)
  1. ;;11819029345
  1. ;;9002226.02101,"882,11819029390 ",.01)
  1. ;;11819029390
  1. ;;9002226.02101,"882,11819029390 ",.02)
  1. ;;11819029390
  1. ;;9002226.02101,"882,11819029445 ",.01)
  1. ;;11819029445
  1. ;;9002226.02101,"882,11819029445 ",.02)
  1. ;;11819029445
  1. ;;9002226.02101,"882,11819029490 ",.01)
  1. ;;11819029490
  1. ;;9002226.02101,"882,11819029490 ",.02)
  1. ;;11819029490
  1. ;;9002226.02101,"882,11819029545 ",.01)
  1. ;;11819029545
  1. ;;9002226.02101,"882,11819029545 ",.02)
  1. ;;11819029545
  1. ;;9002226.02101,"882,11819029590 ",.01)
  1. ;;11819029590
  1. ;;9002226.02101,"882,11819029590 ",.02)
  1. ;;11819029590
  1. ;;9002226.02101,"882,11819029595 ",.01)
  1. ;;11819029595
  1. ;;9002226.02101,"882,11819029595 ",.02)
  1. ;;11819029595
  1. ;;9002226.02101,"882,12280012960 ",.01)
  1. ;;12280012960
  1. ;;9002226.02101,"882,12280012960 ",.02)
  1. ;;12280012960
  1. ;;9002226.02101,"882,12280014400 ",.01)
  1. ;;12280014400
  1. ;;9002226.02101,"882,12280014400 ",.02)
  1. ;;12280014400
  1. ;;9002226.02101,"882,12634074760 ",.01)
  1. ;;12634074760
  1. ;;9002226.02101,"882,12634074760 ",.02)
  1. ;;12634074760
  1. ;;9002226.02101,"882,12634074860 ",.01)
  1. ;;12634074860
  1. ;;9002226.02101,"882,12634074860 ",.02)
  1. ;;12634074860
  1. ;;9002226.02101,"882,12634077071 ",.01)
  1. ;;12634077071
  1. ;;9002226.02101,"882,12634077071 ",.02)
  1. ;;12634077071
  1. ;;9002226.02101,"882,13411018402 ",.01)
  1. ;;13411018402
  1. ;;9002226.02101,"882,13411018402 ",.02)
  1. ;;13411018402
  1. ;;9002226.02101,"882,13411018403 ",.01)
  1. ;;13411018403
  1. ;;9002226.02101,"882,13411018403 ",.02)
  1. ;;13411018403
  1. ;;9002226.02101,"882,13411018406 ",.01)
  1. ;;13411018406
  1. ;;9002226.02101,"882,13411018406 ",.02)
  1. ;;13411018406
  1. ;;9002226.02101,"882,13411018409 ",.01)
  1. ;;13411018409
  1. ;;9002226.02101,"882,13411018409 ",.02)
  1. ;;13411018409
  1. ;;9002226.02101,"882,13411018410 ",.01)
  1. ;;13411018410
  1. ;;9002226.02101,"882,13411018410 ",.02)
  1. ;;13411018410
  1. ;;9002226.02101,"882,13411018803 ",.01)
  1. ;;13411018803
  1. ;;9002226.02101,"882,13411018803 ",.02)
  1. ;;13411018803
  1. ;;9002226.02101,"882,13411018810 ",.01)
  1. ;;13411018810
  1. ;;9002226.02101,"882,13411018810 ",.02)
  1. ;;13411018810
  1. ;;9002226.02101,"882,13411018903 ",.01)
  1. ;;13411018903
  1. ;;9002226.02101,"882,13411018903 ",.02)
  1. ;;13411018903
  1. ;;9002226.02101,"882,13411018910 ",.01)
  1. ;;13411018910
  1. ;;9002226.02101,"882,13411018910 ",.02)
  1. ;;13411018910
  1. ;;9002226.02101,"882,13411019003 ",.01)
  1. ;;13411019003
  1. ;;9002226.02101,"882,13411019003 ",.02)
  1. ;;13411019003
  1. ;;9002226.02101,"882,13411019010 ",.01)
  1. ;;13411019010
  1. ;;9002226.02101,"882,13411019010 ",.02)
  1. ;;13411019010
  1. ;;9002226.02101,"882,13411023102 ",.01)
  1. ;;13411023102
  1. ;;9002226.02101,"882,13411023102 ",.02)
  1. ;;13411023102
  1. ;;9002226.02101,"882,13411023103 ",.01)
  1. ;;13411023103
  1. ;;9002226.02101,"882,13411023103 ",.02)
  1. ;;13411023103
  1. ;;9002226.02101,"882,13411023106 ",.01)
  1. ;;13411023106
  1. ;;9002226.02101,"882,13411023106 ",.02)
  1. ;;13411023106
  1. ;;9002226.02101,"882,13411023109 ",.01)
  1. ;;13411023109
  1. ;;9002226.02101,"882,13411023109 ",.02)
  1. ;;13411023109
  1. ;;9002226.02101,"882,13411023110 ",.01)
  1. ;;13411023110
  1. ;;9002226.02101,"882,13411023110 ",.02)
  1. ;;13411023110
  1. ;;9002226.02101,"882,13411023302 ",.01)
  1. ;;13411023302
  1. ;;9002226.02101,"882,13411023302 ",.02)
  1. ;;13411023302
  1. ;;9002226.02101,"882,13411023303 ",.01)
  1. ;;13411023303
  1. ;;9002226.02101,"882,13411023303 ",.02)
  1. ;;13411023303
  1. ;;9002226.02101,"882,13411023306 ",.01)
  1. ;;13411023306
  1. ;;9002226.02101,"882,13411023306 ",.02)
  1. ;;13411023306
  1. ;;9002226.02101,"882,13411023309 ",.01)
  1. ;;13411023309
  1. ;;9002226.02101,"882,13411023309 ",.02)
  1. ;;13411023309
  1. ;;9002226.02101,"882,13411023310 ",.01)
  1. ;;13411023310
  1. ;;9002226.02101,"882,13411023310 ",.02)
  1. ;;13411023310
  1. ;;9002226.02101,"882,13411033403 ",.01)
  1. ;;13411033403
  1. ;;9002226.02101,"882,13411033403 ",.02)
  1. ;;13411033403
  1. ;;9002226.02101,"882,13411037703 ",.01)
  1. ;;13411037703
  1. ;;9002226.02101,"882,13411037703 ",.02)
  1. ;;13411037703
  1. ;;9002226.02101,"882,13411037803 ",.01)
  1. ;;13411037803
  1. ;;9002226.02101,"882,13411037803 ",.02)
  1. ;;13411037803
  1. ;;9002226.02101,"882,13411037903 ",.01)
  1. ;;13411037903
  1. ;;9002226.02101,"882,13411037903 ",.02)
  1. ;;13411037903
  1. ;;9002226.02101,"882,13411038003 ",.01)
  1. ;;13411038003
  1. ;;9002226.02101,"882,13411038003 ",.02)
  1. ;;13411038003
  1. ;;9002226.02101,"882,13411038103 ",.01)
  1. ;;13411038103
  1. ;;9002226.02101,"882,13411038103 ",.02)
  1. ;;13411038103
  1. ;;9002226.02101,"882,13411038203 ",.01)
  1. ;;13411038203
  1. ;;9002226.02101,"882,13411038203 ",.02)
  1. ;;13411038203
  1. ;;9002226.02101,"882,13411046203 ",.01)
  1. ;;13411046203
  1. ;;9002226.02101,"882,13411046203 ",.02)
  1. ;;13411046203
  1. ;;9002226.02101,"882,13411049303 ",.01)
  1. ;;13411049303
  1. ;;9002226.02101,"882,13411049303 ",.02)
  1. ;;13411049303
  1. ;;9002226.02101,"882,13411054906 ",.01)
  1. ;;13411054906
  1. ;;9002226.02101,"882,13411054906 ",.02)
  1. ;;13411054906
  1. ;;9002226.02101,"882,14593041701 ",.01)
  1. ;;14593041701
  1. ;;9002226.02101,"882,14593041701 ",.02)
  1. ;;14593041701
  1. ;;9002226.02101,"882,14593041710 ",.01)
  1. ;;14593041710
  1. ;;9002226.02101,"882,14593041710 ",.02)
  1. ;;14593041710
  1. ;;9002226.02101,"882,14593041801 ",.01)
  1. ;;14593041801
  1. ;;9002226.02101,"882,14593041801 ",.02)
  1. ;;14593041801
  1. ;;9002226.02101,"882,14593041850 ",.01)
  1. ;;14593041850
  1. ;;9002226.02101,"882,14593041850 ",.02)
  1. ;;14593041850
  1. ;;9002226.02101,"882,14593042001 ",.01)
  1. ;;14593042001
  1. ;;9002226.02101,"882,14593042001 ",.02)
  1. ;;14593042001
  1. ;;9002226.02101,"882,14593042010 ",.01)
  1. ;;14593042010
  1. ;;9002226.02101,"882,14593042010 ",.02)
  1. ;;14593042010
  1. ;;9002226.02101,"882,14593042050 ",.01)
  1. ;;14593042050
  1. ;;9002226.02101,"882,14593042050 ",.02)
  1. ;;14593042050
  1. ;;9002226.02101,"882,15330023301 ",.01)
  1. ;;15330023301
  1. ;;9002226.02101,"882,15330023301 ",.02)
  1. ;;15330023301
  1. ;;9002226.02101,"882,15330023401 ",.01)
  1. ;;15330023401
  1. ;;9002226.02101,"882,15330023401 ",.02)
  1. ;;15330023401
  1. ;;9002226.02101,"882,15338020030 ",.01)
  1. ;;15338020030
  1. ;;9002226.02101,"882,15338020030 ",.02)
  1. ;;15338020030
  1. ;;9002226.02101,"882,15338021130 ",.01)
  1. ;;15338021130
  1. ;;9002226.02101,"882,15338021130 ",.02)
  1. ;;15338021130
  1. ;;9002226.02101,"882,15338022030 ",.01)
  1. ;;15338022030
  1. ;;9002226.02101,"882,15338022030 ",.02)
  1. ;;15338022030
  1. ;;9002226.02101,"882,15338023330 ",.01)
  1. ;;15338023330
  1. ;;9002226.02101,"882,15338023330 ",.02)
  1. ;;15338023330
  1. ;;9002226.02101,"882,15548004501 ",.01)
  1. ;;15548004501
  1. ;;9002226.02101,"882,15548004501 ",.02)
  1. ;;15548004501
  1. ;;9002226.02101,"882,15548004503 ",.01)
  1. ;;15548004503
  1. ;;9002226.02101,"882,15548004503 ",.02)
  1. ;;15548004503
  1. ;;9002226.02101,"882,15548004505 ",.01)
  1. ;;15548004505
  1. ;;9002226.02101,"882,15548004505 ",.02)
  1. ;;15548004505
  1. ;;9002226.02101,"882,15548004601 ",.01)
  1. ;;15548004601