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

BGP2VK6.m

Go to the documentation of this file.
BGP2VK6 ;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,"723,10702-0025-01 ",.01)
 ;;10702-0025-01
 ;;9002226.02101,"723,10702-0025-01 ",.02)
 ;;10702-0025-01
 ;;9002226.02101,"723,10702-0025-03 ",.01)
 ;;10702-0025-03
 ;;9002226.02101,"723,10702-0025-03 ",.02)
 ;;10702-0025-03
 ;;9002226.02101,"723,10702-0025-10 ",.01)
 ;;10702-0025-10
 ;;9002226.02101,"723,10702-0025-10 ",.02)
 ;;10702-0025-10
 ;;9002226.02101,"723,10702-0026-01 ",.01)
 ;;10702-0026-01
 ;;9002226.02101,"723,10702-0026-01 ",.02)
 ;;10702-0026-01
 ;;9002226.02101,"723,10702-0026-10 ",.01)
 ;;10702-0026-10
 ;;9002226.02101,"723,10702-0026-10 ",.02)
 ;;10702-0026-10
 ;;9002226.02101,"723,10702-0027-01 ",.01)
 ;;10702-0027-01
 ;;9002226.02101,"723,10702-0027-01 ",.02)
 ;;10702-0027-01
 ;;9002226.02101,"723,10702-0027-10 ",.01)
 ;;10702-0027-10
 ;;9002226.02101,"723,10702-0027-10 ",.02)
 ;;10702-0027-10
 ;;9002226.02101,"723,10702-0028-01 ",.01)
 ;;10702-0028-01
 ;;9002226.02101,"723,10702-0028-01 ",.02)
 ;;10702-0028-01
 ;;9002226.02101,"723,10702-0028-10 ",.01)
 ;;10702-0028-10
 ;;9002226.02101,"723,10702-0028-10 ",.02)
 ;;10702-0028-10
 ;;9002226.02101,"723,10702-0029-01 ",.01)
 ;;10702-0029-01
 ;;9002226.02101,"723,10702-0029-01 ",.02)
 ;;10702-0029-01
 ;;9002226.02101,"723,10702-0029-10 ",.01)
 ;;10702-0029-10
 ;;9002226.02101,"723,10702-0029-10 ",.02)
 ;;10702-0029-10
 ;;9002226.02101,"723,10702-0040-01 ",.01)
 ;;10702-0040-01
 ;;9002226.02101,"723,10702-0040-01 ",.02)
 ;;10702-0040-01
 ;;9002226.02101,"723,10702-0040-03 ",.01)
 ;;10702-0040-03
 ;;9002226.02101,"723,10702-0040-03 ",.02)
 ;;10702-0040-03
 ;;9002226.02101,"723,10702-0040-50 ",.01)
 ;;10702-0040-50
 ;;9002226.02101,"723,10702-0040-50 ",.02)
 ;;10702-0040-50
 ;;9002226.02101,"723,10702-0077-01 ",.01)
 ;;10702-0077-01
 ;;9002226.02101,"723,10702-0077-01 ",.02)
 ;;10702-0077-01
 ;;9002226.02101,"723,11808-0555-01 ",.01)
 ;;11808-0555-01
 ;;9002226.02101,"723,11808-0555-01 ",.02)
 ;;11808-0555-01
 ;;9002226.02101,"723,12280-0085-07 ",.01)
 ;;12280-0085-07
 ;;9002226.02101,"723,12280-0085-07 ",.02)
 ;;12280-0085-07
 ;;9002226.02101,"723,12280-0085-14 ",.01)
 ;;12280-0085-14
 ;;9002226.02101,"723,12280-0085-14 ",.02)
 ;;12280-0085-14
 ;;9002226.02101,"723,12280-0135-00 ",.01)
 ;;12280-0135-00
 ;;9002226.02101,"723,12280-0135-00 ",.02)
 ;;12280-0135-00
 ;;9002226.02101,"723,12280-0231-00 ",.01)
 ;;12280-0231-00
 ;;9002226.02101,"723,12280-0231-00 ",.02)
 ;;12280-0231-00
 ;;9002226.02101,"723,13551-0701-05 ",.01)
 ;;13551-0701-05
 ;;9002226.02101,"723,13551-0701-05 ",.02)
 ;;13551-0701-05
 ;;9002226.02101,"723,14629-0117-16 ",.01)
 ;;14629-0117-16
 ;;9002226.02101,"723,14629-0117-16 ",.02)
 ;;14629-0117-16
 ;;9002226.02101,"723,16590-0185-30 ",.01)
 ;;16590-0185-30
 ;;9002226.02101,"723,16590-0185-30 ",.02)
 ;;16590-0185-30
 ;;9002226.02101,"723,16590-0185-60 ",.01)
 ;;16590-0185-60
 ;;9002226.02101,"723,16590-0185-60 ",.02)
 ;;16590-0185-60
 ;;9002226.02101,"723,16590-0186-30 ",.01)
 ;;16590-0186-30
 ;;9002226.02101,"723,16590-0186-30 ",.02)
 ;;16590-0186-30
 ;;9002226.02101,"723,16590-0186-60 ",.01)
 ;;16590-0186-60
 ;;9002226.02101,"723,16590-0186-60 ",.02)
 ;;16590-0186-60
 ;;9002226.02101,"723,17314-5850-02 ",.01)
 ;;17314-5850-02
 ;;9002226.02101,"723,17314-5850-02 ",.02)
 ;;17314-5850-02
 ;;9002226.02101,"723,17314-5851-02 ",.01)
 ;;17314-5851-02
 ;;9002226.02101,"723,17314-5851-02 ",.02)
 ;;17314-5851-02
 ;;9002226.02101,"723,17314-5852-02 ",.01)
 ;;17314-5852-02
 ;;9002226.02101,"723,17314-5852-02 ",.02)
 ;;17314-5852-02
 ;;9002226.02101,"723,17314-5853-02 ",.01)
 ;;17314-5853-02
 ;;9002226.02101,"723,17314-5853-02 ",.02)
 ;;17314-5853-02
 ;;9002226.02101,"723,21695-0509-00 ",.01)
 ;;21695-0509-00
 ;;9002226.02101,"723,21695-0509-00 ",.02)
 ;;21695-0509-00
 ;;9002226.02101,"723,21695-0510-30 ",.01)
 ;;21695-0510-30
 ;;9002226.02101,"723,21695-0510-30 ",.02)
 ;;21695-0510-30
 ;;9002226.02101,"723,21695-0513-00 ",.01)
 ;;21695-0513-00
 ;;9002226.02101,"723,21695-0513-00 ",.02)
 ;;21695-0513-00
 ;;9002226.02101,"723,21695-0597-07 ",.01)
 ;;21695-0597-07
 ;;9002226.02101,"723,21695-0597-07 ",.02)
 ;;21695-0597-07
 ;;9002226.02101,"723,21695-0597-60 ",.01)
 ;;21695-0597-60
 ;;9002226.02101,"723,21695-0597-60 ",.02)
 ;;21695-0597-60
 ;;9002226.02101,"723,21695-0876-30 ",.01)
 ;;21695-0876-30
 ;;9002226.02101,"723,21695-0876-30 ",.02)
 ;;21695-0876-30
 ;;9002226.02101,"723,23490-5133-01 ",.01)
 ;;23490-5133-01
 ;;9002226.02101,"723,23490-5133-01 ",.02)
 ;;23490-5133-01
 ;;9002226.02101,"723,23490-5133-02 ",.01)
 ;;23490-5133-02
 ;;9002226.02101,"723,23490-5133-02 ",.02)
 ;;23490-5133-02
 ;;9002226.02101,"723,23490-5133-03 ",.01)
 ;;23490-5133-03
 ;;9002226.02101,"723,23490-5133-03 ",.02)
 ;;23490-5133-03
 ;;9002226.02101,"723,23490-5434-01 ",.01)
 ;;23490-5434-01
 ;;9002226.02101,"723,23490-5434-01 ",.02)
 ;;23490-5434-01
 ;;9002226.02101,"723,23490-5434-02 ",.01)
 ;;23490-5434-02
 ;;9002226.02101,"723,23490-5434-02 ",.02)
 ;;23490-5434-02
 ;;9002226.02101,"723,23490-5434-03 ",.01)
 ;;23490-5434-03
 ;;9002226.02101,"723,23490-5434-03 ",.02)
 ;;23490-5434-03
 ;;9002226.02101,"723,23490-5434-04 ",.01)
 ;;23490-5434-04
 ;;9002226.02101,"723,23490-5434-04 ",.02)
 ;;23490-5434-04
 ;;9002226.02101,"723,23490-5434-05 ",.01)
 ;;23490-5434-05
 ;;9002226.02101,"723,23490-5434-05 ",.02)
 ;;23490-5434-05
 ;;9002226.02101,"723,23490-5434-06 ",.01)
 ;;23490-5434-06
 ;;9002226.02101,"723,23490-5434-06 ",.02)
 ;;23490-5434-06
 ;;9002226.02101,"723,23490-5434-07 ",.01)
 ;;23490-5434-07
 ;;9002226.02101,"723,23490-5434-07 ",.02)
 ;;23490-5434-07
 ;;9002226.02101,"723,23490-5435-01 ",.01)
 ;;23490-5435-01
 ;;9002226.02101,"723,23490-5435-01 ",.02)
 ;;23490-5435-01
 ;;9002226.02101,"723,23490-5435-02 ",.01)
 ;;23490-5435-02
 ;;9002226.02101,"723,23490-5435-02 ",.02)
 ;;23490-5435-02
 ;;9002226.02101,"723,23490-5435-03 ",.01)
 ;;23490-5435-03
 ;;9002226.02101,"723,23490-5435-03 ",.02)
 ;;23490-5435-03
 ;;9002226.02101,"723,23490-5435-04 ",.01)
 ;;23490-5435-04
 ;;9002226.02101,"723,23490-5435-04 ",.02)
 ;;23490-5435-04
 ;;9002226.02101,"723,23490-6081-01 ",.01)
 ;;23490-6081-01
 ;;9002226.02101,"723,23490-6081-01 ",.02)
 ;;23490-6081-01
 ;;9002226.02101,"723,23490-6081-02 ",.01)
 ;;23490-6081-02
 ;;9002226.02101,"723,23490-6081-02 ",.02)
 ;;23490-6081-02
 ;;9002226.02101,"723,23490-6081-03 ",.01)
 ;;23490-6081-03
 ;;9002226.02101,"723,23490-6081-03 ",.02)
 ;;23490-6081-03
 ;;9002226.02101,"723,23490-6081-04 ",.01)
 ;;23490-6081-04
 ;;9002226.02101,"723,23490-6081-04 ",.02)
 ;;23490-6081-04
 ;;9002226.02101,"723,23490-6082-01 ",.01)
 ;;23490-6082-01
 ;;9002226.02101,"723,23490-6082-01 ",.02)
 ;;23490-6082-01
 ;;9002226.02101,"723,23490-6082-02 ",.01)
 ;;23490-6082-02
 ;;9002226.02101,"723,23490-6082-02 ",.02)
 ;;23490-6082-02
 ;;9002226.02101,"723,23490-6082-03 ",.01)
 ;;23490-6082-03
 ;;9002226.02101,"723,23490-6082-03 ",.02)
 ;;23490-6082-03
 ;;9002226.02101,"723,23490-6082-04 ",.01)
 ;;23490-6082-04
 ;;9002226.02101,"723,23490-6082-04 ",.02)
 ;;23490-6082-04
 ;;9002226.02101,"723,23490-6082-05 ",.01)
 ;;23490-6082-05
 ;;9002226.02101,"723,23490-6082-05 ",.02)
 ;;23490-6082-05
 ;;9002226.02101,"723,23490-6082-06 ",.01)
 ;;23490-6082-06
 ;;9002226.02101,"723,23490-6082-06 ",.02)
 ;;23490-6082-06
 ;;9002226.02101,"723,23490-6082-07 ",.01)
 ;;23490-6082-07
 ;;9002226.02101,"723,23490-6082-07 ",.02)
 ;;23490-6082-07
 ;;9002226.02101,"723,23490-6082-08 ",.01)
 ;;23490-6082-08
 ;;9002226.02101,"723,23490-6082-08 ",.02)
 ;;23490-6082-08
 ;;9002226.02101,"723,23490-6090-01 ",.01)
 ;;23490-6090-01
 ;;9002226.02101,"723,23490-6090-01 ",.02)
 ;;23490-6090-01
 ;;9002226.02101,"723,23490-6090-02 ",.01)
 ;;23490-6090-02
 ;;9002226.02101,"723,23490-6090-02 ",.02)
 ;;23490-6090-02
 ;;9002226.02101,"723,23490-6090-03 ",.01)
 ;;23490-6090-03
 ;;9002226.02101,"723,23490-6090-03 ",.02)
 ;;23490-6090-03
 ;;9002226.02101,"723,23490-6090-04 ",.01)
 ;;23490-6090-04
 ;;9002226.02101,"723,23490-6090-04 ",.02)
 ;;23490-6090-04
 ;;9002226.02101,"723,23490-6090-06 ",.01)
 ;;23490-6090-06
 ;;9002226.02101,"723,23490-6090-06 ",.02)
 ;;23490-6090-06
 ;;9002226.02101,"723,23490-6092-00 ",.01)
 ;;23490-6092-00
 ;;9002226.02101,"723,23490-6092-00 ",.02)
 ;;23490-6092-00
 ;;9002226.02101,"723,23490-6092-01 ",.01)
 ;;23490-6092-01
 ;;9002226.02101,"723,23490-6092-01 ",.02)
 ;;23490-6092-01
 ;;9002226.02101,"723,23490-6092-03 ",.01)
 ;;23490-6092-03
 ;;9002226.02101,"723,23490-6092-03 ",.02)
 ;;23490-6092-03
 ;;9002226.02101,"723,23490-6092-06 ",.01)
 ;;23490-6092-06
 ;;9002226.02101,"723,23490-6092-06 ",.02)
 ;;23490-6092-06
 ;;9002226.02101,"723,23490-6092-07 ",.01)
 ;;23490-6092-07
 ;;9002226.02101,"723,23490-6092-07 ",.02)
 ;;23490-6092-07
 ;;9002226.02101,"723,23490-6092-08 ",.01)
 ;;23490-6092-08
 ;;9002226.02101,"723,23490-6092-08 ",.02)
 ;;23490-6092-08
 ;;9002226.02101,"723,23490-6092-09 ",.01)
 ;;23490-6092-09
 ;;9002226.02101,"723,23490-6092-09 ",.02)
 ;;23490-6092-09
 ;;9002226.02101,"723,23490-6094-00 ",.01)
 ;;23490-6094-00
 ;;9002226.02101,"723,23490-6094-00 ",.02)
 ;;23490-6094-00
 ;;9002226.02101,"723,23490-6094-01 ",.01)
 ;;23490-6094-01
 ;;9002226.02101,"723,23490-6094-01 ",.02)
 ;;23490-6094-01
 ;;9002226.02101,"723,23490-6094-02 ",.01)
 ;;23490-6094-02
 ;;9002226.02101,"723,23490-6094-02 ",.02)
 ;;23490-6094-02
 ;;9002226.02101,"723,23490-6094-03 ",.01)
 ;;23490-6094-03
 ;;9002226.02101,"723,23490-6094-03 ",.02)
 ;;23490-6094-03
 ;;9002226.02101,"723,23490-6094-04 ",.01)
 ;;23490-6094-04
 ;;9002226.02101,"723,23490-6094-04 ",.02)
 ;;23490-6094-04
 ;;9002226.02101,"723,23490-6094-05 ",.01)
 ;;23490-6094-05
 ;;9002226.02101,"723,23490-6094-05 ",.02)
 ;;23490-6094-05
 ;;9002226.02101,"723,23490-6094-06 ",.01)
 ;;23490-6094-06
 ;;9002226.02101,"723,23490-6094-06 ",.02)
 ;;23490-6094-06
 ;;9002226.02101,"723,23490-6094-09 ",.01)
 ;;23490-6094-09
 ;;9002226.02101,"723,23490-6094-09 ",.02)
 ;;23490-6094-09
 ;;9002226.02101,"723,23490-7240-00 ",.01)
 ;;23490-7240-00
 ;;9002226.02101,"723,23490-7240-00 ",.02)
 ;;23490-7240-00
 ;;9002226.02101,"723,23490-7240-01 ",.01)
 ;;23490-7240-01
 ;;9002226.02101,"723,23490-7240-01 ",.02)
 ;;23490-7240-01
 ;;9002226.02101,"723,23490-7240-02 ",.01)
 ;;23490-7240-02
 ;;9002226.02101,"723,23490-7240-02 ",.02)
 ;;23490-7240-02
 ;;9002226.02101,"723,23490-7240-03 ",.01)
 ;;23490-7240-03
 ;;9002226.02101,"723,23490-7240-03 ",.02)
 ;;23490-7240-03
 ;;9002226.02101,"723,23490-7240-04 ",.01)
 ;;23490-7240-04
 ;;9002226.02101,"723,23490-7240-04 ",.02)
 ;;23490-7240-04
 ;;9002226.02101,"723,23490-7921-01 ",.01)
 ;;23490-7921-01
 ;;9002226.02101,"723,23490-7921-01 ",.02)
 ;;23490-7921-01
 ;;9002226.02101,"723,23490-7921-02 ",.01)
 ;;23490-7921-02
 ;;9002226.02101,"723,23490-7921-02 ",.02)
 ;;23490-7921-02
 ;;9002226.02101,"723,23490-7921-03 ",.01)
 ;;23490-7921-03
 ;;9002226.02101,"723,23490-7921-03 ",.02)
 ;;23490-7921-03
 ;;9002226.02101,"723,23490-7921-04 ",.01)
 ;;23490-7921-04
 ;;9002226.02101,"723,23490-7921-04 ",.02)
 ;;23490-7921-04
 ;;9002226.02101,"723,23490-7954-03 ",.01)
 ;;23490-7954-03
 ;;9002226.02101,"723,23490-7954-03 ",.02)
 ;;23490-7954-03
 ;;9002226.02101,"723,23490-7955-03 ",.01)
 ;;23490-7955-03
 ;;9002226.02101,"723,23490-7955-03 ",.02)
 ;;23490-7955-03
 ;;9002226.02101,"723,23490-7973-03 ",.01)
 ;;23490-7973-03
 ;;9002226.02101,"723,23490-7973-03 ",.02)
 ;;23490-7973-03
 ;;9002226.02101,"723,23490-7974-03 ",.01)
 ;;23490-7974-03
 ;;9002226.02101,"723,23490-7974-03 ",.02)
 ;;23490-7974-03
 ;;9002226.02101,"723,23490-7975-06 ",.01)
 ;;23490-7975-06
 ;;9002226.02101,"723,23490-7975-06 ",.02)
 ;;23490-7975-06
 ;;9002226.02101,"723,23589-0036-16 ",.01)
 ;;23589-0036-16
 ;;9002226.02101,"723,23589-0036-16 ",.02)
 ;;23589-0036-16
 ;;9002226.02101,"723,25332-1113-01 ",.01)
 ;;25332-1113-01
 ;;9002226.02101,"723,25332-1113-01 ",.02)
 ;;25332-1113-01
 ;;9002226.02101,"723,33358-0287-15 ",.01)
 ;;33358-0287-15
 ;;9002226.02101,"723,33358-0287-15 ",.02)
 ;;33358-0287-15
 ;;9002226.02101,"723,33358-0287-30 ",.01)
 ;;33358-0287-30
 ;;9002226.02101,"723,33358-0287-30 ",.02)
 ;;33358-0287-30
 ;;9002226.02101,"723,33358-0287-60 ",.01)
 ;;33358-0287-60
 ;;9002226.02101,"723,33358-0287-60 ",.02)
 ;;33358-0287-60
 ;;9002226.02101,"723,35356-0003-28 ",.01)
 ;;35356-0003-28
 ;;9002226.02101,"723,35356-0003-28 ",.02)
 ;;35356-0003-28
 ;;9002226.02101,"723,35356-0003-30 ",.01)
 ;;35356-0003-30
 ;;9002226.02101,"723,35356-0003-30 ",.02)
 ;;35356-0003-30
 ;;9002226.02101,"723,35356-0003-60 ",.01)
 ;;35356-0003-60
 ;;9002226.02101,"723,35356-0003-60 ",.02)
 ;;35356-0003-60
 ;;9002226.02101,"723,35356-0003-90 ",.01)
 ;;35356-0003-90
 ;;9002226.02101,"723,35356-0003-90 ",.02)
 ;;35356-0003-90
 ;;9002226.02101,"723,35356-0147-30 ",.01)
 ;;35356-0147-30
 ;;9002226.02101,"723,35356-0147-30 ",.02)
 ;;35356-0147-30
 ;;9002226.02101,"723,35356-0147-90 ",.01)
 ;;35356-0147-90
 ;;9002226.02101,"723,35356-0147-90 ",.02)
 ;;35356-0147-90
 ;;9002226.02101,"723,35356-0148-30 ",.01)
 ;;35356-0148-30
 ;;9002226.02101,"723,35356-0148-30 ",.02)
 ;;35356-0148-30
 ;;9002226.02101,"723,35356-0148-90 ",.01)
 ;;35356-0148-90
 ;;9002226.02101,"723,35356-0148-90 ",.02)
 ;;35356-0148-90
 ;;9002226.02101,"723,35356-0149-30 ",.01)
 ;;35356-0149-30
 ;;9002226.02101,"723,35356-0149-30 ",.02)
 ;;35356-0149-30
 ;;9002226.02101,"723,35356-0149-90 ",.01)
 ;;35356-0149-90
 ;;9002226.02101,"723,35356-0149-90 ",.02)
 ;;35356-0149-90