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

BGP8EXYB.m

Go to the documentation of this file.
BGP8EXYB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 2007
 ;
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,"619,00409-2288-31 ",.02)
 ;;00409-2288-31
 ;;9002226.02101,"619,00409-3793-01 ",.01)
 ;;00409-3793-01
 ;;9002226.02101,"619,00409-3793-01 ",.02)
 ;;00409-3793-01
 ;;9002226.02101,"619,00409-3793-49 ",.01)
 ;;00409-3793-49
 ;;9002226.02101,"619,00409-3793-49 ",.02)
 ;;00409-3793-49
 ;;9002226.02101,"619,00409-3795-01 ",.01)
 ;;00409-3795-01
 ;;9002226.02101,"619,00409-3795-01 ",.02)
 ;;00409-3795-01
 ;;9002226.02101,"619,00409-3795-49 ",.01)
 ;;00409-3795-49
 ;;9002226.02101,"619,00409-3795-49 ",.02)
 ;;00409-3795-49
 ;;9002226.02101,"619,00409-3795-61 ",.01)
 ;;00409-3795-61
 ;;9002226.02101,"619,00409-3795-61 ",.02)
 ;;00409-3795-61
 ;;9002226.02101,"619,00409-3796-01 ",.01)
 ;;00409-3796-01
 ;;9002226.02101,"619,00409-3796-01 ",.02)
 ;;00409-3796-01
 ;;9002226.02101,"619,00409-3796-49 ",.01)
 ;;00409-3796-49
 ;;9002226.02101,"619,00409-3796-49 ",.02)
 ;;00409-3796-49
 ;;9002226.02101,"619,00409-3796-61 ",.01)
 ;;00409-3796-61
 ;;9002226.02101,"619,00409-3796-61 ",.02)
 ;;00409-3796-61
 ;;9002226.02101,"619,10019-0021-09 ",.01)
 ;;10019-0021-09
 ;;9002226.02101,"619,10019-0021-09 ",.02)
 ;;10019-0021-09
 ;;9002226.02101,"619,10019-0022-09 ",.01)
 ;;10019-0022-09
 ;;9002226.02101,"619,10019-0022-09 ",.02)
 ;;10019-0022-09
 ;;9002226.02101,"619,10019-0022-32 ",.01)
 ;;10019-0022-32
 ;;9002226.02101,"619,10019-0022-32 ",.02)
 ;;10019-0022-32
 ;;9002226.02101,"619,10019-0029-02 ",.01)
 ;;10019-0029-02
 ;;9002226.02101,"619,10019-0029-02 ",.02)
 ;;10019-0029-02
 ;;9002226.02101,"619,10019-0030-03 ",.01)
 ;;10019-0030-03
 ;;9002226.02101,"619,10019-0030-03 ",.02)
 ;;10019-0030-03
 ;;9002226.02101,"619,10019-0030-04 ",.01)
 ;;10019-0030-04
 ;;9002226.02101,"619,10019-0030-04 ",.02)
 ;;10019-0030-04
 ;;9002226.02101,"619,12280-0456-10 ",.01)
 ;;12280-0456-10
 ;;9002226.02101,"619,12280-0456-10 ",.02)
 ;;12280-0456-10
 ;;9002226.02101,"619,50111-0608-01 ",.01)
 ;;50111-0608-01
 ;;9002226.02101,"619,50111-0608-01 ",.02)
 ;;50111-0608-01
 ;;9002226.02101,"619,52959-0224-08 ",.01)
 ;;52959-0224-08
 ;;9002226.02101,"619,52959-0224-08 ",.02)
 ;;52959-0224-08
 ;;9002226.02101,"619,52959-0224-10 ",.01)
 ;;52959-0224-10
 ;;9002226.02101,"619,52959-0224-10 ",.02)
 ;;52959-0224-10
 ;;9002226.02101,"619,52959-0224-12 ",.01)
 ;;52959-0224-12
 ;;9002226.02101,"619,52959-0224-12 ",.02)
 ;;52959-0224-12
 ;;9002226.02101,"619,52959-0224-14 ",.01)
 ;;52959-0224-14
 ;;9002226.02101,"619,52959-0224-14 ",.02)
 ;;52959-0224-14
 ;;9002226.02101,"619,52959-0224-15 ",.01)
 ;;52959-0224-15
 ;;9002226.02101,"619,52959-0224-15 ",.02)
 ;;52959-0224-15
 ;;9002226.02101,"619,52959-0224-20 ",.01)
 ;;52959-0224-20
 ;;9002226.02101,"619,52959-0224-20 ",.02)
 ;;52959-0224-20
 ;;9002226.02101,"619,52959-0224-30 ",.01)
 ;;52959-0224-30
 ;;9002226.02101,"619,52959-0224-30 ",.02)
 ;;52959-0224-30
 ;;9002226.02101,"619,52959-0224-40 ",.01)
 ;;52959-0224-40
 ;;9002226.02101,"619,52959-0224-40 ",.02)
 ;;52959-0224-40
 ;;9002226.02101,"619,52959-0224-60 ",.01)
 ;;52959-0224-60
 ;;9002226.02101,"619,52959-0224-60 ",.02)
 ;;52959-0224-60
 ;;9002226.02101,"619,52959-0512-08 ",.01)
 ;;52959-0512-08
 ;;9002226.02101,"619,52959-0512-08 ",.02)
 ;;52959-0512-08
 ;;9002226.02101,"619,52959-0512-10 ",.01)
 ;;52959-0512-10
 ;;9002226.02101,"619,52959-0512-10 ",.02)
 ;;52959-0512-10
 ;;9002226.02101,"619,52959-0512-12 ",.01)
 ;;52959-0512-12
 ;;9002226.02101,"619,52959-0512-12 ",.02)
 ;;52959-0512-12
 ;;9002226.02101,"619,52959-0512-14 ",.01)
 ;;52959-0512-14
 ;;9002226.02101,"619,52959-0512-14 ",.02)
 ;;52959-0512-14
 ;;9002226.02101,"619,52959-0512-15 ",.01)
 ;;52959-0512-15
 ;;9002226.02101,"619,52959-0512-15 ",.02)
 ;;52959-0512-15
 ;;9002226.02101,"619,52959-0512-20 ",.01)
 ;;52959-0512-20
 ;;9002226.02101,"619,52959-0512-20 ",.02)
 ;;52959-0512-20
 ;;9002226.02101,"619,52959-0512-30 ",.01)
 ;;52959-0512-30
 ;;9002226.02101,"619,52959-0512-30 ",.02)
 ;;52959-0512-30
 ;;9002226.02101,"619,52959-0512-40 ",.01)
 ;;52959-0512-40
 ;;9002226.02101,"619,52959-0512-40 ",.02)
 ;;52959-0512-40
 ;;9002226.02101,"619,52959-0512-60 ",.01)
 ;;52959-0512-60
 ;;9002226.02101,"619,52959-0512-60 ",.02)
 ;;52959-0512-60
 ;;9002226.02101,"619,54569-3539-01 ",.01)
 ;;54569-3539-01
 ;;9002226.02101,"619,54569-3539-01 ",.02)
 ;;54569-3539-01
 ;;9002226.02101,"619,54569-3539-02 ",.01)
 ;;54569-3539-02
 ;;9002226.02101,"619,54569-3539-02 ",.02)
 ;;54569-3539-02
 ;;9002226.02101,"619,54569-3539-03 ",.01)
 ;;54569-3539-03
 ;;9002226.02101,"619,54569-3539-03 ",.02)
 ;;54569-3539-03
 ;;9002226.02101,"619,54569-3539-07 ",.01)
 ;;54569-3539-07
 ;;9002226.02101,"619,54569-3539-07 ",.02)
 ;;54569-3539-07
 ;;9002226.02101,"619,54569-3736-01 ",.01)
 ;;54569-3736-01
 ;;9002226.02101,"619,54569-3736-01 ",.02)
 ;;54569-3736-01
 ;;9002226.02101,"619,54569-3822-00 ",.01)
 ;;54569-3822-00
 ;;9002226.02101,"619,54569-3822-00 ",.02)
 ;;54569-3822-00
 ;;9002226.02101,"619,54569-4494-00 ",.01)
 ;;54569-4494-00
 ;;9002226.02101,"619,54569-4494-00 ",.02)
 ;;54569-4494-00
 ;;9002226.02101,"619,54569-4494-01 ",.01)
 ;;54569-4494-01
 ;;9002226.02101,"619,54569-4494-01 ",.02)
 ;;54569-4494-01
 ;;9002226.02101,"619,54569-4494-02 ",.01)
 ;;54569-4494-02
 ;;9002226.02101,"619,54569-4494-02 ",.02)
 ;;54569-4494-02
 ;;9002226.02101,"619,54569-4494-03 ",.01)
 ;;54569-4494-03
 ;;9002226.02101,"619,54569-4494-03 ",.02)
 ;;54569-4494-03
 ;;9002226.02101,"619,54569-4494-04 ",.01)
 ;;54569-4494-04
 ;;9002226.02101,"619,54569-4494-04 ",.02)
 ;;54569-4494-04
 ;;9002226.02101,"619,54569-4954-00 ",.01)
 ;;54569-4954-00
 ;;9002226.02101,"619,54569-4954-00 ",.02)
 ;;54569-4954-00
 ;;9002226.02101,"619,54569-4955-00 ",.01)
 ;;54569-4955-00
 ;;9002226.02101,"619,54569-4955-00 ",.02)
 ;;54569-4955-00
 ;;9002226.02101,"619,54868-1763-00 ",.01)
 ;;54868-1763-00
 ;;9002226.02101,"619,54868-1763-00 ",.02)
 ;;54868-1763-00
 ;;9002226.02101,"619,54868-2285-01 ",.01)
 ;;54868-2285-01
 ;;9002226.02101,"619,54868-2285-01 ",.02)
 ;;54868-2285-01
 ;;9002226.02101,"619,54868-2285-02 ",.01)
 ;;54868-2285-02
 ;;9002226.02101,"619,54868-2285-02 ",.02)
 ;;54868-2285-02
 ;;9002226.02101,"619,54868-2285-03 ",.01)
 ;;54868-2285-03
 ;;9002226.02101,"619,54868-2285-03 ",.02)
 ;;54868-2285-03
 ;;9002226.02101,"619,54868-2285-04 ",.01)
 ;;54868-2285-04
 ;;9002226.02101,"619,54868-2285-04 ",.02)
 ;;54868-2285-04
 ;;9002226.02101,"619,54868-3843-00 ",.01)
 ;;54868-3843-00
 ;;9002226.02101,"619,54868-3843-00 ",.02)
 ;;54868-3843-00
 ;;9002226.02101,"619,54868-4133-00 ",.01)
 ;;54868-4133-00
 ;;9002226.02101,"619,54868-4133-00 ",.02)
 ;;54868-4133-00
 ;;9002226.02101,"619,54868-4171-00 ",.01)
 ;;54868-4171-00
 ;;9002226.02101,"619,54868-4171-00 ",.02)
 ;;54868-4171-00
 ;;9002226.02101,"619,55045-2530-05 ",.01)
 ;;55045-2530-05
 ;;9002226.02101,"619,55045-2530-05 ",.02)
 ;;55045-2530-05
 ;;9002226.02101,"619,55289-0328-15 ",.01)
 ;;55289-0328-15
 ;;9002226.02101,"619,55289-0328-15 ",.02)
 ;;55289-0328-15
 ;;9002226.02101,"619,55289-0328-20 ",.01)
 ;;55289-0328-20
 ;;9002226.02101,"619,55289-0328-20 ",.02)
 ;;55289-0328-20
 ;;9002226.02101,"619,55289-0328-30 ",.01)
 ;;55289-0328-30
 ;;9002226.02101,"619,55289-0328-30 ",.02)
 ;;55289-0328-30
 ;;9002226.02101,"619,55289-0985-08 ",.01)
 ;;55289-0985-08
 ;;9002226.02101,"619,55289-0985-08 ",.02)
 ;;55289-0985-08
 ;;9002226.02101,"619,55289-0985-15 ",.01)
 ;;55289-0985-15
 ;;9002226.02101,"619,55289-0985-15 ",.02)
 ;;55289-0985-15
 ;;9002226.02101,"619,55289-0985-20 ",.01)
 ;;55289-0985-20
 ;;9002226.02101,"619,55289-0985-20 ",.02)
 ;;55289-0985-20
 ;;9002226.02101,"619,55289-0985-30 ",.01)
 ;;55289-0985-30
 ;;9002226.02101,"619,55289-0985-30 ",.02)
 ;;55289-0985-30
 ;;9002226.02101,"619,55289-0985-40 ",.01)
 ;;55289-0985-40
 ;;9002226.02101,"619,55289-0985-40 ",.02)
 ;;55289-0985-40
 ;;9002226.02101,"619,55390-0480-01 ",.01)
 ;;55390-0480-01
 ;;9002226.02101,"619,55390-0480-01 ",.02)
 ;;55390-0480-01
 ;;9002226.02101,"619,55390-0481-01 ",.01)
 ;;55390-0481-01
 ;;9002226.02101,"619,55390-0481-01 ",.02)
 ;;55390-0481-01
 ;;9002226.02101,"619,55390-0481-02 ",.01)
 ;;55390-0481-02
 ;;9002226.02101,"619,55390-0481-02 ",.02)
 ;;55390-0481-02
 ;;9002226.02101,"619,55390-0481-10 ",.01)
 ;;55390-0481-10
 ;;9002226.02101,"619,55390-0481-10 ",.02)
 ;;55390-0481-10
 ;;9002226.02101,"619,55887-0880-10 ",.01)
 ;;55887-0880-10
 ;;9002226.02101,"619,55887-0880-10 ",.02)
 ;;55887-0880-10
 ;;9002226.02101,"619,55887-0880-20 ",.01)
 ;;55887-0880-20
 ;;9002226.02101,"619,55887-0880-20 ",.02)
 ;;55887-0880-20
 ;;9002226.02101,"619,55887-0915-20 ",.01)
 ;;55887-0915-20
 ;;9002226.02101,"619,55887-0915-20 ",.02)
 ;;55887-0915-20
 ;;9002226.02101,"619,57866-7382-01 ",.01)
 ;;57866-7382-01
 ;;9002226.02101,"619,57866-7382-01 ",.02)
 ;;57866-7382-01
 ;;9002226.02101,"619,57866-7382-03 ",.01)
 ;;57866-7382-03
 ;;9002226.02101,"619,57866-7382-03 ",.02)
 ;;57866-7382-03
 ;;9002226.02101,"619,58016-0247-00 ",.01)
 ;;58016-0247-00
 ;;9002226.02101,"619,58016-0247-00 ",.02)
 ;;58016-0247-00
 ;;9002226.02101,"619,58016-0247-02 ",.01)
 ;;58016-0247-02
 ;;9002226.02101,"619,58016-0247-02 ",.02)
 ;;58016-0247-02
 ;;9002226.02101,"619,58016-0247-03 ",.01)
 ;;58016-0247-03
 ;;9002226.02101,"619,58016-0247-03 ",.02)
 ;;58016-0247-03
 ;;9002226.02101,"619,58016-0247-10 ",.01)
 ;;58016-0247-10
 ;;9002226.02101,"619,58016-0247-10 ",.02)
 ;;58016-0247-10
 ;;9002226.02101,"619,58016-0247-12 ",.01)
 ;;58016-0247-12
 ;;9002226.02101,"619,58016-0247-12 ",.02)
 ;;58016-0247-12
 ;;9002226.02101,"619,58016-0247-15 ",.01)
 ;;58016-0247-15
 ;;9002226.02101,"619,58016-0247-15 ",.02)
 ;;58016-0247-15
 ;;9002226.02101,"619,58016-0247-20 ",.01)
 ;;58016-0247-20
 ;;9002226.02101,"619,58016-0247-20 ",.02)
 ;;58016-0247-20
 ;;9002226.02101,"619,58016-0247-21 ",.01)
 ;;58016-0247-21
 ;;9002226.02101,"619,58016-0247-21 ",.02)
 ;;58016-0247-21
 ;;9002226.02101,"619,58016-0247-30 ",.01)
 ;;58016-0247-30
 ;;9002226.02101,"619,58016-0247-30 ",.02)
 ;;58016-0247-30
 ;;9002226.02101,"619,58016-0247-40 ",.01)
 ;;58016-0247-40
 ;;9002226.02101,"619,58016-0247-40 ",.02)
 ;;58016-0247-40
 ;;9002226.02101,"619,58016-0247-60 ",.01)
 ;;58016-0247-60
 ;;9002226.02101,"619,58016-0247-60 ",.02)
 ;;58016-0247-60
 ;;9002226.02101,"619,58016-0247-73 ",.01)
 ;;58016-0247-73
 ;;9002226.02101,"619,58016-0247-73 ",.02)
 ;;58016-0247-73
 ;;9002226.02101,"619,58016-0247-89 ",.01)
 ;;58016-0247-89
 ;;9002226.02101,"619,58016-0247-89 ",.02)
 ;;58016-0247-89
 ;;9002226.02101,"619,58016-0247-90 ",.01)
 ;;58016-0247-90
 ;;9002226.02101,"619,58016-0247-90 ",.02)
 ;;58016-0247-90
 ;;9002226.02101,"619,58016-0371-08 ",.01)
 ;;58016-0371-08
 ;;9002226.02101,"619,58016-0371-08 ",.02)
 ;;58016-0371-08
 ;;9002226.02101,"619,58016-0371-10 ",.01)
 ;;58016-0371-10
 ;;9002226.02101,"619,58016-0371-10 ",.02)
 ;;58016-0371-10
 ;;9002226.02101,"619,58016-0371-12 ",.01)
 ;;58016-0371-12
 ;;9002226.02101,"619,58016-0371-12 ",.02)
 ;;58016-0371-12
 ;;9002226.02101,"619,58016-0371-14 ",.01)
 ;;58016-0371-14
 ;;9002226.02101,"619,58016-0371-14 ",.02)
 ;;58016-0371-14
 ;;9002226.02101,"619,58016-0371-15 ",.01)
 ;;58016-0371-15
 ;;9002226.02101,"619,58016-0371-15 ",.02)
 ;;58016-0371-15
 ;;9002226.02101,"619,58016-0371-20 ",.01)
 ;;58016-0371-20
 ;;9002226.02101,"619,58016-0371-20 ",.02)
 ;;58016-0371-20
 ;;9002226.02101,"619,58016-0371-21 ",.01)
 ;;58016-0371-21
 ;;9002226.02101,"619,58016-0371-21 ",.02)
 ;;58016-0371-21
 ;;9002226.02101,"619,58016-0371-40 ",.01)
 ;;58016-0371-40
 ;;9002226.02101,"619,58016-0371-40 ",.02)
 ;;58016-0371-40
 ;;9002226.02101,"619,58016-9413-01 ",.01)
 ;;58016-9413-01
 ;;9002226.02101,"619,58016-9413-01 ",.02)
 ;;58016-9413-01
 ;;9002226.02101,"619,58177-0301-04 ",.01)
 ;;58177-0301-04
 ;;9002226.02101,"619,58177-0301-04 ",.02)
 ;;58177-0301-04
 ;;9002226.02101,"619,60505-0725-01 ",.01)
 ;;60505-0725-01
 ;;9002226.02101,"619,60505-0725-01 ",.02)
 ;;60505-0725-01
 ;;9002226.02101,"619,60505-0726-01 ",.01)
 ;;60505-0726-01
 ;;9002226.02101,"619,60505-0726-01 ",.02)
 ;;60505-0726-01
 ;;9002226.02101,"619,60505-0726-02 ",.01)
 ;;60505-0726-02
 ;;9002226.02101,"619,60505-0726-02 ",.02)
 ;;60505-0726-02
 ;;9002226.02101,"619,60760-0314-20 ",.01)
 ;;60760-0314-20
 ;;9002226.02101,"619,60760-0314-20 ",.02)
 ;;60760-0314-20
 ;;9002226.02101,"619,63323-0161-01 ",.01)
 ;;63323-0161-01
 ;;9002226.02101,"619,63323-0161-01 ",.02)
 ;;63323-0161-01
 ;;9002226.02101,"619,63323-0162-01 ",.01)
 ;;63323-0162-01
 ;;9002226.02101,"619,63323-0162-01 ",.02)
 ;;63323-0162-01
 ;;9002226.02101,"619,63323-0162-02 ",.01)
 ;;63323-0162-02
 ;;9002226.02101,"619,63323-0162-02 ",.02)
 ;;63323-0162-02
 ;;9002226.02101,"619,63874-0472-01 ",.01)
 ;;63874-0472-01
 ;;9002226.02101,"619,63874-0472-01 ",.02)
 ;;63874-0472-01
 ;;9002226.02101,"619,63874-0472-15 ",.01)
 ;;63874-0472-15
 ;;9002226.02101,"619,63874-0472-15 ",.02)
 ;;63874-0472-15
 ;;9002226.02101,"619,63874-0472-20 ",.01)
 ;;63874-0472-20
 ;;9002226.02101,"619,63874-0472-20 ",.02)
 ;;63874-0472-20
 ;;9002226.02101,"619,63874-0472-30 ",.01)
 ;;63874-0472-30
 ;;9002226.02101,"619,63874-0472-30 ",.02)
 ;;63874-0472-30
 ;;9002226.02101,"619,63874-0472-50 ",.01)
 ;;63874-0472-50
 ;;9002226.02101,"619,63874-0472-50 ",.02)
 ;;63874-0472-50
 ;;9002226.02101,"619,66267-0204-08 ",.01)
 ;;66267-0204-08
 ;;9002226.02101,"619,66267-0204-08 ",.02)
 ;;66267-0204-08
 ;;9002226.02101,"619,66267-0204-21 ",.01)
 ;;66267-0204-21
 ;;9002226.02101,"619,66267-0204-21 ",.02)
 ;;66267-0204-21