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

BGP2VN12.m

Go to the documentation of this file.
BGP2VN12 ;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,49999-0003-21 ",.02)
 ;;49999-0003-21
 ;;9002226.02101,"800,49999-0003-24 ",.01)
 ;;49999-0003-24
 ;;9002226.02101,"800,49999-0003-24 ",.02)
 ;;49999-0003-24
 ;;9002226.02101,"800,49999-0003-30 ",.01)
 ;;49999-0003-30
 ;;9002226.02101,"800,49999-0003-30 ",.02)
 ;;49999-0003-30
 ;;9002226.02101,"800,49999-0003-40 ",.01)
 ;;49999-0003-40
 ;;9002226.02101,"800,49999-0003-40 ",.02)
 ;;49999-0003-40
 ;;9002226.02101,"800,49999-0003-60 ",.01)
 ;;49999-0003-60
 ;;9002226.02101,"800,49999-0003-60 ",.02)
 ;;49999-0003-60
 ;;9002226.02101,"800,49999-0024-00 ",.01)
 ;;49999-0024-00
 ;;9002226.02101,"800,49999-0024-00 ",.02)
 ;;49999-0024-00
 ;;9002226.02101,"800,49999-0024-12 ",.01)
 ;;49999-0024-12
 ;;9002226.02101,"800,49999-0024-12 ",.02)
 ;;49999-0024-12
 ;;9002226.02101,"800,49999-0024-24 ",.01)
 ;;49999-0024-24
 ;;9002226.02101,"800,49999-0024-24 ",.02)
 ;;49999-0024-24
 ;;9002226.02101,"800,49999-0024-30 ",.01)
 ;;49999-0024-30
 ;;9002226.02101,"800,49999-0024-30 ",.02)
 ;;49999-0024-30
 ;;9002226.02101,"800,49999-0024-60 ",.01)
 ;;49999-0024-60
 ;;9002226.02101,"800,49999-0024-60 ",.02)
 ;;49999-0024-60
 ;;9002226.02101,"800,49999-0035-24 ",.01)
 ;;49999-0035-24
 ;;9002226.02101,"800,49999-0035-24 ",.02)
 ;;49999-0035-24
 ;;9002226.02101,"800,49999-0035-30 ",.01)
 ;;49999-0035-30
 ;;9002226.02101,"800,49999-0035-30 ",.02)
 ;;49999-0035-30
 ;;9002226.02101,"800,49999-0035-60 ",.01)
 ;;49999-0035-60
 ;;9002226.02101,"800,49999-0035-60 ",.02)
 ;;49999-0035-60
 ;;9002226.02101,"800,49999-0036-12 ",.01)
 ;;49999-0036-12
 ;;9002226.02101,"800,49999-0036-12 ",.02)
 ;;49999-0036-12
 ;;9002226.02101,"800,49999-0036-60 ",.01)
 ;;49999-0036-60
 ;;9002226.02101,"800,49999-0036-60 ",.02)
 ;;49999-0036-60
 ;;9002226.02101,"800,49999-0090-05 ",.01)
 ;;49999-0090-05
 ;;9002226.02101,"800,49999-0090-05 ",.02)
 ;;49999-0090-05
 ;;9002226.02101,"800,49999-0090-10 ",.01)
 ;;49999-0090-10
 ;;9002226.02101,"800,49999-0090-10 ",.02)
 ;;49999-0090-10
 ;;9002226.02101,"800,49999-0090-12 ",.01)
 ;;49999-0090-12
 ;;9002226.02101,"800,49999-0090-12 ",.02)
 ;;49999-0090-12
 ;;9002226.02101,"800,49999-0090-15 ",.01)
 ;;49999-0090-15
 ;;9002226.02101,"800,49999-0090-15 ",.02)
 ;;49999-0090-15
 ;;9002226.02101,"800,49999-0090-20 ",.01)
 ;;49999-0090-20
 ;;9002226.02101,"800,49999-0090-20 ",.02)
 ;;49999-0090-20
 ;;9002226.02101,"800,49999-0090-30 ",.01)
 ;;49999-0090-30
 ;;9002226.02101,"800,49999-0090-30 ",.02)
 ;;49999-0090-30
 ;;9002226.02101,"800,49999-0090-60 ",.01)
 ;;49999-0090-60
 ;;9002226.02101,"800,49999-0090-60 ",.02)
 ;;49999-0090-60
 ;;9002226.02101,"800,49999-0091-04 ",.01)
 ;;49999-0091-04
 ;;9002226.02101,"800,49999-0091-04 ",.02)
 ;;49999-0091-04
 ;;9002226.02101,"800,49999-0091-15 ",.01)
 ;;49999-0091-15
 ;;9002226.02101,"800,49999-0091-15 ",.02)
 ;;49999-0091-15
 ;;9002226.02101,"800,49999-0091-20 ",.01)
 ;;49999-0091-20
 ;;9002226.02101,"800,49999-0091-20 ",.02)
 ;;49999-0091-20
 ;;9002226.02101,"800,49999-0091-30 ",.01)
 ;;49999-0091-30
 ;;9002226.02101,"800,49999-0091-30 ",.02)
 ;;49999-0091-30
 ;;9002226.02101,"800,49999-0091-60 ",.01)
 ;;49999-0091-60
 ;;9002226.02101,"800,49999-0091-60 ",.02)
 ;;49999-0091-60
 ;;9002226.02101,"800,49999-0152-04 ",.01)
 ;;49999-0152-04
 ;;9002226.02101,"800,49999-0152-04 ",.02)
 ;;49999-0152-04
 ;;9002226.02101,"800,49999-0247-04 ",.01)
 ;;49999-0247-04
 ;;9002226.02101,"800,49999-0247-04 ",.02)
 ;;49999-0247-04
 ;;9002226.02101,"800,49999-0262-04 ",.01)
 ;;49999-0262-04
 ;;9002226.02101,"800,49999-0262-04 ",.02)
 ;;49999-0262-04
 ;;9002226.02101,"800,49999-0314-04 ",.01)
 ;;49999-0314-04
 ;;9002226.02101,"800,49999-0314-04 ",.02)
 ;;49999-0314-04
 ;;9002226.02101,"800,49999-0326-04 ",.01)
 ;;49999-0326-04
 ;;9002226.02101,"800,49999-0326-04 ",.02)
 ;;49999-0326-04
 ;;9002226.02101,"800,49999-0493-18 ",.01)
 ;;49999-0493-18
 ;;9002226.02101,"800,49999-0493-18 ",.02)
 ;;49999-0493-18
 ;;9002226.02101,"800,49999-0657-04 ",.01)
 ;;49999-0657-04
 ;;9002226.02101,"800,49999-0657-04 ",.02)
 ;;49999-0657-04
 ;;9002226.02101,"800,49999-0902-20 ",.01)
 ;;49999-0902-20
 ;;9002226.02101,"800,49999-0902-20 ",.02)
 ;;49999-0902-20
 ;;9002226.02101,"800,50111-0307-01 ",.01)
 ;;50111-0307-01
 ;;9002226.02101,"800,50111-0307-01 ",.02)
 ;;50111-0307-01
 ;;9002226.02101,"800,50111-0307-02 ",.01)
 ;;50111-0307-02
 ;;9002226.02101,"800,50111-0307-02 ",.02)
 ;;50111-0307-02
 ;;9002226.02101,"800,50111-0307-03 ",.01)
 ;;50111-0307-03
 ;;9002226.02101,"800,50111-0307-03 ",.02)
 ;;50111-0307-03
 ;;9002226.02101,"800,50111-0308-01 ",.01)
 ;;50111-0308-01
 ;;9002226.02101,"800,50111-0308-01 ",.02)
 ;;50111-0308-01
 ;;9002226.02101,"800,50111-0308-02 ",.01)
 ;;50111-0308-02
 ;;9002226.02101,"800,50111-0308-02 ",.02)
 ;;50111-0308-02
 ;;9002226.02101,"800,50111-0308-03 ",.01)
 ;;50111-0308-03
 ;;9002226.02101,"800,50111-0308-03 ",.02)
 ;;50111-0308-03
 ;;9002226.02101,"800,50111-0309-01 ",.01)
 ;;50111-0309-01
 ;;9002226.02101,"800,50111-0309-01 ",.02)
 ;;50111-0309-01
 ;;9002226.02101,"800,50111-0309-02 ",.01)
 ;;50111-0309-02
 ;;9002226.02101,"800,50111-0309-02 ",.02)
 ;;50111-0309-02
 ;;9002226.02101,"800,50111-0309-03 ",.01)
 ;;50111-0309-03
 ;;9002226.02101,"800,50111-0309-03 ",.02)
 ;;50111-0309-03
 ;;9002226.02101,"800,50111-0314-01 ",.01)
 ;;50111-0314-01
 ;;9002226.02101,"800,50111-0314-01 ",.02)
 ;;50111-0314-01
 ;;9002226.02101,"800,50111-0314-03 ",.01)
 ;;50111-0314-03
 ;;9002226.02101,"800,50111-0314-03 ",.02)
 ;;50111-0314-03
 ;;9002226.02101,"800,50383-0578-04 ",.01)
 ;;50383-0578-04
 ;;9002226.02101,"800,50383-0578-04 ",.02)
 ;;50383-0578-04
 ;;9002226.02101,"800,50383-0578-16 ",.01)
 ;;50383-0578-16
 ;;9002226.02101,"800,50383-0578-16 ",.02)
 ;;50383-0578-16
 ;;9002226.02101,"800,50383-0579-04 ",.01)
 ;;50383-0579-04
 ;;9002226.02101,"800,50383-0579-04 ",.02)
 ;;50383-0579-04
 ;;9002226.02101,"800,50383-0579-08 ",.01)
 ;;50383-0579-08
 ;;9002226.02101,"800,50383-0579-08 ",.02)
 ;;50383-0579-08
 ;;9002226.02101,"800,50383-0579-16 ",.01)
 ;;50383-0579-16
 ;;9002226.02101,"800,50383-0579-16 ",.02)
 ;;50383-0579-16
 ;;9002226.02101,"800,50383-0579-28 ",.01)
 ;;50383-0579-28
 ;;9002226.02101,"800,50383-0579-28 ",.02)
 ;;50383-0579-28
 ;;9002226.02101,"800,50383-0581-04 ",.01)
 ;;50383-0581-04
 ;;9002226.02101,"800,50383-0581-04 ",.02)
 ;;50383-0581-04
 ;;9002226.02101,"800,50383-0581-16 ",.01)
 ;;50383-0581-16
 ;;9002226.02101,"800,50383-0581-16 ",.02)
 ;;50383-0581-16
 ;;9002226.02101,"800,50383-0796-16 ",.01)
 ;;50383-0796-16
 ;;9002226.02101,"800,50383-0796-16 ",.02)
 ;;50383-0796-16
 ;;9002226.02101,"800,50383-0801-16 ",.01)
 ;;50383-0801-16
 ;;9002226.02101,"800,50383-0801-16 ",.02)
 ;;50383-0801-16
 ;;9002226.02101,"800,50383-0803-16 ",.01)
 ;;50383-0803-16
 ;;9002226.02101,"800,50383-0803-16 ",.02)
 ;;50383-0803-16
 ;;9002226.02101,"800,50383-0804-16 ",.01)
 ;;50383-0804-16
 ;;9002226.02101,"800,50383-0804-16 ",.02)
 ;;50383-0804-16
 ;;9002226.02101,"800,50383-0866-04 ",.01)
 ;;50383-0866-04
 ;;9002226.02101,"800,50383-0866-04 ",.02)
 ;;50383-0866-04
 ;;9002226.02101,"800,50383-0866-16 ",.01)
 ;;50383-0866-16
 ;;9002226.02101,"800,50383-0866-16 ",.02)
 ;;50383-0866-16
 ;;9002226.02101,"800,50383-0880-16 ",.01)
 ;;50383-0880-16
 ;;9002226.02101,"800,50383-0880-16 ",.02)
 ;;50383-0880-16
 ;;9002226.02101,"800,50428-4770-66 ",.01)
 ;;50428-4770-66
 ;;9002226.02101,"800,50428-4770-66 ",.02)
 ;;50428-4770-66
 ;;9002226.02101,"800,50428-4770-68 ",.01)
 ;;50428-4770-68
 ;;9002226.02101,"800,50428-4770-68 ",.02)
 ;;50428-4770-68
 ;;9002226.02101,"800,50428-4770-69 ",.01)
 ;;50428-4770-69
 ;;9002226.02101,"800,50428-4770-69 ",.02)
 ;;50428-4770-69
 ;;9002226.02101,"800,50428-4770-70 ",.01)
 ;;50428-4770-70
 ;;9002226.02101,"800,50428-4770-70 ",.02)
 ;;50428-4770-70
 ;;9002226.02101,"800,50428-4770-71 ",.01)
 ;;50428-4770-71
 ;;9002226.02101,"800,50428-4770-71 ",.02)
 ;;50428-4770-71
 ;;9002226.02101,"800,50428-4770-72 ",.01)
 ;;50428-4770-72
 ;;9002226.02101,"800,50428-4770-72 ",.02)
 ;;50428-4770-72
 ;;9002226.02101,"800,50428-4770-73 ",.01)
 ;;50428-4770-73
 ;;9002226.02101,"800,50428-4770-73 ",.02)
 ;;50428-4770-73
 ;;9002226.02101,"800,50428-4770-84 ",.01)
 ;;50428-4770-84
 ;;9002226.02101,"800,50428-4770-84 ",.02)
 ;;50428-4770-84
 ;;9002226.02101,"800,50486-0616-16 ",.01)
 ;;50486-0616-16
 ;;9002226.02101,"800,50486-0616-16 ",.02)
 ;;50486-0616-16
 ;;9002226.02101,"800,50486-0616-32 ",.01)
 ;;50486-0616-32
 ;;9002226.02101,"800,50486-0616-32 ",.02)
 ;;50486-0616-32
 ;;9002226.02101,"800,50486-0621-16 ",.01)
 ;;50486-0621-16
 ;;9002226.02101,"800,50486-0621-16 ",.02)
 ;;50486-0621-16
 ;;9002226.02101,"800,50580-0176-04 ",.01)
 ;;50580-0176-04
 ;;9002226.02101,"800,50580-0176-04 ",.02)
 ;;50580-0176-04
 ;;9002226.02101,"800,50580-0176-08 ",.01)
 ;;50580-0176-08
 ;;9002226.02101,"800,50580-0176-08 ",.02)
 ;;50580-0176-08
 ;;9002226.02101,"800,50580-0176-10 ",.01)
 ;;50580-0176-10
 ;;9002226.02101,"800,50580-0176-10 ",.02)
 ;;50580-0176-10
 ;;9002226.02101,"800,50580-0176-14 ",.01)
 ;;50580-0176-14
 ;;9002226.02101,"800,50580-0176-14 ",.02)
 ;;50580-0176-14
 ;;9002226.02101,"800,50580-0176-15 ",.01)
 ;;50580-0176-15
 ;;9002226.02101,"800,50580-0176-15 ",.02)
 ;;50580-0176-15
 ;;9002226.02101,"800,50580-0176-24 ",.01)
 ;;50580-0176-24
 ;;9002226.02101,"800,50580-0176-24 ",.02)
 ;;50580-0176-24
 ;;9002226.02101,"800,50580-0176-50 ",.01)
 ;;50580-0176-50
 ;;9002226.02101,"800,50580-0176-50 ",.02)
 ;;50580-0176-50
 ;;9002226.02101,"800,50580-0176-70 ",.01)
 ;;50580-0176-70
 ;;9002226.02101,"800,50580-0176-70 ",.02)
 ;;50580-0176-70
 ;;9002226.02101,"800,50580-0176-74 ",.01)
 ;;50580-0176-74
 ;;9002226.02101,"800,50580-0176-74 ",.02)
 ;;50580-0176-74
 ;;9002226.02101,"800,50580-0182-20 ",.01)
 ;;50580-0182-20
 ;;9002226.02101,"800,50580-0182-20 ",.02)
 ;;50580-0182-20
 ;;9002226.02101,"800,50580-0182-40 ",.01)
 ;;50580-0182-40
 ;;9002226.02101,"800,50580-0182-40 ",.02)
 ;;50580-0182-40
 ;;9002226.02101,"800,50580-0182-52 ",.01)
 ;;50580-0182-52
 ;;9002226.02101,"800,50580-0182-52 ",.02)
 ;;50580-0182-52
 ;;9002226.02101,"800,50580-0233-24 ",.01)
 ;;50580-0233-24
 ;;9002226.02101,"800,50580-0233-24 ",.02)
 ;;50580-0233-24
 ;;9002226.02101,"800,50580-0233-48 ",.01)
 ;;50580-0233-48
 ;;9002226.02101,"800,50580-0233-48 ",.02)
 ;;50580-0233-48
 ;;9002226.02101,"800,50580-0234-24 ",.01)
 ;;50580-0234-24
 ;;9002226.02101,"800,50580-0234-24 ",.02)
 ;;50580-0234-24
 ;;9002226.02101,"800,50580-0244-20 ",.01)
 ;;50580-0244-20
 ;;9002226.02101,"800,50580-0244-20 ",.02)
 ;;50580-0244-20
 ;;9002226.02101,"800,50580-0252-08 ",.01)
 ;;50580-0252-08
 ;;9002226.02101,"800,50580-0252-08 ",.02)
 ;;50580-0252-08
 ;;9002226.02101,"800,50580-0347-18 ",.01)
 ;;50580-0347-18
 ;;9002226.02101,"800,50580-0347-18 ",.02)
 ;;50580-0347-18
 ;;9002226.02101,"800,50580-0348-18 ",.01)
 ;;50580-0348-18
 ;;9002226.02101,"800,50580-0348-18 ",.02)
 ;;50580-0348-18
 ;;9002226.02101,"800,50580-0426-10 ",.01)
 ;;50580-0426-10
 ;;9002226.02101,"800,50580-0426-10 ",.02)
 ;;50580-0426-10
 ;;9002226.02101,"800,50580-0426-23 ",.01)
 ;;50580-0426-23
 ;;9002226.02101,"800,50580-0426-23 ",.02)
 ;;50580-0426-23
 ;;9002226.02101,"800,50580-0426-24 ",.01)
 ;;50580-0426-24
 ;;9002226.02101,"800,50580-0426-24 ",.02)
 ;;50580-0426-24
 ;;9002226.02101,"800,50580-0427-08 ",.01)
 ;;50580-0427-08
 ;;9002226.02101,"800,50580-0427-08 ",.02)
 ;;50580-0427-08
 ;;9002226.02101,"800,50580-0482-10 ",.01)
 ;;50580-0482-10
 ;;9002226.02101,"800,50580-0482-10 ",.02)
 ;;50580-0482-10
 ;;9002226.02101,"800,50580-0482-15 ",.01)
 ;;50580-0482-15
 ;;9002226.02101,"800,50580-0482-15 ",.02)
 ;;50580-0482-15
 ;;9002226.02101,"800,50580-0482-24 ",.01)
 ;;50580-0482-24
 ;;9002226.02101,"800,50580-0482-24 ",.02)
 ;;50580-0482-24
 ;;9002226.02101,"800,50580-0482-26 ",.01)
 ;;50580-0482-26
 ;;9002226.02101,"800,50580-0482-26 ",.02)
 ;;50580-0482-26
 ;;9002226.02101,"800,50580-0482-35 ",.01)
 ;;50580-0482-35
 ;;9002226.02101,"800,50580-0482-35 ",.02)
 ;;50580-0482-35
 ;;9002226.02101,"800,50580-0482-45 ",.01)
 ;;50580-0482-45
 ;;9002226.02101,"800,50580-0482-45 ",.02)
 ;;50580-0482-45
 ;;9002226.02101,"800,50580-0482-50 ",.01)
 ;;50580-0482-50
 ;;9002226.02101,"800,50580-0482-50 ",.02)
 ;;50580-0482-50
 ;;9002226.02101,"800,50580-0482-70 ",.01)
 ;;50580-0482-70
 ;;9002226.02101,"800,50580-0482-70 ",.02)
 ;;50580-0482-70
 ;;9002226.02101,"800,50580-0534-04 ",.01)
 ;;50580-0534-04
 ;;9002226.02101,"800,50580-0534-04 ",.02)
 ;;50580-0534-04
 ;;9002226.02101,"800,50580-0552-04 ",.01)
 ;;50580-0552-04
 ;;9002226.02101,"800,50580-0552-04 ",.02)
 ;;50580-0552-04
 ;;9002226.02101,"800,50580-0664-12 ",.01)
 ;;50580-0664-12
 ;;9002226.02101,"800,50580-0664-12 ",.02)
 ;;50580-0664-12
 ;;9002226.02101,"800,50580-0664-24 ",.01)
 ;;50580-0664-24
 ;;9002226.02101,"800,50580-0664-24 ",.02)
 ;;50580-0664-24
 ;;9002226.02101,"800,50580-0777-04 ",.01)
 ;;50580-0777-04
 ;;9002226.02101,"800,50580-0777-04 ",.02)
 ;;50580-0777-04
 ;;9002226.02101,"800,50580-0781-04 ",.01)
 ;;50580-0781-04
 ;;9002226.02101,"800,50580-0781-04 ",.02)
 ;;50580-0781-04
 ;;9002226.02101,"800,50580-0814-08 ",.01)
 ;;50580-0814-08
 ;;9002226.02101,"800,50580-0814-08 ",.02)
 ;;50580-0814-08
 ;;9002226.02101,"800,50580-0843-10 ",.01)
 ;;50580-0843-10
 ;;9002226.02101,"800,50580-0843-10 ",.02)
 ;;50580-0843-10
 ;;9002226.02101,"800,50580-0843-13 ",.01)
 ;;50580-0843-13