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

BGPM5AQM.m

Go to the documentation of this file.
  1. BGPM5AQM ;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,00179198372 ",.01)
  1. ;;00179198372
  1. ;;9002226.02101,"1005,00179198372 ",.02)
  1. ;;00179198372
  1. ;;9002226.02101,"1005,00179198401 ",.01)
  1. ;;00179198401
  1. ;;9002226.02101,"1005,00179198401 ",.02)
  1. ;;00179198401
  1. ;;9002226.02101,"1005,00179198430 ",.01)
  1. ;;00179198430
  1. ;;9002226.02101,"1005,00179198430 ",.02)
  1. ;;00179198430
  1. ;;9002226.02101,"1005,00179198450 ",.01)
  1. ;;00179198450
  1. ;;9002226.02101,"1005,00179198450 ",.02)
  1. ;;00179198450
  1. ;;9002226.02101,"1005,00179198460 ",.01)
  1. ;;00179198460
  1. ;;9002226.02101,"1005,00179198460 ",.02)
  1. ;;00179198460
  1. ;;9002226.02101,"1005,00179198490 ",.01)
  1. ;;00179198490
  1. ;;9002226.02101,"1005,00179198490 ",.02)
  1. ;;00179198490
  1. ;;9002226.02101,"1005,00179198501 ",.01)
  1. ;;00179198501
  1. ;;9002226.02101,"1005,00179198501 ",.02)
  1. ;;00179198501
  1. ;;9002226.02101,"1005,00179198530 ",.01)
  1. ;;00179198530
  1. ;;9002226.02101,"1005,00179198530 ",.02)
  1. ;;00179198530
  1. ;;9002226.02101,"1005,00179198550 ",.01)
  1. ;;00179198550
  1. ;;9002226.02101,"1005,00179198550 ",.02)
  1. ;;00179198550
  1. ;;9002226.02101,"1005,00179198560 ",.01)
  1. ;;00179198560
  1. ;;9002226.02101,"1005,00179198560 ",.02)
  1. ;;00179198560
  1. ;;9002226.02101,"1005,00179198590 ",.01)
  1. ;;00179198590
  1. ;;9002226.02101,"1005,00179198590 ",.02)
  1. ;;00179198590
  1. ;;9002226.02101,"1005,00179198770 ",.01)
  1. ;;00179198770
  1. ;;9002226.02101,"1005,00179198770 ",.02)
  1. ;;00179198770
  1. ;;9002226.02101,"1005,00179198771 ",.01)
  1. ;;00179198771
  1. ;;9002226.02101,"1005,00179198771 ",.02)
  1. ;;00179198771
  1. ;;9002226.02101,"1005,00179198772 ",.01)
  1. ;;00179198772
  1. ;;9002226.02101,"1005,00179198772 ",.02)
  1. ;;00179198772
  1. ;;9002226.02101,"1005,00179198801 ",.01)
  1. ;;00179198801
  1. ;;9002226.02101,"1005,00179198801 ",.02)
  1. ;;00179198801
  1. ;;9002226.02101,"1005,00179198830 ",.01)
  1. ;;00179198830
  1. ;;9002226.02101,"1005,00179198830 ",.02)
  1. ;;00179198830
  1. ;;9002226.02101,"1005,00179198850 ",.01)
  1. ;;00179198850
  1. ;;9002226.02101,"1005,00179198850 ",.02)
  1. ;;00179198850
  1. ;;9002226.02101,"1005,00179198860 ",.01)
  1. ;;00179198860
  1. ;;9002226.02101,"1005,00179198860 ",.02)
  1. ;;00179198860
  1. ;;9002226.02101,"1005,00179198890 ",.01)
  1. ;;00179198890
  1. ;;9002226.02101,"1005,00179198890 ",.02)
  1. ;;00179198890
  1. ;;9002226.02101,"1005,00179199270 ",.01)
  1. ;;00179199270
  1. ;;9002226.02101,"1005,00179199270 ",.02)
  1. ;;00179199270
  1. ;;9002226.02101,"1005,00179199271 ",.01)
  1. ;;00179199271
  1. ;;9002226.02101,"1005,00179199271 ",.02)
  1. ;;00179199271
  1. ;;9002226.02101,"1005,00179199272 ",.01)
  1. ;;00179199272
  1. ;;9002226.02101,"1005,00179199272 ",.02)
  1. ;;00179199272
  1. ;;9002226.02101,"1005,00185002301 ",.01)
  1. ;;00185002301
  1. ;;9002226.02101,"1005,00185002301 ",.02)
  1. ;;00185002301
  1. ;;9002226.02101,"1005,00185002305 ",.01)
  1. ;;00185002305
  1. ;;9002226.02101,"1005,00185002305 ",.02)
  1. ;;00185002305
  1. ;;9002226.02101,"1005,00185002309 ",.01)
  1. ;;00185002309
  1. ;;9002226.02101,"1005,00185002309 ",.02)
  1. ;;00185002309
  1. ;;9002226.02101,"1005,00185002501 ",.01)
  1. ;;00185002501
  1. ;;9002226.02101,"1005,00185002501 ",.02)
  1. ;;00185002501
  1. ;;9002226.02101,"1005,00185002510 ",.01)
  1. ;;00185002510
  1. ;;9002226.02101,"1005,00185002510 ",.02)
  1. ;;00185002510
  1. ;;9002226.02101,"1005,00185003301 ",.01)
  1. ;;00185003301
  1. ;;9002226.02101,"1005,00185003301 ",.02)
  1. ;;00185003301
  1. ;;9002226.02101,"1005,00185003305 ",.01)
  1. ;;00185003305
  1. ;;9002226.02101,"1005,00185003305 ",.02)
  1. ;;00185003305
  1. ;;9002226.02101,"1005,00185003309 ",.01)
  1. ;;00185003309
  1. ;;9002226.02101,"1005,00185003309 ",.02)
  1. ;;00185003309
  1. ;;9002226.02101,"1005,00185003310 ",.01)
  1. ;;00185003310
  1. ;;9002226.02101,"1005,00185003310 ",.02)
  1. ;;00185003310
  1. ;;9002226.02101,"1005,00185004101 ",.01)
  1. ;;00185004101
  1. ;;9002226.02101,"1005,00185004101 ",.02)
  1. ;;00185004101
  1. ;;9002226.02101,"1005,00185004109 ",.01)
  1. ;;00185004109
  1. ;;9002226.02101,"1005,00185004109 ",.02)
  1. ;;00185004109
  1. ;;9002226.02101,"1005,00185004110 ",.01)
  1. ;;00185004110
  1. ;;9002226.02101,"1005,00185004110 ",.02)
  1. ;;00185004110
  1. ;;9002226.02101,"1005,00185004190 ",.01)
  1. ;;00185004190
  1. ;;9002226.02101,"1005,00185004190 ",.02)
  1. ;;00185004190
  1. ;;9002226.02101,"1005,00185004201 ",.01)
  1. ;;00185004201
  1. ;;9002226.02101,"1005,00185004201 ",.02)
  1. ;;00185004201
  1. ;;9002226.02101,"1005,00185004209 ",.01)
  1. ;;00185004209
  1. ;;9002226.02101,"1005,00185004209 ",.02)
  1. ;;00185004209
  1. ;;9002226.02101,"1005,00185004210 ",.01)
  1. ;;00185004210
  1. ;;9002226.02101,"1005,00185004210 ",.02)
  1. ;;00185004210
  1. ;;9002226.02101,"1005,00185004290 ",.01)
  1. ;;00185004290
  1. ;;9002226.02101,"1005,00185004290 ",.02)
  1. ;;00185004290
  1. ;;9002226.02101,"1005,00185004701 ",.01)
  1. ;;00185004701
  1. ;;9002226.02101,"1005,00185004701 ",.02)
  1. ;;00185004701
  1. ;;9002226.02101,"1005,00185004709 ",.01)
  1. ;;00185004709
  1. ;;9002226.02101,"1005,00185004709 ",.02)
  1. ;;00185004709
  1. ;;9002226.02101,"1005,00185004710 ",.01)
  1. ;;00185004710
  1. ;;9002226.02101,"1005,00185004710 ",.02)
  1. ;;00185004710
  1. ;;9002226.02101,"1005,00185004790 ",.01)
  1. ;;00185004790
  1. ;;9002226.02101,"1005,00185004790 ",.02)
  1. ;;00185004790
  1. ;;9002226.02101,"1005,00185004901 ",.01)
  1. ;;00185004901
  1. ;;9002226.02101,"1005,00185004901 ",.02)
  1. ;;00185004901
  1. ;;9002226.02101,"1005,00185004905 ",.01)
  1. ;;00185004905
  1. ;;9002226.02101,"1005,00185004905 ",.02)
  1. ;;00185004905
  1. ;;9002226.02101,"1005,00185004909 ",.01)
  1. ;;00185004909
  1. ;;9002226.02101,"1005,00185004909 ",.02)
  1. ;;00185004909
  1. ;;9002226.02101,"1005,00185004910 ",.01)
  1. ;;00185004910
  1. ;;9002226.02101,"1005,00185004910 ",.02)
  1. ;;00185004910
  1. ;;9002226.02101,"1005,00185006701 ",.01)
  1. ;;00185006701
  1. ;;9002226.02101,"1005,00185006701 ",.02)
  1. ;;00185006701
  1. ;;9002226.02101,"1005,00185006705 ",.01)
  1. ;;00185006705
  1. ;;9002226.02101,"1005,00185006705 ",.02)
  1. ;;00185006705
  1. ;;9002226.02101,"1005,00185006709 ",.01)
  1. ;;00185006709
  1. ;;9002226.02101,"1005,00185006709 ",.02)
  1. ;;00185006709
  1. ;;9002226.02101,"1005,00185006710 ",.01)
  1. ;;00185006710
  1. ;;9002226.02101,"1005,00185006710 ",.02)
  1. ;;00185006710
  1. ;;9002226.02101,"1005,00185010101 ",.01)
  1. ;;00185010101
  1. ;;9002226.02101,"1005,00185010101 ",.02)
  1. ;;00185010101
  1. ;;9002226.02101,"1005,00185010110 ",.01)
  1. ;;00185010110
  1. ;;9002226.02101,"1005,00185010110 ",.02)
  1. ;;00185010110
  1. ;;9002226.02101,"1005,00185010133 ",.01)
  1. ;;00185010133
  1. ;;9002226.02101,"1005,00185010133 ",.02)
  1. ;;00185010133
  1. ;;9002226.02101,"1005,00185010201 ",.01)
  1. ;;00185010201
  1. ;;9002226.02101,"1005,00185010201 ",.02)
  1. ;;00185010201
  1. ;;9002226.02101,"1005,00185010210 ",.01)
  1. ;;00185010210
  1. ;;9002226.02101,"1005,00185010210 ",.02)
  1. ;;00185010210
  1. ;;9002226.02101,"1005,00185010233 ",.01)
  1. ;;00185010233
  1. ;;9002226.02101,"1005,00185010233 ",.02)
  1. ;;00185010233
  1. ;;9002226.02101,"1005,00185010301 ",.01)
  1. ;;00185010301
  1. ;;9002226.02101,"1005,00185010301 ",.02)
  1. ;;00185010301
  1. ;;9002226.02101,"1005,00185010310 ",.01)
  1. ;;00185010310
  1. ;;9002226.02101,"1005,00185010310 ",.02)
  1. ;;00185010310
  1. ;;9002226.02101,"1005,00185010333 ",.01)
  1. ;;00185010333
  1. ;;9002226.02101,"1005,00185010333 ",.02)
  1. ;;00185010333
  1. ;;9002226.02101,"1005,00185010401 ",.01)
  1. ;;00185010401
  1. ;;9002226.02101,"1005,00185010401 ",.02)
  1. ;;00185010401
  1. ;;9002226.02101,"1005,00185010410 ",.01)
  1. ;;00185010410
  1. ;;9002226.02101,"1005,00185010410 ",.02)
  1. ;;00185010410
  1. ;;9002226.02101,"1005,00185011401 ",.01)
  1. ;;00185011401
  1. ;;9002226.02101,"1005,00185011401 ",.02)
  1. ;;00185011401
  1. ;;9002226.02101,"1005,00185011410 ",.01)
  1. ;;00185011410
  1. ;;9002226.02101,"1005,00185011410 ",.02)
  1. ;;00185011410
  1. ;;9002226.02101,"1005,00185011450 ",.01)
  1. ;;00185011450
  1. ;;9002226.02101,"1005,00185011450 ",.02)
  1. ;;00185011450
  1. ;;9002226.02101,"1005,00185012701 ",.01)
  1. ;;00185012701
  1. ;;9002226.02101,"1005,00185012701 ",.02)
  1. ;;00185012701
  1. ;;9002226.02101,"1005,00185012710 ",.01)
  1. ;;00185012710
  1. ;;9002226.02101,"1005,00185012710 ",.02)
  1. ;;00185012710
  1. ;;9002226.02101,"1005,00185012750 ",.01)
  1. ;;00185012750
  1. ;;9002226.02101,"1005,00185012750 ",.02)
  1. ;;00185012750
  1. ;;9002226.02101,"1005,00185014701 ",.01)
  1. ;;00185014701
  1. ;;9002226.02101,"1005,00185014701 ",.02)
  1. ;;00185014701
  1. ;;9002226.02101,"1005,00185014710 ",.01)
  1. ;;00185014710
  1. ;;9002226.02101,"1005,00185014710 ",.02)
  1. ;;00185014710
  1. ;;9002226.02101,"1005,00185014750 ",.01)
  1. ;;00185014750
  1. ;;9002226.02101,"1005,00185014750 ",.02)
  1. ;;00185014750
  1. ;;9002226.02101,"1005,00185015101 ",.01)
  1. ;;00185015101
  1. ;;9002226.02101,"1005,00185015101 ",.02)
  1. ;;00185015101
  1. ;;9002226.02101,"1005,00185015110 ",.01)
  1. ;;00185015110
  1. ;;9002226.02101,"1005,00185015110 ",.02)
  1. ;;00185015110
  1. ;;9002226.02101,"1005,00185015201 ",.01)
  1. ;;00185015201
  1. ;;9002226.02101,"1005,00185015201 ",.02)
  1. ;;00185015201
  1. ;;9002226.02101,"1005,00185015210 ",.01)
  1. ;;00185015210
  1. ;;9002226.02101,"1005,00185015210 ",.02)
  1. ;;00185015210
  1. ;;9002226.02101,"1005,00185017201 ",.01)
  1. ;;00185017201
  1. ;;9002226.02101,"1005,00185017201 ",.02)
  1. ;;00185017201
  1. ;;9002226.02101,"1005,00185017210 ",.01)
  1. ;;00185017210
  1. ;;9002226.02101,"1005,00185017210 ",.02)
  1. ;;00185017210
  1. ;;9002226.02101,"1005,00185017301 ",.01)
  1. ;;00185017301
  1. ;;9002226.02101,"1005,00185017301 ",.02)
  1. ;;00185017301
  1. ;;9002226.02101,"1005,00185021401 ",.01)
  1. ;;00185021401
  1. ;;9002226.02101,"1005,00185021401 ",.02)
  1. ;;00185021401
  1. ;;9002226.02101,"1005,00185021410 ",.01)
  1. ;;00185021410
  1. ;;9002226.02101,"1005,00185021410 ",.02)
  1. ;;00185021410
  1. ;;9002226.02101,"1005,00185021450 ",.01)
  1. ;;00185021450
  1. ;;9002226.02101,"1005,00185021450 ",.02)
  1. ;;00185021450
  1. ;;9002226.02101,"1005,00185034101 ",.01)
  1. ;;00185034101
  1. ;;9002226.02101,"1005,00185034101 ",.02)
  1. ;;00185034101
  1. ;;9002226.02101,"1005,00185034110 ",.01)
  1. ;;00185034110
  1. ;;9002226.02101,"1005,00185034110 ",.02)
  1. ;;00185034110
  1. ;;9002226.02101,"1005,00185034201 ",.01)
  1. ;;00185034201
  1. ;;9002226.02101,"1005,00185034201 ",.02)
  1. ;;00185034201
  1. ;;9002226.02101,"1005,00185034210 ",.01)
  1. ;;00185034210
  1. ;;9002226.02101,"1005,00185034210 ",.02)
  1. ;;00185034210
  1. ;;9002226.02101,"1005,00185047101 ",.01)
  1. ;;00185047101
  1. ;;9002226.02101,"1005,00185047101 ",.02)
  1. ;;00185047101
  1. ;;9002226.02101,"1005,00185047110 ",.01)
  1. ;;00185047110
  1. ;;9002226.02101,"1005,00185047110 ",.02)
  1. ;;00185047110
  1. ;;9002226.02101,"1005,00185540001 ",.01)
  1. ;;00185540001
  1. ;;9002226.02101,"1005,00185540001 ",.02)
  1. ;;00185540001
  1. ;;9002226.02101,"1005,00185540010 ",.01)
  1. ;;00185540010
  1. ;;9002226.02101,"1005,00185540010 ",.02)
  1. ;;00185540010
  1. ;;9002226.02101,"1005,00185540033 ",.01)
  1. ;;00185540033
  1. ;;9002226.02101,"1005,00185540033 ",.02)
  1. ;;00185540033
  1. ;;9002226.02101,"1005,00185710001 ",.01)
  1. ;;00185710001
  1. ;;9002226.02101,"1005,00185710001 ",.02)
  1. ;;00185710001
  1. ;;9002226.02101,"1005,00185710010 ",.01)
  1. ;;00185710010
  1. ;;9002226.02101,"1005,00185710010 ",.02)
  1. ;;00185710010
  1. ;;9002226.02101,"1005,00186000107 ",.01)
  1. ;;00186000107
  1. ;;9002226.02101,"1005,00186000107 ",.02)
  1. ;;00186000107
  1. ;;9002226.02101,"1005,00186000131 ",.01)
  1. ;;00186000131
  1. ;;9002226.02101,"1005,00186000131 ",.02)
  1. ;;00186000131
  1. ;;9002226.02101,"1005,00186000168 ",.01)
  1. ;;00186000168
  1. ;;9002226.02101,"1005,00186000168 ",.02)
  1. ;;00186000168
  1. ;;9002226.02101,"1005,00186000431 ",.01)
  1. ;;00186000431
  1. ;;9002226.02101,"1005,00186000431 ",.02)
  1. ;;00186000431
  1. ;;9002226.02101,"1005,00186000831 ",.01)
  1. ;;00186000831
  1. ;;9002226.02101,"1005,00186000831 ",.02)
  1. ;;00186000831
  1. ;;9002226.02101,"1005,00186001628 ",.01)
  1. ;;00186001628
  1. ;;9002226.02101,"1005,00186001628 ",.02)
  1. ;;00186001628
  1. ;;9002226.02101,"1005,00186001631 ",.01)
  1. ;;00186001631
  1. ;;9002226.02101,"1005,00186001631 ",.02)
  1. ;;00186001631
  1. ;;9002226.02101,"1005,00186001654 ",.01)
  1. ;;00186001654
  1. ;;9002226.02101,"1005,00186001654 ",.02)
  1. ;;00186001654
  1. ;;9002226.02101,"1005,00186003228 ",.01)
  1. ;;00186003228