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

BGPM5AVI.m

Go to the documentation of this file.
BGPM5AVI ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,55045330608 ",.02)
 ;;55045330608
 ;;9002226.02101,"1033,55045335500 ",.01)
 ;;55045335500
 ;;9002226.02101,"1033,55045335500 ",.02)
 ;;55045335500
 ;;9002226.02101,"1033,55045338505 ",.01)
 ;;55045338505
 ;;9002226.02101,"1033,55045338505 ",.02)
 ;;55045338505
 ;;9002226.02101,"1033,55045341405 ",.01)
 ;;55045341405
 ;;9002226.02101,"1033,55045341405 ",.02)
 ;;55045341405
 ;;9002226.02101,"1033,55045344206 ",.01)
 ;;55045344206
 ;;9002226.02101,"1033,55045344206 ",.02)
 ;;55045344206
 ;;9002226.02101,"1033,55045346701 ",.01)
 ;;55045346701
 ;;9002226.02101,"1033,55045346701 ",.02)
 ;;55045346701
 ;;9002226.02101,"1033,55045347906 ",.01)
 ;;55045347906
 ;;9002226.02101,"1033,55045347906 ",.02)
 ;;55045347906
 ;;9002226.02101,"1033,55045348302 ",.01)
 ;;55045348302
 ;;9002226.02101,"1033,55045348302 ",.02)
 ;;55045348302
 ;;9002226.02101,"1033,55045349001 ",.01)
 ;;55045349001
 ;;9002226.02101,"1033,55045349001 ",.02)
 ;;55045349001
 ;;9002226.02101,"1033,55045350301 ",.01)
 ;;55045350301
 ;;9002226.02101,"1033,55045350301 ",.02)
 ;;55045350301
 ;;9002226.02101,"1033,55045350302 ",.01)
 ;;55045350302
 ;;9002226.02101,"1033,55045350302 ",.02)
 ;;55045350302
 ;;9002226.02101,"1033,55045351101 ",.01)
 ;;55045351101
 ;;9002226.02101,"1033,55045351101 ",.02)
 ;;55045351101
 ;;9002226.02101,"1033,55045351102 ",.01)
 ;;55045351102
 ;;9002226.02101,"1033,55045351102 ",.02)
 ;;55045351102
 ;;9002226.02101,"1033,55045351901 ",.01)
 ;;55045351901
 ;;9002226.02101,"1033,55045351901 ",.02)
 ;;55045351901
 ;;9002226.02101,"1033,55045357001 ",.01)
 ;;55045357001
 ;;9002226.02101,"1033,55045357001 ",.02)
 ;;55045357001
 ;;9002226.02101,"1033,55045369803 ",.01)
 ;;55045369803
 ;;9002226.02101,"1033,55045369803 ",.02)
 ;;55045369803
 ;;9002226.02101,"1033,55045372501 ",.01)
 ;;55045372501
 ;;9002226.02101,"1033,55045372501 ",.02)
 ;;55045372501
 ;;9002226.02101,"1033,55045372602 ",.01)
 ;;55045372602
 ;;9002226.02101,"1033,55045372602 ",.02)
 ;;55045372602
 ;;9002226.02101,"1033,55045372701 ",.01)
 ;;55045372701
 ;;9002226.02101,"1033,55045372701 ",.02)
 ;;55045372701
 ;;9002226.02101,"1033,55065012310 ",.01)
 ;;55065012310
 ;;9002226.02101,"1033,55065012310 ",.02)
 ;;55065012310
 ;;9002226.02101,"1033,55065012342 ",.01)
 ;;55065012342
 ;;9002226.02101,"1033,55065012342 ",.02)
 ;;55065012342
 ;;9002226.02101,"1033,55065012350 ",.01)
 ;;55065012350
 ;;9002226.02101,"1033,55065012350 ",.02)
 ;;55065012350
 ;;9002226.02101,"1033,55065012410 ",.01)
 ;;55065012410
 ;;9002226.02101,"1033,55065012410 ",.02)
 ;;55065012410
 ;;9002226.02101,"1033,55065012450 ",.01)
 ;;55065012450
 ;;9002226.02101,"1033,55065012450 ",.02)
 ;;55065012450
 ;;9002226.02101,"1033,55065012510 ",.01)
 ;;55065012510
 ;;9002226.02101,"1033,55065012510 ",.02)
 ;;55065012510
 ;;9002226.02101,"1033,55065012550 ",.01)
 ;;55065012550
 ;;9002226.02101,"1033,55065012550 ",.02)
 ;;55065012550
 ;;9002226.02101,"1033,55111012506 ",.01)
 ;;55111012506
 ;;9002226.02101,"1033,55111012506 ",.02)
 ;;55111012506
 ;;9002226.02101,"1033,55111012601 ",.01)
 ;;55111012601
 ;;9002226.02101,"1033,55111012601 ",.02)
 ;;55111012601
 ;;9002226.02101,"1033,55111012605 ",.01)
 ;;55111012605
 ;;9002226.02101,"1033,55111012605 ",.02)
 ;;55111012605
 ;;9002226.02101,"1033,55111012650 ",.01)
 ;;55111012650
 ;;9002226.02101,"1033,55111012650 ",.02)
 ;;55111012650
 ;;9002226.02101,"1033,55111012678 ",.01)
 ;;55111012678
 ;;9002226.02101,"1033,55111012678 ",.02)
 ;;55111012678
 ;;9002226.02101,"1033,55111012701 ",.01)
 ;;55111012701
 ;;9002226.02101,"1033,55111012701 ",.02)
 ;;55111012701
 ;;9002226.02101,"1033,55111012705 ",.01)
 ;;55111012705
 ;;9002226.02101,"1033,55111012705 ",.02)
 ;;55111012705
 ;;9002226.02101,"1033,55111012750 ",.01)
 ;;55111012750
 ;;9002226.02101,"1033,55111012750 ",.02)
 ;;55111012750
 ;;9002226.02101,"1033,55111012778 ",.01)
 ;;55111012778
 ;;9002226.02101,"1033,55111012778 ",.02)
 ;;55111012778
 ;;9002226.02101,"1033,55111012801 ",.01)
 ;;55111012801
 ;;9002226.02101,"1033,55111012801 ",.02)
 ;;55111012801
 ;;9002226.02101,"1033,55111012805 ",.01)
 ;;55111012805
 ;;9002226.02101,"1033,55111012805 ",.02)
 ;;55111012805
 ;;9002226.02101,"1033,55111012850 ",.01)
 ;;55111012850
 ;;9002226.02101,"1033,55111012850 ",.02)
 ;;55111012850
 ;;9002226.02101,"1033,55111012878 ",.01)
 ;;55111012878
 ;;9002226.02101,"1033,55111012878 ",.02)
 ;;55111012878
 ;;9002226.02101,"1033,55111016001 ",.01)
 ;;55111016001
 ;;9002226.02101,"1033,55111016001 ",.02)
 ;;55111016001
 ;;9002226.02101,"1033,55111016005 ",.01)
 ;;55111016005
 ;;9002226.02101,"1033,55111016005 ",.02)
 ;;55111016005
 ;;9002226.02101,"1033,55111016030 ",.01)
 ;;55111016030
 ;;9002226.02101,"1033,55111016030 ",.02)
 ;;55111016030
 ;;9002226.02101,"1033,55111016050 ",.01)
 ;;55111016050
 ;;9002226.02101,"1033,55111016050 ",.02)
 ;;55111016050
 ;;9002226.02101,"1033,55111016078 ",.01)
 ;;55111016078
 ;;9002226.02101,"1033,55111016078 ",.02)
 ;;55111016078
 ;;9002226.02101,"1033,55111016101 ",.01)
 ;;55111016101
 ;;9002226.02101,"1033,55111016101 ",.02)
 ;;55111016101
 ;;9002226.02101,"1033,55111016105 ",.01)
 ;;55111016105
 ;;9002226.02101,"1033,55111016105 ",.02)
 ;;55111016105
 ;;9002226.02101,"1033,55111016130 ",.01)
 ;;55111016130
 ;;9002226.02101,"1033,55111016130 ",.02)
 ;;55111016130
 ;;9002226.02101,"1033,55111016150 ",.01)
 ;;55111016150
 ;;9002226.02101,"1033,55111016150 ",.02)
 ;;55111016150
 ;;9002226.02101,"1033,55111016178 ",.01)
 ;;55111016178
 ;;9002226.02101,"1033,55111016178 ",.02)
 ;;55111016178
 ;;9002226.02101,"1033,55111016201 ",.01)
 ;;55111016201
 ;;9002226.02101,"1033,55111016201 ",.02)
 ;;55111016201
 ;;9002226.02101,"1033,55111016205 ",.01)
 ;;55111016205
 ;;9002226.02101,"1033,55111016205 ",.02)
 ;;55111016205
 ;;9002226.02101,"1033,55111016230 ",.01)
 ;;55111016230
 ;;9002226.02101,"1033,55111016230 ",.02)
 ;;55111016230
 ;;9002226.02101,"1033,55111016250 ",.01)
 ;;55111016250
 ;;9002226.02101,"1033,55111016250 ",.02)
 ;;55111016250
 ;;9002226.02101,"1033,55111016278 ",.01)
 ;;55111016278
 ;;9002226.02101,"1033,55111016278 ",.02)
 ;;55111016278
 ;;9002226.02101,"1033,55111028101 ",.01)
 ;;55111028101
 ;;9002226.02101,"1033,55111028101 ",.02)
 ;;55111028101
 ;;9002226.02101,"1033,55111028105 ",.01)
 ;;55111028105
 ;;9002226.02101,"1033,55111028105 ",.02)
 ;;55111028105
 ;;9002226.02101,"1033,55111028130 ",.01)
 ;;55111028130
 ;;9002226.02101,"1033,55111028130 ",.02)
 ;;55111028130
 ;;9002226.02101,"1033,55111028150 ",.01)
 ;;55111028150
 ;;9002226.02101,"1033,55111028150 ",.02)
 ;;55111028150
 ;;9002226.02101,"1033,55111028178 ",.01)
 ;;55111028178
 ;;9002226.02101,"1033,55111028178 ",.02)
 ;;55111028178
 ;;9002226.02101,"1033,55111028179 ",.01)
 ;;55111028179
 ;;9002226.02101,"1033,55111028179 ",.02)
 ;;55111028179
 ;;9002226.02101,"1033,55111042201 ",.01)
 ;;55111042201
 ;;9002226.02101,"1033,55111042201 ",.02)
 ;;55111042201
 ;;9002226.02101,"1033,55111042205 ",.01)
 ;;55111042205
 ;;9002226.02101,"1033,55111042205 ",.02)
 ;;55111042205
 ;;9002226.02101,"1033,55111042230 ",.01)
 ;;55111042230
 ;;9002226.02101,"1033,55111042230 ",.02)
 ;;55111042230
 ;;9002226.02101,"1033,55111042278 ",.01)
 ;;55111042278
 ;;9002226.02101,"1033,55111042278 ",.02)
 ;;55111042278
 ;;9002226.02101,"1033,55111042301 ",.01)
 ;;55111042301
 ;;9002226.02101,"1033,55111042301 ",.02)
 ;;55111042301
 ;;9002226.02101,"1033,55111042305 ",.01)
 ;;55111042305
 ;;9002226.02101,"1033,55111042305 ",.02)
 ;;55111042305
 ;;9002226.02101,"1033,55111042330 ",.01)
 ;;55111042330
 ;;9002226.02101,"1033,55111042330 ",.02)
 ;;55111042330
 ;;9002226.02101,"1033,55111042378 ",.01)
 ;;55111042378
 ;;9002226.02101,"1033,55111042378 ",.02)
 ;;55111042378
 ;;9002226.02101,"1033,55111063701 ",.01)
 ;;55111063701
 ;;9002226.02101,"1033,55111063701 ",.02)
 ;;55111063701
 ;;9002226.02101,"1033,55111063710 ",.01)
 ;;55111063710
 ;;9002226.02101,"1033,55111063710 ",.02)
 ;;55111063710
 ;;9002226.02101,"1033,55111063801 ",.01)
 ;;55111063801
 ;;9002226.02101,"1033,55111063801 ",.02)
 ;;55111063801
 ;;9002226.02101,"1033,55111063810 ",.01)
 ;;55111063810
 ;;9002226.02101,"1033,55111063810 ",.02)
 ;;55111063810
 ;;9002226.02101,"1033,55111063910 ",.01)
 ;;55111063910
 ;;9002226.02101,"1033,55111063910 ",.02)
 ;;55111063910
 ;;9002226.02101,"1033,55111063950 ",.01)
 ;;55111063950
 ;;9002226.02101,"1033,55111063950 ",.02)
 ;;55111063950
 ;;9002226.02101,"1033,55111063960 ",.01)
 ;;55111063960
 ;;9002226.02101,"1033,55111063960 ",.02)
 ;;55111063960
 ;;9002226.02101,"1033,55154052500 ",.01)
 ;;55154052500
 ;;9002226.02101,"1033,55154052500 ",.02)
 ;;55154052500
 ;;9002226.02101,"1033,55154066000 ",.01)
 ;;55154066000
 ;;9002226.02101,"1033,55154066000 ",.02)
 ;;55154066000
 ;;9002226.02101,"1033,55154066007 ",.01)
 ;;55154066007
 ;;9002226.02101,"1033,55154066007 ",.02)
 ;;55154066007
 ;;9002226.02101,"1033,55154117509 ",.01)
 ;;55154117509
 ;;9002226.02101,"1033,55154117509 ",.02)
 ;;55154117509
 ;;9002226.02101,"1033,55154205000 ",.01)
 ;;55154205000
 ;;9002226.02101,"1033,55154205000 ",.02)
 ;;55154205000
 ;;9002226.02101,"1033,55154206200 ",.01)
 ;;55154206200
 ;;9002226.02101,"1033,55154206200 ",.02)
 ;;55154206200
 ;;9002226.02101,"1033,55154235205 ",.01)
 ;;55154235205
 ;;9002226.02101,"1033,55154235205 ",.02)
 ;;55154235205
 ;;9002226.02101,"1033,55154239005 ",.01)
 ;;55154239005
 ;;9002226.02101,"1033,55154239005 ",.02)
 ;;55154239005
 ;;9002226.02101,"1033,55154247505 ",.01)
 ;;55154247505
 ;;9002226.02101,"1033,55154247505 ",.02)
 ;;55154247505
 ;;9002226.02101,"1033,55154247605 ",.01)
 ;;55154247605
 ;;9002226.02101,"1033,55154247605 ",.02)
 ;;55154247605
 ;;9002226.02101,"1033,55154265009 ",.01)
 ;;55154265009
 ;;9002226.02101,"1033,55154265009 ",.02)
 ;;55154265009
 ;;9002226.02101,"1033,55154265105 ",.01)
 ;;55154265105
 ;;9002226.02101,"1033,55154265105 ",.02)
 ;;55154265105
 ;;9002226.02101,"1033,55154265309 ",.01)
 ;;55154265309
 ;;9002226.02101,"1033,55154265309 ",.02)
 ;;55154265309
 ;;9002226.02101,"1033,55154265500 ",.01)
 ;;55154265500
 ;;9002226.02101,"1033,55154265500 ",.02)
 ;;55154265500
 ;;9002226.02101,"1033,55154265504 ",.01)
 ;;55154265504
 ;;9002226.02101,"1033,55154265504 ",.02)
 ;;55154265504
 ;;9002226.02101,"1033,55154265506 ",.01)
 ;;55154265506
 ;;9002226.02101,"1033,55154265506 ",.02)
 ;;55154265506
 ;;9002226.02101,"1033,55154286505 ",.01)
 ;;55154286505
 ;;9002226.02101,"1033,55154286505 ",.02)
 ;;55154286505
 ;;9002226.02101,"1033,55154318405 ",.01)
 ;;55154318405
 ;;9002226.02101,"1033,55154318405 ",.02)
 ;;55154318405
 ;;9002226.02101,"1033,55154343005 ",.01)
 ;;55154343005
 ;;9002226.02101,"1033,55154343005 ",.02)
 ;;55154343005
 ;;9002226.02101,"1033,55154343105 ",.01)
 ;;55154343105
 ;;9002226.02101,"1033,55154343105 ",.02)
 ;;55154343105
 ;;9002226.02101,"1033,55154343200 ",.01)
 ;;55154343200
 ;;9002226.02101,"1033,55154343200 ",.02)
 ;;55154343200
 ;;9002226.02101,"1033,55154506700 ",.01)
 ;;55154506700
 ;;9002226.02101,"1033,55154506700 ",.02)
 ;;55154506700
 ;;9002226.02101,"1033,55154510807 ",.01)
 ;;55154510807
 ;;9002226.02101,"1033,55154510807 ",.02)
 ;;55154510807
 ;;9002226.02101,"1033,55154541805 ",.01)
 ;;55154541805
 ;;9002226.02101,"1033,55154541805 ",.02)
 ;;55154541805
 ;;9002226.02101,"1033,55154542005 ",.01)
 ;;55154542005
 ;;9002226.02101,"1033,55154542005 ",.02)
 ;;55154542005
 ;;9002226.02101,"1033,55154543205 ",.01)
 ;;55154543205
 ;;9002226.02101,"1033,55154543205 ",.02)
 ;;55154543205