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

BGPM5AVO.m

Go to the documentation of this file.
BGPM5AVO ;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,55887061160 ",.02)
 ;;55887061160
 ;;9002226.02101,"1033,55887062209 ",.01)
 ;;55887062209
 ;;9002226.02101,"1033,55887062209 ",.02)
 ;;55887062209
 ;;9002226.02101,"1033,55887062220 ",.01)
 ;;55887062220
 ;;9002226.02101,"1033,55887062220 ",.02)
 ;;55887062220
 ;;9002226.02101,"1033,55887062221 ",.01)
 ;;55887062221
 ;;9002226.02101,"1033,55887062221 ",.02)
 ;;55887062221
 ;;9002226.02101,"1033,55887062230 ",.01)
 ;;55887062230
 ;;9002226.02101,"1033,55887062230 ",.02)
 ;;55887062230
 ;;9002226.02101,"1033,55887062240 ",.01)
 ;;55887062240
 ;;9002226.02101,"1033,55887062240 ",.02)
 ;;55887062240
 ;;9002226.02101,"1033,55887062914 ",.01)
 ;;55887062914
 ;;9002226.02101,"1033,55887062914 ",.02)
 ;;55887062914
 ;;9002226.02101,"1033,55887062920 ",.01)
 ;;55887062920
 ;;9002226.02101,"1033,55887062920 ",.02)
 ;;55887062920
 ;;9002226.02101,"1033,55887065214 ",.01)
 ;;55887065214
 ;;9002226.02101,"1033,55887065214 ",.02)
 ;;55887065214
 ;;9002226.02101,"1033,55887065220 ",.01)
 ;;55887065220
 ;;9002226.02101,"1033,55887065220 ",.02)
 ;;55887065220
 ;;9002226.02101,"1033,55887065228 ",.01)
 ;;55887065228
 ;;9002226.02101,"1033,55887065228 ",.02)
 ;;55887065228
 ;;9002226.02101,"1033,55887065230 ",.01)
 ;;55887065230
 ;;9002226.02101,"1033,55887065230 ",.02)
 ;;55887065230
 ;;9002226.02101,"1033,55887065914 ",.01)
 ;;55887065914
 ;;9002226.02101,"1033,55887065914 ",.02)
 ;;55887065914
 ;;9002226.02101,"1033,55887065920 ",.01)
 ;;55887065920
 ;;9002226.02101,"1033,55887065920 ",.02)
 ;;55887065920
 ;;9002226.02101,"1033,55887065930 ",.01)
 ;;55887065930
 ;;9002226.02101,"1033,55887065930 ",.02)
 ;;55887065930
 ;;9002226.02101,"1033,55887070414 ",.01)
 ;;55887070414
 ;;9002226.02101,"1033,55887070414 ",.02)
 ;;55887070414
 ;;9002226.02101,"1033,55887070420 ",.01)
 ;;55887070420
 ;;9002226.02101,"1033,55887070420 ",.02)
 ;;55887070420
 ;;9002226.02101,"1033,55887070421 ",.01)
 ;;55887070421
 ;;9002226.02101,"1033,55887070421 ",.02)
 ;;55887070421
 ;;9002226.02101,"1033,55887070428 ",.01)
 ;;55887070428
 ;;9002226.02101,"1033,55887070428 ",.02)
 ;;55887070428
 ;;9002226.02101,"1033,55887070430 ",.01)
 ;;55887070430
 ;;9002226.02101,"1033,55887070430 ",.02)
 ;;55887070430
 ;;9002226.02101,"1033,55887071401 ",.01)
 ;;55887071401
 ;;9002226.02101,"1033,55887071401 ",.02)
 ;;55887071401
 ;;9002226.02101,"1033,55887071901 ",.01)
 ;;55887071901
 ;;9002226.02101,"1033,55887071901 ",.02)
 ;;55887071901
 ;;9002226.02101,"1033,55887076101 ",.01)
 ;;55887076101
 ;;9002226.02101,"1033,55887076101 ",.02)
 ;;55887076101
 ;;9002226.02101,"1033,55887076475 ",.01)
 ;;55887076475
 ;;9002226.02101,"1033,55887076475 ",.02)
 ;;55887076475
 ;;9002226.02101,"1033,55887076821 ",.01)
 ;;55887076821
 ;;9002226.02101,"1033,55887076821 ",.02)
 ;;55887076821
 ;;9002226.02101,"1033,55887078504 ",.01)
 ;;55887078504
 ;;9002226.02101,"1033,55887078504 ",.02)
 ;;55887078504
 ;;9002226.02101,"1033,55887078506 ",.01)
 ;;55887078506
 ;;9002226.02101,"1033,55887078506 ",.02)
 ;;55887078506
 ;;9002226.02101,"1033,55887078530 ",.01)
 ;;55887078530
 ;;9002226.02101,"1033,55887078530 ",.02)
 ;;55887078530
 ;;9002226.02101,"1033,55887079475 ",.01)
 ;;55887079475
 ;;9002226.02101,"1033,55887079475 ",.02)
 ;;55887079475
 ;;9002226.02101,"1033,55887081401 ",.01)
 ;;55887081401
 ;;9002226.02101,"1033,55887081401 ",.02)
 ;;55887081401
 ;;9002226.02101,"1033,55887081414 ",.01)
 ;;55887081414
 ;;9002226.02101,"1033,55887081414 ",.02)
 ;;55887081414
 ;;9002226.02101,"1033,55887081463 ",.01)
 ;;55887081463
 ;;9002226.02101,"1033,55887081463 ",.02)
 ;;55887081463
 ;;9002226.02101,"1033,55887081479 ",.01)
 ;;55887081479
 ;;9002226.02101,"1033,55887081479 ",.02)
 ;;55887081479
 ;;9002226.02101,"1033,55887083020 ",.01)
 ;;55887083020
 ;;9002226.02101,"1033,55887083020 ",.02)
 ;;55887083020
 ;;9002226.02101,"1033,55887083028 ",.01)
 ;;55887083028
 ;;9002226.02101,"1033,55887083028 ",.02)
 ;;55887083028
 ;;9002226.02101,"1033,55887083030 ",.01)
 ;;55887083030
 ;;9002226.02101,"1033,55887083030 ",.02)
 ;;55887083030
 ;;9002226.02101,"1033,55887083040 ",.01)
 ;;55887083040
 ;;9002226.02101,"1033,55887083040 ",.02)
 ;;55887083040
 ;;9002226.02101,"1033,55887083715 ",.01)
 ;;55887083715
 ;;9002226.02101,"1033,55887083715 ",.02)
 ;;55887083715
 ;;9002226.02101,"1033,55887083718 ",.01)
 ;;55887083718
 ;;9002226.02101,"1033,55887083718 ",.02)
 ;;55887083718
 ;;9002226.02101,"1033,55887083721 ",.01)
 ;;55887083721
 ;;9002226.02101,"1033,55887083721 ",.02)
 ;;55887083721
 ;;9002226.02101,"1033,55887083730 ",.01)
 ;;55887083730
 ;;9002226.02101,"1033,55887083730 ",.02)
 ;;55887083730
 ;;9002226.02101,"1033,55887084915 ",.01)
 ;;55887084915
 ;;9002226.02101,"1033,55887084915 ",.02)
 ;;55887084915
 ;;9002226.02101,"1033,55887084928 ",.01)
 ;;55887084928
 ;;9002226.02101,"1033,55887084928 ",.02)
 ;;55887084928
 ;;9002226.02101,"1033,55887084930 ",.01)
 ;;55887084930
 ;;9002226.02101,"1033,55887084930 ",.02)
 ;;55887084930
 ;;9002226.02101,"1033,55887084940 ",.01)
 ;;55887084940
 ;;9002226.02101,"1033,55887084940 ",.02)
 ;;55887084940
 ;;9002226.02101,"1033,55887086214 ",.01)
 ;;55887086214
 ;;9002226.02101,"1033,55887086214 ",.02)
 ;;55887086214
 ;;9002226.02101,"1033,55887086701 ",.01)
 ;;55887086701
 ;;9002226.02101,"1033,55887086701 ",.02)
 ;;55887086701
 ;;9002226.02101,"1033,55887088921 ",.01)
 ;;55887088921
 ;;9002226.02101,"1033,55887088921 ",.02)
 ;;55887088921
 ;;9002226.02101,"1033,55887088928 ",.01)
 ;;55887088928
 ;;9002226.02101,"1033,55887088928 ",.02)
 ;;55887088928
 ;;9002226.02101,"1033,55887088940 ",.01)
 ;;55887088940
 ;;9002226.02101,"1033,55887088940 ",.02)
 ;;55887088940
 ;;9002226.02101,"1033,55887089314 ",.01)
 ;;55887089314
 ;;9002226.02101,"1033,55887089314 ",.02)
 ;;55887089314
 ;;9002226.02101,"1033,55887089320 ",.01)
 ;;55887089320
 ;;9002226.02101,"1033,55887089320 ",.02)
 ;;55887089320
 ;;9002226.02101,"1033,55887089324 ",.01)
 ;;55887089324
 ;;9002226.02101,"1033,55887089324 ",.02)
 ;;55887089324
 ;;9002226.02101,"1033,55887089325 ",.01)
 ;;55887089325
 ;;9002226.02101,"1033,55887089325 ",.02)
 ;;55887089325
 ;;9002226.02101,"1033,55887089330 ",.01)
 ;;55887089330
 ;;9002226.02101,"1033,55887089330 ",.02)
 ;;55887089330
 ;;9002226.02101,"1033,55887090406 ",.01)
 ;;55887090406
 ;;9002226.02101,"1033,55887090406 ",.02)
 ;;55887090406
 ;;9002226.02101,"1033,55887090410 ",.01)
 ;;55887090410
 ;;9002226.02101,"1033,55887090410 ",.02)
 ;;55887090410
 ;;9002226.02101,"1033,55887090414 ",.01)
 ;;55887090414
 ;;9002226.02101,"1033,55887090414 ",.02)
 ;;55887090414
 ;;9002226.02101,"1033,55887090420 ",.01)
 ;;55887090420
 ;;9002226.02101,"1033,55887090420 ",.02)
 ;;55887090420
 ;;9002226.02101,"1033,55887090430 ",.01)
 ;;55887090430
 ;;9002226.02101,"1033,55887090430 ",.02)
 ;;55887090430
 ;;9002226.02101,"1033,55887090460 ",.01)
 ;;55887090460
 ;;9002226.02101,"1033,55887090460 ",.02)
 ;;55887090460
 ;;9002226.02101,"1033,55887092420 ",.01)
 ;;55887092420
 ;;9002226.02101,"1033,55887092420 ",.02)
 ;;55887092420
 ;;9002226.02101,"1033,55887092428 ",.01)
 ;;55887092428
 ;;9002226.02101,"1033,55887092428 ",.02)
 ;;55887092428
 ;;9002226.02101,"1033,55887092460 ",.01)
 ;;55887092460
 ;;9002226.02101,"1033,55887092460 ",.02)
 ;;55887092460
 ;;9002226.02101,"1033,55887093028 ",.01)
 ;;55887093028
 ;;9002226.02101,"1033,55887093028 ",.02)
 ;;55887093028
 ;;9002226.02101,"1033,55887093030 ",.01)
 ;;55887093030
 ;;9002226.02101,"1033,55887093030 ",.02)
 ;;55887093030
 ;;9002226.02101,"1033,55887095801 ",.01)
 ;;55887095801
 ;;9002226.02101,"1033,55887095801 ",.02)
 ;;55887095801
 ;;9002226.02101,"1033,55887095805 ",.01)
 ;;55887095805
 ;;9002226.02101,"1033,55887095805 ",.02)
 ;;55887095805
 ;;9002226.02101,"1033,55887095808 ",.01)
 ;;55887095808
 ;;9002226.02101,"1033,55887095808 ",.02)
 ;;55887095808
 ;;9002226.02101,"1033,55887095809 ",.01)
 ;;55887095809
 ;;9002226.02101,"1033,55887095809 ",.02)
 ;;55887095809
 ;;9002226.02101,"1033,55887095814 ",.01)
 ;;55887095814
 ;;9002226.02101,"1033,55887095814 ",.02)
 ;;55887095814
 ;;9002226.02101,"1033,55887095815 ",.01)
 ;;55887095815
 ;;9002226.02101,"1033,55887095815 ",.02)
 ;;55887095815
 ;;9002226.02101,"1033,55887095820 ",.01)
 ;;55887095820
 ;;9002226.02101,"1033,55887095820 ",.02)
 ;;55887095820
 ;;9002226.02101,"1033,55887095821 ",.01)
 ;;55887095821
 ;;9002226.02101,"1033,55887095821 ",.02)
 ;;55887095821
 ;;9002226.02101,"1033,55887095828 ",.01)
 ;;55887095828
 ;;9002226.02101,"1033,55887095828 ",.02)
 ;;55887095828
 ;;9002226.02101,"1033,55887095830 ",.01)
 ;;55887095830
 ;;9002226.02101,"1033,55887095830 ",.02)
 ;;55887095830
 ;;9002226.02101,"1033,55887095840 ",.01)
 ;;55887095840
 ;;9002226.02101,"1033,55887095840 ",.02)
 ;;55887095840
 ;;9002226.02101,"1033,55887095860 ",.01)
 ;;55887095860
 ;;9002226.02101,"1033,55887095860 ",.02)
 ;;55887095860
 ;;9002226.02101,"1033,55887095890 ",.01)
 ;;55887095890
 ;;9002226.02101,"1033,55887095890 ",.02)
 ;;55887095890
 ;;9002226.02101,"1033,55887097901 ",.01)
 ;;55887097901
 ;;9002226.02101,"1033,55887097901 ",.02)
 ;;55887097901
 ;;9002226.02101,"1033,55887097903 ",.01)
 ;;55887097903
 ;;9002226.02101,"1033,55887097903 ",.02)
 ;;55887097903
 ;;9002226.02101,"1033,55887097904 ",.01)
 ;;55887097904
 ;;9002226.02101,"1033,55887097904 ",.02)
 ;;55887097904
 ;;9002226.02101,"1033,55887097908 ",.01)
 ;;55887097908
 ;;9002226.02101,"1033,55887097908 ",.02)
 ;;55887097908
 ;;9002226.02101,"1033,55887097910 ",.01)
 ;;55887097910
 ;;9002226.02101,"1033,55887097910 ",.02)
 ;;55887097910
 ;;9002226.02101,"1033,55887097912 ",.01)
 ;;55887097912
 ;;9002226.02101,"1033,55887097912 ",.02)
 ;;55887097912
 ;;9002226.02101,"1033,55887097914 ",.01)
 ;;55887097914
 ;;9002226.02101,"1033,55887097914 ",.02)
 ;;55887097914
 ;;9002226.02101,"1033,55887097920 ",.01)
 ;;55887097920
 ;;9002226.02101,"1033,55887097920 ",.02)
 ;;55887097920
 ;;9002226.02101,"1033,55887097921 ",.01)
 ;;55887097921
 ;;9002226.02101,"1033,55887097921 ",.02)
 ;;55887097921
 ;;9002226.02101,"1033,55887097928 ",.01)
 ;;55887097928
 ;;9002226.02101,"1033,55887097928 ",.02)
 ;;55887097928
 ;;9002226.02101,"1033,55887097930 ",.01)
 ;;55887097930
 ;;9002226.02101,"1033,55887097930 ",.02)
 ;;55887097930
 ;;9002226.02101,"1033,55887097960 ",.01)
 ;;55887097960
 ;;9002226.02101,"1033,55887097960 ",.02)
 ;;55887097960
 ;;9002226.02101,"1033,55887097982 ",.01)
 ;;55887097982
 ;;9002226.02101,"1033,55887097982 ",.02)
 ;;55887097982
 ;;9002226.02101,"1033,55887097990 ",.01)
 ;;55887097990
 ;;9002226.02101,"1033,55887097990 ",.02)
 ;;55887097990
 ;;9002226.02101,"1033,55887098021 ",.01)
 ;;55887098021
 ;;9002226.02101,"1033,55887098021 ",.02)
 ;;55887098021
 ;;9002226.02101,"1033,55887098028 ",.01)
 ;;55887098028
 ;;9002226.02101,"1033,55887098028 ",.02)
 ;;55887098028
 ;;9002226.02101,"1033,55887098040 ",.01)
 ;;55887098040
 ;;9002226.02101,"1033,55887098040 ",.02)
 ;;55887098040
 ;;9002226.02101,"1033,55887098201 ",.01)
 ;;55887098201
 ;;9002226.02101,"1033,55887098201 ",.02)
 ;;55887098201
 ;;9002226.02101,"1033,55887098204 ",.01)
 ;;55887098204
 ;;9002226.02101,"1033,55887098204 ",.02)
 ;;55887098204
 ;;9002226.02101,"1033,55887098208 ",.01)
 ;;55887098208
 ;;9002226.02101,"1033,55887098208 ",.02)
 ;;55887098208
 ;;9002226.02101,"1033,55887098209 ",.01)
 ;;55887098209
 ;;9002226.02101,"1033,55887098209 ",.02)
 ;;55887098209
 ;;9002226.02101,"1033,55887098212 ",.01)
 ;;55887098212
 ;;9002226.02101,"1033,55887098212 ",.02)
 ;;55887098212