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

BGP2VF31.m

Go to the documentation of this file.
BGP2VF31 ;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,"798,49884-0699-37 ",.01)
 ;;49884-0699-37
 ;;9002226.02101,"798,49884-0699-37 ",.02)
 ;;49884-0699-37
 ;;9002226.02101,"798,49884-0734-01 ",.01)
 ;;49884-0734-01
 ;;9002226.02101,"798,49884-0734-01 ",.02)
 ;;49884-0734-01
 ;;9002226.02101,"798,49884-0734-10 ",.01)
 ;;49884-0734-10
 ;;9002226.02101,"798,49884-0734-10 ",.02)
 ;;49884-0734-10
 ;;9002226.02101,"798,49884-0734-11 ",.01)
 ;;49884-0734-11
 ;;9002226.02101,"798,49884-0734-11 ",.02)
 ;;49884-0734-11
 ;;9002226.02101,"798,49884-0734-82 ",.01)
 ;;49884-0734-82
 ;;9002226.02101,"798,49884-0734-82 ",.02)
 ;;49884-0734-82
 ;;9002226.02101,"798,49884-0735-01 ",.01)
 ;;49884-0735-01
 ;;9002226.02101,"798,49884-0735-01 ",.02)
 ;;49884-0735-01
 ;;9002226.02101,"798,49884-0735-10 ",.01)
 ;;49884-0735-10
 ;;9002226.02101,"798,49884-0735-10 ",.02)
 ;;49884-0735-10
 ;;9002226.02101,"798,49884-0735-11 ",.01)
 ;;49884-0735-11
 ;;9002226.02101,"798,49884-0735-11 ",.02)
 ;;49884-0735-11
 ;;9002226.02101,"798,49884-0735-82 ",.01)
 ;;49884-0735-82
 ;;9002226.02101,"798,49884-0735-82 ",.02)
 ;;49884-0735-82
 ;;9002226.02101,"798,49884-0743-01 ",.01)
 ;;49884-0743-01
 ;;9002226.02101,"798,49884-0743-01 ",.02)
 ;;49884-0743-01
 ;;9002226.02101,"798,49884-0743-05 ",.01)
 ;;49884-0743-05
 ;;9002226.02101,"798,49884-0743-05 ",.02)
 ;;49884-0743-05
 ;;9002226.02101,"798,49884-0743-11 ",.01)
 ;;49884-0743-11
 ;;9002226.02101,"798,49884-0743-11 ",.02)
 ;;49884-0743-11
 ;;9002226.02101,"798,49884-0759-01 ",.01)
 ;;49884-0759-01
 ;;9002226.02101,"798,49884-0759-01 ",.02)
 ;;49884-0759-01
 ;;9002226.02101,"798,49884-0872-01 ",.01)
 ;;49884-0872-01
 ;;9002226.02101,"798,49884-0872-01 ",.02)
 ;;49884-0872-01
 ;;9002226.02101,"798,49884-0872-05 ",.01)
 ;;49884-0872-05
 ;;9002226.02101,"798,49884-0872-05 ",.02)
 ;;49884-0872-05
 ;;9002226.02101,"798,49884-0872-11 ",.01)
 ;;49884-0872-11
 ;;9002226.02101,"798,49884-0872-11 ",.02)
 ;;49884-0872-11
 ;;9002226.02101,"798,49884-0876-05 ",.01)
 ;;49884-0876-05
 ;;9002226.02101,"798,49884-0876-05 ",.02)
 ;;49884-0876-05
 ;;9002226.02101,"798,49884-0876-11 ",.01)
 ;;49884-0876-11
 ;;9002226.02101,"798,49884-0876-11 ",.02)
 ;;49884-0876-11
 ;;9002226.02101,"798,49884-0877-01 ",.01)
 ;;49884-0877-01
 ;;9002226.02101,"798,49884-0877-01 ",.02)
 ;;49884-0877-01
 ;;9002226.02101,"798,49884-0877-05 ",.01)
 ;;49884-0877-05
 ;;9002226.02101,"798,49884-0877-05 ",.02)
 ;;49884-0877-05
 ;;9002226.02101,"798,49884-0877-11 ",.01)
 ;;49884-0877-11
 ;;9002226.02101,"798,49884-0877-11 ",.02)
 ;;49884-0877-11
 ;;9002226.02101,"798,49884-0878-05 ",.01)
 ;;49884-0878-05
 ;;9002226.02101,"798,49884-0878-05 ",.02)
 ;;49884-0878-05
 ;;9002226.02101,"798,49884-0878-11 ",.01)
 ;;49884-0878-11
 ;;9002226.02101,"798,49884-0878-11 ",.02)
 ;;49884-0878-11
 ;;9002226.02101,"798,49884-0879-05 ",.01)
 ;;49884-0879-05
 ;;9002226.02101,"798,49884-0879-05 ",.02)
 ;;49884-0879-05
 ;;9002226.02101,"798,49884-0879-11 ",.01)
 ;;49884-0879-11
 ;;9002226.02101,"798,49884-0879-11 ",.02)
 ;;49884-0879-11
 ;;9002226.02101,"798,49884-0916-02 ",.01)
 ;;49884-0916-02
 ;;9002226.02101,"798,49884-0916-02 ",.02)
 ;;49884-0916-02
 ;;9002226.02101,"798,49884-0916-05 ",.01)
 ;;49884-0916-05
 ;;9002226.02101,"798,49884-0916-05 ",.02)
 ;;49884-0916-05
 ;;9002226.02101,"798,49884-0917-02 ",.01)
 ;;49884-0917-02
 ;;9002226.02101,"798,49884-0917-02 ",.02)
 ;;49884-0917-02
 ;;9002226.02101,"798,49884-0917-05 ",.01)
 ;;49884-0917-05
 ;;9002226.02101,"798,49884-0917-05 ",.02)
 ;;49884-0917-05
 ;;9002226.02101,"798,49884-0918-02 ",.01)
 ;;49884-0918-02
 ;;9002226.02101,"798,49884-0918-02 ",.02)
 ;;49884-0918-02
 ;;9002226.02101,"798,49884-0918-05 ",.01)
 ;;49884-0918-05
 ;;9002226.02101,"798,49884-0918-05 ",.02)
 ;;49884-0918-05
 ;;9002226.02101,"798,49884-0919-02 ",.01)
 ;;49884-0919-02
 ;;9002226.02101,"798,49884-0919-02 ",.02)
 ;;49884-0919-02
 ;;9002226.02101,"798,49884-0919-05 ",.01)
 ;;49884-0919-05
 ;;9002226.02101,"798,49884-0919-05 ",.02)
 ;;49884-0919-05
 ;;9002226.02101,"798,49884-0920-02 ",.01)
 ;;49884-0920-02
 ;;9002226.02101,"798,49884-0920-02 ",.02)
 ;;49884-0920-02
 ;;9002226.02101,"798,49884-0920-05 ",.01)
 ;;49884-0920-05
 ;;9002226.02101,"798,49884-0920-05 ",.02)
 ;;49884-0920-05
 ;;9002226.02101,"798,49884-0961-01 ",.01)
 ;;49884-0961-01
 ;;9002226.02101,"798,49884-0961-01 ",.02)
 ;;49884-0961-01
 ;;9002226.02101,"798,49884-0962-01 ",.01)
 ;;49884-0962-01
 ;;9002226.02101,"798,49884-0962-01 ",.02)
 ;;49884-0962-01
 ;;9002226.02101,"798,49999-0063-00 ",.01)
 ;;49999-0063-00
 ;;9002226.02101,"798,49999-0063-00 ",.02)
 ;;49999-0063-00
 ;;9002226.02101,"798,49999-0063-15 ",.01)
 ;;49999-0063-15
 ;;9002226.02101,"798,49999-0063-15 ",.02)
 ;;49999-0063-15
 ;;9002226.02101,"798,49999-0063-30 ",.01)
 ;;49999-0063-30
 ;;9002226.02101,"798,49999-0063-30 ",.02)
 ;;49999-0063-30
 ;;9002226.02101,"798,49999-0063-50 ",.01)
 ;;49999-0063-50
 ;;9002226.02101,"798,49999-0063-50 ",.02)
 ;;49999-0063-50
 ;;9002226.02101,"798,49999-0063-60 ",.01)
 ;;49999-0063-60
 ;;9002226.02101,"798,49999-0063-60 ",.02)
 ;;49999-0063-60
 ;;9002226.02101,"798,49999-0063-90 ",.01)
 ;;49999-0063-90
 ;;9002226.02101,"798,49999-0063-90 ",.02)
 ;;49999-0063-90
 ;;9002226.02101,"798,49999-0128-00 ",.01)
 ;;49999-0128-00
 ;;9002226.02101,"798,49999-0128-00 ",.02)
 ;;49999-0128-00
 ;;9002226.02101,"798,49999-0128-11 ",.01)
 ;;49999-0128-11
 ;;9002226.02101,"798,49999-0128-11 ",.02)
 ;;49999-0128-11
 ;;9002226.02101,"798,49999-0128-14 ",.01)
 ;;49999-0128-14
 ;;9002226.02101,"798,49999-0128-14 ",.02)
 ;;49999-0128-14
 ;;9002226.02101,"798,49999-0128-20 ",.01)
 ;;49999-0128-20
 ;;9002226.02101,"798,49999-0128-20 ",.02)
 ;;49999-0128-20
 ;;9002226.02101,"798,49999-0128-30 ",.01)
 ;;49999-0128-30
 ;;9002226.02101,"798,49999-0128-30 ",.02)
 ;;49999-0128-30
 ;;9002226.02101,"798,49999-0128-60 ",.01)
 ;;49999-0128-60
 ;;9002226.02101,"798,49999-0128-60 ",.02)
 ;;49999-0128-60
 ;;9002226.02101,"798,49999-0128-90 ",.01)
 ;;49999-0128-90
 ;;9002226.02101,"798,49999-0128-90 ",.02)
 ;;49999-0128-90
 ;;9002226.02101,"798,49999-0156-00 ",.01)
 ;;49999-0156-00
 ;;9002226.02101,"798,49999-0156-00 ",.02)
 ;;49999-0156-00
 ;;9002226.02101,"798,49999-0156-14 ",.01)
 ;;49999-0156-14
 ;;9002226.02101,"798,49999-0156-14 ",.02)
 ;;49999-0156-14
 ;;9002226.02101,"798,49999-0156-20 ",.01)
 ;;49999-0156-20
 ;;9002226.02101,"798,49999-0156-20 ",.02)
 ;;49999-0156-20
 ;;9002226.02101,"798,49999-0156-30 ",.01)
 ;;49999-0156-30
 ;;9002226.02101,"798,49999-0156-30 ",.02)
 ;;49999-0156-30
 ;;9002226.02101,"798,49999-0156-60 ",.01)
 ;;49999-0156-60
 ;;9002226.02101,"798,49999-0156-60 ",.02)
 ;;49999-0156-60
 ;;9002226.02101,"798,49999-0190-30 ",.01)
 ;;49999-0190-30
 ;;9002226.02101,"798,49999-0190-30 ",.02)
 ;;49999-0190-30
 ;;9002226.02101,"798,49999-0205-00 ",.01)
 ;;49999-0205-00
 ;;9002226.02101,"798,49999-0205-00 ",.02)
 ;;49999-0205-00
 ;;9002226.02101,"798,49999-0205-30 ",.01)
 ;;49999-0205-30
 ;;9002226.02101,"798,49999-0205-30 ",.02)
 ;;49999-0205-30
 ;;9002226.02101,"798,49999-0205-60 ",.01)
 ;;49999-0205-60
 ;;9002226.02101,"798,49999-0205-60 ",.02)
 ;;49999-0205-60
 ;;9002226.02101,"798,49999-0215-25 ",.01)
 ;;49999-0215-25
 ;;9002226.02101,"798,49999-0215-25 ",.02)
 ;;49999-0215-25
 ;;9002226.02101,"798,49999-0215-30 ",.01)
 ;;49999-0215-30
 ;;9002226.02101,"798,49999-0215-30 ",.02)
 ;;49999-0215-30
 ;;9002226.02101,"798,49999-0215-60 ",.01)
 ;;49999-0215-60
 ;;9002226.02101,"798,49999-0215-60 ",.02)
 ;;49999-0215-60
 ;;9002226.02101,"798,49999-0228-00 ",.01)
 ;;49999-0228-00
 ;;9002226.02101,"798,49999-0228-00 ",.02)
 ;;49999-0228-00
 ;;9002226.02101,"798,49999-0228-30 ",.01)
 ;;49999-0228-30
 ;;9002226.02101,"798,49999-0228-30 ",.02)
 ;;49999-0228-30
 ;;9002226.02101,"798,49999-0228-60 ",.01)
 ;;49999-0228-60
 ;;9002226.02101,"798,49999-0228-60 ",.02)
 ;;49999-0228-60
 ;;9002226.02101,"798,49999-0228-90 ",.01)
 ;;49999-0228-90
 ;;9002226.02101,"798,49999-0228-90 ",.02)
 ;;49999-0228-90
 ;;9002226.02101,"798,49999-0249-15 ",.01)
 ;;49999-0249-15
 ;;9002226.02101,"798,49999-0249-15 ",.02)
 ;;49999-0249-15
 ;;9002226.02101,"798,49999-0249-30 ",.01)
 ;;49999-0249-30
 ;;9002226.02101,"798,49999-0249-30 ",.02)
 ;;49999-0249-30
 ;;9002226.02101,"798,49999-0292-15 ",.01)
 ;;49999-0292-15
 ;;9002226.02101,"798,49999-0292-15 ",.02)
 ;;49999-0292-15
 ;;9002226.02101,"798,49999-0292-30 ",.01)
 ;;49999-0292-30
 ;;9002226.02101,"798,49999-0292-30 ",.02)
 ;;49999-0292-30
 ;;9002226.02101,"798,49999-0318-00 ",.01)
 ;;49999-0318-00
 ;;9002226.02101,"798,49999-0318-00 ",.02)
 ;;49999-0318-00
 ;;9002226.02101,"798,49999-0318-30 ",.01)
 ;;49999-0318-30
 ;;9002226.02101,"798,49999-0318-30 ",.02)
 ;;49999-0318-30
 ;;9002226.02101,"798,49999-0318-60 ",.01)
 ;;49999-0318-60
 ;;9002226.02101,"798,49999-0318-60 ",.02)
 ;;49999-0318-60
 ;;9002226.02101,"798,49999-0343-00 ",.01)
 ;;49999-0343-00
 ;;9002226.02101,"798,49999-0343-00 ",.02)
 ;;49999-0343-00
 ;;9002226.02101,"798,49999-0343-15 ",.01)
 ;;49999-0343-15
 ;;9002226.02101,"798,49999-0343-15 ",.02)
 ;;49999-0343-15
 ;;9002226.02101,"798,49999-0343-30 ",.01)
 ;;49999-0343-30
 ;;9002226.02101,"798,49999-0343-30 ",.02)
 ;;49999-0343-30
 ;;9002226.02101,"798,49999-0343-60 ",.01)
 ;;49999-0343-60
 ;;9002226.02101,"798,49999-0343-60 ",.02)
 ;;49999-0343-60
 ;;9002226.02101,"798,49999-0349-00 ",.01)
 ;;49999-0349-00
 ;;9002226.02101,"798,49999-0349-00 ",.02)
 ;;49999-0349-00
 ;;9002226.02101,"798,49999-0349-30 ",.01)
 ;;49999-0349-30
 ;;9002226.02101,"798,49999-0349-30 ",.02)
 ;;49999-0349-30
 ;;9002226.02101,"798,49999-0349-60 ",.01)
 ;;49999-0349-60
 ;;9002226.02101,"798,49999-0349-60 ",.02)
 ;;49999-0349-60
 ;;9002226.02101,"798,49999-0349-90 ",.01)
 ;;49999-0349-90
 ;;9002226.02101,"798,49999-0349-90 ",.02)
 ;;49999-0349-90
 ;;9002226.02101,"798,49999-0362-14 ",.01)
 ;;49999-0362-14
 ;;9002226.02101,"798,49999-0362-14 ",.02)
 ;;49999-0362-14
 ;;9002226.02101,"798,49999-0362-30 ",.01)
 ;;49999-0362-30
 ;;9002226.02101,"798,49999-0362-30 ",.02)
 ;;49999-0362-30
 ;;9002226.02101,"798,49999-0375-00 ",.01)
 ;;49999-0375-00
 ;;9002226.02101,"798,49999-0375-00 ",.02)
 ;;49999-0375-00
 ;;9002226.02101,"798,49999-0375-15 ",.01)
 ;;49999-0375-15
 ;;9002226.02101,"798,49999-0375-15 ",.02)
 ;;49999-0375-15
 ;;9002226.02101,"798,49999-0375-30 ",.01)
 ;;49999-0375-30
 ;;9002226.02101,"798,49999-0375-30 ",.02)
 ;;49999-0375-30
 ;;9002226.02101,"798,49999-0381-30 ",.01)
 ;;49999-0381-30
 ;;9002226.02101,"798,49999-0381-30 ",.02)
 ;;49999-0381-30
 ;;9002226.02101,"798,49999-0400-30 ",.01)
 ;;49999-0400-30
 ;;9002226.02101,"798,49999-0400-30 ",.02)
 ;;49999-0400-30
 ;;9002226.02101,"798,49999-0443-15 ",.01)
 ;;49999-0443-15
 ;;9002226.02101,"798,49999-0443-15 ",.02)
 ;;49999-0443-15
 ;;9002226.02101,"798,49999-0443-30 ",.01)
 ;;49999-0443-30
 ;;9002226.02101,"798,49999-0443-30 ",.02)
 ;;49999-0443-30
 ;;9002226.02101,"798,49999-0538-30 ",.01)
 ;;49999-0538-30
 ;;9002226.02101,"798,49999-0538-30 ",.02)
 ;;49999-0538-30
 ;;9002226.02101,"798,49999-0551-30 ",.01)
 ;;49999-0551-30
 ;;9002226.02101,"798,49999-0551-30 ",.02)
 ;;49999-0551-30
 ;;9002226.02101,"798,49999-0595-30 ",.01)
 ;;49999-0595-30
 ;;9002226.02101,"798,49999-0595-30 ",.02)
 ;;49999-0595-30
 ;;9002226.02101,"798,49999-0596-30 ",.01)
 ;;49999-0596-30
 ;;9002226.02101,"798,49999-0596-30 ",.02)
 ;;49999-0596-30
 ;;9002226.02101,"798,49999-0597-30 ",.01)
 ;;49999-0597-30
 ;;9002226.02101,"798,49999-0597-30 ",.02)
 ;;49999-0597-30
 ;;9002226.02101,"798,49999-0599-15 ",.01)
 ;;49999-0599-15
 ;;9002226.02101,"798,49999-0599-15 ",.02)
 ;;49999-0599-15
 ;;9002226.02101,"798,49999-0599-30 ",.01)
 ;;49999-0599-30
 ;;9002226.02101,"798,49999-0599-30 ",.02)
 ;;49999-0599-30
 ;;9002226.02101,"798,49999-0599-60 ",.01)
 ;;49999-0599-60
 ;;9002226.02101,"798,49999-0599-60 ",.02)
 ;;49999-0599-60
 ;;9002226.02101,"798,49999-0600-00 ",.01)
 ;;49999-0600-00
 ;;9002226.02101,"798,49999-0600-00 ",.02)
 ;;49999-0600-00
 ;;9002226.02101,"798,49999-0600-15 ",.01)
 ;;49999-0600-15
 ;;9002226.02101,"798,49999-0600-15 ",.02)
 ;;49999-0600-15
 ;;9002226.02101,"798,49999-0600-30 ",.01)
 ;;49999-0600-30
 ;;9002226.02101,"798,49999-0600-30 ",.02)
 ;;49999-0600-30
 ;;9002226.02101,"798,49999-0601-15 ",.01)
 ;;49999-0601-15
 ;;9002226.02101,"798,49999-0601-15 ",.02)
 ;;49999-0601-15
 ;;9002226.02101,"798,49999-0613-30 ",.01)
 ;;49999-0613-30
 ;;9002226.02101,"798,49999-0613-30 ",.02)
 ;;49999-0613-30
 ;;9002226.02101,"798,49999-0618-30 ",.01)
 ;;49999-0618-30
 ;;9002226.02101,"798,49999-0618-30 ",.02)
 ;;49999-0618-30
 ;;9002226.02101,"798,49999-0618-60 ",.01)
 ;;49999-0618-60
 ;;9002226.02101,"798,49999-0618-60 ",.02)
 ;;49999-0618-60
 ;;9002226.02101,"798,49999-0619-30 ",.01)
 ;;49999-0619-30
 ;;9002226.02101,"798,49999-0619-30 ",.02)
 ;;49999-0619-30
 ;;9002226.02101,"798,49999-0619-60 ",.01)
 ;;49999-0619-60
 ;;9002226.02101,"798,49999-0619-60 ",.02)
 ;;49999-0619-60
 ;;9002226.02101,"798,49999-0627-00 ",.01)
 ;;49999-0627-00
 ;;9002226.02101,"798,49999-0627-00 ",.02)
 ;;49999-0627-00
 ;;9002226.02101,"798,49999-0627-30 ",.01)
 ;;49999-0627-30
 ;;9002226.02101,"798,49999-0627-30 ",.02)
 ;;49999-0627-30
 ;;9002226.02101,"798,49999-0627-60 ",.01)
 ;;49999-0627-60
 ;;9002226.02101,"798,49999-0627-60 ",.02)
 ;;49999-0627-60
 ;;9002226.02101,"798,49999-0629-30 ",.01)
 ;;49999-0629-30
 ;;9002226.02101,"798,49999-0629-30 ",.02)
 ;;49999-0629-30