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.
  1. BGP2VX2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226,720,.02)
  1. ;;@
  1. ;;9002226,720,.04)
  1. ;;n
  1. ;;9002226,720,.06)
  1. ;;@
  1. ;;9002226,720,.08)
  1. ;;@
  1. ;;9002226,720,.09)
  1. ;;3120312
  1. ;;9002226,720,.11)
  1. ;;@
  1. ;;9002226,720,.12)
  1. ;;@
  1. ;;9002226,720,.13)
  1. ;;1
  1. ;;9002226,720,.14)
  1. ;;@
  1. ;;9002226,720,.15)
  1. ;;@
  1. ;;9002226,720,.16)
  1. ;;@
  1. ;;9002226,720,.17)
  1. ;;@
  1. ;;9002226,720,3101)
  1. ;;@
  1. ;;9002226.02101,"720,00093-2130-01 ",.01)
  1. ;;00093-2130-01
  1. ;;9002226.02101,"720,00093-2130-01 ",.02)
  1. ;;00093-2130-01
  1. ;;9002226.02101,"720,00093-2130-10 ",.01)
  1. ;;00093-2130-10
  1. ;;9002226.02101,"720,00093-2130-10 ",.02)
  1. ;;00093-2130-10
  1. ;;9002226.02101,"720,00093-2130-19 ",.01)
  1. ;;00093-2130-19
  1. ;;9002226.02101,"720,00093-2130-19 ",.02)
  1. ;;00093-2130-19
  1. ;;9002226.02101,"720,00093-2130-93 ",.01)
  1. ;;00093-2130-93
  1. ;;9002226.02101,"720,00093-2130-93 ",.02)
  1. ;;00093-2130-93
  1. ;;9002226.02101,"720,00093-2131-01 ",.01)
  1. ;;00093-2131-01
  1. ;;9002226.02101,"720,00093-2131-01 ",.02)
  1. ;;00093-2131-01
  1. ;;9002226.02101,"720,00093-2131-10 ",.01)
  1. ;;00093-2131-10
  1. ;;9002226.02101,"720,00093-2131-10 ",.02)
  1. ;;00093-2131-10
  1. ;;9002226.02101,"720,00093-2131-19 ",.01)
  1. ;;00093-2131-19
  1. ;;9002226.02101,"720,00093-2131-19 ",.02)
  1. ;;00093-2131-19
  1. ;;9002226.02101,"720,00093-2131-93 ",.01)
  1. ;;00093-2131-93
  1. ;;9002226.02101,"720,00093-2131-93 ",.02)
  1. ;;00093-2131-93
  1. ;;9002226.02101,"720,00115-4824-01 ",.01)
  1. ;;00115-4824-01
  1. ;;9002226.02101,"720,00115-4824-01 ",.02)
  1. ;;00115-4824-01
  1. ;;9002226.02101,"720,00115-4824-03 ",.01)
  1. ;;00115-4824-03
  1. ;;9002226.02101,"720,00115-4824-03 ",.02)
  1. ;;00115-4824-03
  1. ;;9002226.02101,"720,00115-4826-01 ",.01)
  1. ;;00115-4826-01
  1. ;;9002226.02101,"720,00115-4826-01 ",.02)
  1. ;;00115-4826-01
  1. ;;9002226.02101,"720,00115-4826-03 ",.01)
  1. ;;00115-4826-03
  1. ;;9002226.02101,"720,00115-4826-03 ",.02)
  1. ;;00115-4826-03
  1. ;;9002226.02101,"720,00115-7037-01 ",.01)
  1. ;;00115-7037-01
  1. ;;9002226.02101,"720,00115-7037-01 ",.02)
  1. ;;00115-7037-01
  1. ;;9002226.02101,"720,00149-0007-05 ",.01)
  1. ;;00149-0007-05
  1. ;;9002226.02101,"720,00149-0007-05 ",.02)
  1. ;;00149-0007-05
  1. ;;9002226.02101,"720,00149-0008-05 ",.01)
  1. ;;00149-0008-05
  1. ;;9002226.02101,"720,00149-0008-05 ",.02)
  1. ;;00149-0008-05
  1. ;;9002226.02101,"720,00149-0009-05 ",.01)
  1. ;;00149-0009-05
  1. ;;9002226.02101,"720,00149-0009-05 ",.02)
  1. ;;00149-0009-05
  1. ;;9002226.02101,"720,00149-0710-01 ",.01)
  1. ;;00149-0710-01
  1. ;;9002226.02101,"720,00149-0710-01 ",.02)
  1. ;;00149-0710-01
  1. ;;9002226.02101,"720,00182-0493-10 ",.01)
  1. ;;00182-0493-10
  1. ;;9002226.02101,"720,00182-0493-10 ",.02)
  1. ;;00182-0493-10
  1. ;;9002226.02101,"720,00182-0494-10 ",.01)
  1. ;;00182-0494-10
  1. ;;9002226.02101,"720,00182-0494-10 ",.02)
  1. ;;00182-0494-10
  1. ;;9002226.02101,"720,00185-0122-01 ",.01)
  1. ;;00185-0122-01
  1. ;;9002226.02101,"720,00185-0122-01 ",.02)
  1. ;;00185-0122-01
  1. ;;9002226.02101,"720,00185-0122-10 ",.01)
  1. ;;00185-0122-10
  1. ;;9002226.02101,"720,00185-0122-10 ",.02)
  1. ;;00185-0122-10
  1. ;;9002226.02101,"720,00187-0901-01 ",.01)
  1. ;;00187-0901-01
  1. ;;9002226.02101,"720,00187-0901-01 ",.02)
  1. ;;00187-0901-01
  1. ;;9002226.02101,"720,00187-0902-01 ",.01)
  1. ;;00187-0902-01
  1. ;;9002226.02101,"720,00187-0902-01 ",.02)
  1. ;;00187-0902-01
  1. ;;9002226.02101,"720,00247-0137-02 ",.01)
  1. ;;00247-0137-02
  1. ;;9002226.02101,"720,00247-0137-02 ",.02)
  1. ;;00247-0137-02
  1. ;;9002226.02101,"720,00247-0137-04 ",.01)
  1. ;;00247-0137-04
  1. ;;9002226.02101,"720,00247-0137-04 ",.02)
  1. ;;00247-0137-04
  1. ;;9002226.02101,"720,00247-0137-08 ",.01)
  1. ;;00247-0137-08
  1. ;;9002226.02101,"720,00247-0137-08 ",.02)
  1. ;;00247-0137-08
  1. ;;9002226.02101,"720,00247-0137-10 ",.01)
  1. ;;00247-0137-10
  1. ;;9002226.02101,"720,00247-0137-10 ",.02)
  1. ;;00247-0137-10
  1. ;;9002226.02101,"720,00247-0137-12 ",.01)
  1. ;;00247-0137-12
  1. ;;9002226.02101,"720,00247-0137-12 ",.02)
  1. ;;00247-0137-12
  1. ;;9002226.02101,"720,00247-0137-14 ",.01)
  1. ;;00247-0137-14
  1. ;;9002226.02101,"720,00247-0137-14 ",.02)
  1. ;;00247-0137-14
  1. ;;9002226.02101,"720,00247-0137-20 ",.01)
  1. ;;00247-0137-20
  1. ;;9002226.02101,"720,00247-0137-20 ",.02)
  1. ;;00247-0137-20
  1. ;;9002226.02101,"720,00247-0137-21 ",.01)
  1. ;;00247-0137-21
  1. ;;9002226.02101,"720,00247-0137-21 ",.02)
  1. ;;00247-0137-21
  1. ;;9002226.02101,"720,00247-0137-28 ",.01)
  1. ;;00247-0137-28
  1. ;;9002226.02101,"720,00247-0137-28 ",.02)
  1. ;;00247-0137-28
  1. ;;9002226.02101,"720,00247-0137-30 ",.01)
  1. ;;00247-0137-30
  1. ;;9002226.02101,"720,00247-0137-30 ",.02)
  1. ;;00247-0137-30
  1. ;;9002226.02101,"720,00247-0137-40 ",.01)
  1. ;;00247-0137-40
  1. ;;9002226.02101,"720,00247-0137-40 ",.02)
  1. ;;00247-0137-40
  1. ;;9002226.02101,"720,00247-0159-10 ",.01)
  1. ;;00247-0159-10
  1. ;;9002226.02101,"720,00247-0159-10 ",.02)
  1. ;;00247-0159-10
  1. ;;9002226.02101,"720,00247-0159-14 ",.01)
  1. ;;00247-0159-14
  1. ;;9002226.02101,"720,00247-0159-14 ",.02)
  1. ;;00247-0159-14
  1. ;;9002226.02101,"720,00247-0159-20 ",.01)
  1. ;;00247-0159-20
  1. ;;9002226.02101,"720,00247-0159-20 ",.02)
  1. ;;00247-0159-20
  1. ;;9002226.02101,"720,00247-0159-21 ",.01)
  1. ;;00247-0159-21
  1. ;;9002226.02101,"720,00247-0159-21 ",.02)
  1. ;;00247-0159-21
  1. ;;9002226.02101,"720,00247-0159-28 ",.01)
  1. ;;00247-0159-28
  1. ;;9002226.02101,"720,00247-0159-28 ",.02)
  1. ;;00247-0159-28
  1. ;;9002226.02101,"720,00247-0159-30 ",.01)
  1. ;;00247-0159-30
  1. ;;9002226.02101,"720,00247-0159-30 ",.02)
  1. ;;00247-0159-30
  1. ;;9002226.02101,"720,00247-0159-40 ",.01)
  1. ;;00247-0159-40
  1. ;;9002226.02101,"720,00247-0159-40 ",.02)
  1. ;;00247-0159-40
  1. ;;9002226.02101,"720,00247-0164-02 ",.01)
  1. ;;00247-0164-02
  1. ;;9002226.02101,"720,00247-0164-02 ",.02)
  1. ;;00247-0164-02
  1. ;;9002226.02101,"720,00247-0164-03 ",.01)
  1. ;;00247-0164-03
  1. ;;9002226.02101,"720,00247-0164-03 ",.02)
  1. ;;00247-0164-03
  1. ;;9002226.02101,"720,00247-0164-06 ",.01)
  1. ;;00247-0164-06
  1. ;;9002226.02101,"720,00247-0164-06 ",.02)
  1. ;;00247-0164-06
  1. ;;9002226.02101,"720,00247-0164-10 ",.01)
  1. ;;00247-0164-10
  1. ;;9002226.02101,"720,00247-0164-10 ",.02)
  1. ;;00247-0164-10
  1. ;;9002226.02101,"720,00247-0164-14 ",.01)
  1. ;;00247-0164-14
  1. ;;9002226.02101,"720,00247-0164-14 ",.02)
  1. ;;00247-0164-14
  1. ;;9002226.02101,"720,00247-0164-20 ",.01)
  1. ;;00247-0164-20
  1. ;;9002226.02101,"720,00247-0164-20 ",.02)
  1. ;;00247-0164-20
  1. ;;9002226.02101,"720,00247-0164-21 ",.01)
  1. ;;00247-0164-21
  1. ;;9002226.02101,"720,00247-0164-21 ",.02)
  1. ;;00247-0164-21
  1. ;;9002226.02101,"720,00247-0164-90 ",.01)
  1. ;;00247-0164-90
  1. ;;9002226.02101,"720,00247-0164-90 ",.02)
  1. ;;00247-0164-90
  1. ;;9002226.02101,"720,00247-0258-00 ",.01)
  1. ;;00247-0258-00
  1. ;;9002226.02101,"720,00247-0258-00 ",.02)
  1. ;;00247-0258-00
  1. ;;9002226.02101,"720,00247-0258-04 ",.01)
  1. ;;00247-0258-04
  1. ;;9002226.02101,"720,00247-0258-04 ",.02)
  1. ;;00247-0258-04
  1. ;;9002226.02101,"720,00247-0258-06 ",.01)
  1. ;;00247-0258-06
  1. ;;9002226.02101,"720,00247-0258-06 ",.02)
  1. ;;00247-0258-06
  1. ;;9002226.02101,"720,00247-0258-10 ",.01)
  1. ;;00247-0258-10
  1. ;;9002226.02101,"720,00247-0258-10 ",.02)
  1. ;;00247-0258-10
  1. ;;9002226.02101,"720,00247-0258-14 ",.01)
  1. ;;00247-0258-14
  1. ;;9002226.02101,"720,00247-0258-14 ",.02)
  1. ;;00247-0258-14
  1. ;;9002226.02101,"720,00247-0258-20 ",.01)
  1. ;;00247-0258-20
  1. ;;9002226.02101,"720,00247-0258-20 ",.02)
  1. ;;00247-0258-20
  1. ;;9002226.02101,"720,00247-0258-28 ",.01)
  1. ;;00247-0258-28
  1. ;;9002226.02101,"720,00247-0258-28 ",.02)
  1. ;;00247-0258-28
  1. ;;9002226.02101,"720,00247-0258-30 ",.01)
  1. ;;00247-0258-30
  1. ;;9002226.02101,"720,00247-0258-30 ",.02)
  1. ;;00247-0258-30
  1. ;;9002226.02101,"720,00247-0258-40 ",.01)
  1. ;;00247-0258-40
  1. ;;9002226.02101,"720,00247-0258-40 ",.02)
  1. ;;00247-0258-40
  1. ;;9002226.02101,"720,00247-0258-47 ",.01)
  1. ;;00247-0258-47
  1. ;;9002226.02101,"720,00247-0258-47 ",.02)
  1. ;;00247-0258-47
  1. ;;9002226.02101,"720,00247-0258-90 ",.01)
  1. ;;00247-0258-90
  1. ;;9002226.02101,"720,00247-0258-90 ",.02)
  1. ;;00247-0258-90
  1. ;;9002226.02101,"720,00247-0696-10 ",.01)
  1. ;;00247-0696-10
  1. ;;9002226.02101,"720,00247-0696-10 ",.02)
  1. ;;00247-0696-10
  1. ;;9002226.02101,"720,00247-0696-14 ",.01)
  1. ;;00247-0696-14
  1. ;;9002226.02101,"720,00247-0696-14 ",.02)
  1. ;;00247-0696-14
  1. ;;9002226.02101,"720,00247-0696-20 ",.01)
  1. ;;00247-0696-20
  1. ;;9002226.02101,"720,00247-0696-20 ",.02)
  1. ;;00247-0696-20
  1. ;;9002226.02101,"720,00247-0696-28 ",.01)
  1. ;;00247-0696-28
  1. ;;9002226.02101,"720,00247-0696-28 ",.02)
  1. ;;00247-0696-28
  1. ;;9002226.02101,"720,00247-0696-30 ",.01)
  1. ;;00247-0696-30
  1. ;;9002226.02101,"720,00247-0696-30 ",.02)
  1. ;;00247-0696-30
  1. ;;9002226.02101,"720,00247-1872-00 ",.01)
  1. ;;00247-1872-00
  1. ;;9002226.02101,"720,00247-1872-00 ",.02)
  1. ;;00247-1872-00
  1. ;;9002226.02101,"720,00247-2071-00 ",.01)
  1. ;;00247-2071-00
  1. ;;9002226.02101,"720,00247-2071-00 ",.02)
  1. ;;00247-2071-00
  1. ;;9002226.02101,"720,00247-2071-02 ",.01)
  1. ;;00247-2071-02
  1. ;;9002226.02101,"720,00247-2071-02 ",.02)
  1. ;;00247-2071-02
  1. ;;9002226.02101,"720,00247-2071-03 ",.01)
  1. ;;00247-2071-03
  1. ;;9002226.02101,"720,00247-2071-03 ",.02)
  1. ;;00247-2071-03
  1. ;;9002226.02101,"720,00247-2071-04 ",.01)
  1. ;;00247-2071-04
  1. ;;9002226.02101,"720,00247-2071-04 ",.02)
  1. ;;00247-2071-04
  1. ;;9002226.02101,"720,00247-2071-06 ",.01)
  1. ;;00247-2071-06
  1. ;;9002226.02101,"720,00247-2071-06 ",.02)
  1. ;;00247-2071-06
  1. ;;9002226.02101,"720,00247-2071-10 ",.01)
  1. ;;00247-2071-10
  1. ;;9002226.02101,"720,00247-2071-10 ",.02)
  1. ;;00247-2071-10
  1. ;;9002226.02101,"720,00247-2071-14 ",.01)
  1. ;;00247-2071-14
  1. ;;9002226.02101,"720,00247-2071-14 ",.02)
  1. ;;00247-2071-14
  1. ;;9002226.02101,"720,00247-2071-28 ",.01)
  1. ;;00247-2071-28
  1. ;;9002226.02101,"720,00247-2071-28 ",.02)
  1. ;;00247-2071-28
  1. ;;9002226.02101,"720,00378-1650-01 ",.01)
  1. ;;00378-1650-01
  1. ;;9002226.02101,"720,00378-1650-01 ",.02)
  1. ;;00378-1650-01
  1. ;;9002226.02101,"720,00378-1650-05 ",.01)
  1. ;;00378-1650-05
  1. ;;9002226.02101,"720,00378-1650-05 ",.02)
  1. ;;00378-1650-05
  1. ;;9002226.02101,"720,00378-1700-01 ",.01)
  1. ;;00378-1700-01
  1. ;;9002226.02101,"720,00378-1700-01 ",.02)
  1. ;;00378-1700-01
  1. ;;9002226.02101,"720,00378-1700-05 ",.01)
  1. ;;00378-1700-05
  1. ;;9002226.02101,"720,00378-1700-05 ",.02)
  1. ;;00378-1700-05
  1. ;;9002226.02101,"720,00378-3422-01 ",.01)
  1. ;;00378-3422-01
  1. ;;9002226.02101,"720,00378-3422-01 ",.02)
  1. ;;00378-3422-01
  1. ;;9002226.02101,"720,00440-7866-14 ",.01)
  1. ;;00440-7866-14
  1. ;;9002226.02101,"720,00440-7866-14 ",.02)
  1. ;;00440-7866-14
  1. ;;9002226.02101,"720,00456-0457-01 ",.01)
  1. ;;00456-0457-01
  1. ;;9002226.02101,"720,00456-0457-01 ",.02)
  1. ;;00456-0457-01
  1. ;;9002226.02101,"720,00456-0458-00 ",.01)
  1. ;;00456-0458-00
  1. ;;9002226.02101,"720,00456-0458-00 ",.02)
  1. ;;00456-0458-00
  1. ;;9002226.02101,"720,00456-0458-01 ",.01)
  1. ;;00456-0458-01
  1. ;;9002226.02101,"720,00456-0458-01 ",.02)
  1. ;;00456-0458-01
  1. ;;9002226.02101,"720,00456-0458-11 ",.01)
  1. ;;00456-0458-11
  1. ;;9002226.02101,"720,00456-0458-11 ",.02)
  1. ;;00456-0458-11
  1. ;;9002226.02101,"720,00456-0458-63 ",.01)
  1. ;;00456-0458-63
  1. ;;9002226.02101,"720,00456-0458-63 ",.02)
  1. ;;00456-0458-63
  1. ;;9002226.02101,"720,00456-0459-00 ",.01)
  1. ;;00456-0459-00
  1. ;;9002226.02101,"720,00456-0459-00 ",.02)
  1. ;;00456-0459-00
  1. ;;9002226.02101,"720,00456-0459-01 ",.01)
  1. ;;00456-0459-01
  1. ;;9002226.02101,"720,00456-0459-01 ",.02)
  1. ;;00456-0459-01
  1. ;;9002226.02101,"720,00456-0459-11 ",.01)
  1. ;;00456-0459-11
  1. ;;9002226.02101,"720,00456-0459-11 ",.02)
  1. ;;00456-0459-11
  1. ;;9002226.02101,"720,00456-0459-63 ",.01)
  1. ;;00456-0459-63
  1. ;;9002226.02101,"720,00456-0459-63 ",.02)
  1. ;;00456-0459-63
  1. ;;9002226.02101,"720,00456-0460-01 ",.01)
  1. ;;00456-0460-01
  1. ;;9002226.02101,"720,00456-0460-01 ",.02)
  1. ;;00456-0460-01
  1. ;;9002226.02101,"720,00456-0461-00 ",.01)
  1. ;;00456-0461-00
  1. ;;9002226.02101,"720,00456-0461-00 ",.02)
  1. ;;00456-0461-00
  1. ;;9002226.02101,"720,00456-0461-01 ",.01)
  1. ;;00456-0461-01
  1. ;;9002226.02101,"720,00456-0461-01 ",.02)
  1. ;;00456-0461-01
  1. ;;9002226.02101,"720,00456-0461-63 ",.01)
  1. ;;00456-0461-63
  1. ;;9002226.02101,"720,00456-0461-63 ",.02)
  1. ;;00456-0461-63
  1. ;;9002226.02101,"720,00456-0462-00 ",.01)
  1. ;;00456-0462-00
  1. ;;9002226.02101,"720,00456-0462-00 ",.02)
  1. ;;00456-0462-00
  1. ;;9002226.02101,"720,00456-0462-01 ",.01)
  1. ;;00456-0462-01
  1. ;;9002226.02101,"720,00456-0462-01 ",.02)
  1. ;;00456-0462-01
  1. ;;9002226.02101,"720,00456-0463-01 ",.01)
  1. ;;00456-0463-01
  1. ;;9002226.02101,"720,00456-0463-01 ",.02)
  1. ;;00456-0463-01
  1. ;;9002226.02101,"720,00456-0464-01 ",.01)
  1. ;;00456-0464-01
  1. ;;9002226.02101,"720,00456-0464-01 ",.02)
  1. ;;00456-0464-01
  1. ;;9002226.02101,"720,00591-3250-01 ",.01)
  1. ;;00591-3250-01
  1. ;;9002226.02101,"720,00591-3250-01 ",.02)
  1. ;;00591-3250-01
  1. ;;9002226.02101,"720,00591-3253-01 ",.01)
  1. ;;00591-3253-01
  1. ;;9002226.02101,"720,00591-3253-01 ",.02)
  1. ;;00591-3253-01
  1. ;;9002226.02101,"720,00591-3254-01 ",.01)
  1. ;;00591-3254-01
  1. ;;9002226.02101,"720,00591-3254-01 ",.02)
  1. ;;00591-3254-01
  1. ;;9002226.02101,"720,00603-6050-21 ",.01)
  1. ;;00603-6050-21
  1. ;;9002226.02101,"720,00603-6050-21 ",.02)
  1. ;;00603-6050-21
  1. ;;9002226.02101,"720,00603-6051-21 ",.01)
  1. ;;00603-6051-21
  1. ;;9002226.02101,"720,00603-6051-21 ",.02)
  1. ;;00603-6051-21
  1. ;;9002226.02101,"720,00603-6051-32 ",.01)
  1. ;;00603-6051-32
  1. ;;9002226.02101,"720,00603-6051-32 ",.02)
  1. ;;00603-6051-32
  1. ;;9002226.02101,"720,00603-6052-21 ",.01)
  1. ;;00603-6052-21
  1. ;;9002226.02101,"720,00603-6052-21 ",.02)
  1. ;;00603-6052-21
  1. ;;9002226.02101,"720,00603-6052-32 ",.01)
  1. ;;00603-6052-32
  1. ;;9002226.02101,"720,00603-6052-32 ",.02)
  1. ;;00603-6052-32
  1. ;;9002226.02101,"720,00603-6053-21 ",.01)
  1. ;;00603-6053-21
  1. ;;9002226.02101,"720,00603-6053-21 ",.02)
  1. ;;00603-6053-21
  1. ;;9002226.02101,"720,00603-6053-32 ",.01)
  1. ;;00603-6053-32
  1. ;;9002226.02101,"720,00603-6053-32 ",.02)
  1. ;;00603-6053-32
  1. ;;9002226.02101,"720,00603-6054-21 ",.01)
  1. ;;00603-6054-21
  1. ;;9002226.02101,"720,00603-6054-21 ",.02)
  1. ;;00603-6054-21