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

BGP53I43.m

Go to the documentation of this file.
BGP53I43 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,50111-0792-22 ",.02)
 ;;50111-0792-22
 ;;9002226.02101,"734,50111-0793-20 ",.01)
 ;;50111-0793-20
 ;;9002226.02101,"734,50111-0793-20 ",.02)
 ;;50111-0793-20
 ;;9002226.02101,"734,50111-0794-78 ",.01)
 ;;50111-0794-78
 ;;9002226.02101,"734,50111-0794-78 ",.02)
 ;;50111-0794-78
 ;;9002226.02101,"734,50268-0098-15 ",.01)
 ;;50268-0098-15
 ;;9002226.02101,"734,50268-0098-15 ",.02)
 ;;50268-0098-15
 ;;9002226.02101,"734,50268-0099-13 ",.01)
 ;;50268-0099-13
 ;;9002226.02101,"734,50268-0099-13 ",.02)
 ;;50268-0099-13
 ;;9002226.02101,"734,50268-0100-15 ",.01)
 ;;50268-0100-15
 ;;9002226.02101,"734,50268-0100-15 ",.02)
 ;;50268-0100-15
 ;;9002226.02101,"734,50268-0101-13 ",.01)
 ;;50268-0101-13
 ;;9002226.02101,"734,50268-0101-13 ",.02)
 ;;50268-0101-13
 ;;9002226.02101,"734,50268-0775-15 ",.01)
 ;;50268-0775-15
 ;;9002226.02101,"734,50268-0775-15 ",.02)
 ;;50268-0775-15
 ;;9002226.02101,"734,50383-0286-04 ",.01)
 ;;50383-0286-04
 ;;9002226.02101,"734,50383-0286-04 ",.02)
 ;;50383-0286-04
 ;;9002226.02101,"734,50383-0286-08 ",.01)
 ;;50383-0286-08
 ;;9002226.02101,"734,50383-0286-08 ",.02)
 ;;50383-0286-08
 ;;9002226.02101,"734,50383-0286-11 ",.01)
 ;;50383-0286-11
 ;;9002226.02101,"734,50383-0286-11 ",.02)
 ;;50383-0286-11
 ;;9002226.02101,"734,50383-0286-16 ",.01)
 ;;50383-0286-16
 ;;9002226.02101,"734,50383-0286-16 ",.02)
 ;;50383-0286-16
 ;;9002226.02101,"734,50383-0286-21 ",.01)
 ;;50383-0286-21
 ;;9002226.02101,"734,50383-0286-21 ",.02)
 ;;50383-0286-21
 ;;9002226.02101,"734,50383-0823-16 ",.01)
 ;;50383-0823-16
 ;;9002226.02101,"734,50383-0823-16 ",.02)
 ;;50383-0823-16
 ;;9002226.02101,"734,50383-0824-16 ",.01)
 ;;50383-0824-16
 ;;9002226.02101,"734,50383-0824-16 ",.02)
 ;;50383-0824-16
 ;;9002226.02101,"734,50383-0824-21 ",.01)
 ;;50383-0824-21
 ;;9002226.02101,"734,50383-0824-21 ",.02)
 ;;50383-0824-21
 ;;9002226.02101,"734,50419-0754-01 ",.01)
 ;;50419-0754-01
 ;;9002226.02101,"734,50419-0754-01 ",.02)
 ;;50419-0754-01
 ;;9002226.02101,"734,50419-0758-01 ",.01)
 ;;50419-0758-01
 ;;9002226.02101,"734,50419-0758-01 ",.02)
 ;;50419-0758-01
 ;;9002226.02101,"734,50419-0759-01 ",.01)
 ;;50419-0759-01
 ;;9002226.02101,"734,50419-0759-01 ",.02)
 ;;50419-0759-01
 ;;9002226.02101,"734,50419-0773-01 ",.01)
 ;;50419-0773-01
 ;;9002226.02101,"734,50419-0773-01 ",.02)
 ;;50419-0773-01
 ;;9002226.02101,"734,50419-0777-01 ",.01)
 ;;50419-0777-01
 ;;9002226.02101,"734,50419-0777-01 ",.02)
 ;;50419-0777-01
 ;;9002226.02101,"734,50419-0788-01 ",.01)
 ;;50419-0788-01
 ;;9002226.02101,"734,50419-0788-01 ",.02)
 ;;50419-0788-01
 ;;9002226.02101,"734,50419-0789-01 ",.01)
 ;;50419-0789-01
 ;;9002226.02101,"734,50419-0789-01 ",.02)
 ;;50419-0789-01
 ;;9002226.02101,"734,50458-0164-20 ",.01)
 ;;50458-0164-20
 ;;9002226.02101,"734,50458-0164-20 ",.02)
 ;;50458-0164-20
 ;;9002226.02101,"734,50458-0165-30 ",.01)
 ;;50458-0165-30
 ;;9002226.02101,"734,50458-0165-30 ",.02)
 ;;50458-0165-30
 ;;9002226.02101,"734,50458-0166-01 ",.01)
 ;;50458-0166-01
 ;;9002226.02101,"734,50458-0166-01 ",.02)
 ;;50458-0166-01
 ;;9002226.02101,"734,50458-0167-01 ",.01)
 ;;50458-0167-01
 ;;9002226.02101,"734,50458-0167-01 ",.02)
 ;;50458-0167-01
 ;;9002226.02101,"734,50458-0168-01 ",.01)
 ;;50458-0168-01
 ;;9002226.02101,"734,50458-0168-01 ",.02)
 ;;50458-0168-01
 ;;9002226.02101,"734,50458-0170-01 ",.01)
 ;;50458-0170-01
 ;;9002226.02101,"734,50458-0170-01 ",.02)
 ;;50458-0170-01
 ;;9002226.02101,"734,50458-0920-10 ",.01)
 ;;50458-0920-10
 ;;9002226.02101,"734,50458-0920-10 ",.02)
 ;;50458-0920-10
 ;;9002226.02101,"734,50458-0920-50 ",.01)
 ;;50458-0920-50
 ;;9002226.02101,"734,50458-0920-50 ",.02)
 ;;50458-0920-50
 ;;9002226.02101,"734,50458-0925-10 ",.01)
 ;;50458-0925-10
 ;;9002226.02101,"734,50458-0925-10 ",.02)
 ;;50458-0925-10
 ;;9002226.02101,"734,50458-0925-50 ",.01)
 ;;50458-0925-50
 ;;9002226.02101,"734,50458-0925-50 ",.02)
 ;;50458-0925-50
 ;;9002226.02101,"734,50458-0930-10 ",.01)
 ;;50458-0930-10
 ;;9002226.02101,"734,50458-0930-10 ",.02)
 ;;50458-0930-10
 ;;9002226.02101,"734,50458-0930-20 ",.01)
 ;;50458-0930-20
 ;;9002226.02101,"734,50458-0930-20 ",.02)
 ;;50458-0930-20
 ;;9002226.02101,"734,50962-0302-20 ",.01)
 ;;50962-0302-20
 ;;9002226.02101,"734,50962-0302-20 ",.02)
 ;;50962-0302-20
 ;;9002226.02101,"734,51079-0016-01 ",.01)
 ;;51079-0016-01
 ;;9002226.02101,"734,51079-0016-01 ",.02)
 ;;51079-0016-01
 ;;9002226.02101,"734,51079-0016-20 ",.01)
 ;;51079-0016-20
 ;;9002226.02101,"734,51079-0016-20 ",.02)
 ;;51079-0016-20
 ;;9002226.02101,"734,51079-0017-01 ",.01)
 ;;51079-0017-01
 ;;9002226.02101,"734,51079-0017-01 ",.02)
 ;;51079-0017-01
 ;;9002226.02101,"734,51079-0017-20 ",.01)
 ;;51079-0017-20
 ;;9002226.02101,"734,51079-0017-20 ",.02)
 ;;51079-0017-20
 ;;9002226.02101,"734,51079-0034-01 ",.01)
 ;;51079-0034-01
 ;;9002226.02101,"734,51079-0034-01 ",.02)
 ;;51079-0034-01
 ;;9002226.02101,"734,51079-0034-20 ",.01)
 ;;51079-0034-20
 ;;9002226.02101,"734,51079-0034-20 ",.02)
 ;;51079-0034-20
 ;;9002226.02101,"734,51079-0035-01 ",.01)
 ;;51079-0035-01
 ;;9002226.02101,"734,51079-0035-01 ",.02)
 ;;51079-0035-01
 ;;9002226.02101,"734,51079-0035-20 ",.01)
 ;;51079-0035-20
 ;;9002226.02101,"734,51079-0035-20 ",.02)
 ;;51079-0035-20
 ;;9002226.02101,"734,51079-0040-01 ",.01)
 ;;51079-0040-01
 ;;9002226.02101,"734,51079-0040-01 ",.02)
 ;;51079-0040-01
 ;;9002226.02101,"734,51079-0040-20 ",.01)
 ;;51079-0040-20
 ;;9002226.02101,"734,51079-0040-20 ",.02)
 ;;51079-0040-20
 ;;9002226.02101,"734,51079-0128-01 ",.01)
 ;;51079-0128-01
 ;;9002226.02101,"734,51079-0128-01 ",.02)
 ;;51079-0128-01
 ;;9002226.02101,"734,51079-0128-20 ",.01)
 ;;51079-0128-20
 ;;9002226.02101,"734,51079-0128-20 ",.02)
 ;;51079-0128-20
 ;;9002226.02101,"734,51079-0128-90 ",.01)
 ;;51079-0128-90
 ;;9002226.02101,"734,51079-0128-90 ",.02)
 ;;51079-0128-90
 ;;9002226.02101,"734,51079-0128-92 ",.01)
 ;;51079-0128-92
 ;;9002226.02101,"734,51079-0128-92 ",.02)
 ;;51079-0128-92
 ;;9002226.02101,"734,51079-0181-01 ",.01)
 ;;51079-0181-01
 ;;9002226.02101,"734,51079-0181-01 ",.02)
 ;;51079-0181-01
 ;;9002226.02101,"734,51079-0181-20 ",.01)
 ;;51079-0181-20
 ;;9002226.02101,"734,51079-0181-20 ",.02)
 ;;51079-0181-20
 ;;9002226.02101,"734,51079-0182-01 ",.01)
 ;;51079-0182-01
 ;;9002226.02101,"734,51079-0182-01 ",.02)
 ;;51079-0182-01
 ;;9002226.02101,"734,51079-0182-20 ",.01)
 ;;51079-0182-20
 ;;9002226.02101,"734,51079-0182-20 ",.02)
 ;;51079-0182-20
 ;;9002226.02101,"734,51079-0265-01 ",.01)
 ;;51079-0265-01
 ;;9002226.02101,"734,51079-0265-01 ",.02)
 ;;51079-0265-01
 ;;9002226.02101,"734,51079-0265-20 ",.01)
 ;;51079-0265-20
 ;;9002226.02101,"734,51079-0265-20 ",.02)
 ;;51079-0265-20
 ;;9002226.02101,"734,51079-0267-01 ",.01)
 ;;51079-0267-01
 ;;9002226.02101,"734,51079-0267-01 ",.02)
 ;;51079-0267-01
 ;;9002226.02101,"734,51079-0267-20 ",.01)
 ;;51079-0267-20
 ;;9002226.02101,"734,51079-0267-20 ",.02)
 ;;51079-0267-20
 ;;9002226.02101,"734,51079-0361-01 ",.01)
 ;;51079-0361-01
 ;;9002226.02101,"734,51079-0361-01 ",.02)
 ;;51079-0361-01
 ;;9002226.02101,"734,51079-0361-20 ",.01)
 ;;51079-0361-20
 ;;9002226.02101,"734,51079-0361-20 ",.02)
 ;;51079-0361-20
 ;;9002226.02101,"734,51079-0362-01 ",.01)
 ;;51079-0362-01
 ;;9002226.02101,"734,51079-0362-01 ",.02)
 ;;51079-0362-01
 ;;9002226.02101,"734,51079-0362-20 ",.01)
 ;;51079-0362-20
 ;;9002226.02101,"734,51079-0362-20 ",.02)
 ;;51079-0362-20
 ;;9002226.02101,"734,51079-0402-01 ",.01)
 ;;51079-0402-01
 ;;9002226.02101,"734,51079-0402-01 ",.02)
 ;;51079-0402-01
 ;;9002226.02101,"734,51079-0402-20 ",.01)
 ;;51079-0402-20
 ;;9002226.02101,"734,51079-0402-20 ",.02)
 ;;51079-0402-20
 ;;9002226.02101,"734,51079-0403-01 ",.01)
 ;;51079-0403-01
 ;;9002226.02101,"734,51079-0403-01 ",.02)
 ;;51079-0403-01
 ;;9002226.02101,"734,51079-0403-20 ",.01)
 ;;51079-0403-20
 ;;9002226.02101,"734,51079-0403-20 ",.02)
 ;;51079-0403-20
 ;;9002226.02101,"734,51079-0591-01 ",.01)
 ;;51079-0591-01
 ;;9002226.02101,"734,51079-0591-01 ",.02)
 ;;51079-0591-01
 ;;9002226.02101,"734,51079-0591-20 ",.01)
 ;;51079-0591-20
 ;;9002226.02101,"734,51079-0591-20 ",.02)
 ;;51079-0591-20
 ;;9002226.02101,"734,51079-0598-01 ",.01)
 ;;51079-0598-01
 ;;9002226.02101,"734,51079-0598-01 ",.02)
 ;;51079-0598-01
 ;;9002226.02101,"734,51079-0598-17 ",.01)
 ;;51079-0598-17
 ;;9002226.02101,"734,51079-0598-17 ",.02)
 ;;51079-0598-17
 ;;9002226.02101,"734,51079-0598-19 ",.01)
 ;;51079-0598-19
 ;;9002226.02101,"734,51079-0598-19 ",.02)
 ;;51079-0598-19
 ;;9002226.02101,"734,51079-0598-20 ",.01)
 ;;51079-0598-20
 ;;9002226.02101,"734,51079-0598-20 ",.02)
 ;;51079-0598-20
 ;;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-01 ",.01)
 ;;51079-0672-01
 ;;9002226.02101,"734,51079-0672-01 ",.02)
 ;;51079-0672-01
 ;;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-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-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-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-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