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

BGPM5AQS.m

Go to the documentation of this file.
BGPM5AQS ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,00904564261 ",.01)
 ;;00904564261
 ;;9002226.02101,"1005,00904564261 ",.02)
 ;;00904564261
 ;;9002226.02101,"1005,00904564289 ",.01)
 ;;00904564289
 ;;9002226.02101,"1005,00904564289 ",.02)
 ;;00904564289
 ;;9002226.02101,"1005,00904564293 ",.01)
 ;;00904564293
 ;;9002226.02101,"1005,00904564293 ",.02)
 ;;00904564293
 ;;9002226.02101,"1005,00904575789 ",.01)
 ;;00904575789
 ;;9002226.02101,"1005,00904575789 ",.02)
 ;;00904575789
 ;;9002226.02101,"1005,00904577889 ",.01)
 ;;00904577889
 ;;9002226.02101,"1005,00904577889 ",.02)
 ;;00904577889
 ;;9002226.02101,"1005,00904580843 ",.01)
 ;;00904580843
 ;;9002226.02101,"1005,00904580843 ",.02)
 ;;00904580843
 ;;9002226.02101,"1005,00904580846 ",.01)
 ;;00904580846
 ;;9002226.02101,"1005,00904580846 ",.02)
 ;;00904580846
 ;;9002226.02101,"1005,00904580848 ",.01)
 ;;00904580848
 ;;9002226.02101,"1005,00904580848 ",.02)
 ;;00904580848
 ;;9002226.02101,"1005,00904580861 ",.01)
 ;;00904580861
 ;;9002226.02101,"1005,00904580861 ",.02)
 ;;00904580861
 ;;9002226.02101,"1005,00904580880 ",.01)
 ;;00904580880
 ;;9002226.02101,"1005,00904580880 ",.02)
 ;;00904580880
 ;;9002226.02101,"1005,00904580889 ",.01)
 ;;00904580889
 ;;9002226.02101,"1005,00904580889 ",.02)
 ;;00904580889
 ;;9002226.02101,"1005,00904580893 ",.01)
 ;;00904580893
 ;;9002226.02101,"1005,00904580893 ",.02)
 ;;00904580893
 ;;9002226.02101,"1005,00904580943 ",.01)
 ;;00904580943
 ;;9002226.02101,"1005,00904580943 ",.02)
 ;;00904580943
 ;;9002226.02101,"1005,00904580946 ",.01)
 ;;00904580946
 ;;9002226.02101,"1005,00904580946 ",.02)
 ;;00904580946
 ;;9002226.02101,"1005,00904580948 ",.01)
 ;;00904580948
 ;;9002226.02101,"1005,00904580948 ",.02)
 ;;00904580948
 ;;9002226.02101,"1005,00904580961 ",.01)
 ;;00904580961
 ;;9002226.02101,"1005,00904580961 ",.02)
 ;;00904580961
 ;;9002226.02101,"1005,00904580980 ",.01)
 ;;00904580980
 ;;9002226.02101,"1005,00904580980 ",.02)
 ;;00904580980
 ;;9002226.02101,"1005,00904580989 ",.01)
 ;;00904580989
 ;;9002226.02101,"1005,00904580989 ",.02)
 ;;00904580989
 ;;9002226.02101,"1005,00904580993 ",.01)
 ;;00904580993
 ;;9002226.02101,"1005,00904580993 ",.02)
 ;;00904580993
 ;;9002226.02101,"1005,00904581043 ",.01)
 ;;00904581043
 ;;9002226.02101,"1005,00904581043 ",.02)
 ;;00904581043
 ;;9002226.02101,"1005,00904581046 ",.01)
 ;;00904581046
 ;;9002226.02101,"1005,00904581046 ",.02)
 ;;00904581046
 ;;9002226.02101,"1005,00904581048 ",.01)
 ;;00904581048
 ;;9002226.02101,"1005,00904581048 ",.02)
 ;;00904581048
 ;;9002226.02101,"1005,00904581052 ",.01)
 ;;00904581052
 ;;9002226.02101,"1005,00904581052 ",.02)
 ;;00904581052
 ;;9002226.02101,"1005,00904581061 ",.01)
 ;;00904581061
 ;;9002226.02101,"1005,00904581061 ",.02)
 ;;00904581061
 ;;9002226.02101,"1005,00904581080 ",.01)
 ;;00904581080
 ;;9002226.02101,"1005,00904581080 ",.02)
 ;;00904581080
 ;;9002226.02101,"1005,00904581089 ",.01)
 ;;00904581089
 ;;9002226.02101,"1005,00904581089 ",.02)
 ;;00904581089
 ;;9002226.02101,"1005,00904581093 ",.01)
 ;;00904581093
 ;;9002226.02101,"1005,00904581093 ",.02)
 ;;00904581093
 ;;9002226.02101,"1005,00904581143 ",.01)
 ;;00904581143
 ;;9002226.02101,"1005,00904581143 ",.02)
 ;;00904581143
 ;;9002226.02101,"1005,00904581146 ",.01)
 ;;00904581146
 ;;9002226.02101,"1005,00904581146 ",.02)
 ;;00904581146
 ;;9002226.02101,"1005,00904581161 ",.01)
 ;;00904581161
 ;;9002226.02101,"1005,00904581161 ",.02)
 ;;00904581161
 ;;9002226.02101,"1005,00904581180 ",.01)
 ;;00904581180
 ;;9002226.02101,"1005,00904581180 ",.02)
 ;;00904581180
 ;;9002226.02101,"1005,00904581189 ",.01)
 ;;00904581189
 ;;9002226.02101,"1005,00904581189 ",.02)
 ;;00904581189
 ;;9002226.02101,"1005,00904581240 ",.01)
 ;;00904581240
 ;;9002226.02101,"1005,00904581240 ",.02)
 ;;00904581240
 ;;9002226.02101,"1005,00904606380 ",.01)
 ;;00904606380
 ;;9002226.02101,"1005,00904606380 ",.02)
 ;;00904606380
 ;;9002226.02101,"1005,00904606480 ",.01)
 ;;00904606480
 ;;9002226.02101,"1005,00904606480 ",.02)
 ;;00904606480
 ;;9002226.02101,"1005,00904606580 ",.01)
 ;;00904606580
 ;;9002226.02101,"1005,00904606580 ",.02)
 ;;00904606580
 ;;9002226.02101,"1005,00904606680 ",.01)
 ;;00904606680
 ;;9002226.02101,"1005,00904606680 ",.02)
 ;;00904606680
 ;;9002226.02101,"1005,10019009201 ",.01)
 ;;10019009201
 ;;9002226.02101,"1005,10019009201 ",.02)
 ;;10019009201
 ;;9002226.02101,"1005,10019009202 ",.01)
 ;;10019009202
 ;;9002226.02101,"1005,10019009202 ",.02)
 ;;10019009202
 ;;9002226.02101,"1005,10019009203 ",.01)
 ;;10019009203
 ;;9002226.02101,"1005,10019009203 ",.02)
 ;;10019009203
 ;;9002226.02101,"1005,10019009204 ",.01)
 ;;10019009204
 ;;9002226.02101,"1005,10019009204 ",.02)
 ;;10019009204
 ;;9002226.02101,"1005,10130001110 ",.01)
 ;;10130001110
 ;;9002226.02101,"1005,10130001110 ",.02)
 ;;10130001110
 ;;9002226.02101,"1005,10130001210 ",.01)
 ;;10130001210
 ;;9002226.02101,"1005,10130001210 ",.02)
 ;;10130001210
 ;;9002226.02101,"1005,10544023830 ",.01)
 ;;10544023830
 ;;9002226.02101,"1005,10544023830 ",.02)
 ;;10544023830
 ;;9002226.02101,"1005,10544023860 ",.01)
 ;;10544023860
 ;;9002226.02101,"1005,10544023860 ",.02)
 ;;10544023860
 ;;9002226.02101,"1005,10544023930 ",.01)
 ;;10544023930
 ;;9002226.02101,"1005,10544023930 ",.02)
 ;;10544023930
 ;;9002226.02101,"1005,10544023960 ",.01)
 ;;10544023960
 ;;9002226.02101,"1005,10544023960 ",.02)
 ;;10544023960
 ;;9002226.02101,"1005,10544024030 ",.01)
 ;;10544024030
 ;;9002226.02101,"1005,10544024030 ",.02)
 ;;10544024030
 ;;9002226.02101,"1005,10544024060 ",.01)
 ;;10544024060
 ;;9002226.02101,"1005,10544024060 ",.02)
 ;;10544024060
 ;;9002226.02101,"1005,10544056430 ",.01)
 ;;10544056430
 ;;9002226.02101,"1005,10544056430 ",.02)
 ;;10544056430
 ;;9002226.02101,"1005,11819009690 ",.01)
 ;;11819009690
 ;;9002226.02101,"1005,11819009690 ",.02)
 ;;11819009690
 ;;9002226.02101,"1005,11819011190 ",.01)
 ;;11819011190
 ;;9002226.02101,"1005,11819011190 ",.02)
 ;;11819011190
 ;;9002226.02101,"1005,11819029290 ",.01)
 ;;11819029290
 ;;9002226.02101,"1005,11819029290 ",.02)
 ;;11819029290
 ;;9002226.02101,"1005,11819029345 ",.01)
 ;;11819029345
 ;;9002226.02101,"1005,11819029345 ",.02)
 ;;11819029345
 ;;9002226.02101,"1005,11819029390 ",.01)
 ;;11819029390
 ;;9002226.02101,"1005,11819029390 ",.02)
 ;;11819029390
 ;;9002226.02101,"1005,11819029445 ",.01)
 ;;11819029445
 ;;9002226.02101,"1005,11819029445 ",.02)
 ;;11819029445
 ;;9002226.02101,"1005,11819029490 ",.01)
 ;;11819029490
 ;;9002226.02101,"1005,11819029490 ",.02)
 ;;11819029490
 ;;9002226.02101,"1005,11819029545 ",.01)
 ;;11819029545
 ;;9002226.02101,"1005,11819029545 ",.02)
 ;;11819029545
 ;;9002226.02101,"1005,11819029590 ",.01)
 ;;11819029590
 ;;9002226.02101,"1005,11819029590 ",.02)
 ;;11819029590
 ;;9002226.02101,"1005,11819029595 ",.01)
 ;;11819029595
 ;;9002226.02101,"1005,11819029595 ",.02)
 ;;11819029595
 ;;9002226.02101,"1005,12280012960 ",.01)
 ;;12280012960
 ;;9002226.02101,"1005,12280012960 ",.02)
 ;;12280012960
 ;;9002226.02101,"1005,12280014400 ",.01)
 ;;12280014400
 ;;9002226.02101,"1005,12280014400 ",.02)
 ;;12280014400
 ;;9002226.02101,"1005,12280038330 ",.01)
 ;;12280038330
 ;;9002226.02101,"1005,12280038330 ",.02)
 ;;12280038330
 ;;9002226.02101,"1005,12634074760 ",.01)
 ;;12634074760
 ;;9002226.02101,"1005,12634074760 ",.02)
 ;;12634074760
 ;;9002226.02101,"1005,12634074860 ",.01)
 ;;12634074860
 ;;9002226.02101,"1005,12634074860 ",.02)
 ;;12634074860
 ;;9002226.02101,"1005,12634077071 ",.01)
 ;;12634077071
 ;;9002226.02101,"1005,12634077071 ",.02)
 ;;12634077071
 ;;9002226.02101,"1005,12698149201 ",.01)
 ;;12698149201
 ;;9002226.02101,"1005,12698149201 ",.02)
 ;;12698149201
 ;;9002226.02101,"1005,12714010970 ",.01)
 ;;12714010970
 ;;9002226.02101,"1005,12714010970 ",.02)
 ;;12714010970
 ;;9002226.02101,"1005,12714011070 ",.01)
 ;;12714011070
 ;;9002226.02101,"1005,12714011070 ",.02)
 ;;12714011070
 ;;9002226.02101,"1005,12714013700 ",.01)
 ;;12714013700
 ;;9002226.02101,"1005,12714013700 ",.02)
 ;;12714013700
 ;;9002226.02101,"1005,12714013770 ",.01)
 ;;12714013770
 ;;9002226.02101,"1005,12714013770 ",.02)
 ;;12714013770
 ;;9002226.02101,"1005,12714013800 ",.01)
 ;;12714013800
 ;;9002226.02101,"1005,12714013800 ",.02)
 ;;12714013800
 ;;9002226.02101,"1005,12714013870 ",.01)
 ;;12714013870
 ;;9002226.02101,"1005,12714013870 ",.02)
 ;;12714013870
 ;;9002226.02101,"1005,12714013928 ",.01)
 ;;12714013928
 ;;9002226.02101,"1005,12714013928 ",.02)
 ;;12714013928
 ;;9002226.02101,"1005,12714014400 ",.01)
 ;;12714014400
 ;;9002226.02101,"1005,12714014400 ",.02)
 ;;12714014400
 ;;9002226.02101,"1005,12714014470 ",.01)
 ;;12714014470
 ;;9002226.02101,"1005,12714014470 ",.02)
 ;;12714014470
 ;;9002226.02101,"1005,13411010601 ",.01)
 ;;13411010601
 ;;9002226.02101,"1005,13411010601 ",.02)
 ;;13411010601
 ;;9002226.02101,"1005,13411010603 ",.01)
 ;;13411010603
 ;;9002226.02101,"1005,13411010603 ",.02)
 ;;13411010603
 ;;9002226.02101,"1005,13411010606 ",.01)
 ;;13411010606
 ;;9002226.02101,"1005,13411010606 ",.02)
 ;;13411010606
 ;;9002226.02101,"1005,13411010609 ",.01)
 ;;13411010609
 ;;9002226.02101,"1005,13411010609 ",.02)
 ;;13411010609
 ;;9002226.02101,"1005,13411010615 ",.01)
 ;;13411010615
 ;;9002226.02101,"1005,13411010615 ",.02)
 ;;13411010615
 ;;9002226.02101,"1005,13411010701 ",.01)
 ;;13411010701
 ;;9002226.02101,"1005,13411010701 ",.02)
 ;;13411010701
 ;;9002226.02101,"1005,13411010703 ",.01)
 ;;13411010703
 ;;9002226.02101,"1005,13411010703 ",.02)
 ;;13411010703
 ;;9002226.02101,"1005,13411010706 ",.01)
 ;;13411010706
 ;;9002226.02101,"1005,13411010706 ",.02)
 ;;13411010706
 ;;9002226.02101,"1005,13411010709 ",.01)
 ;;13411010709
 ;;9002226.02101,"1005,13411010709 ",.02)
 ;;13411010709
 ;;9002226.02101,"1005,13411010715 ",.01)
 ;;13411010715
 ;;9002226.02101,"1005,13411010715 ",.02)
 ;;13411010715
 ;;9002226.02101,"1005,13411014201 ",.01)
 ;;13411014201
 ;;9002226.02101,"1005,13411014201 ",.02)
 ;;13411014201
 ;;9002226.02101,"1005,13411014202 ",.01)
 ;;13411014202
 ;;9002226.02101,"1005,13411014202 ",.02)
 ;;13411014202
 ;;9002226.02101,"1005,13411014203 ",.01)
 ;;13411014203
 ;;9002226.02101,"1005,13411014203 ",.02)
 ;;13411014203
 ;;9002226.02101,"1005,13411014206 ",.01)
 ;;13411014206
 ;;9002226.02101,"1005,13411014206 ",.02)
 ;;13411014206
 ;;9002226.02101,"1005,13411014209 ",.01)
 ;;13411014209
 ;;9002226.02101,"1005,13411014209 ",.02)
 ;;13411014209
 ;;9002226.02101,"1005,13411014301 ",.01)
 ;;13411014301
 ;;9002226.02101,"1005,13411014301 ",.02)
 ;;13411014301
 ;;9002226.02101,"1005,13411014302 ",.01)
 ;;13411014302
 ;;9002226.02101,"1005,13411014302 ",.02)
 ;;13411014302
 ;;9002226.02101,"1005,13411014303 ",.01)
 ;;13411014303
 ;;9002226.02101,"1005,13411014303 ",.02)
 ;;13411014303
 ;;9002226.02101,"1005,13411014306 ",.01)
 ;;13411014306
 ;;9002226.02101,"1005,13411014306 ",.02)
 ;;13411014306
 ;;9002226.02101,"1005,13411014309 ",.01)
 ;;13411014309
 ;;9002226.02101,"1005,13411014309 ",.02)
 ;;13411014309
 ;;9002226.02101,"1005,13411014401 ",.01)
 ;;13411014401
 ;;9002226.02101,"1005,13411014401 ",.02)
 ;;13411014401
 ;;9002226.02101,"1005,13411014402 ",.01)
 ;;13411014402
 ;;9002226.02101,"1005,13411014402 ",.02)
 ;;13411014402
 ;;9002226.02101,"1005,13411014403 ",.01)
 ;;13411014403
 ;;9002226.02101,"1005,13411014403 ",.02)
 ;;13411014403
 ;;9002226.02101,"1005,13411014406 ",.01)
 ;;13411014406
 ;;9002226.02101,"1005,13411014406 ",.02)
 ;;13411014406
 ;;9002226.02101,"1005,13411014409 ",.01)
 ;;13411014409