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

BGPM5AQT.m

Go to the documentation of this file.
BGPM5AQT ;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,13411014409 ",.02)
 ;;13411014409
 ;;9002226.02101,"1005,13411014501 ",.01)
 ;;13411014501
 ;;9002226.02101,"1005,13411014501 ",.02)
 ;;13411014501
 ;;9002226.02101,"1005,13411014502 ",.01)
 ;;13411014502
 ;;9002226.02101,"1005,13411014502 ",.02)
 ;;13411014502
 ;;9002226.02101,"1005,13411014503 ",.01)
 ;;13411014503
 ;;9002226.02101,"1005,13411014503 ",.02)
 ;;13411014503
 ;;9002226.02101,"1005,13411014506 ",.01)
 ;;13411014506
 ;;9002226.02101,"1005,13411014506 ",.02)
 ;;13411014506
 ;;9002226.02101,"1005,13411014509 ",.01)
 ;;13411014509
 ;;9002226.02101,"1005,13411014509 ",.02)
 ;;13411014509
 ;;9002226.02101,"1005,13411015601 ",.01)
 ;;13411015601
 ;;9002226.02101,"1005,13411015601 ",.02)
 ;;13411015601
 ;;9002226.02101,"1005,13411015602 ",.01)
 ;;13411015602
 ;;9002226.02101,"1005,13411015602 ",.02)
 ;;13411015602
 ;;9002226.02101,"1005,13411015603 ",.01)
 ;;13411015603
 ;;9002226.02101,"1005,13411015603 ",.02)
 ;;13411015603
 ;;9002226.02101,"1005,13411015606 ",.01)
 ;;13411015606
 ;;9002226.02101,"1005,13411015606 ",.02)
 ;;13411015606
 ;;9002226.02101,"1005,13411015609 ",.01)
 ;;13411015609
 ;;9002226.02101,"1005,13411015609 ",.02)
 ;;13411015609
 ;;9002226.02101,"1005,13411018402 ",.01)
 ;;13411018402
 ;;9002226.02101,"1005,13411018402 ",.02)
 ;;13411018402
 ;;9002226.02101,"1005,13411018403 ",.01)
 ;;13411018403
 ;;9002226.02101,"1005,13411018403 ",.02)
 ;;13411018403
 ;;9002226.02101,"1005,13411018406 ",.01)
 ;;13411018406
 ;;9002226.02101,"1005,13411018406 ",.02)
 ;;13411018406
 ;;9002226.02101,"1005,13411018409 ",.01)
 ;;13411018409
 ;;9002226.02101,"1005,13411018409 ",.02)
 ;;13411018409
 ;;9002226.02101,"1005,13411018410 ",.01)
 ;;13411018410
 ;;9002226.02101,"1005,13411018410 ",.02)
 ;;13411018410
 ;;9002226.02101,"1005,13411018803 ",.01)
 ;;13411018803
 ;;9002226.02101,"1005,13411018803 ",.02)
 ;;13411018803
 ;;9002226.02101,"1005,13411018810 ",.01)
 ;;13411018810
 ;;9002226.02101,"1005,13411018810 ",.02)
 ;;13411018810
 ;;9002226.02101,"1005,13411018903 ",.01)
 ;;13411018903
 ;;9002226.02101,"1005,13411018903 ",.02)
 ;;13411018903
 ;;9002226.02101,"1005,13411018910 ",.01)
 ;;13411018910
 ;;9002226.02101,"1005,13411018910 ",.02)
 ;;13411018910
 ;;9002226.02101,"1005,13411019003 ",.01)
 ;;13411019003
 ;;9002226.02101,"1005,13411019003 ",.02)
 ;;13411019003
 ;;9002226.02101,"1005,13411019010 ",.01)
 ;;13411019010
 ;;9002226.02101,"1005,13411019010 ",.02)
 ;;13411019010
 ;;9002226.02101,"1005,13411023102 ",.01)
 ;;13411023102
 ;;9002226.02101,"1005,13411023102 ",.02)
 ;;13411023102
 ;;9002226.02101,"1005,13411023103 ",.01)
 ;;13411023103
 ;;9002226.02101,"1005,13411023103 ",.02)
 ;;13411023103
 ;;9002226.02101,"1005,13411023106 ",.01)
 ;;13411023106
 ;;9002226.02101,"1005,13411023106 ",.02)
 ;;13411023106
 ;;9002226.02101,"1005,13411023109 ",.01)
 ;;13411023109
 ;;9002226.02101,"1005,13411023109 ",.02)
 ;;13411023109
 ;;9002226.02101,"1005,13411023110 ",.01)
 ;;13411023110
 ;;9002226.02101,"1005,13411023110 ",.02)
 ;;13411023110
 ;;9002226.02101,"1005,13411023302 ",.01)
 ;;13411023302
 ;;9002226.02101,"1005,13411023302 ",.02)
 ;;13411023302
 ;;9002226.02101,"1005,13411023303 ",.01)
 ;;13411023303
 ;;9002226.02101,"1005,13411023303 ",.02)
 ;;13411023303
 ;;9002226.02101,"1005,13411023306 ",.01)
 ;;13411023306
 ;;9002226.02101,"1005,13411023306 ",.02)
 ;;13411023306
 ;;9002226.02101,"1005,13411023309 ",.01)
 ;;13411023309
 ;;9002226.02101,"1005,13411023309 ",.02)
 ;;13411023309
 ;;9002226.02101,"1005,13411023310 ",.01)
 ;;13411023310
 ;;9002226.02101,"1005,13411023310 ",.02)
 ;;13411023310
 ;;9002226.02101,"1005,13411033403 ",.01)
 ;;13411033403
 ;;9002226.02101,"1005,13411033403 ",.02)
 ;;13411033403
 ;;9002226.02101,"1005,13411037703 ",.01)
 ;;13411037703
 ;;9002226.02101,"1005,13411037703 ",.02)
 ;;13411037703
 ;;9002226.02101,"1005,13411037803 ",.01)
 ;;13411037803
 ;;9002226.02101,"1005,13411037803 ",.02)
 ;;13411037803
 ;;9002226.02101,"1005,13411037903 ",.01)
 ;;13411037903
 ;;9002226.02101,"1005,13411037903 ",.02)
 ;;13411037903
 ;;9002226.02101,"1005,13411038003 ",.01)
 ;;13411038003
 ;;9002226.02101,"1005,13411038003 ",.02)
 ;;13411038003
 ;;9002226.02101,"1005,13411038103 ",.01)
 ;;13411038103
 ;;9002226.02101,"1005,13411038103 ",.02)
 ;;13411038103
 ;;9002226.02101,"1005,13411038203 ",.01)
 ;;13411038203
 ;;9002226.02101,"1005,13411038203 ",.02)
 ;;13411038203
 ;;9002226.02101,"1005,13411046203 ",.01)
 ;;13411046203
 ;;9002226.02101,"1005,13411046203 ",.02)
 ;;13411046203
 ;;9002226.02101,"1005,13411049303 ",.01)
 ;;13411049303
 ;;9002226.02101,"1005,13411049303 ",.02)
 ;;13411049303
 ;;9002226.02101,"1005,13411054906 ",.01)
 ;;13411054906
 ;;9002226.02101,"1005,13411054906 ",.02)
 ;;13411054906
 ;;9002226.02101,"1005,14593041701 ",.01)
 ;;14593041701
 ;;9002226.02101,"1005,14593041701 ",.02)
 ;;14593041701
 ;;9002226.02101,"1005,14593041710 ",.01)
 ;;14593041710
 ;;9002226.02101,"1005,14593041710 ",.02)
 ;;14593041710
 ;;9002226.02101,"1005,14593041801 ",.01)
 ;;14593041801
 ;;9002226.02101,"1005,14593041801 ",.02)
 ;;14593041801
 ;;9002226.02101,"1005,14593041850 ",.01)
 ;;14593041850
 ;;9002226.02101,"1005,14593041850 ",.02)
 ;;14593041850
 ;;9002226.02101,"1005,14593042001 ",.01)
 ;;14593042001
 ;;9002226.02101,"1005,14593042001 ",.02)
 ;;14593042001
 ;;9002226.02101,"1005,14593042010 ",.01)
 ;;14593042010
 ;;9002226.02101,"1005,14593042010 ",.02)
 ;;14593042010
 ;;9002226.02101,"1005,14593042050 ",.01)
 ;;14593042050
 ;;9002226.02101,"1005,14593042050 ",.02)
 ;;14593042050
 ;;9002226.02101,"1005,15330023301 ",.01)
 ;;15330023301
 ;;9002226.02101,"1005,15330023301 ",.02)
 ;;15330023301
 ;;9002226.02101,"1005,15330023401 ",.01)
 ;;15330023401
 ;;9002226.02101,"1005,15330023401 ",.02)
 ;;15330023401
 ;;9002226.02101,"1005,15338020030 ",.01)
 ;;15338020030
 ;;9002226.02101,"1005,15338020030 ",.02)
 ;;15338020030
 ;;9002226.02101,"1005,15338021130 ",.01)
 ;;15338021130
 ;;9002226.02101,"1005,15338021130 ",.02)
 ;;15338021130
 ;;9002226.02101,"1005,15338022030 ",.01)
 ;;15338022030
 ;;9002226.02101,"1005,15338022030 ",.02)
 ;;15338022030
 ;;9002226.02101,"1005,15338023330 ",.01)
 ;;15338023330
 ;;9002226.02101,"1005,15338023330 ",.02)
 ;;15338023330
 ;;9002226.02101,"1005,15548004501 ",.01)
 ;;15548004501
 ;;9002226.02101,"1005,15548004501 ",.02)
 ;;15548004501
 ;;9002226.02101,"1005,15548004503 ",.01)
 ;;15548004503
 ;;9002226.02101,"1005,15548004503 ",.02)
 ;;15548004503
 ;;9002226.02101,"1005,15548004505 ",.01)
 ;;15548004505
 ;;9002226.02101,"1005,15548004505 ",.02)
 ;;15548004505
 ;;9002226.02101,"1005,15548004601 ",.01)
 ;;15548004601
 ;;9002226.02101,"1005,15548004601 ",.02)
 ;;15548004601
 ;;9002226.02101,"1005,15548004602 ",.01)
 ;;15548004602
 ;;9002226.02101,"1005,15548004602 ",.02)
 ;;15548004602
 ;;9002226.02101,"1005,15548004603 ",.01)
 ;;15548004603
 ;;9002226.02101,"1005,15548004603 ",.02)
 ;;15548004603
 ;;9002226.02101,"1005,15548004701 ",.01)
 ;;15548004701
 ;;9002226.02101,"1005,15548004701 ",.02)
 ;;15548004701
 ;;9002226.02101,"1005,15548004703 ",.01)
 ;;15548004703
 ;;9002226.02101,"1005,15548004703 ",.02)
 ;;15548004703
 ;;9002226.02101,"1005,15548004801 ",.01)
 ;;15548004801
 ;;9002226.02101,"1005,15548004801 ",.02)
 ;;15548004801
 ;;9002226.02101,"1005,15548015846 ",.01)
 ;;15548015846
 ;;9002226.02101,"1005,15548015846 ",.02)
 ;;15548015846
 ;;9002226.02101,"1005,15548015885 ",.01)
 ;;15548015885
 ;;9002226.02101,"1005,15548015885 ",.02)
 ;;15548015885
 ;;9002226.02101,"1005,15548015895 ",.01)
 ;;15548015895
 ;;9002226.02101,"1005,15548015895 ",.02)
 ;;15548015895
 ;;9002226.02101,"1005,15548020213 ",.01)
 ;;15548020213
 ;;9002226.02101,"1005,15548020213 ",.02)
 ;;15548020213
 ;;9002226.02101,"1005,15548022703 ",.01)
 ;;15548022703
 ;;9002226.02101,"1005,15548022703 ",.02)
 ;;15548022703
 ;;9002226.02101,"1005,15548027203 ",.01)
 ;;15548027203
 ;;9002226.02101,"1005,15548027203 ",.02)
 ;;15548027203
 ;;9002226.02101,"1005,15548027210 ",.01)
 ;;15548027210
 ;;9002226.02101,"1005,15548027210 ",.02)
 ;;15548027210
 ;;9002226.02101,"1005,15548027303 ",.01)
 ;;15548027303
 ;;9002226.02101,"1005,15548027303 ",.02)
 ;;15548027303
 ;;9002226.02101,"1005,15548027310 ",.01)
 ;;15548027310
 ;;9002226.02101,"1005,15548027310 ",.02)
 ;;15548027310
 ;;9002226.02101,"1005,15548033810 ",.01)
 ;;15548033810
 ;;9002226.02101,"1005,15548033810 ",.02)
 ;;15548033810
 ;;9002226.02101,"1005,15548033830 ",.01)
 ;;15548033830
 ;;9002226.02101,"1005,15548033830 ",.02)
 ;;15548033830
 ;;9002226.02101,"1005,15548033850 ",.01)
 ;;15548033850
 ;;9002226.02101,"1005,15548033850 ",.02)
 ;;15548033850
 ;;9002226.02101,"1005,15548033892 ",.01)
 ;;15548033892
 ;;9002226.02101,"1005,15548033892 ",.02)
 ;;15548033892
 ;;9002226.02101,"1005,15548034950 ",.01)
 ;;15548034950
 ;;9002226.02101,"1005,15548034950 ",.02)
 ;;15548034950
 ;;9002226.02101,"1005,15548038450 ",.01)
 ;;15548038450
 ;;9002226.02101,"1005,15548038450 ",.02)
 ;;15548038450
 ;;9002226.02101,"1005,15548039046 ",.01)
 ;;15548039046
 ;;9002226.02101,"1005,15548039046 ",.02)
 ;;15548039046
 ;;9002226.02101,"1005,15548039050 ",.01)
 ;;15548039050
 ;;9002226.02101,"1005,15548039050 ",.02)
 ;;15548039050
 ;;9002226.02101,"1005,15548039092 ",.01)
 ;;15548039092
 ;;9002226.02101,"1005,15548039092 ",.02)
 ;;15548039092
 ;;9002226.02101,"1005,15548045051 ",.01)
 ;;15548045051
 ;;9002226.02101,"1005,15548045051 ",.02)
 ;;15548045051
 ;;9002226.02101,"1005,15548045054 ",.01)
 ;;15548045054
 ;;9002226.02101,"1005,15548045054 ",.02)
 ;;15548045054
 ;;9002226.02101,"1005,15548045075 ",.01)
 ;;15548045075
 ;;9002226.02101,"1005,15548045075 ",.02)
 ;;15548045075
 ;;9002226.02101,"1005,15548045250 ",.01)
 ;;15548045250
 ;;9002226.02101,"1005,15548045250 ",.02)
 ;;15548045250
 ;;9002226.02101,"1005,15548045251 ",.01)
 ;;15548045251
 ;;9002226.02101,"1005,15548045251 ",.02)
 ;;15548045251
 ;;9002226.02101,"1005,15548045294 ",.01)
 ;;15548045294
 ;;9002226.02101,"1005,15548045294 ",.02)
 ;;15548045294
 ;;9002226.02101,"1005,15548045295 ",.01)
 ;;15548045295
 ;;9002226.02101,"1005,15548045295 ",.02)
 ;;15548045295
 ;;9002226.02101,"1005,15548048250 ",.01)
 ;;15548048250
 ;;9002226.02101,"1005,15548048250 ",.02)
 ;;15548048250
 ;;9002226.02101,"1005,15548048251 ",.01)
 ;;15548048251
 ;;9002226.02101,"1005,15548048251 ",.02)
 ;;15548048251
 ;;9002226.02101,"1005,15548048275 ",.01)
 ;;15548048275
 ;;9002226.02101,"1005,15548048275 ",.02)
 ;;15548048275
 ;;9002226.02101,"1005,15548048550 ",.01)
 ;;15548048550
 ;;9002226.02101,"1005,15548048550 ",.02)
 ;;15548048550
 ;;9002226.02101,"1005,15548060941 ",.01)
 ;;15548060941
 ;;9002226.02101,"1005,15548060941 ",.02)
 ;;15548060941
 ;;9002226.02101,"1005,15548060942 ",.01)
 ;;15548060942
 ;;9002226.02101,"1005,15548060942 ",.02)
 ;;15548060942
 ;;9002226.02101,"1005,15548060945 ",.01)
 ;;15548060945
 ;;9002226.02101,"1005,15548060945 ",.02)
 ;;15548060945
 ;;9002226.02101,"1005,15548060985 ",.01)
 ;;15548060985
 ;;9002226.02101,"1005,15548060985 ",.02)
 ;;15548060985
 ;;9002226.02101,"1005,16252053000 ",.01)
 ;;16252053000
 ;;9002226.02101,"1005,16252053000 ",.02)
 ;;16252053000
 ;;9002226.02101,"1005,16252053090 ",.01)
 ;;16252053090
 ;;9002226.02101,"1005,16252053090 ",.02)
 ;;16252053090
 ;;9002226.02101,"1005,16252053100 ",.01)
 ;;16252053100
 ;;9002226.02101,"1005,16252053100 ",.02)
 ;;16252053100
 ;;9002226.02101,"1005,16252053190 ",.01)
 ;;16252053190
 ;;9002226.02101,"1005,16252053190 ",.02)
 ;;16252053190