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

BGP47P11.m

Go to the documentation of this file.
BGP47P11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"806,43353-0656-60 ",.01)
 ;;43353-0656-60
 ;;9002226.02101,"806,43353-0656-60 ",.02)
 ;;43353-0656-60
 ;;9002226.02101,"806,43353-0656-70 ",.01)
 ;;43353-0656-70
 ;;9002226.02101,"806,43353-0656-70 ",.02)
 ;;43353-0656-70
 ;;9002226.02101,"806,43353-0656-80 ",.01)
 ;;43353-0656-80
 ;;9002226.02101,"806,43353-0656-80 ",.02)
 ;;43353-0656-80
 ;;9002226.02101,"806,43353-0656-90 ",.01)
 ;;43353-0656-90
 ;;9002226.02101,"806,43353-0656-90 ",.02)
 ;;43353-0656-90
 ;;9002226.02101,"806,43353-0656-92 ",.01)
 ;;43353-0656-92
 ;;9002226.02101,"806,43353-0656-92 ",.02)
 ;;43353-0656-92
 ;;9002226.02101,"806,43353-0656-94 ",.01)
 ;;43353-0656-94
 ;;9002226.02101,"806,43353-0656-94 ",.02)
 ;;43353-0656-94
 ;;9002226.02101,"806,43353-0659-60 ",.01)
 ;;43353-0659-60
 ;;9002226.02101,"806,43353-0659-60 ",.02)
 ;;43353-0659-60
 ;;9002226.02101,"806,43353-0659-80 ",.01)
 ;;43353-0659-80
 ;;9002226.02101,"806,43353-0659-80 ",.02)
 ;;43353-0659-80
 ;;9002226.02101,"806,43353-0687-60 ",.01)
 ;;43353-0687-60
 ;;9002226.02101,"806,43353-0687-60 ",.02)
 ;;43353-0687-60
 ;;9002226.02101,"806,43353-0688-60 ",.01)
 ;;43353-0688-60
 ;;9002226.02101,"806,43353-0688-60 ",.02)
 ;;43353-0688-60
 ;;9002226.02101,"806,45963-0753-02 ",.01)
 ;;45963-0753-02
 ;;9002226.02101,"806,45963-0753-02 ",.02)
 ;;45963-0753-02
 ;;9002226.02101,"806,47463-0091-30 ",.01)
 ;;47463-0091-30
 ;;9002226.02101,"806,47463-0091-30 ",.02)
 ;;47463-0091-30
 ;;9002226.02101,"806,47463-0092-30 ",.01)
 ;;47463-0092-30
 ;;9002226.02101,"806,47463-0092-30 ",.02)
 ;;47463-0092-30
 ;;9002226.02101,"806,47463-0093-30 ",.01)
 ;;47463-0093-30
 ;;9002226.02101,"806,47463-0093-30 ",.02)
 ;;47463-0093-30
 ;;9002226.02101,"806,47463-0225-30 ",.01)
 ;;47463-0225-30
 ;;9002226.02101,"806,47463-0225-30 ",.02)
 ;;47463-0225-30
 ;;9002226.02101,"806,47463-0248-90 ",.01)
 ;;47463-0248-90
 ;;9002226.02101,"806,47463-0248-90 ",.02)
 ;;47463-0248-90
 ;;9002226.02101,"806,47781-0204-04 ",.01)
 ;;47781-0204-04
 ;;9002226.02101,"806,47781-0204-04 ",.02)
 ;;47781-0204-04
 ;;9002226.02101,"806,47781-0205-04 ",.01)
 ;;47781-0205-04
 ;;9002226.02101,"806,47781-0205-04 ",.02)
 ;;47781-0205-04
 ;;9002226.02101,"806,47781-0206-04 ",.01)
 ;;47781-0206-04
 ;;9002226.02101,"806,47781-0206-04 ",.02)
 ;;47781-0206-04
 ;;9002226.02101,"806,47781-0207-04 ",.01)
 ;;47781-0207-04
 ;;9002226.02101,"806,47781-0207-04 ",.02)
 ;;47781-0207-04
 ;;9002226.02101,"806,47781-0208-04 ",.01)
 ;;47781-0208-04
 ;;9002226.02101,"806,47781-0208-04 ",.02)
 ;;47781-0208-04
 ;;9002226.02101,"806,47781-0209-04 ",.01)
 ;;47781-0209-04
 ;;9002226.02101,"806,47781-0209-04 ",.02)
 ;;47781-0209-04
 ;;9002226.02101,"806,49483-0021-01 ",.01)
 ;;49483-0021-01
 ;;9002226.02101,"806,49483-0021-01 ",.02)
 ;;49483-0021-01
 ;;9002226.02101,"806,49483-0021-10 ",.01)
 ;;49483-0021-10
 ;;9002226.02101,"806,49483-0021-10 ",.02)
 ;;49483-0021-10
 ;;9002226.02101,"806,49483-0022-01 ",.01)
 ;;49483-0022-01
 ;;9002226.02101,"806,49483-0022-01 ",.02)
 ;;49483-0022-01
 ;;9002226.02101,"806,49483-0022-10 ",.01)
 ;;49483-0022-10
 ;;9002226.02101,"806,49483-0022-10 ",.02)
 ;;49483-0022-10
 ;;9002226.02101,"806,49483-0023-01 ",.01)
 ;;49483-0023-01
 ;;9002226.02101,"806,49483-0023-01 ",.02)
 ;;49483-0023-01
 ;;9002226.02101,"806,49483-0023-10 ",.01)
 ;;49483-0023-10
 ;;9002226.02101,"806,49483-0023-10 ",.02)
 ;;49483-0023-10
 ;;9002226.02101,"806,49483-0038-01 ",.01)
 ;;49483-0038-01
 ;;9002226.02101,"806,49483-0038-01 ",.02)
 ;;49483-0038-01
 ;;9002226.02101,"806,49483-0038-10 ",.01)
 ;;49483-0038-10
 ;;9002226.02101,"806,49483-0038-10 ",.02)
 ;;49483-0038-10
 ;;9002226.02101,"806,49884-0289-01 ",.01)
 ;;49884-0289-01
 ;;9002226.02101,"806,49884-0289-01 ",.02)
 ;;49884-0289-01
 ;;9002226.02101,"806,49884-0290-01 ",.01)
 ;;49884-0290-01
 ;;9002226.02101,"806,49884-0290-01 ",.02)
 ;;49884-0290-01
 ;;9002226.02101,"806,49884-0290-04 ",.01)
 ;;49884-0290-04
 ;;9002226.02101,"806,49884-0290-04 ",.02)
 ;;49884-0290-04
 ;;9002226.02101,"806,49884-0290-05 ",.01)
 ;;49884-0290-05
 ;;9002226.02101,"806,49884-0290-05 ",.02)
 ;;49884-0290-05
 ;;9002226.02101,"806,49884-0907-38 ",.01)
 ;;49884-0907-38
 ;;9002226.02101,"806,49884-0907-38 ",.02)
 ;;49884-0907-38
 ;;9002226.02101,"806,49884-0907-61 ",.01)
 ;;49884-0907-61
 ;;9002226.02101,"806,49884-0907-61 ",.02)
 ;;49884-0907-61
 ;;9002226.02101,"806,49884-0907-88 ",.01)
 ;;49884-0907-88
 ;;9002226.02101,"806,49884-0907-88 ",.02)
 ;;49884-0907-88
 ;;9002226.02101,"806,49884-0949-11 ",.01)
 ;;49884-0949-11
 ;;9002226.02101,"806,49884-0949-11 ",.02)
 ;;49884-0949-11
 ;;9002226.02101,"806,49884-0949-52 ",.01)
 ;;49884-0949-52
 ;;9002226.02101,"806,49884-0949-52 ",.02)
 ;;49884-0949-52
 ;;9002226.02101,"806,49884-0949-69 ",.01)
 ;;49884-0949-69
 ;;9002226.02101,"806,49884-0949-69 ",.02)
 ;;49884-0949-69
 ;;9002226.02101,"806,49884-0967-01 ",.01)
 ;;49884-0967-01
 ;;9002226.02101,"806,49884-0967-01 ",.02)
 ;;49884-0967-01
 ;;9002226.02101,"806,49884-0967-05 ",.01)
 ;;49884-0967-05
 ;;9002226.02101,"806,49884-0967-05 ",.02)
 ;;49884-0967-05
 ;;9002226.02101,"806,49884-0968-01 ",.01)
 ;;49884-0968-01
 ;;9002226.02101,"806,49884-0968-01 ",.02)
 ;;49884-0968-01
 ;;9002226.02101,"806,49884-0968-05 ",.01)
 ;;49884-0968-05
 ;;9002226.02101,"806,49884-0968-05 ",.02)
 ;;49884-0968-05
 ;;9002226.02101,"806,49884-0969-01 ",.01)
 ;;49884-0969-01
 ;;9002226.02101,"806,49884-0969-01 ",.02)
 ;;49884-0969-01
 ;;9002226.02101,"806,49884-0969-05 ",.01)
 ;;49884-0969-05
 ;;9002226.02101,"806,49884-0969-05 ",.02)
 ;;49884-0969-05
 ;;9002226.02101,"806,49999-0083-30 ",.01)
 ;;49999-0083-30
 ;;9002226.02101,"806,49999-0083-30 ",.02)
 ;;49999-0083-30
 ;;9002226.02101,"806,49999-0084-30 ",.01)
 ;;49999-0084-30
 ;;9002226.02101,"806,49999-0084-30 ",.02)
 ;;49999-0084-30
 ;;9002226.02101,"806,49999-0084-60 ",.01)
 ;;49999-0084-60
 ;;9002226.02101,"806,49999-0084-60 ",.02)
 ;;49999-0084-60
 ;;9002226.02101,"806,49999-0088-28 ",.01)
 ;;49999-0088-28
 ;;9002226.02101,"806,49999-0088-28 ",.02)
 ;;49999-0088-28
 ;;9002226.02101,"806,49999-0088-60 ",.01)
 ;;49999-0088-60
 ;;9002226.02101,"806,49999-0088-60 ",.02)
 ;;49999-0088-60
 ;;9002226.02101,"806,49999-0109-00 ",.01)
 ;;49999-0109-00
 ;;9002226.02101,"806,49999-0109-00 ",.02)
 ;;49999-0109-00
 ;;9002226.02101,"806,49999-0109-30 ",.01)
 ;;49999-0109-30
 ;;9002226.02101,"806,49999-0109-30 ",.02)
 ;;49999-0109-30
 ;;9002226.02101,"806,49999-0109-90 ",.01)
 ;;49999-0109-90
 ;;9002226.02101,"806,49999-0109-90 ",.02)
 ;;49999-0109-90
 ;;9002226.02101,"806,49999-0113-00 ",.01)
 ;;49999-0113-00
 ;;9002226.02101,"806,49999-0113-00 ",.02)
 ;;49999-0113-00
 ;;9002226.02101,"806,49999-0113-01 ",.01)
 ;;49999-0113-01
 ;;9002226.02101,"806,49999-0113-01 ",.02)
 ;;49999-0113-01
 ;;9002226.02101,"806,49999-0113-30 ",.01)
 ;;49999-0113-30
 ;;9002226.02101,"806,49999-0113-30 ",.02)
 ;;49999-0113-30
 ;;9002226.02101,"806,49999-0113-60 ",.01)
 ;;49999-0113-60
 ;;9002226.02101,"806,49999-0113-60 ",.02)
 ;;49999-0113-60
 ;;9002226.02101,"806,49999-0113-90 ",.01)
 ;;49999-0113-90
 ;;9002226.02101,"806,49999-0113-90 ",.02)
 ;;49999-0113-90
 ;;9002226.02101,"806,49999-0281-00 ",.01)
 ;;49999-0281-00
 ;;9002226.02101,"806,49999-0281-00 ",.02)
 ;;49999-0281-00
 ;;9002226.02101,"806,49999-0282-00 ",.01)
 ;;49999-0282-00
 ;;9002226.02101,"806,49999-0282-00 ",.02)
 ;;49999-0282-00
 ;;9002226.02101,"806,49999-0282-28 ",.01)
 ;;49999-0282-28
 ;;9002226.02101,"806,49999-0282-28 ",.02)
 ;;49999-0282-28
 ;;9002226.02101,"806,49999-0282-60 ",.01)
 ;;49999-0282-60
 ;;9002226.02101,"806,49999-0282-60 ",.02)
 ;;49999-0282-60
 ;;9002226.02101,"806,49999-0288-00 ",.01)
 ;;49999-0288-00
 ;;9002226.02101,"806,49999-0288-00 ",.02)
 ;;49999-0288-00
 ;;9002226.02101,"806,49999-0288-28 ",.01)
 ;;49999-0288-28
 ;;9002226.02101,"806,49999-0288-28 ",.02)
 ;;49999-0288-28
 ;;9002226.02101,"806,49999-0288-30 ",.01)
 ;;49999-0288-30
 ;;9002226.02101,"806,49999-0288-30 ",.02)
 ;;49999-0288-30
 ;;9002226.02101,"806,49999-0288-60 ",.01)
 ;;49999-0288-60
 ;;9002226.02101,"806,49999-0288-60 ",.02)
 ;;49999-0288-60
 ;;9002226.02101,"806,49999-0289-60 ",.01)
 ;;49999-0289-60
 ;;9002226.02101,"806,49999-0289-60 ",.02)
 ;;49999-0289-60
 ;;9002226.02101,"806,49999-0401-30 ",.01)
 ;;49999-0401-30
 ;;9002226.02101,"806,49999-0401-30 ",.02)
 ;;49999-0401-30
 ;;9002226.02101,"806,49999-0401-60 ",.01)
 ;;49999-0401-60
 ;;9002226.02101,"806,49999-0401-60 ",.02)
 ;;49999-0401-60
 ;;9002226.02101,"806,49999-0401-90 ",.01)
 ;;49999-0401-90
 ;;9002226.02101,"806,49999-0401-90 ",.02)
 ;;49999-0401-90
 ;;9002226.02101,"806,49999-0571-60 ",.01)
 ;;49999-0571-60
 ;;9002226.02101,"806,49999-0571-60 ",.02)
 ;;49999-0571-60
 ;;9002226.02101,"806,49999-0660-30 ",.01)
 ;;49999-0660-30
 ;;9002226.02101,"806,49999-0660-30 ",.02)
 ;;49999-0660-30
 ;;9002226.02101,"806,49999-0660-60 ",.01)
 ;;49999-0660-60
 ;;9002226.02101,"806,49999-0660-60 ",.02)
 ;;49999-0660-60
 ;;9002226.02101,"806,49999-0702-28 ",.01)
 ;;49999-0702-28
 ;;9002226.02101,"806,49999-0702-28 ",.02)
 ;;49999-0702-28
 ;;9002226.02101,"806,49999-0702-30 ",.01)
 ;;49999-0702-30
 ;;9002226.02101,"806,49999-0702-30 ",.02)
 ;;49999-0702-30
 ;;9002226.02101,"806,49999-0808-00 ",.01)
 ;;49999-0808-00
 ;;9002226.02101,"806,49999-0808-00 ",.02)
 ;;49999-0808-00
 ;;9002226.02101,"806,50111-0372-01 ",.01)
 ;;50111-0372-01
 ;;9002226.02101,"806,50111-0372-01 ",.02)
 ;;50111-0372-01
 ;;9002226.02101,"806,50111-0372-03 ",.01)
 ;;50111-0372-03
 ;;9002226.02101,"806,50111-0372-03 ",.02)
 ;;50111-0372-03
 ;;9002226.02101,"806,50111-0373-01 ",.01)
 ;;50111-0373-01
 ;;9002226.02101,"806,50111-0373-01 ",.02)
 ;;50111-0373-01
 ;;9002226.02101,"806,50111-0373-03 ",.01)
 ;;50111-0373-03
 ;;9002226.02101,"806,50111-0373-03 ",.02)
 ;;50111-0373-03
 ;;9002226.02101,"806,50220-0001-01 ",.01)
 ;;50220-0001-01
 ;;9002226.02101,"806,50220-0001-01 ",.02)
 ;;50220-0001-01
 ;;9002226.02101,"806,50220-0002-01 ",.01)
 ;;50220-0002-01
 ;;9002226.02101,"806,50220-0002-01 ",.02)
 ;;50220-0002-01
 ;;9002226.02101,"806,50419-0451-01 ",.01)
 ;;50419-0451-01
 ;;9002226.02101,"806,50419-0451-01 ",.02)
 ;;50419-0451-01
 ;;9002226.02101,"806,50419-0451-04 ",.01)
 ;;50419-0451-04
 ;;9002226.02101,"806,50419-0451-04 ",.02)
 ;;50419-0451-04
 ;;9002226.02101,"806,50419-0452-01 ",.01)
 ;;50419-0452-01
 ;;9002226.02101,"806,50419-0452-01 ",.02)
 ;;50419-0452-01
 ;;9002226.02101,"806,50419-0452-04 ",.01)
 ;;50419-0452-04
 ;;9002226.02101,"806,50419-0452-04 ",.02)
 ;;50419-0452-04
 ;;9002226.02101,"806,50419-0453-04 ",.01)
 ;;50419-0453-04
 ;;9002226.02101,"806,50419-0453-04 ",.02)
 ;;50419-0453-04
 ;;9002226.02101,"806,50419-0454-04 ",.01)
 ;;50419-0454-04
 ;;9002226.02101,"806,50419-0454-04 ",.02)
 ;;50419-0454-04
 ;;9002226.02101,"806,50419-0455-04 ",.01)
 ;;50419-0455-04
 ;;9002226.02101,"806,50419-0455-04 ",.02)
 ;;50419-0455-04
 ;;9002226.02101,"806,50419-0456-04 ",.01)
 ;;50419-0456-04
 ;;9002226.02101,"806,50419-0456-04 ",.02)
 ;;50419-0456-04
 ;;9002226.02101,"806,50419-0459-04 ",.01)
 ;;50419-0459-04
 ;;9002226.02101,"806,50419-0459-04 ",.02)
 ;;50419-0459-04
 ;;9002226.02101,"806,50419-0482-01 ",.01)
 ;;50419-0482-01
 ;;9002226.02101,"806,50419-0482-01 ",.02)
 ;;50419-0482-01
 ;;9002226.02101,"806,50419-0482-03 ",.01)
 ;;50419-0482-03
 ;;9002226.02101,"806,50419-0482-03 ",.02)
 ;;50419-0482-03
 ;;9002226.02101,"806,50419-0483-01 ",.01)
 ;;50419-0483-01
 ;;9002226.02101,"806,50419-0483-01 ",.02)
 ;;50419-0483-01
 ;;9002226.02101,"806,50419-0483-03 ",.01)
 ;;50419-0483-03
 ;;9002226.02101,"806,50419-0483-03 ",.02)
 ;;50419-0483-03
 ;;9002226.02101,"806,50419-0491-04 ",.01)
 ;;50419-0491-04
 ;;9002226.02101,"806,50419-0491-04 ",.02)
 ;;50419-0491-04
 ;;9002226.02101,"806,51079-0202-01 ",.01)
 ;;51079-0202-01
 ;;9002226.02101,"806,51079-0202-01 ",.02)
 ;;51079-0202-01
 ;;9002226.02101,"806,51079-0202-20 ",.01)
 ;;51079-0202-20
 ;;9002226.02101,"806,51079-0202-20 ",.02)
 ;;51079-0202-20
 ;;9002226.02101,"806,51079-0203-01 ",.01)
 ;;51079-0203-01
 ;;9002226.02101,"806,51079-0203-01 ",.02)
 ;;51079-0203-01
 ;;9002226.02101,"806,51079-0203-20 ",.01)
 ;;51079-0203-20
 ;;9002226.02101,"806,51079-0203-20 ",.02)
 ;;51079-0203-20
 ;;9002226.02101,"806,51079-0434-01 ",.01)
 ;;51079-0434-01
 ;;9002226.02101,"806,51079-0434-01 ",.02)
 ;;51079-0434-01
 ;;9002226.02101,"806,51079-0434-20 ",.01)
 ;;51079-0434-20
 ;;9002226.02101,"806,51079-0434-20 ",.02)
 ;;51079-0434-20
 ;;9002226.02101,"806,51079-0435-01 ",.01)
 ;;51079-0435-01
 ;;9002226.02101,"806,51079-0435-01 ",.02)
 ;;51079-0435-01
 ;;9002226.02101,"806,51079-0435-17 ",.01)
 ;;51079-0435-17
 ;;9002226.02101,"806,51079-0435-17 ",.02)
 ;;51079-0435-17
 ;;9002226.02101,"806,51079-0435-19 ",.01)
 ;;51079-0435-19
 ;;9002226.02101,"806,51079-0435-19 ",.02)
 ;;51079-0435-19
 ;;9002226.02101,"806,51079-0435-20 ",.01)
 ;;51079-0435-20
 ;;9002226.02101,"806,51079-0435-20 ",.02)
 ;;51079-0435-20
 ;;9002226.02101,"806,51079-0872-01 ",.01)
 ;;51079-0872-01
 ;;9002226.02101,"806,51079-0872-01 ",.02)
 ;;51079-0872-01
 ;;9002226.02101,"806,51079-0872-17 ",.01)
 ;;51079-0872-17
 ;;9002226.02101,"806,51079-0872-17 ",.02)
 ;;51079-0872-17
 ;;9002226.02101,"806,51079-0872-19 ",.01)
 ;;51079-0872-19
 ;;9002226.02101,"806,51079-0872-19 ",.02)
 ;;51079-0872-19
 ;;9002226.02101,"806,51079-0872-20 ",.01)
 ;;51079-0872-20
 ;;9002226.02101,"806,51079-0872-20 ",.02)
 ;;51079-0872-20