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

BGPM5ARX.m

Go to the documentation of this file.
BGPM5ARX ;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,60312071390 ",.01)
 ;;60312071390
 ;;9002226.02101,"1005,60312071390 ",.02)
 ;;60312071390
 ;;9002226.02101,"1005,60312071410 ",.01)
 ;;60312071410
 ;;9002226.02101,"1005,60312071410 ",.02)
 ;;60312071410
 ;;9002226.02101,"1005,60312071430 ",.01)
 ;;60312071430
 ;;9002226.02101,"1005,60312071430 ",.02)
 ;;60312071430
 ;;9002226.02101,"1005,60312071490 ",.01)
 ;;60312071490
 ;;9002226.02101,"1005,60312071490 ",.02)
 ;;60312071490
 ;;9002226.02101,"1005,60312072001 ",.01)
 ;;60312072001
 ;;9002226.02101,"1005,60312072001 ",.02)
 ;;60312072001
 ;;9002226.02101,"1005,60312090700 ",.01)
 ;;60312090700
 ;;9002226.02101,"1005,60312090700 ",.02)
 ;;60312090700
 ;;9002226.02101,"1005,60346059530 ",.01)
 ;;60346059530
 ;;9002226.02101,"1005,60346059530 ",.02)
 ;;60346059530
 ;;9002226.02101,"1005,60346061230 ",.01)
 ;;60346061230
 ;;9002226.02101,"1005,60346061230 ",.02)
 ;;60346061230
 ;;9002226.02101,"1005,60346061290 ",.01)
 ;;60346061290
 ;;9002226.02101,"1005,60346061290 ",.02)
 ;;60346061290
 ;;9002226.02101,"1005,60346087103 ",.01)
 ;;60346087103
 ;;9002226.02101,"1005,60346087103 ",.02)
 ;;60346087103
 ;;9002226.02101,"1005,60346087130 ",.01)
 ;;60346087130
 ;;9002226.02101,"1005,60346087130 ",.02)
 ;;60346087130
 ;;9002226.02101,"1005,60429002901 ",.01)
 ;;60429002901
 ;;9002226.02101,"1005,60429002901 ",.02)
 ;;60429002901
 ;;9002226.02101,"1005,60429002910 ",.01)
 ;;60429002910
 ;;9002226.02101,"1005,60429002910 ",.02)
 ;;60429002910
 ;;9002226.02101,"1005,60429003001 ",.01)
 ;;60429003001
 ;;9002226.02101,"1005,60429003001 ",.02)
 ;;60429003001
 ;;9002226.02101,"1005,60429003010 ",.01)
 ;;60429003010
 ;;9002226.02101,"1005,60429003010 ",.02)
 ;;60429003010
 ;;9002226.02101,"1005,60429003101 ",.01)
 ;;60429003101
 ;;9002226.02101,"1005,60429003101 ",.02)
 ;;60429003101
 ;;9002226.02101,"1005,60429003110 ",.01)
 ;;60429003110
 ;;9002226.02101,"1005,60429003110 ",.02)
 ;;60429003110
 ;;9002226.02101,"1005,60429004401 ",.01)
 ;;60429004401
 ;;9002226.02101,"1005,60429004401 ",.02)
 ;;60429004401
 ;;9002226.02101,"1005,60429004410 ",.01)
 ;;60429004410
 ;;9002226.02101,"1005,60429004410 ",.02)
 ;;60429004410
 ;;9002226.02101,"1005,60429004501 ",.01)
 ;;60429004501
 ;;9002226.02101,"1005,60429004501 ",.02)
 ;;60429004501
 ;;9002226.02101,"1005,60429004510 ",.01)
 ;;60429004510
 ;;9002226.02101,"1005,60429004510 ",.02)
 ;;60429004510
 ;;9002226.02101,"1005,60429004601 ",.01)
 ;;60429004601
 ;;9002226.02101,"1005,60429004601 ",.02)
 ;;60429004601
 ;;9002226.02101,"1005,60429004610 ",.01)
 ;;60429004610
 ;;9002226.02101,"1005,60429004610 ",.02)
 ;;60429004610
 ;;9002226.02101,"1005,60429007101 ",.01)
 ;;60429007101
 ;;9002226.02101,"1005,60429007101 ",.02)
 ;;60429007101
 ;;9002226.02101,"1005,60429007105 ",.01)
 ;;60429007105
 ;;9002226.02101,"1005,60429007105 ",.02)
 ;;60429007105
 ;;9002226.02101,"1005,60429007110 ",.01)
 ;;60429007110
 ;;9002226.02101,"1005,60429007110 ",.02)
 ;;60429007110
 ;;9002226.02101,"1005,60429007127 ",.01)
 ;;60429007127
 ;;9002226.02101,"1005,60429007127 ",.02)
 ;;60429007127
 ;;9002226.02101,"1005,60429007130 ",.01)
 ;;60429007130
 ;;9002226.02101,"1005,60429007130 ",.02)
 ;;60429007130
 ;;9002226.02101,"1005,60429007160 ",.01)
 ;;60429007160
 ;;9002226.02101,"1005,60429007160 ",.02)
 ;;60429007160
 ;;9002226.02101,"1005,60429007190 ",.01)
 ;;60429007190
 ;;9002226.02101,"1005,60429007190 ",.02)
 ;;60429007190
 ;;9002226.02101,"1005,60429007201 ",.01)
 ;;60429007201
 ;;9002226.02101,"1005,60429007201 ",.02)
 ;;60429007201
 ;;9002226.02101,"1005,60429007205 ",.01)
 ;;60429007205
 ;;9002226.02101,"1005,60429007205 ",.02)
 ;;60429007205
 ;;9002226.02101,"1005,60429007210 ",.01)
 ;;60429007210
 ;;9002226.02101,"1005,60429007210 ",.02)
 ;;60429007210
 ;;9002226.02101,"1005,60429007227 ",.01)
 ;;60429007227
 ;;9002226.02101,"1005,60429007227 ",.02)
 ;;60429007227
 ;;9002226.02101,"1005,60429007230 ",.01)
 ;;60429007230
 ;;9002226.02101,"1005,60429007230 ",.02)
 ;;60429007230
 ;;9002226.02101,"1005,60429007260 ",.01)
 ;;60429007260
 ;;9002226.02101,"1005,60429007260 ",.02)
 ;;60429007260
 ;;9002226.02101,"1005,60429007290 ",.01)
 ;;60429007290
 ;;9002226.02101,"1005,60429007290 ",.02)
 ;;60429007290
 ;;9002226.02101,"1005,60429007301 ",.01)
 ;;60429007301
 ;;9002226.02101,"1005,60429007301 ",.02)
 ;;60429007301
 ;;9002226.02101,"1005,60429007305 ",.01)
 ;;60429007305
 ;;9002226.02101,"1005,60429007305 ",.02)
 ;;60429007305
 ;;9002226.02101,"1005,60429007310 ",.01)
 ;;60429007310
 ;;9002226.02101,"1005,60429007310 ",.02)
 ;;60429007310
 ;;9002226.02101,"1005,60429007327 ",.01)
 ;;60429007327
 ;;9002226.02101,"1005,60429007327 ",.02)
 ;;60429007327
 ;;9002226.02101,"1005,60429007330 ",.01)
 ;;60429007330
 ;;9002226.02101,"1005,60429007330 ",.02)
 ;;60429007330
 ;;9002226.02101,"1005,60429007360 ",.01)
 ;;60429007360
 ;;9002226.02101,"1005,60429007360 ",.02)
 ;;60429007360
 ;;9002226.02101,"1005,60429007390 ",.01)
 ;;60429007390
 ;;9002226.02101,"1005,60429007390 ",.02)
 ;;60429007390
 ;;9002226.02101,"1005,60429007401 ",.01)
 ;;60429007401
 ;;9002226.02101,"1005,60429007401 ",.02)
 ;;60429007401
 ;;9002226.02101,"1005,60429007405 ",.01)
 ;;60429007405
 ;;9002226.02101,"1005,60429007405 ",.02)
 ;;60429007405
 ;;9002226.02101,"1005,60429007410 ",.01)
 ;;60429007410
 ;;9002226.02101,"1005,60429007410 ",.02)
 ;;60429007410
 ;;9002226.02101,"1005,60429007427 ",.01)
 ;;60429007427
 ;;9002226.02101,"1005,60429007427 ",.02)
 ;;60429007427
 ;;9002226.02101,"1005,60429007430 ",.01)
 ;;60429007430
 ;;9002226.02101,"1005,60429007430 ",.02)
 ;;60429007430
 ;;9002226.02101,"1005,60429007460 ",.01)
 ;;60429007460
 ;;9002226.02101,"1005,60429007460 ",.02)
 ;;60429007460
 ;;9002226.02101,"1005,60429007490 ",.01)
 ;;60429007490
 ;;9002226.02101,"1005,60429007490 ",.02)
 ;;60429007490
 ;;9002226.02101,"1005,60429025701 ",.01)
 ;;60429025701
 ;;9002226.02101,"1005,60429025701 ",.02)
 ;;60429025701
 ;;9002226.02101,"1005,60429072801 ",.01)
 ;;60429072801
 ;;9002226.02101,"1005,60429072801 ",.02)
 ;;60429072801
 ;;9002226.02101,"1005,60429072810 ",.01)
 ;;60429072810
 ;;9002226.02101,"1005,60429072810 ",.02)
 ;;60429072810
 ;;9002226.02101,"1005,60429072830 ",.01)
 ;;60429072830
 ;;9002226.02101,"1005,60429072830 ",.02)
 ;;60429072830
 ;;9002226.02101,"1005,60429072890 ",.01)
 ;;60429072890
 ;;9002226.02101,"1005,60429072890 ",.02)
 ;;60429072890
 ;;9002226.02101,"1005,60429072901 ",.01)
 ;;60429072901
 ;;9002226.02101,"1005,60429072901 ",.02)
 ;;60429072901
 ;;9002226.02101,"1005,60429072910 ",.01)
 ;;60429072910
 ;;9002226.02101,"1005,60429072910 ",.02)
 ;;60429072910
 ;;9002226.02101,"1005,60429072930 ",.01)
 ;;60429072930
 ;;9002226.02101,"1005,60429072930 ",.02)
 ;;60429072930
 ;;9002226.02101,"1005,60429072945 ",.01)
 ;;60429072945
 ;;9002226.02101,"1005,60429072945 ",.02)
 ;;60429072945
 ;;9002226.02101,"1005,60429072990 ",.01)
 ;;60429072990
 ;;9002226.02101,"1005,60429072990 ",.02)
 ;;60429072990
 ;;9002226.02101,"1005,60429073001 ",.01)
 ;;60429073001
 ;;9002226.02101,"1005,60429073001 ",.02)
 ;;60429073001
 ;;9002226.02101,"1005,60429073010 ",.01)
 ;;60429073010
 ;;9002226.02101,"1005,60429073010 ",.02)
 ;;60429073010
 ;;9002226.02101,"1005,60429073030 ",.01)
 ;;60429073030
 ;;9002226.02101,"1005,60429073030 ",.02)
 ;;60429073030
 ;;9002226.02101,"1005,60429073045 ",.01)
 ;;60429073045
 ;;9002226.02101,"1005,60429073045 ",.02)
 ;;60429073045
 ;;9002226.02101,"1005,60429073090 ",.01)
 ;;60429073090
 ;;9002226.02101,"1005,60429073090 ",.02)
 ;;60429073090
 ;;9002226.02101,"1005,60429073101 ",.01)
 ;;60429073101
 ;;9002226.02101,"1005,60429073101 ",.02)
 ;;60429073101
 ;;9002226.02101,"1005,60429073110 ",.01)
 ;;60429073110
 ;;9002226.02101,"1005,60429073110 ",.02)
 ;;60429073110
 ;;9002226.02101,"1005,60429073130 ",.01)
 ;;60429073130
 ;;9002226.02101,"1005,60429073130 ",.02)
 ;;60429073130
 ;;9002226.02101,"1005,60429073145 ",.01)
 ;;60429073145
 ;;9002226.02101,"1005,60429073145 ",.02)
 ;;60429073145
 ;;9002226.02101,"1005,60429073190 ",.01)
 ;;60429073190
 ;;9002226.02101,"1005,60429073190 ",.02)
 ;;60429073190
 ;;9002226.02101,"1005,60429073210 ",.01)
 ;;60429073210
 ;;9002226.02101,"1005,60429073210 ",.02)
 ;;60429073210
 ;;9002226.02101,"1005,60429073230 ",.01)
 ;;60429073230
 ;;9002226.02101,"1005,60429073230 ",.02)
 ;;60429073230
 ;;9002226.02101,"1005,60429073290 ",.01)
 ;;60429073290
 ;;9002226.02101,"1005,60429073290 ",.02)
 ;;60429073290
 ;;9002226.02101,"1005,60429073301 ",.01)
 ;;60429073301
 ;;9002226.02101,"1005,60429073301 ",.02)
 ;;60429073301
 ;;9002226.02101,"1005,60429073310 ",.01)
 ;;60429073310
 ;;9002226.02101,"1005,60429073310 ",.02)
 ;;60429073310
 ;;9002226.02101,"1005,60429073330 ",.01)
 ;;60429073330
 ;;9002226.02101,"1005,60429073330 ",.02)
 ;;60429073330
 ;;9002226.02101,"1005,60429073345 ",.01)
 ;;60429073345
 ;;9002226.02101,"1005,60429073345 ",.02)
 ;;60429073345
 ;;9002226.02101,"1005,60429073390 ",.01)
 ;;60429073390
 ;;9002226.02101,"1005,60429073390 ",.02)
 ;;60429073390
 ;;9002226.02101,"1005,60429075510 ",.01)
 ;;60429075510
 ;;9002226.02101,"1005,60429075510 ",.02)
 ;;60429075510
 ;;9002226.02101,"1005,60429075545 ",.01)
 ;;60429075545
 ;;9002226.02101,"1005,60429075545 ",.02)
 ;;60429075545
 ;;9002226.02101,"1005,60429075590 ",.01)
 ;;60429075590
 ;;9002226.02101,"1005,60429075590 ",.02)
 ;;60429075590
 ;;9002226.02101,"1005,60429075610 ",.01)
 ;;60429075610
 ;;9002226.02101,"1005,60429075610 ",.02)
 ;;60429075610
 ;;9002226.02101,"1005,60429075618 ",.01)
 ;;60429075618
 ;;9002226.02101,"1005,60429075618 ",.02)
 ;;60429075618
 ;;9002226.02101,"1005,60429075645 ",.01)
 ;;60429075645
 ;;9002226.02101,"1005,60429075645 ",.02)
 ;;60429075645
 ;;9002226.02101,"1005,60429075690 ",.01)
 ;;60429075690
 ;;9002226.02101,"1005,60429075690 ",.02)
 ;;60429075690
 ;;9002226.02101,"1005,60429075710 ",.01)
 ;;60429075710
 ;;9002226.02101,"1005,60429075710 ",.02)
 ;;60429075710
 ;;9002226.02101,"1005,60429075718 ",.01)
 ;;60429075718
 ;;9002226.02101,"1005,60429075718 ",.02)
 ;;60429075718
 ;;9002226.02101,"1005,60429075745 ",.01)
 ;;60429075745
 ;;9002226.02101,"1005,60429075745 ",.02)
 ;;60429075745
 ;;9002226.02101,"1005,60429075790 ",.01)
 ;;60429075790
 ;;9002226.02101,"1005,60429075790 ",.02)
 ;;60429075790
 ;;9002226.02101,"1005,60440013000 ",.01)
 ;;60440013000
 ;;9002226.02101,"1005,60440013000 ",.02)
 ;;60440013000
 ;;9002226.02101,"1005,60440013001 ",.01)
 ;;60440013001
 ;;9002226.02101,"1005,60440013001 ",.02)
 ;;60440013001
 ;;9002226.02101,"1005,60440013002 ",.01)
 ;;60440013002
 ;;9002226.02101,"1005,60440013002 ",.02)
 ;;60440013002
 ;;9002226.02101,"1005,60440013100 ",.01)
 ;;60440013100
 ;;9002226.02101,"1005,60440013100 ",.02)
 ;;60440013100
 ;;9002226.02101,"1005,60440013101 ",.01)
 ;;60440013101
 ;;9002226.02101,"1005,60440013101 ",.02)
 ;;60440013101
 ;;9002226.02101,"1005,60440013102 ",.01)
 ;;60440013102
 ;;9002226.02101,"1005,60440013102 ",.02)
 ;;60440013102
 ;;9002226.02101,"1005,60440013200 ",.01)
 ;;60440013200
 ;;9002226.02101,"1005,60440013200 ",.02)
 ;;60440013200
 ;;9002226.02101,"1005,60440013201 ",.01)
 ;;60440013201
 ;;9002226.02101,"1005,60440013201 ",.02)
 ;;60440013201
 ;;9002226.02101,"1005,60440013202 ",.01)
 ;;60440013202
 ;;9002226.02101,"1005,60440013202 ",.02)
 ;;60440013202
 ;;9002226.02101,"1005,60440013301 ",.01)
 ;;60440013301
 ;;9002226.02101,"1005,60440013301 ",.02)
 ;;60440013301
 ;;9002226.02101,"1005,60440013501 ",.01)
 ;;60440013501