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

BGP33J47.m

Go to the documentation of this file.
BGP33J47 ;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,51079-0601-01 ",.01)
 ;;51079-0601-01
 ;;9002226.02101,"734,51079-0601-01 ",.02)
 ;;51079-0601-01
 ;;9002226.02101,"734,51079-0601-20 ",.01)
 ;;51079-0601-20
 ;;9002226.02101,"734,51079-0601-20 ",.02)
 ;;51079-0601-20
 ;;9002226.02101,"734,51079-0604-01 ",.01)
 ;;51079-0604-01
 ;;9002226.02101,"734,51079-0604-01 ",.02)
 ;;51079-0604-01
 ;;9002226.02101,"734,51079-0604-20 ",.01)
 ;;51079-0604-20
 ;;9002226.02101,"734,51079-0604-20 ",.02)
 ;;51079-0604-20
 ;;9002226.02101,"734,51079-0605-01 ",.01)
 ;;51079-0605-01
 ;;9002226.02101,"734,51079-0605-01 ",.02)
 ;;51079-0605-01
 ;;9002226.02101,"734,51079-0605-20 ",.01)
 ;;51079-0605-20
 ;;9002226.02101,"734,51079-0605-20 ",.02)
 ;;51079-0605-20
 ;;9002226.02101,"734,51079-0672-20 ",.01)
 ;;51079-0672-20
 ;;9002226.02101,"734,51079-0672-20 ",.02)
 ;;51079-0672-20
 ;;9002226.02101,"734,51079-0673-01 ",.01)
 ;;51079-0673-01
 ;;9002226.02101,"734,51079-0673-01 ",.02)
 ;;51079-0673-01
 ;;9002226.02101,"734,51079-0673-06 ",.01)
 ;;51079-0673-06
 ;;9002226.02101,"734,51079-0673-06 ",.02)
 ;;51079-0673-06
 ;;9002226.02101,"734,51285-0445-21 ",.01)
 ;;51285-0445-21
 ;;9002226.02101,"734,51285-0445-21 ",.02)
 ;;51285-0445-21
 ;;9002226.02101,"734,51285-0445-22 ",.01)
 ;;51285-0445-22
 ;;9002226.02101,"734,51285-0445-22 ",.02)
 ;;51285-0445-22
 ;;9002226.02101,"734,51285-0445-23 ",.01)
 ;;51285-0445-23
 ;;9002226.02101,"734,51285-0445-23 ",.02)
 ;;51285-0445-23
 ;;9002226.02101,"734,51655-0009-52 ",.01)
 ;;51655-0009-52
 ;;9002226.02101,"734,51655-0009-52 ",.02)
 ;;51655-0009-52
 ;;9002226.02101,"734,51655-0009-87 ",.01)
 ;;51655-0009-87
 ;;9002226.02101,"734,51655-0009-87 ",.02)
 ;;51655-0009-87
 ;;9002226.02101,"734,51655-0010-24 ",.01)
 ;;51655-0010-24
 ;;9002226.02101,"734,51655-0010-24 ",.02)
 ;;51655-0010-24
 ;;9002226.02101,"734,51655-0010-29 ",.01)
 ;;51655-0010-29
 ;;9002226.02101,"734,51655-0010-29 ",.02)
 ;;51655-0010-29
 ;;9002226.02101,"734,51655-0010-51 ",.01)
 ;;51655-0010-51
 ;;9002226.02101,"734,51655-0010-51 ",.02)
 ;;51655-0010-51
 ;;9002226.02101,"734,51655-0010-52 ",.01)
 ;;51655-0010-52
 ;;9002226.02101,"734,51655-0010-52 ",.02)
 ;;51655-0010-52
 ;;9002226.02101,"734,51655-0024-24 ",.01)
 ;;51655-0024-24
 ;;9002226.02101,"734,51655-0024-24 ",.02)
 ;;51655-0024-24
 ;;9002226.02101,"734,51655-0024-29 ",.01)
 ;;51655-0024-29
 ;;9002226.02101,"734,51655-0024-29 ",.02)
 ;;51655-0024-29
 ;;9002226.02101,"734,51655-0024-51 ",.01)
 ;;51655-0024-51
 ;;9002226.02101,"734,51655-0024-51 ",.02)
 ;;51655-0024-51
 ;;9002226.02101,"734,51655-0024-87 ",.01)
 ;;51655-0024-87
 ;;9002226.02101,"734,51655-0024-87 ",.02)
 ;;51655-0024-87
 ;;9002226.02101,"734,51655-0075-87 ",.01)
 ;;51655-0075-87
 ;;9002226.02101,"734,51655-0075-87 ",.02)
 ;;51655-0075-87
 ;;9002226.02101,"734,51655-0097-27 ",.01)
 ;;51655-0097-27
 ;;9002226.02101,"734,51655-0097-27 ",.02)
 ;;51655-0097-27
 ;;9002226.02101,"734,51655-0098-29 ",.01)
 ;;51655-0098-29
 ;;9002226.02101,"734,51655-0098-29 ",.02)
 ;;51655-0098-29
 ;;9002226.02101,"734,51655-0098-51 ",.01)
 ;;51655-0098-51
 ;;9002226.02101,"734,51655-0098-51 ",.02)
 ;;51655-0098-51
 ;;9002226.02101,"734,51655-0098-87 ",.01)
 ;;51655-0098-87
 ;;9002226.02101,"734,51655-0098-87 ",.02)
 ;;51655-0098-87
 ;;9002226.02101,"734,51655-0098-95 ",.01)
 ;;51655-0098-95
 ;;9002226.02101,"734,51655-0098-95 ",.02)
 ;;51655-0098-95
 ;;9002226.02101,"734,51655-0104-29 ",.01)
 ;;51655-0104-29
 ;;9002226.02101,"734,51655-0104-29 ",.02)
 ;;51655-0104-29
 ;;9002226.02101,"734,51655-0110-31 ",.01)
 ;;51655-0110-31
 ;;9002226.02101,"734,51655-0110-31 ",.02)
 ;;51655-0110-31
 ;;9002226.02101,"734,51655-0112-31 ",.01)
 ;;51655-0112-31
 ;;9002226.02101,"734,51655-0112-31 ",.02)
 ;;51655-0112-31
 ;;9002226.02101,"734,51655-0112-51 ",.01)
 ;;51655-0112-51
 ;;9002226.02101,"734,51655-0112-51 ",.02)
 ;;51655-0112-51
 ;;9002226.02101,"734,51655-0112-53 ",.01)
 ;;51655-0112-53
 ;;9002226.02101,"734,51655-0112-53 ",.02)
 ;;51655-0112-53
 ;;9002226.02101,"734,51655-0115-84 ",.01)
 ;;51655-0115-84
 ;;9002226.02101,"734,51655-0115-84 ",.02)
 ;;51655-0115-84
 ;;9002226.02101,"734,51655-0115-87 ",.01)
 ;;51655-0115-87
 ;;9002226.02101,"734,51655-0115-87 ",.02)
 ;;51655-0115-87
 ;;9002226.02101,"734,51655-0118-29 ",.01)
 ;;51655-0118-29
 ;;9002226.02101,"734,51655-0118-29 ",.02)
 ;;51655-0118-29
 ;;9002226.02101,"734,51655-0118-47 ",.01)
 ;;51655-0118-47
 ;;9002226.02101,"734,51655-0118-47 ",.02)
 ;;51655-0118-47
 ;;9002226.02101,"734,51655-0118-52 ",.01)
 ;;51655-0118-52
 ;;9002226.02101,"734,51655-0118-52 ",.02)
 ;;51655-0118-52
 ;;9002226.02101,"734,51655-0118-53 ",.01)
 ;;51655-0118-53
 ;;9002226.02101,"734,51655-0118-53 ",.02)
 ;;51655-0118-53
 ;;9002226.02101,"734,51655-0118-84 ",.01)
 ;;51655-0118-84
 ;;9002226.02101,"734,51655-0118-84 ",.02)
 ;;51655-0118-84
 ;;9002226.02101,"734,51655-0118-87 ",.01)
 ;;51655-0118-87
 ;;9002226.02101,"734,51655-0118-87 ",.02)
 ;;51655-0118-87
 ;;9002226.02101,"734,51655-0120-29 ",.01)
 ;;51655-0120-29
 ;;9002226.02101,"734,51655-0120-29 ",.02)
 ;;51655-0120-29
 ;;9002226.02101,"734,51655-0152-29 ",.01)
 ;;51655-0152-29
 ;;9002226.02101,"734,51655-0152-29 ",.02)
 ;;51655-0152-29
 ;;9002226.02101,"734,51655-0186-29 ",.01)
 ;;51655-0186-29
 ;;9002226.02101,"734,51655-0186-29 ",.02)
 ;;51655-0186-29
 ;;9002226.02101,"734,51655-0194-29 ",.01)
 ;;51655-0194-29
 ;;9002226.02101,"734,51655-0194-29 ",.02)
 ;;51655-0194-29
 ;;9002226.02101,"734,51655-0258-29 ",.01)
 ;;51655-0258-29
 ;;9002226.02101,"734,51655-0258-29 ",.02)
 ;;51655-0258-29
 ;;9002226.02101,"734,51655-0297-51 ",.01)
 ;;51655-0297-51
 ;;9002226.02101,"734,51655-0297-51 ",.02)
 ;;51655-0297-51
 ;;9002226.02101,"734,51655-0412-24 ",.01)
 ;;51655-0412-24
 ;;9002226.02101,"734,51655-0412-24 ",.02)
 ;;51655-0412-24
 ;;9002226.02101,"734,51655-0480-24 ",.01)
 ;;51655-0480-24
 ;;9002226.02101,"734,51655-0480-24 ",.02)
 ;;51655-0480-24
 ;;9002226.02101,"734,51655-0519-29 ",.01)
 ;;51655-0519-29
 ;;9002226.02101,"734,51655-0519-29 ",.02)
 ;;51655-0519-29
 ;;9002226.02101,"734,51655-0519-51 ",.01)
 ;;51655-0519-51
 ;;9002226.02101,"734,51655-0519-51 ",.02)
 ;;51655-0519-51
 ;;9002226.02101,"734,51655-0537-84 ",.01)
 ;;51655-0537-84
 ;;9002226.02101,"734,51655-0537-84 ",.02)
 ;;51655-0537-84
 ;;9002226.02101,"734,51655-0537-87 ",.01)
 ;;51655-0537-87
 ;;9002226.02101,"734,51655-0537-87 ",.02)
 ;;51655-0537-87
 ;;9002226.02101,"734,51655-0674-29 ",.01)
 ;;51655-0674-29
 ;;9002226.02101,"734,51655-0674-29 ",.02)
 ;;51655-0674-29
 ;;9002226.02101,"734,51655-0698-28 ",.01)
 ;;51655-0698-28
 ;;9002226.02101,"734,51655-0698-28 ",.02)
 ;;51655-0698-28
 ;;9002226.02101,"734,51655-0917-24 ",.01)
 ;;51655-0917-24
 ;;9002226.02101,"734,51655-0917-24 ",.02)
 ;;51655-0917-24
 ;;9002226.02101,"734,51655-0933-24 ",.01)
 ;;51655-0933-24
 ;;9002226.02101,"734,51655-0933-24 ",.02)
 ;;51655-0933-24
 ;;9002226.02101,"734,51655-0964-24 ",.01)
 ;;51655-0964-24
 ;;9002226.02101,"734,51655-0964-24 ",.02)
 ;;51655-0964-24
 ;;9002226.02101,"734,51655-0964-29 ",.01)
 ;;51655-0964-29
 ;;9002226.02101,"734,51655-0964-29 ",.02)
 ;;51655-0964-29
 ;;9002226.02101,"734,51655-0964-52 ",.01)
 ;;51655-0964-52
 ;;9002226.02101,"734,51655-0964-52 ",.02)
 ;;51655-0964-52
 ;;9002226.02101,"734,51655-0964-89 ",.01)
 ;;51655-0964-89
 ;;9002226.02101,"734,51655-0964-89 ",.02)
 ;;51655-0964-89
 ;;9002226.02101,"734,51991-0034-52 ",.01)
 ;;51991-0034-52
 ;;9002226.02101,"734,51991-0034-52 ",.02)
 ;;51991-0034-52
 ;;9002226.02101,"734,52555-0771-01 ",.01)
 ;;52555-0771-01
 ;;9002226.02101,"734,52555-0771-01 ",.02)
 ;;52555-0771-01
 ;;9002226.02101,"734,52959-0004-05 ",.01)
 ;;52959-0004-05
 ;;9002226.02101,"734,52959-0004-05 ",.02)
 ;;52959-0004-05
 ;;9002226.02101,"734,52959-0011-20 ",.01)
 ;;52959-0011-20
 ;;9002226.02101,"734,52959-0011-20 ",.02)
 ;;52959-0011-20
 ;;9002226.02101,"734,52959-0011-21 ",.01)
 ;;52959-0011-21
 ;;9002226.02101,"734,52959-0011-21 ",.02)
 ;;52959-0011-21
 ;;9002226.02101,"734,52959-0011-24 ",.01)
 ;;52959-0011-24
 ;;9002226.02101,"734,52959-0011-24 ",.02)
 ;;52959-0011-24
 ;;9002226.02101,"734,52959-0011-30 ",.01)
 ;;52959-0011-30
 ;;9002226.02101,"734,52959-0011-30 ",.02)
 ;;52959-0011-30
 ;;9002226.02101,"734,52959-0011-40 ",.01)
 ;;52959-0011-40
 ;;9002226.02101,"734,52959-0011-40 ",.02)
 ;;52959-0011-40
 ;;9002226.02101,"734,52959-0011-60 ",.01)
 ;;52959-0011-60
 ;;9002226.02101,"734,52959-0011-60 ",.02)
 ;;52959-0011-60
 ;;9002226.02101,"734,52959-0020-00 ",.01)
 ;;52959-0020-00
 ;;9002226.02101,"734,52959-0020-00 ",.02)
 ;;52959-0020-00
 ;;9002226.02101,"734,52959-0020-04 ",.01)
 ;;52959-0020-04
 ;;9002226.02101,"734,52959-0020-04 ",.02)
 ;;52959-0020-04
 ;;9002226.02101,"734,52959-0020-05 ",.01)
 ;;52959-0020-05
 ;;9002226.02101,"734,52959-0020-05 ",.02)
 ;;52959-0020-05
 ;;9002226.02101,"734,52959-0020-06 ",.01)
 ;;52959-0020-06
 ;;9002226.02101,"734,52959-0020-06 ",.02)
 ;;52959-0020-06
 ;;9002226.02101,"734,52959-0020-18 ",.01)
 ;;52959-0020-18
 ;;9002226.02101,"734,52959-0020-18 ",.02)
 ;;52959-0020-18
 ;;9002226.02101,"734,52959-0020-20 ",.01)
 ;;52959-0020-20
 ;;9002226.02101,"734,52959-0020-20 ",.02)
 ;;52959-0020-20
 ;;9002226.02101,"734,52959-0020-21 ",.01)
 ;;52959-0020-21
 ;;9002226.02101,"734,52959-0020-21 ",.02)
 ;;52959-0020-21
 ;;9002226.02101,"734,52959-0020-24 ",.01)
 ;;52959-0020-24
 ;;9002226.02101,"734,52959-0020-24 ",.02)
 ;;52959-0020-24
 ;;9002226.02101,"734,52959-0020-28 ",.01)
 ;;52959-0020-28
 ;;9002226.02101,"734,52959-0020-28 ",.02)
 ;;52959-0020-28
 ;;9002226.02101,"734,52959-0020-30 ",.01)
 ;;52959-0020-30
 ;;9002226.02101,"734,52959-0020-30 ",.02)
 ;;52959-0020-30
 ;;9002226.02101,"734,52959-0020-40 ",.01)
 ;;52959-0020-40
 ;;9002226.02101,"734,52959-0020-40 ",.02)
 ;;52959-0020-40
 ;;9002226.02101,"734,52959-0020-42 ",.01)
 ;;52959-0020-42
 ;;9002226.02101,"734,52959-0020-42 ",.02)
 ;;52959-0020-42
 ;;9002226.02101,"734,52959-0020-60 ",.01)
 ;;52959-0020-60
 ;;9002226.02101,"734,52959-0020-60 ",.02)
 ;;52959-0020-60
 ;;9002226.02101,"734,52959-0021-01 ",.01)
 ;;52959-0021-01
 ;;9002226.02101,"734,52959-0021-01 ",.02)
 ;;52959-0021-01
 ;;9002226.02101,"734,52959-0021-04 ",.01)
 ;;52959-0021-04
 ;;9002226.02101,"734,52959-0021-04 ",.02)
 ;;52959-0021-04
 ;;9002226.02101,"734,52959-0021-14 ",.01)
 ;;52959-0021-14
 ;;9002226.02101,"734,52959-0021-14 ",.02)
 ;;52959-0021-14
 ;;9002226.02101,"734,52959-0021-15 ",.01)
 ;;52959-0021-15
 ;;9002226.02101,"734,52959-0021-15 ",.02)
 ;;52959-0021-15
 ;;9002226.02101,"734,52959-0021-20 ",.01)
 ;;52959-0021-20
 ;;9002226.02101,"734,52959-0021-20 ",.02)
 ;;52959-0021-20
 ;;9002226.02101,"734,52959-0021-21 ",.01)
 ;;52959-0021-21
 ;;9002226.02101,"734,52959-0021-21 ",.02)
 ;;52959-0021-21
 ;;9002226.02101,"734,52959-0021-30 ",.01)
 ;;52959-0021-30
 ;;9002226.02101,"734,52959-0021-30 ",.02)
 ;;52959-0021-30
 ;;9002226.02101,"734,52959-0022-30 ",.01)
 ;;52959-0022-30
 ;;9002226.02101,"734,52959-0022-30 ",.02)
 ;;52959-0022-30
 ;;9002226.02101,"734,52959-0029-20 ",.01)
 ;;52959-0029-20
 ;;9002226.02101,"734,52959-0029-20 ",.02)
 ;;52959-0029-20
 ;;9002226.02101,"734,52959-0029-24 ",.01)
 ;;52959-0029-24
 ;;9002226.02101,"734,52959-0029-24 ",.02)
 ;;52959-0029-24
 ;;9002226.02101,"734,52959-0030-01 ",.01)
 ;;52959-0030-01
 ;;9002226.02101,"734,52959-0030-01 ",.02)
 ;;52959-0030-01
 ;;9002226.02101,"734,52959-0030-08 ",.01)
 ;;52959-0030-08
 ;;9002226.02101,"734,52959-0030-08 ",.02)
 ;;52959-0030-08
 ;;9002226.02101,"734,52959-0030-12 ",.01)
 ;;52959-0030-12
 ;;9002226.02101,"734,52959-0030-12 ",.02)
 ;;52959-0030-12
 ;;9002226.02101,"734,52959-0030-20 ",.01)
 ;;52959-0030-20
 ;;9002226.02101,"734,52959-0030-20 ",.02)
 ;;52959-0030-20
 ;;9002226.02101,"734,52959-0030-24 ",.01)
 ;;52959-0030-24
 ;;9002226.02101,"734,52959-0030-24 ",.02)
 ;;52959-0030-24
 ;;9002226.02101,"734,52959-0030-28 ",.01)
 ;;52959-0030-28
 ;;9002226.02101,"734,52959-0030-28 ",.02)
 ;;52959-0030-28
 ;;9002226.02101,"734,52959-0030-30 ",.01)
 ;;52959-0030-30
 ;;9002226.02101,"734,52959-0030-30 ",.02)
 ;;52959-0030-30
 ;;9002226.02101,"734,52959-0030-40 ",.01)
 ;;52959-0030-40
 ;;9002226.02101,"734,52959-0030-40 ",.02)
 ;;52959-0030-40
 ;;9002226.02101,"734,52959-0030-56 ",.01)
 ;;52959-0030-56
 ;;9002226.02101,"734,52959-0030-56 ",.02)
 ;;52959-0030-56
 ;;9002226.02101,"734,52959-0031-00 ",.01)
 ;;52959-0031-00
 ;;9002226.02101,"734,52959-0031-00 ",.02)
 ;;52959-0031-00
 ;;9002226.02101,"734,52959-0031-02 ",.01)
 ;;52959-0031-02
 ;;9002226.02101,"734,52959-0031-02 ",.02)
 ;;52959-0031-02
 ;;9002226.02101,"734,52959-0031-04 ",.01)
 ;;52959-0031-04
 ;;9002226.02101,"734,52959-0031-04 ",.02)
 ;;52959-0031-04
 ;;9002226.02101,"734,52959-0031-06 ",.01)
 ;;52959-0031-06
 ;;9002226.02101,"734,52959-0031-06 ",.02)
 ;;52959-0031-06
 ;;9002226.02101,"734,52959-0031-08 ",.01)
 ;;52959-0031-08
 ;;9002226.02101,"734,52959-0031-08 ",.02)
 ;;52959-0031-08
 ;;9002226.02101,"734,52959-0031-10 ",.01)
 ;;52959-0031-10
 ;;9002226.02101,"734,52959-0031-10 ",.02)
 ;;52959-0031-10
 ;;9002226.02101,"734,52959-0031-12 ",.01)
 ;;52959-0031-12
 ;;9002226.02101,"734,52959-0031-12 ",.02)
 ;;52959-0031-12
 ;;9002226.02101,"734,52959-0031-14 ",.01)
 ;;52959-0031-14
 ;;9002226.02101,"734,52959-0031-14 ",.02)
 ;;52959-0031-14
 ;;9002226.02101,"734,52959-0031-15 ",.01)
 ;;52959-0031-15
 ;;9002226.02101,"734,52959-0031-15 ",.02)
 ;;52959-0031-15