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

BGP2VK7.m

Go to the documentation of this file.
BGP2VK7 ;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,"723,35356-0150-30 ",.01)
 ;;35356-0150-30
 ;;9002226.02101,"723,35356-0150-30 ",.02)
 ;;35356-0150-30
 ;;9002226.02101,"723,35356-0150-90 ",.01)
 ;;35356-0150-90
 ;;9002226.02101,"723,35356-0150-90 ",.02)
 ;;35356-0150-90
 ;;9002226.02101,"723,35356-0151-30 ",.01)
 ;;35356-0151-30
 ;;9002226.02101,"723,35356-0151-30 ",.02)
 ;;35356-0151-30
 ;;9002226.02101,"723,35356-0151-90 ",.01)
 ;;35356-0151-90
 ;;9002226.02101,"723,35356-0151-90 ",.02)
 ;;35356-0151-90
 ;;9002226.02101,"723,35356-0152-30 ",.01)
 ;;35356-0152-30
 ;;9002226.02101,"723,35356-0152-30 ",.02)
 ;;35356-0152-30
 ;;9002226.02101,"723,35356-0152-90 ",.01)
 ;;35356-0152-90
 ;;9002226.02101,"723,35356-0152-90 ",.02)
 ;;35356-0152-90
 ;;9002226.02101,"723,35356-0153-30 ",.01)
 ;;35356-0153-30
 ;;9002226.02101,"723,35356-0153-30 ",.02)
 ;;35356-0153-30
 ;;9002226.02101,"723,35356-0153-90 ",.01)
 ;;35356-0153-90
 ;;9002226.02101,"723,35356-0153-90 ",.02)
 ;;35356-0153-90
 ;;9002226.02101,"723,35356-0154-30 ",.01)
 ;;35356-0154-30
 ;;9002226.02101,"723,35356-0154-30 ",.02)
 ;;35356-0154-30
 ;;9002226.02101,"723,35356-0154-90 ",.01)
 ;;35356-0154-90
 ;;9002226.02101,"723,35356-0154-90 ",.02)
 ;;35356-0154-90
 ;;9002226.02101,"723,35356-0158-30 ",.01)
 ;;35356-0158-30
 ;;9002226.02101,"723,35356-0158-30 ",.02)
 ;;35356-0158-30
 ;;9002226.02101,"723,35356-0158-90 ",.01)
 ;;35356-0158-90
 ;;9002226.02101,"723,35356-0158-90 ",.02)
 ;;35356-0158-90
 ;;9002226.02101,"723,35356-0159-30 ",.01)
 ;;35356-0159-30
 ;;9002226.02101,"723,35356-0159-30 ",.02)
 ;;35356-0159-30
 ;;9002226.02101,"723,35356-0159-90 ",.01)
 ;;35356-0159-90
 ;;9002226.02101,"723,35356-0159-90 ",.02)
 ;;35356-0159-90
 ;;9002226.02101,"723,35356-0160-30 ",.01)
 ;;35356-0160-30
 ;;9002226.02101,"723,35356-0160-30 ",.02)
 ;;35356-0160-30
 ;;9002226.02101,"723,35356-0160-90 ",.01)
 ;;35356-0160-90
 ;;9002226.02101,"723,35356-0160-90 ",.02)
 ;;35356-0160-90
 ;;9002226.02101,"723,35356-0165-30 ",.01)
 ;;35356-0165-30
 ;;9002226.02101,"723,35356-0165-30 ",.02)
 ;;35356-0165-30
 ;;9002226.02101,"723,35356-0165-90 ",.01)
 ;;35356-0165-90
 ;;9002226.02101,"723,35356-0165-90 ",.02)
 ;;35356-0165-90
 ;;9002226.02101,"723,49999-0003-28 ",.01)
 ;;49999-0003-28
 ;;9002226.02101,"723,49999-0003-28 ",.02)
 ;;49999-0003-28
 ;;9002226.02101,"723,49999-0360-30 ",.01)
 ;;49999-0360-30
 ;;9002226.02101,"723,49999-0360-30 ",.02)
 ;;49999-0360-30
 ;;9002226.02101,"723,49999-0361-15 ",.01)
 ;;49999-0361-15
 ;;9002226.02101,"723,49999-0361-15 ",.02)
 ;;49999-0361-15
 ;;9002226.02101,"723,49999-0361-30 ",.01)
 ;;49999-0361-30
 ;;9002226.02101,"723,49999-0361-30 ",.02)
 ;;49999-0361-30
 ;;9002226.02101,"723,49999-0405-07 ",.01)
 ;;49999-0405-07
 ;;9002226.02101,"723,49999-0405-07 ",.02)
 ;;49999-0405-07
 ;;9002226.02101,"723,49999-0405-28 ",.01)
 ;;49999-0405-28
 ;;9002226.02101,"723,49999-0405-28 ",.02)
 ;;49999-0405-28
 ;;9002226.02101,"723,49999-0405-30 ",.01)
 ;;49999-0405-30
 ;;9002226.02101,"723,49999-0405-30 ",.02)
 ;;49999-0405-30
 ;;9002226.02101,"723,49999-0457-28 ",.01)
 ;;49999-0457-28
 ;;9002226.02101,"723,49999-0457-28 ",.02)
 ;;49999-0457-28
 ;;9002226.02101,"723,49999-0517-15 ",.01)
 ;;49999-0517-15
 ;;9002226.02101,"723,49999-0517-15 ",.02)
 ;;49999-0517-15
 ;;9002226.02101,"723,49999-0517-30 ",.01)
 ;;49999-0517-30
 ;;9002226.02101,"723,49999-0517-30 ",.02)
 ;;49999-0517-30
 ;;9002226.02101,"723,49999-0517-45 ",.01)
 ;;49999-0517-45
 ;;9002226.02101,"723,49999-0517-45 ",.02)
 ;;49999-0517-45
 ;;9002226.02101,"723,49999-0517-60 ",.01)
 ;;49999-0517-60
 ;;9002226.02101,"723,49999-0517-60 ",.02)
 ;;49999-0517-60
 ;;9002226.02101,"723,49999-0724-28 ",.01)
 ;;49999-0724-28
 ;;9002226.02101,"723,49999-0724-28 ",.02)
 ;;49999-0724-28
 ;;9002226.02101,"723,49999-0724-30 ",.01)
 ;;49999-0724-30
 ;;9002226.02101,"723,49999-0724-30 ",.02)
 ;;49999-0724-30
 ;;9002226.02101,"723,49999-0724-60 ",.01)
 ;;49999-0724-60
 ;;9002226.02101,"723,49999-0724-60 ",.02)
 ;;49999-0724-60
 ;;9002226.02101,"723,49999-0842-30 ",.01)
 ;;49999-0842-30
 ;;9002226.02101,"723,49999-0842-30 ",.02)
 ;;49999-0842-30
 ;;9002226.02101,"723,49999-0843-30 ",.01)
 ;;49999-0843-30
 ;;9002226.02101,"723,49999-0843-30 ",.02)
 ;;49999-0843-30
 ;;9002226.02101,"723,49999-0844-30 ",.01)
 ;;49999-0844-30
 ;;9002226.02101,"723,49999-0844-30 ",.02)
 ;;49999-0844-30
 ;;9002226.02101,"723,49999-0925-00 ",.01)
 ;;49999-0925-00
 ;;9002226.02101,"723,49999-0925-00 ",.02)
 ;;49999-0925-00
 ;;9002226.02101,"723,50458-0585-01 ",.01)
 ;;50458-0585-01
 ;;9002226.02101,"723,50458-0585-01 ",.02)
 ;;50458-0585-01
 ;;9002226.02101,"723,50458-0586-01 ",.01)
 ;;50458-0586-01
 ;;9002226.02101,"723,50458-0586-01 ",.02)
 ;;50458-0586-01
 ;;9002226.02101,"723,50458-0587-01 ",.01)
 ;;50458-0587-01
 ;;9002226.02101,"723,50458-0587-01 ",.02)
 ;;50458-0587-01
 ;;9002226.02101,"723,50458-0588-01 ",.01)
 ;;50458-0588-01
 ;;9002226.02101,"723,50458-0588-01 ",.02)
 ;;50458-0588-01
 ;;9002226.02101,"723,51224-0101-50 ",.01)
 ;;51224-0101-50
 ;;9002226.02101,"723,51224-0101-50 ",.02)
 ;;51224-0101-50
 ;;9002226.02101,"723,51224-0101-70 ",.01)
 ;;51224-0101-70
 ;;9002226.02101,"723,51224-0101-70 ",.02)
 ;;51224-0101-70
 ;;9002226.02101,"723,51991-0712-50 ",.01)
 ;;51991-0712-50
 ;;9002226.02101,"723,51991-0712-50 ",.02)
 ;;51991-0712-50
 ;;9002226.02101,"723,51991-0713-50 ",.01)
 ;;51991-0713-50
 ;;9002226.02101,"723,51991-0713-50 ",.02)
 ;;51991-0713-50
 ;;9002226.02101,"723,52054-0512-09 ",.01)
 ;;52054-0512-09
 ;;9002226.02101,"723,52054-0512-09 ",.02)
 ;;52054-0512-09
 ;;9002226.02101,"723,52054-0513-09 ",.01)
 ;;52054-0513-09
 ;;9002226.02101,"723,52054-0513-09 ",.02)
 ;;52054-0513-09
 ;;9002226.02101,"723,52054-0514-09 ",.01)
 ;;52054-0514-09
 ;;9002226.02101,"723,52054-0514-09 ",.02)
 ;;52054-0514-09
 ;;9002226.02101,"723,52152-0159-02 ",.01)
 ;;52152-0159-02
 ;;9002226.02101,"723,52152-0159-02 ",.02)
 ;;52152-0159-02
 ;;9002226.02101,"723,52152-0159-05 ",.01)
 ;;52152-0159-05
 ;;9002226.02101,"723,52152-0159-05 ",.02)
 ;;52152-0159-05
 ;;9002226.02101,"723,52152-0160-02 ",.01)
 ;;52152-0160-02
 ;;9002226.02101,"723,52152-0160-02 ",.02)
 ;;52152-0160-02
 ;;9002226.02101,"723,52152-0160-05 ",.01)
 ;;52152-0160-05
 ;;9002226.02101,"723,52152-0160-05 ",.02)
 ;;52152-0160-05
 ;;9002226.02101,"723,52152-0167-02 ",.01)
 ;;52152-0167-02
 ;;9002226.02101,"723,52152-0167-02 ",.02)
 ;;52152-0167-02
 ;;9002226.02101,"723,52152-0167-05 ",.01)
 ;;52152-0167-05
 ;;9002226.02101,"723,52152-0167-05 ",.02)
 ;;52152-0167-05
 ;;9002226.02101,"723,52152-0170-02 ",.01)
 ;;52152-0170-02
 ;;9002226.02101,"723,52152-0170-02 ",.02)
 ;;52152-0170-02
 ;;9002226.02101,"723,52152-0170-05 ",.01)
 ;;52152-0170-05
 ;;9002226.02101,"723,52152-0170-05 ",.02)
 ;;52152-0170-05
 ;;9002226.02101,"723,52152-0173-02 ",.01)
 ;;52152-0173-02
 ;;9002226.02101,"723,52152-0173-02 ",.02)
 ;;52152-0173-02
 ;;9002226.02101,"723,52152-0173-05 ",.01)
 ;;52152-0173-05
 ;;9002226.02101,"723,52152-0173-05 ",.02)
 ;;52152-0173-05
 ;;9002226.02101,"723,52152-0327-02 ",.01)
 ;;52152-0327-02
 ;;9002226.02101,"723,52152-0327-02 ",.02)
 ;;52152-0327-02
 ;;9002226.02101,"723,52152-0327-05 ",.01)
 ;;52152-0327-05
 ;;9002226.02101,"723,52152-0327-05 ",.02)
 ;;52152-0327-05
 ;;9002226.02101,"723,52604-0010-01 ",.01)
 ;;52604-0010-01
 ;;9002226.02101,"723,52604-0010-01 ",.02)
 ;;52604-0010-01
 ;;9002226.02101,"723,52604-0470-01 ",.01)
 ;;52604-0470-01
 ;;9002226.02101,"723,52604-0470-01 ",.02)
 ;;52604-0470-01
 ;;9002226.02101,"723,52637-0030-10 ",.01)
 ;;52637-0030-10
 ;;9002226.02101,"723,52637-0030-10 ",.02)
 ;;52637-0030-10
 ;;9002226.02101,"723,52637-0035-10 ",.01)
 ;;52637-0035-10
 ;;9002226.02101,"723,52637-0035-10 ",.02)
 ;;52637-0035-10
 ;;9002226.02101,"723,52637-0036-10 ",.01)
 ;;52637-0036-10
 ;;9002226.02101,"723,52637-0036-10 ",.02)
 ;;52637-0036-10
 ;;9002226.02101,"723,52637-0051-10 ",.01)
 ;;52637-0051-10
 ;;9002226.02101,"723,52637-0051-10 ",.02)
 ;;52637-0051-10
 ;;9002226.02101,"723,52637-0052-10 ",.01)
 ;;52637-0052-10
 ;;9002226.02101,"723,52637-0052-10 ",.02)
 ;;52637-0052-10
 ;;9002226.02101,"723,52959-0150-30 ",.01)
 ;;52959-0150-30
 ;;9002226.02101,"723,52959-0150-30 ",.02)
 ;;52959-0150-30
 ;;9002226.02101,"723,52959-0150-90 ",.01)
 ;;52959-0150-90
 ;;9002226.02101,"723,52959-0150-90 ",.02)
 ;;52959-0150-90
 ;;9002226.02101,"723,52959-0282-00 ",.01)
 ;;52959-0282-00
 ;;9002226.02101,"723,52959-0282-00 ",.02)
 ;;52959-0282-00
 ;;9002226.02101,"723,52959-0282-21 ",.01)
 ;;52959-0282-21
 ;;9002226.02101,"723,52959-0282-21 ",.02)
 ;;52959-0282-21
 ;;9002226.02101,"723,52959-0282-28 ",.01)
 ;;52959-0282-28
 ;;9002226.02101,"723,52959-0282-28 ",.02)
 ;;52959-0282-28
 ;;9002226.02101,"723,52959-0282-30 ",.01)
 ;;52959-0282-30
 ;;9002226.02101,"723,52959-0282-30 ",.02)
 ;;52959-0282-30
 ;;9002226.02101,"723,52959-0282-42 ",.01)
 ;;52959-0282-42
 ;;9002226.02101,"723,52959-0282-42 ",.02)
 ;;52959-0282-42
 ;;9002226.02101,"723,52959-0282-90 ",.01)
 ;;52959-0282-90
 ;;9002226.02101,"723,52959-0282-90 ",.02)
 ;;52959-0282-90
 ;;9002226.02101,"723,52959-0329-14 ",.01)
 ;;52959-0329-14
 ;;9002226.02101,"723,52959-0329-14 ",.02)
 ;;52959-0329-14
 ;;9002226.02101,"723,52959-0329-28 ",.01)
 ;;52959-0329-28
 ;;9002226.02101,"723,52959-0329-28 ",.02)
 ;;52959-0329-28
 ;;9002226.02101,"723,52959-0329-30 ",.01)
 ;;52959-0329-30
 ;;9002226.02101,"723,52959-0329-30 ",.02)
 ;;52959-0329-30
 ;;9002226.02101,"723,52959-0329-90 ",.01)
 ;;52959-0329-90
 ;;9002226.02101,"723,52959-0329-90 ",.02)
 ;;52959-0329-90
 ;;9002226.02101,"723,52959-0418-30 ",.01)
 ;;52959-0418-30
 ;;9002226.02101,"723,52959-0418-30 ",.02)
 ;;52959-0418-30
 ;;9002226.02101,"723,52959-0426-06 ",.01)
 ;;52959-0426-06
 ;;9002226.02101,"723,52959-0426-06 ",.02)
 ;;52959-0426-06
 ;;9002226.02101,"723,52959-0426-07 ",.01)
 ;;52959-0426-07
 ;;9002226.02101,"723,52959-0426-07 ",.02)
 ;;52959-0426-07
 ;;9002226.02101,"723,52959-0426-14 ",.01)
 ;;52959-0426-14
 ;;9002226.02101,"723,52959-0426-14 ",.02)
 ;;52959-0426-14
 ;;9002226.02101,"723,52959-0426-15 ",.01)
 ;;52959-0426-15
 ;;9002226.02101,"723,52959-0426-15 ",.02)
 ;;52959-0426-15
 ;;9002226.02101,"723,52959-0426-24 ",.01)
 ;;52959-0426-24
 ;;9002226.02101,"723,52959-0426-24 ",.02)
 ;;52959-0426-24
 ;;9002226.02101,"723,52959-0426-28 ",.01)
 ;;52959-0426-28
 ;;9002226.02101,"723,52959-0426-28 ",.02)
 ;;52959-0426-28
 ;;9002226.02101,"723,52959-0426-30 ",.01)
 ;;52959-0426-30
 ;;9002226.02101,"723,52959-0426-30 ",.02)
 ;;52959-0426-30
 ;;9002226.02101,"723,52959-0426-60 ",.01)
 ;;52959-0426-60
 ;;9002226.02101,"723,52959-0426-60 ",.02)
 ;;52959-0426-60
 ;;9002226.02101,"723,52959-0432-07 ",.01)
 ;;52959-0432-07
 ;;9002226.02101,"723,52959-0432-07 ",.02)
 ;;52959-0432-07
 ;;9002226.02101,"723,52959-0432-14 ",.01)
 ;;52959-0432-14
 ;;9002226.02101,"723,52959-0432-14 ",.02)
 ;;52959-0432-14
 ;;9002226.02101,"723,52959-0432-30 ",.01)
 ;;52959-0432-30
 ;;9002226.02101,"723,52959-0432-30 ",.02)
 ;;52959-0432-30
 ;;9002226.02101,"723,52959-0440-07 ",.01)
 ;;52959-0440-07
 ;;9002226.02101,"723,52959-0440-07 ",.02)
 ;;52959-0440-07
 ;;9002226.02101,"723,52959-0440-14 ",.01)
 ;;52959-0440-14
 ;;9002226.02101,"723,52959-0440-14 ",.02)
 ;;52959-0440-14
 ;;9002226.02101,"723,52959-0440-15 ",.01)
 ;;52959-0440-15
 ;;9002226.02101,"723,52959-0440-15 ",.02)
 ;;52959-0440-15
 ;;9002226.02101,"723,52959-0440-28 ",.01)
 ;;52959-0440-28
 ;;9002226.02101,"723,52959-0440-28 ",.02)
 ;;52959-0440-28
 ;;9002226.02101,"723,52959-0440-30 ",.01)
 ;;52959-0440-30
 ;;9002226.02101,"723,52959-0440-30 ",.02)
 ;;52959-0440-30
 ;;9002226.02101,"723,52959-0628-28 ",.01)
 ;;52959-0628-28
 ;;9002226.02101,"723,52959-0628-28 ",.02)
 ;;52959-0628-28
 ;;9002226.02101,"723,52959-0628-30 ",.01)
 ;;52959-0628-30
 ;;9002226.02101,"723,52959-0628-30 ",.02)
 ;;52959-0628-30
 ;;9002226.02101,"723,52959-0812-07 ",.01)
 ;;52959-0812-07
 ;;9002226.02101,"723,52959-0812-07 ",.02)
 ;;52959-0812-07
 ;;9002226.02101,"723,52959-0812-10 ",.01)
 ;;52959-0812-10
 ;;9002226.02101,"723,52959-0812-10 ",.02)
 ;;52959-0812-10
 ;;9002226.02101,"723,52959-0812-14 ",.01)
 ;;52959-0812-14
 ;;9002226.02101,"723,52959-0812-14 ",.02)
 ;;52959-0812-14
 ;;9002226.02101,"723,52959-0812-20 ",.01)
 ;;52959-0812-20
 ;;9002226.02101,"723,52959-0812-20 ",.02)
 ;;52959-0812-20
 ;;9002226.02101,"723,52959-0812-30 ",.01)
 ;;52959-0812-30
 ;;9002226.02101,"723,52959-0812-30 ",.02)
 ;;52959-0812-30
 ;;9002226.02101,"723,52959-0812-60 ",.01)
 ;;52959-0812-60
 ;;9002226.02101,"723,52959-0812-60 ",.02)
 ;;52959-0812-60
 ;;9002226.02101,"723,52959-0812-90 ",.01)
 ;;52959-0812-90
 ;;9002226.02101,"723,52959-0812-90 ",.02)
 ;;52959-0812-90
 ;;9002226.02101,"723,52959-0886-07 ",.01)
 ;;52959-0886-07
 ;;9002226.02101,"723,52959-0886-07 ",.02)
 ;;52959-0886-07
 ;;9002226.02101,"723,52959-0886-30 ",.01)
 ;;52959-0886-30
 ;;9002226.02101,"723,52959-0886-30 ",.02)
 ;;52959-0886-30
 ;;9002226.02101,"723,53014-0530-07 ",.01)
 ;;53014-0530-07
 ;;9002226.02101,"723,53014-0530-07 ",.02)
 ;;53014-0530-07
 ;;9002226.02101,"723,53014-0530-12 ",.01)
 ;;53014-0530-12
 ;;9002226.02101,"723,53014-0530-12 ",.02)
 ;;53014-0530-12
 ;;9002226.02101,"723,53014-0531-07 ",.01)
 ;;53014-0531-07
 ;;9002226.02101,"723,53014-0531-07 ",.02)
 ;;53014-0531-07
 ;;9002226.02101,"723,53014-0531-12 ",.01)
 ;;53014-0531-12
 ;;9002226.02101,"723,53014-0531-12 ",.02)
 ;;53014-0531-12