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

BGPM5AKT.m

Go to the documentation of this file.
  1. BGPM5AKT ;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,"885,00490713896 ",.02)
  1. ;;00490713896
  1. ;;9002226.02101,"885,00490713897 ",.01)
  1. ;;00490713897
  1. ;;9002226.02101,"885,00490713897 ",.02)
  1. ;;00490713897
  1. ;;9002226.02101,"885,00490713898 ",.01)
  1. ;;00490713898
  1. ;;9002226.02101,"885,00490713898 ",.02)
  1. ;;00490713898
  1. ;;9002226.02101,"885,00490713899 ",.01)
  1. ;;00490713899
  1. ;;9002226.02101,"885,00490713899 ",.02)
  1. ;;00490713899
  1. ;;9002226.02101,"885,00527155201 ",.01)
  1. ;;00527155201
  1. ;;9002226.02101,"885,00527155201 ",.02)
  1. ;;00527155201
  1. ;;9002226.02101,"885,00536308610 ",.01)
  1. ;;00536308610
  1. ;;9002226.02101,"885,00536308610 ",.02)
  1. ;;00536308610
  1. ;;9002226.02101,"885,00536308641 ",.01)
  1. ;;00536308641
  1. ;;9002226.02101,"885,00536308641 ",.02)
  1. ;;00536308641
  1. ;;9002226.02101,"885,00536329736 ",.01)
  1. ;;00536329736
  1. ;;9002226.02101,"885,00536329736 ",.02)
  1. ;;00536329736
  1. ;;9002226.02101,"885,00536330501 ",.01)
  1. ;;00536330501
  1. ;;9002226.02101,"885,00536330501 ",.02)
  1. ;;00536330501
  1. ;;9002226.02101,"885,00536330510 ",.01)
  1. ;;00536330510
  1. ;;9002226.02101,"885,00536330510 ",.02)
  1. ;;00536330510
  1. ;;9002226.02101,"885,00536331301 ",.01)
  1. ;;00536331301
  1. ;;9002226.02101,"885,00536331301 ",.02)
  1. ;;00536331301
  1. ;;9002226.02101,"885,00536331310 ",.01)
  1. ;;00536331310
  1. ;;9002226.02101,"885,00536331310 ",.02)
  1. ;;00536331310
  1. ;;9002226.02101,"885,00536331810 ",.01)
  1. ;;00536331810
  1. ;;9002226.02101,"885,00536331810 ",.02)
  1. ;;00536331810
  1. ;;9002226.02101,"885,00573021110 ",.01)
  1. ;;00573021110
  1. ;;9002226.02101,"885,00573021110 ",.02)
  1. ;;00573021110
  1. ;;9002226.02101,"885,00573021120 ",.01)
  1. ;;00573021120
  1. ;;9002226.02101,"885,00573021120 ",.02)
  1. ;;00573021120
  1. ;;9002226.02101,"885,00573021140 ",.01)
  1. ;;00573021140
  1. ;;9002226.02101,"885,00573021140 ",.02)
  1. ;;00573021140
  1. ;;9002226.02101,"885,00573027110 ",.01)
  1. ;;00573027110
  1. ;;9002226.02101,"885,00573027110 ",.02)
  1. ;;00573027110
  1. ;;9002226.02101,"885,00573027120 ",.01)
  1. ;;00573027120
  1. ;;9002226.02101,"885,00573027120 ",.02)
  1. ;;00573027120
  1. ;;9002226.02101,"885,00574000201 ",.01)
  1. ;;00574000201
  1. ;;9002226.02101,"885,00574000201 ",.02)
  1. ;;00574000201
  1. ;;9002226.02101,"885,00574000211 ",.01)
  1. ;;00574000211
  1. ;;9002226.02101,"885,00574000211 ",.02)
  1. ;;00574000211
  1. ;;9002226.02101,"885,00574703412 ",.01)
  1. ;;00574703412
  1. ;;9002226.02101,"885,00574703412 ",.02)
  1. ;;00574703412
  1. ;;9002226.02101,"885,00574703612 ",.01)
  1. ;;00574703612
  1. ;;9002226.02101,"885,00574703612 ",.02)
  1. ;;00574703612
  1. ;;9002226.02101,"885,00591321901 ",.01)
  1. ;;00591321901
  1. ;;9002226.02101,"885,00591321901 ",.02)
  1. ;;00591321901
  1. ;;9002226.02101,"885,00597000111 ",.01)
  1. ;;00597000111
  1. ;;9002226.02101,"885,00597000111 ",.02)
  1. ;;00597000111
  1. ;;9002226.02101,"885,00597000160 ",.01)
  1. ;;00597000160
  1. ;;9002226.02101,"885,00597000160 ",.02)
  1. ;;00597000160
  1. ;;9002226.02101,"885,00603002436 ",.01)
  1. ;;00603002436
  1. ;;9002226.02101,"885,00603002436 ",.02)
  1. ;;00603002436
  1. ;;9002226.02101,"885,00603002522 ",.01)
  1. ;;00603002522
  1. ;;9002226.02101,"885,00603002522 ",.02)
  1. ;;00603002522
  1. ;;9002226.02101,"885,00603002532 ",.01)
  1. ;;00603002532
  1. ;;9002226.02101,"885,00603002532 ",.02)
  1. ;;00603002532
  1. ;;9002226.02101,"885,00603002622 ",.01)
  1. ;;00603002622
  1. ;;9002226.02101,"885,00603002622 ",.02)
  1. ;;00603002622
  1. ;;9002226.02101,"885,00603002632 ",.01)
  1. ;;00603002632
  1. ;;9002226.02101,"885,00603002632 ",.02)
  1. ;;00603002632
  1. ;;9002226.02101,"885,00603003121 ",.01)
  1. ;;00603003121
  1. ;;9002226.02101,"885,00603003121 ",.02)
  1. ;;00603003121
  1. ;;9002226.02101,"885,00603003125 ",.01)
  1. ;;00603003125
  1. ;;9002226.02101,"885,00603003125 ",.02)
  1. ;;00603003125
  1. ;;9002226.02101,"885,00603016621 ",.01)
  1. ;;00603016621
  1. ;;9002226.02101,"885,00603016621 ",.02)
  1. ;;00603016621
  1. ;;9002226.02101,"885,00603016702 ",.01)
  1. ;;00603016702
  1. ;;9002226.02101,"885,00603016702 ",.02)
  1. ;;00603016702
  1. ;;9002226.02101,"885,00603016721 ",.01)
  1. ;;00603016721
  1. ;;9002226.02101,"885,00603016721 ",.02)
  1. ;;00603016721
  1. ;;9002226.02101,"885,00603016732 ",.01)
  1. ;;00603016732
  1. ;;9002226.02101,"885,00603016732 ",.02)
  1. ;;00603016732
  1. ;;9002226.02101,"885,00603016821 ",.01)
  1. ;;00603016821
  1. ;;9002226.02101,"885,00603016821 ",.02)
  1. ;;00603016821
  1. ;;9002226.02101,"885,00603016902 ",.01)
  1. ;;00603016902
  1. ;;9002226.02101,"885,00603016902 ",.02)
  1. ;;00603016902
  1. ;;9002226.02101,"885,00603016921 ",.01)
  1. ;;00603016921
  1. ;;9002226.02101,"885,00603016921 ",.02)
  1. ;;00603016921
  1. ;;9002226.02101,"885,00603016932 ",.01)
  1. ;;00603016932
  1. ;;9002226.02101,"885,00603016932 ",.02)
  1. ;;00603016932
  1. ;;9002226.02101,"885,00603254821 ",.01)
  1. ;;00603254821
  1. ;;9002226.02101,"885,00603254821 ",.02)
  1. ;;00603254821
  1. ;;9002226.02101,"885,00603255021 ",.01)
  1. ;;00603255021
  1. ;;9002226.02101,"885,00603255021 ",.02)
  1. ;;00603255021
  1. ;;9002226.02101,"885,00615052231 ",.01)
  1. ;;00615052231
  1. ;;9002226.02101,"885,00615052231 ",.02)
  1. ;;00615052231
  1. ;;9002226.02101,"885,00615052239 ",.01)
  1. ;;00615052239
  1. ;;9002226.02101,"885,00615052239 ",.02)
  1. ;;00615052239
  1. ;;9002226.02101,"885,00615350831 ",.01)
  1. ;;00615350831
  1. ;;9002226.02101,"885,00615350831 ",.02)
  1. ;;00615350831
  1. ;;9002226.02101,"885,00615350839 ",.01)
  1. ;;00615350839
  1. ;;9002226.02101,"885,00615350839 ",.02)
  1. ;;00615350839
  1. ;;9002226.02101,"885,00615356831 ",.01)
  1. ;;00615356831
  1. ;;9002226.02101,"885,00615356831 ",.02)
  1. ;;00615356831
  1. ;;9002226.02101,"885,00615356839 ",.01)
  1. ;;00615356839
  1. ;;9002226.02101,"885,00615356839 ",.02)
  1. ;;00615356839
  1. ;;9002226.02101,"885,00615458331 ",.01)
  1. ;;00615458331
  1. ;;9002226.02101,"885,00615458331 ",.02)
  1. ;;00615458331
  1. ;;9002226.02101,"885,00615458339 ",.01)
  1. ;;00615458339
  1. ;;9002226.02101,"885,00615458339 ",.02)
  1. ;;00615458339
  1. ;;9002226.02101,"885,00677117201 ",.01)
  1. ;;00677117201
  1. ;;9002226.02101,"885,00677117201 ",.02)
  1. ;;00677117201
  1. ;;9002226.02101,"885,00820013401 ",.01)
  1. ;;00820013401
  1. ;;9002226.02101,"885,00820013401 ",.02)
  1. ;;00820013401
  1. ;;9002226.02101,"885,00820013410 ",.01)
  1. ;;00820013410
  1. ;;9002226.02101,"885,00820013410 ",.02)
  1. ;;00820013410
  1. ;;9002226.02101,"885,00820013701 ",.01)
  1. ;;00820013701
  1. ;;9002226.02101,"885,00820013701 ",.02)
  1. ;;00820013701
  1. ;;9002226.02101,"885,00820013710 ",.01)
  1. ;;00820013710
  1. ;;9002226.02101,"885,00820013710 ",.02)
  1. ;;00820013710
  1. ;;9002226.02101,"885,00820014301 ",.01)
  1. ;;00820014301
  1. ;;9002226.02101,"885,00820014301 ",.02)
  1. ;;00820014301
  1. ;;9002226.02101,"885,00820014304 ",.01)
  1. ;;00820014304
  1. ;;9002226.02101,"885,00820014304 ",.02)
  1. ;;00820014304
  1. ;;9002226.02101,"885,00820014310 ",.01)
  1. ;;00820014310
  1. ;;9002226.02101,"885,00820014310 ",.02)
  1. ;;00820014310
  1. ;;9002226.02101,"885,00869153009 ",.01)
  1. ;;00869153009
  1. ;;9002226.02101,"885,00869153009 ",.02)
  1. ;;00869153009
  1. ;;9002226.02101,"885,00904034759 ",.01)
  1. ;;00904034759
  1. ;;9002226.02101,"885,00904034759 ",.02)
  1. ;;00904034759
  1. ;;9002226.02101,"885,00904058260 ",.01)
  1. ;;00904058260
  1. ;;9002226.02101,"885,00904058260 ",.02)
  1. ;;00904058260
  1. ;;9002226.02101,"885,00904058560 ",.01)
  1. ;;00904058560
  1. ;;9002226.02101,"885,00904058560 ",.02)
  1. ;;00904058560
  1. ;;9002226.02101,"885,00904200940 ",.01)
  1. ;;00904200940
  1. ;;9002226.02101,"885,00904200940 ",.02)
  1. ;;00904200940
  1. ;;9002226.02101,"885,00904200960 ",.01)
  1. ;;00904200960
  1. ;;9002226.02101,"885,00904200960 ",.02)
  1. ;;00904200960
  1. ;;9002226.02101,"885,00904200970 ",.01)
  1. ;;00904200970
  1. ;;9002226.02101,"885,00904200970 ",.02)
  1. ;;00904200970
  1. ;;9002226.02101,"885,00904200980 ",.01)
  1. ;;00904200980
  1. ;;9002226.02101,"885,00904200980 ",.02)
  1. ;;00904200980
  1. ;;9002226.02101,"885,00904201159 ",.01)
  1. ;;00904201159
  1. ;;9002226.02101,"885,00904201159 ",.02)
  1. ;;00904201159
  1. ;;9002226.02101,"885,00904201360 ",.01)
  1. ;;00904201360
  1. ;;9002226.02101,"885,00904201360 ",.02)
  1. ;;00904201360
  1. ;;9002226.02101,"885,00904201372 ",.01)
  1. ;;00904201372
  1. ;;9002226.02101,"885,00904201372 ",.02)
  1. ;;00904201372
  1. ;;9002226.02101,"885,00904201380 ",.01)
  1. ;;00904201380
  1. ;;9002226.02101,"885,00904201380 ",.02)
  1. ;;00904201380
  1. ;;9002226.02101,"885,00904201559 ",.01)
  1. ;;00904201559
  1. ;;9002226.02101,"885,00904201559 ",.02)
  1. ;;00904201559
  1. ;;9002226.02101,"885,00904201959 ",.01)
  1. ;;00904201959
  1. ;;9002226.02101,"885,00904201959 ",.02)
  1. ;;00904201959
  1. ;;9002226.02101,"885,00904201980 ",.01)
  1. ;;00904201980
  1. ;;9002226.02101,"885,00904201980 ",.02)
  1. ;;00904201980
  1. ;;9002226.02101,"885,00904389260 ",.01)
  1. ;;00904389260
  1. ;;9002226.02101,"885,00904389260 ",.02)
  1. ;;00904389260
  1. ;;9002226.02101,"885,00904393460 ",.01)
  1. ;;00904393460
  1. ;;9002226.02101,"885,00904393460 ",.02)
  1. ;;00904393460
  1. ;;9002226.02101,"885,00904404061 ",.01)
  1. ;;00904404061
  1. ;;9002226.02101,"885,00904404061 ",.02)
  1. ;;00904404061
  1. ;;9002226.02101,"885,00904404073 ",.01)
  1. ;;00904404073
  1. ;;9002226.02101,"885,00904404073 ",.02)
  1. ;;00904404073
  1. ;;9002226.02101,"885,00904513559 ",.01)
  1. ;;00904513559
  1. ;;9002226.02101,"885,00904513559 ",.02)
  1. ;;00904513559
  1. ;;9002226.02101,"885,00904794873 ",.01)
  1. ;;00904794873
  1. ;;9002226.02101,"885,00904794873 ",.02)
  1. ;;00904794873
  1. ;;9002226.02101,"885,01015800910 ",.01)
  1. ;;01015800910
  1. ;;9002226.02101,"885,01015800910 ",.02)
  1. ;;01015800910
  1. ;;9002226.02101,"885,01015800912 ",.01)
  1. ;;01015800912
  1. ;;9002226.02101,"885,01015800912 ",.02)
  1. ;;01015800912
  1. ;;9002226.02101,"885,01015800916 ",.01)
  1. ;;01015800916
  1. ;;9002226.02101,"885,01015800916 ",.02)
  1. ;;01015800916
  1. ;;9002226.02101,"885,01490093010 ",.01)
  1. ;;01490093010
  1. ;;9002226.02101,"885,01490093010 ",.02)
  1. ;;01490093010
  1. ;;9002226.02101,"885,01490093110 ",.01)
  1. ;;01490093110
  1. ;;9002226.02101,"885,01490093110 ",.02)
  1. ;;01490093110
  1. ;;9002226.02101,"885,01490093250 ",.01)
  1. ;;01490093250
  1. ;;9002226.02101,"885,01490093250 ",.02)
  1. ;;01490093250
  1. ;;9002226.02101,"885,01981000021 ",.01)
  1. ;;01981000021
  1. ;;9002226.02101,"885,01981000021 ",.02)
  1. ;;01981000021
  1. ;;9002226.02101,"885,01981000022 ",.01)
  1. ;;01981000022
  1. ;;9002226.02101,"885,01981000022 ",.02)
  1. ;;01981000022
  1. ;;9002226.02101,"885,01981000028 ",.01)
  1. ;;01981000028
  1. ;;9002226.02101,"885,01981000028 ",.02)
  1. ;;01981000028
  1. ;;9002226.02101,"885,01981000296 ",.01)
  1. ;;01981000296
  1. ;;9002226.02101,"885,01981000296 ",.02)
  1. ;;01981000296
  1. ;;9002226.02101,"885,01981007004 ",.01)
  1. ;;01981007004
  1. ;;9002226.02101,"885,01981007004 ",.02)
  1. ;;01981007004
  1. ;;9002226.02101,"885,01981007729 ",.01)
  1. ;;01981007729
  1. ;;9002226.02101,"885,01981007729 ",.02)
  1. ;;01981007729
  1. ;;9002226.02101,"885,01981020111 ",.01)
  1. ;;01981020111
  1. ;;9002226.02101,"885,01981020111 ",.02)
  1. ;;01981020111
  1. ;;9002226.02101,"885,01981020112 ",.01)
  1. ;;01981020112
  1. ;;9002226.02101,"885,01981020112 ",.02)
  1. ;;01981020112
  1. ;;9002226.02101,"885,01981020113 ",.01)
  1. ;;01981020113
  1. ;;9002226.02101,"885,01981020113 ",.02)
  1. ;;01981020113
  1. ;;9002226.02101,"885,01981020203 ",.01)
  1. ;;01981020203
  1. ;;9002226.02101,"885,01981020203 ",.02)
  1. ;;01981020203
  1. ;;9002226.02101,"885,01981020211 ",.01)
  1. ;;01981020211
  1. ;;9002226.02101,"885,01981020211 ",.02)
  1. ;;01981020211
  1. ;;9002226.02101,"885,01981020212 ",.01)
  1. ;;01981020212
  1. ;;9002226.02101,"885,01981020212 ",.02)
  1. ;;01981020212
  1. ;;9002226.02101,"885,01981020213 ",.01)
  1. ;;01981020213
  1. ;;9002226.02101,"885,01981020213 ",.02)
  1. ;;01981020213
  1. ;;9002226.02101,"885,01981020221 ",.01)
  1. ;;01981020221
  1. ;;9002226.02101,"885,01981020221 ",.02)
  1. ;;01981020221
  1. ;;9002226.02101,"885,01981020224 ",.01)
  1. ;;01981020224
  1. ;;9002226.02101,"885,01981020224 ",.02)
  1. ;;01981020224
  1. ;;9002226.02101,"885,04116709325 ",.01)
  1. ;;04116709325
  1. ;;9002226.02101,"885,04116709325 ",.02)
  1. ;;04116709325
  1. ;;9002226.02101,"885,05307610213 ",.01)
  1. ;;05307610213
  1. ;;9002226.02101,"885,05307610213 ",.02)
  1. ;;05307610213
  1. ;;9002226.02101,"885,10056053576 ",.01)
  1. ;;10056053576