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

BGP2VY6.m

Go to the documentation of this file.
BGP2VY6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 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,"804,00247-0013-28 ",.01)
 ;;00247-0013-28
 ;;9002226.02101,"804,00247-0013-28 ",.02)
 ;;00247-0013-28
 ;;9002226.02101,"804,00247-0013-30 ",.01)
 ;;00247-0013-30
 ;;9002226.02101,"804,00247-0013-30 ",.02)
 ;;00247-0013-30
 ;;9002226.02101,"804,00247-0013-40 ",.01)
 ;;00247-0013-40
 ;;9002226.02101,"804,00247-0013-40 ",.02)
 ;;00247-0013-40
 ;;9002226.02101,"804,00247-0013-60 ",.01)
 ;;00247-0013-60
 ;;9002226.02101,"804,00247-0013-60 ",.02)
 ;;00247-0013-60
 ;;9002226.02101,"804,00247-0013-98 ",.01)
 ;;00247-0013-98
 ;;9002226.02101,"804,00247-0013-98 ",.02)
 ;;00247-0013-98
 ;;9002226.02101,"804,00247-0059-00 ",.01)
 ;;00247-0059-00
 ;;9002226.02101,"804,00247-0059-00 ",.02)
 ;;00247-0059-00
 ;;9002226.02101,"804,00247-0059-01 ",.01)
 ;;00247-0059-01
 ;;9002226.02101,"804,00247-0059-01 ",.02)
 ;;00247-0059-01
 ;;9002226.02101,"804,00247-0059-02 ",.01)
 ;;00247-0059-02
 ;;9002226.02101,"804,00247-0059-02 ",.02)
 ;;00247-0059-02
 ;;9002226.02101,"804,00247-0059-03 ",.01)
 ;;00247-0059-03
 ;;9002226.02101,"804,00247-0059-03 ",.02)
 ;;00247-0059-03
 ;;9002226.02101,"804,00247-0059-04 ",.01)
 ;;00247-0059-04
 ;;9002226.02101,"804,00247-0059-04 ",.02)
 ;;00247-0059-04
 ;;9002226.02101,"804,00247-0059-05 ",.01)
 ;;00247-0059-05
 ;;9002226.02101,"804,00247-0059-05 ",.02)
 ;;00247-0059-05
 ;;9002226.02101,"804,00247-0059-06 ",.01)
 ;;00247-0059-06
 ;;9002226.02101,"804,00247-0059-06 ",.02)
 ;;00247-0059-06
 ;;9002226.02101,"804,00247-0059-07 ",.01)
 ;;00247-0059-07
 ;;9002226.02101,"804,00247-0059-07 ",.02)
 ;;00247-0059-07
 ;;9002226.02101,"804,00247-0059-08 ",.01)
 ;;00247-0059-08
 ;;9002226.02101,"804,00247-0059-08 ",.02)
 ;;00247-0059-08
 ;;9002226.02101,"804,00247-0059-09 ",.01)
 ;;00247-0059-09
 ;;9002226.02101,"804,00247-0059-09 ",.02)
 ;;00247-0059-09
 ;;9002226.02101,"804,00247-0059-10 ",.01)
 ;;00247-0059-10
 ;;9002226.02101,"804,00247-0059-10 ",.02)
 ;;00247-0059-10
 ;;9002226.02101,"804,00247-0059-12 ",.01)
 ;;00247-0059-12
 ;;9002226.02101,"804,00247-0059-12 ",.02)
 ;;00247-0059-12
 ;;9002226.02101,"804,00247-0059-14 ",.01)
 ;;00247-0059-14
 ;;9002226.02101,"804,00247-0059-14 ",.02)
 ;;00247-0059-14
 ;;9002226.02101,"804,00247-0059-15 ",.01)
 ;;00247-0059-15
 ;;9002226.02101,"804,00247-0059-15 ",.02)
 ;;00247-0059-15
 ;;9002226.02101,"804,00247-0059-18 ",.01)
 ;;00247-0059-18
 ;;9002226.02101,"804,00247-0059-18 ",.02)
 ;;00247-0059-18
 ;;9002226.02101,"804,00247-0059-20 ",.01)
 ;;00247-0059-20
 ;;9002226.02101,"804,00247-0059-20 ",.02)
 ;;00247-0059-20
 ;;9002226.02101,"804,00247-0059-21 ",.01)
 ;;00247-0059-21
 ;;9002226.02101,"804,00247-0059-21 ",.02)
 ;;00247-0059-21
 ;;9002226.02101,"804,00247-0059-28 ",.01)
 ;;00247-0059-28
 ;;9002226.02101,"804,00247-0059-28 ",.02)
 ;;00247-0059-28
 ;;9002226.02101,"804,00247-0059-30 ",.01)
 ;;00247-0059-30
 ;;9002226.02101,"804,00247-0059-30 ",.02)
 ;;00247-0059-30
 ;;9002226.02101,"804,00247-0059-40 ",.01)
 ;;00247-0059-40
 ;;9002226.02101,"804,00247-0059-40 ",.02)
 ;;00247-0059-40
 ;;9002226.02101,"804,00247-0059-42 ",.01)
 ;;00247-0059-42
 ;;9002226.02101,"804,00247-0059-42 ",.02)
 ;;00247-0059-42
 ;;9002226.02101,"804,00247-0059-60 ",.01)
 ;;00247-0059-60
 ;;9002226.02101,"804,00247-0059-60 ",.02)
 ;;00247-0059-60
 ;;9002226.02101,"804,00247-0059-90 ",.01)
 ;;00247-0059-90
 ;;9002226.02101,"804,00247-0059-90 ",.02)
 ;;00247-0059-90
 ;;9002226.02101,"804,00247-0059-98 ",.01)
 ;;00247-0059-98
 ;;9002226.02101,"804,00247-0059-98 ",.02)
 ;;00247-0059-98
 ;;9002226.02101,"804,00247-0059-99 ",.01)
 ;;00247-0059-99
 ;;9002226.02101,"804,00247-0059-99 ",.02)
 ;;00247-0059-99
 ;;9002226.02101,"804,00247-0088-00 ",.01)
 ;;00247-0088-00
 ;;9002226.02101,"804,00247-0088-00 ",.02)
 ;;00247-0088-00
 ;;9002226.02101,"804,00247-0088-02 ",.01)
 ;;00247-0088-02
 ;;9002226.02101,"804,00247-0088-02 ",.02)
 ;;00247-0088-02
 ;;9002226.02101,"804,00247-0088-03 ",.01)
 ;;00247-0088-03
 ;;9002226.02101,"804,00247-0088-03 ",.02)
 ;;00247-0088-03
 ;;9002226.02101,"804,00247-0088-04 ",.01)
 ;;00247-0088-04
 ;;9002226.02101,"804,00247-0088-04 ",.02)
 ;;00247-0088-04
 ;;9002226.02101,"804,00247-0088-06 ",.01)
 ;;00247-0088-06
 ;;9002226.02101,"804,00247-0088-06 ",.02)
 ;;00247-0088-06
 ;;9002226.02101,"804,00247-0088-07 ",.01)
 ;;00247-0088-07
 ;;9002226.02101,"804,00247-0088-07 ",.02)
 ;;00247-0088-07
 ;;9002226.02101,"804,00247-0088-10 ",.01)
 ;;00247-0088-10
 ;;9002226.02101,"804,00247-0088-10 ",.02)
 ;;00247-0088-10
 ;;9002226.02101,"804,00247-0088-14 ",.01)
 ;;00247-0088-14
 ;;9002226.02101,"804,00247-0088-14 ",.02)
 ;;00247-0088-14
 ;;9002226.02101,"804,00247-0088-15 ",.01)
 ;;00247-0088-15
 ;;9002226.02101,"804,00247-0088-15 ",.02)
 ;;00247-0088-15
 ;;9002226.02101,"804,00247-0088-16 ",.01)
 ;;00247-0088-16
 ;;9002226.02101,"804,00247-0088-16 ",.02)
 ;;00247-0088-16
 ;;9002226.02101,"804,00247-0088-18 ",.01)
 ;;00247-0088-18
 ;;9002226.02101,"804,00247-0088-18 ",.02)
 ;;00247-0088-18
 ;;9002226.02101,"804,00247-0088-20 ",.01)
 ;;00247-0088-20
 ;;9002226.02101,"804,00247-0088-20 ",.02)
 ;;00247-0088-20
 ;;9002226.02101,"804,00247-0088-21 ",.01)
 ;;00247-0088-21
 ;;9002226.02101,"804,00247-0088-21 ",.02)
 ;;00247-0088-21
 ;;9002226.02101,"804,00247-0088-28 ",.01)
 ;;00247-0088-28
 ;;9002226.02101,"804,00247-0088-28 ",.02)
 ;;00247-0088-28
 ;;9002226.02101,"804,00247-0088-30 ",.01)
 ;;00247-0088-30
 ;;9002226.02101,"804,00247-0088-30 ",.02)
 ;;00247-0088-30
 ;;9002226.02101,"804,00247-0088-40 ",.01)
 ;;00247-0088-40
 ;;9002226.02101,"804,00247-0088-40 ",.02)
 ;;00247-0088-40
 ;;9002226.02101,"804,00247-0088-52 ",.01)
 ;;00247-0088-52
 ;;9002226.02101,"804,00247-0088-52 ",.02)
 ;;00247-0088-52
 ;;9002226.02101,"804,00247-0088-56 ",.01)
 ;;00247-0088-56
 ;;9002226.02101,"804,00247-0088-56 ",.02)
 ;;00247-0088-56
 ;;9002226.02101,"804,00247-0088-60 ",.01)
 ;;00247-0088-60
 ;;9002226.02101,"804,00247-0088-60 ",.02)
 ;;00247-0088-60
 ;;9002226.02101,"804,00247-0088-77 ",.01)
 ;;00247-0088-77
 ;;9002226.02101,"804,00247-0088-77 ",.02)
 ;;00247-0088-77
 ;;9002226.02101,"804,00247-0088-90 ",.01)
 ;;00247-0088-90
 ;;9002226.02101,"804,00247-0088-90 ",.02)
 ;;00247-0088-90
 ;;9002226.02101,"804,00247-0112-03 ",.01)
 ;;00247-0112-03
 ;;9002226.02101,"804,00247-0112-03 ",.02)
 ;;00247-0112-03
 ;;9002226.02101,"804,00247-0112-04 ",.01)
 ;;00247-0112-04
 ;;9002226.02101,"804,00247-0112-04 ",.02)
 ;;00247-0112-04
 ;;9002226.02101,"804,00247-0112-10 ",.01)
 ;;00247-0112-10
 ;;9002226.02101,"804,00247-0112-10 ",.02)
 ;;00247-0112-10
 ;;9002226.02101,"804,00247-0112-12 ",.01)
 ;;00247-0112-12
 ;;9002226.02101,"804,00247-0112-12 ",.02)
 ;;00247-0112-12
 ;;9002226.02101,"804,00247-0112-14 ",.01)
 ;;00247-0112-14
 ;;9002226.02101,"804,00247-0112-14 ",.02)
 ;;00247-0112-14
 ;;9002226.02101,"804,00247-0112-15 ",.01)
 ;;00247-0112-15
 ;;9002226.02101,"804,00247-0112-15 ",.02)
 ;;00247-0112-15
 ;;9002226.02101,"804,00247-0112-16 ",.01)
 ;;00247-0112-16
 ;;9002226.02101,"804,00247-0112-16 ",.02)
 ;;00247-0112-16
 ;;9002226.02101,"804,00247-0112-20 ",.01)
 ;;00247-0112-20
 ;;9002226.02101,"804,00247-0112-20 ",.02)
 ;;00247-0112-20
 ;;9002226.02101,"804,00247-0112-24 ",.01)
 ;;00247-0112-24
 ;;9002226.02101,"804,00247-0112-24 ",.02)
 ;;00247-0112-24
 ;;9002226.02101,"804,00247-0112-28 ",.01)
 ;;00247-0112-28
 ;;9002226.02101,"804,00247-0112-28 ",.02)
 ;;00247-0112-28
 ;;9002226.02101,"804,00247-0112-30 ",.01)
 ;;00247-0112-30
 ;;9002226.02101,"804,00247-0112-30 ",.02)
 ;;00247-0112-30
 ;;9002226.02101,"804,00247-0112-40 ",.01)
 ;;00247-0112-40
 ;;9002226.02101,"804,00247-0112-40 ",.02)
 ;;00247-0112-40
 ;;9002226.02101,"804,00247-0180-03 ",.01)
 ;;00247-0180-03
 ;;9002226.02101,"804,00247-0180-03 ",.02)
 ;;00247-0180-03
 ;;9002226.02101,"804,00247-0180-04 ",.01)
 ;;00247-0180-04
 ;;9002226.02101,"804,00247-0180-04 ",.02)
 ;;00247-0180-04
 ;;9002226.02101,"804,00247-0180-06 ",.01)
 ;;00247-0180-06
 ;;9002226.02101,"804,00247-0180-06 ",.02)
 ;;00247-0180-06
 ;;9002226.02101,"804,00247-0180-10 ",.01)
 ;;00247-0180-10
 ;;9002226.02101,"804,00247-0180-10 ",.02)
 ;;00247-0180-10
 ;;9002226.02101,"804,00247-0180-12 ",.01)
 ;;00247-0180-12
 ;;9002226.02101,"804,00247-0180-12 ",.02)
 ;;00247-0180-12
 ;;9002226.02101,"804,00247-0180-14 ",.01)
 ;;00247-0180-14
 ;;9002226.02101,"804,00247-0180-14 ",.02)
 ;;00247-0180-14
 ;;9002226.02101,"804,00247-0180-15 ",.01)
 ;;00247-0180-15
 ;;9002226.02101,"804,00247-0180-15 ",.02)
 ;;00247-0180-15
 ;;9002226.02101,"804,00247-0180-20 ",.01)
 ;;00247-0180-20
 ;;9002226.02101,"804,00247-0180-20 ",.02)
 ;;00247-0180-20
 ;;9002226.02101,"804,00247-0180-21 ",.01)
 ;;00247-0180-21
 ;;9002226.02101,"804,00247-0180-21 ",.02)
 ;;00247-0180-21
 ;;9002226.02101,"804,00247-0180-24 ",.01)
 ;;00247-0180-24
 ;;9002226.02101,"804,00247-0180-24 ",.02)
 ;;00247-0180-24
 ;;9002226.02101,"804,00247-0180-28 ",.01)
 ;;00247-0180-28
 ;;9002226.02101,"804,00247-0180-28 ",.02)
 ;;00247-0180-28
 ;;9002226.02101,"804,00247-0180-40 ",.01)
 ;;00247-0180-40
 ;;9002226.02101,"804,00247-0180-40 ",.02)
 ;;00247-0180-40
 ;;9002226.02101,"804,00247-0180-60 ",.01)
 ;;00247-0180-60
 ;;9002226.02101,"804,00247-0180-60 ",.02)
 ;;00247-0180-60
 ;;9002226.02101,"804,00247-0286-06 ",.01)
 ;;00247-0286-06
 ;;9002226.02101,"804,00247-0286-06 ",.02)
 ;;00247-0286-06
 ;;9002226.02101,"804,00247-0286-16 ",.01)
 ;;00247-0286-16
 ;;9002226.02101,"804,00247-0286-16 ",.02)
 ;;00247-0286-16
 ;;9002226.02101,"804,00247-0286-18 ",.01)
 ;;00247-0286-18
 ;;9002226.02101,"804,00247-0286-18 ",.02)
 ;;00247-0286-18
 ;;9002226.02101,"804,00247-0286-20 ",.01)
 ;;00247-0286-20
 ;;9002226.02101,"804,00247-0286-20 ",.02)
 ;;00247-0286-20
 ;;9002226.02101,"804,00247-0286-30 ",.01)
 ;;00247-0286-30
 ;;9002226.02101,"804,00247-0286-30 ",.02)
 ;;00247-0286-30
 ;;9002226.02101,"804,00247-0286-40 ",.01)
 ;;00247-0286-40
 ;;9002226.02101,"804,00247-0286-40 ",.02)
 ;;00247-0286-40
 ;;9002226.02101,"804,00247-0341-20 ",.01)
 ;;00247-0341-20
 ;;9002226.02101,"804,00247-0341-20 ",.02)
 ;;00247-0341-20
 ;;9002226.02101,"804,00247-0341-30 ",.01)
 ;;00247-0341-30
 ;;9002226.02101,"804,00247-0341-30 ",.02)
 ;;00247-0341-30
 ;;9002226.02101,"804,00247-0368-02 ",.01)
 ;;00247-0368-02
 ;;9002226.02101,"804,00247-0368-02 ",.02)
 ;;00247-0368-02
 ;;9002226.02101,"804,00247-0368-08 ",.01)
 ;;00247-0368-08
 ;;9002226.02101,"804,00247-0368-08 ",.02)
 ;;00247-0368-08
 ;;9002226.02101,"804,00247-0368-10 ",.01)
 ;;00247-0368-10
 ;;9002226.02101,"804,00247-0368-10 ",.02)
 ;;00247-0368-10
 ;;9002226.02101,"804,00247-0368-14 ",.01)
 ;;00247-0368-14
 ;;9002226.02101,"804,00247-0368-14 ",.02)
 ;;00247-0368-14
 ;;9002226.02101,"804,00247-0368-20 ",.01)
 ;;00247-0368-20
 ;;9002226.02101,"804,00247-0368-20 ",.02)
 ;;00247-0368-20
 ;;9002226.02101,"804,00247-0368-30 ",.01)
 ;;00247-0368-30
 ;;9002226.02101,"804,00247-0368-30 ",.02)
 ;;00247-0368-30
 ;;9002226.02101,"804,00247-0369-24 ",.01)
 ;;00247-0369-24
 ;;9002226.02101,"804,00247-0369-24 ",.02)
 ;;00247-0369-24
 ;;9002226.02101,"804,00247-0369-30 ",.01)
 ;;00247-0369-30
 ;;9002226.02101,"804,00247-0369-30 ",.02)
 ;;00247-0369-30
 ;;9002226.02101,"804,00247-0391-07 ",.01)
 ;;00247-0391-07
 ;;9002226.02101,"804,00247-0391-07 ",.02)
 ;;00247-0391-07
 ;;9002226.02101,"804,00247-0391-15 ",.01)
 ;;00247-0391-15
 ;;9002226.02101,"804,00247-0391-15 ",.02)
 ;;00247-0391-15
 ;;9002226.02101,"804,00247-0391-20 ",.01)
 ;;00247-0391-20
 ;;9002226.02101,"804,00247-0391-20 ",.02)
 ;;00247-0391-20
 ;;9002226.02101,"804,00247-0391-30 ",.01)
 ;;00247-0391-30
 ;;9002226.02101,"804,00247-0391-30 ",.02)
 ;;00247-0391-30
 ;;9002226.02101,"804,00247-0391-40 ",.01)
 ;;00247-0391-40
 ;;9002226.02101,"804,00247-0391-40 ",.02)
 ;;00247-0391-40
 ;;9002226.02101,"804,00247-0708-08 ",.01)
 ;;00247-0708-08
 ;;9002226.02101,"804,00247-0708-08 ",.02)
 ;;00247-0708-08
 ;;9002226.02101,"804,00247-0708-20 ",.01)
 ;;00247-0708-20
 ;;9002226.02101,"804,00247-0708-20 ",.02)
 ;;00247-0708-20
 ;;9002226.02101,"804,00247-0708-21 ",.01)
 ;;00247-0708-21
 ;;9002226.02101,"804,00247-0708-21 ",.02)
 ;;00247-0708-21
 ;;9002226.02101,"804,00247-0708-28 ",.01)
 ;;00247-0708-28
 ;;9002226.02101,"804,00247-0708-28 ",.02)
 ;;00247-0708-28
 ;;9002226.02101,"804,00247-0708-30 ",.01)
 ;;00247-0708-30
 ;;9002226.02101,"804,00247-0708-30 ",.02)
 ;;00247-0708-30
 ;;9002226.02101,"804,00247-0708-36 ",.01)
 ;;00247-0708-36
 ;;9002226.02101,"804,00247-0708-36 ",.02)
 ;;00247-0708-36
 ;;9002226.02101,"804,00247-1054-21 ",.01)
 ;;00247-1054-21
 ;;9002226.02101,"804,00247-1054-21 ",.02)
 ;;00247-1054-21
 ;;9002226.02101,"804,00247-1054-60 ",.01)
 ;;00247-1054-60
 ;;9002226.02101,"804,00247-1054-60 ",.02)
 ;;00247-1054-60
 ;;9002226.02101,"804,00247-1055-07 ",.01)
 ;;00247-1055-07
 ;;9002226.02101,"804,00247-1055-07 ",.02)
 ;;00247-1055-07
 ;;9002226.02101,"804,00247-1055-28 ",.01)
 ;;00247-1055-28
 ;;9002226.02101,"804,00247-1055-28 ",.02)
 ;;00247-1055-28
 ;;9002226.02101,"804,00247-1055-40 ",.01)
 ;;00247-1055-40
 ;;9002226.02101,"804,00247-1055-40 ",.02)
 ;;00247-1055-40
 ;;9002226.02101,"804,00247-1055-60 ",.01)
 ;;00247-1055-60
 ;;9002226.02101,"804,00247-1055-60 ",.02)
 ;;00247-1055-60
 ;;9002226.02101,"804,00247-1540-12 ",.01)
 ;;00247-1540-12
 ;;9002226.02101,"804,00247-1540-12 ",.02)
 ;;00247-1540-12
 ;;9002226.02101,"804,00247-1540-20 ",.01)
 ;;00247-1540-20
 ;;9002226.02101,"804,00247-1540-20 ",.02)
 ;;00247-1540-20