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

BGPM5ARW.m

Go to the documentation of this file.
  1. BGPM5ARW ;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,58087007630 ",.02)
  1. ;;58087007630
  1. ;;9002226.02101,"1005,58087007730 ",.01)
  1. ;;58087007730
  1. ;;9002226.02101,"1005,58087007730 ",.02)
  1. ;;58087007730
  1. ;;9002226.02101,"1005,58864000630 ",.01)
  1. ;;58864000630
  1. ;;9002226.02101,"1005,58864000630 ",.02)
  1. ;;58864000630
  1. ;;9002226.02101,"1005,58864006628 ",.01)
  1. ;;58864006628
  1. ;;9002226.02101,"1005,58864006628 ",.02)
  1. ;;58864006628
  1. ;;9002226.02101,"1005,58864010430 ",.01)
  1. ;;58864010430
  1. ;;9002226.02101,"1005,58864010430 ",.02)
  1. ;;58864010430
  1. ;;9002226.02101,"1005,58864051015 ",.01)
  1. ;;58864051015
  1. ;;9002226.02101,"1005,58864051015 ",.02)
  1. ;;58864051015
  1. ;;9002226.02101,"1005,58864060315 ",.01)
  1. ;;58864060315
  1. ;;9002226.02101,"1005,58864060315 ",.02)
  1. ;;58864060315
  1. ;;9002226.02101,"1005,58864060330 ",.01)
  1. ;;58864060330
  1. ;;9002226.02101,"1005,58864060330 ",.02)
  1. ;;58864060330
  1. ;;9002226.02101,"1005,58864060390 ",.01)
  1. ;;58864060390
  1. ;;9002226.02101,"1005,58864060390 ",.02)
  1. ;;58864060390
  1. ;;9002226.02101,"1005,58864060515 ",.01)
  1. ;;58864060515
  1. ;;9002226.02101,"1005,58864060515 ",.02)
  1. ;;58864060515
  1. ;;9002226.02101,"1005,58864060530 ",.01)
  1. ;;58864060530
  1. ;;9002226.02101,"1005,58864060530 ",.02)
  1. ;;58864060530
  1. ;;9002226.02101,"1005,58864061815 ",.01)
  1. ;;58864061815
  1. ;;9002226.02101,"1005,58864061815 ",.02)
  1. ;;58864061815
  1. ;;9002226.02101,"1005,58864061830 ",.01)
  1. ;;58864061830
  1. ;;9002226.02101,"1005,58864061830 ",.02)
  1. ;;58864061830
  1. ;;9002226.02101,"1005,58864065430 ",.01)
  1. ;;58864065430
  1. ;;9002226.02101,"1005,58864065430 ",.02)
  1. ;;58864065430
  1. ;;9002226.02101,"1005,58864066130 ",.01)
  1. ;;58864066130
  1. ;;9002226.02101,"1005,58864066130 ",.02)
  1. ;;58864066130
  1. ;;9002226.02101,"1005,58864066730 ",.01)
  1. ;;58864066730
  1. ;;9002226.02101,"1005,58864066730 ",.02)
  1. ;;58864066730
  1. ;;9002226.02101,"1005,58864067430 ",.01)
  1. ;;58864067430
  1. ;;9002226.02101,"1005,58864067430 ",.02)
  1. ;;58864067430
  1. ;;9002226.02101,"1005,58864068130 ",.01)
  1. ;;58864068130
  1. ;;9002226.02101,"1005,58864068130 ",.02)
  1. ;;58864068130
  1. ;;9002226.02101,"1005,58864072615 ",.01)
  1. ;;58864072615
  1. ;;9002226.02101,"1005,58864072615 ",.02)
  1. ;;58864072615
  1. ;;9002226.02101,"1005,58864072630 ",.01)
  1. ;;58864072630
  1. ;;9002226.02101,"1005,58864072630 ",.02)
  1. ;;58864072630
  1. ;;9002226.02101,"1005,58864075030 ",.01)
  1. ;;58864075030
  1. ;;9002226.02101,"1005,58864075030 ",.02)
  1. ;;58864075030
  1. ;;9002226.02101,"1005,58864075330 ",.01)
  1. ;;58864075330
  1. ;;9002226.02101,"1005,58864075330 ",.02)
  1. ;;58864075330
  1. ;;9002226.02101,"1005,58864075390 ",.01)
  1. ;;58864075390
  1. ;;9002226.02101,"1005,58864075390 ",.02)
  1. ;;58864075390
  1. ;;9002226.02101,"1005,58864075430 ",.01)
  1. ;;58864075430
  1. ;;9002226.02101,"1005,58864075430 ",.02)
  1. ;;58864075430
  1. ;;9002226.02101,"1005,58864075530 ",.01)
  1. ;;58864075530
  1. ;;9002226.02101,"1005,58864075530 ",.02)
  1. ;;58864075530
  1. ;;9002226.02101,"1005,58864076230 ",.01)
  1. ;;58864076230
  1. ;;9002226.02101,"1005,58864076230 ",.02)
  1. ;;58864076230
  1. ;;9002226.02101,"1005,58864077115 ",.01)
  1. ;;58864077115
  1. ;;9002226.02101,"1005,58864077115 ",.02)
  1. ;;58864077115
  1. ;;9002226.02101,"1005,58864077430 ",.01)
  1. ;;58864077430
  1. ;;9002226.02101,"1005,58864077430 ",.02)
  1. ;;58864077430
  1. ;;9002226.02101,"1005,58864077490 ",.01)
  1. ;;58864077490
  1. ;;9002226.02101,"1005,58864077490 ",.02)
  1. ;;58864077490
  1. ;;9002226.02101,"1005,58864078730 ",.01)
  1. ;;58864078730
  1. ;;9002226.02101,"1005,58864078730 ",.02)
  1. ;;58864078730
  1. ;;9002226.02101,"1005,58864083830 ",.01)
  1. ;;58864083830
  1. ;;9002226.02101,"1005,58864083830 ",.02)
  1. ;;58864083830
  1. ;;9002226.02101,"1005,58864084730 ",.01)
  1. ;;58864084730
  1. ;;9002226.02101,"1005,58864084730 ",.02)
  1. ;;58864084730
  1. ;;9002226.02101,"1005,58864085930 ",.01)
  1. ;;58864085930
  1. ;;9002226.02101,"1005,58864085930 ",.02)
  1. ;;58864085930
  1. ;;9002226.02101,"1005,58864086330 ",.01)
  1. ;;58864086330
  1. ;;9002226.02101,"1005,58864086330 ",.02)
  1. ;;58864086330
  1. ;;9002226.02101,"1005,58864086930 ",.01)
  1. ;;58864086930
  1. ;;9002226.02101,"1005,58864086930 ",.02)
  1. ;;58864086930
  1. ;;9002226.02101,"1005,59564012820 ",.01)
  1. ;;59564012820
  1. ;;9002226.02101,"1005,59564012820 ",.02)
  1. ;;59564012820
  1. ;;9002226.02101,"1005,59762227001 ",.01)
  1. ;;59762227001
  1. ;;9002226.02101,"1005,59762227001 ",.02)
  1. ;;59762227001
  1. ;;9002226.02101,"1005,59762227003 ",.01)
  1. ;;59762227003
  1. ;;9002226.02101,"1005,59762227003 ",.02)
  1. ;;59762227003
  1. ;;9002226.02101,"1005,59762227007 ",.01)
  1. ;;59762227007
  1. ;;9002226.02101,"1005,59762227007 ",.02)
  1. ;;59762227007
  1. ;;9002226.02101,"1005,59762227101 ",.01)
  1. ;;59762227101
  1. ;;9002226.02101,"1005,59762227101 ",.02)
  1. ;;59762227101
  1. ;;9002226.02101,"1005,59762227103 ",.01)
  1. ;;59762227103
  1. ;;9002226.02101,"1005,59762227103 ",.02)
  1. ;;59762227103
  1. ;;9002226.02101,"1005,59762227107 ",.01)
  1. ;;59762227107
  1. ;;9002226.02101,"1005,59762227107 ",.02)
  1. ;;59762227107
  1. ;;9002226.02101,"1005,59762227201 ",.01)
  1. ;;59762227201
  1. ;;9002226.02101,"1005,59762227201 ",.02)
  1. ;;59762227201
  1. ;;9002226.02101,"1005,59762227203 ",.01)
  1. ;;59762227203
  1. ;;9002226.02101,"1005,59762227203 ",.02)
  1. ;;59762227203
  1. ;;9002226.02101,"1005,59762227207 ",.01)
  1. ;;59762227207
  1. ;;9002226.02101,"1005,59762227207 ",.02)
  1. ;;59762227207
  1. ;;9002226.02101,"1005,59762227301 ",.01)
  1. ;;59762227301
  1. ;;9002226.02101,"1005,59762227301 ",.02)
  1. ;;59762227301
  1. ;;9002226.02101,"1005,59762227303 ",.01)
  1. ;;59762227303
  1. ;;9002226.02101,"1005,59762227303 ",.02)
  1. ;;59762227303
  1. ;;9002226.02101,"1005,59762227307 ",.01)
  1. ;;59762227307
  1. ;;9002226.02101,"1005,59762227307 ",.02)
  1. ;;59762227307
  1. ;;9002226.02101,"1005,59762227401 ",.01)
  1. ;;59762227401
  1. ;;9002226.02101,"1005,59762227401 ",.02)
  1. ;;59762227401
  1. ;;9002226.02101,"1005,59762227403 ",.01)
  1. ;;59762227403
  1. ;;9002226.02101,"1005,59762227403 ",.02)
  1. ;;59762227403
  1. ;;9002226.02101,"1005,59762227407 ",.01)
  1. ;;59762227407
  1. ;;9002226.02101,"1005,59762227407 ",.02)
  1. ;;59762227407
  1. ;;9002226.02101,"1005,59762227501 ",.01)
  1. ;;59762227501
  1. ;;9002226.02101,"1005,59762227501 ",.02)
  1. ;;59762227501
  1. ;;9002226.02101,"1005,59762227503 ",.01)
  1. ;;59762227503
  1. ;;9002226.02101,"1005,59762227503 ",.02)
  1. ;;59762227503
  1. ;;9002226.02101,"1005,59762227507 ",.01)
  1. ;;59762227507
  1. ;;9002226.02101,"1005,59762227507 ",.02)
  1. ;;59762227507
  1. ;;9002226.02101,"1005,59762329301 ",.01)
  1. ;;59762329301
  1. ;;9002226.02101,"1005,59762329301 ",.02)
  1. ;;59762329301
  1. ;;9002226.02101,"1005,59762329302 ",.01)
  1. ;;59762329302
  1. ;;9002226.02101,"1005,59762329302 ",.02)
  1. ;;59762329302
  1. ;;9002226.02101,"1005,59762329303 ",.01)
  1. ;;59762329303
  1. ;;9002226.02101,"1005,59762329303 ",.02)
  1. ;;59762329303
  1. ;;9002226.02101,"1005,59762329304 ",.01)
  1. ;;59762329304
  1. ;;9002226.02101,"1005,59762329304 ",.02)
  1. ;;59762329304
  1. ;;9002226.02101,"1005,59762329401 ",.01)
  1. ;;59762329401
  1. ;;9002226.02101,"1005,59762329401 ",.02)
  1. ;;59762329401
  1. ;;9002226.02101,"1005,59762329402 ",.01)
  1. ;;59762329402
  1. ;;9002226.02101,"1005,59762329402 ",.02)
  1. ;;59762329402
  1. ;;9002226.02101,"1005,59762329403 ",.01)
  1. ;;59762329403
  1. ;;9002226.02101,"1005,59762329403 ",.02)
  1. ;;59762329403
  1. ;;9002226.02101,"1005,59762329404 ",.01)
  1. ;;59762329404
  1. ;;9002226.02101,"1005,59762329404 ",.02)
  1. ;;59762329404
  1. ;;9002226.02101,"1005,59762329501 ",.01)
  1. ;;59762329501
  1. ;;9002226.02101,"1005,59762329501 ",.02)
  1. ;;59762329501
  1. ;;9002226.02101,"1005,59762329502 ",.01)
  1. ;;59762329502
  1. ;;9002226.02101,"1005,59762329502 ",.02)
  1. ;;59762329502
  1. ;;9002226.02101,"1005,59762329503 ",.01)
  1. ;;59762329503
  1. ;;9002226.02101,"1005,59762329503 ",.02)
  1. ;;59762329503
  1. ;;9002226.02101,"1005,59762329504 ",.01)
  1. ;;59762329504
  1. ;;9002226.02101,"1005,59762329504 ",.02)
  1. ;;59762329504
  1. ;;9002226.02101,"1005,59762501901 ",.01)
  1. ;;59762501901
  1. ;;9002226.02101,"1005,59762501901 ",.02)
  1. ;;59762501901
  1. ;;9002226.02101,"1005,59762502001 ",.01)
  1. ;;59762502001
  1. ;;9002226.02101,"1005,59762502001 ",.02)
  1. ;;59762502001
  1. ;;9002226.02101,"1005,59762502101 ",.01)
  1. ;;59762502101
  1. ;;9002226.02101,"1005,59762502101 ",.02)
  1. ;;59762502101
  1. ;;9002226.02101,"1005,59762502201 ",.01)
  1. ;;59762502201
  1. ;;9002226.02101,"1005,59762502201 ",.02)
  1. ;;59762502201
  1. ;;9002226.02101,"1005,59762525001 ",.01)
  1. ;;59762525001
  1. ;;9002226.02101,"1005,59762525001 ",.02)
  1. ;;59762525001
  1. ;;9002226.02101,"1005,59762525004 ",.01)
  1. ;;59762525004
  1. ;;9002226.02101,"1005,59762525004 ",.02)
  1. ;;59762525004
  1. ;;9002226.02101,"1005,59762525101 ",.01)
  1. ;;59762525101
  1. ;;9002226.02101,"1005,59762525101 ",.02)
  1. ;;59762525101
  1. ;;9002226.02101,"1005,59762525104 ",.01)
  1. ;;59762525104
  1. ;;9002226.02101,"1005,59762525104 ",.02)
  1. ;;59762525104
  1. ;;9002226.02101,"1005,59772704501 ",.01)
  1. ;;59772704501
  1. ;;9002226.02101,"1005,59772704501 ",.02)
  1. ;;59772704501
  1. ;;9002226.02101,"1005,59772704503 ",.01)
  1. ;;59772704503
  1. ;;9002226.02101,"1005,59772704503 ",.02)
  1. ;;59772704503
  1. ;;9002226.02101,"1005,59772704504 ",.01)
  1. ;;59772704504
  1. ;;9002226.02101,"1005,59772704504 ",.02)
  1. ;;59772704504
  1. ;;9002226.02101,"1005,59772704505 ",.01)
  1. ;;59772704505
  1. ;;9002226.02101,"1005,59772704505 ",.02)
  1. ;;59772704505
  1. ;;9002226.02101,"1005,59772704601 ",.01)
  1. ;;59772704601
  1. ;;9002226.02101,"1005,59772704601 ",.02)
  1. ;;59772704601
  1. ;;9002226.02101,"1005,59772704602 ",.01)
  1. ;;59772704602
  1. ;;9002226.02101,"1005,59772704602 ",.02)
  1. ;;59772704602
  1. ;;9002226.02101,"1005,59772704603 ",.01)
  1. ;;59772704603
  1. ;;9002226.02101,"1005,59772704603 ",.02)
  1. ;;59772704603
  1. ;;9002226.02101,"1005,59772704604 ",.01)
  1. ;;59772704604
  1. ;;9002226.02101,"1005,59772704604 ",.02)
  1. ;;59772704604
  1. ;;9002226.02101,"1005,59772704701 ",.01)
  1. ;;59772704701
  1. ;;9002226.02101,"1005,59772704701 ",.02)
  1. ;;59772704701
  1. ;;9002226.02101,"1005,59772704703 ",.01)
  1. ;;59772704703
  1. ;;9002226.02101,"1005,59772704703 ",.02)
  1. ;;59772704703
  1. ;;9002226.02101,"1005,59772704704 ",.01)
  1. ;;59772704704
  1. ;;9002226.02101,"1005,59772704704 ",.02)
  1. ;;59772704704
  1. ;;9002226.02101,"1005,59772704801 ",.01)
  1. ;;59772704801
  1. ;;9002226.02101,"1005,59772704801 ",.02)
  1. ;;59772704801
  1. ;;9002226.02101,"1005,60312001430 ",.01)
  1. ;;60312001430
  1. ;;9002226.02101,"1005,60312001430 ",.02)
  1. ;;60312001430
  1. ;;9002226.02101,"1005,60312001490 ",.01)
  1. ;;60312001490
  1. ;;9002226.02101,"1005,60312001490 ",.02)
  1. ;;60312001490
  1. ;;9002226.02101,"1005,60312001954 ",.01)
  1. ;;60312001954
  1. ;;9002226.02101,"1005,60312001954 ",.02)
  1. ;;60312001954
  1. ;;9002226.02101,"1005,60312010654 ",.01)
  1. ;;60312010654
  1. ;;9002226.02101,"1005,60312010654 ",.02)
  1. ;;60312010654
  1. ;;9002226.02101,"1005,60312011000 ",.01)
  1. ;;60312011000
  1. ;;9002226.02101,"1005,60312011000 ",.02)
  1. ;;60312011000
  1. ;;9002226.02101,"1005,60312011100 ",.01)
  1. ;;60312011100
  1. ;;9002226.02101,"1005,60312011100 ",.02)
  1. ;;60312011100
  1. ;;9002226.02101,"1005,60312011200 ",.01)
  1. ;;60312011200
  1. ;;9002226.02101,"1005,60312011200 ",.02)
  1. ;;60312011200
  1. ;;9002226.02101,"1005,60312014058 ",.01)
  1. ;;60312014058
  1. ;;9002226.02101,"1005,60312014058 ",.02)
  1. ;;60312014058
  1. ;;9002226.02101,"1005,60312014558 ",.01)
  1. ;;60312014558
  1. ;;9002226.02101,"1005,60312014558 ",.02)
  1. ;;60312014558
  1. ;;9002226.02101,"1005,60312020754 ",.01)
  1. ;;60312020754
  1. ;;9002226.02101,"1005,60312020754 ",.02)
  1. ;;60312020754
  1. ;;9002226.02101,"1005,60312071210 ",.01)
  1. ;;60312071210
  1. ;;9002226.02101,"1005,60312071210 ",.02)
  1. ;;60312071210
  1. ;;9002226.02101,"1005,60312071230 ",.01)
  1. ;;60312071230
  1. ;;9002226.02101,"1005,60312071230 ",.02)
  1. ;;60312071230
  1. ;;9002226.02101,"1005,60312071290 ",.01)
  1. ;;60312071290
  1. ;;9002226.02101,"1005,60312071290 ",.02)
  1. ;;60312071290
  1. ;;9002226.02101,"1005,60312071310 ",.01)
  1. ;;60312071310
  1. ;;9002226.02101,"1005,60312071310 ",.02)
  1. ;;60312071310
  1. ;;9002226.02101,"1005,60312071330 ",.01)
  1. ;;60312071330
  1. ;;9002226.02101,"1005,60312071330 ",.02)
  1. ;;60312071330