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

BGP2VF56.m

Go to the documentation of this file.
BGP2VF56 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"798,65580-0302-03 ",.01)
 ;;65580-0302-03
 ;;9002226.02101,"798,65580-0302-03 ",.02)
 ;;65580-0302-03
 ;;9002226.02101,"798,65580-0302-09 ",.01)
 ;;65580-0302-09
 ;;9002226.02101,"798,65580-0302-09 ",.02)
 ;;65580-0302-09
 ;;9002226.02101,"798,65580-0303-03 ",.01)
 ;;65580-0303-03
 ;;9002226.02101,"798,65580-0303-03 ",.02)
 ;;65580-0303-03
 ;;9002226.02101,"798,65580-0303-09 ",.01)
 ;;65580-0303-09
 ;;9002226.02101,"798,65580-0303-09 ",.02)
 ;;65580-0303-09
 ;;9002226.02101,"798,65580-0304-03 ",.01)
 ;;65580-0304-03
 ;;9002226.02101,"798,65580-0304-03 ",.02)
 ;;65580-0304-03
 ;;9002226.02101,"798,65580-0304-09 ",.01)
 ;;65580-0304-09
 ;;9002226.02101,"798,65580-0304-09 ",.02)
 ;;65580-0304-09
 ;;9002226.02101,"798,65862-0001-01 ",.01)
 ;;65862-0001-01
 ;;9002226.02101,"798,65862-0001-01 ",.02)
 ;;65862-0001-01
 ;;9002226.02101,"798,65862-0001-05 ",.01)
 ;;65862-0001-05
 ;;9002226.02101,"798,65862-0001-05 ",.02)
 ;;65862-0001-05
 ;;9002226.02101,"798,65862-0001-30 ",.01)
 ;;65862-0001-30
 ;;9002226.02101,"798,65862-0001-30 ",.02)
 ;;65862-0001-30
 ;;9002226.02101,"798,65862-0003-01 ",.01)
 ;;65862-0003-01
 ;;9002226.02101,"798,65862-0003-01 ",.02)
 ;;65862-0003-01
 ;;9002226.02101,"798,65862-0003-03 ",.01)
 ;;65862-0003-03
 ;;9002226.02101,"798,65862-0003-03 ",.02)
 ;;65862-0003-03
 ;;9002226.02101,"798,65862-0003-05 ",.01)
 ;;65862-0003-05
 ;;9002226.02101,"798,65862-0003-05 ",.02)
 ;;65862-0003-05
 ;;9002226.02101,"798,65862-0003-30 ",.01)
 ;;65862-0003-30
 ;;9002226.02101,"798,65862-0003-30 ",.02)
 ;;65862-0003-30
 ;;9002226.02101,"798,65862-0003-90 ",.01)
 ;;65862-0003-90
 ;;9002226.02101,"798,65862-0003-90 ",.02)
 ;;65862-0003-90
 ;;9002226.02101,"798,65862-0005-01 ",.01)
 ;;65862-0005-01
 ;;9002226.02101,"798,65862-0005-01 ",.02)
 ;;65862-0005-01
 ;;9002226.02101,"798,65862-0005-05 ",.01)
 ;;65862-0005-05
 ;;9002226.02101,"798,65862-0005-05 ",.02)
 ;;65862-0005-05
 ;;9002226.02101,"798,65862-0005-30 ",.01)
 ;;65862-0005-30
 ;;9002226.02101,"798,65862-0005-30 ",.02)
 ;;65862-0005-30
 ;;9002226.02101,"798,65862-0006-01 ",.01)
 ;;65862-0006-01
 ;;9002226.02101,"798,65862-0006-01 ",.02)
 ;;65862-0006-01
 ;;9002226.02101,"798,65862-0006-05 ",.01)
 ;;65862-0006-05
 ;;9002226.02101,"798,65862-0006-05 ",.02)
 ;;65862-0006-05
 ;;9002226.02101,"798,65862-0006-30 ",.01)
 ;;65862-0006-30
 ;;9002226.02101,"798,65862-0006-30 ",.02)
 ;;65862-0006-30
 ;;9002226.02101,"798,65862-0007-01 ",.01)
 ;;65862-0007-01
 ;;9002226.02101,"798,65862-0007-01 ",.02)
 ;;65862-0007-01
 ;;9002226.02101,"798,65862-0007-05 ",.01)
 ;;65862-0007-05
 ;;9002226.02101,"798,65862-0007-05 ",.02)
 ;;65862-0007-05
 ;;9002226.02101,"798,65862-0007-30 ",.01)
 ;;65862-0007-30
 ;;9002226.02101,"798,65862-0007-30 ",.02)
 ;;65862-0007-30
 ;;9002226.02101,"798,65862-0011-01 ",.01)
 ;;65862-0011-01
 ;;9002226.02101,"798,65862-0011-01 ",.02)
 ;;65862-0011-01
 ;;9002226.02101,"798,65862-0011-05 ",.01)
 ;;65862-0011-05
 ;;9002226.02101,"798,65862-0011-05 ",.02)
 ;;65862-0011-05
 ;;9002226.02101,"798,65862-0011-30 ",.01)
 ;;65862-0011-30
 ;;9002226.02101,"798,65862-0011-30 ",.02)
 ;;65862-0011-30
 ;;9002226.02101,"798,65862-0011-90 ",.01)
 ;;65862-0011-90
 ;;9002226.02101,"798,65862-0011-90 ",.02)
 ;;65862-0011-90
 ;;9002226.02101,"798,65862-0012-01 ",.01)
 ;;65862-0012-01
 ;;9002226.02101,"798,65862-0012-01 ",.02)
 ;;65862-0012-01
 ;;9002226.02101,"798,65862-0012-05 ",.01)
 ;;65862-0012-05
 ;;9002226.02101,"798,65862-0012-05 ",.02)
 ;;65862-0012-05
 ;;9002226.02101,"798,65862-0012-30 ",.01)
 ;;65862-0012-30
 ;;9002226.02101,"798,65862-0012-30 ",.02)
 ;;65862-0012-30
 ;;9002226.02101,"798,65862-0012-90 ",.01)
 ;;65862-0012-90
 ;;9002226.02101,"798,65862-0012-90 ",.02)
 ;;65862-0012-90
 ;;9002226.02101,"798,65862-0013-01 ",.01)
 ;;65862-0013-01
 ;;9002226.02101,"798,65862-0013-01 ",.02)
 ;;65862-0013-01
 ;;9002226.02101,"798,65862-0013-05 ",.01)
 ;;65862-0013-05
 ;;9002226.02101,"798,65862-0013-05 ",.02)
 ;;65862-0013-05
 ;;9002226.02101,"798,65862-0013-30 ",.01)
 ;;65862-0013-30
 ;;9002226.02101,"798,65862-0013-30 ",.02)
 ;;65862-0013-30
 ;;9002226.02101,"798,65862-0013-90 ",.01)
 ;;65862-0013-90
 ;;9002226.02101,"798,65862-0013-90 ",.02)
 ;;65862-0013-90
 ;;9002226.02101,"798,65862-0021-06 ",.01)
 ;;65862-0021-06
 ;;9002226.02101,"798,65862-0021-06 ",.02)
 ;;65862-0021-06
 ;;9002226.02101,"798,65862-0022-06 ",.01)
 ;;65862-0022-06
 ;;9002226.02101,"798,65862-0022-06 ",.02)
 ;;65862-0022-06
 ;;9002226.02101,"798,65862-0023-06 ",.01)
 ;;65862-0023-06
 ;;9002226.02101,"798,65862-0023-06 ",.02)
 ;;65862-0023-06
 ;;9002226.02101,"798,65862-0031-01 ",.01)
 ;;65862-0031-01
 ;;9002226.02101,"798,65862-0031-01 ",.02)
 ;;65862-0031-01
 ;;9002226.02101,"798,65862-0031-03 ",.01)
 ;;65862-0031-03
 ;;9002226.02101,"798,65862-0031-03 ",.02)
 ;;65862-0031-03
 ;;9002226.02101,"798,65862-0031-05 ",.01)
 ;;65862-0031-05
 ;;9002226.02101,"798,65862-0031-05 ",.02)
 ;;65862-0031-05
 ;;9002226.02101,"798,65862-0031-30 ",.01)
 ;;65862-0031-30
 ;;9002226.02101,"798,65862-0031-30 ",.02)
 ;;65862-0031-30
 ;;9002226.02101,"798,65862-0031-90 ",.01)
 ;;65862-0031-90
 ;;9002226.02101,"798,65862-0031-90 ",.02)
 ;;65862-0031-90
 ;;9002226.02101,"798,65862-0032-01 ",.01)
 ;;65862-0032-01
 ;;9002226.02101,"798,65862-0032-01 ",.02)
 ;;65862-0032-01
 ;;9002226.02101,"798,65862-0032-03 ",.01)
 ;;65862-0032-03
 ;;9002226.02101,"798,65862-0032-03 ",.02)
 ;;65862-0032-03
 ;;9002226.02101,"798,65862-0032-05 ",.01)
 ;;65862-0032-05
 ;;9002226.02101,"798,65862-0032-05 ",.02)
 ;;65862-0032-05
 ;;9002226.02101,"798,65862-0032-30 ",.01)
 ;;65862-0032-30
 ;;9002226.02101,"798,65862-0032-30 ",.02)
 ;;65862-0032-30
 ;;9002226.02101,"798,65862-0032-90 ",.01)
 ;;65862-0032-90
 ;;9002226.02101,"798,65862-0032-90 ",.02)
 ;;65862-0032-90
 ;;9002226.02101,"798,65862-0074-24 ",.01)
 ;;65862-0074-24
 ;;9002226.02101,"798,65862-0074-24 ",.02)
 ;;65862-0074-24
 ;;9002226.02101,"798,65862-0154-30 ",.01)
 ;;65862-0154-30
 ;;9002226.02101,"798,65862-0154-30 ",.02)
 ;;65862-0154-30
 ;;9002226.02101,"798,65862-0155-05 ",.01)
 ;;65862-0155-05
 ;;9002226.02101,"798,65862-0155-05 ",.02)
 ;;65862-0155-05
 ;;9002226.02101,"798,65862-0155-30 ",.01)
 ;;65862-0155-30
 ;;9002226.02101,"798,65862-0155-30 ",.02)
 ;;65862-0155-30
 ;;9002226.02101,"798,65862-0155-99 ",.01)
 ;;65862-0155-99
 ;;9002226.02101,"798,65862-0155-99 ",.02)
 ;;65862-0155-99
 ;;9002226.02101,"798,65862-0156-30 ",.01)
 ;;65862-0156-30
 ;;9002226.02101,"798,65862-0156-30 ",.02)
 ;;65862-0156-30
 ;;9002226.02101,"798,65862-0156-99 ",.01)
 ;;65862-0156-99
 ;;9002226.02101,"798,65862-0156-99 ",.02)
 ;;65862-0156-99
 ;;9002226.02101,"798,65862-0157-30 ",.01)
 ;;65862-0157-30
 ;;9002226.02101,"798,65862-0157-30 ",.02)
 ;;65862-0157-30
 ;;9002226.02101,"798,65862-0157-99 ",.01)
 ;;65862-0157-99
 ;;9002226.02101,"798,65862-0157-99 ",.02)
 ;;65862-0157-99
 ;;9002226.02101,"798,65862-0192-01 ",.01)
 ;;65862-0192-01
 ;;9002226.02101,"798,65862-0192-01 ",.02)
 ;;65862-0192-01
 ;;9002226.02101,"798,65862-0192-05 ",.01)
 ;;65862-0192-05
 ;;9002226.02101,"798,65862-0192-05 ",.02)
 ;;65862-0192-05
 ;;9002226.02101,"798,65862-0192-99 ",.01)
 ;;65862-0192-99
 ;;9002226.02101,"798,65862-0192-99 ",.02)
 ;;65862-0192-99
 ;;9002226.02101,"798,65862-0193-01 ",.01)
 ;;65862-0193-01
 ;;9002226.02101,"798,65862-0193-01 ",.02)
 ;;65862-0193-01
 ;;9002226.02101,"798,65862-0193-05 ",.01)
 ;;65862-0193-05
 ;;9002226.02101,"798,65862-0193-05 ",.02)
 ;;65862-0193-05
 ;;9002226.02101,"798,65862-0193-99 ",.01)
 ;;65862-0193-99
 ;;9002226.02101,"798,65862-0193-99 ",.02)
 ;;65862-0193-99
 ;;9002226.02101,"798,65862-0194-01 ",.01)
 ;;65862-0194-01
 ;;9002226.02101,"798,65862-0194-01 ",.02)
 ;;65862-0194-01
 ;;9002226.02101,"798,65862-0194-30 ",.01)
 ;;65862-0194-30
 ;;9002226.02101,"798,65862-0194-30 ",.02)
 ;;65862-0194-30
 ;;9002226.02101,"798,65862-0527-30 ",.01)
 ;;65862-0527-30
 ;;9002226.02101,"798,65862-0527-30 ",.02)
 ;;65862-0527-30
 ;;9002226.02101,"798,65862-0528-30 ",.01)
 ;;65862-0528-30
 ;;9002226.02101,"798,65862-0528-30 ",.02)
 ;;65862-0528-30
 ;;9002226.02101,"798,65862-0529-30 ",.01)
 ;;65862-0529-30
 ;;9002226.02101,"798,65862-0529-30 ",.02)
 ;;65862-0529-30
 ;;9002226.02101,"798,66105-0111-10 ",.01)
 ;;66105-0111-10
 ;;9002226.02101,"798,66105-0111-10 ",.02)
 ;;66105-0111-10
 ;;9002226.02101,"798,66105-0112-01 ",.01)
 ;;66105-0112-01
 ;;9002226.02101,"798,66105-0112-01 ",.02)
 ;;66105-0112-01
 ;;9002226.02101,"798,66105-0112-03 ",.01)
 ;;66105-0112-03
 ;;9002226.02101,"798,66105-0112-03 ",.02)
 ;;66105-0112-03
 ;;9002226.02101,"798,66105-0112-06 ",.01)
 ;;66105-0112-06
 ;;9002226.02101,"798,66105-0112-06 ",.02)
 ;;66105-0112-06
 ;;9002226.02101,"798,66105-0112-10 ",.01)
 ;;66105-0112-10
 ;;9002226.02101,"798,66105-0112-10 ",.02)
 ;;66105-0112-10
 ;;9002226.02101,"798,66105-0112-15 ",.01)
 ;;66105-0112-15
 ;;9002226.02101,"798,66105-0112-15 ",.02)
 ;;66105-0112-15
 ;;9002226.02101,"798,66105-0116-03 ",.01)
 ;;66105-0116-03
 ;;9002226.02101,"798,66105-0116-03 ",.02)
 ;;66105-0116-03
 ;;9002226.02101,"798,66105-0117-03 ",.01)
 ;;66105-0117-03
 ;;9002226.02101,"798,66105-0117-03 ",.02)
 ;;66105-0117-03
 ;;9002226.02101,"798,66105-0118-10 ",.01)
 ;;66105-0118-10
 ;;9002226.02101,"798,66105-0118-10 ",.02)
 ;;66105-0118-10
 ;;9002226.02101,"798,66105-0480-01 ",.01)
 ;;66105-0480-01
 ;;9002226.02101,"798,66105-0480-01 ",.02)
 ;;66105-0480-01
 ;;9002226.02101,"798,66105-0480-02 ",.01)
 ;;66105-0480-02
 ;;9002226.02101,"798,66105-0480-02 ",.02)
 ;;66105-0480-02
 ;;9002226.02101,"798,66105-0480-03 ",.01)
 ;;66105-0480-03
 ;;9002226.02101,"798,66105-0480-03 ",.02)
 ;;66105-0480-03
 ;;9002226.02101,"798,66105-0480-06 ",.01)
 ;;66105-0480-06
 ;;9002226.02101,"798,66105-0480-06 ",.02)
 ;;66105-0480-06
 ;;9002226.02101,"798,66105-0480-15 ",.01)
 ;;66105-0480-15
 ;;9002226.02101,"798,66105-0480-15 ",.02)
 ;;66105-0480-15
 ;;9002226.02101,"798,66105-0481-01 ",.01)
 ;;66105-0481-01
 ;;9002226.02101,"798,66105-0481-01 ",.02)
 ;;66105-0481-01
 ;;9002226.02101,"798,66105-0481-02 ",.01)
 ;;66105-0481-02
 ;;9002226.02101,"798,66105-0481-02 ",.02)
 ;;66105-0481-02
 ;;9002226.02101,"798,66105-0481-03 ",.01)
 ;;66105-0481-03
 ;;9002226.02101,"798,66105-0481-03 ",.02)
 ;;66105-0481-03
 ;;9002226.02101,"798,66105-0481-06 ",.01)
 ;;66105-0481-06
 ;;9002226.02101,"798,66105-0481-06 ",.02)
 ;;66105-0481-06
 ;;9002226.02101,"798,66105-0481-15 ",.01)
 ;;66105-0481-15
 ;;9002226.02101,"798,66105-0481-15 ",.02)
 ;;66105-0481-15
 ;;9002226.02101,"798,66105-0550-03 ",.01)
 ;;66105-0550-03
 ;;9002226.02101,"798,66105-0550-03 ",.02)
 ;;66105-0550-03
 ;;9002226.02101,"798,66105-0564-03 ",.01)
 ;;66105-0564-03
 ;;9002226.02101,"798,66105-0564-03 ",.02)
 ;;66105-0564-03
 ;;9002226.02101,"798,66105-0969-03 ",.01)
 ;;66105-0969-03
 ;;9002226.02101,"798,66105-0969-03 ",.02)
 ;;66105-0969-03
 ;;9002226.02101,"798,66105-0977-03 ",.01)
 ;;66105-0977-03
 ;;9002226.02101,"798,66105-0977-03 ",.02)
 ;;66105-0977-03
 ;;9002226.02101,"798,66267-0018-30 ",.01)
 ;;66267-0018-30
 ;;9002226.02101,"798,66267-0018-30 ",.02)
 ;;66267-0018-30
 ;;9002226.02101,"798,66267-0018-60 ",.01)
 ;;66267-0018-60
 ;;9002226.02101,"798,66267-0018-60 ",.02)
 ;;66267-0018-60
 ;;9002226.02101,"798,66267-0018-90 ",.01)
 ;;66267-0018-90
 ;;9002226.02101,"798,66267-0018-90 ",.02)
 ;;66267-0018-90
 ;;9002226.02101,"798,66267-0019-14 ",.01)
 ;;66267-0019-14
 ;;9002226.02101,"798,66267-0019-14 ",.02)
 ;;66267-0019-14
 ;;9002226.02101,"798,66267-0019-90 ",.01)
 ;;66267-0019-90
 ;;9002226.02101,"798,66267-0019-90 ",.02)
 ;;66267-0019-90
 ;;9002226.02101,"798,66267-0205-30 ",.01)
 ;;66267-0205-30
 ;;9002226.02101,"798,66267-0205-30 ",.02)
 ;;66267-0205-30
 ;;9002226.02101,"798,66267-0205-60 ",.01)
 ;;66267-0205-60
 ;;9002226.02101,"798,66267-0205-60 ",.02)
 ;;66267-0205-60
 ;;9002226.02101,"798,66267-0392-30 ",.01)
 ;;66267-0392-30
 ;;9002226.02101,"798,66267-0392-30 ",.02)
 ;;66267-0392-30
 ;;9002226.02101,"798,66267-0392-60 ",.01)
 ;;66267-0392-60
 ;;9002226.02101,"798,66267-0392-60 ",.02)
 ;;66267-0392-60
 ;;9002226.02101,"798,66267-0483-30 ",.01)
 ;;66267-0483-30
 ;;9002226.02101,"798,66267-0483-30 ",.02)
 ;;66267-0483-30
 ;;9002226.02101,"798,66267-0483-45 ",.01)
 ;;66267-0483-45
 ;;9002226.02101,"798,66267-0483-45 ",.02)
 ;;66267-0483-45
 ;;9002226.02101,"798,66267-0483-60 ",.01)
 ;;66267-0483-60
 ;;9002226.02101,"798,66267-0483-60 ",.02)
 ;;66267-0483-60
 ;;9002226.02101,"798,66267-0484-30 ",.01)
 ;;66267-0484-30
 ;;9002226.02101,"798,66267-0484-30 ",.02)
 ;;66267-0484-30
 ;;9002226.02101,"798,66267-0484-45 ",.01)
 ;;66267-0484-45
 ;;9002226.02101,"798,66267-0484-45 ",.02)
 ;;66267-0484-45
 ;;9002226.02101,"798,66267-0484-60 ",.01)
 ;;66267-0484-60
 ;;9002226.02101,"798,66267-0484-60 ",.02)
 ;;66267-0484-60
 ;;9002226.02101,"798,66267-0488-30 ",.01)
 ;;66267-0488-30
 ;;9002226.02101,"798,66267-0488-30 ",.02)
 ;;66267-0488-30
 ;;9002226.02101,"798,66267-0488-60 ",.01)
 ;;66267-0488-60
 ;;9002226.02101,"798,66267-0488-60 ",.02)
 ;;66267-0488-60
 ;;9002226.02101,"798,66267-0488-90 ",.01)
 ;;66267-0488-90
 ;;9002226.02101,"798,66267-0488-90 ",.02)
 ;;66267-0488-90
 ;;9002226.02101,"798,66267-0560-90 ",.01)
 ;;66267-0560-90
 ;;9002226.02101,"798,66267-0560-90 ",.02)
 ;;66267-0560-90
 ;;9002226.02101,"798,66267-0576-30 ",.01)
 ;;66267-0576-30
 ;;9002226.02101,"798,66267-0576-30 ",.02)
 ;;66267-0576-30