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

BGP2TE7.m

Go to the documentation of this file.
BGP2TE7 ;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)
 ;;21,"68382-0121-01 ")
 ;;570
 ;;21,"68382-0121-05 ")
 ;;571
 ;;21,"68382-0121-16 ")
 ;;572
 ;;21,"68382-0122-01 ")
 ;;703
 ;;21,"68382-0122-05 ")
 ;;704
 ;;21,"68382-0122-16 ")
 ;;705
 ;;21,"68382-0123-01 ")
 ;;430
 ;;21,"68382-0123-05 ")
 ;;431
 ;;21,"68382-0123-16 ")
 ;;432
 ;;21,"68462-0210-10 ")
 ;;573
 ;;21,"68462-0211-10 ")
 ;;702
 ;;21,"68462-0212-10 ")
 ;;433
 ;;21,"68462-0233-01 ")
 ;;1490
 ;;21,"68462-0234-01 ")
 ;;1529
 ;;21,"68462-0235-01 ")
 ;;1458
 ;;21,"68462-0260-01 ")
 ;;2318
 ;;21,"68462-0260-05 ")
 ;;2319
 ;;21,"68462-0292-01 ")
 ;;2188
 ;;21,"68462-0293-01 ")
 ;;2215
 ;;21,"68462-0293-05 ")
 ;;2216
 ;;21,"68462-0294-01 ")
 ;;183
 ;;21,"68462-0295-01 ")
 ;;192
 ;;21,"68462-0296-01 ")
 ;;199
 ;;21,"68462-0329-01 ")
 ;;210
 ;;21,"76282-0237-05 ")
 ;;574
 ;;21,"76282-0237-10 ")
 ;;575
 ;;21,"76282-0237-90 ")
 ;;576
 ;;21,"76282-0238-05 ")
 ;;699
 ;;21,"76282-0238-10 ")
 ;;700
 ;;21,"76282-0238-90 ")
 ;;701
 ;;21,"76282-0239-05 ")
 ;;434
 ;;21,"76282-0239-10 ")
 ;;435
 ;;21,"76282-0239-90 ")
 ;;436
 ;;9002226,1197,.01)
 ;;BGP PQA CCB NDC
 ;;9002226,1197,.02)
 ;;@
 ;;9002226,1197,.04)
 ;;n
 ;;9002226,1197,.06)
 ;;@
 ;;9002226,1197,.08)
 ;;@
 ;;9002226,1197,.09)
 ;;3120312
 ;;9002226,1197,.11)
 ;;@
 ;;9002226,1197,.12)
 ;;@
 ;;9002226,1197,.13)
 ;;1
 ;;9002226,1197,.14)
 ;;@
 ;;9002226,1197,.15)
 ;;@
 ;;9002226,1197,.16)
 ;;@
 ;;9002226,1197,.17)
 ;;@
 ;;9002226,1197,3101)
 ;;@
 ;;9002226.02101,"1197,00004-0180-22 ",.01)
 ;;00004-0180-22
 ;;9002226.02101,"1197,00004-0180-22 ",.02)
 ;;00004-0180-22
 ;;9002226.02101,"1197,00004-0180-91 ",.01)
 ;;00004-0180-91
 ;;9002226.02101,"1197,00004-0180-91 ",.02)
 ;;00004-0180-91
 ;;9002226.02101,"1197,00004-0181-22 ",.01)
 ;;00004-0181-22
 ;;9002226.02101,"1197,00004-0181-22 ",.02)
 ;;00004-0181-22
 ;;9002226.02101,"1197,00004-0181-91 ",.01)
 ;;00004-0181-91
 ;;9002226.02101,"1197,00004-0181-91 ",.02)
 ;;00004-0181-91
 ;;9002226.02101,"1197,00004-0182-22 ",.01)
 ;;00004-0182-22
 ;;9002226.02101,"1197,00004-0182-22 ",.02)
 ;;00004-0182-22
 ;;9002226.02101,"1197,00004-0183-01 ",.01)
 ;;00004-0183-01
 ;;9002226.02101,"1197,00004-0183-01 ",.02)
 ;;00004-0183-01
 ;;9002226.02101,"1197,00004-0184-01 ",.01)
 ;;00004-0184-01
 ;;9002226.02101,"1197,00004-0184-01 ",.02)
 ;;00004-0184-01
 ;;9002226.02101,"1197,00025-1771-31 ",.01)
 ;;00025-1771-31
 ;;9002226.02101,"1197,00025-1771-31 ",.02)
 ;;00025-1771-31
 ;;9002226.02101,"1197,00025-1851-31 ",.01)
 ;;00025-1851-31
 ;;9002226.02101,"1197,00025-1851-31 ",.02)
 ;;00025-1851-31
 ;;9002226.02101,"1197,00025-1851-51 ",.01)
 ;;00025-1851-51
 ;;9002226.02101,"1197,00025-1851-51 ",.02)
 ;;00025-1851-51
 ;;9002226.02101,"1197,00025-1851-52 ",.01)
 ;;00025-1851-52
 ;;9002226.02101,"1197,00025-1851-52 ",.02)
 ;;00025-1851-52
 ;;9002226.02101,"1197,00025-1861-31 ",.01)
 ;;00025-1861-31
 ;;9002226.02101,"1197,00025-1861-31 ",.02)
 ;;00025-1861-31
 ;;9002226.02101,"1197,00025-1861-52 ",.01)
 ;;00025-1861-52
 ;;9002226.02101,"1197,00025-1861-52 ",.02)
 ;;00025-1861-52
 ;;9002226.02101,"1197,00025-1891-31 ",.01)
 ;;00025-1891-31
 ;;9002226.02101,"1197,00025-1891-31 ",.02)
 ;;00025-1891-31
 ;;9002226.02101,"1197,00025-1891-34 ",.01)
 ;;00025-1891-34
 ;;9002226.02101,"1197,00025-1891-34 ",.02)
 ;;00025-1891-34
 ;;9002226.02101,"1197,00025-1891-51 ",.01)
 ;;00025-1891-51
 ;;9002226.02101,"1197,00025-1891-51 ",.02)
 ;;00025-1891-51
 ;;9002226.02101,"1197,00025-1901-31 ",.01)
 ;;00025-1901-31
 ;;9002226.02101,"1197,00025-1901-31 ",.02)
 ;;00025-1901-31
 ;;9002226.02101,"1197,00025-1901-34 ",.01)
 ;;00025-1901-34
 ;;9002226.02101,"1197,00025-1901-34 ",.02)
 ;;00025-1901-34
 ;;9002226.02101,"1197,00025-1911-31 ",.01)
 ;;00025-1911-31
 ;;9002226.02101,"1197,00025-1911-31 ",.02)
 ;;00025-1911-31
 ;;9002226.02101,"1197,00025-1911-34 ",.01)
 ;;00025-1911-34
 ;;9002226.02101,"1197,00025-1911-34 ",.02)
 ;;00025-1911-34
 ;;9002226.02101,"1197,00025-2011-31 ",.01)
 ;;00025-2011-31
 ;;9002226.02101,"1197,00025-2011-31 ",.02)
 ;;00025-2011-31
 ;;9002226.02101,"1197,00025-2011-34 ",.01)
 ;;00025-2011-34
 ;;9002226.02101,"1197,00025-2011-34 ",.02)
 ;;00025-2011-34
 ;;9002226.02101,"1197,00025-2021-31 ",.01)
 ;;00025-2021-31
 ;;9002226.02101,"1197,00025-2021-31 ",.02)
 ;;00025-2021-31
 ;;9002226.02101,"1197,00025-2021-34 ",.01)
 ;;00025-2021-34
 ;;9002226.02101,"1197,00025-2021-34 ",.02)
 ;;00025-2021-34
 ;;9002226.02101,"1197,00026-8841-48 ",.01)
 ;;00026-8841-48
 ;;9002226.02101,"1197,00026-8841-48 ",.02)
 ;;00026-8841-48
 ;;9002226.02101,"1197,00026-8841-51 ",.01)
 ;;00026-8841-51
 ;;9002226.02101,"1197,00026-8841-51 ",.02)
 ;;00026-8841-51
 ;;9002226.02101,"1197,00026-8841-54 ",.01)
 ;;00026-8841-54
 ;;9002226.02101,"1197,00026-8841-54 ",.02)
 ;;00026-8841-54
 ;;9002226.02101,"1197,00026-8841-72 ",.01)
 ;;00026-8841-72
 ;;9002226.02101,"1197,00026-8841-72 ",.02)
 ;;00026-8841-72
 ;;9002226.02101,"1197,00026-8851-48 ",.01)
 ;;00026-8851-48
 ;;9002226.02101,"1197,00026-8851-48 ",.02)
 ;;00026-8851-48
 ;;9002226.02101,"1197,00026-8851-51 ",.01)
 ;;00026-8851-51
 ;;9002226.02101,"1197,00026-8851-51 ",.02)
 ;;00026-8851-51
 ;;9002226.02101,"1197,00026-8851-54 ",.01)
 ;;00026-8851-54
 ;;9002226.02101,"1197,00026-8851-54 ",.02)
 ;;00026-8851-54
 ;;9002226.02101,"1197,00026-8851-72 ",.01)
 ;;00026-8851-72
 ;;9002226.02101,"1197,00026-8851-72 ",.02)
 ;;00026-8851-72
 ;;9002226.02101,"1197,00026-8861-48 ",.01)
 ;;00026-8861-48
 ;;9002226.02101,"1197,00026-8861-48 ",.02)
 ;;00026-8861-48
 ;;9002226.02101,"1197,00026-8861-51 ",.01)
 ;;00026-8861-51
 ;;9002226.02101,"1197,00026-8861-51 ",.02)
 ;;00026-8861-51
 ;;9002226.02101,"1197,00044-1825-02 ",.01)
 ;;00044-1825-02
 ;;9002226.02101,"1197,00044-1825-02 ",.02)
 ;;00044-1825-02
 ;;9002226.02101,"1197,00044-1826-02 ",.01)
 ;;00044-1826-02
 ;;9002226.02101,"1197,00044-1826-02 ",.02)
 ;;00044-1826-02
 ;;9002226.02101,"1197,00044-1826-03 ",.01)
 ;;00044-1826-03
 ;;9002226.02101,"1197,00044-1826-03 ",.02)
 ;;00044-1826-03
 ;;9002226.02101,"1197,00044-1827-02 ",.01)
 ;;00044-1827-02
 ;;9002226.02101,"1197,00044-1827-02 ",.02)
 ;;00044-1827-02
 ;;9002226.02101,"1197,00048-5912-40 ",.01)
 ;;00048-5912-40
 ;;9002226.02101,"1197,00048-5912-40 ",.02)
 ;;00048-5912-40
 ;;9002226.02101,"1197,00048-5921-80 ",.01)
 ;;00048-5921-80
 ;;9002226.02101,"1197,00048-5921-80 ",.02)
 ;;00048-5921-80
 ;;9002226.02101,"1197,00048-5922-40 ",.01)
 ;;00048-5922-40
 ;;9002226.02101,"1197,00048-5922-40 ",.02)
 ;;00048-5922-40
 ;;9002226.02101,"1197,00048-5942-40 ",.01)
 ;;00048-5942-40
 ;;9002226.02101,"1197,00048-5942-40 ",.02)
 ;;00048-5942-40
 ;;9002226.02101,"1197,00054-0100-22 ",.01)
 ;;00054-0100-22
 ;;9002226.02101,"1197,00054-0100-22 ",.02)
 ;;00054-0100-22
 ;;9002226.02101,"1197,00054-0101-20 ",.01)
 ;;00054-0101-20
 ;;9002226.02101,"1197,00054-0101-20 ",.02)
 ;;00054-0101-20
 ;;9002226.02101,"1197,00054-0101-22 ",.01)
 ;;00054-0101-22
 ;;9002226.02101,"1197,00054-0101-22 ",.02)
 ;;00054-0101-22
 ;;9002226.02101,"1197,00054-0101-28 ",.01)
 ;;00054-0101-28
 ;;9002226.02101,"1197,00054-0101-28 ",.02)
 ;;00054-0101-28
 ;;9002226.02101,"1197,00054-0102-20 ",.01)
 ;;00054-0102-20
 ;;9002226.02101,"1197,00054-0102-20 ",.02)
 ;;00054-0102-20
 ;;9002226.02101,"1197,00054-0102-22 ",.01)
 ;;00054-0102-22
 ;;9002226.02101,"1197,00054-0102-22 ",.02)
 ;;00054-0102-22
 ;;9002226.02101,"1197,00054-0102-28 ",.01)
 ;;00054-0102-28
 ;;9002226.02101,"1197,00054-0102-28 ",.02)
 ;;00054-0102-28
 ;;9002226.02101,"1197,00069-1520-68 ",.01)
 ;;00069-1520-68
 ;;9002226.02101,"1197,00069-1520-68 ",.02)
 ;;00069-1520-68
 ;;9002226.02101,"1197,00069-1530-41 ",.01)
 ;;00069-1530-41
 ;;9002226.02101,"1197,00069-1530-41 ",.02)
 ;;00069-1530-41
 ;;9002226.02101,"1197,00069-1530-68 ",.01)
 ;;00069-1530-68
 ;;9002226.02101,"1197,00069-1530-68 ",.02)
 ;;00069-1530-68
 ;;9002226.02101,"1197,00069-1530-72 ",.01)
 ;;00069-1530-72
 ;;9002226.02101,"1197,00069-1530-72 ",.02)
 ;;00069-1530-72
 ;;9002226.02101,"1197,00069-1540-41 ",.01)
 ;;00069-1540-41
 ;;9002226.02101,"1197,00069-1540-41 ",.02)
 ;;00069-1540-41
 ;;9002226.02101,"1197,00069-1540-68 ",.01)
 ;;00069-1540-68
 ;;9002226.02101,"1197,00069-1540-68 ",.02)
 ;;00069-1540-68
 ;;9002226.02101,"1197,00069-2150-30 ",.01)
 ;;00069-2150-30
 ;;9002226.02101,"1197,00069-2150-30 ",.02)
 ;;00069-2150-30
 ;;9002226.02101,"1197,00069-2160-30 ",.01)
 ;;00069-2160-30
 ;;9002226.02101,"1197,00069-2160-30 ",.02)
 ;;00069-2160-30
 ;;9002226.02101,"1197,00069-2170-30 ",.01)
 ;;00069-2170-30
 ;;9002226.02101,"1197,00069-2170-30 ",.02)
 ;;00069-2170-30
 ;;9002226.02101,"1197,00069-2180-30 ",.01)
 ;;00069-2180-30
 ;;9002226.02101,"1197,00069-2180-30 ",.02)
 ;;00069-2180-30
 ;;9002226.02101,"1197,00069-2190-30 ",.01)
 ;;00069-2190-30
 ;;9002226.02101,"1197,00069-2190-30 ",.02)
 ;;00069-2190-30
 ;;9002226.02101,"1197,00069-2250-30 ",.01)
 ;;00069-2250-30
 ;;9002226.02101,"1197,00069-2250-30 ",.02)
 ;;00069-2250-30
 ;;9002226.02101,"1197,00069-2260-30 ",.01)
 ;;00069-2260-30
 ;;9002226.02101,"1197,00069-2260-30 ",.02)
 ;;00069-2260-30
 ;;9002226.02101,"1197,00069-2270-30 ",.01)
 ;;00069-2270-30
 ;;9002226.02101,"1197,00069-2270-30 ",.02)
 ;;00069-2270-30
 ;;9002226.02101,"1197,00069-2650-41 ",.01)
 ;;00069-2650-41
 ;;9002226.02101,"1197,00069-2650-41 ",.02)
 ;;00069-2650-41
 ;;9002226.02101,"1197,00069-2650-66 ",.01)
 ;;00069-2650-66
 ;;9002226.02101,"1197,00069-2650-66 ",.02)
 ;;00069-2650-66
 ;;9002226.02101,"1197,00069-2650-72 ",.01)
 ;;00069-2650-72
 ;;9002226.02101,"1197,00069-2650-72 ",.02)
 ;;00069-2650-72
 ;;9002226.02101,"1197,00069-2660-41 ",.01)
 ;;00069-2660-41
 ;;9002226.02101,"1197,00069-2660-41 ",.02)
 ;;00069-2660-41
 ;;9002226.02101,"1197,00069-2660-66 ",.01)
 ;;00069-2660-66
 ;;9002226.02101,"1197,00069-2660-66 ",.02)
 ;;00069-2660-66
 ;;9002226.02101,"1197,00069-2660-72 ",.01)
 ;;00069-2660-72
 ;;9002226.02101,"1197,00069-2660-72 ",.02)
 ;;00069-2660-72
 ;;9002226.02101,"1197,00069-2670-41 ",.01)
 ;;00069-2670-41
 ;;9002226.02101,"1197,00069-2670-41 ",.02)
 ;;00069-2670-41
 ;;9002226.02101,"1197,00069-2670-66 ",.01)
 ;;00069-2670-66
 ;;9002226.02101,"1197,00069-2670-66 ",.02)
 ;;00069-2670-66
 ;;9002226.02101,"1197,00069-2960-30 ",.01)
 ;;00069-2960-30
 ;;9002226.02101,"1197,00069-2960-30 ",.02)
 ;;00069-2960-30
 ;;9002226.02101,"1197,00069-2970-30 ",.01)
 ;;00069-2970-30
 ;;9002226.02101,"1197,00069-2970-30 ",.02)
 ;;00069-2970-30
 ;;9002226.02101,"1197,00069-2980-30 ",.01)
 ;;00069-2980-30
 ;;9002226.02101,"1197,00069-2980-30 ",.02)
 ;;00069-2980-30
 ;;9002226.02101,"1197,00074-1149-14 ",.01)
 ;;00074-1149-14
 ;;9002226.02101,"1197,00074-1149-14 ",.02)
 ;;00074-1149-14
 ;;9002226.02101,"1197,00074-1486-14 ",.01)
 ;;00074-1486-14
 ;;9002226.02101,"1197,00074-1486-14 ",.02)
 ;;00074-1486-14
 ;;9002226.02101,"1197,00074-1625-14 ",.01)
 ;;00074-1625-14
 ;;9002226.02101,"1197,00074-1625-14 ",.02)
 ;;00074-1625-14
 ;;9002226.02101,"1197,00074-1625-54 ",.01)
 ;;00074-1625-54
 ;;9002226.02101,"1197,00074-1625-54 ",.02)
 ;;00074-1625-54
 ;;9002226.02101,"1197,00074-3045-30 ",.01)
 ;;00074-3045-30
 ;;9002226.02101,"1197,00074-3045-30 ",.02)
 ;;00074-3045-30
 ;;9002226.02101,"1197,00074-3045-90 ",.01)
 ;;00074-3045-90
 ;;9002226.02101,"1197,00074-3045-90 ",.02)
 ;;00074-3045-90
 ;;9002226.02101,"1197,00074-3061-30 ",.01)
 ;;00074-3061-30
 ;;9002226.02101,"1197,00074-3061-30 ",.02)
 ;;00074-3061-30
 ;;9002226.02101,"1197,00074-3061-90 ",.01)
 ;;00074-3061-90
 ;;9002226.02101,"1197,00074-3061-90 ",.02)
 ;;00074-3061-90
 ;;9002226.02101,"1197,00074-3062-30 ",.01)
 ;;00074-3062-30
 ;;9002226.02101,"1197,00074-3062-30 ",.02)
 ;;00074-3062-30
 ;;9002226.02101,"1197,00074-3062-90 ",.01)
 ;;00074-3062-90
 ;;9002226.02101,"1197,00074-3062-90 ",.02)
 ;;00074-3062-90
 ;;9002226.02101,"1197,00074-3063-30 ",.01)
 ;;00074-3063-30
 ;;9002226.02101,"1197,00074-3063-30 ",.02)
 ;;00074-3063-30
 ;;9002226.02101,"1197,00074-3063-90 ",.01)
 ;;00074-3063-90
 ;;9002226.02101,"1197,00074-3063-90 ",.02)
 ;;00074-3063-90
 ;;9002226.02101,"1197,00074-3064-30 ",.01)
 ;;00074-3064-30
 ;;9002226.02101,"1197,00074-3064-30 ",.02)
 ;;00074-3064-30
 ;;9002226.02101,"1197,00074-3064-90 ",.01)
 ;;00074-3064-90
 ;;9002226.02101,"1197,00074-3064-90 ",.02)
 ;;00074-3064-90
 ;;9002226.02101,"1197,00074-3069-30 ",.01)
 ;;00074-3069-30
 ;;9002226.02101,"1197,00074-3069-30 ",.02)
 ;;00074-3069-30
 ;;9002226.02101,"1197,00074-3069-90 ",.01)
 ;;00074-3069-90
 ;;9002226.02101,"1197,00074-3069-90 ",.02)
 ;;00074-3069-90
 ;;9002226.02101,"1197,00074-3287-13 ",.01)
 ;;00074-3287-13
 ;;9002226.02101,"1197,00074-3287-13 ",.02)
 ;;00074-3287-13
 ;;9002226.02101,"1197,00074-3288-13 ",.01)
 ;;00074-3288-13
 ;;9002226.02101,"1197,00074-3288-13 ",.02)
 ;;00074-3288-13
 ;;9002226.02101,"1197,00074-3289-13 ",.01)
 ;;00074-3289-13
 ;;9002226.02101,"1197,00074-3289-13 ",.02)
 ;;00074-3289-13
 ;;9002226.02101,"1197,00074-3290-13 ",.01)
 ;;00074-3290-13
 ;;9002226.02101,"1197,00074-3290-13 ",.02)
 ;;00074-3290-13
 ;;9002226.02101,"1197,00078-0364-05 ",.01)
 ;;00078-0364-05
 ;;9002226.02101,"1197,00078-0364-05 ",.02)
 ;;00078-0364-05
 ;;9002226.02101,"1197,00078-0379-05 ",.01)
 ;;00078-0379-05
 ;;9002226.02101,"1197,00078-0379-05 ",.02)
 ;;00078-0379-05
 ;;9002226.02101,"1197,00078-0384-05 ",.01)
 ;;00078-0384-05
 ;;9002226.02101,"1197,00078-0384-05 ",.02)
 ;;00078-0384-05