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

BGP2VN11.m

Go to the documentation of this file.
BGP2VN11 ;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,"800,23490-5455-01 ",.02)
 ;;23490-5455-01
 ;;9002226.02101,"800,23490-5457-00 ",.01)
 ;;23490-5457-00
 ;;9002226.02101,"800,23490-5457-00 ",.02)
 ;;23490-5457-00
 ;;9002226.02101,"800,23490-5457-01 ",.01)
 ;;23490-5457-01
 ;;9002226.02101,"800,23490-5457-01 ",.02)
 ;;23490-5457-01
 ;;9002226.02101,"800,23490-5457-02 ",.01)
 ;;23490-5457-02
 ;;9002226.02101,"800,23490-5457-02 ",.02)
 ;;23490-5457-02
 ;;9002226.02101,"800,23490-5457-03 ",.01)
 ;;23490-5457-03
 ;;9002226.02101,"800,23490-5457-03 ",.02)
 ;;23490-5457-03
 ;;9002226.02101,"800,23490-5457-04 ",.01)
 ;;23490-5457-04
 ;;9002226.02101,"800,23490-5457-04 ",.02)
 ;;23490-5457-04
 ;;9002226.02101,"800,23490-5457-05 ",.01)
 ;;23490-5457-05
 ;;9002226.02101,"800,23490-5457-05 ",.02)
 ;;23490-5457-05
 ;;9002226.02101,"800,23490-5459-01 ",.01)
 ;;23490-5459-01
 ;;9002226.02101,"800,23490-5459-01 ",.02)
 ;;23490-5459-01
 ;;9002226.02101,"800,23490-5459-02 ",.01)
 ;;23490-5459-02
 ;;9002226.02101,"800,23490-5459-02 ",.02)
 ;;23490-5459-02
 ;;9002226.02101,"800,23490-5459-03 ",.01)
 ;;23490-5459-03
 ;;9002226.02101,"800,23490-5459-03 ",.02)
 ;;23490-5459-03
 ;;9002226.02101,"800,23490-5459-04 ",.01)
 ;;23490-5459-04
 ;;9002226.02101,"800,23490-5459-04 ",.02)
 ;;23490-5459-04
 ;;9002226.02101,"800,23490-5727-01 ",.01)
 ;;23490-5727-01
 ;;9002226.02101,"800,23490-5727-01 ",.02)
 ;;23490-5727-01
 ;;9002226.02101,"800,23490-5727-02 ",.01)
 ;;23490-5727-02
 ;;9002226.02101,"800,23490-5727-02 ",.02)
 ;;23490-5727-02
 ;;9002226.02101,"800,23490-5728-01 ",.01)
 ;;23490-5728-01
 ;;9002226.02101,"800,23490-5728-01 ",.02)
 ;;23490-5728-01
 ;;9002226.02101,"800,23490-5729-01 ",.01)
 ;;23490-5729-01
 ;;9002226.02101,"800,23490-5729-01 ",.02)
 ;;23490-5729-01
 ;;9002226.02101,"800,23490-5729-02 ",.01)
 ;;23490-5729-02
 ;;9002226.02101,"800,23490-5729-02 ",.02)
 ;;23490-5729-02
 ;;9002226.02101,"800,23490-5729-03 ",.01)
 ;;23490-5729-03
 ;;9002226.02101,"800,23490-5729-03 ",.02)
 ;;23490-5729-03
 ;;9002226.02101,"800,23490-5729-04 ",.01)
 ;;23490-5729-04
 ;;9002226.02101,"800,23490-5729-04 ",.02)
 ;;23490-5729-04
 ;;9002226.02101,"800,23490-5729-05 ",.01)
 ;;23490-5729-05
 ;;9002226.02101,"800,23490-5729-05 ",.02)
 ;;23490-5729-05
 ;;9002226.02101,"800,23490-5729-06 ",.01)
 ;;23490-5729-06
 ;;9002226.02101,"800,23490-5729-06 ",.02)
 ;;23490-5729-06
 ;;9002226.02101,"800,23490-5731-00 ",.01)
 ;;23490-5731-00
 ;;9002226.02101,"800,23490-5731-00 ",.02)
 ;;23490-5731-00
 ;;9002226.02101,"800,23490-5731-01 ",.01)
 ;;23490-5731-01
 ;;9002226.02101,"800,23490-5731-01 ",.02)
 ;;23490-5731-01
 ;;9002226.02101,"800,23490-5733-01 ",.01)
 ;;23490-5733-01
 ;;9002226.02101,"800,23490-5733-01 ",.02)
 ;;23490-5733-01
 ;;9002226.02101,"800,23490-5733-02 ",.01)
 ;;23490-5733-02
 ;;9002226.02101,"800,23490-5733-02 ",.02)
 ;;23490-5733-02
 ;;9002226.02101,"800,23490-6178-01 ",.01)
 ;;23490-6178-01
 ;;9002226.02101,"800,23490-6178-01 ",.02)
 ;;23490-6178-01
 ;;9002226.02101,"800,23490-6178-02 ",.01)
 ;;23490-6178-02
 ;;9002226.02101,"800,23490-6178-02 ",.02)
 ;;23490-6178-02
 ;;9002226.02101,"800,23490-6183-01 ",.01)
 ;;23490-6183-01
 ;;9002226.02101,"800,23490-6183-01 ",.02)
 ;;23490-6183-01
 ;;9002226.02101,"800,23490-6183-02 ",.01)
 ;;23490-6183-02
 ;;9002226.02101,"800,23490-6183-02 ",.02)
 ;;23490-6183-02
 ;;9002226.02101,"800,23490-6183-03 ",.01)
 ;;23490-6183-03
 ;;9002226.02101,"800,23490-6183-03 ",.02)
 ;;23490-6183-03
 ;;9002226.02101,"800,23490-6183-04 ",.01)
 ;;23490-6183-04
 ;;9002226.02101,"800,23490-6183-04 ",.02)
 ;;23490-6183-04
 ;;9002226.02101,"800,23490-6183-06 ",.01)
 ;;23490-6183-06
 ;;9002226.02101,"800,23490-6183-06 ",.02)
 ;;23490-6183-06
 ;;9002226.02101,"800,23490-6183-07 ",.01)
 ;;23490-6183-07
 ;;9002226.02101,"800,23490-6183-07 ",.02)
 ;;23490-6183-07
 ;;9002226.02101,"800,23490-6183-08 ",.01)
 ;;23490-6183-08
 ;;9002226.02101,"800,23490-6183-08 ",.02)
 ;;23490-6183-08
 ;;9002226.02101,"800,23490-6187-01 ",.01)
 ;;23490-6187-01
 ;;9002226.02101,"800,23490-6187-01 ",.02)
 ;;23490-6187-01
 ;;9002226.02101,"800,23490-6188-01 ",.01)
 ;;23490-6188-01
 ;;9002226.02101,"800,23490-6188-01 ",.02)
 ;;23490-6188-01
 ;;9002226.02101,"800,23629-0029-01 ",.01)
 ;;23629-0029-01
 ;;9002226.02101,"800,23629-0029-01 ",.02)
 ;;23629-0029-01
 ;;9002226.02101,"800,23629-0030-01 ",.01)
 ;;23629-0030-01
 ;;9002226.02101,"800,23629-0030-01 ",.02)
 ;;23629-0030-01
 ;;9002226.02101,"800,23629-0031-01 ",.01)
 ;;23629-0031-01
 ;;9002226.02101,"800,23629-0031-01 ",.02)
 ;;23629-0031-01
 ;;9002226.02101,"800,23629-0032-01 ",.01)
 ;;23629-0032-01
 ;;9002226.02101,"800,23629-0032-01 ",.02)
 ;;23629-0032-01
 ;;9002226.02101,"800,23629-0033-01 ",.01)
 ;;23629-0033-01
 ;;9002226.02101,"800,23629-0033-01 ",.02)
 ;;23629-0033-01
 ;;9002226.02101,"800,24385-0379-26 ",.01)
 ;;24385-0379-26
 ;;9002226.02101,"800,24385-0379-26 ",.02)
 ;;24385-0379-26
 ;;9002226.02101,"800,24385-0437-71 ",.01)
 ;;24385-0437-71
 ;;9002226.02101,"800,24385-0437-71 ",.02)
 ;;24385-0437-71
 ;;9002226.02101,"800,24385-0462-62 ",.01)
 ;;24385-0462-62
 ;;9002226.02101,"800,24385-0462-62 ",.02)
 ;;24385-0462-62
 ;;9002226.02101,"800,24385-0462-78 ",.01)
 ;;24385-0462-78
 ;;9002226.02101,"800,24385-0462-78 ",.02)
 ;;24385-0462-78
 ;;9002226.02101,"800,24385-0479-62 ",.01)
 ;;24385-0479-62
 ;;9002226.02101,"800,24385-0479-62 ",.02)
 ;;24385-0479-62
 ;;9002226.02101,"800,24385-0479-78 ",.01)
 ;;24385-0479-78
 ;;9002226.02101,"800,24385-0479-78 ",.02)
 ;;24385-0479-78
 ;;9002226.02101,"800,33358-0110-30 ",.01)
 ;;33358-0110-30
 ;;9002226.02101,"800,33358-0110-30 ",.02)
 ;;33358-0110-30
 ;;9002226.02101,"800,33358-0111-20 ",.01)
 ;;33358-0111-20
 ;;9002226.02101,"800,33358-0111-20 ",.02)
 ;;33358-0111-20
 ;;9002226.02101,"800,33358-0111-30 ",.01)
 ;;33358-0111-30
 ;;9002226.02101,"800,33358-0111-30 ",.02)
 ;;33358-0111-30
 ;;9002226.02101,"800,33358-0179-30 ",.01)
 ;;33358-0179-30
 ;;9002226.02101,"800,33358-0179-30 ",.02)
 ;;33358-0179-30
 ;;9002226.02101,"800,33358-0180-01 ",.01)
 ;;33358-0180-01
 ;;9002226.02101,"800,33358-0180-01 ",.02)
 ;;33358-0180-01
 ;;9002226.02101,"800,33358-0181-20 ",.01)
 ;;33358-0181-20
 ;;9002226.02101,"800,33358-0181-20 ",.02)
 ;;33358-0181-20
 ;;9002226.02101,"800,33358-0181-30 ",.01)
 ;;33358-0181-30
 ;;9002226.02101,"800,33358-0181-30 ",.02)
 ;;33358-0181-30
 ;;9002226.02101,"800,33358-0182-20 ",.01)
 ;;33358-0182-20
 ;;9002226.02101,"800,33358-0182-20 ",.02)
 ;;33358-0182-20
 ;;9002226.02101,"800,33358-0182-30 ",.01)
 ;;33358-0182-30
 ;;9002226.02101,"800,33358-0182-30 ",.02)
 ;;33358-0182-30
 ;;9002226.02101,"800,33358-0302-08 ",.01)
 ;;33358-0302-08
 ;;9002226.02101,"800,33358-0302-08 ",.02)
 ;;33358-0302-08
 ;;9002226.02101,"800,33358-0302-10 ",.01)
 ;;33358-0302-10
 ;;9002226.02101,"800,33358-0302-10 ",.02)
 ;;33358-0302-10
 ;;9002226.02101,"800,33358-0302-30 ",.01)
 ;;33358-0302-30
 ;;9002226.02101,"800,33358-0302-30 ",.02)
 ;;33358-0302-30
 ;;9002226.02101,"800,33358-0302-60 ",.01)
 ;;33358-0302-60
 ;;9002226.02101,"800,33358-0302-60 ",.02)
 ;;33358-0302-60
 ;;9002226.02101,"800,35356-0123-60 ",.01)
 ;;35356-0123-60
 ;;9002226.02101,"800,35356-0123-60 ",.02)
 ;;35356-0123-60
 ;;9002226.02101,"800,37205-0060-71 ",.01)
 ;;37205-0060-71
 ;;9002226.02101,"800,37205-0060-71 ",.02)
 ;;37205-0060-71
 ;;9002226.02101,"800,37205-0565-26 ",.01)
 ;;37205-0565-26
 ;;9002226.02101,"800,37205-0565-26 ",.02)
 ;;37205-0565-26
 ;;9002226.02101,"800,41157-0006-11 ",.01)
 ;;41157-0006-11
 ;;9002226.02101,"800,41157-0006-11 ",.02)
 ;;41157-0006-11
 ;;9002226.02101,"800,41167-0001-40 ",.01)
 ;;41167-0001-40
 ;;9002226.02101,"800,41167-0001-40 ",.02)
 ;;41167-0001-40
 ;;9002226.02101,"800,41167-0006-10 ",.01)
 ;;41167-0006-10
 ;;9002226.02101,"800,41167-0006-10 ",.02)
 ;;41167-0006-10
 ;;9002226.02101,"800,41167-0006-13 ",.01)
 ;;41167-0006-13
 ;;9002226.02101,"800,41167-0006-13 ",.02)
 ;;41167-0006-13
 ;;9002226.02101,"800,42291-0225-10 ",.01)
 ;;42291-0225-10
 ;;9002226.02101,"800,42291-0225-10 ",.02)
 ;;42291-0225-10
 ;;9002226.02101,"800,43063-0049-02 ",.01)
 ;;43063-0049-02
 ;;9002226.02101,"800,43063-0049-02 ",.02)
 ;;43063-0049-02
 ;;9002226.02101,"800,43063-0049-06 ",.01)
 ;;43063-0049-06
 ;;9002226.02101,"800,43063-0049-06 ",.02)
 ;;43063-0049-06
 ;;9002226.02101,"800,43063-0095-06 ",.01)
 ;;43063-0095-06
 ;;9002226.02101,"800,43063-0095-06 ",.02)
 ;;43063-0095-06
 ;;9002226.02101,"800,43063-0179-06 ",.01)
 ;;43063-0179-06
 ;;9002226.02101,"800,43063-0179-06 ",.02)
 ;;43063-0179-06
 ;;9002226.02101,"800,43292-0556-31 ",.01)
 ;;43292-0556-31
 ;;9002226.02101,"800,43292-0556-31 ",.02)
 ;;43292-0556-31
 ;;9002226.02101,"800,43292-0557-65 ",.01)
 ;;43292-0557-65
 ;;9002226.02101,"800,43292-0557-65 ",.02)
 ;;43292-0557-65
 ;;9002226.02101,"800,45985-0652-16 ",.01)
 ;;45985-0652-16
 ;;9002226.02101,"800,45985-0652-16 ",.02)
 ;;45985-0652-16
 ;;9002226.02101,"800,47682-0182-32 ",.01)
 ;;47682-0182-32
 ;;9002226.02101,"800,47682-0182-32 ",.02)
 ;;47682-0182-32
 ;;9002226.02101,"800,47682-0182-47 ",.01)
 ;;47682-0182-47
 ;;9002226.02101,"800,47682-0182-47 ",.02)
 ;;47682-0182-47
 ;;9002226.02101,"800,47682-0182-64 ",.01)
 ;;47682-0182-64
 ;;9002226.02101,"800,47682-0182-64 ",.02)
 ;;47682-0182-64
 ;;9002226.02101,"800,47682-0847-87 ",.01)
 ;;47682-0847-87
 ;;9002226.02101,"800,47682-0847-87 ",.02)
 ;;47682-0847-87
 ;;9002226.02101,"800,47682-0858-87 ",.01)
 ;;47682-0858-87
 ;;9002226.02101,"800,47682-0858-87 ",.02)
 ;;47682-0858-87
 ;;9002226.02101,"800,49348-0044-04 ",.01)
 ;;49348-0044-04
 ;;9002226.02101,"800,49348-0044-04 ",.02)
 ;;49348-0044-04
 ;;9002226.02101,"800,49348-0044-10 ",.01)
 ;;49348-0044-10
 ;;9002226.02101,"800,49348-0044-10 ",.02)
 ;;49348-0044-10
 ;;9002226.02101,"800,49348-0045-34 ",.01)
 ;;49348-0045-34
 ;;9002226.02101,"800,49348-0045-34 ",.02)
 ;;49348-0045-34
 ;;9002226.02101,"800,49348-0045-37 ",.01)
 ;;49348-0045-37
 ;;9002226.02101,"800,49348-0045-37 ",.02)
 ;;49348-0045-37
 ;;9002226.02101,"800,49348-0072-09 ",.01)
 ;;49348-0072-09
 ;;9002226.02101,"800,49348-0072-09 ",.02)
 ;;49348-0072-09
 ;;9002226.02101,"800,49348-0073-09 ",.01)
 ;;49348-0073-09
 ;;9002226.02101,"800,49348-0073-09 ",.02)
 ;;49348-0073-09
 ;;9002226.02101,"800,49348-0074-03 ",.01)
 ;;49348-0074-03
 ;;9002226.02101,"800,49348-0074-03 ",.02)
 ;;49348-0074-03
 ;;9002226.02101,"800,49348-0074-06 ",.01)
 ;;49348-0074-06
 ;;9002226.02101,"800,49348-0074-06 ",.02)
 ;;49348-0074-06
 ;;9002226.02101,"800,49348-0205-37 ",.01)
 ;;49348-0205-37
 ;;9002226.02101,"800,49348-0205-37 ",.02)
 ;;49348-0205-37
 ;;9002226.02101,"800,49348-0206-04 ",.01)
 ;;49348-0206-04
 ;;9002226.02101,"800,49348-0206-04 ",.02)
 ;;49348-0206-04
 ;;9002226.02101,"800,49348-0282-08 ",.01)
 ;;49348-0282-08
 ;;9002226.02101,"800,49348-0282-08 ",.02)
 ;;49348-0282-08
 ;;9002226.02101,"800,49348-0292-09 ",.01)
 ;;49348-0292-09
 ;;9002226.02101,"800,49348-0292-09 ",.02)
 ;;49348-0292-09
 ;;9002226.02101,"800,49348-0348-54 ",.01)
 ;;49348-0348-54
 ;;9002226.02101,"800,49348-0348-54 ",.02)
 ;;49348-0348-54
 ;;9002226.02101,"800,49348-0349-09 ",.01)
 ;;49348-0349-09
 ;;9002226.02101,"800,49348-0349-09 ",.02)
 ;;49348-0349-09
 ;;9002226.02101,"800,49348-0349-10 ",.01)
 ;;49348-0349-10
 ;;9002226.02101,"800,49348-0349-10 ",.02)
 ;;49348-0349-10
 ;;9002226.02101,"800,49348-0349-54 ",.01)
 ;;49348-0349-54
 ;;9002226.02101,"800,49348-0349-54 ",.02)
 ;;49348-0349-54
 ;;9002226.02101,"800,49348-0375-08 ",.01)
 ;;49348-0375-08
 ;;9002226.02101,"800,49348-0375-08 ",.02)
 ;;49348-0375-08
 ;;9002226.02101,"800,49348-0375-10 ",.01)
 ;;49348-0375-10
 ;;9002226.02101,"800,49348-0375-10 ",.02)
 ;;49348-0375-10
 ;;9002226.02101,"800,49348-0471-04 ",.01)
 ;;49348-0471-04
 ;;9002226.02101,"800,49348-0471-04 ",.02)
 ;;49348-0471-04
 ;;9002226.02101,"800,49348-0564-04 ",.01)
 ;;49348-0564-04
 ;;9002226.02101,"800,49348-0564-04 ",.02)
 ;;49348-0564-04
 ;;9002226.02101,"800,49348-0564-07 ",.01)
 ;;49348-0564-07
 ;;9002226.02101,"800,49348-0564-07 ",.02)
 ;;49348-0564-07
 ;;9002226.02101,"800,49348-0611-09 ",.01)
 ;;49348-0611-09
 ;;9002226.02101,"800,49348-0611-09 ",.02)
 ;;49348-0611-09
 ;;9002226.02101,"800,49348-0779-04 ",.01)
 ;;49348-0779-04
 ;;9002226.02101,"800,49348-0779-04 ",.02)
 ;;49348-0779-04
 ;;9002226.02101,"800,49348-0904-70 ",.01)
 ;;49348-0904-70
 ;;9002226.02101,"800,49348-0904-70 ",.02)
 ;;49348-0904-70
 ;;9002226.02101,"800,49348-0918-09 ",.01)
 ;;49348-0918-09
 ;;9002226.02101,"800,49348-0918-09 ",.02)
 ;;49348-0918-09
 ;;9002226.02101,"800,49348-0918-10 ",.01)
 ;;49348-0918-10
 ;;9002226.02101,"800,49348-0918-10 ",.02)
 ;;49348-0918-10
 ;;9002226.02101,"800,49884-0043-01 ",.01)
 ;;49884-0043-01
 ;;9002226.02101,"800,49884-0043-01 ",.02)
 ;;49884-0043-01
 ;;9002226.02101,"800,49884-0043-10 ",.01)
 ;;49884-0043-10
 ;;9002226.02101,"800,49884-0043-10 ",.02)
 ;;49884-0043-10
 ;;9002226.02101,"800,49999-0003-00 ",.01)
 ;;49999-0003-00
 ;;9002226.02101,"800,49999-0003-00 ",.02)
 ;;49999-0003-00
 ;;9002226.02101,"800,49999-0003-06 ",.01)
 ;;49999-0003-06
 ;;9002226.02101,"800,49999-0003-06 ",.02)
 ;;49999-0003-06
 ;;9002226.02101,"800,49999-0003-15 ",.01)
 ;;49999-0003-15
 ;;9002226.02101,"800,49999-0003-15 ",.02)
 ;;49999-0003-15
 ;;9002226.02101,"800,49999-0003-20 ",.01)
 ;;49999-0003-20
 ;;9002226.02101,"800,49999-0003-20 ",.02)
 ;;49999-0003-20
 ;;9002226.02101,"800,49999-0003-21 ",.01)
 ;;49999-0003-21