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

BGP33J86.m

Go to the documentation of this file.
BGP33J86 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"734,68330-0001-10 ",.01)
 ;;68330-0001-10
 ;;9002226.02101,"734,68330-0001-10 ",.02)
 ;;68330-0001-10
 ;;9002226.02101,"734,68330-0002-01 ",.01)
 ;;68330-0002-01
 ;;9002226.02101,"734,68330-0002-01 ",.02)
 ;;68330-0002-01
 ;;9002226.02101,"734,68330-0002-10 ",.01)
 ;;68330-0002-10
 ;;9002226.02101,"734,68330-0002-10 ",.02)
 ;;68330-0002-10
 ;;9002226.02101,"734,68330-0003-01 ",.01)
 ;;68330-0003-01
 ;;9002226.02101,"734,68330-0003-01 ",.02)
 ;;68330-0003-01
 ;;9002226.02101,"734,68330-0003-10 ",.01)
 ;;68330-0003-10
 ;;9002226.02101,"734,68330-0003-10 ",.02)
 ;;68330-0003-10
 ;;9002226.02101,"734,68330-0004-01 ",.01)
 ;;68330-0004-01
 ;;9002226.02101,"734,68330-0004-01 ",.02)
 ;;68330-0004-01
 ;;9002226.02101,"734,68330-0004-10 ",.01)
 ;;68330-0004-10
 ;;9002226.02101,"734,68330-0004-10 ",.02)
 ;;68330-0004-10
 ;;9002226.02101,"734,68330-0005-01 ",.01)
 ;;68330-0005-01
 ;;9002226.02101,"734,68330-0005-01 ",.02)
 ;;68330-0005-01
 ;;9002226.02101,"734,68330-0006-01 ",.01)
 ;;68330-0006-01
 ;;9002226.02101,"734,68330-0006-01 ",.02)
 ;;68330-0006-01
 ;;9002226.02101,"734,68330-0015-25 ",.01)
 ;;68330-0015-25
 ;;9002226.02101,"734,68330-0015-25 ",.02)
 ;;68330-0015-25
 ;;9002226.02101,"734,68382-0761-14 ",.01)
 ;;68382-0761-14
 ;;9002226.02101,"734,68382-0761-14 ",.02)
 ;;68382-0761-14
 ;;9002226.02101,"734,68382-0762-14 ",.01)
 ;;68382-0762-14
 ;;9002226.02101,"734,68382-0762-14 ",.02)
 ;;68382-0762-14
 ;;9002226.02101,"734,68382-0763-14 ",.01)
 ;;68382-0763-14
 ;;9002226.02101,"734,68382-0763-14 ",.02)
 ;;68382-0763-14
 ;;9002226.02101,"734,68382-0764-05 ",.01)
 ;;68382-0764-05
 ;;9002226.02101,"734,68382-0764-05 ",.02)
 ;;68382-0764-05
 ;;9002226.02101,"734,68382-0764-06 ",.01)
 ;;68382-0764-06
 ;;9002226.02101,"734,68382-0764-06 ",.02)
 ;;68382-0764-06
 ;;9002226.02101,"734,68382-0765-05 ",.01)
 ;;68382-0765-05
 ;;9002226.02101,"734,68382-0765-05 ",.02)
 ;;68382-0765-05
 ;;9002226.02101,"734,68382-0765-06 ",.01)
 ;;68382-0765-06
 ;;9002226.02101,"734,68382-0765-06 ",.02)
 ;;68382-0765-06
 ;;9002226.02101,"734,68387-0117-30 ",.01)
 ;;68387-0117-30
 ;;9002226.02101,"734,68387-0117-30 ",.02)
 ;;68387-0117-30
 ;;9002226.02101,"734,68387-0190-20 ",.01)
 ;;68387-0190-20
 ;;9002226.02101,"734,68387-0190-20 ",.02)
 ;;68387-0190-20
 ;;9002226.02101,"734,68387-0190-21 ",.01)
 ;;68387-0190-21
 ;;9002226.02101,"734,68387-0190-21 ",.02)
 ;;68387-0190-21
 ;;9002226.02101,"734,68387-0190-30 ",.01)
 ;;68387-0190-30
 ;;9002226.02101,"734,68387-0190-30 ",.02)
 ;;68387-0190-30
 ;;9002226.02101,"734,68387-0190-40 ",.01)
 ;;68387-0190-40
 ;;9002226.02101,"734,68387-0190-40 ",.02)
 ;;68387-0190-40
 ;;9002226.02101,"734,68387-0380-20 ",.01)
 ;;68387-0380-20
 ;;9002226.02101,"734,68387-0380-20 ",.02)
 ;;68387-0380-20
 ;;9002226.02101,"734,68387-0385-20 ",.01)
 ;;68387-0385-20
 ;;9002226.02101,"734,68387-0385-20 ",.02)
 ;;68387-0385-20
 ;;9002226.02101,"734,68387-0385-30 ",.01)
 ;;68387-0385-30
 ;;9002226.02101,"734,68387-0385-30 ",.02)
 ;;68387-0385-30
 ;;9002226.02101,"734,68387-0385-60 ",.01)
 ;;68387-0385-60
 ;;9002226.02101,"734,68387-0385-60 ",.02)
 ;;68387-0385-60
 ;;9002226.02101,"734,68387-0390-20 ",.01)
 ;;68387-0390-20
 ;;9002226.02101,"734,68387-0390-20 ",.02)
 ;;68387-0390-20
 ;;9002226.02101,"734,68387-0390-28 ",.01)
 ;;68387-0390-28
 ;;9002226.02101,"734,68387-0390-28 ",.02)
 ;;68387-0390-28
 ;;9002226.02101,"734,68387-0430-30 ",.01)
 ;;68387-0430-30
 ;;9002226.02101,"734,68387-0430-30 ",.02)
 ;;68387-0430-30
 ;;9002226.02101,"734,68387-0430-40 ",.01)
 ;;68387-0430-40
 ;;9002226.02101,"734,68387-0430-40 ",.02)
 ;;68387-0430-40
 ;;9002226.02101,"734,68387-0470-14 ",.01)
 ;;68387-0470-14
 ;;9002226.02101,"734,68387-0470-14 ",.02)
 ;;68387-0470-14
 ;;9002226.02101,"734,68387-0470-20 ",.01)
 ;;68387-0470-20
 ;;9002226.02101,"734,68387-0470-20 ",.02)
 ;;68387-0470-20
 ;;9002226.02101,"734,68387-0534-01 ",.01)
 ;;68387-0534-01
 ;;9002226.02101,"734,68387-0534-01 ",.02)
 ;;68387-0534-01
 ;;9002226.02101,"734,68387-0535-15 ",.01)
 ;;68387-0535-15
 ;;9002226.02101,"734,68387-0535-15 ",.02)
 ;;68387-0535-15
 ;;9002226.02101,"734,68387-0535-20 ",.01)
 ;;68387-0535-20
 ;;9002226.02101,"734,68387-0535-20 ",.02)
 ;;68387-0535-20
 ;;9002226.02101,"734,68387-0548-28 ",.01)
 ;;68387-0548-28
 ;;9002226.02101,"734,68387-0548-28 ",.02)
 ;;68387-0548-28
 ;;9002226.02101,"734,68387-0565-06 ",.01)
 ;;68387-0565-06
 ;;9002226.02101,"734,68387-0565-06 ",.02)
 ;;68387-0565-06
 ;;9002226.02101,"734,68387-0580-15 ",.01)
 ;;68387-0580-15
 ;;9002226.02101,"734,68387-0580-15 ",.02)
 ;;68387-0580-15
 ;;9002226.02101,"734,68453-0112-10 ",.01)
 ;;68453-0112-10
 ;;9002226.02101,"734,68453-0112-10 ",.02)
 ;;68453-0112-10
 ;;9002226.02101,"734,68453-0113-10 ",.01)
 ;;68453-0113-10
 ;;9002226.02101,"734,68453-0113-10 ",.02)
 ;;68453-0113-10
 ;;9002226.02101,"734,68453-0115-05 ",.01)
 ;;68453-0115-05
 ;;9002226.02101,"734,68453-0115-05 ",.02)
 ;;68453-0115-05
 ;;9002226.02101,"734,68453-0142-03 ",.01)
 ;;68453-0142-03
 ;;9002226.02101,"734,68453-0142-03 ",.02)
 ;;68453-0142-03
 ;;9002226.02101,"734,68462-0339-01 ",.01)
 ;;68462-0339-01
 ;;9002226.02101,"734,68462-0339-01 ",.02)
 ;;68462-0339-01
 ;;9002226.02101,"734,68462-0339-05 ",.01)
 ;;68462-0339-05
 ;;9002226.02101,"734,68462-0339-05 ",.02)
 ;;68462-0339-05
 ;;9002226.02101,"734,68462-0340-01 ",.01)
 ;;68462-0340-01
 ;;9002226.02101,"734,68462-0340-01 ",.02)
 ;;68462-0340-01
 ;;9002226.02101,"734,68462-0340-05 ",.01)
 ;;68462-0340-05
 ;;9002226.02101,"734,68462-0340-05 ",.02)
 ;;68462-0340-05
 ;;9002226.02101,"734,68645-0030-20 ",.01)
 ;;68645-0030-20
 ;;9002226.02101,"734,68645-0030-20 ",.02)
 ;;68645-0030-20
 ;;9002226.02101,"734,68774-0120-60 ",.01)
 ;;68774-0120-60
 ;;9002226.02101,"734,68774-0120-60 ",.02)
 ;;68774-0120-60
 ;;9002226.02101,"734,68774-0122-60 ",.01)
 ;;68774-0122-60
 ;;9002226.02101,"734,68774-0122-60 ",.02)
 ;;68774-0122-60
 ;;9002226.02101,"734,68774-0302-29 ",.01)
 ;;68774-0302-29
 ;;9002226.02101,"734,68774-0302-29 ",.02)
 ;;68774-0302-29
 ;;9002226.02101,"734,68774-0302-35 ",.01)
 ;;68774-0302-35
 ;;9002226.02101,"734,68774-0302-35 ",.02)
 ;;68774-0302-35
 ;;9002226.02101,"734,68774-0303-29 ",.01)
 ;;68774-0303-29
 ;;9002226.02101,"734,68774-0303-29 ",.02)
 ;;68774-0303-29
 ;;9002226.02101,"734,68774-0303-35 ",.01)
 ;;68774-0303-35
 ;;9002226.02101,"734,68774-0303-35 ",.02)
 ;;68774-0303-35
 ;;9002226.02101,"734,68820-0016-10 ",.01)
 ;;68820-0016-10
 ;;9002226.02101,"734,68820-0016-10 ",.02)
 ;;68820-0016-10
 ;;9002226.02101,"734,68820-0017-08 ",.01)
 ;;68820-0017-08
 ;;9002226.02101,"734,68820-0017-08 ",.02)
 ;;68820-0017-08
 ;;9002226.02101,"734,68820-0018-15 ",.01)
 ;;68820-0018-15
 ;;9002226.02101,"734,68820-0018-15 ",.02)
 ;;68820-0018-15
 ;;9002226.02101,"734,68820-0018-16 ",.01)
 ;;68820-0018-16
 ;;9002226.02101,"734,68820-0018-16 ",.02)
 ;;68820-0018-16
 ;;9002226.02101,"734,68820-0018-17 ",.01)
 ;;68820-0018-17
 ;;9002226.02101,"734,68820-0018-17 ",.02)
 ;;68820-0018-17
 ;;9002226.02101,"734,68820-0019-15 ",.01)
 ;;68820-0019-15
 ;;9002226.02101,"734,68820-0019-15 ",.02)
 ;;68820-0019-15
 ;;9002226.02101,"734,68820-0019-16 ",.01)
 ;;68820-0019-16
 ;;9002226.02101,"734,68820-0019-16 ",.02)
 ;;68820-0019-16
 ;;9002226.02101,"734,68820-0019-17 ",.01)
 ;;68820-0019-17
 ;;9002226.02101,"734,68820-0019-17 ",.02)
 ;;68820-0019-17
 ;;9002226.02101,"734,68820-0043-08 ",.01)
 ;;68820-0043-08
 ;;9002226.02101,"734,68820-0043-08 ",.02)
 ;;68820-0043-08
 ;;9002226.02101,"734,68820-0043-10 ",.01)
 ;;68820-0043-10
 ;;9002226.02101,"734,68820-0043-10 ",.02)
 ;;68820-0043-10
 ;;9002226.02101,"734,68820-0063-06 ",.01)
 ;;68820-0063-06
 ;;9002226.02101,"734,68820-0063-06 ",.02)
 ;;68820-0063-06
 ;;9002226.02101,"734,68820-0063-09 ",.01)
 ;;68820-0063-09
 ;;9002226.02101,"734,68820-0063-09 ",.02)
 ;;68820-0063-09
 ;;9002226.02101,"734,68820-0063-19 ",.01)
 ;;68820-0063-19
 ;;9002226.02101,"734,68820-0063-19 ",.02)
 ;;68820-0063-19
 ;;9002226.02101,"734,68820-0064-17 ",.01)
 ;;68820-0064-17
 ;;9002226.02101,"734,68820-0064-17 ",.02)
 ;;68820-0064-17
 ;;9002226.02101,"734,68820-0064-37 ",.01)
 ;;68820-0064-37
 ;;9002226.02101,"734,68820-0064-37 ",.02)
 ;;68820-0064-37
 ;;9002226.02101,"734,68820-0065-17 ",.01)
 ;;68820-0065-17
 ;;9002226.02101,"734,68820-0065-17 ",.02)
 ;;68820-0065-17
 ;;9002226.02101,"734,68820-0065-37 ",.01)
 ;;68820-0065-37
 ;;9002226.02101,"734,68820-0065-37 ",.02)
 ;;68820-0065-37
 ;;9002226.02101,"734,76439-0101-10 ",.01)
 ;;76439-0101-10
 ;;9002226.02101,"734,76439-0101-10 ",.02)
 ;;76439-0101-10
 ;;9002226.02101,"734,76439-0101-50 ",.01)
 ;;76439-0101-50
 ;;9002226.02101,"734,76439-0101-50 ",.02)
 ;;76439-0101-50
 ;;9002226.02101,"734,76439-0102-10 ",.01)
 ;;76439-0102-10
 ;;9002226.02101,"734,76439-0102-10 ",.02)
 ;;76439-0102-10
 ;;9002226.02101,"734,76439-0102-50 ",.01)
 ;;76439-0102-50
 ;;9002226.02101,"734,76439-0102-50 ",.02)
 ;;76439-0102-50
 ;;9002226.02101,"734,76439-0103-10 ",.01)
 ;;76439-0103-10
 ;;9002226.02101,"734,76439-0103-10 ",.02)
 ;;76439-0103-10
 ;;9002226.02101,"734,76439-0103-50 ",.01)
 ;;76439-0103-50
 ;;9002226.02101,"734,76439-0103-50 ",.02)
 ;;76439-0103-50
 ;;9002226.02101,"734,76439-0104-10 ",.01)
 ;;76439-0104-10
 ;;9002226.02101,"734,76439-0104-10 ",.02)
 ;;76439-0104-10
 ;;9002226.02101,"734,76439-0104-50 ",.01)
 ;;76439-0104-50
 ;;9002226.02101,"734,76439-0104-50 ",.02)
 ;;76439-0104-50
 ;;9002226.02101,"734,99207-0460-10 ",.01)
 ;;99207-0460-10
 ;;9002226.02101,"734,99207-0460-10 ",.02)
 ;;99207-0460-10
 ;;9002226.02101,"734,99207-0460-30 ",.01)
 ;;99207-0460-30
 ;;9002226.02101,"734,99207-0460-30 ",.02)
 ;;99207-0460-30
 ;;9002226.02101,"734,99207-0461-10 ",.01)
 ;;99207-0461-10
 ;;9002226.02101,"734,99207-0461-10 ",.02)
 ;;99207-0461-10
 ;;9002226.02101,"734,99207-0461-30 ",.01)
 ;;99207-0461-30
 ;;9002226.02101,"734,99207-0461-30 ",.02)
 ;;99207-0461-30
 ;;9002226.02101,"734,99207-0462-10 ",.01)
 ;;99207-0462-10
 ;;9002226.02101,"734,99207-0462-10 ",.02)
 ;;99207-0462-10
 ;;9002226.02101,"734,99207-0462-30 ",.01)
 ;;99207-0462-30
 ;;9002226.02101,"734,99207-0462-30 ",.02)
 ;;99207-0462-30
 ;;9002226.02101,"734,99207-0463-30 ",.01)
 ;;99207-0463-30
 ;;9002226.02101,"734,99207-0463-30 ",.02)
 ;;99207-0463-30
 ;;9002226.02101,"734,99207-0464-30 ",.01)
 ;;99207-0464-30
 ;;9002226.02101,"734,99207-0464-30 ",.02)
 ;;99207-0464-30
 ;;9002226.02101,"734,99207-0465-30 ",.01)
 ;;99207-0465-30
 ;;9002226.02101,"734,99207-0465-30 ",.02)
 ;;99207-0465-30
 ;;9002226.02101,"734,99207-0466-30 ",.01)
 ;;99207-0466-30
 ;;9002226.02101,"734,99207-0466-30 ",.02)
 ;;99207-0466-30
 ;;9002226.02101,"734,99207-0467-30 ",.01)
 ;;99207-0467-30
 ;;9002226.02101,"734,99207-0467-30 ",.02)
 ;;99207-0467-30
 ;;9002226.02101,"734,99207-0490-10 ",.01)
 ;;99207-0490-10
 ;;9002226.02101,"734,99207-0490-10 ",.02)
 ;;99207-0490-10
 ;;9002226.02101,"734,99207-0491-10 ",.01)
 ;;99207-0491-10
 ;;9002226.02101,"734,99207-0491-10 ",.02)
 ;;99207-0491-10
 ;;9002226.02101,"734,99207-0491-11 ",.01)
 ;;99207-0491-11
 ;;9002226.02101,"734,99207-0491-11 ",.02)
 ;;99207-0491-11
 ;;9002226.02101,"734,99207-0492-11 ",.01)
 ;;99207-0492-11
 ;;9002226.02101,"734,99207-0492-11 ",.02)
 ;;99207-0492-11
 ;;9002226.02101,"734,99207-0492-50 ",.01)
 ;;99207-0492-50
 ;;9002226.02101,"734,99207-0492-50 ",.02)
 ;;99207-0492-50
 ;;9002226.02101,"734,99207-0497-05 ",.01)
 ;;99207-0497-05
 ;;9002226.02101,"734,99207-0497-05 ",.02)
 ;;99207-0497-05
 ;;9002226.02101,"734,99207-0498-05 ",.01)
 ;;99207-0498-05
 ;;9002226.02101,"734,99207-0498-05 ",.02)
 ;;99207-0498-05
 ;;9002226.02101,"734,99207-0499-05 ",.01)
 ;;99207-0499-05
 ;;9002226.02101,"734,99207-0499-05 ",.02)
 ;;99207-0499-05
 ;;9002226.02101,"734,99207-0499-10 ",.01)
 ;;99207-0499-10
 ;;9002226.02101,"734,99207-0499-10 ",.02)
 ;;99207-0499-10
 ;;9002226.02101,"734,99207-0499-11 ",.01)
 ;;99207-0499-11
 ;;9002226.02101,"734,99207-0499-11 ",.02)
 ;;99207-0499-11