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

BGPM5AVC.m

Go to the documentation of this file.
BGPM5AVC ;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,54868015408 ",.02)
 ;;54868015408
 ;;9002226.02101,"1033,54868015409 ",.01)
 ;;54868015409
 ;;9002226.02101,"1033,54868015409 ",.02)
 ;;54868015409
 ;;9002226.02101,"1033,54868015501 ",.01)
 ;;54868015501
 ;;9002226.02101,"1033,54868015501 ",.02)
 ;;54868015501
 ;;9002226.02101,"1033,54868019100 ",.01)
 ;;54868019100
 ;;9002226.02101,"1033,54868019100 ",.02)
 ;;54868019100
 ;;9002226.02101,"1033,54868019101 ",.01)
 ;;54868019101
 ;;9002226.02101,"1033,54868019101 ",.02)
 ;;54868019101
 ;;9002226.02101,"1033,54868019102 ",.01)
 ;;54868019102
 ;;9002226.02101,"1033,54868019102 ",.02)
 ;;54868019102
 ;;9002226.02101,"1033,54868019103 ",.01)
 ;;54868019103
 ;;9002226.02101,"1033,54868019103 ",.02)
 ;;54868019103
 ;;9002226.02101,"1033,54868019104 ",.01)
 ;;54868019104
 ;;9002226.02101,"1033,54868019104 ",.02)
 ;;54868019104
 ;;9002226.02101,"1033,54868019105 ",.01)
 ;;54868019105
 ;;9002226.02101,"1033,54868019105 ",.02)
 ;;54868019105
 ;;9002226.02101,"1033,54868019106 ",.01)
 ;;54868019106
 ;;9002226.02101,"1033,54868019106 ",.02)
 ;;54868019106
 ;;9002226.02101,"1033,54868019107 ",.01)
 ;;54868019107
 ;;9002226.02101,"1033,54868019107 ",.02)
 ;;54868019107
 ;;9002226.02101,"1033,54868022500 ",.01)
 ;;54868022500
 ;;9002226.02101,"1033,54868022500 ",.02)
 ;;54868022500
 ;;9002226.02101,"1033,54868022501 ",.01)
 ;;54868022501
 ;;9002226.02101,"1033,54868022501 ",.02)
 ;;54868022501
 ;;9002226.02101,"1033,54868027600 ",.01)
 ;;54868027600
 ;;9002226.02101,"1033,54868027600 ",.02)
 ;;54868027600
 ;;9002226.02101,"1033,54868027601 ",.01)
 ;;54868027601
 ;;9002226.02101,"1033,54868027601 ",.02)
 ;;54868027601
 ;;9002226.02101,"1033,54868028600 ",.01)
 ;;54868028600
 ;;9002226.02101,"1033,54868028600 ",.02)
 ;;54868028600
 ;;9002226.02101,"1033,54868041300 ",.01)
 ;;54868041300
 ;;9002226.02101,"1033,54868041300 ",.02)
 ;;54868041300
 ;;9002226.02101,"1033,54868041302 ",.01)
 ;;54868041302
 ;;9002226.02101,"1033,54868041302 ",.02)
 ;;54868041302
 ;;9002226.02101,"1033,54868041304 ",.01)
 ;;54868041304
 ;;9002226.02101,"1033,54868041304 ",.02)
 ;;54868041304
 ;;9002226.02101,"1033,54868041306 ",.01)
 ;;54868041306
 ;;9002226.02101,"1033,54868041306 ",.02)
 ;;54868041306
 ;;9002226.02101,"1033,54868041307 ",.01)
 ;;54868041307
 ;;9002226.02101,"1033,54868041307 ",.02)
 ;;54868041307
 ;;9002226.02101,"1033,54868041308 ",.01)
 ;;54868041308
 ;;9002226.02101,"1033,54868041308 ",.02)
 ;;54868041308
 ;;9002226.02101,"1033,54868053801 ",.01)
 ;;54868053801
 ;;9002226.02101,"1033,54868053801 ",.02)
 ;;54868053801
 ;;9002226.02101,"1033,54868053802 ",.01)
 ;;54868053802
 ;;9002226.02101,"1033,54868053802 ",.02)
 ;;54868053802
 ;;9002226.02101,"1033,54868055900 ",.01)
 ;;54868055900
 ;;9002226.02101,"1033,54868055900 ",.02)
 ;;54868055900
 ;;9002226.02101,"1033,54868065400 ",.01)
 ;;54868065400
 ;;9002226.02101,"1033,54868065400 ",.02)
 ;;54868065400
 ;;9002226.02101,"1033,54868093700 ",.01)
 ;;54868093700
 ;;9002226.02101,"1033,54868093700 ",.02)
 ;;54868093700
 ;;9002226.02101,"1033,54868093701 ",.01)
 ;;54868093701
 ;;9002226.02101,"1033,54868093701 ",.02)
 ;;54868093701
 ;;9002226.02101,"1033,54868093702 ",.01)
 ;;54868093702
 ;;9002226.02101,"1033,54868093702 ",.02)
 ;;54868093702
 ;;9002226.02101,"1033,54868097100 ",.01)
 ;;54868097100
 ;;9002226.02101,"1033,54868097100 ",.02)
 ;;54868097100
 ;;9002226.02101,"1033,54868097101 ",.01)
 ;;54868097101
 ;;9002226.02101,"1033,54868097101 ",.02)
 ;;54868097101
 ;;9002226.02101,"1033,54868117100 ",.01)
 ;;54868117100
 ;;9002226.02101,"1033,54868117100 ",.02)
 ;;54868117100
 ;;9002226.02101,"1033,54868117101 ",.01)
 ;;54868117101
 ;;9002226.02101,"1033,54868117101 ",.02)
 ;;54868117101
 ;;9002226.02101,"1033,54868117102 ",.01)
 ;;54868117102
 ;;9002226.02101,"1033,54868117102 ",.02)
 ;;54868117102
 ;;9002226.02101,"1033,54868117103 ",.01)
 ;;54868117103
 ;;9002226.02101,"1033,54868117103 ",.02)
 ;;54868117103
 ;;9002226.02101,"1033,54868117300 ",.01)
 ;;54868117300
 ;;9002226.02101,"1033,54868117300 ",.02)
 ;;54868117300
 ;;9002226.02101,"1033,54868117301 ",.01)
 ;;54868117301
 ;;9002226.02101,"1033,54868117301 ",.02)
 ;;54868117301
 ;;9002226.02101,"1033,54868117302 ",.01)
 ;;54868117302
 ;;9002226.02101,"1033,54868117302 ",.02)
 ;;54868117302
 ;;9002226.02101,"1033,54868117304 ",.01)
 ;;54868117304
 ;;9002226.02101,"1033,54868117304 ",.02)
 ;;54868117304
 ;;9002226.02101,"1033,54868117305 ",.01)
 ;;54868117305
 ;;9002226.02101,"1033,54868117305 ",.02)
 ;;54868117305
 ;;9002226.02101,"1033,54868117306 ",.01)
 ;;54868117306
 ;;9002226.02101,"1033,54868117306 ",.02)
 ;;54868117306
 ;;9002226.02101,"1033,54868138000 ",.01)
 ;;54868138000
 ;;9002226.02101,"1033,54868138000 ",.02)
 ;;54868138000
 ;;9002226.02101,"1033,54868138001 ",.01)
 ;;54868138001
 ;;9002226.02101,"1033,54868138001 ",.02)
 ;;54868138001
 ;;9002226.02101,"1033,54868138002 ",.01)
 ;;54868138002
 ;;9002226.02101,"1033,54868138002 ",.02)
 ;;54868138002
 ;;9002226.02101,"1033,54868138003 ",.01)
 ;;54868138003
 ;;9002226.02101,"1033,54868138003 ",.02)
 ;;54868138003
 ;;9002226.02101,"1033,54868138501 ",.01)
 ;;54868138501
 ;;9002226.02101,"1033,54868138501 ",.02)
 ;;54868138501
 ;;9002226.02101,"1033,54868138502 ",.01)
 ;;54868138502
 ;;9002226.02101,"1033,54868138502 ",.02)
 ;;54868138502
 ;;9002226.02101,"1033,54868138700 ",.01)
 ;;54868138700
 ;;9002226.02101,"1033,54868138700 ",.02)
 ;;54868138700
 ;;9002226.02101,"1033,54868138701 ",.01)
 ;;54868138701
 ;;9002226.02101,"1033,54868138701 ",.02)
 ;;54868138701
 ;;9002226.02101,"1033,54868138702 ",.01)
 ;;54868138702
 ;;9002226.02101,"1033,54868138702 ",.02)
 ;;54868138702
 ;;9002226.02101,"1033,54868138704 ",.01)
 ;;54868138704
 ;;9002226.02101,"1033,54868138704 ",.02)
 ;;54868138704
 ;;9002226.02101,"1033,54868153500 ",.01)
 ;;54868153500
 ;;9002226.02101,"1033,54868153500 ",.02)
 ;;54868153500
 ;;9002226.02101,"1033,54868161600 ",.01)
 ;;54868161600
 ;;9002226.02101,"1033,54868161600 ",.02)
 ;;54868161600
 ;;9002226.02101,"1033,54868161601 ",.01)
 ;;54868161601
 ;;9002226.02101,"1033,54868161601 ",.02)
 ;;54868161601
 ;;9002226.02101,"1033,54868161602 ",.01)
 ;;54868161602
 ;;9002226.02101,"1033,54868161602 ",.02)
 ;;54868161602
 ;;9002226.02101,"1033,54868161603 ",.01)
 ;;54868161603
 ;;9002226.02101,"1033,54868161603 ",.02)
 ;;54868161603
 ;;9002226.02101,"1033,54868178001 ",.01)
 ;;54868178001
 ;;9002226.02101,"1033,54868178001 ",.02)
 ;;54868178001
 ;;9002226.02101,"1033,54868178002 ",.01)
 ;;54868178002
 ;;9002226.02101,"1033,54868178002 ",.02)
 ;;54868178002
 ;;9002226.02101,"1033,54868185700 ",.01)
 ;;54868185700
 ;;9002226.02101,"1033,54868185700 ",.02)
 ;;54868185700
 ;;9002226.02101,"1033,54868185701 ",.01)
 ;;54868185701
 ;;9002226.02101,"1033,54868185701 ",.02)
 ;;54868185701
 ;;9002226.02101,"1033,54868185702 ",.01)
 ;;54868185702
 ;;9002226.02101,"1033,54868185702 ",.02)
 ;;54868185702
 ;;9002226.02101,"1033,54868185705 ",.01)
 ;;54868185705
 ;;9002226.02101,"1033,54868185705 ",.02)
 ;;54868185705
 ;;9002226.02101,"1033,54868185706 ",.01)
 ;;54868185706
 ;;9002226.02101,"1033,54868185706 ",.02)
 ;;54868185706
 ;;9002226.02101,"1033,54868185707 ",.01)
 ;;54868185707
 ;;9002226.02101,"1033,54868185707 ",.02)
 ;;54868185707
 ;;9002226.02101,"1033,54868186501 ",.01)
 ;;54868186501
 ;;9002226.02101,"1033,54868186501 ",.02)
 ;;54868186501
 ;;9002226.02101,"1033,54868186502 ",.01)
 ;;54868186502
 ;;9002226.02101,"1033,54868186502 ",.02)
 ;;54868186502
 ;;9002226.02101,"1033,54868186503 ",.01)
 ;;54868186503
 ;;9002226.02101,"1033,54868186503 ",.02)
 ;;54868186503
 ;;9002226.02101,"1033,54868239000 ",.01)
 ;;54868239000
 ;;9002226.02101,"1033,54868239000 ",.02)
 ;;54868239000
 ;;9002226.02101,"1033,54868239001 ",.01)
 ;;54868239001
 ;;9002226.02101,"1033,54868239001 ",.02)
 ;;54868239001
 ;;9002226.02101,"1033,54868239100 ",.01)
 ;;54868239100
 ;;9002226.02101,"1033,54868239100 ",.02)
 ;;54868239100
 ;;9002226.02101,"1033,54868239101 ",.01)
 ;;54868239101
 ;;9002226.02101,"1033,54868239101 ",.02)
 ;;54868239101
 ;;9002226.02101,"1033,54868239102 ",.01)
 ;;54868239102
 ;;9002226.02101,"1033,54868239102 ",.02)
 ;;54868239102
 ;;9002226.02101,"1033,54868239103 ",.01)
 ;;54868239103
 ;;9002226.02101,"1033,54868239103 ",.02)
 ;;54868239103
 ;;9002226.02101,"1033,54868239104 ",.01)
 ;;54868239104
 ;;9002226.02101,"1033,54868239104 ",.02)
 ;;54868239104
 ;;9002226.02101,"1033,54868239105 ",.01)
 ;;54868239105
 ;;9002226.02101,"1033,54868239105 ",.02)
 ;;54868239105
 ;;9002226.02101,"1033,54868287500 ",.01)
 ;;54868287500
 ;;9002226.02101,"1033,54868287500 ",.02)
 ;;54868287500
 ;;9002226.02101,"1033,54868287501 ",.01)
 ;;54868287501
 ;;9002226.02101,"1033,54868287501 ",.02)
 ;;54868287501
 ;;9002226.02101,"1033,54868310500 ",.01)
 ;;54868310500
 ;;9002226.02101,"1033,54868310500 ",.02)
 ;;54868310500
 ;;9002226.02101,"1033,54868310501 ",.01)
 ;;54868310501
 ;;9002226.02101,"1033,54868310501 ",.02)
 ;;54868310501
 ;;9002226.02101,"1033,54868310502 ",.01)
 ;;54868310502
 ;;9002226.02101,"1033,54868310502 ",.02)
 ;;54868310502
 ;;9002226.02101,"1033,54868310503 ",.01)
 ;;54868310503
 ;;9002226.02101,"1033,54868310503 ",.02)
 ;;54868310503
 ;;9002226.02101,"1033,54868310700 ",.01)
 ;;54868310700
 ;;9002226.02101,"1033,54868310700 ",.02)
 ;;54868310700
 ;;9002226.02101,"1033,54868310701 ",.01)
 ;;54868310701
 ;;9002226.02101,"1033,54868310701 ",.02)
 ;;54868310701
 ;;9002226.02101,"1033,54868310702 ",.01)
 ;;54868310702
 ;;9002226.02101,"1033,54868310702 ",.02)
 ;;54868310702
 ;;9002226.02101,"1033,54868310703 ",.01)
 ;;54868310703
 ;;9002226.02101,"1033,54868310703 ",.02)
 ;;54868310703
 ;;9002226.02101,"1033,54868310706 ",.01)
 ;;54868310706
 ;;9002226.02101,"1033,54868310706 ",.02)
 ;;54868310706
 ;;9002226.02101,"1033,54868310707 ",.01)
 ;;54868310707
 ;;9002226.02101,"1033,54868310707 ",.02)
 ;;54868310707
 ;;9002226.02101,"1033,54868310708 ",.01)
 ;;54868310708
 ;;9002226.02101,"1033,54868310708 ",.02)
 ;;54868310708
 ;;9002226.02101,"1033,54868310709 ",.01)
 ;;54868310709
 ;;9002226.02101,"1033,54868310709 ",.02)
 ;;54868310709
 ;;9002226.02101,"1033,54868310900 ",.01)
 ;;54868310900
 ;;9002226.02101,"1033,54868310900 ",.02)
 ;;54868310900
 ;;9002226.02101,"1033,54868310901 ",.01)
 ;;54868310901
 ;;9002226.02101,"1033,54868310901 ",.02)
 ;;54868310901
 ;;9002226.02101,"1033,54868310902 ",.01)
 ;;54868310902
 ;;9002226.02101,"1033,54868310902 ",.02)
 ;;54868310902
 ;;9002226.02101,"1033,54868310903 ",.01)
 ;;54868310903
 ;;9002226.02101,"1033,54868310903 ",.02)
 ;;54868310903
 ;;9002226.02101,"1033,54868310904 ",.01)
 ;;54868310904
 ;;9002226.02101,"1033,54868310904 ",.02)
 ;;54868310904
 ;;9002226.02101,"1033,54868310905 ",.01)
 ;;54868310905
 ;;9002226.02101,"1033,54868310905 ",.02)
 ;;54868310905
 ;;9002226.02101,"1033,54868310906 ",.01)
 ;;54868310906
 ;;9002226.02101,"1033,54868310906 ",.02)
 ;;54868310906
 ;;9002226.02101,"1033,54868310907 ",.01)
 ;;54868310907
 ;;9002226.02101,"1033,54868310907 ",.02)
 ;;54868310907
 ;;9002226.02101,"1033,54868310908 ",.01)
 ;;54868310908
 ;;9002226.02101,"1033,54868310908 ",.02)
 ;;54868310908
 ;;9002226.02101,"1033,54868310909 ",.01)
 ;;54868310909
 ;;9002226.02101,"1033,54868310909 ",.02)
 ;;54868310909
 ;;9002226.02101,"1033,54868311100 ",.01)
 ;;54868311100
 ;;9002226.02101,"1033,54868311100 ",.02)
 ;;54868311100
 ;;9002226.02101,"1033,54868311101 ",.01)
 ;;54868311101
 ;;9002226.02101,"1033,54868311101 ",.02)
 ;;54868311101