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

BGP71P8.m

Go to the documentation of this file.
BGP71P8 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;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,"1801,43353-0659-60 ",.02)
 ;;43353-0659-60
 ;;9002226.02101,"1801,43353-0659-80 ",.01)
 ;;43353-0659-80
 ;;9002226.02101,"1801,43353-0659-80 ",.02)
 ;;43353-0659-80
 ;;9002226.02101,"1801,43353-0687-60 ",.01)
 ;;43353-0687-60
 ;;9002226.02101,"1801,43353-0687-60 ",.02)
 ;;43353-0687-60
 ;;9002226.02101,"1801,43353-0688-60 ",.01)
 ;;43353-0688-60
 ;;9002226.02101,"1801,43353-0688-60 ",.02)
 ;;43353-0688-60
 ;;9002226.02101,"1801,45963-0753-02 ",.01)
 ;;45963-0753-02
 ;;9002226.02101,"1801,45963-0753-02 ",.02)
 ;;45963-0753-02
 ;;9002226.02101,"1801,47463-0091-30 ",.01)
 ;;47463-0091-30
 ;;9002226.02101,"1801,47463-0091-30 ",.02)
 ;;47463-0091-30
 ;;9002226.02101,"1801,47463-0092-30 ",.01)
 ;;47463-0092-30
 ;;9002226.02101,"1801,47463-0092-30 ",.02)
 ;;47463-0092-30
 ;;9002226.02101,"1801,47463-0093-30 ",.01)
 ;;47463-0093-30
 ;;9002226.02101,"1801,47463-0093-30 ",.02)
 ;;47463-0093-30
 ;;9002226.02101,"1801,47463-0225-30 ",.01)
 ;;47463-0225-30
 ;;9002226.02101,"1801,47463-0225-30 ",.02)
 ;;47463-0225-30
 ;;9002226.02101,"1801,47463-0248-90 ",.01)
 ;;47463-0248-90
 ;;9002226.02101,"1801,47463-0248-90 ",.02)
 ;;47463-0248-90
 ;;9002226.02101,"1801,47781-0204-04 ",.01)
 ;;47781-0204-04
 ;;9002226.02101,"1801,47781-0204-04 ",.02)
 ;;47781-0204-04
 ;;9002226.02101,"1801,47781-0204-11 ",.01)
 ;;47781-0204-11
 ;;9002226.02101,"1801,47781-0204-11 ",.02)
 ;;47781-0204-11
 ;;9002226.02101,"1801,47781-0205-04 ",.01)
 ;;47781-0205-04
 ;;9002226.02101,"1801,47781-0205-04 ",.02)
 ;;47781-0205-04
 ;;9002226.02101,"1801,47781-0206-04 ",.01)
 ;;47781-0206-04
 ;;9002226.02101,"1801,47781-0206-04 ",.02)
 ;;47781-0206-04
 ;;9002226.02101,"1801,47781-0207-04 ",.01)
 ;;47781-0207-04
 ;;9002226.02101,"1801,47781-0207-04 ",.02)
 ;;47781-0207-04
 ;;9002226.02101,"1801,47781-0208-04 ",.01)
 ;;47781-0208-04
 ;;9002226.02101,"1801,47781-0208-04 ",.02)
 ;;47781-0208-04
 ;;9002226.02101,"1801,47781-0208-11 ",.01)
 ;;47781-0208-11
 ;;9002226.02101,"1801,47781-0208-11 ",.02)
 ;;47781-0208-11
 ;;9002226.02101,"1801,47781-0209-04 ",.01)
 ;;47781-0209-04
 ;;9002226.02101,"1801,47781-0209-04 ",.02)
 ;;47781-0209-04
 ;;9002226.02101,"1801,49884-0230-69 ",.01)
 ;;49884-0230-69
 ;;9002226.02101,"1801,49884-0230-69 ",.02)
 ;;49884-0230-69
 ;;9002226.02101,"1801,49884-0289-01 ",.01)
 ;;49884-0289-01
 ;;9002226.02101,"1801,49884-0289-01 ",.02)
 ;;49884-0289-01
 ;;9002226.02101,"1801,49884-0290-01 ",.01)
 ;;49884-0290-01
 ;;9002226.02101,"1801,49884-0290-01 ",.02)
 ;;49884-0290-01
 ;;9002226.02101,"1801,49884-0290-04 ",.01)
 ;;49884-0290-04
 ;;9002226.02101,"1801,49884-0290-04 ",.02)
 ;;49884-0290-04
 ;;9002226.02101,"1801,49884-0290-05 ",.01)
 ;;49884-0290-05
 ;;9002226.02101,"1801,49884-0290-05 ",.02)
 ;;49884-0290-05
 ;;9002226.02101,"1801,49884-0907-38 ",.01)
 ;;49884-0907-38
 ;;9002226.02101,"1801,49884-0907-38 ",.02)
 ;;49884-0907-38
 ;;9002226.02101,"1801,49884-0907-61 ",.01)
 ;;49884-0907-61
 ;;9002226.02101,"1801,49884-0907-61 ",.02)
 ;;49884-0907-61
 ;;9002226.02101,"1801,49884-0949-69 ",.01)
 ;;49884-0949-69
 ;;9002226.02101,"1801,49884-0949-69 ",.02)
 ;;49884-0949-69
 ;;9002226.02101,"1801,49999-0083-30 ",.01)
 ;;49999-0083-30
 ;;9002226.02101,"1801,49999-0083-30 ",.02)
 ;;49999-0083-30
 ;;9002226.02101,"1801,49999-0083-90 ",.01)
 ;;49999-0083-90
 ;;9002226.02101,"1801,49999-0083-90 ",.02)
 ;;49999-0083-90
 ;;9002226.02101,"1801,49999-0109-00 ",.01)
 ;;49999-0109-00
 ;;9002226.02101,"1801,49999-0109-00 ",.02)
 ;;49999-0109-00
 ;;9002226.02101,"1801,49999-0109-30 ",.01)
 ;;49999-0109-30
 ;;9002226.02101,"1801,49999-0109-30 ",.02)
 ;;49999-0109-30
 ;;9002226.02101,"1801,49999-0109-90 ",.01)
 ;;49999-0109-90
 ;;9002226.02101,"1801,49999-0109-90 ",.02)
 ;;49999-0109-90
 ;;9002226.02101,"1801,49999-0113-00 ",.01)
 ;;49999-0113-00
 ;;9002226.02101,"1801,49999-0113-00 ",.02)
 ;;49999-0113-00
 ;;9002226.02101,"1801,49999-0113-01 ",.01)
 ;;49999-0113-01
 ;;9002226.02101,"1801,49999-0113-01 ",.02)
 ;;49999-0113-01
 ;;9002226.02101,"1801,49999-0113-30 ",.01)
 ;;49999-0113-30
 ;;9002226.02101,"1801,49999-0113-30 ",.02)
 ;;49999-0113-30
 ;;9002226.02101,"1801,49999-0113-60 ",.01)
 ;;49999-0113-60
 ;;9002226.02101,"1801,49999-0113-60 ",.02)
 ;;49999-0113-60
 ;;9002226.02101,"1801,49999-0113-90 ",.01)
 ;;49999-0113-90
 ;;9002226.02101,"1801,49999-0113-90 ",.02)
 ;;49999-0113-90
 ;;9002226.02101,"1801,49999-0281-00 ",.01)
 ;;49999-0281-00
 ;;9002226.02101,"1801,49999-0281-00 ",.02)
 ;;49999-0281-00
 ;;9002226.02101,"1801,49999-0282-28 ",.01)
 ;;49999-0282-28
 ;;9002226.02101,"1801,49999-0282-28 ",.02)
 ;;49999-0282-28
 ;;9002226.02101,"1801,49999-0282-60 ",.01)
 ;;49999-0282-60
 ;;9002226.02101,"1801,49999-0282-60 ",.02)
 ;;49999-0282-60
 ;;9002226.02101,"1801,49999-0288-28 ",.01)
 ;;49999-0288-28
 ;;9002226.02101,"1801,49999-0288-28 ",.02)
 ;;49999-0288-28
 ;;9002226.02101,"1801,49999-0288-30 ",.01)
 ;;49999-0288-30
 ;;9002226.02101,"1801,49999-0288-30 ",.02)
 ;;49999-0288-30
 ;;9002226.02101,"1801,49999-0288-60 ",.01)
 ;;49999-0288-60
 ;;9002226.02101,"1801,49999-0288-60 ",.02)
 ;;49999-0288-60
 ;;9002226.02101,"1801,49999-0289-60 ",.01)
 ;;49999-0289-60
 ;;9002226.02101,"1801,49999-0289-60 ",.02)
 ;;49999-0289-60
 ;;9002226.02101,"1801,49999-0401-30 ",.01)
 ;;49999-0401-30
 ;;9002226.02101,"1801,49999-0401-30 ",.02)
 ;;49999-0401-30
 ;;9002226.02101,"1801,49999-0401-60 ",.01)
 ;;49999-0401-60
 ;;9002226.02101,"1801,49999-0401-60 ",.02)
 ;;49999-0401-60
 ;;9002226.02101,"1801,49999-0401-90 ",.01)
 ;;49999-0401-90
 ;;9002226.02101,"1801,49999-0401-90 ",.02)
 ;;49999-0401-90
 ;;9002226.02101,"1801,49999-0571-60 ",.01)
 ;;49999-0571-60
 ;;9002226.02101,"1801,49999-0571-60 ",.02)
 ;;49999-0571-60
 ;;9002226.02101,"1801,49999-0660-30 ",.01)
 ;;49999-0660-30
 ;;9002226.02101,"1801,49999-0660-30 ",.02)
 ;;49999-0660-30
 ;;9002226.02101,"1801,49999-0660-60 ",.01)
 ;;49999-0660-60
 ;;9002226.02101,"1801,49999-0660-60 ",.02)
 ;;49999-0660-60
 ;;9002226.02101,"1801,49999-0702-28 ",.01)
 ;;49999-0702-28
 ;;9002226.02101,"1801,49999-0702-28 ",.02)
 ;;49999-0702-28
 ;;9002226.02101,"1801,49999-0702-30 ",.01)
 ;;49999-0702-30
 ;;9002226.02101,"1801,49999-0702-30 ",.02)
 ;;49999-0702-30
 ;;9002226.02101,"1801,49999-0808-00 ",.01)
 ;;49999-0808-00
 ;;9002226.02101,"1801,49999-0808-00 ",.02)
 ;;49999-0808-00
 ;;9002226.02101,"1801,50220-0001-01 ",.01)
 ;;50220-0001-01
 ;;9002226.02101,"1801,50220-0001-01 ",.02)
 ;;50220-0001-01
 ;;9002226.02101,"1801,50220-0002-01 ",.01)
 ;;50220-0002-01
 ;;9002226.02101,"1801,50220-0002-01 ",.02)
 ;;50220-0002-01
 ;;9002226.02101,"1801,50268-0290-11 ",.01)
 ;;50268-0290-11
 ;;9002226.02101,"1801,50268-0290-11 ",.02)
 ;;50268-0290-11
 ;;9002226.02101,"1801,50268-0290-15 ",.01)
 ;;50268-0290-15
 ;;9002226.02101,"1801,50268-0290-15 ",.02)
 ;;50268-0290-15
 ;;9002226.02101,"1801,50268-0291-11 ",.01)
 ;;50268-0291-11
 ;;9002226.02101,"1801,50268-0291-11 ",.02)
 ;;50268-0291-11
 ;;9002226.02101,"1801,50268-0291-15 ",.01)
 ;;50268-0291-15
 ;;9002226.02101,"1801,50268-0291-15 ",.02)
 ;;50268-0291-15
 ;;9002226.02101,"1801,50268-0292-11 ",.01)
 ;;50268-0292-11
 ;;9002226.02101,"1801,50268-0292-11 ",.02)
 ;;50268-0292-11
 ;;9002226.02101,"1801,50268-0292-15 ",.01)
 ;;50268-0292-15
 ;;9002226.02101,"1801,50268-0292-15 ",.02)
 ;;50268-0292-15
 ;;9002226.02101,"1801,50419-0451-01 ",.01)
 ;;50419-0451-01
 ;;9002226.02101,"1801,50419-0451-01 ",.02)
 ;;50419-0451-01
 ;;9002226.02101,"1801,50419-0451-04 ",.01)
 ;;50419-0451-04
 ;;9002226.02101,"1801,50419-0451-04 ",.02)
 ;;50419-0451-04
 ;;9002226.02101,"1801,50419-0452-01 ",.01)
 ;;50419-0452-01
 ;;9002226.02101,"1801,50419-0452-01 ",.02)
 ;;50419-0452-01
 ;;9002226.02101,"1801,50419-0452-04 ",.01)
 ;;50419-0452-04
 ;;9002226.02101,"1801,50419-0452-04 ",.02)
 ;;50419-0452-04
 ;;9002226.02101,"1801,50419-0453-04 ",.01)
 ;;50419-0453-04
 ;;9002226.02101,"1801,50419-0453-04 ",.02)
 ;;50419-0453-04
 ;;9002226.02101,"1801,50419-0454-04 ",.01)
 ;;50419-0454-04
 ;;9002226.02101,"1801,50419-0454-04 ",.02)
 ;;50419-0454-04
 ;;9002226.02101,"1801,50419-0455-04 ",.01)
 ;;50419-0455-04
 ;;9002226.02101,"1801,50419-0455-04 ",.02)
 ;;50419-0455-04
 ;;9002226.02101,"1801,50419-0456-04 ",.01)
 ;;50419-0456-04
 ;;9002226.02101,"1801,50419-0456-04 ",.02)
 ;;50419-0456-04
 ;;9002226.02101,"1801,50419-0459-04 ",.01)
 ;;50419-0459-04
 ;;9002226.02101,"1801,50419-0459-04 ",.02)
 ;;50419-0459-04
 ;;9002226.02101,"1801,50419-0482-01 ",.01)
 ;;50419-0482-01
 ;;9002226.02101,"1801,50419-0482-01 ",.02)
 ;;50419-0482-01
 ;;9002226.02101,"1801,50419-0482-03 ",.01)
 ;;50419-0482-03
 ;;9002226.02101,"1801,50419-0482-03 ",.02)
 ;;50419-0482-03
 ;;9002226.02101,"1801,50419-0483-01 ",.01)
 ;;50419-0483-01
 ;;9002226.02101,"1801,50419-0483-01 ",.02)
 ;;50419-0483-01
 ;;9002226.02101,"1801,50419-0483-03 ",.01)
 ;;50419-0483-03
 ;;9002226.02101,"1801,50419-0483-03 ",.02)
 ;;50419-0483-03
 ;;9002226.02101,"1801,50419-0491-04 ",.01)
 ;;50419-0491-04
 ;;9002226.02101,"1801,50419-0491-04 ",.02)
 ;;50419-0491-04
 ;;9002226.02101,"1801,50488-3002-01 ",.01)
 ;;50488-3002-01
 ;;9002226.02101,"1801,50488-3002-01 ",.02)
 ;;50488-3002-01
 ;;9002226.02101,"1801,51079-0434-01 ",.01)
 ;;51079-0434-01
 ;;9002226.02101,"1801,51079-0434-01 ",.02)
 ;;51079-0434-01
 ;;9002226.02101,"1801,51079-0434-20 ",.01)
 ;;51079-0434-20
 ;;9002226.02101,"1801,51079-0434-20 ",.02)
 ;;51079-0434-20
 ;;9002226.02101,"1801,51079-0435-01 ",.01)
 ;;51079-0435-01
 ;;9002226.02101,"1801,51079-0435-01 ",.02)
 ;;51079-0435-01
 ;;9002226.02101,"1801,51079-0435-20 ",.01)
 ;;51079-0435-20
 ;;9002226.02101,"1801,51079-0435-20 ",.02)
 ;;51079-0435-20
 ;;9002226.02101,"1801,51079-0872-01 ",.01)
 ;;51079-0872-01
 ;;9002226.02101,"1801,51079-0872-01 ",.02)
 ;;51079-0872-01
 ;;9002226.02101,"1801,51079-0872-20 ",.01)
 ;;51079-0872-20
 ;;9002226.02101,"1801,51079-0872-20 ",.02)
 ;;51079-0872-20
 ;;9002226.02101,"1801,51079-0873-01 ",.01)
 ;;51079-0873-01
 ;;9002226.02101,"1801,51079-0873-01 ",.02)
 ;;51079-0873-01
 ;;9002226.02101,"1801,51079-0873-17 ",.01)
 ;;51079-0873-17
 ;;9002226.02101,"1801,51079-0873-17 ",.02)
 ;;51079-0873-17
 ;;9002226.02101,"1801,51079-0873-19 ",.01)
 ;;51079-0873-19
 ;;9002226.02101,"1801,51079-0873-19 ",.02)
 ;;51079-0873-19
 ;;9002226.02101,"1801,51079-0873-20 ",.01)
 ;;51079-0873-20
 ;;9002226.02101,"1801,51079-0873-20 ",.02)
 ;;51079-0873-20
 ;;9002226.02101,"1801,51138-0037-30 ",.01)
 ;;51138-0037-30
 ;;9002226.02101,"1801,51138-0037-30 ",.02)
 ;;51138-0037-30
 ;;9002226.02101,"1801,51138-0050-30 ",.01)
 ;;51138-0050-30
 ;;9002226.02101,"1801,51138-0050-30 ",.02)
 ;;51138-0050-30
 ;;9002226.02101,"1801,51138-0051-30 ",.01)
 ;;51138-0051-30
 ;;9002226.02101,"1801,51138-0051-30 ",.02)
 ;;51138-0051-30
 ;;9002226.02101,"1801,51138-0367-30 ",.01)
 ;;51138-0367-30
 ;;9002226.02101,"1801,51138-0367-30 ",.02)
 ;;51138-0367-30
 ;;9002226.02101,"1801,51138-0368-30 ",.01)
 ;;51138-0368-30
 ;;9002226.02101,"1801,51138-0368-30 ",.02)
 ;;51138-0368-30
 ;;9002226.02101,"1801,51138-0369-30 ",.01)
 ;;51138-0369-30
 ;;9002226.02101,"1801,51138-0369-30 ",.02)
 ;;51138-0369-30
 ;;9002226.02101,"1801,51138-0370-30 ",.01)
 ;;51138-0370-30
 ;;9002226.02101,"1801,51138-0370-30 ",.02)
 ;;51138-0370-30
 ;;9002226.02101,"1801,51138-0371-30 ",.01)
 ;;51138-0371-30
 ;;9002226.02101,"1801,51138-0371-30 ",.02)
 ;;51138-0371-30
 ;;9002226.02101,"1801,51138-0372-10 ",.01)
 ;;51138-0372-10
 ;;9002226.02101,"1801,51138-0372-10 ",.02)
 ;;51138-0372-10
 ;;9002226.02101,"1801,51138-0372-30 ",.01)
 ;;51138-0372-30
 ;;9002226.02101,"1801,51138-0372-30 ",.02)
 ;;51138-0372-30