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

BGP82Q4.m

Go to the documentation of this file.
  1. BGP82Q4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1225,49702-0210-17 ",.02)
  1. ;;49702-0210-17
  1. ;;9002226.02101,"1225,49702-0211-20 ",.01)
  1. ;;49702-0211-20
  1. ;;9002226.02101,"1225,49702-0211-20 ",.02)
  1. ;;49702-0211-20
  1. ;;9002226.02101,"1225,49702-0212-48 ",.01)
  1. ;;49702-0212-48
  1. ;;9002226.02101,"1225,49702-0212-48 ",.02)
  1. ;;49702-0212-48
  1. ;;9002226.02101,"1225,49702-0217-18 ",.01)
  1. ;;49702-0217-18
  1. ;;9002226.02101,"1225,49702-0217-18 ",.02)
  1. ;;49702-0217-18
  1. ;;9002226.02101,"1225,49702-0221-18 ",.01)
  1. ;;49702-0221-18
  1. ;;9002226.02101,"1225,49702-0221-18 ",.02)
  1. ;;49702-0221-18
  1. ;;9002226.02101,"1225,49702-0221-44 ",.01)
  1. ;;49702-0221-44
  1. ;;9002226.02101,"1225,49702-0221-44 ",.02)
  1. ;;49702-0221-44
  1. ;;9002226.02101,"1225,49702-0222-48 ",.01)
  1. ;;49702-0222-48
  1. ;;9002226.02101,"1225,49702-0222-48 ",.02)
  1. ;;49702-0222-48
  1. ;;9002226.02101,"1225,49702-0223-18 ",.01)
  1. ;;49702-0223-18
  1. ;;9002226.02101,"1225,49702-0223-18 ",.02)
  1. ;;49702-0223-18
  1. ;;9002226.02101,"1225,49702-0224-18 ",.01)
  1. ;;49702-0224-18
  1. ;;9002226.02101,"1225,49702-0224-18 ",.02)
  1. ;;49702-0224-18
  1. ;;9002226.02101,"1225,49702-0225-17 ",.01)
  1. ;;49702-0225-17
  1. ;;9002226.02101,"1225,49702-0225-17 ",.02)
  1. ;;49702-0225-17
  1. ;;9002226.02101,"1225,49702-0226-13 ",.01)
  1. ;;49702-0226-13
  1. ;;9002226.02101,"1225,49702-0226-13 ",.02)
  1. ;;49702-0226-13
  1. ;;9002226.02101,"1225,49702-0227-13 ",.01)
  1. ;;49702-0227-13
  1. ;;9002226.02101,"1225,49702-0227-13 ",.02)
  1. ;;49702-0227-13
  1. ;;9002226.02101,"1225,49702-0228-13 ",.01)
  1. ;;49702-0228-13
  1. ;;9002226.02101,"1225,49702-0228-13 ",.02)
  1. ;;49702-0228-13
  1. ;;9002226.02101,"1225,49702-0231-13 ",.01)
  1. ;;49702-0231-13
  1. ;;9002226.02101,"1225,49702-0231-13 ",.02)
  1. ;;49702-0231-13
  1. ;;9002226.02101,"1225,49702-0233-08 ",.01)
  1. ;;49702-0233-08
  1. ;;9002226.02101,"1225,49702-0233-08 ",.02)
  1. ;;49702-0233-08
  1. ;;9002226.02101,"1225,49702-0235-08 ",.01)
  1. ;;49702-0235-08
  1. ;;9002226.02101,"1225,49702-0235-08 ",.02)
  1. ;;49702-0235-08
  1. ;;9002226.02101,"1225,49999-0062-06 ",.01)
  1. ;;49999-0062-06
  1. ;;9002226.02101,"1225,49999-0062-06 ",.02)
  1. ;;49999-0062-06
  1. ;;9002226.02101,"1225,49999-0062-10 ",.01)
  1. ;;49999-0062-10
  1. ;;9002226.02101,"1225,49999-0062-10 ",.02)
  1. ;;49999-0062-10
  1. ;;9002226.02101,"1225,49999-0062-60 ",.01)
  1. ;;49999-0062-60
  1. ;;9002226.02101,"1225,49999-0062-60 ",.02)
  1. ;;49999-0062-60
  1. ;;9002226.02101,"1225,49999-0119-06 ",.01)
  1. ;;49999-0119-06
  1. ;;9002226.02101,"1225,49999-0119-06 ",.02)
  1. ;;49999-0119-06
  1. ;;9002226.02101,"1225,49999-0119-60 ",.01)
  1. ;;49999-0119-60
  1. ;;9002226.02101,"1225,49999-0119-60 ",.02)
  1. ;;49999-0119-60
  1. ;;9002226.02101,"1225,49999-0386-18 ",.01)
  1. ;;49999-0386-18
  1. ;;9002226.02101,"1225,49999-0386-18 ",.02)
  1. ;;49999-0386-18
  1. ;;9002226.02101,"1225,49999-0431-03 ",.01)
  1. ;;49999-0431-03
  1. ;;9002226.02101,"1225,49999-0431-03 ",.02)
  1. ;;49999-0431-03
  1. ;;9002226.02101,"1225,50268-0459-11 ",.01)
  1. ;;50268-0459-11
  1. ;;9002226.02101,"1225,50268-0459-11 ",.02)
  1. ;;50268-0459-11
  1. ;;9002226.02101,"1225,50268-0459-15 ",.01)
  1. ;;50268-0459-15
  1. ;;9002226.02101,"1225,50268-0459-15 ",.02)
  1. ;;50268-0459-15
  1. ;;9002226.02101,"1225,50268-0460-11 ",.01)
  1. ;;50268-0460-11
  1. ;;9002226.02101,"1225,50268-0460-11 ",.02)
  1. ;;50268-0460-11
  1. ;;9002226.02101,"1225,50268-0460-13 ",.01)
  1. ;;50268-0460-13
  1. ;;9002226.02101,"1225,50268-0460-13 ",.02)
  1. ;;50268-0460-13
  1. ;;9002226.02101,"1225,50436-0101-01 ",.01)
  1. ;;50436-0101-01
  1. ;;9002226.02101,"1225,50436-0101-01 ",.02)
  1. ;;50436-0101-01
  1. ;;9002226.02101,"1225,50436-0123-01 ",.01)
  1. ;;50436-0123-01
  1. ;;9002226.02101,"1225,50436-0123-01 ",.02)
  1. ;;50436-0123-01
  1. ;;9002226.02101,"1225,50436-0206-01 ",.01)
  1. ;;50436-0206-01
  1. ;;9002226.02101,"1225,50436-0206-01 ",.02)
  1. ;;50436-0206-01
  1. ;;9002226.02101,"1225,50436-0224-01 ",.01)
  1. ;;50436-0224-01
  1. ;;9002226.02101,"1225,50436-0224-01 ",.02)
  1. ;;50436-0224-01
  1. ;;9002226.02101,"1225,50436-0701-01 ",.01)
  1. ;;50436-0701-01
  1. ;;9002226.02101,"1225,50436-0701-01 ",.02)
  1. ;;50436-0701-01
  1. ;;9002226.02101,"1225,50436-1101-01 ",.01)
  1. ;;50436-1101-01
  1. ;;9002226.02101,"1225,50436-1101-01 ",.02)
  1. ;;50436-1101-01
  1. ;;9002226.02101,"1225,51079-0204-01 ",.01)
  1. ;;51079-0204-01
  1. ;;9002226.02101,"1225,51079-0204-01 ",.02)
  1. ;;51079-0204-01
  1. ;;9002226.02101,"1225,51079-0204-06 ",.01)
  1. ;;51079-0204-06
  1. ;;9002226.02101,"1225,51079-0204-06 ",.02)
  1. ;;51079-0204-06
  1. ;;9002226.02101,"1225,51129-2999-02 ",.01)
  1. ;;51129-2999-02
  1. ;;9002226.02101,"1225,51129-2999-02 ",.02)
  1. ;;51129-2999-02
  1. ;;9002226.02101,"1225,51991-0331-06 ",.01)
  1. ;;51991-0331-06
  1. ;;9002226.02101,"1225,51991-0331-06 ",.02)
  1. ;;51991-0331-06
  1. ;;9002226.02101,"1225,52343-0044-01 ",.01)
  1. ;;52343-0044-01
  1. ;;9002226.02101,"1225,52343-0044-01 ",.02)
  1. ;;52343-0044-01
  1. ;;9002226.02101,"1225,52343-0045-60 ",.01)
  1. ;;52343-0045-60
  1. ;;9002226.02101,"1225,52343-0045-60 ",.02)
  1. ;;52343-0045-60
  1. ;;9002226.02101,"1225,52959-0289-06 ",.01)
  1. ;;52959-0289-06
  1. ;;9002226.02101,"1225,52959-0289-06 ",.02)
  1. ;;52959-0289-06
  1. ;;9002226.02101,"1225,52959-0289-30 ",.01)
  1. ;;52959-0289-30
  1. ;;9002226.02101,"1225,52959-0289-30 ",.02)
  1. ;;52959-0289-30
  1. ;;9002226.02101,"1225,52959-0507-12 ",.01)
  1. ;;52959-0507-12
  1. ;;9002226.02101,"1225,52959-0507-12 ",.02)
  1. ;;52959-0507-12
  1. ;;9002226.02101,"1225,52959-0507-18 ",.01)
  1. ;;52959-0507-18
  1. ;;9002226.02101,"1225,52959-0507-18 ",.02)
  1. ;;52959-0507-18
  1. ;;9002226.02101,"1225,52959-0507-24 ",.01)
  1. ;;52959-0507-24
  1. ;;9002226.02101,"1225,52959-0507-24 ",.02)
  1. ;;52959-0507-24
  1. ;;9002226.02101,"1225,52959-0507-30 ",.01)
  1. ;;52959-0507-30
  1. ;;9002226.02101,"1225,52959-0507-30 ",.02)
  1. ;;52959-0507-30
  1. ;;9002226.02101,"1225,52959-0508-02 ",.01)
  1. ;;52959-0508-02
  1. ;;9002226.02101,"1225,52959-0508-02 ",.02)
  1. ;;52959-0508-02
  1. ;;9002226.02101,"1225,52959-0508-04 ",.01)
  1. ;;52959-0508-04
  1. ;;9002226.02101,"1225,52959-0508-04 ",.02)
  1. ;;52959-0508-04
  1. ;;9002226.02101,"1225,52959-0508-06 ",.01)
  1. ;;52959-0508-06
  1. ;;9002226.02101,"1225,52959-0508-06 ",.02)
  1. ;;52959-0508-06
  1. ;;9002226.02101,"1225,52959-0508-08 ",.01)
  1. ;;52959-0508-08
  1. ;;9002226.02101,"1225,52959-0508-08 ",.02)
  1. ;;52959-0508-08
  1. ;;9002226.02101,"1225,52959-0508-14 ",.01)
  1. ;;52959-0508-14
  1. ;;9002226.02101,"1225,52959-0508-14 ",.02)
  1. ;;52959-0508-14
  1. ;;9002226.02101,"1225,52959-0508-15 ",.01)
  1. ;;52959-0508-15
  1. ;;9002226.02101,"1225,52959-0508-15 ",.02)
  1. ;;52959-0508-15
  1. ;;9002226.02101,"1225,52959-0508-60 ",.01)
  1. ;;52959-0508-60
  1. ;;9002226.02101,"1225,52959-0508-60 ",.02)
  1. ;;52959-0508-60
  1. ;;9002226.02101,"1225,52959-0509-06 ",.01)
  1. ;;52959-0509-06
  1. ;;9002226.02101,"1225,52959-0509-06 ",.02)
  1. ;;52959-0509-06
  1. ;;9002226.02101,"1225,52959-0509-12 ",.01)
  1. ;;52959-0509-12
  1. ;;9002226.02101,"1225,52959-0509-12 ",.02)
  1. ;;52959-0509-12
  1. ;;9002226.02101,"1225,52959-0509-18 ",.01)
  1. ;;52959-0509-18
  1. ;;9002226.02101,"1225,52959-0509-18 ",.02)
  1. ;;52959-0509-18
  1. ;;9002226.02101,"1225,52959-0509-20 ",.01)
  1. ;;52959-0509-20
  1. ;;9002226.02101,"1225,52959-0509-20 ",.02)
  1. ;;52959-0509-20
  1. ;;9002226.02101,"1225,52959-0509-24 ",.01)
  1. ;;52959-0509-24
  1. ;;9002226.02101,"1225,52959-0509-24 ",.02)
  1. ;;52959-0509-24
  1. ;;9002226.02101,"1225,52959-0509-28 ",.01)
  1. ;;52959-0509-28
  1. ;;9002226.02101,"1225,52959-0509-28 ",.02)
  1. ;;52959-0509-28
  1. ;;9002226.02101,"1225,52959-0509-30 ",.01)
  1. ;;52959-0509-30
  1. ;;9002226.02101,"1225,52959-0509-30 ",.02)
  1. ;;52959-0509-30
  1. ;;9002226.02101,"1225,52959-0546-02 ",.01)
  1. ;;52959-0546-02
  1. ;;9002226.02101,"1225,52959-0546-02 ",.02)
  1. ;;52959-0546-02
  1. ;;9002226.02101,"1225,52959-0546-03 ",.01)
  1. ;;52959-0546-03
  1. ;;9002226.02101,"1225,52959-0546-03 ",.02)
  1. ;;52959-0546-03
  1. ;;9002226.02101,"1225,52959-0546-04 ",.01)
  1. ;;52959-0546-04
  1. ;;9002226.02101,"1225,52959-0546-04 ",.02)
  1. ;;52959-0546-04
  1. ;;9002226.02101,"1225,52959-0546-06 ",.01)
  1. ;;52959-0546-06
  1. ;;9002226.02101,"1225,52959-0546-06 ",.02)
  1. ;;52959-0546-06
  1. ;;9002226.02101,"1225,52959-0546-08 ",.01)
  1. ;;52959-0546-08
  1. ;;9002226.02101,"1225,52959-0546-08 ",.02)
  1. ;;52959-0546-08
  1. ;;9002226.02101,"1225,52959-0546-10 ",.01)
  1. ;;52959-0546-10
  1. ;;9002226.02101,"1225,52959-0546-10 ",.02)
  1. ;;52959-0546-10
  1. ;;9002226.02101,"1225,52959-0546-14 ",.01)
  1. ;;52959-0546-14
  1. ;;9002226.02101,"1225,52959-0546-14 ",.02)
  1. ;;52959-0546-14
  1. ;;9002226.02101,"1225,52959-0546-15 ",.01)
  1. ;;52959-0546-15
  1. ;;9002226.02101,"1225,52959-0546-15 ",.02)
  1. ;;52959-0546-15
  1. ;;9002226.02101,"1225,52959-0546-20 ",.01)
  1. ;;52959-0546-20
  1. ;;9002226.02101,"1225,52959-0546-20 ",.02)
  1. ;;52959-0546-20
  1. ;;9002226.02101,"1225,52959-0546-28 ",.01)
  1. ;;52959-0546-28
  1. ;;9002226.02101,"1225,52959-0546-28 ",.02)
  1. ;;52959-0546-28
  1. ;;9002226.02101,"1225,52959-0968-12 ",.01)
  1. ;;52959-0968-12
  1. ;;9002226.02101,"1225,52959-0968-12 ",.02)
  1. ;;52959-0968-12
  1. ;;9002226.02101,"1225,52959-0969-03 ",.01)
  1. ;;52959-0969-03
  1. ;;9002226.02101,"1225,52959-0969-03 ",.02)
  1. ;;52959-0969-03
  1. ;;9002226.02101,"1225,53217-0052-06 ",.01)
  1. ;;53217-0052-06
  1. ;;9002226.02101,"1225,53217-0052-06 ",.02)
  1. ;;53217-0052-06
  1. ;;9002226.02101,"1225,54348-0618-09 ",.01)
  1. ;;54348-0618-09
  1. ;;9002226.02101,"1225,54348-0618-09 ",.02)
  1. ;;54348-0618-09
  1. ;;9002226.02101,"1225,54348-0619-02 ",.01)
  1. ;;54348-0619-02
  1. ;;9002226.02101,"1225,54348-0619-02 ",.02)
  1. ;;54348-0619-02
  1. ;;9002226.02101,"1225,54569-4054-00 ",.01)
  1. ;;54569-4054-00
  1. ;;9002226.02101,"1225,54569-4054-00 ",.02)
  1. ;;54569-4054-00
  1. ;;9002226.02101,"1225,54569-4221-00 ",.01)
  1. ;;54569-4221-00
  1. ;;9002226.02101,"1225,54569-4221-00 ",.02)
  1. ;;54569-4221-00
  1. ;;9002226.02101,"1225,54569-4333-00 ",.01)
  1. ;;54569-4333-00
  1. ;;9002226.02101,"1225,54569-4333-00 ",.02)
  1. ;;54569-4333-00
  1. ;;9002226.02101,"1225,54569-4524-00 ",.01)
  1. ;;54569-4524-00
  1. ;;9002226.02101,"1225,54569-4524-00 ",.02)
  1. ;;54569-4524-00
  1. ;;9002226.02101,"1225,54569-4524-03 ",.01)
  1. ;;54569-4524-03
  1. ;;9002226.02101,"1225,54569-4524-03 ",.02)
  1. ;;54569-4524-03
  1. ;;9002226.02101,"1225,54569-4543-03 ",.01)
  1. ;;54569-4543-03
  1. ;;9002226.02101,"1225,54569-4543-03 ",.02)
  1. ;;54569-4543-03
  1. ;;9002226.02101,"1225,54569-4561-00 ",.01)
  1. ;;54569-4561-00
  1. ;;9002226.02101,"1225,54569-4561-00 ",.02)
  1. ;;54569-4561-00
  1. ;;9002226.02101,"1225,54569-4611-00 ",.01)
  1. ;;54569-4611-00
  1. ;;9002226.02101,"1225,54569-4611-00 ",.02)
  1. ;;54569-4611-00
  1. ;;9002226.02101,"1225,54569-4883-00 ",.01)
  1. ;;54569-4883-00
  1. ;;9002226.02101,"1225,54569-4883-00 ",.02)
  1. ;;54569-4883-00
  1. ;;9002226.02101,"1225,54569-5191-00 ",.01)
  1. ;;54569-5191-00
  1. ;;9002226.02101,"1225,54569-5191-00 ",.02)
  1. ;;54569-5191-00
  1. ;;9002226.02101,"1225,54569-5334-00 ",.01)
  1. ;;54569-5334-00
  1. ;;9002226.02101,"1225,54569-5334-00 ",.02)
  1. ;;54569-5334-00
  1. ;;9002226.02101,"1225,54569-5374-00 ",.01)
  1. ;;54569-5374-00
  1. ;;9002226.02101,"1225,54569-5374-00 ",.02)
  1. ;;54569-5374-00
  1. ;;9002226.02101,"1225,54569-5390-00 ",.01)
  1. ;;54569-5390-00
  1. ;;9002226.02101,"1225,54569-5390-00 ",.02)
  1. ;;54569-5390-00
  1. ;;9002226.02101,"1225,54569-5480-00 ",.01)
  1. ;;54569-5480-00
  1. ;;9002226.02101,"1225,54569-5480-00 ",.02)
  1. ;;54569-5480-00
  1. ;;9002226.02101,"1225,54569-5501-00 ",.01)
  1. ;;54569-5501-00
  1. ;;9002226.02101,"1225,54569-5501-00 ",.02)
  1. ;;54569-5501-00
  1. ;;9002226.02101,"1225,54569-5504-00 ",.01)
  1. ;;54569-5504-00
  1. ;;9002226.02101,"1225,54569-5504-00 ",.02)
  1. ;;54569-5504-00
  1. ;;9002226.02101,"1225,54569-5521-00 ",.01)
  1. ;;54569-5521-00
  1. ;;9002226.02101,"1225,54569-5521-00 ",.02)
  1. ;;54569-5521-00
  1. ;;9002226.02101,"1225,54569-5525-00 ",.01)
  1. ;;54569-5525-00
  1. ;;9002226.02101,"1225,54569-5525-00 ",.02)
  1. ;;54569-5525-00
  1. ;;9002226.02101,"1225,54569-5530-00 ",.01)
  1. ;;54569-5530-00
  1. ;;9002226.02101,"1225,54569-5530-00 ",.02)
  1. ;;54569-5530-00
  1. ;;9002226.02101,"1225,54569-5532-00 ",.01)
  1. ;;54569-5532-00
  1. ;;9002226.02101,"1225,54569-5532-00 ",.02)
  1. ;;54569-5532-00
  1. ;;9002226.02101,"1225,54569-5550-00 ",.01)
  1. ;;54569-5550-00
  1. ;;9002226.02101,"1225,54569-5550-00 ",.02)
  1. ;;54569-5550-00