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

BGP73F48.m

Go to the documentation of this file.
BGP73F48 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"868,52959-0011-60 ",.02)
 ;;52959-0011-60
 ;;9002226.02101,"868,52959-0020-00 ",.01)
 ;;52959-0020-00
 ;;9002226.02101,"868,52959-0020-00 ",.02)
 ;;52959-0020-00
 ;;9002226.02101,"868,52959-0020-05 ",.01)
 ;;52959-0020-05
 ;;9002226.02101,"868,52959-0020-05 ",.02)
 ;;52959-0020-05
 ;;9002226.02101,"868,52959-0020-06 ",.01)
 ;;52959-0020-06
 ;;9002226.02101,"868,52959-0020-06 ",.02)
 ;;52959-0020-06
 ;;9002226.02101,"868,52959-0020-18 ",.01)
 ;;52959-0020-18
 ;;9002226.02101,"868,52959-0020-18 ",.02)
 ;;52959-0020-18
 ;;9002226.02101,"868,52959-0020-20 ",.01)
 ;;52959-0020-20
 ;;9002226.02101,"868,52959-0020-20 ",.02)
 ;;52959-0020-20
 ;;9002226.02101,"868,52959-0020-21 ",.01)
 ;;52959-0020-21
 ;;9002226.02101,"868,52959-0020-21 ",.02)
 ;;52959-0020-21
 ;;9002226.02101,"868,52959-0020-24 ",.01)
 ;;52959-0020-24
 ;;9002226.02101,"868,52959-0020-24 ",.02)
 ;;52959-0020-24
 ;;9002226.02101,"868,52959-0020-28 ",.01)
 ;;52959-0020-28
 ;;9002226.02101,"868,52959-0020-28 ",.02)
 ;;52959-0020-28
 ;;9002226.02101,"868,52959-0020-30 ",.01)
 ;;52959-0020-30
 ;;9002226.02101,"868,52959-0020-30 ",.02)
 ;;52959-0020-30
 ;;9002226.02101,"868,52959-0020-40 ",.01)
 ;;52959-0020-40
 ;;9002226.02101,"868,52959-0020-40 ",.02)
 ;;52959-0020-40
 ;;9002226.02101,"868,52959-0020-42 ",.01)
 ;;52959-0020-42
 ;;9002226.02101,"868,52959-0020-42 ",.02)
 ;;52959-0020-42
 ;;9002226.02101,"868,52959-0020-60 ",.01)
 ;;52959-0020-60
 ;;9002226.02101,"868,52959-0020-60 ",.02)
 ;;52959-0020-60
 ;;9002226.02101,"868,52959-0021-01 ",.01)
 ;;52959-0021-01
 ;;9002226.02101,"868,52959-0021-01 ",.02)
 ;;52959-0021-01
 ;;9002226.02101,"868,52959-0021-04 ",.01)
 ;;52959-0021-04
 ;;9002226.02101,"868,52959-0021-04 ",.02)
 ;;52959-0021-04
 ;;9002226.02101,"868,52959-0021-14 ",.01)
 ;;52959-0021-14
 ;;9002226.02101,"868,52959-0021-14 ",.02)
 ;;52959-0021-14
 ;;9002226.02101,"868,52959-0021-20 ",.01)
 ;;52959-0021-20
 ;;9002226.02101,"868,52959-0021-20 ",.02)
 ;;52959-0021-20
 ;;9002226.02101,"868,52959-0021-21 ",.01)
 ;;52959-0021-21
 ;;9002226.02101,"868,52959-0021-21 ",.02)
 ;;52959-0021-21
 ;;9002226.02101,"868,52959-0021-30 ",.01)
 ;;52959-0021-30
 ;;9002226.02101,"868,52959-0021-30 ",.02)
 ;;52959-0021-30
 ;;9002226.02101,"868,52959-0029-20 ",.01)
 ;;52959-0029-20
 ;;9002226.02101,"868,52959-0029-20 ",.02)
 ;;52959-0029-20
 ;;9002226.02101,"868,52959-0029-24 ",.01)
 ;;52959-0029-24
 ;;9002226.02101,"868,52959-0029-24 ",.02)
 ;;52959-0029-24
 ;;9002226.02101,"868,52959-0030-01 ",.01)
 ;;52959-0030-01
 ;;9002226.02101,"868,52959-0030-01 ",.02)
 ;;52959-0030-01
 ;;9002226.02101,"868,52959-0030-08 ",.01)
 ;;52959-0030-08
 ;;9002226.02101,"868,52959-0030-08 ",.02)
 ;;52959-0030-08
 ;;9002226.02101,"868,52959-0030-12 ",.01)
 ;;52959-0030-12
 ;;9002226.02101,"868,52959-0030-12 ",.02)
 ;;52959-0030-12
 ;;9002226.02101,"868,52959-0030-20 ",.01)
 ;;52959-0030-20
 ;;9002226.02101,"868,52959-0030-20 ",.02)
 ;;52959-0030-20
 ;;9002226.02101,"868,52959-0030-24 ",.01)
 ;;52959-0030-24
 ;;9002226.02101,"868,52959-0030-24 ",.02)
 ;;52959-0030-24
 ;;9002226.02101,"868,52959-0030-28 ",.01)
 ;;52959-0030-28
 ;;9002226.02101,"868,52959-0030-28 ",.02)
 ;;52959-0030-28
 ;;9002226.02101,"868,52959-0030-30 ",.01)
 ;;52959-0030-30
 ;;9002226.02101,"868,52959-0030-30 ",.02)
 ;;52959-0030-30
 ;;9002226.02101,"868,52959-0030-40 ",.01)
 ;;52959-0030-40
 ;;9002226.02101,"868,52959-0030-40 ",.02)
 ;;52959-0030-40
 ;;9002226.02101,"868,52959-0030-56 ",.01)
 ;;52959-0030-56
 ;;9002226.02101,"868,52959-0030-56 ",.02)
 ;;52959-0030-56
 ;;9002226.02101,"868,52959-0031-00 ",.01)
 ;;52959-0031-00
 ;;9002226.02101,"868,52959-0031-00 ",.02)
 ;;52959-0031-00
 ;;9002226.02101,"868,52959-0031-02 ",.01)
 ;;52959-0031-02
 ;;9002226.02101,"868,52959-0031-02 ",.02)
 ;;52959-0031-02
 ;;9002226.02101,"868,52959-0031-04 ",.01)
 ;;52959-0031-04
 ;;9002226.02101,"868,52959-0031-04 ",.02)
 ;;52959-0031-04
 ;;9002226.02101,"868,52959-0031-06 ",.01)
 ;;52959-0031-06
 ;;9002226.02101,"868,52959-0031-06 ",.02)
 ;;52959-0031-06
 ;;9002226.02101,"868,52959-0031-08 ",.01)
 ;;52959-0031-08
 ;;9002226.02101,"868,52959-0031-08 ",.02)
 ;;52959-0031-08
 ;;9002226.02101,"868,52959-0031-10 ",.01)
 ;;52959-0031-10
 ;;9002226.02101,"868,52959-0031-10 ",.02)
 ;;52959-0031-10
 ;;9002226.02101,"868,52959-0031-12 ",.01)
 ;;52959-0031-12
 ;;9002226.02101,"868,52959-0031-12 ",.02)
 ;;52959-0031-12
 ;;9002226.02101,"868,52959-0031-14 ",.01)
 ;;52959-0031-14
 ;;9002226.02101,"868,52959-0031-14 ",.02)
 ;;52959-0031-14
 ;;9002226.02101,"868,52959-0031-15 ",.01)
 ;;52959-0031-15
 ;;9002226.02101,"868,52959-0031-15 ",.02)
 ;;52959-0031-15
 ;;9002226.02101,"868,52959-0031-20 ",.01)
 ;;52959-0031-20
 ;;9002226.02101,"868,52959-0031-20 ",.02)
 ;;52959-0031-20
 ;;9002226.02101,"868,52959-0031-21 ",.01)
 ;;52959-0031-21
 ;;9002226.02101,"868,52959-0031-21 ",.02)
 ;;52959-0031-21
 ;;9002226.02101,"868,52959-0031-24 ",.01)
 ;;52959-0031-24
 ;;9002226.02101,"868,52959-0031-24 ",.02)
 ;;52959-0031-24
 ;;9002226.02101,"868,52959-0031-28 ",.01)
 ;;52959-0031-28
 ;;9002226.02101,"868,52959-0031-28 ",.02)
 ;;52959-0031-28
 ;;9002226.02101,"868,52959-0031-30 ",.01)
 ;;52959-0031-30
 ;;9002226.02101,"868,52959-0031-30 ",.02)
 ;;52959-0031-30
 ;;9002226.02101,"868,52959-0031-40 ",.01)
 ;;52959-0031-40
 ;;9002226.02101,"868,52959-0031-40 ",.02)
 ;;52959-0031-40
 ;;9002226.02101,"868,52959-0031-56 ",.01)
 ;;52959-0031-56
 ;;9002226.02101,"868,52959-0031-56 ",.02)
 ;;52959-0031-56
 ;;9002226.02101,"868,52959-0031-60 ",.01)
 ;;52959-0031-60
 ;;9002226.02101,"868,52959-0031-60 ",.02)
 ;;52959-0031-60
 ;;9002226.02101,"868,52959-0036-06 ",.01)
 ;;52959-0036-06
 ;;9002226.02101,"868,52959-0036-06 ",.02)
 ;;52959-0036-06
 ;;9002226.02101,"868,52959-0036-10 ",.01)
 ;;52959-0036-10
 ;;9002226.02101,"868,52959-0036-10 ",.02)
 ;;52959-0036-10
 ;;9002226.02101,"868,52959-0036-14 ",.01)
 ;;52959-0036-14
 ;;9002226.02101,"868,52959-0036-14 ",.02)
 ;;52959-0036-14
 ;;9002226.02101,"868,52959-0036-15 ",.01)
 ;;52959-0036-15
 ;;9002226.02101,"868,52959-0036-15 ",.02)
 ;;52959-0036-15
 ;;9002226.02101,"868,52959-0036-20 ",.01)
 ;;52959-0036-20
 ;;9002226.02101,"868,52959-0036-20 ",.02)
 ;;52959-0036-20
 ;;9002226.02101,"868,52959-0036-28 ",.01)
 ;;52959-0036-28
 ;;9002226.02101,"868,52959-0036-28 ",.02)
 ;;52959-0036-28
 ;;9002226.02101,"868,52959-0036-30 ",.01)
 ;;52959-0036-30
 ;;9002226.02101,"868,52959-0036-30 ",.02)
 ;;52959-0036-30
 ;;9002226.02101,"868,52959-0037-14 ",.01)
 ;;52959-0037-14
 ;;9002226.02101,"868,52959-0037-14 ",.02)
 ;;52959-0037-14
 ;;9002226.02101,"868,52959-0037-20 ",.01)
 ;;52959-0037-20
 ;;9002226.02101,"868,52959-0037-20 ",.02)
 ;;52959-0037-20
 ;;9002226.02101,"868,52959-0046-10 ",.01)
 ;;52959-0046-10
 ;;9002226.02101,"868,52959-0046-10 ",.02)
 ;;52959-0046-10
 ;;9002226.02101,"868,52959-0046-14 ",.01)
 ;;52959-0046-14
 ;;9002226.02101,"868,52959-0046-14 ",.02)
 ;;52959-0046-14
 ;;9002226.02101,"868,52959-0046-20 ",.01)
 ;;52959-0046-20
 ;;9002226.02101,"868,52959-0046-20 ",.02)
 ;;52959-0046-20
 ;;9002226.02101,"868,52959-0048-20 ",.01)
 ;;52959-0048-20
 ;;9002226.02101,"868,52959-0048-20 ",.02)
 ;;52959-0048-20
 ;;9002226.02101,"868,52959-0048-28 ",.01)
 ;;52959-0048-28
 ;;9002226.02101,"868,52959-0048-28 ",.02)
 ;;52959-0048-28
 ;;9002226.02101,"868,52959-0048-30 ",.01)
 ;;52959-0048-30
 ;;9002226.02101,"868,52959-0048-30 ",.02)
 ;;52959-0048-30
 ;;9002226.02101,"868,52959-0048-40 ",.01)
 ;;52959-0048-40
 ;;9002226.02101,"868,52959-0048-40 ",.02)
 ;;52959-0048-40
 ;;9002226.02101,"868,52959-0048-41 ",.01)
 ;;52959-0048-41
 ;;9002226.02101,"868,52959-0048-41 ",.02)
 ;;52959-0048-41
 ;;9002226.02101,"868,52959-0049-20 ",.01)
 ;;52959-0049-20
 ;;9002226.02101,"868,52959-0049-20 ",.02)
 ;;52959-0049-20
 ;;9002226.02101,"868,52959-0049-21 ",.01)
 ;;52959-0049-21
 ;;9002226.02101,"868,52959-0049-21 ",.02)
 ;;52959-0049-21
 ;;9002226.02101,"868,52959-0049-28 ",.01)
 ;;52959-0049-28
 ;;9002226.02101,"868,52959-0049-28 ",.02)
 ;;52959-0049-28
 ;;9002226.02101,"868,52959-0049-30 ",.01)
 ;;52959-0049-30
 ;;9002226.02101,"868,52959-0049-30 ",.02)
 ;;52959-0049-30
 ;;9002226.02101,"868,52959-0049-40 ",.01)
 ;;52959-0049-40
 ;;9002226.02101,"868,52959-0049-40 ",.02)
 ;;52959-0049-40
 ;;9002226.02101,"868,52959-0055-00 ",.01)
 ;;52959-0055-00
 ;;9002226.02101,"868,52959-0055-00 ",.02)
 ;;52959-0055-00
 ;;9002226.02101,"868,52959-0055-02 ",.01)
 ;;52959-0055-02
 ;;9002226.02101,"868,52959-0055-02 ",.02)
 ;;52959-0055-02
 ;;9002226.02101,"868,52959-0055-06 ",.01)
 ;;52959-0055-06
 ;;9002226.02101,"868,52959-0055-06 ",.02)
 ;;52959-0055-06
 ;;9002226.02101,"868,52959-0055-07 ",.01)
 ;;52959-0055-07
 ;;9002226.02101,"868,52959-0055-07 ",.02)
 ;;52959-0055-07
 ;;9002226.02101,"868,52959-0055-10 ",.01)
 ;;52959-0055-10
 ;;9002226.02101,"868,52959-0055-10 ",.02)
 ;;52959-0055-10
 ;;9002226.02101,"868,52959-0055-12 ",.01)
 ;;52959-0055-12
 ;;9002226.02101,"868,52959-0055-12 ",.02)
 ;;52959-0055-12
 ;;9002226.02101,"868,52959-0055-14 ",.01)
 ;;52959-0055-14
 ;;9002226.02101,"868,52959-0055-14 ",.02)
 ;;52959-0055-14
 ;;9002226.02101,"868,52959-0055-15 ",.01)
 ;;52959-0055-15
 ;;9002226.02101,"868,52959-0055-15 ",.02)
 ;;52959-0055-15
 ;;9002226.02101,"868,52959-0055-20 ",.01)
 ;;52959-0055-20
 ;;9002226.02101,"868,52959-0055-20 ",.02)
 ;;52959-0055-20
 ;;9002226.02101,"868,52959-0055-28 ",.01)
 ;;52959-0055-28
 ;;9002226.02101,"868,52959-0055-28 ",.02)
 ;;52959-0055-28
 ;;9002226.02101,"868,52959-0055-30 ",.01)
 ;;52959-0055-30
 ;;9002226.02101,"868,52959-0055-30 ",.02)
 ;;52959-0055-30
 ;;9002226.02101,"868,52959-0055-90 ",.01)
 ;;52959-0055-90
 ;;9002226.02101,"868,52959-0055-90 ",.02)
 ;;52959-0055-90
 ;;9002226.02101,"868,52959-0060-20 ",.01)
 ;;52959-0060-20
 ;;9002226.02101,"868,52959-0060-20 ",.02)
 ;;52959-0060-20
 ;;9002226.02101,"868,52959-0060-28 ",.01)
 ;;52959-0060-28
 ;;9002226.02101,"868,52959-0060-28 ",.02)
 ;;52959-0060-28
 ;;9002226.02101,"868,52959-0060-30 ",.01)
 ;;52959-0060-30
 ;;9002226.02101,"868,52959-0060-30 ",.02)
 ;;52959-0060-30
 ;;9002226.02101,"868,52959-0060-40 ",.01)
 ;;52959-0060-40
 ;;9002226.02101,"868,52959-0060-40 ",.02)
 ;;52959-0060-40
 ;;9002226.02101,"868,52959-0060-56 ",.01)
 ;;52959-0060-56
 ;;9002226.02101,"868,52959-0060-56 ",.02)
 ;;52959-0060-56
 ;;9002226.02101,"868,52959-0061-15 ",.01)
 ;;52959-0061-15
 ;;9002226.02101,"868,52959-0061-15 ",.02)
 ;;52959-0061-15
 ;;9002226.02101,"868,52959-0061-18 ",.01)
 ;;52959-0061-18
 ;;9002226.02101,"868,52959-0061-18 ",.02)
 ;;52959-0061-18
 ;;9002226.02101,"868,52959-0061-20 ",.01)
 ;;52959-0061-20
 ;;9002226.02101,"868,52959-0061-20 ",.02)
 ;;52959-0061-20
 ;;9002226.02101,"868,52959-0061-21 ",.01)
 ;;52959-0061-21
 ;;9002226.02101,"868,52959-0061-21 ",.02)
 ;;52959-0061-21
 ;;9002226.02101,"868,52959-0061-24 ",.01)
 ;;52959-0061-24
 ;;9002226.02101,"868,52959-0061-24 ",.02)
 ;;52959-0061-24
 ;;9002226.02101,"868,52959-0061-28 ",.01)
 ;;52959-0061-28
 ;;9002226.02101,"868,52959-0061-28 ",.02)
 ;;52959-0061-28
 ;;9002226.02101,"868,52959-0061-30 ",.01)
 ;;52959-0061-30
 ;;9002226.02101,"868,52959-0061-30 ",.02)
 ;;52959-0061-30
 ;;9002226.02101,"868,52959-0061-40 ",.01)
 ;;52959-0061-40
 ;;9002226.02101,"868,52959-0061-40 ",.02)
 ;;52959-0061-40
 ;;9002226.02101,"868,52959-0061-42 ",.01)
 ;;52959-0061-42
 ;;9002226.02101,"868,52959-0061-42 ",.02)
 ;;52959-0061-42
 ;;9002226.02101,"868,52959-0062-10 ",.01)
 ;;52959-0062-10
 ;;9002226.02101,"868,52959-0062-10 ",.02)
 ;;52959-0062-10
 ;;9002226.02101,"868,52959-0062-20 ",.01)
 ;;52959-0062-20