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

BGP51L7.m

Go to the documentation of this file.
BGP51L7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,35356-0932-60 ",.02)
 ;;35356-0932-60
 ;;9002226.02101,"806,35356-0932-90 ",.01)
 ;;35356-0932-90
 ;;9002226.02101,"806,35356-0932-90 ",.02)
 ;;35356-0932-90
 ;;9002226.02101,"806,35356-0995-30 ",.01)
 ;;35356-0995-30
 ;;9002226.02101,"806,35356-0995-30 ",.02)
 ;;35356-0995-30
 ;;9002226.02101,"806,35356-0995-60 ",.01)
 ;;35356-0995-60
 ;;9002226.02101,"806,35356-0995-60 ",.02)
 ;;35356-0995-60
 ;;9002226.02101,"806,35356-0995-90 ",.01)
 ;;35356-0995-90
 ;;9002226.02101,"806,35356-0995-90 ",.02)
 ;;35356-0995-90
 ;;9002226.02101,"806,42192-0329-01 ",.01)
 ;;42192-0329-01
 ;;9002226.02101,"806,42192-0329-01 ",.02)
 ;;42192-0329-01
 ;;9002226.02101,"806,42192-0330-01 ",.01)
 ;;42192-0330-01
 ;;9002226.02101,"806,42192-0330-01 ",.02)
 ;;42192-0330-01
 ;;9002226.02101,"806,42192-0331-01 ",.01)
 ;;42192-0331-01
 ;;9002226.02101,"806,42192-0331-01 ",.02)
 ;;42192-0331-01
 ;;9002226.02101,"806,42254-0071-30 ",.01)
 ;;42254-0071-30
 ;;9002226.02101,"806,42254-0071-30 ",.02)
 ;;42254-0071-30
 ;;9002226.02101,"806,42254-0090-30 ",.01)
 ;;42254-0090-30
 ;;9002226.02101,"806,42254-0090-30 ",.02)
 ;;42254-0090-30
 ;;9002226.02101,"806,42254-0090-60 ",.01)
 ;;42254-0090-60
 ;;9002226.02101,"806,42254-0090-60 ",.02)
 ;;42254-0090-60
 ;;9002226.02101,"806,42254-0090-90 ",.01)
 ;;42254-0090-90
 ;;9002226.02101,"806,42254-0090-90 ",.02)
 ;;42254-0090-90
 ;;9002226.02101,"806,42254-0104-30 ",.01)
 ;;42254-0104-30
 ;;9002226.02101,"806,42254-0104-30 ",.02)
 ;;42254-0104-30
 ;;9002226.02101,"806,42254-0105-30 ",.01)
 ;;42254-0105-30
 ;;9002226.02101,"806,42254-0105-30 ",.02)
 ;;42254-0105-30
 ;;9002226.02101,"806,42254-0281-30 ",.01)
 ;;42254-0281-30
 ;;9002226.02101,"806,42254-0281-30 ",.02)
 ;;42254-0281-30
 ;;9002226.02101,"806,42254-0281-90 ",.01)
 ;;42254-0281-90
 ;;9002226.02101,"806,42254-0281-90 ",.02)
 ;;42254-0281-90
 ;;9002226.02101,"806,43063-0119-90 ",.01)
 ;;43063-0119-90
 ;;9002226.02101,"806,43063-0119-90 ",.02)
 ;;43063-0119-90
 ;;9002226.02101,"806,43063-0120-90 ",.01)
 ;;43063-0120-90
 ;;9002226.02101,"806,43063-0120-90 ",.02)
 ;;43063-0120-90
 ;;9002226.02101,"806,43063-0201-01 ",.01)
 ;;43063-0201-01
 ;;9002226.02101,"806,43063-0201-01 ",.02)
 ;;43063-0201-01
 ;;9002226.02101,"806,43063-0201-30 ",.01)
 ;;43063-0201-30
 ;;9002226.02101,"806,43063-0201-30 ",.02)
 ;;43063-0201-30
 ;;9002226.02101,"806,43063-0201-90 ",.01)
 ;;43063-0201-90
 ;;9002226.02101,"806,43063-0201-90 ",.02)
 ;;43063-0201-90
 ;;9002226.02101,"806,43063-0397-86 ",.01)
 ;;43063-0397-86
 ;;9002226.02101,"806,43063-0397-86 ",.02)
 ;;43063-0397-86
 ;;9002226.02101,"806,43063-0433-14 ",.01)
 ;;43063-0433-14
 ;;9002226.02101,"806,43063-0433-14 ",.02)
 ;;43063-0433-14
 ;;9002226.02101,"806,43063-0433-30 ",.01)
 ;;43063-0433-30
 ;;9002226.02101,"806,43063-0433-30 ",.02)
 ;;43063-0433-30
 ;;9002226.02101,"806,43063-0433-86 ",.01)
 ;;43063-0433-86
 ;;9002226.02101,"806,43063-0433-86 ",.02)
 ;;43063-0433-86
 ;;9002226.02101,"806,43063-0433-90 ",.01)
 ;;43063-0433-90
 ;;9002226.02101,"806,43063-0433-90 ",.02)
 ;;43063-0433-90
 ;;9002226.02101,"806,43063-0433-93 ",.01)
 ;;43063-0433-93
 ;;9002226.02101,"806,43063-0433-93 ",.02)
 ;;43063-0433-93
 ;;9002226.02101,"806,43063-0446-01 ",.01)
 ;;43063-0446-01
 ;;9002226.02101,"806,43063-0446-01 ",.02)
 ;;43063-0446-01
 ;;9002226.02101,"806,43063-0446-30 ",.01)
 ;;43063-0446-30
 ;;9002226.02101,"806,43063-0446-30 ",.02)
 ;;43063-0446-30
 ;;9002226.02101,"806,43063-0446-90 ",.01)
 ;;43063-0446-90
 ;;9002226.02101,"806,43063-0446-90 ",.02)
 ;;43063-0446-90
 ;;9002226.02101,"806,43353-0582-80 ",.01)
 ;;43353-0582-80
 ;;9002226.02101,"806,43353-0582-80 ",.02)
 ;;43353-0582-80
 ;;9002226.02101,"806,43353-0656-53 ",.01)
 ;;43353-0656-53
 ;;9002226.02101,"806,43353-0656-53 ",.02)
 ;;43353-0656-53
 ;;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,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-0949-69 ",.01)
 ;;49884-0949-69
 ;;9002226.02101,"806,49884-0949-69 ",.02)
 ;;49884-0949-69
 ;;9002226.02101,"806,49999-0083-30 ",.01)
 ;;49999-0083-30
 ;;9002226.02101,"806,49999-0083-30 ",.02)
 ;;49999-0083-30
 ;;9002226.02101,"806,49999-0083-90 ",.01)
 ;;49999-0083-90
 ;;9002226.02101,"806,49999-0083-90 ",.02)
 ;;49999-0083-90
 ;;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-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-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,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,50268-0290-15 ",.01)
 ;;50268-0290-15
 ;;9002226.02101,"806,50268-0290-15 ",.02)
 ;;50268-0290-15
 ;;9002226.02101,"806,50268-0291-15 ",.01)
 ;;50268-0291-15
 ;;9002226.02101,"806,50268-0291-15 ",.02)
 ;;50268-0291-15
 ;;9002226.02101,"806,50268-0292-15 ",.01)
 ;;50268-0292-15
 ;;9002226.02101,"806,50268-0292-15 ",.02)
 ;;50268-0292-15
 ;;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-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-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-20 ",.01)
 ;;51079-0872-20