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