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

BGP2TJ4.m

Go to the documentation of this file.
BGP2TJ4 ;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)
 ;;9002226.02101,"1202,35356-0139-18 ",.02)
 ;;35356-0139-18
 ;;9002226.02101,"1202,35356-0139-60 ",.01)
 ;;35356-0139-60
 ;;9002226.02101,"1202,35356-0139-60 ",.02)
 ;;35356-0139-60
 ;;9002226.02101,"1202,35356-0186-30 ",.01)
 ;;35356-0186-30
 ;;9002226.02101,"1202,35356-0186-30 ",.02)
 ;;35356-0186-30
 ;;9002226.02101,"1202,35356-0205-30 ",.01)
 ;;35356-0205-30
 ;;9002226.02101,"1202,35356-0205-30 ",.02)
 ;;35356-0205-30
 ;;9002226.02101,"1202,35356-0206-60 ",.01)
 ;;35356-0206-60
 ;;9002226.02101,"1202,35356-0206-60 ",.02)
 ;;35356-0206-60
 ;;9002226.02101,"1202,35356-0207-60 ",.01)
 ;;35356-0207-60
 ;;9002226.02101,"1202,35356-0207-60 ",.02)
 ;;35356-0207-60
 ;;9002226.02101,"1202,35356-0208-60 ",.01)
 ;;35356-0208-60
 ;;9002226.02101,"1202,35356-0208-60 ",.02)
 ;;35356-0208-60
 ;;9002226.02101,"1202,35356-0209-60 ",.01)
 ;;35356-0209-60
 ;;9002226.02101,"1202,35356-0209-60 ",.02)
 ;;35356-0209-60
 ;;9002226.02101,"1202,35356-0259-30 ",.01)
 ;;35356-0259-30
 ;;9002226.02101,"1202,35356-0259-30 ",.02)
 ;;35356-0259-30
 ;;9002226.02101,"1202,35356-0284-60 ",.01)
 ;;35356-0284-60
 ;;9002226.02101,"1202,35356-0284-60 ",.02)
 ;;35356-0284-60
 ;;9002226.02101,"1202,35356-0285-60 ",.01)
 ;;35356-0285-60
 ;;9002226.02101,"1202,35356-0285-60 ",.02)
 ;;35356-0285-60
 ;;9002226.02101,"1202,49702-0202-18 ",.01)
 ;;49702-0202-18
 ;;9002226.02101,"1202,49702-0202-18 ",.02)
 ;;49702-0202-18
 ;;9002226.02101,"1202,49702-0202-29 ",.01)
 ;;49702-0202-29
 ;;9002226.02101,"1202,49702-0202-29 ",.02)
 ;;49702-0202-29
 ;;9002226.02101,"1202,49702-0203-18 ",.01)
 ;;49702-0203-18
 ;;9002226.02101,"1202,49702-0203-18 ",.02)
 ;;49702-0203-18
 ;;9002226.02101,"1202,49702-0204-13 ",.01)
 ;;49702-0204-13
 ;;9002226.02101,"1202,49702-0204-13 ",.02)
 ;;49702-0204-13
 ;;9002226.02101,"1202,49702-0205-48 ",.01)
 ;;49702-0205-48
 ;;9002226.02101,"1202,49702-0205-48 ",.02)
 ;;49702-0205-48
 ;;9002226.02101,"1202,49702-0206-13 ",.01)
 ;;49702-0206-13
 ;;9002226.02101,"1202,49702-0206-13 ",.02)
 ;;49702-0206-13
 ;;9002226.02101,"1202,49702-0207-18 ",.01)
 ;;49702-0207-18
 ;;9002226.02101,"1202,49702-0207-18 ",.02)
 ;;49702-0207-18
 ;;9002226.02101,"1202,49702-0208-53 ",.01)
 ;;49702-0208-53
 ;;9002226.02101,"1202,49702-0208-53 ",.02)
 ;;49702-0208-53
 ;;9002226.02101,"1202,49702-0209-24 ",.01)
 ;;49702-0209-24
 ;;9002226.02101,"1202,49702-0209-24 ",.02)
 ;;49702-0209-24
 ;;9002226.02101,"1202,49702-0210-17 ",.01)
 ;;49702-0210-17
 ;;9002226.02101,"1202,49702-0210-17 ",.02)
 ;;49702-0210-17
 ;;9002226.02101,"1202,49702-0211-20 ",.01)
 ;;49702-0211-20
 ;;9002226.02101,"1202,49702-0211-20 ",.02)
 ;;49702-0211-20
 ;;9002226.02101,"1202,49702-0212-48 ",.01)
 ;;49702-0212-48
 ;;9002226.02101,"1202,49702-0212-48 ",.02)
 ;;49702-0212-48
 ;;9002226.02101,"1202,49702-0214-18 ",.01)
 ;;49702-0214-18
 ;;9002226.02101,"1202,49702-0214-18 ",.02)
 ;;49702-0214-18
 ;;9002226.02101,"1202,49702-0215-18 ",.01)
 ;;49702-0215-18
 ;;9002226.02101,"1202,49702-0215-18 ",.02)
 ;;49702-0215-18
 ;;9002226.02101,"1202,49702-0216-18 ",.01)
 ;;49702-0216-18
 ;;9002226.02101,"1202,49702-0216-18 ",.02)
 ;;49702-0216-18
 ;;9002226.02101,"1202,49702-0217-18 ",.01)
 ;;49702-0217-18
 ;;9002226.02101,"1202,49702-0217-18 ",.02)
 ;;49702-0217-18
 ;;9002226.02101,"1202,49702-0221-18 ",.01)
 ;;49702-0221-18
 ;;9002226.02101,"1202,49702-0221-18 ",.02)
 ;;49702-0221-18
 ;;9002226.02101,"1202,49702-0221-44 ",.01)
 ;;49702-0221-44
 ;;9002226.02101,"1202,49702-0221-44 ",.02)
 ;;49702-0221-44
 ;;9002226.02101,"1202,49702-0222-48 ",.01)
 ;;49702-0222-48
 ;;9002226.02101,"1202,49702-0222-48 ",.02)
 ;;49702-0222-48
 ;;9002226.02101,"1202,49702-0223-18 ",.01)
 ;;49702-0223-18
 ;;9002226.02101,"1202,49702-0223-18 ",.02)
 ;;49702-0223-18
 ;;9002226.02101,"1202,49702-0224-18 ",.01)
 ;;49702-0224-18
 ;;9002226.02101,"1202,49702-0224-18 ",.02)
 ;;49702-0224-18
 ;;9002226.02101,"1202,49999-0062-06 ",.01)
 ;;49999-0062-06
 ;;9002226.02101,"1202,49999-0062-06 ",.02)
 ;;49999-0062-06
 ;;9002226.02101,"1202,49999-0062-10 ",.01)
 ;;49999-0062-10
 ;;9002226.02101,"1202,49999-0062-10 ",.02)
 ;;49999-0062-10
 ;;9002226.02101,"1202,49999-0062-60 ",.01)
 ;;49999-0062-60
 ;;9002226.02101,"1202,49999-0062-60 ",.02)
 ;;49999-0062-60
 ;;9002226.02101,"1202,49999-0119-06 ",.01)
 ;;49999-0119-06
 ;;9002226.02101,"1202,49999-0119-06 ",.02)
 ;;49999-0119-06
 ;;9002226.02101,"1202,49999-0119-60 ",.01)
 ;;49999-0119-60
 ;;9002226.02101,"1202,49999-0119-60 ",.02)
 ;;49999-0119-60
 ;;9002226.02101,"1202,49999-0386-18 ",.01)
 ;;49999-0386-18
 ;;9002226.02101,"1202,49999-0386-18 ",.02)
 ;;49999-0386-18
 ;;9002226.02101,"1202,49999-0431-03 ",.01)
 ;;49999-0431-03
 ;;9002226.02101,"1202,49999-0431-03 ",.02)
 ;;49999-0431-03
 ;;9002226.02101,"1202,51129-2999-02 ",.01)
 ;;51129-2999-02
 ;;9002226.02101,"1202,51129-2999-02 ",.02)
 ;;51129-2999-02
 ;;9002226.02101,"1202,52959-0134-18 ",.01)
 ;;52959-0134-18
 ;;9002226.02101,"1202,52959-0134-18 ",.02)
 ;;52959-0134-18
 ;;9002226.02101,"1202,52959-0289-06 ",.01)
 ;;52959-0289-06
 ;;9002226.02101,"1202,52959-0289-06 ",.02)
 ;;52959-0289-06
 ;;9002226.02101,"1202,52959-0289-30 ",.01)
 ;;52959-0289-30
 ;;9002226.02101,"1202,52959-0289-30 ",.02)
 ;;52959-0289-30
 ;;9002226.02101,"1202,52959-0387-06 ",.01)
 ;;52959-0387-06
 ;;9002226.02101,"1202,52959-0387-06 ",.02)
 ;;52959-0387-06
 ;;9002226.02101,"1202,52959-0507-12 ",.01)
 ;;52959-0507-12
 ;;9002226.02101,"1202,52959-0507-12 ",.02)
 ;;52959-0507-12
 ;;9002226.02101,"1202,52959-0507-18 ",.01)
 ;;52959-0507-18
 ;;9002226.02101,"1202,52959-0507-18 ",.02)
 ;;52959-0507-18
 ;;9002226.02101,"1202,52959-0507-24 ",.01)
 ;;52959-0507-24
 ;;9002226.02101,"1202,52959-0507-24 ",.02)
 ;;52959-0507-24
 ;;9002226.02101,"1202,52959-0507-30 ",.01)
 ;;52959-0507-30
 ;;9002226.02101,"1202,52959-0507-30 ",.02)
 ;;52959-0507-30
 ;;9002226.02101,"1202,52959-0508-02 ",.01)
 ;;52959-0508-02
 ;;9002226.02101,"1202,52959-0508-02 ",.02)
 ;;52959-0508-02
 ;;9002226.02101,"1202,52959-0508-04 ",.01)
 ;;52959-0508-04
 ;;9002226.02101,"1202,52959-0508-04 ",.02)
 ;;52959-0508-04
 ;;9002226.02101,"1202,52959-0508-06 ",.01)
 ;;52959-0508-06
 ;;9002226.02101,"1202,52959-0508-06 ",.02)
 ;;52959-0508-06
 ;;9002226.02101,"1202,52959-0508-08 ",.01)
 ;;52959-0508-08
 ;;9002226.02101,"1202,52959-0508-08 ",.02)
 ;;52959-0508-08
 ;;9002226.02101,"1202,52959-0508-14 ",.01)
 ;;52959-0508-14
 ;;9002226.02101,"1202,52959-0508-14 ",.02)
 ;;52959-0508-14
 ;;9002226.02101,"1202,52959-0508-15 ",.01)
 ;;52959-0508-15
 ;;9002226.02101,"1202,52959-0508-15 ",.02)
 ;;52959-0508-15
 ;;9002226.02101,"1202,52959-0508-60 ",.01)
 ;;52959-0508-60
 ;;9002226.02101,"1202,52959-0508-60 ",.02)
 ;;52959-0508-60
 ;;9002226.02101,"1202,52959-0509-06 ",.01)
 ;;52959-0509-06
 ;;9002226.02101,"1202,52959-0509-06 ",.02)
 ;;52959-0509-06
 ;;9002226.02101,"1202,52959-0509-12 ",.01)
 ;;52959-0509-12
 ;;9002226.02101,"1202,52959-0509-12 ",.02)
 ;;52959-0509-12
 ;;9002226.02101,"1202,52959-0509-18 ",.01)
 ;;52959-0509-18
 ;;9002226.02101,"1202,52959-0509-18 ",.02)
 ;;52959-0509-18
 ;;9002226.02101,"1202,52959-0509-20 ",.01)
 ;;52959-0509-20
 ;;9002226.02101,"1202,52959-0509-20 ",.02)
 ;;52959-0509-20
 ;;9002226.02101,"1202,52959-0509-24 ",.01)
 ;;52959-0509-24
 ;;9002226.02101,"1202,52959-0509-24 ",.02)
 ;;52959-0509-24
 ;;9002226.02101,"1202,52959-0509-28 ",.01)
 ;;52959-0509-28
 ;;9002226.02101,"1202,52959-0509-28 ",.02)
 ;;52959-0509-28
 ;;9002226.02101,"1202,52959-0509-30 ",.01)
 ;;52959-0509-30
 ;;9002226.02101,"1202,52959-0509-30 ",.02)
 ;;52959-0509-30
 ;;9002226.02101,"1202,52959-0546-02 ",.01)
 ;;52959-0546-02
 ;;9002226.02101,"1202,52959-0546-02 ",.02)
 ;;52959-0546-02
 ;;9002226.02101,"1202,52959-0546-03 ",.01)
 ;;52959-0546-03
 ;;9002226.02101,"1202,52959-0546-03 ",.02)
 ;;52959-0546-03
 ;;9002226.02101,"1202,52959-0546-04 ",.01)
 ;;52959-0546-04
 ;;9002226.02101,"1202,52959-0546-04 ",.02)
 ;;52959-0546-04
 ;;9002226.02101,"1202,52959-0546-06 ",.01)
 ;;52959-0546-06
 ;;9002226.02101,"1202,52959-0546-06 ",.02)
 ;;52959-0546-06
 ;;9002226.02101,"1202,52959-0546-08 ",.01)
 ;;52959-0546-08
 ;;9002226.02101,"1202,52959-0546-08 ",.02)
 ;;52959-0546-08
 ;;9002226.02101,"1202,52959-0546-10 ",.01)
 ;;52959-0546-10
 ;;9002226.02101,"1202,52959-0546-10 ",.02)
 ;;52959-0546-10
 ;;9002226.02101,"1202,52959-0546-14 ",.01)
 ;;52959-0546-14
 ;;9002226.02101,"1202,52959-0546-14 ",.02)
 ;;52959-0546-14
 ;;9002226.02101,"1202,52959-0546-15 ",.01)
 ;;52959-0546-15
 ;;9002226.02101,"1202,52959-0546-15 ",.02)
 ;;52959-0546-15
 ;;9002226.02101,"1202,52959-0546-20 ",.01)
 ;;52959-0546-20
 ;;9002226.02101,"1202,52959-0546-20 ",.02)
 ;;52959-0546-20
 ;;9002226.02101,"1202,52959-0546-28 ",.01)
 ;;52959-0546-28
 ;;9002226.02101,"1202,52959-0546-28 ",.02)
 ;;52959-0546-28
 ;;9002226.02101,"1202,52959-0968-12 ",.01)
 ;;52959-0968-12
 ;;9002226.02101,"1202,52959-0968-12 ",.02)
 ;;52959-0968-12
 ;;9002226.02101,"1202,52959-0969-03 ",.01)
 ;;52959-0969-03
 ;;9002226.02101,"1202,52959-0969-03 ",.02)
 ;;52959-0969-03
 ;;9002226.02101,"1202,54348-0618-09 ",.01)
 ;;54348-0618-09
 ;;9002226.02101,"1202,54348-0618-09 ",.02)
 ;;54348-0618-09
 ;;9002226.02101,"1202,54348-0619-02 ",.01)
 ;;54348-0619-02
 ;;9002226.02101,"1202,54348-0619-02 ",.02)
 ;;54348-0619-02
 ;;9002226.02101,"1202,54569-1772-00 ",.01)
 ;;54569-1772-00
 ;;9002226.02101,"1202,54569-1772-00 ",.02)
 ;;54569-1772-00
 ;;9002226.02101,"1202,54569-1772-03 ",.01)
 ;;54569-1772-03
 ;;9002226.02101,"1202,54569-1772-03 ",.02)
 ;;54569-1772-03
 ;;9002226.02101,"1202,54569-1772-04 ",.01)
 ;;54569-1772-04
 ;;9002226.02101,"1202,54569-1772-04 ",.02)
 ;;54569-1772-04
 ;;9002226.02101,"1202,54569-1772-05 ",.01)
 ;;54569-1772-05
 ;;9002226.02101,"1202,54569-1772-05 ",.02)
 ;;54569-1772-05
 ;;9002226.02101,"1202,54569-3877-00 ",.01)
 ;;54569-3877-00
 ;;9002226.02101,"1202,54569-3877-00 ",.02)
 ;;54569-3877-00
 ;;9002226.02101,"1202,54569-3877-01 ",.01)
 ;;54569-3877-01
 ;;9002226.02101,"1202,54569-3877-01 ",.02)
 ;;54569-3877-01
 ;;9002226.02101,"1202,54569-4053-00 ",.01)
 ;;54569-4053-00
 ;;9002226.02101,"1202,54569-4053-00 ",.02)
 ;;54569-4053-00
 ;;9002226.02101,"1202,54569-4054-00 ",.01)
 ;;54569-4054-00
 ;;9002226.02101,"1202,54569-4054-00 ",.02)
 ;;54569-4054-00
 ;;9002226.02101,"1202,54569-4054-01 ",.01)
 ;;54569-4054-01
 ;;9002226.02101,"1202,54569-4054-01 ",.02)
 ;;54569-4054-01
 ;;9002226.02101,"1202,54569-4221-00 ",.01)
 ;;54569-4221-00
 ;;9002226.02101,"1202,54569-4221-00 ",.02)
 ;;54569-4221-00
 ;;9002226.02101,"1202,54569-4221-01 ",.01)
 ;;54569-4221-01
 ;;9002226.02101,"1202,54569-4221-01 ",.02)
 ;;54569-4221-01
 ;;9002226.02101,"1202,54569-4221-02 ",.01)
 ;;54569-4221-02
 ;;9002226.02101,"1202,54569-4221-02 ",.02)
 ;;54569-4221-02
 ;;9002226.02101,"1202,54569-4242-01 ",.01)
 ;;54569-4242-01
 ;;9002226.02101,"1202,54569-4242-01 ",.02)
 ;;54569-4242-01
 ;;9002226.02101,"1202,54569-4242-02 ",.01)
 ;;54569-4242-02
 ;;9002226.02101,"1202,54569-4242-02 ",.02)
 ;;54569-4242-02
 ;;9002226.02101,"1202,54569-4242-03 ",.01)
 ;;54569-4242-03
 ;;9002226.02101,"1202,54569-4242-03 ",.02)
 ;;54569-4242-03
 ;;9002226.02101,"1202,54569-4313-00 ",.01)
 ;;54569-4313-00
 ;;9002226.02101,"1202,54569-4313-00 ",.02)
 ;;54569-4313-00
 ;;9002226.02101,"1202,54569-4313-01 ",.01)
 ;;54569-4313-01
 ;;9002226.02101,"1202,54569-4313-01 ",.02)
 ;;54569-4313-01
 ;;9002226.02101,"1202,54569-4333-00 ",.01)
 ;;54569-4333-00
 ;;9002226.02101,"1202,54569-4333-00 ",.02)
 ;;54569-4333-00
 ;;9002226.02101,"1202,54569-4334-00 ",.01)
 ;;54569-4334-00
 ;;9002226.02101,"1202,54569-4334-00 ",.02)
 ;;54569-4334-00
 ;;9002226.02101,"1202,54569-4335-01 ",.01)
 ;;54569-4335-01
 ;;9002226.02101,"1202,54569-4335-01 ",.02)
 ;;54569-4335-01
 ;;9002226.02101,"1202,54569-4514-00 ",.01)
 ;;54569-4514-00
 ;;9002226.02101,"1202,54569-4514-00 ",.02)
 ;;54569-4514-00
 ;;9002226.02101,"1202,54569-4524-00 ",.01)
 ;;54569-4524-00
 ;;9002226.02101,"1202,54569-4524-00 ",.02)
 ;;54569-4524-00
 ;;9002226.02101,"1202,54569-4524-01 ",.01)
 ;;54569-4524-01
 ;;9002226.02101,"1202,54569-4524-01 ",.02)
 ;;54569-4524-01
 ;;9002226.02101,"1202,54569-4524-02 ",.01)
 ;;54569-4524-02
 ;;9002226.02101,"1202,54569-4524-02 ",.02)
 ;;54569-4524-02
 ;;9002226.02101,"1202,54569-4524-03 ",.01)
 ;;54569-4524-03
 ;;9002226.02101,"1202,54569-4524-03 ",.02)
 ;;54569-4524-03
 ;;9002226.02101,"1202,54569-4538-00 ",.01)
 ;;54569-4538-00
 ;;9002226.02101,"1202,54569-4538-00 ",.02)
 ;;54569-4538-00
 ;;9002226.02101,"1202,54569-4543-00 ",.01)
 ;;54569-4543-00
 ;;9002226.02101,"1202,54569-4543-00 ",.02)
 ;;54569-4543-00
 ;;9002226.02101,"1202,54569-4543-01 ",.01)
 ;;54569-4543-01
 ;;9002226.02101,"1202,54569-4543-01 ",.02)
 ;;54569-4543-01
 ;;9002226.02101,"1202,54569-4543-02 ",.01)
 ;;54569-4543-02
 ;;9002226.02101,"1202,54569-4543-02 ",.02)
 ;;54569-4543-02
 ;;9002226.02101,"1202,54569-4543-03 ",.01)
 ;;54569-4543-03
 ;;9002226.02101,"1202,54569-4543-03 ",.02)
 ;;54569-4543-03
 ;;9002226.02101,"1202,54569-4543-04 ",.01)
 ;;54569-4543-04
 ;;9002226.02101,"1202,54569-4543-04 ",.02)
 ;;54569-4543-04
 ;;9002226.02101,"1202,54569-4543-05 ",.01)
 ;;54569-4543-05
 ;;9002226.02101,"1202,54569-4543-05 ",.02)
 ;;54569-4543-05
 ;;9002226.02101,"1202,54569-4543-06 ",.01)
 ;;54569-4543-06
 ;;9002226.02101,"1202,54569-4543-06 ",.02)
 ;;54569-4543-06
 ;;9002226.02101,"1202,54569-4561-00 ",.01)
 ;;54569-4561-00
 ;;9002226.02101,"1202,54569-4561-00 ",.02)
 ;;54569-4561-00