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

BGPM5AKV.m

Go to the documentation of this file.
BGPM5AKV ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"885,12843010106 ",.02)
 ;;12843010106
 ;;9002226.02101,"885,12843010110 ",.01)
 ;;12843010110
 ;;9002226.02101,"885,12843010110 ",.02)
 ;;12843010110
 ;;9002226.02101,"885,12843010111 ",.01)
 ;;12843010111
 ;;9002226.02101,"885,12843010111 ",.02)
 ;;12843010111
 ;;9002226.02101,"885,12843010112 ",.01)
 ;;12843010112
 ;;9002226.02101,"885,12843010112 ",.02)
 ;;12843010112
 ;;9002226.02101,"885,12843010113 ",.01)
 ;;12843010113
 ;;9002226.02101,"885,12843010113 ",.02)
 ;;12843010113
 ;;9002226.02101,"885,12843010117 ",.01)
 ;;12843010117
 ;;9002226.02101,"885,12843010117 ",.02)
 ;;12843010117
 ;;9002226.02101,"885,12843010118 ",.01)
 ;;12843010118
 ;;9002226.02101,"885,12843010118 ",.02)
 ;;12843010118
 ;;9002226.02101,"885,12843010120 ",.01)
 ;;12843010120
 ;;9002226.02101,"885,12843010120 ",.02)
 ;;12843010120
 ;;9002226.02101,"885,12843010181 ",.01)
 ;;12843010181
 ;;9002226.02101,"885,12843010181 ",.02)
 ;;12843010181
 ;;9002226.02101,"885,12843010220 ",.01)
 ;;12843010220
 ;;9002226.02101,"885,12843010220 ",.02)
 ;;12843010220
 ;;9002226.02101,"885,12843010238 ",.01)
 ;;12843010238
 ;;9002226.02101,"885,12843010238 ",.02)
 ;;12843010238
 ;;9002226.02101,"885,12843010239 ",.01)
 ;;12843010239
 ;;9002226.02101,"885,12843010239 ",.02)
 ;;12843010239
 ;;9002226.02101,"885,12843010514 ",.01)
 ;;12843010514
 ;;9002226.02101,"885,12843010514 ",.02)
 ;;12843010514
 ;;9002226.02101,"885,12843010605 ",.01)
 ;;12843010605
 ;;9002226.02101,"885,12843010605 ",.02)
 ;;12843010605
 ;;9002226.02101,"885,12843012422 ",.01)
 ;;12843012422
 ;;9002226.02101,"885,12843012422 ",.02)
 ;;12843012422
 ;;9002226.02101,"885,12843013105 ",.01)
 ;;12843013105
 ;;9002226.02101,"885,12843013105 ",.02)
 ;;12843013105
 ;;9002226.02101,"885,12843013231 ",.01)
 ;;12843013231
 ;;9002226.02101,"885,12843013231 ",.02)
 ;;12843013231
 ;;9002226.02101,"885,12843016128 ",.01)
 ;;12843016128
 ;;9002226.02101,"885,12843016128 ",.02)
 ;;12843016128
 ;;9002226.02101,"885,12843019188 ",.01)
 ;;12843019188
 ;;9002226.02101,"885,12843019188 ",.02)
 ;;12843019188
 ;;9002226.02101,"885,12843020233 ",.01)
 ;;12843020233
 ;;9002226.02101,"885,12843020233 ",.02)
 ;;12843020233
 ;;9002226.02101,"885,12843020234 ",.01)
 ;;12843020234
 ;;9002226.02101,"885,12843020234 ",.02)
 ;;12843020234
 ;;9002226.02101,"885,12843020235 ",.01)
 ;;12843020235
 ;;9002226.02101,"885,12843020235 ",.02)
 ;;12843020235
 ;;9002226.02101,"885,12843033336 ",.01)
 ;;12843033336
 ;;9002226.02101,"885,12843033336 ",.02)
 ;;12843033336
 ;;9002226.02101,"885,12843033337 ",.01)
 ;;12843033337
 ;;9002226.02101,"885,12843033337 ",.02)
 ;;12843033337
 ;;9002226.02101,"885,12843053636 ",.01)
 ;;12843053636
 ;;9002226.02101,"885,12843053636 ",.02)
 ;;12843053636
 ;;9002226.02101,"885,12843053637 ",.01)
 ;;12843053637
 ;;9002226.02101,"885,12843053637 ",.02)
 ;;12843053637
 ;;9002226.02101,"885,12843053640 ",.01)
 ;;12843053640
 ;;9002226.02101,"885,12843053640 ",.02)
 ;;12843053640
 ;;9002226.02101,"885,12843061320 ",.01)
 ;;12843061320
 ;;9002226.02101,"885,12843061320 ",.02)
 ;;12843061320
 ;;9002226.02101,"885,13411011701 ",.01)
 ;;13411011701
 ;;9002226.02101,"885,13411011701 ",.02)
 ;;13411011701
 ;;9002226.02101,"885,13411011702 ",.01)
 ;;13411011702
 ;;9002226.02101,"885,13411011702 ",.02)
 ;;13411011702
 ;;9002226.02101,"885,13411011703 ",.01)
 ;;13411011703
 ;;9002226.02101,"885,13411011703 ",.02)
 ;;13411011703
 ;;9002226.02101,"885,13411011706 ",.01)
 ;;13411011706
 ;;9002226.02101,"885,13411011706 ",.02)
 ;;13411011706
 ;;9002226.02101,"885,13411011709 ",.01)
 ;;13411011709
 ;;9002226.02101,"885,13411011709 ",.02)
 ;;13411011709
 ;;9002226.02101,"885,15127001105 ",.01)
 ;;15127001105
 ;;9002226.02101,"885,15127001105 ",.02)
 ;;15127001105
 ;;9002226.02101,"885,15127012020 ",.01)
 ;;15127012020
 ;;9002226.02101,"885,15127012020 ",.02)
 ;;15127012020
 ;;9002226.02101,"885,15127022894 ",.01)
 ;;15127022894
 ;;9002226.02101,"885,15127022894 ",.02)
 ;;15127022894
 ;;9002226.02101,"885,15127024136 ",.01)
 ;;15127024136
 ;;9002226.02101,"885,15127024136 ",.02)
 ;;15127024136
 ;;9002226.02101,"885,15127073801 ",.01)
 ;;15127073801
 ;;9002226.02101,"885,15127073801 ",.02)
 ;;15127073801
 ;;9002226.02101,"885,15127073805 ",.01)
 ;;15127073805
 ;;9002226.02101,"885,15127073805 ",.02)
 ;;15127073805
 ;;9002226.02101,"885,15127073809 ",.01)
 ;;15127073809
 ;;9002226.02101,"885,15127073809 ",.02)
 ;;15127073809
 ;;9002226.02101,"885,15127073810 ",.01)
 ;;15127073810
 ;;9002226.02101,"885,15127073810 ",.02)
 ;;15127073810
 ;;9002226.02101,"885,15127073821 ",.01)
 ;;15127073821
 ;;9002226.02101,"885,15127073821 ",.02)
 ;;15127073821
 ;;9002226.02101,"885,15127076008 ",.01)
 ;;15127076008
 ;;9002226.02101,"885,15127076008 ",.02)
 ;;15127076008
 ;;9002226.02101,"885,15127085708 ",.01)
 ;;15127085708
 ;;9002226.02101,"885,15127085708 ",.02)
 ;;15127085708
 ;;9002226.02101,"885,15127087436 ",.01)
 ;;15127087436
 ;;9002226.02101,"885,15127087436 ",.02)
 ;;15127087436
 ;;9002226.02101,"885,16590028830 ",.01)
 ;;16590028830
 ;;9002226.02101,"885,16590028830 ",.02)
 ;;16590028830
 ;;9002226.02101,"885,16590028860 ",.01)
 ;;16590028860
 ;;9002226.02101,"885,16590028860 ",.02)
 ;;16590028860
 ;;9002226.02101,"885,16590028890 ",.01)
 ;;16590028890
 ;;9002226.02101,"885,16590028890 ",.02)
 ;;16590028890
 ;;9002226.02101,"885,16590091130 ",.01)
 ;;16590091130
 ;;9002226.02101,"885,16590091130 ",.02)
 ;;16590091130
 ;;9002226.02101,"885,16590091160 ",.01)
 ;;16590091160
 ;;9002226.02101,"885,16590091160 ",.02)
 ;;16590091160
 ;;9002226.02101,"885,16590091172 ",.01)
 ;;16590091172
 ;;9002226.02101,"885,16590091172 ",.02)
 ;;16590091172
 ;;9002226.02101,"885,16590091190 ",.01)
 ;;16590091190
 ;;9002226.02101,"885,16590091190 ",.02)
 ;;16590091190
 ;;9002226.02101,"885,17714000936 ",.01)
 ;;17714000936
 ;;9002226.02101,"885,17714000936 ",.02)
 ;;17714000936
 ;;9002226.02101,"885,17714001001 ",.01)
 ;;17714001001
 ;;9002226.02101,"885,17714001001 ",.02)
 ;;17714001001
 ;;9002226.02101,"885,17714001010 ",.01)
 ;;17714001010
 ;;9002226.02101,"885,17714001010 ",.02)
 ;;17714001010
 ;;9002226.02101,"885,17714001101 ",.01)
 ;;17714001101
 ;;9002226.02101,"885,17714001101 ",.02)
 ;;17714001101
 ;;9002226.02101,"885,17714001110 ",.01)
 ;;17714001110
 ;;9002226.02101,"885,17714001110 ",.02)
 ;;17714001110
 ;;9002226.02101,"885,17856044420 ",.01)
 ;;17856044420
 ;;9002226.02101,"885,17856044420 ",.02)
 ;;17856044420
 ;;9002226.02101,"885,19458500101 ",.01)
 ;;19458500101
 ;;9002226.02101,"885,19458500101 ",.02)
 ;;19458500101
 ;;9002226.02101,"885,19458500102 ",.01)
 ;;19458500102
 ;;9002226.02101,"885,19458500102 ",.02)
 ;;19458500102
 ;;9002226.02101,"885,19458500201 ",.01)
 ;;19458500201
 ;;9002226.02101,"885,19458500201 ",.02)
 ;;19458500201
 ;;9002226.02101,"885,19458500301 ",.01)
 ;;19458500301
 ;;9002226.02101,"885,19458500301 ",.02)
 ;;19458500301
 ;;9002226.02101,"885,19458500801 ",.01)
 ;;19458500801
 ;;9002226.02101,"885,19458500801 ",.02)
 ;;19458500801
 ;;9002226.02101,"885,19810000022 ",.01)
 ;;19810000022
 ;;9002226.02101,"885,19810000022 ",.02)
 ;;19810000022
 ;;9002226.02101,"885,19810000023 ",.01)
 ;;19810000023
 ;;9002226.02101,"885,19810000023 ",.02)
 ;;19810000023
 ;;9002226.02101,"885,19810000028 ",.01)
 ;;19810000028
 ;;9002226.02101,"885,19810000028 ",.02)
 ;;19810000028
 ;;9002226.02101,"885,19810000165 ",.01)
 ;;19810000165
 ;;9002226.02101,"885,19810000165 ",.02)
 ;;19810000165
 ;;9002226.02101,"885,19810000166 ",.01)
 ;;19810000166
 ;;9002226.02101,"885,19810000166 ",.02)
 ;;19810000166
 ;;9002226.02101,"885,19810000201 ",.01)
 ;;19810000201
 ;;9002226.02101,"885,19810000201 ",.02)
 ;;19810000201
 ;;9002226.02101,"885,19810000202 ",.01)
 ;;19810000202
 ;;9002226.02101,"885,19810000202 ",.02)
 ;;19810000202
 ;;9002226.02101,"885,19810000203 ",.01)
 ;;19810000203
 ;;9002226.02101,"885,19810000203 ",.02)
 ;;19810000203
 ;;9002226.02101,"885,19810000210 ",.01)
 ;;19810000210
 ;;9002226.02101,"885,19810000210 ",.02)
 ;;19810000210
 ;;9002226.02101,"885,19810000220 ",.01)
 ;;19810000220
 ;;9002226.02101,"885,19810000220 ",.02)
 ;;19810000220
 ;;9002226.02101,"885,19810000230 ",.01)
 ;;19810000230
 ;;9002226.02101,"885,19810000230 ",.02)
 ;;19810000230
 ;;9002226.02101,"885,19810000298 ",.01)
 ;;19810000298
 ;;9002226.02101,"885,19810000298 ",.02)
 ;;19810000298
 ;;9002226.02101,"885,19810000525 ",.01)
 ;;19810000525
 ;;9002226.02101,"885,19810000525 ",.02)
 ;;19810000525
 ;;9002226.02101,"885,19810000526 ",.01)
 ;;19810000526
 ;;9002226.02101,"885,19810000526 ",.02)
 ;;19810000526
 ;;9002226.02101,"885,19810000527 ",.01)
 ;;19810000527
 ;;9002226.02101,"885,19810000527 ",.02)
 ;;19810000527
 ;;9002226.02101,"885,19810000734 ",.01)
 ;;19810000734
 ;;9002226.02101,"885,19810000734 ",.02)
 ;;19810000734
 ;;9002226.02101,"885,19810000735 ",.01)
 ;;19810000735
 ;;9002226.02101,"885,19810000735 ",.02)
 ;;19810000735
 ;;9002226.02101,"885,19810000738 ",.01)
 ;;19810000738
 ;;9002226.02101,"885,19810000738 ",.02)
 ;;19810000738
 ;;9002226.02101,"885,19810000741 ",.01)
 ;;19810000741
 ;;9002226.02101,"885,19810000741 ",.02)
 ;;19810000741
 ;;9002226.02101,"885,19810000743 ",.01)
 ;;19810000743
 ;;9002226.02101,"885,19810000743 ",.02)
 ;;19810000743
 ;;9002226.02101,"885,19810000744 ",.01)
 ;;19810000744
 ;;9002226.02101,"885,19810000744 ",.02)
 ;;19810000744
 ;;9002226.02101,"885,19810000790 ",.01)
 ;;19810000790
 ;;9002226.02101,"885,19810000790 ",.02)
 ;;19810000790
 ;;9002226.02101,"885,19810000808 ",.01)
 ;;19810000808
 ;;9002226.02101,"885,19810000808 ",.02)
 ;;19810000808
 ;;9002226.02101,"885,19810000809 ",.01)
 ;;19810000809
 ;;9002226.02101,"885,19810000809 ",.02)
 ;;19810000809
 ;;9002226.02101,"885,19810000863 ",.01)
 ;;19810000863
 ;;9002226.02101,"885,19810000863 ",.02)
 ;;19810000863
 ;;9002226.02101,"885,19810000865 ",.01)
 ;;19810000865
 ;;9002226.02101,"885,19810000865 ",.02)
 ;;19810000865
 ;;9002226.02101,"885,19810000866 ",.01)
 ;;19810000866
 ;;9002226.02101,"885,19810000866 ",.02)
 ;;19810000866
 ;;9002226.02101,"885,19810001601 ",.01)
 ;;19810001601
 ;;9002226.02101,"885,19810001601 ",.02)
 ;;19810001601
 ;;9002226.02101,"885,19810001603 ",.01)
 ;;19810001603
 ;;9002226.02101,"885,19810001603 ",.02)
 ;;19810001603
 ;;9002226.02101,"885,19810001605 ",.01)
 ;;19810001605
 ;;9002226.02101,"885,19810001605 ",.02)
 ;;19810001605
 ;;9002226.02101,"885,19810001606 ",.01)
 ;;19810001606
 ;;9002226.02101,"885,19810001606 ",.02)
 ;;19810001606
 ;;9002226.02101,"885,19810001610 ",.01)
 ;;19810001610
 ;;9002226.02101,"885,19810001610 ",.02)
 ;;19810001610
 ;;9002226.02101,"885,19810001630 ",.01)
 ;;19810001630
 ;;9002226.02101,"885,19810001630 ",.02)
 ;;19810001630
 ;;9002226.02101,"885,19810001650 ",.01)
 ;;19810001650
 ;;9002226.02101,"885,19810001650 ",.02)
 ;;19810001650
 ;;9002226.02101,"885,19810001660 ",.01)
 ;;19810001660
 ;;9002226.02101,"885,19810001660 ",.02)
 ;;19810001660
 ;;9002226.02101,"885,19810002906 ",.01)
 ;;19810002906
 ;;9002226.02101,"885,19810002906 ",.02)
 ;;19810002906
 ;;9002226.02101,"885,19810002907 ",.01)
 ;;19810002907
 ;;9002226.02101,"885,19810002907 ",.02)
 ;;19810002907
 ;;9002226.02101,"885,19810005207 ",.01)
 ;;19810005207
 ;;9002226.02101,"885,19810005207 ",.02)
 ;;19810005207
 ;;9002226.02101,"885,19810005406 ",.01)
 ;;19810005406
 ;;9002226.02101,"885,19810005406 ",.02)
 ;;19810005406
 ;;9002226.02101,"885,19810005702 ",.01)
 ;;19810005702