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

BGPM5ASJ.m

Go to the documentation of this file.
BGPM5ASJ ;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,67263040630 ",.02)
 ;;67263040630
 ;;9002226.02101,"1005,67296054201 ",.01)
 ;;67296054201
 ;;9002226.02101,"1005,67296054201 ",.02)
 ;;67296054201
 ;;9002226.02101,"1005,67296062201 ",.01)
 ;;67296062201
 ;;9002226.02101,"1005,67296062201 ",.02)
 ;;67296062201
 ;;9002226.02101,"1005,67296062202 ",.01)
 ;;67296062202
 ;;9002226.02101,"1005,67296062202 ",.02)
 ;;67296062202
 ;;9002226.02101,"1005,67296063001 ",.01)
 ;;67296063001
 ;;9002226.02101,"1005,67296063001 ",.02)
 ;;67296063001
 ;;9002226.02101,"1005,67544004215 ",.01)
 ;;67544004215
 ;;9002226.02101,"1005,67544004215 ",.02)
 ;;67544004215
 ;;9002226.02101,"1005,67544004230 ",.01)
 ;;67544004230
 ;;9002226.02101,"1005,67544004230 ",.02)
 ;;67544004230
 ;;9002226.02101,"1005,67544004245 ",.01)
 ;;67544004245
 ;;9002226.02101,"1005,67544004245 ",.02)
 ;;67544004245
 ;;9002226.02101,"1005,67544004253 ",.01)
 ;;67544004253
 ;;9002226.02101,"1005,67544004253 ",.02)
 ;;67544004253
 ;;9002226.02101,"1005,67544004260 ",.01)
 ;;67544004260
 ;;9002226.02101,"1005,67544004260 ",.02)
 ;;67544004260
 ;;9002226.02101,"1005,67544004270 ",.01)
 ;;67544004270
 ;;9002226.02101,"1005,67544004270 ",.02)
 ;;67544004270
 ;;9002226.02101,"1005,67544004273 ",.01)
 ;;67544004273
 ;;9002226.02101,"1005,67544004273 ",.02)
 ;;67544004273
 ;;9002226.02101,"1005,67544004280 ",.01)
 ;;67544004280
 ;;9002226.02101,"1005,67544004280 ",.02)
 ;;67544004280
 ;;9002226.02101,"1005,67544004292 ",.01)
 ;;67544004292
 ;;9002226.02101,"1005,67544004292 ",.02)
 ;;67544004292
 ;;9002226.02101,"1005,67544004294 ",.01)
 ;;67544004294
 ;;9002226.02101,"1005,67544004294 ",.02)
 ;;67544004294
 ;;9002226.02101,"1005,67544006230 ",.01)
 ;;67544006230
 ;;9002226.02101,"1005,67544006230 ",.02)
 ;;67544006230
 ;;9002226.02101,"1005,67544006260 ",.01)
 ;;67544006260
 ;;9002226.02101,"1005,67544006260 ",.02)
 ;;67544006260
 ;;9002226.02101,"1005,67544006282 ",.01)
 ;;67544006282
 ;;9002226.02101,"1005,67544006282 ",.02)
 ;;67544006282
 ;;9002226.02101,"1005,67544012815 ",.01)
 ;;67544012815
 ;;9002226.02101,"1005,67544012815 ",.02)
 ;;67544012815
 ;;9002226.02101,"1005,67544012830 ",.01)
 ;;67544012830
 ;;9002226.02101,"1005,67544012830 ",.02)
 ;;67544012830
 ;;9002226.02101,"1005,67544012845 ",.01)
 ;;67544012845
 ;;9002226.02101,"1005,67544012845 ",.02)
 ;;67544012845
 ;;9002226.02101,"1005,67544012853 ",.01)
 ;;67544012853
 ;;9002226.02101,"1005,67544012853 ",.02)
 ;;67544012853
 ;;9002226.02101,"1005,67544012860 ",.01)
 ;;67544012860
 ;;9002226.02101,"1005,67544012860 ",.02)
 ;;67544012860
 ;;9002226.02101,"1005,67544013415 ",.01)
 ;;67544013415
 ;;9002226.02101,"1005,67544013415 ",.02)
 ;;67544013415
 ;;9002226.02101,"1005,67544013430 ",.01)
 ;;67544013430
 ;;9002226.02101,"1005,67544013430 ",.02)
 ;;67544013430
 ;;9002226.02101,"1005,67544013445 ",.01)
 ;;67544013445
 ;;9002226.02101,"1005,67544013445 ",.02)
 ;;67544013445
 ;;9002226.02101,"1005,67544013460 ",.01)
 ;;67544013460
 ;;9002226.02101,"1005,67544013460 ",.02)
 ;;67544013460
 ;;9002226.02101,"1005,67544013480 ",.01)
 ;;67544013480
 ;;9002226.02101,"1005,67544013480 ",.02)
 ;;67544013480
 ;;9002226.02101,"1005,67544014815 ",.01)
 ;;67544014815
 ;;9002226.02101,"1005,67544014815 ",.02)
 ;;67544014815
 ;;9002226.02101,"1005,67544014830 ",.01)
 ;;67544014830
 ;;9002226.02101,"1005,67544014830 ",.02)
 ;;67544014830
 ;;9002226.02101,"1005,67544014831 ",.01)
 ;;67544014831
 ;;9002226.02101,"1005,67544014831 ",.02)
 ;;67544014831
 ;;9002226.02101,"1005,67544014845 ",.01)
 ;;67544014845
 ;;9002226.02101,"1005,67544014845 ",.02)
 ;;67544014845
 ;;9002226.02101,"1005,67544014853 ",.01)
 ;;67544014853
 ;;9002226.02101,"1005,67544014853 ",.02)
 ;;67544014853
 ;;9002226.02101,"1005,67544014860 ",.01)
 ;;67544014860
 ;;9002226.02101,"1005,67544014860 ",.02)
 ;;67544014860
 ;;9002226.02101,"1005,67544014880 ",.01)
 ;;67544014880
 ;;9002226.02101,"1005,67544014880 ",.02)
 ;;67544014880
 ;;9002226.02101,"1005,67544015060 ",.01)
 ;;67544015060
 ;;9002226.02101,"1005,67544015060 ",.02)
 ;;67544015060
 ;;9002226.02101,"1005,67544015073 ",.01)
 ;;67544015073
 ;;9002226.02101,"1005,67544015073 ",.02)
 ;;67544015073
 ;;9002226.02101,"1005,67544015092 ",.01)
 ;;67544015092
 ;;9002226.02101,"1005,67544015092 ",.02)
 ;;67544015092
 ;;9002226.02101,"1005,67544015915 ",.01)
 ;;67544015915
 ;;9002226.02101,"1005,67544015915 ",.02)
 ;;67544015915
 ;;9002226.02101,"1005,67544015930 ",.01)
 ;;67544015930
 ;;9002226.02101,"1005,67544015930 ",.02)
 ;;67544015930
 ;;9002226.02101,"1005,67544015945 ",.01)
 ;;67544015945
 ;;9002226.02101,"1005,67544015945 ",.02)
 ;;67544015945
 ;;9002226.02101,"1005,67544015960 ",.01)
 ;;67544015960
 ;;9002226.02101,"1005,67544015960 ",.02)
 ;;67544015960
 ;;9002226.02101,"1005,67544015980 ",.01)
 ;;67544015980
 ;;9002226.02101,"1005,67544015980 ",.02)
 ;;67544015980
 ;;9002226.02101,"1005,67544016060 ",.01)
 ;;67544016060
 ;;9002226.02101,"1005,67544016060 ",.02)
 ;;67544016060
 ;;9002226.02101,"1005,67544016080 ",.01)
 ;;67544016080
 ;;9002226.02101,"1005,67544016080 ",.02)
 ;;67544016080
 ;;9002226.02101,"1005,67544016580 ",.01)
 ;;67544016580
 ;;9002226.02101,"1005,67544016580 ",.02)
 ;;67544016580
 ;;9002226.02101,"1005,67544016680 ",.01)
 ;;67544016680
 ;;9002226.02101,"1005,67544016680 ",.02)
 ;;67544016680
 ;;9002226.02101,"1005,67544017330 ",.01)
 ;;67544017330
 ;;9002226.02101,"1005,67544017330 ",.02)
 ;;67544017330
 ;;9002226.02101,"1005,67544017331 ",.01)
 ;;67544017331
 ;;9002226.02101,"1005,67544017331 ",.02)
 ;;67544017331
 ;;9002226.02101,"1005,67544017332 ",.01)
 ;;67544017332
 ;;9002226.02101,"1005,67544017332 ",.02)
 ;;67544017332
 ;;9002226.02101,"1005,67544017345 ",.01)
 ;;67544017345
 ;;9002226.02101,"1005,67544017345 ",.02)
 ;;67544017345
 ;;9002226.02101,"1005,67544017353 ",.01)
 ;;67544017353
 ;;9002226.02101,"1005,67544017353 ",.02)
 ;;67544017353
 ;;9002226.02101,"1005,67544017360 ",.01)
 ;;67544017360
 ;;9002226.02101,"1005,67544017360 ",.02)
 ;;67544017360
 ;;9002226.02101,"1005,67544017430 ",.01)
 ;;67544017430
 ;;9002226.02101,"1005,67544017430 ",.02)
 ;;67544017430
 ;;9002226.02101,"1005,67544017431 ",.01)
 ;;67544017431
 ;;9002226.02101,"1005,67544017431 ",.02)
 ;;67544017431
 ;;9002226.02101,"1005,67544017432 ",.01)
 ;;67544017432
 ;;9002226.02101,"1005,67544017432 ",.02)
 ;;67544017432
 ;;9002226.02101,"1005,67544017445 ",.01)
 ;;67544017445
 ;;9002226.02101,"1005,67544017445 ",.02)
 ;;67544017445
 ;;9002226.02101,"1005,67544017460 ",.01)
 ;;67544017460
 ;;9002226.02101,"1005,67544017460 ",.02)
 ;;67544017460
 ;;9002226.02101,"1005,67544017480 ",.01)
 ;;67544017480
 ;;9002226.02101,"1005,67544017480 ",.02)
 ;;67544017480
 ;;9002226.02101,"1005,67544017580 ",.01)
 ;;67544017580
 ;;9002226.02101,"1005,67544017580 ",.02)
 ;;67544017580
 ;;9002226.02101,"1005,67544019230 ",.01)
 ;;67544019230
 ;;9002226.02101,"1005,67544019230 ",.02)
 ;;67544019230
 ;;9002226.02101,"1005,67544019245 ",.01)
 ;;67544019245
 ;;9002226.02101,"1005,67544019245 ",.02)
 ;;67544019245
 ;;9002226.02101,"1005,67544019253 ",.01)
 ;;67544019253
 ;;9002226.02101,"1005,67544019253 ",.02)
 ;;67544019253
 ;;9002226.02101,"1005,67544021245 ",.01)
 ;;67544021245
 ;;9002226.02101,"1005,67544021245 ",.02)
 ;;67544021245
 ;;9002226.02101,"1005,67544021253 ",.01)
 ;;67544021253
 ;;9002226.02101,"1005,67544021253 ",.02)
 ;;67544021253
 ;;9002226.02101,"1005,67544021831 ",.01)
 ;;67544021831
 ;;9002226.02101,"1005,67544021831 ",.02)
 ;;67544021831
 ;;9002226.02101,"1005,67544021860 ",.01)
 ;;67544021860
 ;;9002226.02101,"1005,67544021860 ",.02)
 ;;67544021860
 ;;9002226.02101,"1005,67544021882 ",.01)
 ;;67544021882
 ;;9002226.02101,"1005,67544021882 ",.02)
 ;;67544021882
 ;;9002226.02101,"1005,67544021915 ",.01)
 ;;67544021915
 ;;9002226.02101,"1005,67544021915 ",.02)
 ;;67544021915
 ;;9002226.02101,"1005,67544021930 ",.01)
 ;;67544021930
 ;;9002226.02101,"1005,67544021930 ",.02)
 ;;67544021930
 ;;9002226.02101,"1005,67544021931 ",.01)
 ;;67544021931
 ;;9002226.02101,"1005,67544021931 ",.02)
 ;;67544021931
 ;;9002226.02101,"1005,67544021932 ",.01)
 ;;67544021932
 ;;9002226.02101,"1005,67544021932 ",.02)
 ;;67544021932
 ;;9002226.02101,"1005,67544021945 ",.01)
 ;;67544021945
 ;;9002226.02101,"1005,67544021945 ",.02)
 ;;67544021945
 ;;9002226.02101,"1005,67544021960 ",.01)
 ;;67544021960
 ;;9002226.02101,"1005,67544021960 ",.02)
 ;;67544021960
 ;;9002226.02101,"1005,67544025060 ",.01)
 ;;67544025060
 ;;9002226.02101,"1005,67544025060 ",.02)
 ;;67544025060
 ;;9002226.02101,"1005,67544027660 ",.01)
 ;;67544027660
 ;;9002226.02101,"1005,67544027660 ",.02)
 ;;67544027660
 ;;9002226.02101,"1005,67544030630 ",.01)
 ;;67544030630
 ;;9002226.02101,"1005,67544030630 ",.02)
 ;;67544030630
 ;;9002226.02101,"1005,67544030640 ",.01)
 ;;67544030640
 ;;9002226.02101,"1005,67544030640 ",.02)
 ;;67544030640
 ;;9002226.02101,"1005,67544030645 ",.01)
 ;;67544030645
 ;;9002226.02101,"1005,67544030645 ",.02)
 ;;67544030645
 ;;9002226.02101,"1005,67544030660 ",.01)
 ;;67544030660
 ;;9002226.02101,"1005,67544030660 ",.02)
 ;;67544030660
 ;;9002226.02101,"1005,67544031130 ",.01)
 ;;67544031130
 ;;9002226.02101,"1005,67544031130 ",.02)
 ;;67544031130
 ;;9002226.02101,"1005,67544031140 ",.01)
 ;;67544031140
 ;;9002226.02101,"1005,67544031140 ",.02)
 ;;67544031140
 ;;9002226.02101,"1005,67544031145 ",.01)
 ;;67544031145
 ;;9002226.02101,"1005,67544031145 ",.02)
 ;;67544031145
 ;;9002226.02101,"1005,67544031580 ",.01)
 ;;67544031580
 ;;9002226.02101,"1005,67544031580 ",.02)
 ;;67544031580
 ;;9002226.02101,"1005,67544032110 ",.01)
 ;;67544032110
 ;;9002226.02101,"1005,67544032110 ",.02)
 ;;67544032110
 ;;9002226.02101,"1005,67544032115 ",.01)
 ;;67544032115
 ;;9002226.02101,"1005,67544032115 ",.02)
 ;;67544032115
 ;;9002226.02101,"1005,67544032130 ",.01)
 ;;67544032130
 ;;9002226.02101,"1005,67544032130 ",.02)
 ;;67544032130
 ;;9002226.02101,"1005,67544032145 ",.01)
 ;;67544032145
 ;;9002226.02101,"1005,67544032145 ",.02)
 ;;67544032145
 ;;9002226.02101,"1005,67544032160 ",.01)
 ;;67544032160
 ;;9002226.02101,"1005,67544032160 ",.02)
 ;;67544032160
 ;;9002226.02101,"1005,67544032215 ",.01)
 ;;67544032215
 ;;9002226.02101,"1005,67544032215 ",.02)
 ;;67544032215
 ;;9002226.02101,"1005,67544032230 ",.01)
 ;;67544032230
 ;;9002226.02101,"1005,67544032230 ",.02)
 ;;67544032230
 ;;9002226.02101,"1005,67544032245 ",.01)
 ;;67544032245
 ;;9002226.02101,"1005,67544032245 ",.02)
 ;;67544032245
 ;;9002226.02101,"1005,67544032253 ",.01)
 ;;67544032253
 ;;9002226.02101,"1005,67544032253 ",.02)
 ;;67544032253
 ;;9002226.02101,"1005,67544032260 ",.01)
 ;;67544032260
 ;;9002226.02101,"1005,67544032260 ",.02)
 ;;67544032260
 ;;9002226.02101,"1005,67544032270 ",.01)
 ;;67544032270
 ;;9002226.02101,"1005,67544032270 ",.02)
 ;;67544032270
 ;;9002226.02101,"1005,67544032273 ",.01)
 ;;67544032273
 ;;9002226.02101,"1005,67544032273 ",.02)
 ;;67544032273
 ;;9002226.02101,"1005,67544032280 ",.01)
 ;;67544032280
 ;;9002226.02101,"1005,67544032280 ",.02)
 ;;67544032280
 ;;9002226.02101,"1005,67544032292 ",.01)
 ;;67544032292
 ;;9002226.02101,"1005,67544032292 ",.02)
 ;;67544032292
 ;;9002226.02101,"1005,67544032294 ",.01)
 ;;67544032294
 ;;9002226.02101,"1005,67544032294 ",.02)
 ;;67544032294
 ;;9002226.02101,"1005,67544035080 ",.01)
 ;;67544035080
 ;;9002226.02101,"1005,67544035080 ",.02)
 ;;67544035080
 ;;9002226.02101,"1005,67544037760 ",.01)
 ;;67544037760
 ;;9002226.02101,"1005,67544037760 ",.02)
 ;;67544037760