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

BGP31T10.m

Go to the documentation of this file.
BGP31T10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"1737,55289-0328-12 ",.01)
 ;;55289-0328-12
 ;;9002226.02101,"1737,55289-0328-12 ",.02)
 ;;55289-0328-12
 ;;9002226.02101,"1737,55289-0328-15 ",.01)
 ;;55289-0328-15
 ;;9002226.02101,"1737,55289-0328-15 ",.02)
 ;;55289-0328-15
 ;;9002226.02101,"1737,55289-0328-20 ",.01)
 ;;55289-0328-20
 ;;9002226.02101,"1737,55289-0328-20 ",.02)
 ;;55289-0328-20
 ;;9002226.02101,"1737,55289-0328-30 ",.01)
 ;;55289-0328-30
 ;;9002226.02101,"1737,55289-0328-30 ",.02)
 ;;55289-0328-30
 ;;9002226.02101,"1737,55289-0469-10 ",.01)
 ;;55289-0469-10
 ;;9002226.02101,"1737,55289-0469-10 ",.02)
 ;;55289-0469-10
 ;;9002226.02101,"1737,55289-0469-14 ",.01)
 ;;55289-0469-14
 ;;9002226.02101,"1737,55289-0469-14 ",.02)
 ;;55289-0469-14
 ;;9002226.02101,"1737,55289-0469-15 ",.01)
 ;;55289-0469-15
 ;;9002226.02101,"1737,55289-0469-15 ",.02)
 ;;55289-0469-15
 ;;9002226.02101,"1737,55289-0469-20 ",.01)
 ;;55289-0469-20
 ;;9002226.02101,"1737,55289-0469-20 ",.02)
 ;;55289-0469-20
 ;;9002226.02101,"1737,55289-0469-30 ",.01)
 ;;55289-0469-30
 ;;9002226.02101,"1737,55289-0469-30 ",.02)
 ;;55289-0469-30
 ;;9002226.02101,"1737,55289-0663-01 ",.01)
 ;;55289-0663-01
 ;;9002226.02101,"1737,55289-0663-01 ",.02)
 ;;55289-0663-01
 ;;9002226.02101,"1737,55289-0663-20 ",.01)
 ;;55289-0663-20
 ;;9002226.02101,"1737,55289-0663-20 ",.02)
 ;;55289-0663-20
 ;;9002226.02101,"1737,55289-0663-30 ",.01)
 ;;55289-0663-30
 ;;9002226.02101,"1737,55289-0663-30 ",.02)
 ;;55289-0663-30
 ;;9002226.02101,"1737,55289-0889-15 ",.01)
 ;;55289-0889-15
 ;;9002226.02101,"1737,55289-0889-15 ",.02)
 ;;55289-0889-15
 ;;9002226.02101,"1737,55289-0889-20 ",.01)
 ;;55289-0889-20
 ;;9002226.02101,"1737,55289-0889-20 ",.02)
 ;;55289-0889-20
 ;;9002226.02101,"1737,55289-0985-08 ",.01)
 ;;55289-0985-08
 ;;9002226.02101,"1737,55289-0985-08 ",.02)
 ;;55289-0985-08
 ;;9002226.02101,"1737,55289-0985-15 ",.01)
 ;;55289-0985-15
 ;;9002226.02101,"1737,55289-0985-15 ",.02)
 ;;55289-0985-15
 ;;9002226.02101,"1737,55289-0985-20 ",.01)
 ;;55289-0985-20
 ;;9002226.02101,"1737,55289-0985-20 ",.02)
 ;;55289-0985-20
 ;;9002226.02101,"1737,55289-0985-30 ",.01)
 ;;55289-0985-30
 ;;9002226.02101,"1737,55289-0985-30 ",.02)
 ;;55289-0985-30
 ;;9002226.02101,"1737,55289-0985-40 ",.01)
 ;;55289-0985-40
 ;;9002226.02101,"1737,55289-0985-40 ",.02)
 ;;55289-0985-40
 ;;9002226.02101,"1737,55390-0299-01 ",.01)
 ;;55390-0299-01
 ;;9002226.02101,"1737,55390-0299-01 ",.02)
 ;;55390-0299-01
 ;;9002226.02101,"1737,55390-0480-01 ",.01)
 ;;55390-0480-01
 ;;9002226.02101,"1737,55390-0480-01 ",.02)
 ;;55390-0480-01
 ;;9002226.02101,"1737,55390-0481-01 ",.01)
 ;;55390-0481-01
 ;;9002226.02101,"1737,55390-0481-01 ",.02)
 ;;55390-0481-01
 ;;9002226.02101,"1737,55390-0481-02 ",.01)
 ;;55390-0481-02
 ;;9002226.02101,"1737,55390-0481-02 ",.02)
 ;;55390-0481-02
 ;;9002226.02101,"1737,55390-0481-10 ",.01)
 ;;55390-0481-10
 ;;9002226.02101,"1737,55390-0481-10 ",.02)
 ;;55390-0481-10
 ;;9002226.02101,"1737,55887-0171-01 ",.01)
 ;;55887-0171-01
 ;;9002226.02101,"1737,55887-0171-01 ",.02)
 ;;55887-0171-01
 ;;9002226.02101,"1737,55887-0171-30 ",.01)
 ;;55887-0171-30
 ;;9002226.02101,"1737,55887-0171-30 ",.02)
 ;;55887-0171-30
 ;;9002226.02101,"1737,55887-0171-60 ",.01)
 ;;55887-0171-60
 ;;9002226.02101,"1737,55887-0171-60 ",.02)
 ;;55887-0171-60
 ;;9002226.02101,"1737,55887-0171-83 ",.01)
 ;;55887-0171-83
 ;;9002226.02101,"1737,55887-0171-83 ",.02)
 ;;55887-0171-83
 ;;9002226.02101,"1737,55887-0171-84 ",.01)
 ;;55887-0171-84
 ;;9002226.02101,"1737,55887-0171-84 ",.02)
 ;;55887-0171-84
 ;;9002226.02101,"1737,55887-0171-86 ",.01)
 ;;55887-0171-86
 ;;9002226.02101,"1737,55887-0171-86 ",.02)
 ;;55887-0171-86
 ;;9002226.02101,"1737,55887-0171-90 ",.01)
 ;;55887-0171-90
 ;;9002226.02101,"1737,55887-0171-90 ",.02)
 ;;55887-0171-90
 ;;9002226.02101,"1737,55887-0862-10 ",.01)
 ;;55887-0862-10
 ;;9002226.02101,"1737,55887-0862-10 ",.02)
 ;;55887-0862-10
 ;;9002226.02101,"1737,55887-0862-14 ",.01)
 ;;55887-0862-14
 ;;9002226.02101,"1737,55887-0862-14 ",.02)
 ;;55887-0862-14
 ;;9002226.02101,"1737,55887-0862-20 ",.01)
 ;;55887-0862-20
 ;;9002226.02101,"1737,55887-0862-20 ",.02)
 ;;55887-0862-20
 ;;9002226.02101,"1737,55887-0862-30 ",.01)
 ;;55887-0862-30
 ;;9002226.02101,"1737,55887-0862-30 ",.02)
 ;;55887-0862-30
 ;;9002226.02101,"1737,55887-0880-10 ",.01)
 ;;55887-0880-10
 ;;9002226.02101,"1737,55887-0880-10 ",.02)
 ;;55887-0880-10
 ;;9002226.02101,"1737,55887-0880-20 ",.01)
 ;;55887-0880-20
 ;;9002226.02101,"1737,55887-0880-20 ",.02)
 ;;55887-0880-20
 ;;9002226.02101,"1737,55887-0880-28 ",.01)
 ;;55887-0880-28
 ;;9002226.02101,"1737,55887-0880-28 ",.02)
 ;;55887-0880-28
 ;;9002226.02101,"1737,55887-0880-30 ",.01)
 ;;55887-0880-30
 ;;9002226.02101,"1737,55887-0880-30 ",.02)
 ;;55887-0880-30
 ;;9002226.02101,"1737,55887-0880-60 ",.01)
 ;;55887-0880-60
 ;;9002226.02101,"1737,55887-0880-60 ",.02)
 ;;55887-0880-60
 ;;9002226.02101,"1737,55887-0880-82 ",.01)
 ;;55887-0880-82
 ;;9002226.02101,"1737,55887-0880-82 ",.02)
 ;;55887-0880-82
 ;;9002226.02101,"1737,55887-0880-90 ",.01)
 ;;55887-0880-90
 ;;9002226.02101,"1737,55887-0880-90 ",.02)
 ;;55887-0880-90
 ;;9002226.02101,"1737,55887-0917-20 ",.01)
 ;;55887-0917-20
 ;;9002226.02101,"1737,55887-0917-20 ",.02)
 ;;55887-0917-20
 ;;9002226.02101,"1737,55887-0917-30 ",.01)
 ;;55887-0917-30
 ;;9002226.02101,"1737,55887-0917-30 ",.02)
 ;;55887-0917-30
 ;;9002226.02101,"1737,55887-0917-82 ",.01)
 ;;55887-0917-82
 ;;9002226.02101,"1737,55887-0917-82 ",.02)
 ;;55887-0917-82
 ;;9002226.02101,"1737,55887-0917-90 ",.01)
 ;;55887-0917-90
 ;;9002226.02101,"1737,55887-0917-90 ",.02)
 ;;55887-0917-90
 ;;9002226.02101,"1737,55887-0928-15 ",.01)
 ;;55887-0928-15
 ;;9002226.02101,"1737,55887-0928-15 ",.02)
 ;;55887-0928-15
 ;;9002226.02101,"1737,55887-0928-20 ",.01)
 ;;55887-0928-20
 ;;9002226.02101,"1737,55887-0928-20 ",.02)
 ;;55887-0928-20
 ;;9002226.02101,"1737,55887-0928-21 ",.01)
 ;;55887-0928-21
 ;;9002226.02101,"1737,55887-0928-21 ",.02)
 ;;55887-0928-21
 ;;9002226.02101,"1737,55887-0928-30 ",.01)
 ;;55887-0928-30
 ;;9002226.02101,"1737,55887-0928-30 ",.02)
 ;;55887-0928-30
 ;;9002226.02101,"1737,57664-0467-08 ",.01)
 ;;57664-0467-08
 ;;9002226.02101,"1737,57664-0467-08 ",.02)
 ;;57664-0467-08
 ;;9002226.02101,"1737,57664-0471-08 ",.01)
 ;;57664-0471-08
 ;;9002226.02101,"1737,57664-0471-08 ",.02)
 ;;57664-0471-08
 ;;9002226.02101,"1737,57866-0180-01 ",.01)
 ;;57866-0180-01
 ;;9002226.02101,"1737,57866-0180-01 ",.02)
 ;;57866-0180-01
 ;;9002226.02101,"1737,57866-0180-03 ",.01)
 ;;57866-0180-03
 ;;9002226.02101,"1737,57866-0180-03 ",.02)
 ;;57866-0180-03
 ;;9002226.02101,"1737,57866-0243-01 ",.01)
 ;;57866-0243-01
 ;;9002226.02101,"1737,57866-0243-01 ",.02)
 ;;57866-0243-01
 ;;9002226.02101,"1737,57866-3981-01 ",.01)
 ;;57866-3981-01
 ;;9002226.02101,"1737,57866-3981-01 ",.02)
 ;;57866-3981-01
 ;;9002226.02101,"1737,57866-3981-02 ",.01)
 ;;57866-3981-02
 ;;9002226.02101,"1737,57866-3981-02 ",.02)
 ;;57866-3981-02
 ;;9002226.02101,"1737,57866-3981-03 ",.01)
 ;;57866-3981-03
 ;;9002226.02101,"1737,57866-3981-03 ",.02)
 ;;57866-3981-03
 ;;9002226.02101,"1737,57866-3981-05 ",.01)
 ;;57866-3981-05
 ;;9002226.02101,"1737,57866-3981-05 ",.02)
 ;;57866-3981-05
 ;;9002226.02101,"1737,57866-3981-06 ",.01)
 ;;57866-3981-06
 ;;9002226.02101,"1737,57866-3981-06 ",.02)
 ;;57866-3981-06
 ;;9002226.02101,"1737,57866-3981-07 ",.01)
 ;;57866-3981-07
 ;;9002226.02101,"1737,57866-3981-07 ",.02)
 ;;57866-3981-07
 ;;9002226.02101,"1737,57866-3981-08 ",.01)
 ;;57866-3981-08
 ;;9002226.02101,"1737,57866-3981-08 ",.02)
 ;;57866-3981-08
 ;;9002226.02101,"1737,57866-3982-01 ",.01)
 ;;57866-3982-01
 ;;9002226.02101,"1737,57866-3982-01 ",.02)
 ;;57866-3982-01
 ;;9002226.02101,"1737,57866-3982-03 ",.01)
 ;;57866-3982-03
 ;;9002226.02101,"1737,57866-3982-03 ",.02)
 ;;57866-3982-03
 ;;9002226.02101,"1737,57866-3982-05 ",.01)
 ;;57866-3982-05
 ;;9002226.02101,"1737,57866-3982-05 ",.02)
 ;;57866-3982-05
 ;;9002226.02101,"1737,57866-3982-06 ",.01)
 ;;57866-3982-06
 ;;9002226.02101,"1737,57866-3982-06 ",.02)
 ;;57866-3982-06
 ;;9002226.02101,"1737,57866-4939-02 ",.01)
 ;;57866-4939-02
 ;;9002226.02101,"1737,57866-4939-02 ",.02)
 ;;57866-4939-02
 ;;9002226.02101,"1737,57866-7079-01 ",.01)
 ;;57866-7079-01
 ;;9002226.02101,"1737,57866-7079-01 ",.02)
 ;;57866-7079-01
 ;;9002226.02101,"1737,57866-7079-02 ",.01)
 ;;57866-7079-02
 ;;9002226.02101,"1737,57866-7079-02 ",.02)
 ;;57866-7079-02
 ;;9002226.02101,"1737,57866-7079-04 ",.01)
 ;;57866-7079-04
 ;;9002226.02101,"1737,57866-7079-04 ",.02)
 ;;57866-7079-04
 ;;9002226.02101,"1737,57866-7079-05 ",.01)
 ;;57866-7079-05
 ;;9002226.02101,"1737,57866-7079-05 ",.02)
 ;;57866-7079-05
 ;;9002226.02101,"1737,57866-7080-01 ",.01)
 ;;57866-7080-01
 ;;9002226.02101,"1737,57866-7080-01 ",.02)
 ;;57866-7080-01
 ;;9002226.02101,"1737,57866-7382-01 ",.01)
 ;;57866-7382-01
 ;;9002226.02101,"1737,57866-7382-01 ",.02)
 ;;57866-7382-01
 ;;9002226.02101,"1737,57866-7382-03 ",.01)
 ;;57866-7382-03
 ;;9002226.02101,"1737,57866-7382-03 ",.02)
 ;;57866-7382-03
 ;;9002226.02101,"1737,57866-7382-04 ",.01)
 ;;57866-7382-04
 ;;9002226.02101,"1737,57866-7382-04 ",.02)
 ;;57866-7382-04
 ;;9002226.02101,"1737,57866-7382-05 ",.01)
 ;;57866-7382-05
 ;;9002226.02101,"1737,57866-7382-05 ",.02)
 ;;57866-7382-05
 ;;9002226.02101,"1737,57866-9321-01 ",.01)
 ;;57866-9321-01
 ;;9002226.02101,"1737,57866-9321-01 ",.02)
 ;;57866-9321-01
 ;;9002226.02101,"1737,57866-9321-02 ",.01)
 ;;57866-9321-02
 ;;9002226.02101,"1737,57866-9321-02 ",.02)
 ;;57866-9321-02
 ;;9002226.02101,"1737,58016-0235-00 ",.01)
 ;;58016-0235-00
 ;;9002226.02101,"1737,58016-0235-00 ",.02)
 ;;58016-0235-00
 ;;9002226.02101,"1737,58016-0235-08 ",.01)
 ;;58016-0235-08
 ;;9002226.02101,"1737,58016-0235-08 ",.02)
 ;;58016-0235-08
 ;;9002226.02101,"1737,58016-0235-20 ",.01)
 ;;58016-0235-20
 ;;9002226.02101,"1737,58016-0235-20 ",.02)
 ;;58016-0235-20
 ;;9002226.02101,"1737,58016-0235-30 ",.01)
 ;;58016-0235-30
 ;;9002226.02101,"1737,58016-0235-30 ",.02)
 ;;58016-0235-30
 ;;9002226.02101,"1737,58016-0235-60 ",.01)
 ;;58016-0235-60
 ;;9002226.02101,"1737,58016-0235-60 ",.02)
 ;;58016-0235-60
 ;;9002226.02101,"1737,58016-0235-75 ",.01)
 ;;58016-0235-75
 ;;9002226.02101,"1737,58016-0235-75 ",.02)
 ;;58016-0235-75
 ;;9002226.02101,"1737,58016-0236-00 ",.01)
 ;;58016-0236-00
 ;;9002226.02101,"1737,58016-0236-00 ",.02)
 ;;58016-0236-00
 ;;9002226.02101,"1737,58016-0236-14 ",.01)
 ;;58016-0236-14
 ;;9002226.02101,"1737,58016-0236-14 ",.02)
 ;;58016-0236-14
 ;;9002226.02101,"1737,58016-0236-20 ",.01)
 ;;58016-0236-20
 ;;9002226.02101,"1737,58016-0236-20 ",.02)
 ;;58016-0236-20
 ;;9002226.02101,"1737,58016-0236-21 ",.01)
 ;;58016-0236-21
 ;;9002226.02101,"1737,58016-0236-21 ",.02)
 ;;58016-0236-21
 ;;9002226.02101,"1737,58016-0236-30 ",.01)
 ;;58016-0236-30
 ;;9002226.02101,"1737,58016-0236-30 ",.02)
 ;;58016-0236-30
 ;;9002226.02101,"1737,58016-0236-40 ",.01)
 ;;58016-0236-40
 ;;9002226.02101,"1737,58016-0236-40 ",.02)
 ;;58016-0236-40
 ;;9002226.02101,"1737,58016-0236-60 ",.01)
 ;;58016-0236-60
 ;;9002226.02101,"1737,58016-0236-60 ",.02)
 ;;58016-0236-60
 ;;9002226.02101,"1737,58016-0237-00 ",.01)
 ;;58016-0237-00
 ;;9002226.02101,"1737,58016-0237-00 ",.02)
 ;;58016-0237-00
 ;;9002226.02101,"1737,58016-0237-07 ",.01)
 ;;58016-0237-07
 ;;9002226.02101,"1737,58016-0237-07 ",.02)
 ;;58016-0237-07
 ;;9002226.02101,"1737,58016-0237-10 ",.01)
 ;;58016-0237-10
 ;;9002226.02101,"1737,58016-0237-10 ",.02)
 ;;58016-0237-10
 ;;9002226.02101,"1737,58016-0237-12 ",.01)
 ;;58016-0237-12
 ;;9002226.02101,"1737,58016-0237-12 ",.02)
 ;;58016-0237-12
 ;;9002226.02101,"1737,58016-0237-14 ",.01)
 ;;58016-0237-14
 ;;9002226.02101,"1737,58016-0237-14 ",.02)
 ;;58016-0237-14
 ;;9002226.02101,"1737,58016-0237-15 ",.01)
 ;;58016-0237-15
 ;;9002226.02101,"1737,58016-0237-15 ",.02)
 ;;58016-0237-15
 ;;9002226.02101,"1737,58016-0237-20 ",.01)
 ;;58016-0237-20
 ;;9002226.02101,"1737,58016-0237-20 ",.02)
 ;;58016-0237-20
 ;;9002226.02101,"1737,58016-0237-21 ",.01)
 ;;58016-0237-21
 ;;9002226.02101,"1737,58016-0237-21 ",.02)
 ;;58016-0237-21
 ;;9002226.02101,"1737,58016-0237-24 ",.01)
 ;;58016-0237-24
 ;;9002226.02101,"1737,58016-0237-24 ",.02)
 ;;58016-0237-24
 ;;9002226.02101,"1737,58016-0237-28 ",.01)
 ;;58016-0237-28
 ;;9002226.02101,"1737,58016-0237-28 ",.02)
 ;;58016-0237-28
 ;;9002226.02101,"1737,58016-0237-30 ",.01)
 ;;58016-0237-30
 ;;9002226.02101,"1737,58016-0237-30 ",.02)
 ;;58016-0237-30
 ;;9002226.02101,"1737,58016-0237-40 ",.01)
 ;;58016-0237-40
 ;;9002226.02101,"1737,58016-0237-40 ",.02)
 ;;58016-0237-40
 ;;9002226.02101,"1737,58016-0237-60 ",.01)
 ;;58016-0237-60
 ;;9002226.02101,"1737,58016-0237-60 ",.02)
 ;;58016-0237-60
 ;;9002226.02101,"1737,58016-0237-90 ",.01)
 ;;58016-0237-90
 ;;9002226.02101,"1737,58016-0237-90 ",.02)
 ;;58016-0237-90
 ;;9002226.02101,"1737,58016-0247-00 ",.01)
 ;;58016-0247-00
 ;;9002226.02101,"1737,58016-0247-00 ",.02)
 ;;58016-0247-00
 ;;9002226.02101,"1737,58016-0247-02 ",.01)
 ;;58016-0247-02
 ;;9002226.02101,"1737,58016-0247-02 ",.02)
 ;;58016-0247-02
 ;;9002226.02101,"1737,58016-0247-03 ",.01)
 ;;58016-0247-03
 ;;9002226.02101,"1737,58016-0247-03 ",.02)
 ;;58016-0247-03
 ;;9002226.02101,"1737,58016-0247-10 ",.01)
 ;;58016-0247-10
 ;;9002226.02101,"1737,58016-0247-10 ",.02)
 ;;58016-0247-10
 ;;9002226.02101,"1737,58016-0247-12 ",.01)
 ;;58016-0247-12