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

BGP2VK11.m

Go to the documentation of this file.
BGP2VK11 ;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,55289-0834-14 ",.01)
 ;;55289-0834-14
 ;;9002226.02101,"723,55289-0834-14 ",.02)
 ;;55289-0834-14
 ;;9002226.02101,"723,55289-0834-21 ",.01)
 ;;55289-0834-21
 ;;9002226.02101,"723,55289-0834-21 ",.02)
 ;;55289-0834-21
 ;;9002226.02101,"723,55289-0834-28 ",.01)
 ;;55289-0834-28
 ;;9002226.02101,"723,55289-0834-28 ",.02)
 ;;55289-0834-28
 ;;9002226.02101,"723,55289-0834-30 ",.01)
 ;;55289-0834-30
 ;;9002226.02101,"723,55289-0834-30 ",.02)
 ;;55289-0834-30
 ;;9002226.02101,"723,55289-0834-56 ",.01)
 ;;55289-0834-56
 ;;9002226.02101,"723,55289-0834-56 ",.02)
 ;;55289-0834-56
 ;;9002226.02101,"723,55289-0834-60 ",.01)
 ;;55289-0834-60
 ;;9002226.02101,"723,55289-0834-60 ",.02)
 ;;55289-0834-60
 ;;9002226.02101,"723,55289-0834-84 ",.01)
 ;;55289-0834-84
 ;;9002226.02101,"723,55289-0834-84 ",.02)
 ;;55289-0834-84
 ;;9002226.02101,"723,55289-0834-86 ",.01)
 ;;55289-0834-86
 ;;9002226.02101,"723,55289-0834-86 ",.02)
 ;;55289-0834-86
 ;;9002226.02101,"723,55289-0834-88 ",.01)
 ;;55289-0834-88
 ;;9002226.02101,"723,55289-0834-88 ",.02)
 ;;55289-0834-88
 ;;9002226.02101,"723,55289-0834-89 ",.01)
 ;;55289-0834-89
 ;;9002226.02101,"723,55289-0834-89 ",.02)
 ;;55289-0834-89
 ;;9002226.02101,"723,55289-0834-90 ",.01)
 ;;55289-0834-90
 ;;9002226.02101,"723,55289-0834-90 ",.02)
 ;;55289-0834-90
 ;;9002226.02101,"723,55289-0834-93 ",.01)
 ;;55289-0834-93
 ;;9002226.02101,"723,55289-0834-93 ",.02)
 ;;55289-0834-93
 ;;9002226.02101,"723,55289-0834-98 ",.01)
 ;;55289-0834-98
 ;;9002226.02101,"723,55289-0834-98 ",.02)
 ;;55289-0834-98
 ;;9002226.02101,"723,55289-0834-99 ",.01)
 ;;55289-0834-99
 ;;9002226.02101,"723,55289-0834-99 ",.02)
 ;;55289-0834-99
 ;;9002226.02101,"723,55289-0835-30 ",.01)
 ;;55289-0835-30
 ;;9002226.02101,"723,55289-0835-30 ",.02)
 ;;55289-0835-30
 ;;9002226.02101,"723,55289-0835-90 ",.01)
 ;;55289-0835-90
 ;;9002226.02101,"723,55289-0835-90 ",.02)
 ;;55289-0835-90
 ;;9002226.02101,"723,55289-0854-30 ",.01)
 ;;55289-0854-30
 ;;9002226.02101,"723,55289-0854-30 ",.02)
 ;;55289-0854-30
 ;;9002226.02101,"723,55289-0854-90 ",.01)
 ;;55289-0854-90
 ;;9002226.02101,"723,55289-0854-90 ",.02)
 ;;55289-0854-90
 ;;9002226.02101,"723,55289-0859-30 ",.01)
 ;;55289-0859-30
 ;;9002226.02101,"723,55289-0859-30 ",.02)
 ;;55289-0859-30
 ;;9002226.02101,"723,55289-0859-90 ",.01)
 ;;55289-0859-90
 ;;9002226.02101,"723,55289-0859-90 ",.02)
 ;;55289-0859-90
 ;;9002226.02101,"723,55289-0975-90 ",.01)
 ;;55289-0975-90
 ;;9002226.02101,"723,55289-0975-90 ",.02)
 ;;55289-0975-90
 ;;9002226.02101,"723,55499-1082-01 ",.01)
 ;;55499-1082-01
 ;;9002226.02101,"723,55499-1082-01 ",.02)
 ;;55499-1082-01
 ;;9002226.02101,"723,55887-0080-07 ",.01)
 ;;55887-0080-07
 ;;9002226.02101,"723,55887-0080-07 ",.02)
 ;;55887-0080-07
 ;;9002226.02101,"723,55887-0080-30 ",.01)
 ;;55887-0080-30
 ;;9002226.02101,"723,55887-0080-30 ",.02)
 ;;55887-0080-30
 ;;9002226.02101,"723,55887-0080-60 ",.01)
 ;;55887-0080-60
 ;;9002226.02101,"723,55887-0080-60 ",.02)
 ;;55887-0080-60
 ;;9002226.02101,"723,55887-0224-15 ",.01)
 ;;55887-0224-15
 ;;9002226.02101,"723,55887-0224-15 ",.02)
 ;;55887-0224-15
 ;;9002226.02101,"723,55887-0224-30 ",.01)
 ;;55887-0224-30
 ;;9002226.02101,"723,55887-0224-30 ",.02)
 ;;55887-0224-30
 ;;9002226.02101,"723,55887-0225-14 ",.01)
 ;;55887-0225-14
 ;;9002226.02101,"723,55887-0225-14 ",.02)
 ;;55887-0225-14
 ;;9002226.02101,"723,55887-0225-15 ",.01)
 ;;55887-0225-15
 ;;9002226.02101,"723,55887-0225-15 ",.02)
 ;;55887-0225-15
 ;;9002226.02101,"723,55887-0225-21 ",.01)
 ;;55887-0225-21
 ;;9002226.02101,"723,55887-0225-21 ",.02)
 ;;55887-0225-21
 ;;9002226.02101,"723,55887-0225-28 ",.01)
 ;;55887-0225-28
 ;;9002226.02101,"723,55887-0225-28 ",.02)
 ;;55887-0225-28
 ;;9002226.02101,"723,55887-0225-30 ",.01)
 ;;55887-0225-30
 ;;9002226.02101,"723,55887-0225-30 ",.02)
 ;;55887-0225-30
 ;;9002226.02101,"723,55887-0225-42 ",.01)
 ;;55887-0225-42
 ;;9002226.02101,"723,55887-0225-42 ",.02)
 ;;55887-0225-42
 ;;9002226.02101,"723,55887-0225-60 ",.01)
 ;;55887-0225-60
 ;;9002226.02101,"723,55887-0225-60 ",.02)
 ;;55887-0225-60
 ;;9002226.02101,"723,55887-0225-90 ",.01)
 ;;55887-0225-90
 ;;9002226.02101,"723,55887-0225-90 ",.02)
 ;;55887-0225-90
 ;;9002226.02101,"723,55887-0654-07 ",.01)
 ;;55887-0654-07
 ;;9002226.02101,"723,55887-0654-07 ",.02)
 ;;55887-0654-07
 ;;9002226.02101,"723,55887-0654-14 ",.01)
 ;;55887-0654-14
 ;;9002226.02101,"723,55887-0654-14 ",.02)
 ;;55887-0654-14
 ;;9002226.02101,"723,55887-0654-15 ",.01)
 ;;55887-0654-15
 ;;9002226.02101,"723,55887-0654-15 ",.02)
 ;;55887-0654-15
 ;;9002226.02101,"723,55887-0654-30 ",.01)
 ;;55887-0654-30
 ;;9002226.02101,"723,55887-0654-30 ",.02)
 ;;55887-0654-30
 ;;9002226.02101,"723,55887-0654-60 ",.01)
 ;;55887-0654-60
 ;;9002226.02101,"723,55887-0654-60 ",.02)
 ;;55887-0654-60
 ;;9002226.02101,"723,55887-0669-15 ",.01)
 ;;55887-0669-15
 ;;9002226.02101,"723,55887-0669-15 ",.02)
 ;;55887-0669-15
 ;;9002226.02101,"723,55887-0669-21 ",.01)
 ;;55887-0669-21
 ;;9002226.02101,"723,55887-0669-21 ",.02)
 ;;55887-0669-21
 ;;9002226.02101,"723,55887-0669-30 ",.01)
 ;;55887-0669-30
 ;;9002226.02101,"723,55887-0669-30 ",.02)
 ;;55887-0669-30
 ;;9002226.02101,"723,55887-0669-60 ",.01)
 ;;55887-0669-60
 ;;9002226.02101,"723,55887-0669-60 ",.02)
 ;;55887-0669-60
 ;;9002226.02101,"723,55887-0669-90 ",.01)
 ;;55887-0669-90
 ;;9002226.02101,"723,55887-0669-90 ",.02)
 ;;55887-0669-90
 ;;9002226.02101,"723,55887-0712-14 ",.01)
 ;;55887-0712-14
 ;;9002226.02101,"723,55887-0712-14 ",.02)
 ;;55887-0712-14
 ;;9002226.02101,"723,55887-0712-30 ",.01)
 ;;55887-0712-30
 ;;9002226.02101,"723,55887-0712-30 ",.02)
 ;;55887-0712-30
 ;;9002226.02101,"723,55887-0712-60 ",.01)
 ;;55887-0712-60
 ;;9002226.02101,"723,55887-0712-60 ",.02)
 ;;55887-0712-60
 ;;9002226.02101,"723,55887-0762-07 ",.01)
 ;;55887-0762-07
 ;;9002226.02101,"723,55887-0762-07 ",.02)
 ;;55887-0762-07
 ;;9002226.02101,"723,55887-0762-14 ",.01)
 ;;55887-0762-14
 ;;9002226.02101,"723,55887-0762-14 ",.02)
 ;;55887-0762-14
 ;;9002226.02101,"723,55887-0762-15 ",.01)
 ;;55887-0762-15
 ;;9002226.02101,"723,55887-0762-15 ",.02)
 ;;55887-0762-15
 ;;9002226.02101,"723,55887-0762-30 ",.01)
 ;;55887-0762-30
 ;;9002226.02101,"723,55887-0762-30 ",.02)
 ;;55887-0762-30
 ;;9002226.02101,"723,55887-0762-60 ",.01)
 ;;55887-0762-60
 ;;9002226.02101,"723,55887-0762-60 ",.02)
 ;;55887-0762-60
 ;;9002226.02101,"723,55887-0840-01 ",.01)
 ;;55887-0840-01
 ;;9002226.02101,"723,55887-0840-01 ",.02)
 ;;55887-0840-01
 ;;9002226.02101,"723,55887-0840-07 ",.01)
 ;;55887-0840-07
 ;;9002226.02101,"723,55887-0840-07 ",.02)
 ;;55887-0840-07
 ;;9002226.02101,"723,55887-0840-14 ",.01)
 ;;55887-0840-14
 ;;9002226.02101,"723,55887-0840-14 ",.02)
 ;;55887-0840-14
 ;;9002226.02101,"723,55887-0840-15 ",.01)
 ;;55887-0840-15
 ;;9002226.02101,"723,55887-0840-15 ",.02)
 ;;55887-0840-15
 ;;9002226.02101,"723,55887-0840-20 ",.01)
 ;;55887-0840-20
 ;;9002226.02101,"723,55887-0840-20 ",.02)
 ;;55887-0840-20
 ;;9002226.02101,"723,55887-0840-23 ",.01)
 ;;55887-0840-23
 ;;9002226.02101,"723,55887-0840-23 ",.02)
 ;;55887-0840-23
 ;;9002226.02101,"723,55887-0840-30 ",.01)
 ;;55887-0840-30
 ;;9002226.02101,"723,55887-0840-30 ",.02)
 ;;55887-0840-30
 ;;9002226.02101,"723,55887-0840-45 ",.01)
 ;;55887-0840-45
 ;;9002226.02101,"723,55887-0840-45 ",.02)
 ;;55887-0840-45
 ;;9002226.02101,"723,55887-0840-60 ",.01)
 ;;55887-0840-60
 ;;9002226.02101,"723,55887-0840-60 ",.02)
 ;;55887-0840-60
 ;;9002226.02101,"723,55887-0840-90 ",.01)
 ;;55887-0840-90
 ;;9002226.02101,"723,55887-0840-90 ",.02)
 ;;55887-0840-90
 ;;9002226.02101,"723,55887-0891-01 ",.01)
 ;;55887-0891-01
 ;;9002226.02101,"723,55887-0891-01 ",.02)
 ;;55887-0891-01
 ;;9002226.02101,"723,55887-0891-14 ",.01)
 ;;55887-0891-14
 ;;9002226.02101,"723,55887-0891-14 ",.02)
 ;;55887-0891-14
 ;;9002226.02101,"723,55887-0891-15 ",.01)
 ;;55887-0891-15
 ;;9002226.02101,"723,55887-0891-15 ",.02)
 ;;55887-0891-15
 ;;9002226.02101,"723,55887-0891-30 ",.01)
 ;;55887-0891-30
 ;;9002226.02101,"723,55887-0891-30 ",.02)
 ;;55887-0891-30
 ;;9002226.02101,"723,55887-0891-60 ",.01)
 ;;55887-0891-60
 ;;9002226.02101,"723,55887-0891-60 ",.02)
 ;;55887-0891-60
 ;;9002226.02101,"723,57664-0504-18 ",.01)
 ;;57664-0504-18
 ;;9002226.02101,"723,57664-0504-18 ",.02)
 ;;57664-0504-18
 ;;9002226.02101,"723,57664-0504-88 ",.01)
 ;;57664-0504-88
 ;;9002226.02101,"723,57664-0504-88 ",.02)
 ;;57664-0504-88
 ;;9002226.02101,"723,57844-0009-01 ",.01)
 ;;57844-0009-01
 ;;9002226.02101,"723,57844-0009-01 ",.02)
 ;;57844-0009-01
 ;;9002226.02101,"723,57844-0019-01 ",.01)
 ;;57844-0019-01
 ;;9002226.02101,"723,57844-0019-01 ",.02)
 ;;57844-0019-01
 ;;9002226.02101,"723,58016-0043-00 ",.01)
 ;;58016-0043-00
 ;;9002226.02101,"723,58016-0043-00 ",.02)
 ;;58016-0043-00
 ;;9002226.02101,"723,58016-0043-30 ",.01)
 ;;58016-0043-30
 ;;9002226.02101,"723,58016-0043-30 ",.02)
 ;;58016-0043-30
 ;;9002226.02101,"723,58016-0043-60 ",.01)
 ;;58016-0043-60
 ;;9002226.02101,"723,58016-0043-60 ",.02)
 ;;58016-0043-60
 ;;9002226.02101,"723,58016-0043-90 ",.01)
 ;;58016-0043-90
 ;;9002226.02101,"723,58016-0043-90 ",.02)
 ;;58016-0043-90
 ;;9002226.02101,"723,58016-0310-00 ",.01)
 ;;58016-0310-00
 ;;9002226.02101,"723,58016-0310-00 ",.02)
 ;;58016-0310-00
 ;;9002226.02101,"723,58016-0310-30 ",.01)
 ;;58016-0310-30
 ;;9002226.02101,"723,58016-0310-30 ",.02)
 ;;58016-0310-30
 ;;9002226.02101,"723,58016-0310-60 ",.01)
 ;;58016-0310-60
 ;;9002226.02101,"723,58016-0310-60 ",.02)
 ;;58016-0310-60
 ;;9002226.02101,"723,58016-0310-90 ",.01)
 ;;58016-0310-90
 ;;9002226.02101,"723,58016-0310-90 ",.02)
 ;;58016-0310-90
 ;;9002226.02101,"723,58016-0836-07 ",.01)
 ;;58016-0836-07
 ;;9002226.02101,"723,58016-0836-07 ",.02)
 ;;58016-0836-07
 ;;9002226.02101,"723,58016-0836-14 ",.01)
 ;;58016-0836-14
 ;;9002226.02101,"723,58016-0836-14 ",.02)
 ;;58016-0836-14
 ;;9002226.02101,"723,58016-0836-15 ",.01)
 ;;58016-0836-15
 ;;9002226.02101,"723,58016-0836-15 ",.02)
 ;;58016-0836-15
 ;;9002226.02101,"723,58016-0836-30 ",.01)
 ;;58016-0836-30
 ;;9002226.02101,"723,58016-0836-30 ",.02)
 ;;58016-0836-30
 ;;9002226.02101,"723,58016-0856-00 ",.01)
 ;;58016-0856-00
 ;;9002226.02101,"723,58016-0856-00 ",.02)
 ;;58016-0856-00
 ;;9002226.02101,"723,58016-0856-15 ",.01)
 ;;58016-0856-15
 ;;9002226.02101,"723,58016-0856-15 ",.02)
 ;;58016-0856-15
 ;;9002226.02101,"723,58016-0856-21 ",.01)
 ;;58016-0856-21
 ;;9002226.02101,"723,58016-0856-21 ",.02)
 ;;58016-0856-21
 ;;9002226.02101,"723,58016-0856-42 ",.01)
 ;;58016-0856-42
 ;;9002226.02101,"723,58016-0856-42 ",.02)
 ;;58016-0856-42
 ;;9002226.02101,"723,58177-0311-04 ",.01)
 ;;58177-0311-04
 ;;9002226.02101,"723,58177-0311-04 ",.02)
 ;;58177-0311-04
 ;;9002226.02101,"723,58177-0312-04 ",.01)
 ;;58177-0312-04
 ;;9002226.02101,"723,58177-0312-04 ",.02)
 ;;58177-0312-04
 ;;9002226.02101,"723,58521-0333-05 ",.01)
 ;;58521-0333-05
 ;;9002226.02101,"723,58521-0333-05 ",.02)
 ;;58521-0333-05
 ;;9002226.02101,"723,59630-0750-50 ",.01)
 ;;59630-0750-50
 ;;9002226.02101,"723,59630-0750-50 ",.02)
 ;;59630-0750-50
 ;;9002226.02101,"723,59630-0755-50 ",.01)
 ;;59630-0755-50
 ;;9002226.02101,"723,59630-0755-50 ",.02)
 ;;59630-0755-50
 ;;9002226.02101,"723,59630-0760-10 ",.01)
 ;;59630-0760-10
 ;;9002226.02101,"723,59630-0760-10 ",.02)
 ;;59630-0760-10
 ;;9002226.02101,"723,59630-0761-10 ",.01)
 ;;59630-0761-10
 ;;9002226.02101,"723,59630-0761-10 ",.02)
 ;;59630-0761-10
 ;;9002226.02101,"723,59630-0762-10 ",.01)
 ;;59630-0762-10
 ;;9002226.02101,"723,59630-0762-10 ",.02)
 ;;59630-0762-10
 ;;9002226.02101,"723,60429-0536-01 ",.01)
 ;;60429-0536-01
 ;;9002226.02101,"723,60429-0536-01 ",.02)
 ;;60429-0536-01
 ;;9002226.02101,"723,60429-0536-10 ",.01)
 ;;60429-0536-10
 ;;9002226.02101,"723,60429-0536-10 ",.02)
 ;;60429-0536-10
 ;;9002226.02101,"723,60429-0537-01 ",.01)
 ;;60429-0537-01
 ;;9002226.02101,"723,60429-0537-01 ",.02)
 ;;60429-0537-01
 ;;9002226.02101,"723,60429-0537-10 ",.01)
 ;;60429-0537-10
 ;;9002226.02101,"723,60429-0537-10 ",.02)
 ;;60429-0537-10
 ;;9002226.02101,"723,60429-0538-01 ",.01)
 ;;60429-0538-01
 ;;9002226.02101,"723,60429-0538-01 ",.02)
 ;;60429-0538-01
 ;;9002226.02101,"723,60429-0538-10 ",.01)
 ;;60429-0538-10
 ;;9002226.02101,"723,60429-0538-10 ",.02)
 ;;60429-0538-10
 ;;9002226.02101,"723,60429-0539-01 ",.01)
 ;;60429-0539-01
 ;;9002226.02101,"723,60429-0539-01 ",.02)
 ;;60429-0539-01
 ;;9002226.02101,"723,60429-0540-01 ",.01)
 ;;60429-0540-01
 ;;9002226.02101,"723,60429-0540-01 ",.02)
 ;;60429-0540-01
 ;;9002226.02101,"723,63304-0908-01 ",.01)
 ;;63304-0908-01
 ;;9002226.02101,"723,63304-0908-01 ",.02)
 ;;63304-0908-01
 ;;9002226.02101,"723,63304-0909-01 ",.01)
 ;;63304-0909-01
 ;;9002226.02101,"723,63304-0909-01 ",.02)
 ;;63304-0909-01
 ;;9002226.02101,"723,63304-0910-01 ",.01)
 ;;63304-0910-01
 ;;9002226.02101,"723,63304-0910-01 ",.02)
 ;;63304-0910-01
 ;;9002226.02101,"723,63304-0911-01 ",.01)
 ;;63304-0911-01
 ;;9002226.02101,"723,63304-0911-01 ",.02)
 ;;63304-0911-01
 ;;9002226.02101,"723,63629-1584-01 ",.01)
 ;;63629-1584-01
 ;;9002226.02101,"723,63629-1584-01 ",.02)
 ;;63629-1584-01
 ;;9002226.02101,"723,63629-1584-02 ",.01)
 ;;63629-1584-02
 ;;9002226.02101,"723,63629-1584-02 ",.02)
 ;;63629-1584-02
 ;;9002226.02101,"723,63629-1584-03 ",.01)
 ;;63629-1584-03
 ;;9002226.02101,"723,63629-1584-03 ",.02)
 ;;63629-1584-03