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

BGP2VX3.m

Go to the documentation of this file.
BGP2VX3 ;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,"720,00603-6054-32 ",.01)
 ;;00603-6054-32
 ;;9002226.02101,"720,00603-6054-32 ",.02)
 ;;00603-6054-32
 ;;9002226.02101,"720,00603-6055-21 ",.01)
 ;;00603-6055-21
 ;;9002226.02101,"720,00603-6055-21 ",.02)
 ;;00603-6055-21
 ;;9002226.02101,"720,00603-6055-32 ",.01)
 ;;00603-6055-32
 ;;9002226.02101,"720,00603-6055-32 ",.02)
 ;;00603-6055-32
 ;;9002226.02101,"720,00615-1308-13 ",.01)
 ;;00615-1308-13
 ;;9002226.02101,"720,00615-1308-13 ",.02)
 ;;00615-1308-13
 ;;9002226.02101,"720,00904-0761-60 ",.01)
 ;;00904-0761-60
 ;;9002226.02101,"720,00904-0761-60 ",.02)
 ;;00904-0761-60
 ;;9002226.02101,"720,00904-0761-80 ",.01)
 ;;00904-0761-80
 ;;9002226.02101,"720,00904-0761-80 ",.02)
 ;;00904-0761-80
 ;;9002226.02101,"720,00904-0762-60 ",.01)
 ;;00904-0762-60
 ;;9002226.02101,"720,00904-0762-60 ",.02)
 ;;00904-0762-60
 ;;9002226.02101,"720,00904-0763-60 ",.01)
 ;;00904-0763-60
 ;;9002226.02101,"720,00904-0763-60 ",.02)
 ;;00904-0763-60
 ;;9002226.02101,"720,00904-0808-60 ",.01)
 ;;00904-0808-60
 ;;9002226.02101,"720,00904-0808-60 ",.02)
 ;;00904-0808-60
 ;;9002226.02101,"720,00904-0809-60 ",.01)
 ;;00904-0809-60
 ;;9002226.02101,"720,00904-0809-60 ",.02)
 ;;00904-0809-60
 ;;9002226.02101,"720,00904-0809-80 ",.01)
 ;;00904-0809-80
 ;;9002226.02101,"720,00904-0809-80 ",.02)
 ;;00904-0809-80
 ;;9002226.02101,"720,00904-7721-40 ",.01)
 ;;00904-7721-40
 ;;9002226.02101,"720,00904-7721-40 ",.02)
 ;;00904-7721-40
 ;;9002226.02101,"720,00904-7721-60 ",.01)
 ;;00904-7721-60
 ;;9002226.02101,"720,00904-7721-60 ",.02)
 ;;00904-7721-60
 ;;9002226.02101,"720,00904-7722-40 ",.01)
 ;;00904-7722-40
 ;;9002226.02101,"720,00904-7722-40 ",.02)
 ;;00904-7722-40
 ;;9002226.02101,"720,00904-7722-60 ",.01)
 ;;00904-7722-60
 ;;9002226.02101,"720,00904-7722-60 ",.02)
 ;;00904-7722-60
 ;;9002226.02101,"720,00904-7865-60 ",.01)
 ;;00904-7865-60
 ;;9002226.02101,"720,00904-7865-60 ",.02)
 ;;00904-7865-60
 ;;9002226.02101,"720,00904-7865-80 ",.01)
 ;;00904-7865-80
 ;;9002226.02101,"720,00904-7865-80 ",.02)
 ;;00904-7865-80
 ;;9002226.02101,"720,12280-0130-00 ",.01)
 ;;12280-0130-00
 ;;9002226.02101,"720,12280-0130-00 ",.02)
 ;;12280-0130-00
 ;;9002226.02101,"720,12280-0131-00 ",.01)
 ;;12280-0131-00
 ;;9002226.02101,"720,12280-0131-00 ",.02)
 ;;12280-0131-00
 ;;9002226.02101,"720,12280-0131-30 ",.01)
 ;;12280-0131-30
 ;;9002226.02101,"720,12280-0131-30 ",.02)
 ;;12280-0131-30
 ;;9002226.02101,"720,12280-0204-00 ",.01)
 ;;12280-0204-00
 ;;9002226.02101,"720,12280-0204-00 ",.02)
 ;;12280-0204-00
 ;;9002226.02101,"720,16590-0380-14 ",.01)
 ;;16590-0380-14
 ;;9002226.02101,"720,16590-0380-14 ",.02)
 ;;16590-0380-14
 ;;9002226.02101,"720,21695-0300-14 ",.01)
 ;;21695-0300-14
 ;;9002226.02101,"720,21695-0300-14 ",.02)
 ;;21695-0300-14
 ;;9002226.02101,"720,21695-0300-20 ",.01)
 ;;21695-0300-20
 ;;9002226.02101,"720,21695-0300-20 ",.02)
 ;;21695-0300-20
 ;;9002226.02101,"720,23490-5994-00 ",.01)
 ;;23490-5994-00
 ;;9002226.02101,"720,23490-5994-00 ",.02)
 ;;23490-5994-00
 ;;9002226.02101,"720,23490-5994-01 ",.01)
 ;;23490-5994-01
 ;;9002226.02101,"720,23490-5994-01 ",.02)
 ;;23490-5994-01
 ;;9002226.02101,"720,23490-5994-02 ",.01)
 ;;23490-5994-02
 ;;9002226.02101,"720,23490-5994-02 ",.02)
 ;;23490-5994-02
 ;;9002226.02101,"720,23490-5994-03 ",.01)
 ;;23490-5994-03
 ;;9002226.02101,"720,23490-5994-03 ",.02)
 ;;23490-5994-03
 ;;9002226.02101,"720,23490-6374-01 ",.01)
 ;;23490-6374-01
 ;;9002226.02101,"720,23490-6374-01 ",.02)
 ;;23490-6374-01
 ;;9002226.02101,"720,23490-6377-01 ",.01)
 ;;23490-6377-01
 ;;9002226.02101,"720,23490-6377-01 ",.02)
 ;;23490-6377-01
 ;;9002226.02101,"720,23490-6377-02 ",.01)
 ;;23490-6377-02
 ;;9002226.02101,"720,23490-6377-02 ",.02)
 ;;23490-6377-02
 ;;9002226.02101,"720,23490-6840-01 ",.01)
 ;;23490-6840-01
 ;;9002226.02101,"720,23490-6840-01 ",.02)
 ;;23490-6840-01
 ;;9002226.02101,"720,23490-6840-02 ",.01)
 ;;23490-6840-02
 ;;9002226.02101,"720,23490-6840-02 ",.02)
 ;;23490-6840-02
 ;;9002226.02101,"720,23490-6840-03 ",.01)
 ;;23490-6840-03
 ;;9002226.02101,"720,23490-6840-03 ",.02)
 ;;23490-6840-03
 ;;9002226.02101,"720,23490-6840-04 ",.01)
 ;;23490-6840-04
 ;;9002226.02101,"720,23490-6840-04 ",.02)
 ;;23490-6840-04
 ;;9002226.02101,"720,33358-0265-14 ",.01)
 ;;33358-0265-14
 ;;9002226.02101,"720,33358-0265-14 ",.02)
 ;;33358-0265-14
 ;;9002226.02101,"720,33358-0265-20 ",.01)
 ;;33358-0265-20
 ;;9002226.02101,"720,33358-0265-20 ",.02)
 ;;33358-0265-20
 ;;9002226.02101,"720,33358-0267-14 ",.01)
 ;;33358-0267-14
 ;;9002226.02101,"720,33358-0267-14 ",.02)
 ;;33358-0267-14
 ;;9002226.02101,"720,33358-0267-28 ",.01)
 ;;33358-0267-28
 ;;9002226.02101,"720,33358-0267-28 ",.02)
 ;;33358-0267-28
 ;;9002226.02101,"720,33358-0267-30 ",.01)
 ;;33358-0267-30
 ;;9002226.02101,"720,33358-0267-30 ",.02)
 ;;33358-0267-30
 ;;9002226.02101,"720,33358-0267-40 ",.01)
 ;;33358-0267-40
 ;;9002226.02101,"720,33358-0267-40 ",.02)
 ;;33358-0267-40
 ;;9002226.02101,"720,42192-0329-01 ",.01)
 ;;42192-0329-01
 ;;9002226.02101,"720,42192-0329-01 ",.02)
 ;;42192-0329-01
 ;;9002226.02101,"720,42192-0330-01 ",.01)
 ;;42192-0330-01
 ;;9002226.02101,"720,42192-0330-01 ",.02)
 ;;42192-0330-01
 ;;9002226.02101,"720,42192-0331-01 ",.01)
 ;;42192-0331-01
 ;;9002226.02101,"720,42192-0331-01 ",.02)
 ;;42192-0331-01
 ;;9002226.02101,"720,43063-0173-02 ",.01)
 ;;43063-0173-02
 ;;9002226.02101,"720,43063-0173-02 ",.02)
 ;;43063-0173-02
 ;;9002226.02101,"720,47781-0303-01 ",.01)
 ;;47781-0303-01
 ;;9002226.02101,"720,47781-0303-01 ",.02)
 ;;47781-0303-01
 ;;9002226.02101,"720,47781-0307-01 ",.01)
 ;;47781-0307-01
 ;;9002226.02101,"720,47781-0307-01 ",.02)
 ;;47781-0307-01
 ;;9002226.02101,"720,47781-0308-01 ",.01)
 ;;47781-0308-01
 ;;9002226.02101,"720,47781-0308-01 ",.02)
 ;;47781-0308-01
 ;;9002226.02101,"720,49483-0021-01 ",.01)
 ;;49483-0021-01
 ;;9002226.02101,"720,49483-0021-01 ",.02)
 ;;49483-0021-01
 ;;9002226.02101,"720,49483-0021-10 ",.01)
 ;;49483-0021-10
 ;;9002226.02101,"720,49483-0021-10 ",.02)
 ;;49483-0021-10
 ;;9002226.02101,"720,49483-0022-01 ",.01)
 ;;49483-0022-01
 ;;9002226.02101,"720,49483-0022-01 ",.02)
 ;;49483-0022-01
 ;;9002226.02101,"720,49483-0022-10 ",.01)
 ;;49483-0022-10
 ;;9002226.02101,"720,49483-0022-10 ",.02)
 ;;49483-0022-10
 ;;9002226.02101,"720,49483-0023-01 ",.01)
 ;;49483-0023-01
 ;;9002226.02101,"720,49483-0023-01 ",.02)
 ;;49483-0023-01
 ;;9002226.02101,"720,49483-0023-10 ",.01)
 ;;49483-0023-10
 ;;9002226.02101,"720,49483-0023-10 ",.02)
 ;;49483-0023-10
 ;;9002226.02101,"720,49483-0038-01 ",.01)
 ;;49483-0038-01
 ;;9002226.02101,"720,49483-0038-01 ",.02)
 ;;49483-0038-01
 ;;9002226.02101,"720,49483-0038-10 ",.01)
 ;;49483-0038-10
 ;;9002226.02101,"720,49483-0038-10 ",.02)
 ;;49483-0038-10
 ;;9002226.02101,"720,49999-0210-14 ",.01)
 ;;49999-0210-14
 ;;9002226.02101,"720,49999-0210-14 ",.02)
 ;;49999-0210-14
 ;;9002226.02101,"720,49999-0210-20 ",.01)
 ;;49999-0210-20
 ;;9002226.02101,"720,49999-0210-20 ",.02)
 ;;49999-0210-20
 ;;9002226.02101,"720,49999-0210-28 ",.01)
 ;;49999-0210-28
 ;;9002226.02101,"720,49999-0210-28 ",.02)
 ;;49999-0210-28
 ;;9002226.02101,"720,49999-0281-00 ",.01)
 ;;49999-0281-00
 ;;9002226.02101,"720,49999-0281-00 ",.02)
 ;;49999-0281-00
 ;;9002226.02101,"720,49999-0282-00 ",.01)
 ;;49999-0282-00
 ;;9002226.02101,"720,49999-0282-00 ",.02)
 ;;49999-0282-00
 ;;9002226.02101,"720,49999-0282-60 ",.01)
 ;;49999-0282-60
 ;;9002226.02101,"720,49999-0282-60 ",.02)
 ;;49999-0282-60
 ;;9002226.02101,"720,49999-0288-30 ",.01)
 ;;49999-0288-30
 ;;9002226.02101,"720,49999-0288-30 ",.02)
 ;;49999-0288-30
 ;;9002226.02101,"720,49999-0288-60 ",.01)
 ;;49999-0288-60
 ;;9002226.02101,"720,49999-0288-60 ",.02)
 ;;49999-0288-60
 ;;9002226.02101,"720,49999-0289-60 ",.01)
 ;;49999-0289-60
 ;;9002226.02101,"720,49999-0289-60 ",.02)
 ;;49999-0289-60
 ;;9002226.02101,"720,49999-0675-14 ",.01)
 ;;49999-0675-14
 ;;9002226.02101,"720,49999-0675-14 ",.02)
 ;;49999-0675-14
 ;;9002226.02101,"720,49999-0702-30 ",.01)
 ;;49999-0702-30
 ;;9002226.02101,"720,49999-0702-30 ",.02)
 ;;49999-0702-30
 ;;9002226.02101,"720,51079-0348-01 ",.01)
 ;;51079-0348-01
 ;;9002226.02101,"720,51079-0348-01 ",.02)
 ;;51079-0348-01
 ;;9002226.02101,"720,51079-0348-20 ",.01)
 ;;51079-0348-20
 ;;9002226.02101,"720,51079-0348-20 ",.02)
 ;;51079-0348-20
 ;;9002226.02101,"720,51079-0584-20 ",.01)
 ;;51079-0584-20
 ;;9002226.02101,"720,51079-0584-20 ",.02)
 ;;51079-0584-20
 ;;9002226.02101,"720,51079-0585-01 ",.01)
 ;;51079-0585-01
 ;;9002226.02101,"720,51079-0585-01 ",.02)
 ;;51079-0585-01
 ;;9002226.02101,"720,51079-0585-20 ",.01)
 ;;51079-0585-20
 ;;9002226.02101,"720,51079-0585-20 ",.02)
 ;;51079-0585-20
 ;;9002226.02101,"720,51655-0593-84 ",.01)
 ;;51655-0593-84
 ;;9002226.02101,"720,51655-0593-84 ",.02)
 ;;51655-0593-84
 ;;9002226.02101,"720,52427-0285-01 ",.01)
 ;;52427-0285-01
 ;;9002226.02101,"720,52427-0285-01 ",.02)
 ;;52427-0285-01
 ;;9002226.02101,"720,52427-0286-01 ",.01)
 ;;52427-0286-01
 ;;9002226.02101,"720,52427-0286-01 ",.02)
 ;;52427-0286-01
 ;;9002226.02101,"720,52427-0288-01 ",.01)
 ;;52427-0288-01
 ;;9002226.02101,"720,52427-0288-01 ",.02)
 ;;52427-0288-01
 ;;9002226.02101,"720,52555-0787-01 ",.01)
 ;;52555-0787-01
 ;;9002226.02101,"720,52555-0787-01 ",.02)
 ;;52555-0787-01
 ;;9002226.02101,"720,52959-0143-00 ",.01)
 ;;52959-0143-00
 ;;9002226.02101,"720,52959-0143-00 ",.02)
 ;;52959-0143-00
 ;;9002226.02101,"720,52959-0404-10 ",.01)
 ;;52959-0404-10
 ;;9002226.02101,"720,52959-0404-10 ",.02)
 ;;52959-0404-10
 ;;9002226.02101,"720,52959-0404-14 ",.01)
 ;;52959-0404-14
 ;;9002226.02101,"720,52959-0404-14 ",.02)
 ;;52959-0404-14
 ;;9002226.02101,"720,52959-0404-20 ",.01)
 ;;52959-0404-20
 ;;9002226.02101,"720,52959-0404-20 ",.02)
 ;;52959-0404-20
 ;;9002226.02101,"720,52959-0405-00 ",.01)
 ;;52959-0405-00
 ;;9002226.02101,"720,52959-0405-00 ",.02)
 ;;52959-0405-00
 ;;9002226.02101,"720,52959-0405-08 ",.01)
 ;;52959-0405-08
 ;;9002226.02101,"720,52959-0405-08 ",.02)
 ;;52959-0405-08
 ;;9002226.02101,"720,52959-0405-10 ",.01)
 ;;52959-0405-10
 ;;9002226.02101,"720,52959-0405-10 ",.02)
 ;;52959-0405-10
 ;;9002226.02101,"720,52959-0405-14 ",.01)
 ;;52959-0405-14
 ;;9002226.02101,"720,52959-0405-14 ",.02)
 ;;52959-0405-14
 ;;9002226.02101,"720,52959-0405-15 ",.01)
 ;;52959-0405-15
 ;;9002226.02101,"720,52959-0405-15 ",.02)
 ;;52959-0405-15
 ;;9002226.02101,"720,52959-0405-16 ",.01)
 ;;52959-0405-16
 ;;9002226.02101,"720,52959-0405-16 ",.02)
 ;;52959-0405-16
 ;;9002226.02101,"720,52959-0405-20 ",.01)
 ;;52959-0405-20
 ;;9002226.02101,"720,52959-0405-20 ",.02)
 ;;52959-0405-20
 ;;9002226.02101,"720,52959-0405-21 ",.01)
 ;;52959-0405-21
 ;;9002226.02101,"720,52959-0405-21 ",.02)
 ;;52959-0405-21
 ;;9002226.02101,"720,52959-0405-28 ",.01)
 ;;52959-0405-28
 ;;9002226.02101,"720,52959-0405-28 ",.02)
 ;;52959-0405-28
 ;;9002226.02101,"720,52959-0405-30 ",.01)
 ;;52959-0405-30
 ;;9002226.02101,"720,52959-0405-30 ",.02)
 ;;52959-0405-30
 ;;9002226.02101,"720,52959-0405-40 ",.01)
 ;;52959-0405-40
 ;;9002226.02101,"720,52959-0405-40 ",.02)
 ;;52959-0405-40
 ;;9002226.02101,"720,52959-0783-10 ",.01)
 ;;52959-0783-10
 ;;9002226.02101,"720,52959-0783-10 ",.02)
 ;;52959-0783-10
 ;;9002226.02101,"720,52959-0783-14 ",.01)
 ;;52959-0783-14
 ;;9002226.02101,"720,52959-0783-14 ",.02)
 ;;52959-0783-14
 ;;9002226.02101,"720,52959-0783-20 ",.01)
 ;;52959-0783-20
 ;;9002226.02101,"720,52959-0783-20 ",.02)
 ;;52959-0783-20
 ;;9002226.02101,"720,54348-0850-06 ",.01)
 ;;54348-0850-06
 ;;9002226.02101,"720,54348-0850-06 ",.02)
 ;;54348-0850-06
 ;;9002226.02101,"720,54569-0181-00 ",.01)
 ;;54569-0181-00
 ;;9002226.02101,"720,54569-0181-00 ",.02)
 ;;54569-0181-00
 ;;9002226.02101,"720,54569-0181-01 ",.01)
 ;;54569-0181-01
 ;;9002226.02101,"720,54569-0181-01 ",.02)
 ;;54569-0181-01
 ;;9002226.02101,"720,54569-0181-02 ",.01)
 ;;54569-0181-02
 ;;9002226.02101,"720,54569-0181-02 ",.02)
 ;;54569-0181-02
 ;;9002226.02101,"720,54569-0181-04 ",.01)
 ;;54569-0181-04
 ;;9002226.02101,"720,54569-0181-04 ",.02)
 ;;54569-0181-04
 ;;9002226.02101,"720,54569-0841-00 ",.01)
 ;;54569-0841-00
 ;;9002226.02101,"720,54569-0841-00 ",.02)
 ;;54569-0841-00
 ;;9002226.02101,"720,54569-0917-00 ",.01)
 ;;54569-0917-00
 ;;9002226.02101,"720,54569-0917-00 ",.02)
 ;;54569-0917-00
 ;;9002226.02101,"720,54569-0917-01 ",.01)
 ;;54569-0917-01
 ;;9002226.02101,"720,54569-0917-01 ",.02)
 ;;54569-0917-01
 ;;9002226.02101,"720,54569-0918-00 ",.01)
 ;;54569-0918-00
 ;;9002226.02101,"720,54569-0918-00 ",.02)
 ;;54569-0918-00
 ;;9002226.02101,"720,54569-0919-00 ",.01)
 ;;54569-0919-00
 ;;9002226.02101,"720,54569-0919-00 ",.02)
 ;;54569-0919-00
 ;;9002226.02101,"720,54569-0920-00 ",.01)
 ;;54569-0920-00
 ;;9002226.02101,"720,54569-0920-00 ",.02)
 ;;54569-0920-00
 ;;9002226.02101,"720,54569-1969-00 ",.01)
 ;;54569-1969-00
 ;;9002226.02101,"720,54569-1969-00 ",.02)
 ;;54569-1969-00
 ;;9002226.02101,"720,54569-1969-01 ",.01)
 ;;54569-1969-01
 ;;9002226.02101,"720,54569-1969-01 ",.02)
 ;;54569-1969-01
 ;;9002226.02101,"720,54569-1969-02 ",.01)
 ;;54569-1969-02
 ;;9002226.02101,"720,54569-1969-02 ",.02)
 ;;54569-1969-02
 ;;9002226.02101,"720,54569-3180-02 ",.01)
 ;;54569-3180-02
 ;;9002226.02101,"720,54569-3180-02 ",.02)
 ;;54569-3180-02
 ;;9002226.02101,"720,54569-3181-01 ",.01)
 ;;54569-3181-01
 ;;9002226.02101,"720,54569-3181-01 ",.02)
 ;;54569-3181-01