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.
BGP31R10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,33261-0821-30 ",.02)
 ;;33261-0821-30
 ;;9002226.02101,"806,33261-0821-60 ",.01)
 ;;33261-0821-60
 ;;9002226.02101,"806,33261-0821-60 ",.02)
 ;;33261-0821-60
 ;;9002226.02101,"806,33261-0821-90 ",.01)
 ;;33261-0821-90
 ;;9002226.02101,"806,33261-0821-90 ",.02)
 ;;33261-0821-90
 ;;9002226.02101,"806,33358-0160-30 ",.01)
 ;;33358-0160-30
 ;;9002226.02101,"806,33358-0160-30 ",.02)
 ;;33358-0160-30
 ;;9002226.02101,"806,33358-0160-60 ",.01)
 ;;33358-0160-60
 ;;9002226.02101,"806,33358-0160-60 ",.02)
 ;;33358-0160-60
 ;;9002226.02101,"806,33358-0161-01 ",.01)
 ;;33358-0161-01
 ;;9002226.02101,"806,33358-0161-01 ",.02)
 ;;33358-0161-01
 ;;9002226.02101,"806,33358-0161-30 ",.01)
 ;;33358-0161-30
 ;;9002226.02101,"806,33358-0161-30 ",.02)
 ;;33358-0161-30
 ;;9002226.02101,"806,33358-0161-60 ",.01)
 ;;33358-0161-60
 ;;9002226.02101,"806,33358-0161-60 ",.02)
 ;;33358-0161-60
 ;;9002226.02101,"806,33358-0161-90 ",.01)
 ;;33358-0161-90
 ;;9002226.02101,"806,33358-0161-90 ",.02)
 ;;33358-0161-90
 ;;9002226.02101,"806,33358-0295-30 ",.01)
 ;;33358-0295-30
 ;;9002226.02101,"806,33358-0295-30 ",.02)
 ;;33358-0295-30
 ;;9002226.02101,"806,33358-0336-30 ",.01)
 ;;33358-0336-30
 ;;9002226.02101,"806,33358-0336-30 ",.02)
 ;;33358-0336-30
 ;;9002226.02101,"806,33358-0336-60 ",.01)
 ;;33358-0336-60
 ;;9002226.02101,"806,33358-0336-60 ",.02)
 ;;33358-0336-60
 ;;9002226.02101,"806,33358-0337-60 ",.01)
 ;;33358-0337-60
 ;;9002226.02101,"806,33358-0337-60 ",.02)
 ;;33358-0337-60
 ;;9002226.02101,"806,35356-0249-00 ",.01)
 ;;35356-0249-00
 ;;9002226.02101,"806,35356-0249-00 ",.02)
 ;;35356-0249-00
 ;;9002226.02101,"806,35356-0250-00 ",.01)
 ;;35356-0250-00
 ;;9002226.02101,"806,35356-0250-00 ",.02)
 ;;35356-0250-00
 ;;9002226.02101,"806,35356-0251-00 ",.01)
 ;;35356-0251-00
 ;;9002226.02101,"806,35356-0251-00 ",.02)
 ;;35356-0251-00
 ;;9002226.02101,"806,35356-0276-28 ",.01)
 ;;35356-0276-28
 ;;9002226.02101,"806,35356-0276-28 ",.02)
 ;;35356-0276-28
 ;;9002226.02101,"806,35356-0277-28 ",.01)
 ;;35356-0277-28
 ;;9002226.02101,"806,35356-0277-28 ",.02)
 ;;35356-0277-28
 ;;9002226.02101,"806,35356-0278-28 ",.01)
 ;;35356-0278-28
 ;;9002226.02101,"806,35356-0278-28 ",.02)
 ;;35356-0278-28
 ;;9002226.02101,"806,35356-0279-28 ",.01)
 ;;35356-0279-28
 ;;9002226.02101,"806,35356-0279-28 ",.02)
 ;;35356-0279-28
 ;;9002226.02101,"806,35356-0360-30 ",.01)
 ;;35356-0360-30
 ;;9002226.02101,"806,35356-0360-30 ",.02)
 ;;35356-0360-30
 ;;9002226.02101,"806,35356-0404-90 ",.01)
 ;;35356-0404-90
 ;;9002226.02101,"806,35356-0404-90 ",.02)
 ;;35356-0404-90
 ;;9002226.02101,"806,35356-0426-30 ",.01)
 ;;35356-0426-30
 ;;9002226.02101,"806,35356-0426-30 ",.02)
 ;;35356-0426-30
 ;;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-60 ",.01)
 ;;42254-0090-60
 ;;9002226.02101,"806,42254-0090-60 ",.02)
 ;;42254-0090-60
 ;;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,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,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-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-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