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