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

BGP31R10.m

Go to the documentation of this file.
  1. BGP31R10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
  1. ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
  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,"806,33261-0821-30 ",.02)
  1. ;;33261-0821-30
  1. ;;9002226.02101,"806,33261-0821-60 ",.01)
  1. ;;33261-0821-60
  1. ;;9002226.02101,"806,33261-0821-60 ",.02)
  1. ;;33261-0821-60
  1. ;;9002226.02101,"806,33261-0821-90 ",.01)
  1. ;;33261-0821-90
  1. ;;9002226.02101,"806,33261-0821-90 ",.02)
  1. ;;33261-0821-90
  1. ;;9002226.02101,"806,33358-0160-30 ",.01)
  1. ;;33358-0160-30
  1. ;;9002226.02101,"806,33358-0160-30 ",.02)
  1. ;;33358-0160-30
  1. ;;9002226.02101,"806,33358-0160-60 ",.01)
  1. ;;33358-0160-60
  1. ;;9002226.02101,"806,33358-0160-60 ",.02)
  1. ;;33358-0160-60
  1. ;;9002226.02101,"806,33358-0161-01 ",.01)
  1. ;;33358-0161-01
  1. ;;9002226.02101,"806,33358-0161-01 ",.02)
  1. ;;33358-0161-01
  1. ;;9002226.02101,"806,33358-0161-30 ",.01)
  1. ;;33358-0161-30
  1. ;;9002226.02101,"806,33358-0161-30 ",.02)
  1. ;;33358-0161-30
  1. ;;9002226.02101,"806,33358-0161-60 ",.01)
  1. ;;33358-0161-60
  1. ;;9002226.02101,"806,33358-0161-60 ",.02)
  1. ;;33358-0161-60
  1. ;;9002226.02101,"806,33358-0161-90 ",.01)
  1. ;;33358-0161-90
  1. ;;9002226.02101,"806,33358-0161-90 ",.02)
  1. ;;33358-0161-90
  1. ;;9002226.02101,"806,33358-0295-30 ",.01)
  1. ;;33358-0295-30
  1. ;;9002226.02101,"806,33358-0295-30 ",.02)
  1. ;;33358-0295-30
  1. ;;9002226.02101,"806,33358-0336-30 ",.01)
  1. ;;33358-0336-30
  1. ;;9002226.02101,"806,33358-0336-30 ",.02)
  1. ;;33358-0336-30
  1. ;;9002226.02101,"806,33358-0336-60 ",.01)
  1. ;;33358-0336-60
  1. ;;9002226.02101,"806,33358-0336-60 ",.02)
  1. ;;33358-0336-60
  1. ;;9002226.02101,"806,33358-0337-60 ",.01)
  1. ;;33358-0337-60
  1. ;;9002226.02101,"806,33358-0337-60 ",.02)
  1. ;;33358-0337-60
  1. ;;9002226.02101,"806,35356-0249-00 ",.01)
  1. ;;35356-0249-00
  1. ;;9002226.02101,"806,35356-0249-00 ",.02)
  1. ;;35356-0249-00
  1. ;;9002226.02101,"806,35356-0250-00 ",.01)
  1. ;;35356-0250-00
  1. ;;9002226.02101,"806,35356-0250-00 ",.02)
  1. ;;35356-0250-00
  1. ;;9002226.02101,"806,35356-0251-00 ",.01)
  1. ;;35356-0251-00
  1. ;;9002226.02101,"806,35356-0251-00 ",.02)
  1. ;;35356-0251-00
  1. ;;9002226.02101,"806,35356-0276-28 ",.01)
  1. ;;35356-0276-28
  1. ;;9002226.02101,"806,35356-0276-28 ",.02)
  1. ;;35356-0276-28
  1. ;;9002226.02101,"806,35356-0277-28 ",.01)
  1. ;;35356-0277-28
  1. ;;9002226.02101,"806,35356-0277-28 ",.02)
  1. ;;35356-0277-28
  1. ;;9002226.02101,"806,35356-0278-28 ",.01)
  1. ;;35356-0278-28
  1. ;;9002226.02101,"806,35356-0278-28 ",.02)
  1. ;;35356-0278-28
  1. ;;9002226.02101,"806,35356-0279-28 ",.01)
  1. ;;35356-0279-28
  1. ;;9002226.02101,"806,35356-0279-28 ",.02)
  1. ;;35356-0279-28
  1. ;;9002226.02101,"806,35356-0360-30 ",.01)
  1. ;;35356-0360-30
  1. ;;9002226.02101,"806,35356-0360-30 ",.02)
  1. ;;35356-0360-30
  1. ;;9002226.02101,"806,35356-0404-90 ",.01)
  1. ;;35356-0404-90
  1. ;;9002226.02101,"806,35356-0404-90 ",.02)
  1. ;;35356-0404-90
  1. ;;9002226.02101,"806,35356-0426-30 ",.01)
  1. ;;35356-0426-30
  1. ;;9002226.02101,"806,35356-0426-30 ",.02)
  1. ;;35356-0426-30
  1. ;;9002226.02101,"806,42192-0329-01 ",.01)
  1. ;;42192-0329-01
  1. ;;9002226.02101,"806,42192-0329-01 ",.02)
  1. ;;42192-0329-01
  1. ;;9002226.02101,"806,42192-0330-01 ",.01)
  1. ;;42192-0330-01
  1. ;;9002226.02101,"806,42192-0330-01 ",.02)
  1. ;;42192-0330-01
  1. ;;9002226.02101,"806,42192-0331-01 ",.01)
  1. ;;42192-0331-01
  1. ;;9002226.02101,"806,42192-0331-01 ",.02)
  1. ;;42192-0331-01
  1. ;;9002226.02101,"806,42254-0071-30 ",.01)
  1. ;;42254-0071-30
  1. ;;9002226.02101,"806,42254-0071-30 ",.02)
  1. ;;42254-0071-30
  1. ;;9002226.02101,"806,42254-0090-60 ",.01)
  1. ;;42254-0090-60
  1. ;;9002226.02101,"806,42254-0090-60 ",.02)
  1. ;;42254-0090-60
  1. ;;9002226.02101,"806,42254-0104-30 ",.01)
  1. ;;42254-0104-30
  1. ;;9002226.02101,"806,42254-0104-30 ",.02)
  1. ;;42254-0104-30
  1. ;;9002226.02101,"806,42254-0105-30 ",.01)
  1. ;;42254-0105-30
  1. ;;9002226.02101,"806,42254-0105-30 ",.02)
  1. ;;42254-0105-30
  1. ;;9002226.02101,"806,43063-0119-90 ",.01)
  1. ;;43063-0119-90
  1. ;;9002226.02101,"806,43063-0119-90 ",.02)
  1. ;;43063-0119-90
  1. ;;9002226.02101,"806,43063-0120-90 ",.01)
  1. ;;43063-0120-90
  1. ;;9002226.02101,"806,43063-0120-90 ",.02)
  1. ;;43063-0120-90
  1. ;;9002226.02101,"806,43063-0201-01 ",.01)
  1. ;;43063-0201-01
  1. ;;9002226.02101,"806,43063-0201-01 ",.02)
  1. ;;43063-0201-01
  1. ;;9002226.02101,"806,43063-0201-30 ",.01)
  1. ;;43063-0201-30
  1. ;;9002226.02101,"806,43063-0201-30 ",.02)
  1. ;;43063-0201-30
  1. ;;9002226.02101,"806,43063-0201-90 ",.01)
  1. ;;43063-0201-90
  1. ;;9002226.02101,"806,43063-0201-90 ",.02)
  1. ;;43063-0201-90
  1. ;;9002226.02101,"806,43353-0582-80 ",.01)
  1. ;;43353-0582-80
  1. ;;9002226.02101,"806,43353-0582-80 ",.02)
  1. ;;43353-0582-80
  1. ;;9002226.02101,"806,43353-0656-53 ",.01)
  1. ;;43353-0656-53
  1. ;;9002226.02101,"806,43353-0656-53 ",.02)
  1. ;;43353-0656-53
  1. ;;9002226.02101,"806,43353-0656-60 ",.01)
  1. ;;43353-0656-60
  1. ;;9002226.02101,"806,43353-0656-60 ",.02)
  1. ;;43353-0656-60
  1. ;;9002226.02101,"806,43353-0656-70 ",.01)
  1. ;;43353-0656-70
  1. ;;9002226.02101,"806,43353-0656-70 ",.02)
  1. ;;43353-0656-70
  1. ;;9002226.02101,"806,43353-0656-80 ",.01)
  1. ;;43353-0656-80
  1. ;;9002226.02101,"806,43353-0656-80 ",.02)
  1. ;;43353-0656-80
  1. ;;9002226.02101,"806,43353-0656-92 ",.01)
  1. ;;43353-0656-92
  1. ;;9002226.02101,"806,43353-0656-92 ",.02)
  1. ;;43353-0656-92
  1. ;;9002226.02101,"806,43353-0656-94 ",.01)
  1. ;;43353-0656-94
  1. ;;9002226.02101,"806,43353-0656-94 ",.02)
  1. ;;43353-0656-94
  1. ;;9002226.02101,"806,43353-0659-60 ",.01)
  1. ;;43353-0659-60
  1. ;;9002226.02101,"806,43353-0659-60 ",.02)
  1. ;;43353-0659-60
  1. ;;9002226.02101,"806,43353-0659-80 ",.01)
  1. ;;43353-0659-80
  1. ;;9002226.02101,"806,43353-0659-80 ",.02)
  1. ;;43353-0659-80
  1. ;;9002226.02101,"806,43353-0687-60 ",.01)
  1. ;;43353-0687-60
  1. ;;9002226.02101,"806,43353-0687-60 ",.02)
  1. ;;43353-0687-60
  1. ;;9002226.02101,"806,43353-0688-60 ",.01)
  1. ;;43353-0688-60
  1. ;;9002226.02101,"806,43353-0688-60 ",.02)
  1. ;;43353-0688-60
  1. ;;9002226.02101,"806,45963-0753-02 ",.01)
  1. ;;45963-0753-02
  1. ;;9002226.02101,"806,45963-0753-02 ",.02)
  1. ;;45963-0753-02
  1. ;;9002226.02101,"806,47463-0091-30 ",.01)
  1. ;;47463-0091-30
  1. ;;9002226.02101,"806,47463-0091-30 ",.02)
  1. ;;47463-0091-30
  1. ;;9002226.02101,"806,47463-0092-30 ",.01)
  1. ;;47463-0092-30
  1. ;;9002226.02101,"806,47463-0092-30 ",.02)
  1. ;;47463-0092-30
  1. ;;9002226.02101,"806,47463-0093-30 ",.01)
  1. ;;47463-0093-30
  1. ;;9002226.02101,"806,47463-0093-30 ",.02)
  1. ;;47463-0093-30
  1. ;;9002226.02101,"806,47463-0225-30 ",.01)
  1. ;;47463-0225-30
  1. ;;9002226.02101,"806,47463-0225-30 ",.02)
  1. ;;47463-0225-30
  1. ;;9002226.02101,"806,47463-0248-90 ",.01)
  1. ;;47463-0248-90
  1. ;;9002226.02101,"806,47463-0248-90 ",.02)
  1. ;;47463-0248-90
  1. ;;9002226.02101,"806,47781-0204-04 ",.01)
  1. ;;47781-0204-04
  1. ;;9002226.02101,"806,47781-0204-04 ",.02)
  1. ;;47781-0204-04
  1. ;;9002226.02101,"806,47781-0205-04 ",.01)
  1. ;;47781-0205-04
  1. ;;9002226.02101,"806,47781-0205-04 ",.02)
  1. ;;47781-0205-04
  1. ;;9002226.02101,"806,47781-0206-04 ",.01)
  1. ;;47781-0206-04
  1. ;;9002226.02101,"806,47781-0206-04 ",.02)
  1. ;;47781-0206-04
  1. ;;9002226.02101,"806,47781-0207-04 ",.01)
  1. ;;47781-0207-04
  1. ;;9002226.02101,"806,47781-0207-04 ",.02)
  1. ;;47781-0207-04
  1. ;;9002226.02101,"806,47781-0208-04 ",.01)
  1. ;;47781-0208-04
  1. ;;9002226.02101,"806,47781-0208-04 ",.02)
  1. ;;47781-0208-04
  1. ;;9002226.02101,"806,47781-0209-04 ",.01)
  1. ;;47781-0209-04
  1. ;;9002226.02101,"806,47781-0209-04 ",.02)
  1. ;;47781-0209-04
  1. ;;9002226.02101,"806,49483-0021-01 ",.01)
  1. ;;49483-0021-01
  1. ;;9002226.02101,"806,49483-0021-01 ",.02)
  1. ;;49483-0021-01
  1. ;;9002226.02101,"806,49483-0021-10 ",.01)
  1. ;;49483-0021-10
  1. ;;9002226.02101,"806,49483-0021-10 ",.02)
  1. ;;49483-0021-10
  1. ;;9002226.02101,"806,49483-0022-01 ",.01)
  1. ;;49483-0022-01
  1. ;;9002226.02101,"806,49483-0022-01 ",.02)
  1. ;;49483-0022-01
  1. ;;9002226.02101,"806,49483-0022-10 ",.01)
  1. ;;49483-0022-10
  1. ;;9002226.02101,"806,49483-0022-10 ",.02)
  1. ;;49483-0022-10
  1. ;;9002226.02101,"806,49483-0023-01 ",.01)
  1. ;;49483-0023-01
  1. ;;9002226.02101,"806,49483-0023-01 ",.02)
  1. ;;49483-0023-01
  1. ;;9002226.02101,"806,49483-0023-10 ",.01)
  1. ;;49483-0023-10
  1. ;;9002226.02101,"806,49483-0023-10 ",.02)
  1. ;;49483-0023-10
  1. ;;9002226.02101,"806,49483-0038-01 ",.01)
  1. ;;49483-0038-01
  1. ;;9002226.02101,"806,49483-0038-01 ",.02)
  1. ;;49483-0038-01
  1. ;;9002226.02101,"806,49483-0038-10 ",.01)
  1. ;;49483-0038-10
  1. ;;9002226.02101,"806,49483-0038-10 ",.02)
  1. ;;49483-0038-10
  1. ;;9002226.02101,"806,49884-0289-01 ",.01)
  1. ;;49884-0289-01
  1. ;;9002226.02101,"806,49884-0289-01 ",.02)
  1. ;;49884-0289-01
  1. ;;9002226.02101,"806,49884-0290-01 ",.01)
  1. ;;49884-0290-01
  1. ;;9002226.02101,"806,49884-0290-01 ",.02)
  1. ;;49884-0290-01
  1. ;;9002226.02101,"806,49884-0290-04 ",.01)
  1. ;;49884-0290-04
  1. ;;9002226.02101,"806,49884-0290-04 ",.02)
  1. ;;49884-0290-04
  1. ;;9002226.02101,"806,49884-0290-05 ",.01)
  1. ;;49884-0290-05
  1. ;;9002226.02101,"806,49884-0290-05 ",.02)
  1. ;;49884-0290-05
  1. ;;9002226.02101,"806,49884-0907-38 ",.01)
  1. ;;49884-0907-38
  1. ;;9002226.02101,"806,49884-0907-38 ",.02)
  1. ;;49884-0907-38
  1. ;;9002226.02101,"806,49884-0907-61 ",.01)
  1. ;;49884-0907-61
  1. ;;9002226.02101,"806,49884-0907-61 ",.02)
  1. ;;49884-0907-61
  1. ;;9002226.02101,"806,49884-0907-88 ",.01)
  1. ;;49884-0907-88
  1. ;;9002226.02101,"806,49884-0907-88 ",.02)
  1. ;;49884-0907-88
  1. ;;9002226.02101,"806,49884-0949-11 ",.01)
  1. ;;49884-0949-11
  1. ;;9002226.02101,"806,49884-0949-11 ",.02)
  1. ;;49884-0949-11
  1. ;;9002226.02101,"806,49884-0949-52 ",.01)
  1. ;;49884-0949-52
  1. ;;9002226.02101,"806,49884-0949-52 ",.02)
  1. ;;49884-0949-52
  1. ;;9002226.02101,"806,49884-0949-69 ",.01)
  1. ;;49884-0949-69
  1. ;;9002226.02101,"806,49884-0949-69 ",.02)
  1. ;;49884-0949-69
  1. ;;9002226.02101,"806,49884-0967-01 ",.01)
  1. ;;49884-0967-01
  1. ;;9002226.02101,"806,49884-0967-01 ",.02)
  1. ;;49884-0967-01
  1. ;;9002226.02101,"806,49884-0967-05 ",.01)
  1. ;;49884-0967-05
  1. ;;9002226.02101,"806,49884-0967-05 ",.02)
  1. ;;49884-0967-05
  1. ;;9002226.02101,"806,49884-0968-01 ",.01)
  1. ;;49884-0968-01
  1. ;;9002226.02101,"806,49884-0968-01 ",.02)
  1. ;;49884-0968-01
  1. ;;9002226.02101,"806,49884-0968-05 ",.01)
  1. ;;49884-0968-05
  1. ;;9002226.02101,"806,49884-0968-05 ",.02)
  1. ;;49884-0968-05
  1. ;;9002226.02101,"806,49884-0969-01 ",.01)
  1. ;;49884-0969-01
  1. ;;9002226.02101,"806,49884-0969-01 ",.02)
  1. ;;49884-0969-01
  1. ;;9002226.02101,"806,49884-0969-05 ",.01)
  1. ;;49884-0969-05
  1. ;;9002226.02101,"806,49884-0969-05 ",.02)
  1. ;;49884-0969-05
  1. ;;9002226.02101,"806,49999-0083-30 ",.01)
  1. ;;49999-0083-30
  1. ;;9002226.02101,"806,49999-0083-30 ",.02)
  1. ;;49999-0083-30
  1. ;;9002226.02101,"806,49999-0084-30 ",.01)
  1. ;;49999-0084-30
  1. ;;9002226.02101,"806,49999-0084-30 ",.02)
  1. ;;49999-0084-30
  1. ;;9002226.02101,"806,49999-0084-60 ",.01)
  1. ;;49999-0084-60
  1. ;;9002226.02101,"806,49999-0084-60 ",.02)
  1. ;;49999-0084-60
  1. ;;9002226.02101,"806,49999-0088-28 ",.01)
  1. ;;49999-0088-28
  1. ;;9002226.02101,"806,49999-0088-28 ",.02)
  1. ;;49999-0088-28
  1. ;;9002226.02101,"806,49999-0088-60 ",.01)
  1. ;;49999-0088-60
  1. ;;9002226.02101,"806,49999-0088-60 ",.02)
  1. ;;49999-0088-60
  1. ;;9002226.02101,"806,49999-0109-00 ",.01)
  1. ;;49999-0109-00
  1. ;;9002226.02101,"806,49999-0109-00 ",.02)
  1. ;;49999-0109-00
  1. ;;9002226.02101,"806,49999-0109-30 ",.01)
  1. ;;49999-0109-30
  1. ;;9002226.02101,"806,49999-0109-30 ",.02)
  1. ;;49999-0109-30
  1. ;;9002226.02101,"806,49999-0109-90 ",.01)
  1. ;;49999-0109-90
  1. ;;9002226.02101,"806,49999-0109-90 ",.02)
  1. ;;49999-0109-90
  1. ;;9002226.02101,"806,49999-0113-00 ",.01)
  1. ;;49999-0113-00
  1. ;;9002226.02101,"806,49999-0113-00 ",.02)
  1. ;;49999-0113-00
  1. ;;9002226.02101,"806,49999-0113-01 ",.01)
  1. ;;49999-0113-01
  1. ;;9002226.02101,"806,49999-0113-01 ",.02)
  1. ;;49999-0113-01
  1. ;;9002226.02101,"806,49999-0113-30 ",.01)
  1. ;;49999-0113-30
  1. ;;9002226.02101,"806,49999-0113-30 ",.02)
  1. ;;49999-0113-30
  1. ;;9002226.02101,"806,49999-0113-60 ",.01)
  1. ;;49999-0113-60
  1. ;;9002226.02101,"806,49999-0113-60 ",.02)
  1. ;;49999-0113-60
  1. ;;9002226.02101,"806,49999-0113-90 ",.01)
  1. ;;49999-0113-90
  1. ;;9002226.02101,"806,49999-0113-90 ",.02)
  1. ;;49999-0113-90
  1. ;;9002226.02101,"806,49999-0281-00 ",.01)
  1. ;;49999-0281-00
  1. ;;9002226.02101,"806,49999-0281-00 ",.02)
  1. ;;49999-0281-00
  1. ;;9002226.02101,"806,49999-0282-00 ",.01)
  1. ;;49999-0282-00
  1. ;;9002226.02101,"806,49999-0282-00 ",.02)
  1. ;;49999-0282-00
  1. ;;9002226.02101,"806,49999-0282-28 ",.01)
  1. ;;49999-0282-28
  1. ;;9002226.02101,"806,49999-0282-28 ",.02)
  1. ;;49999-0282-28
  1. ;;9002226.02101,"806,49999-0282-60 ",.01)
  1. ;;49999-0282-60
  1. ;;9002226.02101,"806,49999-0282-60 ",.02)
  1. ;;49999-0282-60
  1. ;;9002226.02101,"806,49999-0288-00 ",.01)
  1. ;;49999-0288-00
  1. ;;9002226.02101,"806,49999-0288-00 ",.02)
  1. ;;49999-0288-00
  1. ;;9002226.02101,"806,49999-0288-28 ",.01)
  1. ;;49999-0288-28
  1. ;;9002226.02101,"806,49999-0288-28 ",.02)
  1. ;;49999-0288-28
  1. ;;9002226.02101,"806,49999-0288-30 ",.01)
  1. ;;49999-0288-30
  1. ;;9002226.02101,"806,49999-0288-30 ",.02)
  1. ;;49999-0288-30
  1. ;;9002226.02101,"806,49999-0288-60 ",.01)
  1. ;;49999-0288-60
  1. ;;9002226.02101,"806,49999-0288-60 ",.02)
  1. ;;49999-0288-60
  1. ;;9002226.02101,"806,49999-0289-60 ",.01)
  1. ;;49999-0289-60
  1. ;;9002226.02101,"806,49999-0289-60 ",.02)
  1. ;;49999-0289-60
  1. ;;9002226.02101,"806,49999-0401-30 ",.01)
  1. ;;49999-0401-30
  1. ;;9002226.02101,"806,49999-0401-30 ",.02)
  1. ;;49999-0401-30
  1. ;;9002226.02101,"806,49999-0401-60 ",.01)
  1. ;;49999-0401-60
  1. ;;9002226.02101,"806,49999-0401-60 ",.02)
  1. ;;49999-0401-60
  1. ;;9002226.02101,"806,49999-0571-60 ",.01)
  1. ;;49999-0571-60
  1. ;;9002226.02101,"806,49999-0571-60 ",.02)
  1. ;;49999-0571-60
  1. ;;9002226.02101,"806,49999-0660-30 ",.01)
  1. ;;49999-0660-30
  1. ;;9002226.02101,"806,49999-0660-30 ",.02)
  1. ;;49999-0660-30
  1. ;;9002226.02101,"806,49999-0660-60 ",.01)
  1. ;;49999-0660-60
  1. ;;9002226.02101,"806,49999-0660-60 ",.02)
  1. ;;49999-0660-60
  1. ;;9002226.02101,"806,49999-0702-28 ",.01)
  1. ;;49999-0702-28
  1. ;;9002226.02101,"806,49999-0702-28 ",.02)
  1. ;;49999-0702-28
  1. ;;9002226.02101,"806,49999-0702-30 ",.01)
  1. ;;49999-0702-30
  1. ;;9002226.02101,"806,49999-0702-30 ",.02)
  1. ;;49999-0702-30
  1. ;;9002226.02101,"806,49999-0808-00 ",.01)
  1. ;;49999-0808-00