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

BGP2VU5.m

Go to the documentation of this file.
BGP2VU5 ;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.02101,"729,00904-0090-40 ",.01)
 ;;00904-0090-40
 ;;9002226.02101,"729,00904-0090-40 ",.02)
 ;;00904-0090-40
 ;;9002226.02101,"729,00904-0090-60 ",.01)
 ;;00904-0090-60
 ;;9002226.02101,"729,00904-0090-60 ",.02)
 ;;00904-0090-60
 ;;9002226.02101,"729,00904-0090-80 ",.01)
 ;;00904-0090-80
 ;;9002226.02101,"729,00904-0090-80 ",.02)
 ;;00904-0090-80
 ;;9002226.02101,"729,00904-0091-40 ",.01)
 ;;00904-0091-40
 ;;9002226.02101,"729,00904-0091-40 ",.02)
 ;;00904-0091-40
 ;;9002226.02101,"729,00904-0091-60 ",.01)
 ;;00904-0091-60
 ;;9002226.02101,"729,00904-0091-60 ",.02)
 ;;00904-0091-60
 ;;9002226.02101,"729,00904-0091-80 ",.01)
 ;;00904-0091-80
 ;;9002226.02101,"729,00904-0091-80 ",.02)
 ;;00904-0091-80
 ;;9002226.02101,"729,00904-0092-40 ",.01)
 ;;00904-0092-40
 ;;9002226.02101,"729,00904-0092-40 ",.02)
 ;;00904-0092-40
 ;;9002226.02101,"729,00904-0092-60 ",.01)
 ;;00904-0092-60
 ;;9002226.02101,"729,00904-0092-60 ",.02)
 ;;00904-0092-60
 ;;9002226.02101,"729,00904-1700-40 ",.01)
 ;;00904-1700-40
 ;;9002226.02101,"729,00904-1700-40 ",.02)
 ;;00904-1700-40
 ;;9002226.02101,"729,00904-1700-60 ",.01)
 ;;00904-1700-60
 ;;9002226.02101,"729,00904-1700-60 ",.02)
 ;;00904-1700-60
 ;;9002226.02101,"729,00904-1701-40 ",.01)
 ;;00904-1701-40
 ;;9002226.02101,"729,00904-1701-40 ",.02)
 ;;00904-1701-40
 ;;9002226.02101,"729,00904-2801-40 ",.01)
 ;;00904-2801-40
 ;;9002226.02101,"729,00904-2801-40 ",.02)
 ;;00904-2801-40
 ;;9002226.02101,"729,00904-2801-61 ",.01)
 ;;00904-2801-61
 ;;9002226.02101,"729,00904-2801-61 ",.02)
 ;;00904-2801-61
 ;;9002226.02101,"729,00904-5880-61 ",.01)
 ;;00904-5880-61
 ;;9002226.02101,"729,00904-5880-61 ",.02)
 ;;00904-5880-61
 ;;9002226.02101,"729,00904-5881-61 ",.01)
 ;;00904-5881-61
 ;;9002226.02101,"729,00904-5881-61 ",.02)
 ;;00904-5881-61
 ;;9002226.02101,"729,10544-0309-30 ",.01)
 ;;10544-0309-30
 ;;9002226.02101,"729,10544-0309-30 ",.02)
 ;;10544-0309-30
 ;;9002226.02101,"729,10544-0403-30 ",.01)
 ;;10544-0403-30
 ;;9002226.02101,"729,10544-0403-30 ",.02)
 ;;10544-0403-30
 ;;9002226.02101,"729,12280-0006-00 ",.01)
 ;;12280-0006-00
 ;;9002226.02101,"729,12280-0006-00 ",.02)
 ;;12280-0006-00
 ;;9002226.02101,"729,12280-0219-00 ",.01)
 ;;12280-0219-00
 ;;9002226.02101,"729,12280-0219-00 ",.02)
 ;;12280-0219-00
 ;;9002226.02101,"729,16590-0069-30 ",.01)
 ;;16590-0069-30
 ;;9002226.02101,"729,16590-0069-30 ",.02)
 ;;16590-0069-30
 ;;9002226.02101,"729,16590-0069-60 ",.01)
 ;;16590-0069-60
 ;;9002226.02101,"729,16590-0069-60 ",.02)
 ;;16590-0069-60
 ;;9002226.02101,"729,16590-0069-90 ",.01)
 ;;16590-0069-90
 ;;9002226.02101,"729,16590-0069-90 ",.02)
 ;;16590-0069-90
 ;;9002226.02101,"729,16590-0070-10 ",.01)
 ;;16590-0070-10
 ;;9002226.02101,"729,16590-0070-10 ",.02)
 ;;16590-0070-10
 ;;9002226.02101,"729,16590-0070-20 ",.01)
 ;;16590-0070-20
 ;;9002226.02101,"729,16590-0070-20 ",.02)
 ;;16590-0070-20
 ;;9002226.02101,"729,16590-0070-30 ",.01)
 ;;16590-0070-30
 ;;9002226.02101,"729,16590-0070-30 ",.02)
 ;;16590-0070-30
 ;;9002226.02101,"729,16590-0070-60 ",.01)
 ;;16590-0070-60
 ;;9002226.02101,"729,16590-0070-60 ",.02)
 ;;16590-0070-60
 ;;9002226.02101,"729,16590-0070-71 ",.01)
 ;;16590-0070-71
 ;;9002226.02101,"729,16590-0070-71 ",.02)
 ;;16590-0070-71
 ;;9002226.02101,"729,16590-0070-72 ",.01)
 ;;16590-0070-72
 ;;9002226.02101,"729,16590-0070-72 ",.02)
 ;;16590-0070-72
 ;;9002226.02101,"729,16590-0070-90 ",.01)
 ;;16590-0070-90
 ;;9002226.02101,"729,16590-0070-90 ",.02)
 ;;16590-0070-90
 ;;9002226.02101,"729,16590-0071-30 ",.01)
 ;;16590-0071-30
 ;;9002226.02101,"729,16590-0071-30 ",.02)
 ;;16590-0071-30
 ;;9002226.02101,"729,16590-0071-45 ",.01)
 ;;16590-0071-45
 ;;9002226.02101,"729,16590-0071-45 ",.02)
 ;;16590-0071-45
 ;;9002226.02101,"729,16590-0071-60 ",.01)
 ;;16590-0071-60
 ;;9002226.02101,"729,16590-0071-60 ",.02)
 ;;16590-0071-60
 ;;9002226.02101,"729,16590-0071-90 ",.01)
 ;;16590-0071-90
 ;;9002226.02101,"729,16590-0071-90 ",.02)
 ;;16590-0071-90
 ;;9002226.02101,"729,18837-0038-30 ",.01)
 ;;18837-0038-30
 ;;9002226.02101,"729,18837-0038-30 ",.02)
 ;;18837-0038-30
 ;;9002226.02101,"729,18837-0038-60 ",.01)
 ;;18837-0038-60
 ;;9002226.02101,"729,18837-0038-60 ",.02)
 ;;18837-0038-60
 ;;9002226.02101,"729,18837-0038-90 ",.01)
 ;;18837-0038-90
 ;;9002226.02101,"729,18837-0038-90 ",.02)
 ;;18837-0038-90
 ;;9002226.02101,"729,18837-0038-98 ",.01)
 ;;18837-0038-98
 ;;9002226.02101,"729,18837-0038-98 ",.02)
 ;;18837-0038-98
 ;;9002226.02101,"729,18837-0038-99 ",.01)
 ;;18837-0038-99
 ;;9002226.02101,"729,18837-0038-99 ",.02)
 ;;18837-0038-99
 ;;9002226.02101,"729,18837-0039-03 ",.01)
 ;;18837-0039-03
 ;;9002226.02101,"729,18837-0039-03 ",.02)
 ;;18837-0039-03
 ;;9002226.02101,"729,18837-0039-30 ",.01)
 ;;18837-0039-30
 ;;9002226.02101,"729,18837-0039-30 ",.02)
 ;;18837-0039-30
 ;;9002226.02101,"729,18837-0039-60 ",.01)
 ;;18837-0039-60
 ;;9002226.02101,"729,18837-0039-60 ",.02)
 ;;18837-0039-60
 ;;9002226.02101,"729,18837-0039-90 ",.01)
 ;;18837-0039-90
 ;;9002226.02101,"729,18837-0039-90 ",.02)
 ;;18837-0039-90
 ;;9002226.02101,"729,21695-0264-02 ",.01)
 ;;21695-0264-02
 ;;9002226.02101,"729,21695-0264-02 ",.02)
 ;;21695-0264-02
 ;;9002226.02101,"729,21695-0264-15 ",.01)
 ;;21695-0264-15
 ;;9002226.02101,"729,21695-0264-15 ",.02)
 ;;21695-0264-15
 ;;9002226.02101,"729,21695-0264-20 ",.01)
 ;;21695-0264-20
 ;;9002226.02101,"729,21695-0264-20 ",.02)
 ;;21695-0264-20
 ;;9002226.02101,"729,21695-0264-30 ",.01)
 ;;21695-0264-30
 ;;9002226.02101,"729,21695-0264-30 ",.02)
 ;;21695-0264-30
 ;;9002226.02101,"729,21695-0264-60 ",.01)
 ;;21695-0264-60
 ;;9002226.02101,"729,21695-0264-60 ",.02)
 ;;21695-0264-60
 ;;9002226.02101,"729,21695-0264-90 ",.01)
 ;;21695-0264-90
 ;;9002226.02101,"729,21695-0264-90 ",.02)
 ;;21695-0264-90
 ;;9002226.02101,"729,21695-0265-30 ",.01)
 ;;21695-0265-30
 ;;9002226.02101,"729,21695-0265-30 ",.02)
 ;;21695-0265-30
 ;;9002226.02101,"729,21695-0363-30 ",.01)
 ;;21695-0363-30
 ;;9002226.02101,"729,21695-0363-30 ",.02)
 ;;21695-0363-30
 ;;9002226.02101,"729,23490-0428-03 ",.01)
 ;;23490-0428-03
 ;;9002226.02101,"729,23490-0428-03 ",.02)
 ;;23490-0428-03
 ;;9002226.02101,"729,23490-0428-06 ",.01)
 ;;23490-0428-06
 ;;9002226.02101,"729,23490-0428-06 ",.02)
 ;;23490-0428-06
 ;;9002226.02101,"729,23490-5266-01 ",.01)
 ;;23490-5266-01
 ;;9002226.02101,"729,23490-5266-01 ",.02)
 ;;23490-5266-01
 ;;9002226.02101,"729,23490-5267-01 ",.01)
 ;;23490-5267-01
 ;;9002226.02101,"729,23490-5267-01 ",.02)
 ;;23490-5267-01
 ;;9002226.02101,"729,23490-5267-02 ",.01)
 ;;23490-5267-02
 ;;9002226.02101,"729,23490-5267-02 ",.02)
 ;;23490-5267-02
 ;;9002226.02101,"729,23490-5267-03 ",.01)
 ;;23490-5267-03
 ;;9002226.02101,"729,23490-5267-03 ",.02)
 ;;23490-5267-03
 ;;9002226.02101,"729,23490-5269-01 ",.01)
 ;;23490-5269-01
 ;;9002226.02101,"729,23490-5269-01 ",.02)
 ;;23490-5269-01
 ;;9002226.02101,"729,23490-5269-02 ",.01)
 ;;23490-5269-02
 ;;9002226.02101,"729,23490-5269-02 ",.02)
 ;;23490-5269-02
 ;;9002226.02101,"729,23490-5269-03 ",.01)
 ;;23490-5269-03
 ;;9002226.02101,"729,23490-5269-03 ",.02)
 ;;23490-5269-03
 ;;9002226.02101,"729,23490-5418-00 ",.01)
 ;;23490-5418-00
 ;;9002226.02101,"729,23490-5418-00 ",.02)
 ;;23490-5418-00
 ;;9002226.02101,"729,23490-5418-01 ",.01)
 ;;23490-5418-01
 ;;9002226.02101,"729,23490-5418-01 ",.02)
 ;;23490-5418-01
 ;;9002226.02101,"729,23490-5418-02 ",.01)
 ;;23490-5418-02
 ;;9002226.02101,"729,23490-5418-02 ",.02)
 ;;23490-5418-02
 ;;9002226.02101,"729,23490-5418-03 ",.01)
 ;;23490-5418-03
 ;;9002226.02101,"729,23490-5418-03 ",.02)
 ;;23490-5418-03
 ;;9002226.02101,"729,23490-5418-04 ",.01)
 ;;23490-5418-04
 ;;9002226.02101,"729,23490-5418-04 ",.02)
 ;;23490-5418-04
 ;;9002226.02101,"729,23490-5418-05 ",.01)
 ;;23490-5418-05
 ;;9002226.02101,"729,23490-5418-05 ",.02)
 ;;23490-5418-05
 ;;9002226.02101,"729,23490-5418-06 ",.01)
 ;;23490-5418-06
 ;;9002226.02101,"729,23490-5418-06 ",.02)
 ;;23490-5418-06
 ;;9002226.02101,"729,23490-5418-07 ",.01)
 ;;23490-5418-07
 ;;9002226.02101,"729,23490-5418-07 ",.02)
 ;;23490-5418-07
 ;;9002226.02101,"729,23490-5419-01 ",.01)
 ;;23490-5419-01
 ;;9002226.02101,"729,23490-5419-01 ",.02)
 ;;23490-5419-01
 ;;9002226.02101,"729,23490-5419-03 ",.01)
 ;;23490-5419-03
 ;;9002226.02101,"729,23490-5419-03 ",.02)
 ;;23490-5419-03
 ;;9002226.02101,"729,23490-5420-01 ",.01)
 ;;23490-5420-01
 ;;9002226.02101,"729,23490-5420-01 ",.02)
 ;;23490-5420-01
 ;;9002226.02101,"729,23490-5420-02 ",.01)
 ;;23490-5420-02
 ;;9002226.02101,"729,23490-5420-02 ",.02)
 ;;23490-5420-02
 ;;9002226.02101,"729,23490-5420-03 ",.01)
 ;;23490-5420-03
 ;;9002226.02101,"729,23490-5420-03 ",.02)
 ;;23490-5420-03
 ;;9002226.02101,"729,23490-5420-04 ",.01)
 ;;23490-5420-04
 ;;9002226.02101,"729,23490-5420-04 ",.02)
 ;;23490-5420-04
 ;;9002226.02101,"729,23490-5420-05 ",.01)
 ;;23490-5420-05
 ;;9002226.02101,"729,23490-5420-05 ",.02)
 ;;23490-5420-05
 ;;9002226.02101,"729,23490-5420-06 ",.01)
 ;;23490-5420-06
 ;;9002226.02101,"729,23490-5420-06 ",.02)
 ;;23490-5420-06
 ;;9002226.02101,"729,23490-5420-07 ",.01)
 ;;23490-5420-07
 ;;9002226.02101,"729,23490-5420-07 ",.02)
 ;;23490-5420-07
 ;;9002226.02101,"729,23490-5610-03 ",.01)
 ;;23490-5610-03
 ;;9002226.02101,"729,23490-5610-03 ",.02)
 ;;23490-5610-03
 ;;9002226.02101,"729,23490-5610-06 ",.01)
 ;;23490-5610-06
 ;;9002226.02101,"729,23490-5610-06 ",.02)
 ;;23490-5610-06
 ;;9002226.02101,"729,23490-5611-03 ",.01)
 ;;23490-5611-03
 ;;9002226.02101,"729,23490-5611-03 ",.02)
 ;;23490-5611-03
 ;;9002226.02101,"729,23490-5611-06 ",.01)
 ;;23490-5611-06
 ;;9002226.02101,"729,23490-5611-06 ",.02)
 ;;23490-5611-06
 ;;9002226.02101,"729,33358-0101-30 ",.01)
 ;;33358-0101-30
 ;;9002226.02101,"729,33358-0101-30 ",.02)
 ;;33358-0101-30
 ;;9002226.02101,"729,33358-0102-12 ",.01)
 ;;33358-0102-12
 ;;9002226.02101,"729,33358-0102-12 ",.02)
 ;;33358-0102-12
 ;;9002226.02101,"729,33358-0102-15 ",.01)
 ;;33358-0102-15
 ;;9002226.02101,"729,33358-0102-15 ",.02)
 ;;33358-0102-15
 ;;9002226.02101,"729,33358-0102-20 ",.01)
 ;;33358-0102-20
 ;;9002226.02101,"729,33358-0102-20 ",.02)
 ;;33358-0102-20
 ;;9002226.02101,"729,33358-0102-30 ",.01)
 ;;33358-0102-30
 ;;9002226.02101,"729,33358-0102-30 ",.02)
 ;;33358-0102-30
 ;;9002226.02101,"729,33358-0102-60 ",.01)
 ;;33358-0102-60
 ;;9002226.02101,"729,33358-0102-60 ",.02)
 ;;33358-0102-60
 ;;9002226.02101,"729,33358-0102-90 ",.01)
 ;;33358-0102-90
 ;;9002226.02101,"729,33358-0102-90 ",.02)
 ;;33358-0102-90
 ;;9002226.02101,"729,33358-0103-00 ",.01)
 ;;33358-0103-00
 ;;9002226.02101,"729,33358-0103-00 ",.02)
 ;;33358-0103-00
 ;;9002226.02101,"729,33358-0103-20 ",.01)
 ;;33358-0103-20
 ;;9002226.02101,"729,33358-0103-20 ",.02)
 ;;33358-0103-20
 ;;9002226.02101,"729,33358-0103-30 ",.01)
 ;;33358-0103-30
 ;;9002226.02101,"729,33358-0103-30 ",.02)
 ;;33358-0103-30
 ;;9002226.02101,"729,33358-0103-40 ",.01)
 ;;33358-0103-40
 ;;9002226.02101,"729,33358-0103-40 ",.02)
 ;;33358-0103-40
 ;;9002226.02101,"729,33358-0103-50 ",.01)
 ;;33358-0103-50
 ;;9002226.02101,"729,33358-0103-50 ",.02)
 ;;33358-0103-50
 ;;9002226.02101,"729,33358-0103-60 ",.01)
 ;;33358-0103-60
 ;;9002226.02101,"729,33358-0103-60 ",.02)
 ;;33358-0103-60
 ;;9002226.02101,"729,33358-0103-90 ",.01)
 ;;33358-0103-90
 ;;9002226.02101,"729,33358-0103-90 ",.02)
 ;;33358-0103-90
 ;;9002226.02101,"729,33358-0146-30 ",.01)
 ;;33358-0146-30
 ;;9002226.02101,"729,33358-0146-30 ",.02)
 ;;33358-0146-30
 ;;9002226.02101,"729,33358-0146-60 ",.01)
 ;;33358-0146-60
 ;;9002226.02101,"729,33358-0146-60 ",.02)
 ;;33358-0146-60
 ;;9002226.02101,"729,33358-0147-30 ",.01)
 ;;33358-0147-30
 ;;9002226.02101,"729,33358-0147-30 ",.02)
 ;;33358-0147-30
 ;;9002226.02101,"729,33358-0147-60 ",.01)
 ;;33358-0147-60
 ;;9002226.02101,"729,33358-0147-60 ",.02)
 ;;33358-0147-60
 ;;9002226.02101,"729,35356-0006-00 ",.01)
 ;;35356-0006-00
 ;;9002226.02101,"729,35356-0006-00 ",.02)
 ;;35356-0006-00
 ;;9002226.02101,"729,35356-0022-00 ",.01)
 ;;35356-0022-00
 ;;9002226.02101,"729,35356-0022-00 ",.02)
 ;;35356-0022-00
 ;;9002226.02101,"729,42192-0336-01 ",.01)
 ;;42192-0336-01
 ;;9002226.02101,"729,42192-0336-01 ",.02)
 ;;42192-0336-01
 ;;9002226.02101,"729,43063-0018-06 ",.01)
 ;;43063-0018-06
 ;;9002226.02101,"729,43063-0018-06 ",.02)
 ;;43063-0018-06
 ;;9002226.02101,"729,43063-0046-03 ",.01)
 ;;43063-0046-03
 ;;9002226.02101,"729,43063-0046-03 ",.02)
 ;;43063-0046-03
 ;;9002226.02101,"729,43063-0046-06 ",.01)
 ;;43063-0046-06
 ;;9002226.02101,"729,43063-0046-06 ",.02)
 ;;43063-0046-06
 ;;9002226.02101,"729,43063-0046-15 ",.01)
 ;;43063-0046-15
 ;;9002226.02101,"729,43063-0046-15 ",.02)
 ;;43063-0046-15
 ;;9002226.02101,"729,43063-0046-19 ",.01)
 ;;43063-0046-19
 ;;9002226.02101,"729,43063-0046-19 ",.02)
 ;;43063-0046-19
 ;;9002226.02101,"729,43547-0251-10 ",.01)
 ;;43547-0251-10
 ;;9002226.02101,"729,43547-0251-10 ",.02)
 ;;43547-0251-10
 ;;9002226.02101,"729,43547-0252-10 ",.01)
 ;;43547-0252-10
 ;;9002226.02101,"729,43547-0252-10 ",.02)
 ;;43547-0252-10
 ;;9002226.02101,"729,43547-0253-10 ",.01)
 ;;43547-0253-10
 ;;9002226.02101,"729,43547-0253-10 ",.02)
 ;;43547-0253-10
 ;;9002226.02101,"729,49884-0958-01 ",.01)
 ;;49884-0958-01
 ;;9002226.02101,"729,49884-0958-01 ",.02)
 ;;49884-0958-01
 ;;9002226.02101,"729,49884-0959-01 ",.01)
 ;;49884-0959-01
 ;;9002226.02101,"729,49884-0959-01 ",.02)
 ;;49884-0959-01