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