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

BGP2VX2.m

Go to the documentation of this file.
BGP2VX2 ;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,720,.02)
 ;;@
 ;;9002226,720,.04)
 ;;n
 ;;9002226,720,.06)
 ;;@
 ;;9002226,720,.08)
 ;;@
 ;;9002226,720,.09)
 ;;3120312
 ;;9002226,720,.11)
 ;;@
 ;;9002226,720,.12)
 ;;@
 ;;9002226,720,.13)
 ;;1
 ;;9002226,720,.14)
 ;;@
 ;;9002226,720,.15)
 ;;@
 ;;9002226,720,.16)
 ;;@
 ;;9002226,720,.17)
 ;;@
 ;;9002226,720,3101)
 ;;@
 ;;9002226.02101,"720,00093-2130-01 ",.01)
 ;;00093-2130-01
 ;;9002226.02101,"720,00093-2130-01 ",.02)
 ;;00093-2130-01
 ;;9002226.02101,"720,00093-2130-10 ",.01)
 ;;00093-2130-10
 ;;9002226.02101,"720,00093-2130-10 ",.02)
 ;;00093-2130-10
 ;;9002226.02101,"720,00093-2130-19 ",.01)
 ;;00093-2130-19
 ;;9002226.02101,"720,00093-2130-19 ",.02)
 ;;00093-2130-19
 ;;9002226.02101,"720,00093-2130-93 ",.01)
 ;;00093-2130-93
 ;;9002226.02101,"720,00093-2130-93 ",.02)
 ;;00093-2130-93
 ;;9002226.02101,"720,00093-2131-01 ",.01)
 ;;00093-2131-01
 ;;9002226.02101,"720,00093-2131-01 ",.02)
 ;;00093-2131-01
 ;;9002226.02101,"720,00093-2131-10 ",.01)
 ;;00093-2131-10
 ;;9002226.02101,"720,00093-2131-10 ",.02)
 ;;00093-2131-10
 ;;9002226.02101,"720,00093-2131-19 ",.01)
 ;;00093-2131-19
 ;;9002226.02101,"720,00093-2131-19 ",.02)
 ;;00093-2131-19
 ;;9002226.02101,"720,00093-2131-93 ",.01)
 ;;00093-2131-93
 ;;9002226.02101,"720,00093-2131-93 ",.02)
 ;;00093-2131-93
 ;;9002226.02101,"720,00115-4824-01 ",.01)
 ;;00115-4824-01
 ;;9002226.02101,"720,00115-4824-01 ",.02)
 ;;00115-4824-01
 ;;9002226.02101,"720,00115-4824-03 ",.01)
 ;;00115-4824-03
 ;;9002226.02101,"720,00115-4824-03 ",.02)
 ;;00115-4824-03
 ;;9002226.02101,"720,00115-4826-01 ",.01)
 ;;00115-4826-01
 ;;9002226.02101,"720,00115-4826-01 ",.02)
 ;;00115-4826-01
 ;;9002226.02101,"720,00115-4826-03 ",.01)
 ;;00115-4826-03
 ;;9002226.02101,"720,00115-4826-03 ",.02)
 ;;00115-4826-03
 ;;9002226.02101,"720,00115-7037-01 ",.01)
 ;;00115-7037-01
 ;;9002226.02101,"720,00115-7037-01 ",.02)
 ;;00115-7037-01
 ;;9002226.02101,"720,00149-0007-05 ",.01)
 ;;00149-0007-05
 ;;9002226.02101,"720,00149-0007-05 ",.02)
 ;;00149-0007-05
 ;;9002226.02101,"720,00149-0008-05 ",.01)
 ;;00149-0008-05
 ;;9002226.02101,"720,00149-0008-05 ",.02)
 ;;00149-0008-05
 ;;9002226.02101,"720,00149-0009-05 ",.01)
 ;;00149-0009-05
 ;;9002226.02101,"720,00149-0009-05 ",.02)
 ;;00149-0009-05
 ;;9002226.02101,"720,00149-0710-01 ",.01)
 ;;00149-0710-01
 ;;9002226.02101,"720,00149-0710-01 ",.02)
 ;;00149-0710-01
 ;;9002226.02101,"720,00182-0493-10 ",.01)
 ;;00182-0493-10
 ;;9002226.02101,"720,00182-0493-10 ",.02)
 ;;00182-0493-10
 ;;9002226.02101,"720,00182-0494-10 ",.01)
 ;;00182-0494-10
 ;;9002226.02101,"720,00182-0494-10 ",.02)
 ;;00182-0494-10
 ;;9002226.02101,"720,00185-0122-01 ",.01)
 ;;00185-0122-01
 ;;9002226.02101,"720,00185-0122-01 ",.02)
 ;;00185-0122-01
 ;;9002226.02101,"720,00185-0122-10 ",.01)
 ;;00185-0122-10
 ;;9002226.02101,"720,00185-0122-10 ",.02)
 ;;00185-0122-10
 ;;9002226.02101,"720,00187-0901-01 ",.01)
 ;;00187-0901-01
 ;;9002226.02101,"720,00187-0901-01 ",.02)
 ;;00187-0901-01
 ;;9002226.02101,"720,00187-0902-01 ",.01)
 ;;00187-0902-01
 ;;9002226.02101,"720,00187-0902-01 ",.02)
 ;;00187-0902-01
 ;;9002226.02101,"720,00247-0137-02 ",.01)
 ;;00247-0137-02
 ;;9002226.02101,"720,00247-0137-02 ",.02)
 ;;00247-0137-02
 ;;9002226.02101,"720,00247-0137-04 ",.01)
 ;;00247-0137-04
 ;;9002226.02101,"720,00247-0137-04 ",.02)
 ;;00247-0137-04
 ;;9002226.02101,"720,00247-0137-08 ",.01)
 ;;00247-0137-08
 ;;9002226.02101,"720,00247-0137-08 ",.02)
 ;;00247-0137-08
 ;;9002226.02101,"720,00247-0137-10 ",.01)
 ;;00247-0137-10
 ;;9002226.02101,"720,00247-0137-10 ",.02)
 ;;00247-0137-10
 ;;9002226.02101,"720,00247-0137-12 ",.01)
 ;;00247-0137-12
 ;;9002226.02101,"720,00247-0137-12 ",.02)
 ;;00247-0137-12
 ;;9002226.02101,"720,00247-0137-14 ",.01)
 ;;00247-0137-14
 ;;9002226.02101,"720,00247-0137-14 ",.02)
 ;;00247-0137-14
 ;;9002226.02101,"720,00247-0137-20 ",.01)
 ;;00247-0137-20
 ;;9002226.02101,"720,00247-0137-20 ",.02)
 ;;00247-0137-20
 ;;9002226.02101,"720,00247-0137-21 ",.01)
 ;;00247-0137-21
 ;;9002226.02101,"720,00247-0137-21 ",.02)
 ;;00247-0137-21
 ;;9002226.02101,"720,00247-0137-28 ",.01)
 ;;00247-0137-28
 ;;9002226.02101,"720,00247-0137-28 ",.02)
 ;;00247-0137-28
 ;;9002226.02101,"720,00247-0137-30 ",.01)
 ;;00247-0137-30
 ;;9002226.02101,"720,00247-0137-30 ",.02)
 ;;00247-0137-30
 ;;9002226.02101,"720,00247-0137-40 ",.01)
 ;;00247-0137-40
 ;;9002226.02101,"720,00247-0137-40 ",.02)
 ;;00247-0137-40
 ;;9002226.02101,"720,00247-0159-10 ",.01)
 ;;00247-0159-10
 ;;9002226.02101,"720,00247-0159-10 ",.02)
 ;;00247-0159-10
 ;;9002226.02101,"720,00247-0159-14 ",.01)
 ;;00247-0159-14
 ;;9002226.02101,"720,00247-0159-14 ",.02)
 ;;00247-0159-14
 ;;9002226.02101,"720,00247-0159-20 ",.01)
 ;;00247-0159-20
 ;;9002226.02101,"720,00247-0159-20 ",.02)
 ;;00247-0159-20
 ;;9002226.02101,"720,00247-0159-21 ",.01)
 ;;00247-0159-21
 ;;9002226.02101,"720,00247-0159-21 ",.02)
 ;;00247-0159-21
 ;;9002226.02101,"720,00247-0159-28 ",.01)
 ;;00247-0159-28
 ;;9002226.02101,"720,00247-0159-28 ",.02)
 ;;00247-0159-28
 ;;9002226.02101,"720,00247-0159-30 ",.01)
 ;;00247-0159-30
 ;;9002226.02101,"720,00247-0159-30 ",.02)
 ;;00247-0159-30
 ;;9002226.02101,"720,00247-0159-40 ",.01)
 ;;00247-0159-40
 ;;9002226.02101,"720,00247-0159-40 ",.02)
 ;;00247-0159-40
 ;;9002226.02101,"720,00247-0164-02 ",.01)
 ;;00247-0164-02
 ;;9002226.02101,"720,00247-0164-02 ",.02)
 ;;00247-0164-02
 ;;9002226.02101,"720,00247-0164-03 ",.01)
 ;;00247-0164-03
 ;;9002226.02101,"720,00247-0164-03 ",.02)
 ;;00247-0164-03
 ;;9002226.02101,"720,00247-0164-06 ",.01)
 ;;00247-0164-06
 ;;9002226.02101,"720,00247-0164-06 ",.02)
 ;;00247-0164-06
 ;;9002226.02101,"720,00247-0164-10 ",.01)
 ;;00247-0164-10
 ;;9002226.02101,"720,00247-0164-10 ",.02)
 ;;00247-0164-10
 ;;9002226.02101,"720,00247-0164-14 ",.01)
 ;;00247-0164-14
 ;;9002226.02101,"720,00247-0164-14 ",.02)
 ;;00247-0164-14
 ;;9002226.02101,"720,00247-0164-20 ",.01)
 ;;00247-0164-20
 ;;9002226.02101,"720,00247-0164-20 ",.02)
 ;;00247-0164-20
 ;;9002226.02101,"720,00247-0164-21 ",.01)
 ;;00247-0164-21
 ;;9002226.02101,"720,00247-0164-21 ",.02)
 ;;00247-0164-21
 ;;9002226.02101,"720,00247-0164-90 ",.01)
 ;;00247-0164-90
 ;;9002226.02101,"720,00247-0164-90 ",.02)
 ;;00247-0164-90
 ;;9002226.02101,"720,00247-0258-00 ",.01)
 ;;00247-0258-00
 ;;9002226.02101,"720,00247-0258-00 ",.02)
 ;;00247-0258-00
 ;;9002226.02101,"720,00247-0258-04 ",.01)
 ;;00247-0258-04
 ;;9002226.02101,"720,00247-0258-04 ",.02)
 ;;00247-0258-04
 ;;9002226.02101,"720,00247-0258-06 ",.01)
 ;;00247-0258-06
 ;;9002226.02101,"720,00247-0258-06 ",.02)
 ;;00247-0258-06
 ;;9002226.02101,"720,00247-0258-10 ",.01)
 ;;00247-0258-10
 ;;9002226.02101,"720,00247-0258-10 ",.02)
 ;;00247-0258-10
 ;;9002226.02101,"720,00247-0258-14 ",.01)
 ;;00247-0258-14
 ;;9002226.02101,"720,00247-0258-14 ",.02)
 ;;00247-0258-14
 ;;9002226.02101,"720,00247-0258-20 ",.01)
 ;;00247-0258-20
 ;;9002226.02101,"720,00247-0258-20 ",.02)
 ;;00247-0258-20
 ;;9002226.02101,"720,00247-0258-28 ",.01)
 ;;00247-0258-28
 ;;9002226.02101,"720,00247-0258-28 ",.02)
 ;;00247-0258-28
 ;;9002226.02101,"720,00247-0258-30 ",.01)
 ;;00247-0258-30
 ;;9002226.02101,"720,00247-0258-30 ",.02)
 ;;00247-0258-30
 ;;9002226.02101,"720,00247-0258-40 ",.01)
 ;;00247-0258-40
 ;;9002226.02101,"720,00247-0258-40 ",.02)
 ;;00247-0258-40
 ;;9002226.02101,"720,00247-0258-47 ",.01)
 ;;00247-0258-47
 ;;9002226.02101,"720,00247-0258-47 ",.02)
 ;;00247-0258-47
 ;;9002226.02101,"720,00247-0258-90 ",.01)
 ;;00247-0258-90
 ;;9002226.02101,"720,00247-0258-90 ",.02)
 ;;00247-0258-90
 ;;9002226.02101,"720,00247-0696-10 ",.01)
 ;;00247-0696-10
 ;;9002226.02101,"720,00247-0696-10 ",.02)
 ;;00247-0696-10
 ;;9002226.02101,"720,00247-0696-14 ",.01)
 ;;00247-0696-14
 ;;9002226.02101,"720,00247-0696-14 ",.02)
 ;;00247-0696-14
 ;;9002226.02101,"720,00247-0696-20 ",.01)
 ;;00247-0696-20
 ;;9002226.02101,"720,00247-0696-20 ",.02)
 ;;00247-0696-20
 ;;9002226.02101,"720,00247-0696-28 ",.01)
 ;;00247-0696-28
 ;;9002226.02101,"720,00247-0696-28 ",.02)
 ;;00247-0696-28
 ;;9002226.02101,"720,00247-0696-30 ",.01)
 ;;00247-0696-30
 ;;9002226.02101,"720,00247-0696-30 ",.02)
 ;;00247-0696-30
 ;;9002226.02101,"720,00247-1872-00 ",.01)
 ;;00247-1872-00
 ;;9002226.02101,"720,00247-1872-00 ",.02)
 ;;00247-1872-00
 ;;9002226.02101,"720,00247-2071-00 ",.01)
 ;;00247-2071-00
 ;;9002226.02101,"720,00247-2071-00 ",.02)
 ;;00247-2071-00
 ;;9002226.02101,"720,00247-2071-02 ",.01)
 ;;00247-2071-02
 ;;9002226.02101,"720,00247-2071-02 ",.02)
 ;;00247-2071-02
 ;;9002226.02101,"720,00247-2071-03 ",.01)
 ;;00247-2071-03
 ;;9002226.02101,"720,00247-2071-03 ",.02)
 ;;00247-2071-03
 ;;9002226.02101,"720,00247-2071-04 ",.01)
 ;;00247-2071-04
 ;;9002226.02101,"720,00247-2071-04 ",.02)
 ;;00247-2071-04
 ;;9002226.02101,"720,00247-2071-06 ",.01)
 ;;00247-2071-06
 ;;9002226.02101,"720,00247-2071-06 ",.02)
 ;;00247-2071-06
 ;;9002226.02101,"720,00247-2071-10 ",.01)
 ;;00247-2071-10
 ;;9002226.02101,"720,00247-2071-10 ",.02)
 ;;00247-2071-10
 ;;9002226.02101,"720,00247-2071-14 ",.01)
 ;;00247-2071-14
 ;;9002226.02101,"720,00247-2071-14 ",.02)
 ;;00247-2071-14
 ;;9002226.02101,"720,00247-2071-28 ",.01)
 ;;00247-2071-28
 ;;9002226.02101,"720,00247-2071-28 ",.02)
 ;;00247-2071-28
 ;;9002226.02101,"720,00378-1650-01 ",.01)
 ;;00378-1650-01
 ;;9002226.02101,"720,00378-1650-01 ",.02)
 ;;00378-1650-01
 ;;9002226.02101,"720,00378-1650-05 ",.01)
 ;;00378-1650-05
 ;;9002226.02101,"720,00378-1650-05 ",.02)
 ;;00378-1650-05
 ;;9002226.02101,"720,00378-1700-01 ",.01)
 ;;00378-1700-01
 ;;9002226.02101,"720,00378-1700-01 ",.02)
 ;;00378-1700-01
 ;;9002226.02101,"720,00378-1700-05 ",.01)
 ;;00378-1700-05
 ;;9002226.02101,"720,00378-1700-05 ",.02)
 ;;00378-1700-05
 ;;9002226.02101,"720,00378-3422-01 ",.01)
 ;;00378-3422-01
 ;;9002226.02101,"720,00378-3422-01 ",.02)
 ;;00378-3422-01
 ;;9002226.02101,"720,00440-7866-14 ",.01)
 ;;00440-7866-14
 ;;9002226.02101,"720,00440-7866-14 ",.02)
 ;;00440-7866-14
 ;;9002226.02101,"720,00456-0457-01 ",.01)
 ;;00456-0457-01
 ;;9002226.02101,"720,00456-0457-01 ",.02)
 ;;00456-0457-01
 ;;9002226.02101,"720,00456-0458-00 ",.01)
 ;;00456-0458-00
 ;;9002226.02101,"720,00456-0458-00 ",.02)
 ;;00456-0458-00
 ;;9002226.02101,"720,00456-0458-01 ",.01)
 ;;00456-0458-01
 ;;9002226.02101,"720,00456-0458-01 ",.02)
 ;;00456-0458-01
 ;;9002226.02101,"720,00456-0458-11 ",.01)
 ;;00456-0458-11
 ;;9002226.02101,"720,00456-0458-11 ",.02)
 ;;00456-0458-11
 ;;9002226.02101,"720,00456-0458-63 ",.01)
 ;;00456-0458-63
 ;;9002226.02101,"720,00456-0458-63 ",.02)
 ;;00456-0458-63
 ;;9002226.02101,"720,00456-0459-00 ",.01)
 ;;00456-0459-00
 ;;9002226.02101,"720,00456-0459-00 ",.02)
 ;;00456-0459-00
 ;;9002226.02101,"720,00456-0459-01 ",.01)
 ;;00456-0459-01
 ;;9002226.02101,"720,00456-0459-01 ",.02)
 ;;00456-0459-01
 ;;9002226.02101,"720,00456-0459-11 ",.01)
 ;;00456-0459-11
 ;;9002226.02101,"720,00456-0459-11 ",.02)
 ;;00456-0459-11
 ;;9002226.02101,"720,00456-0459-63 ",.01)
 ;;00456-0459-63
 ;;9002226.02101,"720,00456-0459-63 ",.02)
 ;;00456-0459-63
 ;;9002226.02101,"720,00456-0460-01 ",.01)
 ;;00456-0460-01
 ;;9002226.02101,"720,00456-0460-01 ",.02)
 ;;00456-0460-01
 ;;9002226.02101,"720,00456-0461-00 ",.01)
 ;;00456-0461-00
 ;;9002226.02101,"720,00456-0461-00 ",.02)
 ;;00456-0461-00
 ;;9002226.02101,"720,00456-0461-01 ",.01)
 ;;00456-0461-01
 ;;9002226.02101,"720,00456-0461-01 ",.02)
 ;;00456-0461-01
 ;;9002226.02101,"720,00456-0461-63 ",.01)
 ;;00456-0461-63
 ;;9002226.02101,"720,00456-0461-63 ",.02)
 ;;00456-0461-63
 ;;9002226.02101,"720,00456-0462-00 ",.01)
 ;;00456-0462-00
 ;;9002226.02101,"720,00456-0462-00 ",.02)
 ;;00456-0462-00
 ;;9002226.02101,"720,00456-0462-01 ",.01)
 ;;00456-0462-01
 ;;9002226.02101,"720,00456-0462-01 ",.02)
 ;;00456-0462-01
 ;;9002226.02101,"720,00456-0463-01 ",.01)
 ;;00456-0463-01
 ;;9002226.02101,"720,00456-0463-01 ",.02)
 ;;00456-0463-01
 ;;9002226.02101,"720,00456-0464-01 ",.01)
 ;;00456-0464-01
 ;;9002226.02101,"720,00456-0464-01 ",.02)
 ;;00456-0464-01
 ;;9002226.02101,"720,00591-3250-01 ",.01)
 ;;00591-3250-01
 ;;9002226.02101,"720,00591-3250-01 ",.02)
 ;;00591-3250-01
 ;;9002226.02101,"720,00591-3253-01 ",.01)
 ;;00591-3253-01
 ;;9002226.02101,"720,00591-3253-01 ",.02)
 ;;00591-3253-01
 ;;9002226.02101,"720,00591-3254-01 ",.01)
 ;;00591-3254-01
 ;;9002226.02101,"720,00591-3254-01 ",.02)
 ;;00591-3254-01
 ;;9002226.02101,"720,00603-6050-21 ",.01)
 ;;00603-6050-21
 ;;9002226.02101,"720,00603-6050-21 ",.02)
 ;;00603-6050-21
 ;;9002226.02101,"720,00603-6051-21 ",.01)
 ;;00603-6051-21
 ;;9002226.02101,"720,00603-6051-21 ",.02)
 ;;00603-6051-21
 ;;9002226.02101,"720,00603-6051-32 ",.01)
 ;;00603-6051-32
 ;;9002226.02101,"720,00603-6051-32 ",.02)
 ;;00603-6051-32
 ;;9002226.02101,"720,00603-6052-21 ",.01)
 ;;00603-6052-21
 ;;9002226.02101,"720,00603-6052-21 ",.02)
 ;;00603-6052-21
 ;;9002226.02101,"720,00603-6052-32 ",.01)
 ;;00603-6052-32
 ;;9002226.02101,"720,00603-6052-32 ",.02)
 ;;00603-6052-32
 ;;9002226.02101,"720,00603-6053-21 ",.01)
 ;;00603-6053-21
 ;;9002226.02101,"720,00603-6053-21 ",.02)
 ;;00603-6053-21
 ;;9002226.02101,"720,00603-6053-32 ",.01)
 ;;00603-6053-32
 ;;9002226.02101,"720,00603-6053-32 ",.02)
 ;;00603-6053-32
 ;;9002226.02101,"720,00603-6054-21 ",.01)
 ;;00603-6054-21
 ;;9002226.02101,"720,00603-6054-21 ",.02)
 ;;00603-6054-21