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

BGP47N43.m

Go to the documentation of this file.
BGP47N43 ;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,"730,68115-0019-10 ",.02)
 ;;68115-0019-10
 ;;9002226.02101,"730,68115-0019-15 ",.01)
 ;;68115-0019-15
 ;;9002226.02101,"730,68115-0019-15 ",.02)
 ;;68115-0019-15
 ;;9002226.02101,"730,68115-0019-20 ",.01)
 ;;68115-0019-20
 ;;9002226.02101,"730,68115-0019-20 ",.02)
 ;;68115-0019-20
 ;;9002226.02101,"730,68115-0019-30 ",.01)
 ;;68115-0019-30
 ;;9002226.02101,"730,68115-0019-30 ",.02)
 ;;68115-0019-30
 ;;9002226.02101,"730,68115-0019-60 ",.01)
 ;;68115-0019-60
 ;;9002226.02101,"730,68115-0019-60 ",.02)
 ;;68115-0019-60
 ;;9002226.02101,"730,68115-0019-90 ",.01)
 ;;68115-0019-90
 ;;9002226.02101,"730,68115-0019-90 ",.02)
 ;;68115-0019-90
 ;;9002226.02101,"730,68115-0020-00 ",.01)
 ;;68115-0020-00
 ;;9002226.02101,"730,68115-0020-00 ",.02)
 ;;68115-0020-00
 ;;9002226.02101,"730,68115-0020-10 ",.01)
 ;;68115-0020-10
 ;;9002226.02101,"730,68115-0020-10 ",.02)
 ;;68115-0020-10
 ;;9002226.02101,"730,68115-0020-15 ",.01)
 ;;68115-0020-15
 ;;9002226.02101,"730,68115-0020-15 ",.02)
 ;;68115-0020-15
 ;;9002226.02101,"730,68115-0020-30 ",.01)
 ;;68115-0020-30
 ;;9002226.02101,"730,68115-0020-30 ",.02)
 ;;68115-0020-30
 ;;9002226.02101,"730,68115-0021-00 ",.01)
 ;;68115-0021-00
 ;;9002226.02101,"730,68115-0021-00 ",.02)
 ;;68115-0021-00
 ;;9002226.02101,"730,68115-0021-30 ",.01)
 ;;68115-0021-30
 ;;9002226.02101,"730,68115-0021-30 ",.02)
 ;;68115-0021-30
 ;;9002226.02101,"730,68115-0021-60 ",.01)
 ;;68115-0021-60
 ;;9002226.02101,"730,68115-0021-60 ",.02)
 ;;68115-0021-60
 ;;9002226.02101,"730,68115-0022-00 ",.01)
 ;;68115-0022-00
 ;;9002226.02101,"730,68115-0022-00 ",.02)
 ;;68115-0022-00
 ;;9002226.02101,"730,68115-0022-30 ",.01)
 ;;68115-0022-30
 ;;9002226.02101,"730,68115-0022-30 ",.02)
 ;;68115-0022-30
 ;;9002226.02101,"730,68115-0022-60 ",.01)
 ;;68115-0022-60
 ;;9002226.02101,"730,68115-0022-60 ",.02)
 ;;68115-0022-60
 ;;9002226.02101,"730,68115-0022-90 ",.01)
 ;;68115-0022-90
 ;;9002226.02101,"730,68115-0022-90 ",.02)
 ;;68115-0022-90
 ;;9002226.02101,"730,68115-0023-00 ",.01)
 ;;68115-0023-00
 ;;9002226.02101,"730,68115-0023-00 ",.02)
 ;;68115-0023-00
 ;;9002226.02101,"730,68115-0023-30 ",.01)
 ;;68115-0023-30
 ;;9002226.02101,"730,68115-0023-30 ",.02)
 ;;68115-0023-30
 ;;9002226.02101,"730,68115-0023-60 ",.01)
 ;;68115-0023-60
 ;;9002226.02101,"730,68115-0023-60 ",.02)
 ;;68115-0023-60
 ;;9002226.02101,"730,68115-0023-90 ",.01)
 ;;68115-0023-90
 ;;9002226.02101,"730,68115-0023-90 ",.02)
 ;;68115-0023-90
 ;;9002226.02101,"730,68115-0023-99 ",.01)
 ;;68115-0023-99
 ;;9002226.02101,"730,68115-0023-99 ",.02)
 ;;68115-0023-99
 ;;9002226.02101,"730,68115-0024-00 ",.01)
 ;;68115-0024-00
 ;;9002226.02101,"730,68115-0024-00 ",.02)
 ;;68115-0024-00
 ;;9002226.02101,"730,68115-0024-30 ",.01)
 ;;68115-0024-30
 ;;9002226.02101,"730,68115-0024-30 ",.02)
 ;;68115-0024-30
 ;;9002226.02101,"730,68115-0024-60 ",.01)
 ;;68115-0024-60
 ;;9002226.02101,"730,68115-0024-60 ",.02)
 ;;68115-0024-60
 ;;9002226.02101,"730,68115-0024-90 ",.01)
 ;;68115-0024-90
 ;;9002226.02101,"730,68115-0024-90 ",.02)
 ;;68115-0024-90
 ;;9002226.02101,"730,68115-0041-15 ",.01)
 ;;68115-0041-15
 ;;9002226.02101,"730,68115-0041-15 ",.02)
 ;;68115-0041-15
 ;;9002226.02101,"730,68115-0041-20 ",.01)
 ;;68115-0041-20
 ;;9002226.02101,"730,68115-0041-20 ",.02)
 ;;68115-0041-20
 ;;9002226.02101,"730,68115-0041-30 ",.01)
 ;;68115-0041-30
 ;;9002226.02101,"730,68115-0041-30 ",.02)
 ;;68115-0041-30
 ;;9002226.02101,"730,68115-0054-06 ",.01)
 ;;68115-0054-06
 ;;9002226.02101,"730,68115-0054-06 ",.02)
 ;;68115-0054-06
 ;;9002226.02101,"730,68115-0054-12 ",.01)
 ;;68115-0054-12
 ;;9002226.02101,"730,68115-0054-12 ",.02)
 ;;68115-0054-12
 ;;9002226.02101,"730,68115-0054-30 ",.01)
 ;;68115-0054-30
 ;;9002226.02101,"730,68115-0054-30 ",.02)
 ;;68115-0054-30
 ;;9002226.02101,"730,68115-0054-40 ",.01)
 ;;68115-0054-40
 ;;9002226.02101,"730,68115-0054-40 ",.02)
 ;;68115-0054-40
 ;;9002226.02101,"730,68115-0054-50 ",.01)
 ;;68115-0054-50
 ;;9002226.02101,"730,68115-0054-50 ",.02)
 ;;68115-0054-50
 ;;9002226.02101,"730,68115-0054-60 ",.01)
 ;;68115-0054-60
 ;;9002226.02101,"730,68115-0054-60 ",.02)
 ;;68115-0054-60
 ;;9002226.02101,"730,68115-0055-30 ",.01)
 ;;68115-0055-30
 ;;9002226.02101,"730,68115-0055-30 ",.02)
 ;;68115-0055-30
 ;;9002226.02101,"730,68115-0056-30 ",.01)
 ;;68115-0056-30
 ;;9002226.02101,"730,68115-0056-30 ",.02)
 ;;68115-0056-30
 ;;9002226.02101,"730,68115-0057-00 ",.01)
 ;;68115-0057-00
 ;;9002226.02101,"730,68115-0057-00 ",.02)
 ;;68115-0057-00
 ;;9002226.02101,"730,68115-0057-15 ",.01)
 ;;68115-0057-15
 ;;9002226.02101,"730,68115-0057-15 ",.02)
 ;;68115-0057-15
 ;;9002226.02101,"730,68115-0124-00 ",.01)
 ;;68115-0124-00
 ;;9002226.02101,"730,68115-0124-00 ",.02)
 ;;68115-0124-00
 ;;9002226.02101,"730,68115-0124-30 ",.01)
 ;;68115-0124-30
 ;;9002226.02101,"730,68115-0124-30 ",.02)
 ;;68115-0124-30
 ;;9002226.02101,"730,68115-0124-60 ",.01)
 ;;68115-0124-60
 ;;9002226.02101,"730,68115-0124-60 ",.02)
 ;;68115-0124-60
 ;;9002226.02101,"730,68115-0124-90 ",.01)
 ;;68115-0124-90
 ;;9002226.02101,"730,68115-0124-90 ",.02)
 ;;68115-0124-90
 ;;9002226.02101,"730,68115-0402-30 ",.01)
 ;;68115-0402-30
 ;;9002226.02101,"730,68115-0402-30 ",.02)
 ;;68115-0402-30
 ;;9002226.02101,"730,68115-0402-60 ",.01)
 ;;68115-0402-60
 ;;9002226.02101,"730,68115-0402-60 ",.02)
 ;;68115-0402-60
 ;;9002226.02101,"730,68115-0430-30 ",.01)
 ;;68115-0430-30
 ;;9002226.02101,"730,68115-0430-30 ",.02)
 ;;68115-0430-30
 ;;9002226.02101,"730,68115-0439-30 ",.01)
 ;;68115-0439-30
 ;;9002226.02101,"730,68115-0439-30 ",.02)
 ;;68115-0439-30
 ;;9002226.02101,"730,68115-0439-60 ",.01)
 ;;68115-0439-60
 ;;9002226.02101,"730,68115-0439-60 ",.02)
 ;;68115-0439-60
 ;;9002226.02101,"730,68115-0499-48 ",.01)
 ;;68115-0499-48
 ;;9002226.02101,"730,68115-0499-48 ",.02)
 ;;68115-0499-48
 ;;9002226.02101,"730,68115-0624-00 ",.01)
 ;;68115-0624-00
 ;;9002226.02101,"730,68115-0624-00 ",.02)
 ;;68115-0624-00
 ;;9002226.02101,"730,68115-0627-00 ",.01)
 ;;68115-0627-00
 ;;9002226.02101,"730,68115-0627-00 ",.02)
 ;;68115-0627-00
 ;;9002226.02101,"730,68115-0679-00 ",.01)
 ;;68115-0679-00
 ;;9002226.02101,"730,68115-0679-00 ",.02)
 ;;68115-0679-00
 ;;9002226.02101,"730,68115-0689-00 ",.01)
 ;;68115-0689-00
 ;;9002226.02101,"730,68115-0689-00 ",.02)
 ;;68115-0689-00
 ;;9002226.02101,"730,68115-0764-00 ",.01)
 ;;68115-0764-00
 ;;9002226.02101,"730,68115-0764-00 ",.02)
 ;;68115-0764-00
 ;;9002226.02101,"730,68115-0830-00 ",.01)
 ;;68115-0830-00
 ;;9002226.02101,"730,68115-0830-00 ",.02)
 ;;68115-0830-00
 ;;9002226.02101,"730,68115-0833-00 ",.01)
 ;;68115-0833-00
 ;;9002226.02101,"730,68115-0833-00 ",.02)
 ;;68115-0833-00
 ;;9002226.02101,"730,68115-0844-00 ",.01)
 ;;68115-0844-00
 ;;9002226.02101,"730,68115-0844-00 ",.02)
 ;;68115-0844-00
 ;;9002226.02101,"730,68115-0859-00 ",.01)
 ;;68115-0859-00
 ;;9002226.02101,"730,68115-0859-00 ",.02)
 ;;68115-0859-00
 ;;9002226.02101,"730,68115-0897-04 ",.01)
 ;;68115-0897-04
 ;;9002226.02101,"730,68115-0897-04 ",.02)
 ;;68115-0897-04
 ;;9002226.02101,"730,68180-0311-01 ",.01)
 ;;68180-0311-01
 ;;9002226.02101,"730,68180-0311-01 ",.02)
 ;;68180-0311-01
 ;;9002226.02101,"730,68180-0312-01 ",.01)
 ;;68180-0312-01
 ;;9002226.02101,"730,68180-0312-01 ",.02)
 ;;68180-0312-01
 ;;9002226.02101,"730,68180-0313-01 ",.01)
 ;;68180-0313-01
 ;;9002226.02101,"730,68180-0313-01 ",.02)
 ;;68180-0313-01
 ;;9002226.02101,"730,68180-0314-06 ",.01)
 ;;68180-0314-06
 ;;9002226.02101,"730,68180-0314-06 ",.02)
 ;;68180-0314-06
 ;;9002226.02101,"730,68180-0315-06 ",.01)
 ;;68180-0315-06
 ;;9002226.02101,"730,68180-0315-06 ",.02)
 ;;68180-0315-06
 ;;9002226.02101,"730,68180-0316-06 ",.01)
 ;;68180-0316-06
 ;;9002226.02101,"730,68180-0316-06 ",.02)
 ;;68180-0316-06
 ;;9002226.02101,"730,68180-0317-06 ",.01)
 ;;68180-0317-06
 ;;9002226.02101,"730,68180-0317-06 ",.02)
 ;;68180-0317-06
 ;;9002226.02101,"730,68258-1061-01 ",.01)
 ;;68258-1061-01
 ;;9002226.02101,"730,68258-1061-01 ",.02)
 ;;68258-1061-01
 ;;9002226.02101,"730,68258-2012-03 ",.01)
 ;;68258-2012-03
 ;;9002226.02101,"730,68258-2012-03 ",.02)
 ;;68258-2012-03
 ;;9002226.02101,"730,68258-2012-09 ",.01)
 ;;68258-2012-09
 ;;9002226.02101,"730,68258-2012-09 ",.02)
 ;;68258-2012-09
 ;;9002226.02101,"730,68258-4993-01 ",.01)
 ;;68258-4993-01
 ;;9002226.02101,"730,68258-4993-01 ",.02)
 ;;68258-4993-01
 ;;9002226.02101,"730,68258-7048-03 ",.01)
 ;;68258-7048-03
 ;;9002226.02101,"730,68258-7048-03 ",.02)
 ;;68258-7048-03
 ;;9002226.02101,"730,68258-7049-03 ",.01)
 ;;68258-7049-03
 ;;9002226.02101,"730,68258-7049-03 ",.02)
 ;;68258-7049-03
 ;;9002226.02101,"730,68258-7083-01 ",.01)
 ;;68258-7083-01
 ;;9002226.02101,"730,68258-7083-01 ",.02)
 ;;68258-7083-01
 ;;9002226.02101,"730,68258-7083-02 ",.01)
 ;;68258-7083-02
 ;;9002226.02101,"730,68258-7083-02 ",.02)
 ;;68258-7083-02
 ;;9002226.02101,"730,68258-7083-03 ",.01)
 ;;68258-7083-03
 ;;9002226.02101,"730,68258-7083-03 ",.02)
 ;;68258-7083-03
 ;;9002226.02101,"730,68258-7083-06 ",.01)
 ;;68258-7083-06
 ;;9002226.02101,"730,68258-7083-06 ",.02)
 ;;68258-7083-06
 ;;9002226.02101,"730,68258-7119-03 ",.01)
 ;;68258-7119-03
 ;;9002226.02101,"730,68258-7119-03 ",.02)
 ;;68258-7119-03
 ;;9002226.02101,"730,68258-7119-09 ",.01)
 ;;68258-7119-09
 ;;9002226.02101,"730,68258-7119-09 ",.02)
 ;;68258-7119-09
 ;;9002226.02101,"730,68258-7125-06 ",.01)
 ;;68258-7125-06
 ;;9002226.02101,"730,68258-7125-06 ",.02)
 ;;68258-7125-06
 ;;9002226.02101,"730,68258-7143-03 ",.01)
 ;;68258-7143-03
 ;;9002226.02101,"730,68258-7143-03 ",.02)
 ;;68258-7143-03
 ;;9002226.02101,"730,68258-7145-03 ",.01)
 ;;68258-7145-03
 ;;9002226.02101,"730,68258-7145-03 ",.02)
 ;;68258-7145-03
 ;;9002226.02101,"730,68258-7160-03 ",.01)
 ;;68258-7160-03
 ;;9002226.02101,"730,68258-7160-03 ",.02)
 ;;68258-7160-03
 ;;9002226.02101,"730,68258-9148-01 ",.01)
 ;;68258-9148-01
 ;;9002226.02101,"730,68258-9148-01 ",.02)
 ;;68258-9148-01
 ;;9002226.02101,"730,68258-9149-01 ",.01)
 ;;68258-9149-01
 ;;9002226.02101,"730,68258-9149-01 ",.02)
 ;;68258-9149-01
 ;;9002226.02101,"730,68308-0554-10 ",.01)
 ;;68308-0554-10
 ;;9002226.02101,"730,68308-0554-10 ",.02)
 ;;68308-0554-10
 ;;9002226.02101,"730,68387-0335-15 ",.01)
 ;;68387-0335-15
 ;;9002226.02101,"730,68387-0335-15 ",.02)
 ;;68387-0335-15
 ;;9002226.02101,"730,68387-0335-24 ",.01)
 ;;68387-0335-24
 ;;9002226.02101,"730,68387-0335-24 ",.02)
 ;;68387-0335-24
 ;;9002226.02101,"730,68387-0335-30 ",.01)
 ;;68387-0335-30
 ;;9002226.02101,"730,68387-0335-30 ",.02)
 ;;68387-0335-30
 ;;9002226.02101,"730,68387-0335-60 ",.01)
 ;;68387-0335-60
 ;;9002226.02101,"730,68387-0335-60 ",.02)
 ;;68387-0335-60
 ;;9002226.02101,"730,68387-0335-90 ",.01)
 ;;68387-0335-90
 ;;9002226.02101,"730,68387-0335-90 ",.02)
 ;;68387-0335-90
 ;;9002226.02101,"730,68387-0336-30 ",.01)
 ;;68387-0336-30
 ;;9002226.02101,"730,68387-0336-30 ",.02)
 ;;68387-0336-30
 ;;9002226.02101,"730,68387-0336-90 ",.01)
 ;;68387-0336-90
 ;;9002226.02101,"730,68387-0336-90 ",.02)
 ;;68387-0336-90
 ;;9002226.02101,"730,68387-0337-24 ",.01)
 ;;68387-0337-24
 ;;9002226.02101,"730,68387-0337-24 ",.02)
 ;;68387-0337-24
 ;;9002226.02101,"730,68387-0337-30 ",.01)
 ;;68387-0337-30
 ;;9002226.02101,"730,68387-0337-30 ",.02)
 ;;68387-0337-30
 ;;9002226.02101,"730,68387-0338-30 ",.01)
 ;;68387-0338-30
 ;;9002226.02101,"730,68387-0338-30 ",.02)
 ;;68387-0338-30
 ;;9002226.02101,"730,68387-0339-30 ",.01)
 ;;68387-0339-30
 ;;9002226.02101,"730,68387-0339-30 ",.02)
 ;;68387-0339-30
 ;;9002226.02101,"730,68387-0485-15 ",.01)
 ;;68387-0485-15
 ;;9002226.02101,"730,68387-0485-15 ",.02)
 ;;68387-0485-15
 ;;9002226.02101,"730,68387-0485-30 ",.01)
 ;;68387-0485-30
 ;;9002226.02101,"730,68387-0485-30 ",.02)
 ;;68387-0485-30
 ;;9002226.02101,"730,68387-0486-15 ",.01)
 ;;68387-0486-15
 ;;9002226.02101,"730,68387-0486-15 ",.02)
 ;;68387-0486-15
 ;;9002226.02101,"730,68387-0486-30 ",.01)
 ;;68387-0486-30
 ;;9002226.02101,"730,68387-0486-30 ",.02)
 ;;68387-0486-30
 ;;9002226.02101,"730,68387-0487-30 ",.01)
 ;;68387-0487-30
 ;;9002226.02101,"730,68387-0487-30 ",.02)
 ;;68387-0487-30
 ;;9002226.02101,"730,68387-0520-12 ",.01)
 ;;68387-0520-12
 ;;9002226.02101,"730,68387-0520-12 ",.02)
 ;;68387-0520-12
 ;;9002226.02101,"730,68387-0520-20 ",.01)
 ;;68387-0520-20
 ;;9002226.02101,"730,68387-0520-20 ",.02)
 ;;68387-0520-20
 ;;9002226.02101,"730,68387-0520-30 ",.01)
 ;;68387-0520-30
 ;;9002226.02101,"730,68387-0520-30 ",.02)
 ;;68387-0520-30
 ;;9002226.02101,"730,68387-0520-60 ",.01)
 ;;68387-0520-60
 ;;9002226.02101,"730,68387-0520-60 ",.02)
 ;;68387-0520-60
 ;;9002226.02101,"730,68387-0520-90 ",.01)
 ;;68387-0520-90
 ;;9002226.02101,"730,68387-0520-90 ",.02)
 ;;68387-0520-90
 ;;9002226.02101,"730,68453-0074-10 ",.01)
 ;;68453-0074-10
 ;;9002226.02101,"730,68453-0074-10 ",.02)
 ;;68453-0074-10
 ;;9002226.02101,"730,68453-0170-10 ",.01)
 ;;68453-0170-10
 ;;9002226.02101,"730,68453-0170-10 ",.02)
 ;;68453-0170-10
 ;;9002226.02101,"730,68462-0279-01 ",.01)
 ;;68462-0279-01
 ;;9002226.02101,"730,68462-0279-01 ",.02)
 ;;68462-0279-01
 ;;9002226.02101,"730,68462-0279-05 ",.01)
 ;;68462-0279-05
 ;;9002226.02101,"730,68462-0279-05 ",.02)
 ;;68462-0279-05
 ;;9002226.02101,"730,68462-0280-01 ",.01)
 ;;68462-0280-01
 ;;9002226.02101,"730,68462-0280-01 ",.02)
 ;;68462-0280-01
 ;;9002226.02101,"730,68462-0280-05 ",.01)
 ;;68462-0280-05