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

BGP2VK10.m

Go to the documentation of this file.
BGP2VK10 ;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,54868-5140-00 ",.01)
 ;;54868-5140-00
 ;;9002226.02101,"723,54868-5140-00 ",.02)
 ;;54868-5140-00
 ;;9002226.02101,"723,54868-5140-01 ",.01)
 ;;54868-5140-01
 ;;9002226.02101,"723,54868-5140-01 ",.02)
 ;;54868-5140-01
 ;;9002226.02101,"723,54868-5142-00 ",.01)
 ;;54868-5142-00
 ;;9002226.02101,"723,54868-5142-00 ",.02)
 ;;54868-5142-00
 ;;9002226.02101,"723,54868-5142-01 ",.01)
 ;;54868-5142-01
 ;;9002226.02101,"723,54868-5142-01 ",.02)
 ;;54868-5142-01
 ;;9002226.02101,"723,54868-5142-02 ",.01)
 ;;54868-5142-02
 ;;9002226.02101,"723,54868-5142-02 ",.02)
 ;;54868-5142-02
 ;;9002226.02101,"723,54868-5367-00 ",.01)
 ;;54868-5367-00
 ;;9002226.02101,"723,54868-5367-00 ",.02)
 ;;54868-5367-00
 ;;9002226.02101,"723,54868-5367-01 ",.01)
 ;;54868-5367-01
 ;;9002226.02101,"723,54868-5367-01 ",.02)
 ;;54868-5367-01
 ;;9002226.02101,"723,54868-5368-00 ",.01)
 ;;54868-5368-00
 ;;9002226.02101,"723,54868-5368-00 ",.02)
 ;;54868-5368-00
 ;;9002226.02101,"723,54868-5368-01 ",.01)
 ;;54868-5368-01
 ;;9002226.02101,"723,54868-5368-01 ",.02)
 ;;54868-5368-01
 ;;9002226.02101,"723,54868-5387-00 ",.01)
 ;;54868-5387-00
 ;;9002226.02101,"723,54868-5387-00 ",.02)
 ;;54868-5387-00
 ;;9002226.02101,"723,54868-5388-00 ",.01)
 ;;54868-5388-00
 ;;9002226.02101,"723,54868-5388-00 ",.02)
 ;;54868-5388-00
 ;;9002226.02101,"723,54868-5388-01 ",.01)
 ;;54868-5388-01
 ;;9002226.02101,"723,54868-5388-01 ",.02)
 ;;54868-5388-01
 ;;9002226.02101,"723,54868-5397-00 ",.01)
 ;;54868-5397-00
 ;;9002226.02101,"723,54868-5397-00 ",.02)
 ;;54868-5397-00
 ;;9002226.02101,"723,54868-5397-01 ",.01)
 ;;54868-5397-01
 ;;9002226.02101,"723,54868-5397-01 ",.02)
 ;;54868-5397-01
 ;;9002226.02101,"723,54868-5407-00 ",.01)
 ;;54868-5407-00
 ;;9002226.02101,"723,54868-5407-00 ",.02)
 ;;54868-5407-00
 ;;9002226.02101,"723,54868-5407-01 ",.01)
 ;;54868-5407-01
 ;;9002226.02101,"723,54868-5407-01 ",.02)
 ;;54868-5407-01
 ;;9002226.02101,"723,54868-5470-00 ",.01)
 ;;54868-5470-00
 ;;9002226.02101,"723,54868-5470-00 ",.02)
 ;;54868-5470-00
 ;;9002226.02101,"723,54868-5470-01 ",.01)
 ;;54868-5470-01
 ;;9002226.02101,"723,54868-5470-01 ",.02)
 ;;54868-5470-01
 ;;9002226.02101,"723,54868-5479-00 ",.01)
 ;;54868-5479-00
 ;;9002226.02101,"723,54868-5479-00 ",.02)
 ;;54868-5479-00
 ;;9002226.02101,"723,54868-5479-01 ",.01)
 ;;54868-5479-01
 ;;9002226.02101,"723,54868-5479-01 ",.02)
 ;;54868-5479-01
 ;;9002226.02101,"723,54868-5544-00 ",.01)
 ;;54868-5544-00
 ;;9002226.02101,"723,54868-5544-00 ",.02)
 ;;54868-5544-00
 ;;9002226.02101,"723,54868-5544-01 ",.01)
 ;;54868-5544-01
 ;;9002226.02101,"723,54868-5544-01 ",.02)
 ;;54868-5544-01
 ;;9002226.02101,"723,54868-5544-02 ",.01)
 ;;54868-5544-02
 ;;9002226.02101,"723,54868-5544-02 ",.02)
 ;;54868-5544-02
 ;;9002226.02101,"723,54868-5720-00 ",.01)
 ;;54868-5720-00
 ;;9002226.02101,"723,54868-5720-00 ",.02)
 ;;54868-5720-00
 ;;9002226.02101,"723,54868-5720-01 ",.01)
 ;;54868-5720-01
 ;;9002226.02101,"723,54868-5720-01 ",.02)
 ;;54868-5720-01
 ;;9002226.02101,"723,54868-5832-00 ",.01)
 ;;54868-5832-00
 ;;9002226.02101,"723,54868-5832-00 ",.02)
 ;;54868-5832-00
 ;;9002226.02101,"723,54868-5832-01 ",.01)
 ;;54868-5832-01
 ;;9002226.02101,"723,54868-5832-01 ",.02)
 ;;54868-5832-01
 ;;9002226.02101,"723,54868-6029-00 ",.01)
 ;;54868-6029-00
 ;;9002226.02101,"723,54868-6029-00 ",.02)
 ;;54868-6029-00
 ;;9002226.02101,"723,54868-6033-00 ",.01)
 ;;54868-6033-00
 ;;9002226.02101,"723,54868-6033-00 ",.02)
 ;;54868-6033-00
 ;;9002226.02101,"723,54868-6034-00 ",.01)
 ;;54868-6034-00
 ;;9002226.02101,"723,54868-6034-00 ",.02)
 ;;54868-6034-00
 ;;9002226.02101,"723,55045-1264-08 ",.01)
 ;;55045-1264-08
 ;;9002226.02101,"723,55045-1264-08 ",.02)
 ;;55045-1264-08
 ;;9002226.02101,"723,55045-1283-00 ",.01)
 ;;55045-1283-00
 ;;9002226.02101,"723,55045-1283-00 ",.02)
 ;;55045-1283-00
 ;;9002226.02101,"723,55045-1283-08 ",.01)
 ;;55045-1283-08
 ;;9002226.02101,"723,55045-1283-08 ",.02)
 ;;55045-1283-08
 ;;9002226.02101,"723,55045-1689-08 ",.01)
 ;;55045-1689-08
 ;;9002226.02101,"723,55045-1689-08 ",.02)
 ;;55045-1689-08
 ;;9002226.02101,"723,55045-1745-06 ",.01)
 ;;55045-1745-06
 ;;9002226.02101,"723,55045-1745-06 ",.02)
 ;;55045-1745-06
 ;;9002226.02101,"723,55045-1745-08 ",.01)
 ;;55045-1745-08
 ;;9002226.02101,"723,55045-1745-08 ",.02)
 ;;55045-1745-08
 ;;9002226.02101,"723,55045-2954-08 ",.01)
 ;;55045-2954-08
 ;;9002226.02101,"723,55045-2954-08 ",.02)
 ;;55045-2954-08
 ;;9002226.02101,"723,55045-3817-08 ",.01)
 ;;55045-3817-08
 ;;9002226.02101,"723,55045-3817-08 ",.02)
 ;;55045-3817-08
 ;;9002226.02101,"723,55289-0158-14 ",.01)
 ;;55289-0158-14
 ;;9002226.02101,"723,55289-0158-14 ",.02)
 ;;55289-0158-14
 ;;9002226.02101,"723,55289-0158-28 ",.01)
 ;;55289-0158-28
 ;;9002226.02101,"723,55289-0158-28 ",.02)
 ;;55289-0158-28
 ;;9002226.02101,"723,55289-0158-30 ",.01)
 ;;55289-0158-30
 ;;9002226.02101,"723,55289-0158-30 ",.02)
 ;;55289-0158-30
 ;;9002226.02101,"723,55289-0158-56 ",.01)
 ;;55289-0158-56
 ;;9002226.02101,"723,55289-0158-56 ",.02)
 ;;55289-0158-56
 ;;9002226.02101,"723,55289-0158-60 ",.01)
 ;;55289-0158-60
 ;;9002226.02101,"723,55289-0158-60 ",.02)
 ;;55289-0158-60
 ;;9002226.02101,"723,55289-0158-90 ",.01)
 ;;55289-0158-90
 ;;9002226.02101,"723,55289-0158-90 ",.02)
 ;;55289-0158-90
 ;;9002226.02101,"723,55289-0300-07 ",.01)
 ;;55289-0300-07
 ;;9002226.02101,"723,55289-0300-07 ",.02)
 ;;55289-0300-07
 ;;9002226.02101,"723,55289-0302-07 ",.01)
 ;;55289-0302-07
 ;;9002226.02101,"723,55289-0302-07 ",.02)
 ;;55289-0302-07
 ;;9002226.02101,"723,55289-0302-14 ",.01)
 ;;55289-0302-14
 ;;9002226.02101,"723,55289-0302-14 ",.02)
 ;;55289-0302-14
 ;;9002226.02101,"723,55289-0302-28 ",.01)
 ;;55289-0302-28
 ;;9002226.02101,"723,55289-0302-28 ",.02)
 ;;55289-0302-28
 ;;9002226.02101,"723,55289-0302-30 ",.01)
 ;;55289-0302-30
 ;;9002226.02101,"723,55289-0302-30 ",.02)
 ;;55289-0302-30
 ;;9002226.02101,"723,55289-0313-07 ",.01)
 ;;55289-0313-07
 ;;9002226.02101,"723,55289-0313-07 ",.02)
 ;;55289-0313-07
 ;;9002226.02101,"723,55289-0313-14 ",.01)
 ;;55289-0313-14
 ;;9002226.02101,"723,55289-0313-14 ",.02)
 ;;55289-0313-14
 ;;9002226.02101,"723,55289-0313-16 ",.01)
 ;;55289-0313-16
 ;;9002226.02101,"723,55289-0313-16 ",.02)
 ;;55289-0313-16
 ;;9002226.02101,"723,55289-0313-21 ",.01)
 ;;55289-0313-21
 ;;9002226.02101,"723,55289-0313-21 ",.02)
 ;;55289-0313-21
 ;;9002226.02101,"723,55289-0313-28 ",.01)
 ;;55289-0313-28
 ;;9002226.02101,"723,55289-0313-28 ",.02)
 ;;55289-0313-28
 ;;9002226.02101,"723,55289-0313-30 ",.01)
 ;;55289-0313-30
 ;;9002226.02101,"723,55289-0313-30 ",.02)
 ;;55289-0313-30
 ;;9002226.02101,"723,55289-0313-60 ",.01)
 ;;55289-0313-60
 ;;9002226.02101,"723,55289-0313-60 ",.02)
 ;;55289-0313-60
 ;;9002226.02101,"723,55289-0368-07 ",.01)
 ;;55289-0368-07
 ;;9002226.02101,"723,55289-0368-07 ",.02)
 ;;55289-0368-07
 ;;9002226.02101,"723,55289-0368-14 ",.01)
 ;;55289-0368-14
 ;;9002226.02101,"723,55289-0368-14 ",.02)
 ;;55289-0368-14
 ;;9002226.02101,"723,55289-0368-21 ",.01)
 ;;55289-0368-21
 ;;9002226.02101,"723,55289-0368-21 ",.02)
 ;;55289-0368-21
 ;;9002226.02101,"723,55289-0368-28 ",.01)
 ;;55289-0368-28
 ;;9002226.02101,"723,55289-0368-28 ",.02)
 ;;55289-0368-28
 ;;9002226.02101,"723,55289-0368-30 ",.01)
 ;;55289-0368-30
 ;;9002226.02101,"723,55289-0368-30 ",.02)
 ;;55289-0368-30
 ;;9002226.02101,"723,55289-0379-30 ",.01)
 ;;55289-0379-30
 ;;9002226.02101,"723,55289-0379-30 ",.02)
 ;;55289-0379-30
 ;;9002226.02101,"723,55289-0432-28 ",.01)
 ;;55289-0432-28
 ;;9002226.02101,"723,55289-0432-28 ",.02)
 ;;55289-0432-28
 ;;9002226.02101,"723,55289-0432-56 ",.01)
 ;;55289-0432-56
 ;;9002226.02101,"723,55289-0432-56 ",.02)
 ;;55289-0432-56
 ;;9002226.02101,"723,55289-0432-60 ",.01)
 ;;55289-0432-60
 ;;9002226.02101,"723,55289-0432-60 ",.02)
 ;;55289-0432-60
 ;;9002226.02101,"723,55289-0432-90 ",.01)
 ;;55289-0432-90
 ;;9002226.02101,"723,55289-0432-90 ",.02)
 ;;55289-0432-90
 ;;9002226.02101,"723,55289-0537-30 ",.01)
 ;;55289-0537-30
 ;;9002226.02101,"723,55289-0537-30 ",.02)
 ;;55289-0537-30
 ;;9002226.02101,"723,55289-0624-07 ",.01)
 ;;55289-0624-07
 ;;9002226.02101,"723,55289-0624-07 ",.02)
 ;;55289-0624-07
 ;;9002226.02101,"723,55289-0624-14 ",.01)
 ;;55289-0624-14
 ;;9002226.02101,"723,55289-0624-14 ",.02)
 ;;55289-0624-14
 ;;9002226.02101,"723,55289-0624-28 ",.01)
 ;;55289-0624-28
 ;;9002226.02101,"723,55289-0624-28 ",.02)
 ;;55289-0624-28
 ;;9002226.02101,"723,55289-0624-30 ",.01)
 ;;55289-0624-30
 ;;9002226.02101,"723,55289-0624-30 ",.02)
 ;;55289-0624-30
 ;;9002226.02101,"723,55289-0624-60 ",.01)
 ;;55289-0624-60
 ;;9002226.02101,"723,55289-0624-60 ",.02)
 ;;55289-0624-60
 ;;9002226.02101,"723,55289-0680-60 ",.01)
 ;;55289-0680-60
 ;;9002226.02101,"723,55289-0680-60 ",.02)
 ;;55289-0680-60
 ;;9002226.02101,"723,55289-0680-90 ",.01)
 ;;55289-0680-90
 ;;9002226.02101,"723,55289-0680-90 ",.02)
 ;;55289-0680-90
 ;;9002226.02101,"723,55289-0700-30 ",.01)
 ;;55289-0700-30
 ;;9002226.02101,"723,55289-0700-30 ",.02)
 ;;55289-0700-30
 ;;9002226.02101,"723,55289-0700-60 ",.01)
 ;;55289-0700-60
 ;;9002226.02101,"723,55289-0700-60 ",.02)
 ;;55289-0700-60
 ;;9002226.02101,"723,55289-0700-90 ",.01)
 ;;55289-0700-90
 ;;9002226.02101,"723,55289-0700-90 ",.02)
 ;;55289-0700-90
 ;;9002226.02101,"723,55289-0701-07 ",.01)
 ;;55289-0701-07
 ;;9002226.02101,"723,55289-0701-07 ",.02)
 ;;55289-0701-07
 ;;9002226.02101,"723,55289-0701-14 ",.01)
 ;;55289-0701-14
 ;;9002226.02101,"723,55289-0701-14 ",.02)
 ;;55289-0701-14
 ;;9002226.02101,"723,55289-0701-15 ",.01)
 ;;55289-0701-15
 ;;9002226.02101,"723,55289-0701-15 ",.02)
 ;;55289-0701-15
 ;;9002226.02101,"723,55289-0701-21 ",.01)
 ;;55289-0701-21
 ;;9002226.02101,"723,55289-0701-21 ",.02)
 ;;55289-0701-21
 ;;9002226.02101,"723,55289-0701-28 ",.01)
 ;;55289-0701-28
 ;;9002226.02101,"723,55289-0701-28 ",.02)
 ;;55289-0701-28
 ;;9002226.02101,"723,55289-0701-30 ",.01)
 ;;55289-0701-30
 ;;9002226.02101,"723,55289-0701-30 ",.02)
 ;;55289-0701-30
 ;;9002226.02101,"723,55289-0701-45 ",.01)
 ;;55289-0701-45
 ;;9002226.02101,"723,55289-0701-45 ",.02)
 ;;55289-0701-45
 ;;9002226.02101,"723,55289-0701-60 ",.01)
 ;;55289-0701-60
 ;;9002226.02101,"723,55289-0701-60 ",.02)
 ;;55289-0701-60
 ;;9002226.02101,"723,55289-0701-90 ",.01)
 ;;55289-0701-90
 ;;9002226.02101,"723,55289-0701-90 ",.02)
 ;;55289-0701-90
 ;;9002226.02101,"723,55289-0701-98 ",.01)
 ;;55289-0701-98
 ;;9002226.02101,"723,55289-0701-98 ",.02)
 ;;55289-0701-98
 ;;9002226.02101,"723,55289-0722-60 ",.01)
 ;;55289-0722-60
 ;;9002226.02101,"723,55289-0722-60 ",.02)
 ;;55289-0722-60
 ;;9002226.02101,"723,55289-0722-90 ",.01)
 ;;55289-0722-90
 ;;9002226.02101,"723,55289-0722-90 ",.02)
 ;;55289-0722-90
 ;;9002226.02101,"723,55289-0791-07 ",.01)
 ;;55289-0791-07
 ;;9002226.02101,"723,55289-0791-07 ",.02)
 ;;55289-0791-07
 ;;9002226.02101,"723,55289-0791-14 ",.01)
 ;;55289-0791-14
 ;;9002226.02101,"723,55289-0791-14 ",.02)
 ;;55289-0791-14
 ;;9002226.02101,"723,55289-0791-15 ",.01)
 ;;55289-0791-15
 ;;9002226.02101,"723,55289-0791-15 ",.02)
 ;;55289-0791-15
 ;;9002226.02101,"723,55289-0791-21 ",.01)
 ;;55289-0791-21
 ;;9002226.02101,"723,55289-0791-21 ",.02)
 ;;55289-0791-21
 ;;9002226.02101,"723,55289-0791-28 ",.01)
 ;;55289-0791-28
 ;;9002226.02101,"723,55289-0791-28 ",.02)
 ;;55289-0791-28
 ;;9002226.02101,"723,55289-0791-30 ",.01)
 ;;55289-0791-30
 ;;9002226.02101,"723,55289-0791-30 ",.02)
 ;;55289-0791-30
 ;;9002226.02101,"723,55289-0791-60 ",.01)
 ;;55289-0791-60
 ;;9002226.02101,"723,55289-0791-60 ",.02)
 ;;55289-0791-60
 ;;9002226.02101,"723,55289-0794-01 ",.01)
 ;;55289-0794-01
 ;;9002226.02101,"723,55289-0794-01 ",.02)
 ;;55289-0794-01
 ;;9002226.02101,"723,55289-0794-07 ",.01)
 ;;55289-0794-07
 ;;9002226.02101,"723,55289-0794-07 ",.02)
 ;;55289-0794-07
 ;;9002226.02101,"723,55289-0794-14 ",.01)
 ;;55289-0794-14
 ;;9002226.02101,"723,55289-0794-14 ",.02)
 ;;55289-0794-14
 ;;9002226.02101,"723,55289-0794-21 ",.01)
 ;;55289-0794-21
 ;;9002226.02101,"723,55289-0794-21 ",.02)
 ;;55289-0794-21
 ;;9002226.02101,"723,55289-0794-28 ",.01)
 ;;55289-0794-28
 ;;9002226.02101,"723,55289-0794-28 ",.02)
 ;;55289-0794-28
 ;;9002226.02101,"723,55289-0794-30 ",.01)
 ;;55289-0794-30
 ;;9002226.02101,"723,55289-0794-30 ",.02)
 ;;55289-0794-30
 ;;9002226.02101,"723,55289-0794-56 ",.01)
 ;;55289-0794-56
 ;;9002226.02101,"723,55289-0794-56 ",.02)
 ;;55289-0794-56
 ;;9002226.02101,"723,55289-0794-93 ",.01)
 ;;55289-0794-93
 ;;9002226.02101,"723,55289-0794-93 ",.02)
 ;;55289-0794-93
 ;;9002226.02101,"723,55289-0819-30 ",.01)
 ;;55289-0819-30
 ;;9002226.02101,"723,55289-0819-30 ",.02)
 ;;55289-0819-30
 ;;9002226.02101,"723,55289-0819-60 ",.01)
 ;;55289-0819-60
 ;;9002226.02101,"723,55289-0819-60 ",.02)
 ;;55289-0819-60
 ;;9002226.02101,"723,55289-0819-90 ",.01)
 ;;55289-0819-90
 ;;9002226.02101,"723,55289-0819-90 ",.02)
 ;;55289-0819-90
 ;;9002226.02101,"723,55289-0829-30 ",.01)
 ;;55289-0829-30
 ;;9002226.02101,"723,55289-0829-30 ",.02)
 ;;55289-0829-30
 ;;9002226.02101,"723,55289-0829-60 ",.01)
 ;;55289-0829-60
 ;;9002226.02101,"723,55289-0829-60 ",.02)
 ;;55289-0829-60
 ;;9002226.02101,"723,55289-0829-90 ",.01)
 ;;55289-0829-90
 ;;9002226.02101,"723,55289-0829-90 ",.02)
 ;;55289-0829-90
 ;;9002226.02101,"723,55289-0834-07 ",.01)
 ;;55289-0834-07
 ;;9002226.02101,"723,55289-0834-07 ",.02)
 ;;55289-0834-07