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

BGP47J18.m

Go to the documentation of this file.
BGP47J18 ;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,"618,33261-0865-90 ",.02)
 ;;33261-0865-90
 ;;9002226.02101,"618,33261-0897-00 ",.01)
 ;;33261-0897-00
 ;;9002226.02101,"618,33261-0897-00 ",.02)
 ;;33261-0897-00
 ;;9002226.02101,"618,33261-0897-30 ",.01)
 ;;33261-0897-30
 ;;9002226.02101,"618,33261-0897-30 ",.02)
 ;;33261-0897-30
 ;;9002226.02101,"618,33261-0897-60 ",.01)
 ;;33261-0897-60
 ;;9002226.02101,"618,33261-0897-60 ",.02)
 ;;33261-0897-60
 ;;9002226.02101,"618,33261-0897-90 ",.01)
 ;;33261-0897-90
 ;;9002226.02101,"618,33261-0897-90 ",.02)
 ;;33261-0897-90
 ;;9002226.02101,"618,33358-0111-20 ",.01)
 ;;33358-0111-20
 ;;9002226.02101,"618,33358-0111-20 ",.02)
 ;;33358-0111-20
 ;;9002226.02101,"618,33358-0111-30 ",.01)
 ;;33358-0111-30
 ;;9002226.02101,"618,33358-0111-30 ",.02)
 ;;33358-0111-30
 ;;9002226.02101,"618,33358-0179-30 ",.01)
 ;;33358-0179-30
 ;;9002226.02101,"618,33358-0179-30 ",.02)
 ;;33358-0179-30
 ;;9002226.02101,"618,33358-0180-01 ",.01)
 ;;33358-0180-01
 ;;9002226.02101,"618,33358-0180-01 ",.02)
 ;;33358-0180-01
 ;;9002226.02101,"618,33358-0181-20 ",.01)
 ;;33358-0181-20
 ;;9002226.02101,"618,33358-0181-20 ",.02)
 ;;33358-0181-20
 ;;9002226.02101,"618,33358-0181-30 ",.01)
 ;;33358-0181-30
 ;;9002226.02101,"618,33358-0181-30 ",.02)
 ;;33358-0181-30
 ;;9002226.02101,"618,33358-0182-20 ",.01)
 ;;33358-0182-20
 ;;9002226.02101,"618,33358-0182-20 ",.02)
 ;;33358-0182-20
 ;;9002226.02101,"618,33358-0182-30 ",.01)
 ;;33358-0182-30
 ;;9002226.02101,"618,33358-0182-30 ",.02)
 ;;33358-0182-30
 ;;9002226.02101,"618,33358-0302-08 ",.01)
 ;;33358-0302-08
 ;;9002226.02101,"618,33358-0302-08 ",.02)
 ;;33358-0302-08
 ;;9002226.02101,"618,33358-0302-10 ",.01)
 ;;33358-0302-10
 ;;9002226.02101,"618,33358-0302-10 ",.02)
 ;;33358-0302-10
 ;;9002226.02101,"618,33358-0302-30 ",.01)
 ;;33358-0302-30
 ;;9002226.02101,"618,33358-0302-30 ",.02)
 ;;33358-0302-30
 ;;9002226.02101,"618,33358-0302-60 ",.01)
 ;;33358-0302-60
 ;;9002226.02101,"618,33358-0302-60 ",.02)
 ;;33358-0302-60
 ;;9002226.02101,"618,33358-0303-04 ",.01)
 ;;33358-0303-04
 ;;9002226.02101,"618,33358-0303-04 ",.02)
 ;;33358-0303-04
 ;;9002226.02101,"618,33358-0304-04 ",.01)
 ;;33358-0304-04
 ;;9002226.02101,"618,33358-0304-04 ",.02)
 ;;33358-0304-04
 ;;9002226.02101,"618,33358-0305-04 ",.01)
 ;;33358-0305-04
 ;;9002226.02101,"618,33358-0305-04 ",.02)
 ;;33358-0305-04
 ;;9002226.02101,"618,33358-0310-20 ",.01)
 ;;33358-0310-20
 ;;9002226.02101,"618,33358-0310-20 ",.02)
 ;;33358-0310-20
 ;;9002226.02101,"618,33358-0418-30 ",.01)
 ;;33358-0418-30
 ;;9002226.02101,"618,33358-0418-30 ",.02)
 ;;33358-0418-30
 ;;9002226.02101,"618,33753-0103-01 ",.01)
 ;;33753-0103-01
 ;;9002226.02101,"618,33753-0103-01 ",.02)
 ;;33753-0103-01
 ;;9002226.02101,"618,33753-0105-16 ",.01)
 ;;33753-0105-16
 ;;9002226.02101,"618,33753-0105-16 ",.02)
 ;;33753-0105-16
 ;;9002226.02101,"618,35356-0039-12 ",.01)
 ;;35356-0039-12
 ;;9002226.02101,"618,35356-0039-12 ",.02)
 ;;35356-0039-12
 ;;9002226.02101,"618,35356-0123-60 ",.01)
 ;;35356-0123-60
 ;;9002226.02101,"618,35356-0123-60 ",.02)
 ;;35356-0123-60
 ;;9002226.02101,"618,35356-0127-16 ",.01)
 ;;35356-0127-16
 ;;9002226.02101,"618,35356-0127-16 ",.02)
 ;;35356-0127-16
 ;;9002226.02101,"618,35356-0433-20 ",.01)
 ;;35356-0433-20
 ;;9002226.02101,"618,35356-0433-20 ",.02)
 ;;35356-0433-20
 ;;9002226.02101,"618,35356-0433-30 ",.01)
 ;;35356-0433-30
 ;;9002226.02101,"618,35356-0433-30 ",.02)
 ;;35356-0433-30
 ;;9002226.02101,"618,35356-0671-12 ",.01)
 ;;35356-0671-12
 ;;9002226.02101,"618,35356-0671-12 ",.02)
 ;;35356-0671-12
 ;;9002226.02101,"618,35356-0671-15 ",.01)
 ;;35356-0671-15
 ;;9002226.02101,"618,35356-0671-15 ",.02)
 ;;35356-0671-15
 ;;9002226.02101,"618,35356-0701-30 ",.01)
 ;;35356-0701-30
 ;;9002226.02101,"618,35356-0701-30 ",.02)
 ;;35356-0701-30
 ;;9002226.02101,"618,35356-0701-60 ",.01)
 ;;35356-0701-60
 ;;9002226.02101,"618,35356-0701-60 ",.02)
 ;;35356-0701-60
 ;;9002226.02101,"618,35356-0938-20 ",.01)
 ;;35356-0938-20
 ;;9002226.02101,"618,35356-0938-20 ",.02)
 ;;35356-0938-20
 ;;9002226.02101,"618,35356-0939-30 ",.01)
 ;;35356-0939-30
 ;;9002226.02101,"618,35356-0939-30 ",.02)
 ;;35356-0939-30
 ;;9002226.02101,"618,35356-0939-60 ",.01)
 ;;35356-0939-60
 ;;9002226.02101,"618,35356-0939-60 ",.02)
 ;;35356-0939-60
 ;;9002226.02101,"618,35356-0942-60 ",.01)
 ;;35356-0942-60
 ;;9002226.02101,"618,35356-0942-60 ",.02)
 ;;35356-0942-60
 ;;9002226.02101,"618,35573-0004-10 ",.01)
 ;;35573-0004-10
 ;;9002226.02101,"618,35573-0004-10 ",.02)
 ;;35573-0004-10
 ;;9002226.02101,"618,36800-0462-62 ",.01)
 ;;36800-0462-62
 ;;9002226.02101,"618,36800-0462-62 ",.02)
 ;;36800-0462-62
 ;;9002226.02101,"618,36800-0462-67 ",.01)
 ;;36800-0462-67
 ;;9002226.02101,"618,36800-0462-67 ",.02)
 ;;36800-0462-67
 ;;9002226.02101,"618,36800-0462-78 ",.01)
 ;;36800-0462-78
 ;;9002226.02101,"618,36800-0462-78 ",.02)
 ;;36800-0462-78
 ;;9002226.02101,"618,36800-0479-62 ",.01)
 ;;36800-0479-62
 ;;9002226.02101,"618,36800-0479-62 ",.02)
 ;;36800-0479-62
 ;;9002226.02101,"618,36800-0479-67 ",.01)
 ;;36800-0479-67
 ;;9002226.02101,"618,36800-0479-67 ",.02)
 ;;36800-0479-67
 ;;9002226.02101,"618,36800-0479-78 ",.01)
 ;;36800-0479-78
 ;;9002226.02101,"618,36800-0479-78 ",.02)
 ;;36800-0479-78
 ;;9002226.02101,"618,36800-0479-79 ",.01)
 ;;36800-0479-79
 ;;9002226.02101,"618,36800-0479-79 ",.02)
 ;;36800-0479-79
 ;;9002226.02101,"618,37205-0743-62 ",.01)
 ;;37205-0743-62
 ;;9002226.02101,"618,37205-0743-62 ",.02)
 ;;37205-0743-62
 ;;9002226.02101,"618,37205-0743-78 ",.01)
 ;;37205-0743-78
 ;;9002226.02101,"618,37205-0743-78 ",.02)
 ;;37205-0743-78
 ;;9002226.02101,"618,38130-0101-01 ",.01)
 ;;38130-0101-01
 ;;9002226.02101,"618,38130-0101-01 ",.02)
 ;;38130-0101-01
 ;;9002226.02101,"618,38739-0082-51 ",.01)
 ;;38739-0082-51
 ;;9002226.02101,"618,38739-0082-51 ",.02)
 ;;38739-0082-51
 ;;9002226.02101,"618,38739-0110-02 ",.01)
 ;;38739-0110-02
 ;;9002226.02101,"618,38739-0110-02 ",.02)
 ;;38739-0110-02
 ;;9002226.02101,"618,38739-0110-03 ",.01)
 ;;38739-0110-03
 ;;9002226.02101,"618,38739-0110-03 ",.02)
 ;;38739-0110-03
 ;;9002226.02101,"618,39822-5500-02 ",.01)
 ;;39822-5500-02
 ;;9002226.02101,"618,39822-5500-02 ",.02)
 ;;39822-5500-02
 ;;9002226.02101,"618,39822-5500-03 ",.01)
 ;;39822-5500-03
 ;;9002226.02101,"618,39822-5500-03 ",.02)
 ;;39822-5500-03
 ;;9002226.02101,"618,39822-5500-05 ",.01)
 ;;39822-5500-05
 ;;9002226.02101,"618,39822-5500-05 ",.02)
 ;;39822-5500-05
 ;;9002226.02101,"618,39822-5500-06 ",.01)
 ;;39822-5500-06
 ;;9002226.02101,"618,39822-5500-06 ",.02)
 ;;39822-5500-06
 ;;9002226.02101,"618,40986-0010-70 ",.01)
 ;;40986-0010-70
 ;;9002226.02101,"618,40986-0010-70 ",.02)
 ;;40986-0010-70
 ;;9002226.02101,"618,40986-0022-99 ",.01)
 ;;40986-0022-99
 ;;9002226.02101,"618,40986-0022-99 ",.02)
 ;;40986-0022-99
 ;;9002226.02101,"618,41163-0251-00 ",.01)
 ;;41163-0251-00
 ;;9002226.02101,"618,41163-0251-00 ",.02)
 ;;41163-0251-00
 ;;9002226.02101,"618,41163-0251-02 ",.01)
 ;;41163-0251-02
 ;;9002226.02101,"618,41163-0251-02 ",.02)
 ;;41163-0251-02
 ;;9002226.02101,"618,41163-0251-28 ",.01)
 ;;41163-0251-28
 ;;9002226.02101,"618,41163-0251-28 ",.02)
 ;;41163-0251-28
 ;;9002226.02101,"618,41163-0251-78 ",.01)
 ;;41163-0251-78
 ;;9002226.02101,"618,41163-0251-78 ",.02)
 ;;41163-0251-78
 ;;9002226.02101,"618,41163-0255-29 ",.01)
 ;;41163-0255-29
 ;;9002226.02101,"618,41163-0255-29 ",.02)
 ;;41163-0255-29
 ;;9002226.02101,"618,41163-0329-22 ",.01)
 ;;41163-0329-22
 ;;9002226.02101,"618,41163-0329-22 ",.02)
 ;;41163-0329-22
 ;;9002226.02101,"618,41163-0379-26 ",.01)
 ;;41163-0379-26
 ;;9002226.02101,"618,41163-0379-26 ",.02)
 ;;41163-0379-26
 ;;9002226.02101,"618,41163-0460-25 ",.01)
 ;;41163-0460-25
 ;;9002226.02101,"618,41163-0460-25 ",.02)
 ;;41163-0460-25
 ;;9002226.02101,"618,41163-0460-28 ",.01)
 ;;41163-0460-28
 ;;9002226.02101,"618,41163-0460-28 ",.02)
 ;;41163-0460-28
 ;;9002226.02101,"618,41163-0460-29 ",.01)
 ;;41163-0460-29
 ;;9002226.02101,"618,41163-0460-29 ",.02)
 ;;41163-0460-29
 ;;9002226.02101,"618,41163-0461-12 ",.01)
 ;;41163-0461-12
 ;;9002226.02101,"618,41163-0461-12 ",.02)
 ;;41163-0461-12
 ;;9002226.02101,"618,41163-0461-13 ",.01)
 ;;41163-0461-13
 ;;9002226.02101,"618,41163-0461-13 ",.02)
 ;;41163-0461-13
 ;;9002226.02101,"618,41163-0462-62 ",.01)
 ;;41163-0462-62
 ;;9002226.02101,"618,41163-0462-62 ",.02)
 ;;41163-0462-62
 ;;9002226.02101,"618,41163-0462-78 ",.01)
 ;;41163-0462-78
 ;;9002226.02101,"618,41163-0462-78 ",.02)
 ;;41163-0462-78
 ;;9002226.02101,"618,41163-0465-81 ",.01)
 ;;41163-0465-81
 ;;9002226.02101,"618,41163-0465-81 ",.02)
 ;;41163-0465-81
 ;;9002226.02101,"618,41163-0479-62 ",.01)
 ;;41163-0479-62
 ;;9002226.02101,"618,41163-0479-62 ",.02)
 ;;41163-0479-62
 ;;9002226.02101,"618,41163-0479-78 ",.01)
 ;;41163-0479-78
 ;;9002226.02101,"618,41163-0479-78 ",.02)
 ;;41163-0479-78
 ;;9002226.02101,"618,41415-0028-73 ",.01)
 ;;41415-0028-73
 ;;9002226.02101,"618,41415-0028-73 ",.02)
 ;;41415-0028-73
 ;;9002226.02101,"618,41415-0097-73 ",.01)
 ;;41415-0097-73
 ;;9002226.02101,"618,41415-0097-73 ",.02)
 ;;41415-0097-73
 ;;9002226.02101,"618,41415-0108-73 ",.01)
 ;;41415-0108-73
 ;;9002226.02101,"618,41415-0108-73 ",.02)
 ;;41415-0108-73
 ;;9002226.02101,"618,41415-0164-73 ",.01)
 ;;41415-0164-73
 ;;9002226.02101,"618,41415-0164-73 ",.02)
 ;;41415-0164-73
 ;;9002226.02101,"618,41415-0165-73 ",.01)
 ;;41415-0165-73
 ;;9002226.02101,"618,41415-0165-73 ",.02)
 ;;41415-0165-73
 ;;9002226.02101,"618,41415-0295-73 ",.01)
 ;;41415-0295-73
 ;;9002226.02101,"618,41415-0295-73 ",.02)
 ;;41415-0295-73
 ;;9002226.02101,"618,42192-0502-16 ",.01)
 ;;42192-0502-16
 ;;9002226.02101,"618,42192-0502-16 ",.02)
 ;;42192-0502-16
 ;;9002226.02101,"618,42192-0513-04 ",.01)
 ;;42192-0513-04
 ;;9002226.02101,"618,42192-0513-04 ",.02)
 ;;42192-0513-04
 ;;9002226.02101,"618,42254-0045-08 ",.01)
 ;;42254-0045-08
 ;;9002226.02101,"618,42254-0045-08 ",.02)
 ;;42254-0045-08
 ;;9002226.02101,"618,42254-0045-10 ",.01)
 ;;42254-0045-10
 ;;9002226.02101,"618,42254-0045-10 ",.02)
 ;;42254-0045-10
 ;;9002226.02101,"618,42254-0045-12 ",.01)
 ;;42254-0045-12
 ;;9002226.02101,"618,42254-0045-12 ",.02)
 ;;42254-0045-12
 ;;9002226.02101,"618,42254-0045-15 ",.01)
 ;;42254-0045-15
 ;;9002226.02101,"618,42254-0045-15 ",.02)
 ;;42254-0045-15
 ;;9002226.02101,"618,42254-0045-20 ",.01)
 ;;42254-0045-20
 ;;9002226.02101,"618,42254-0045-20 ",.02)
 ;;42254-0045-20
 ;;9002226.02101,"618,42254-0045-30 ",.01)
 ;;42254-0045-30
 ;;9002226.02101,"618,42254-0045-30 ",.02)
 ;;42254-0045-30
 ;;9002226.02101,"618,42254-0045-60 ",.01)
 ;;42254-0045-60
 ;;9002226.02101,"618,42254-0045-60 ",.02)
 ;;42254-0045-60
 ;;9002226.02101,"618,42254-0045-90 ",.01)
 ;;42254-0045-90
 ;;9002226.02101,"618,42254-0045-90 ",.02)
 ;;42254-0045-90
 ;;9002226.02101,"618,42254-0140-04 ",.01)
 ;;42254-0140-04
 ;;9002226.02101,"618,42254-0140-04 ",.02)
 ;;42254-0140-04
 ;;9002226.02101,"618,42254-0163-12 ",.01)
 ;;42254-0163-12
 ;;9002226.02101,"618,42254-0163-12 ",.02)
 ;;42254-0163-12
 ;;9002226.02101,"618,42254-0167-12 ",.01)
 ;;42254-0167-12
 ;;9002226.02101,"618,42254-0167-12 ",.02)
 ;;42254-0167-12
 ;;9002226.02101,"618,42254-0400-12 ",.01)
 ;;42254-0400-12
 ;;9002226.02101,"618,42254-0400-12 ",.02)
 ;;42254-0400-12
 ;;9002226.02101,"618,42291-0225-01 ",.01)
 ;;42291-0225-01
 ;;9002226.02101,"618,42291-0225-01 ",.02)
 ;;42291-0225-01
 ;;9002226.02101,"618,42291-0225-10 ",.01)
 ;;42291-0225-10
 ;;9002226.02101,"618,42291-0225-10 ",.02)
 ;;42291-0225-10
 ;;9002226.02101,"618,42291-0322-50 ",.01)
 ;;42291-0322-50
 ;;9002226.02101,"618,42291-0322-50 ",.02)
 ;;42291-0322-50
 ;;9002226.02101,"618,42291-0322-90 ",.01)
 ;;42291-0322-90
 ;;9002226.02101,"618,42291-0322-90 ",.02)
 ;;42291-0322-90
 ;;9002226.02101,"618,42291-0323-50 ",.01)
 ;;42291-0323-50
 ;;9002226.02101,"618,42291-0323-50 ",.02)
 ;;42291-0323-50
 ;;9002226.02101,"618,42291-0323-90 ",.01)
 ;;42291-0323-90
 ;;9002226.02101,"618,42291-0323-90 ",.02)
 ;;42291-0323-90
 ;;9002226.02101,"618,42549-0528-30 ",.01)
 ;;42549-0528-30
 ;;9002226.02101,"618,42549-0528-30 ",.02)
 ;;42549-0528-30
 ;;9002226.02101,"618,42549-0543-10 ",.01)
 ;;42549-0543-10
 ;;9002226.02101,"618,42549-0543-10 ",.02)
 ;;42549-0543-10
 ;;9002226.02101,"618,42549-0543-20 ",.01)
 ;;42549-0543-20
 ;;9002226.02101,"618,42549-0543-20 ",.02)
 ;;42549-0543-20
 ;;9002226.02101,"618,42549-0543-30 ",.01)
 ;;42549-0543-30
 ;;9002226.02101,"618,42549-0543-30 ",.02)
 ;;42549-0543-30
 ;;9002226.02101,"618,42819-0105-01 ",.01)
 ;;42819-0105-01
 ;;9002226.02101,"618,42819-0105-01 ",.02)
 ;;42819-0105-01
 ;;9002226.02101,"618,42819-0106-01 ",.01)
 ;;42819-0106-01
 ;;9002226.02101,"618,42819-0106-01 ",.02)
 ;;42819-0106-01
 ;;9002226.02101,"618,43063-0049-02 ",.01)
 ;;43063-0049-02
 ;;9002226.02101,"618,43063-0049-02 ",.02)
 ;;43063-0049-02
 ;;9002226.02101,"618,43063-0049-06 ",.01)
 ;;43063-0049-06
 ;;9002226.02101,"618,43063-0049-06 ",.02)
 ;;43063-0049-06
 ;;9002226.02101,"618,43063-0060-02 ",.01)
 ;;43063-0060-02
 ;;9002226.02101,"618,43063-0060-02 ",.02)
 ;;43063-0060-02
 ;;9002226.02101,"618,43063-0060-04 ",.01)
 ;;43063-0060-04
 ;;9002226.02101,"618,43063-0060-04 ",.02)
 ;;43063-0060-04
 ;;9002226.02101,"618,43063-0060-06 ",.01)
 ;;43063-0060-06
 ;;9002226.02101,"618,43063-0060-06 ",.02)
 ;;43063-0060-06
 ;;9002226.02101,"618,43063-0095-06 ",.01)
 ;;43063-0095-06