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

BGP13T33.m

Go to the documentation of this file.
BGP13T33 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"992,23490-7225-09 ",.01)
 ;;23490-7225-09
 ;;9002226.02101,"992,23490-7225-09 ",.02)
 ;;23490-7225-09
 ;;9002226.02101,"992,23490-7226-03 ",.01)
 ;;23490-7226-03
 ;;9002226.02101,"992,23490-7226-03 ",.02)
 ;;23490-7226-03
 ;;9002226.02101,"992,23490-7226-05 ",.01)
 ;;23490-7226-05
 ;;9002226.02101,"992,23490-7226-05 ",.02)
 ;;23490-7226-05
 ;;9002226.02101,"992,23490-7226-06 ",.01)
 ;;23490-7226-06
 ;;9002226.02101,"992,23490-7226-06 ",.02)
 ;;23490-7226-06
 ;;9002226.02101,"992,23490-7226-09 ",.01)
 ;;23490-7226-09
 ;;9002226.02101,"992,23490-7226-09 ",.02)
 ;;23490-7226-09
 ;;9002226.02101,"992,23490-7293-03 ",.01)
 ;;23490-7293-03
 ;;9002226.02101,"992,23490-7293-03 ",.02)
 ;;23490-7293-03
 ;;9002226.02101,"992,23490-7327-03 ",.01)
 ;;23490-7327-03
 ;;9002226.02101,"992,23490-7327-03 ",.02)
 ;;23490-7327-03
 ;;9002226.02101,"992,23490-7558-01 ",.01)
 ;;23490-7558-01
 ;;9002226.02101,"992,23490-7558-01 ",.02)
 ;;23490-7558-01
 ;;9002226.02101,"992,23490-7558-02 ",.01)
 ;;23490-7558-02
 ;;9002226.02101,"992,23490-7558-02 ",.02)
 ;;23490-7558-02
 ;;9002226.02101,"992,23490-7558-03 ",.01)
 ;;23490-7558-03
 ;;9002226.02101,"992,23490-7558-03 ",.02)
 ;;23490-7558-03
 ;;9002226.02101,"992,23490-7689-03 ",.01)
 ;;23490-7689-03
 ;;9002226.02101,"992,23490-7689-03 ",.02)
 ;;23490-7689-03
 ;;9002226.02101,"992,23490-7689-06 ",.01)
 ;;23490-7689-06
 ;;9002226.02101,"992,23490-7689-06 ",.02)
 ;;23490-7689-06
 ;;9002226.02101,"992,23490-9210-00 ",.01)
 ;;23490-9210-00
 ;;9002226.02101,"992,23490-9210-00 ",.02)
 ;;23490-9210-00
 ;;9002226.02101,"992,23490-9210-03 ",.01)
 ;;23490-9210-03
 ;;9002226.02101,"992,23490-9210-03 ",.02)
 ;;23490-9210-03
 ;;9002226.02101,"992,23490-9220-00 ",.01)
 ;;23490-9220-00
 ;;9002226.02101,"992,23490-9220-00 ",.02)
 ;;23490-9220-00
 ;;9002226.02101,"992,23490-9220-03 ",.01)
 ;;23490-9220-03
 ;;9002226.02101,"992,23490-9220-03 ",.02)
 ;;23490-9220-03
 ;;9002226.02101,"992,23490-9230-06 ",.01)
 ;;23490-9230-06
 ;;9002226.02101,"992,23490-9230-06 ",.02)
 ;;23490-9230-06
 ;;9002226.02101,"992,23490-9231-03 ",.01)
 ;;23490-9231-03
 ;;9002226.02101,"992,23490-9231-03 ",.02)
 ;;23490-9231-03
 ;;9002226.02101,"992,23490-9232-03 ",.01)
 ;;23490-9232-03
 ;;9002226.02101,"992,23490-9232-03 ",.02)
 ;;23490-9232-03
 ;;9002226.02101,"992,23490-9240-06 ",.01)
 ;;23490-9240-06
 ;;9002226.02101,"992,23490-9240-06 ",.02)
 ;;23490-9240-06
 ;;9002226.02101,"992,23629-0036-01 ",.01)
 ;;23629-0036-01
 ;;9002226.02101,"992,23629-0036-01 ",.02)
 ;;23629-0036-01
 ;;9002226.02101,"992,24658-0140-01 ",.01)
 ;;24658-0140-01
 ;;9002226.02101,"992,24658-0140-01 ",.02)
 ;;24658-0140-01
 ;;9002226.02101,"992,24658-0140-10 ",.01)
 ;;24658-0140-10
 ;;9002226.02101,"992,24658-0140-10 ",.02)
 ;;24658-0140-10
 ;;9002226.02101,"992,24658-0140-30 ",.01)
 ;;24658-0140-30
 ;;9002226.02101,"992,24658-0140-30 ",.02)
 ;;24658-0140-30
 ;;9002226.02101,"992,24658-0141-01 ",.01)
 ;;24658-0141-01
 ;;9002226.02101,"992,24658-0141-01 ",.02)
 ;;24658-0141-01
 ;;9002226.02101,"992,24658-0141-10 ",.01)
 ;;24658-0141-10
 ;;9002226.02101,"992,24658-0141-10 ",.02)
 ;;24658-0141-10
 ;;9002226.02101,"992,24658-0141-30 ",.01)
 ;;24658-0141-30
 ;;9002226.02101,"992,24658-0141-30 ",.02)
 ;;24658-0141-30
 ;;9002226.02101,"992,24658-0142-01 ",.01)
 ;;24658-0142-01
 ;;9002226.02101,"992,24658-0142-01 ",.02)
 ;;24658-0142-01
 ;;9002226.02101,"992,24658-0142-10 ",.01)
 ;;24658-0142-10
 ;;9002226.02101,"992,24658-0142-10 ",.02)
 ;;24658-0142-10
 ;;9002226.02101,"992,24658-0142-30 ",.01)
 ;;24658-0142-30
 ;;9002226.02101,"992,24658-0142-30 ",.02)
 ;;24658-0142-30
 ;;9002226.02101,"992,30698-0032-01 ",.01)
 ;;30698-0032-01
 ;;9002226.02101,"992,30698-0032-01 ",.02)
 ;;30698-0032-01
 ;;9002226.02101,"992,31722-0206-01 ",.01)
 ;;31722-0206-01
 ;;9002226.02101,"992,31722-0206-01 ",.02)
 ;;31722-0206-01
 ;;9002226.02101,"992,31722-0207-01 ",.01)
 ;;31722-0207-01
 ;;9002226.02101,"992,31722-0207-01 ",.02)
 ;;31722-0207-01
 ;;9002226.02101,"992,31722-0208-01 ",.01)
 ;;31722-0208-01
 ;;9002226.02101,"992,31722-0208-01 ",.02)
 ;;31722-0208-01
 ;;9002226.02101,"992,31722-0208-05 ",.01)
 ;;31722-0208-05
 ;;9002226.02101,"992,31722-0208-05 ",.02)
 ;;31722-0208-05
 ;;9002226.02101,"992,31722-0208-30 ",.01)
 ;;31722-0208-30
 ;;9002226.02101,"992,31722-0208-30 ",.02)
 ;;31722-0208-30
 ;;9002226.02101,"992,31722-0212-05 ",.01)
 ;;31722-0212-05
 ;;9002226.02101,"992,31722-0212-05 ",.02)
 ;;31722-0212-05
 ;;9002226.02101,"992,31722-0212-30 ",.01)
 ;;31722-0212-30
 ;;9002226.02101,"992,31722-0212-30 ",.02)
 ;;31722-0212-30
 ;;9002226.02101,"992,31722-0212-90 ",.01)
 ;;31722-0212-90
 ;;9002226.02101,"992,31722-0212-90 ",.02)
 ;;31722-0212-90
 ;;9002226.02101,"992,31722-0213-05 ",.01)
 ;;31722-0213-05
 ;;9002226.02101,"992,31722-0213-05 ",.02)
 ;;31722-0213-05
 ;;9002226.02101,"992,31722-0213-30 ",.01)
 ;;31722-0213-30
 ;;9002226.02101,"992,31722-0213-30 ",.02)
 ;;31722-0213-30
 ;;9002226.02101,"992,31722-0213-90 ",.01)
 ;;31722-0213-90
 ;;9002226.02101,"992,31722-0213-90 ",.02)
 ;;31722-0213-90
 ;;9002226.02101,"992,31722-0214-05 ",.01)
 ;;31722-0214-05
 ;;9002226.02101,"992,31722-0214-05 ",.02)
 ;;31722-0214-05
 ;;9002226.02101,"992,31722-0214-30 ",.01)
 ;;31722-0214-30
 ;;9002226.02101,"992,31722-0214-30 ",.02)
 ;;31722-0214-30
 ;;9002226.02101,"992,31722-0214-90 ",.01)
 ;;31722-0214-90
 ;;9002226.02101,"992,31722-0214-90 ",.02)
 ;;31722-0214-90
 ;;9002226.02101,"992,33261-0090-10 ",.01)
 ;;33261-0090-10
 ;;9002226.02101,"992,33261-0090-10 ",.02)
 ;;33261-0090-10
 ;;9002226.02101,"992,33261-0090-14 ",.01)
 ;;33261-0090-14
 ;;9002226.02101,"992,33261-0090-14 ",.02)
 ;;33261-0090-14
 ;;9002226.02101,"992,33261-0090-20 ",.01)
 ;;33261-0090-20
 ;;9002226.02101,"992,33261-0090-20 ",.02)
 ;;33261-0090-20
 ;;9002226.02101,"992,33261-0090-28 ",.01)
 ;;33261-0090-28
 ;;9002226.02101,"992,33261-0090-28 ",.02)
 ;;33261-0090-28
 ;;9002226.02101,"992,33261-0090-30 ",.01)
 ;;33261-0090-30
 ;;9002226.02101,"992,33261-0090-30 ",.02)
 ;;33261-0090-30
 ;;9002226.02101,"992,33261-0090-60 ",.01)
 ;;33261-0090-60
 ;;9002226.02101,"992,33261-0090-60 ",.02)
 ;;33261-0090-60
 ;;9002226.02101,"992,33261-0090-90 ",.01)
 ;;33261-0090-90
 ;;9002226.02101,"992,33261-0090-90 ",.02)
 ;;33261-0090-90
 ;;9002226.02101,"992,33261-0091-10 ",.01)
 ;;33261-0091-10
 ;;9002226.02101,"992,33261-0091-10 ",.02)
 ;;33261-0091-10
 ;;9002226.02101,"992,33261-0091-14 ",.01)
 ;;33261-0091-14
 ;;9002226.02101,"992,33261-0091-14 ",.02)
 ;;33261-0091-14
 ;;9002226.02101,"992,33261-0091-21 ",.01)
 ;;33261-0091-21
 ;;9002226.02101,"992,33261-0091-21 ",.02)
 ;;33261-0091-21
 ;;9002226.02101,"992,33261-0091-28 ",.01)
 ;;33261-0091-28
 ;;9002226.02101,"992,33261-0091-28 ",.02)
 ;;33261-0091-28
 ;;9002226.02101,"992,33261-0091-30 ",.01)
 ;;33261-0091-30
 ;;9002226.02101,"992,33261-0091-30 ",.02)
 ;;33261-0091-30
 ;;9002226.02101,"992,33261-0091-40 ",.01)
 ;;33261-0091-40
 ;;9002226.02101,"992,33261-0091-40 ",.02)
 ;;33261-0091-40
 ;;9002226.02101,"992,33261-0091-60 ",.01)
 ;;33261-0091-60
 ;;9002226.02101,"992,33261-0091-60 ",.02)
 ;;33261-0091-60
 ;;9002226.02101,"992,33261-0091-90 ",.01)
 ;;33261-0091-90
 ;;9002226.02101,"992,33261-0091-90 ",.02)
 ;;33261-0091-90
 ;;9002226.02101,"992,33358-0023-30 ",.01)
 ;;33358-0023-30
 ;;9002226.02101,"992,33358-0023-30 ",.02)
 ;;33358-0023-30
 ;;9002226.02101,"992,33358-0024-30 ",.01)
 ;;33358-0024-30
 ;;9002226.02101,"992,33358-0024-30 ",.02)
 ;;33358-0024-30
 ;;9002226.02101,"992,33358-0053-60 ",.01)
 ;;33358-0053-60
 ;;9002226.02101,"992,33358-0053-60 ",.02)
 ;;33358-0053-60
 ;;9002226.02101,"992,33358-0083-60 ",.01)
 ;;33358-0083-60
 ;;9002226.02101,"992,33358-0083-60 ",.02)
 ;;33358-0083-60
 ;;9002226.02101,"992,33358-0098-30 ",.01)
 ;;33358-0098-30
 ;;9002226.02101,"992,33358-0098-30 ",.02)
 ;;33358-0098-30
 ;;9002226.02101,"992,33358-0098-60 ",.01)
 ;;33358-0098-60
 ;;9002226.02101,"992,33358-0098-60 ",.02)
 ;;33358-0098-60
 ;;9002226.02101,"992,33358-0099-30 ",.01)
 ;;33358-0099-30
 ;;9002226.02101,"992,33358-0099-30 ",.02)
 ;;33358-0099-30
 ;;9002226.02101,"992,33358-0099-60 ",.01)
 ;;33358-0099-60
 ;;9002226.02101,"992,33358-0099-60 ",.02)
 ;;33358-0099-60
 ;;9002226.02101,"992,33358-0117-30 ",.01)
 ;;33358-0117-30
 ;;9002226.02101,"992,33358-0117-30 ",.02)
 ;;33358-0117-30
 ;;9002226.02101,"992,33358-0117-60 ",.01)
 ;;33358-0117-60
 ;;9002226.02101,"992,33358-0117-60 ",.02)
 ;;33358-0117-60
 ;;9002226.02101,"992,33358-0118-30 ",.01)
 ;;33358-0118-30
 ;;9002226.02101,"992,33358-0118-30 ",.02)
 ;;33358-0118-30
 ;;9002226.02101,"992,33358-0118-60 ",.01)
 ;;33358-0118-60
 ;;9002226.02101,"992,33358-0118-60 ",.02)
 ;;33358-0118-60
 ;;9002226.02101,"992,33358-0119-30 ",.01)
 ;;33358-0119-30
 ;;9002226.02101,"992,33358-0119-30 ",.02)
 ;;33358-0119-30
 ;;9002226.02101,"992,33358-0119-60 ",.01)
 ;;33358-0119-60
 ;;9002226.02101,"992,33358-0119-60 ",.02)
 ;;33358-0119-60
 ;;9002226.02101,"992,33358-0123-30 ",.01)
 ;;33358-0123-30
 ;;9002226.02101,"992,33358-0123-30 ",.02)
 ;;33358-0123-30
 ;;9002226.02101,"992,33358-0123-60 ",.01)
 ;;33358-0123-60
 ;;9002226.02101,"992,33358-0123-60 ",.02)
 ;;33358-0123-60
 ;;9002226.02101,"992,33358-0123-90 ",.01)
 ;;33358-0123-90
 ;;9002226.02101,"992,33358-0123-90 ",.02)
 ;;33358-0123-90
 ;;9002226.02101,"992,33358-0124-30 ",.01)
 ;;33358-0124-30
 ;;9002226.02101,"992,33358-0124-30 ",.02)
 ;;33358-0124-30
 ;;9002226.02101,"992,33358-0124-60 ",.01)
 ;;33358-0124-60
 ;;9002226.02101,"992,33358-0124-60 ",.02)
 ;;33358-0124-60
 ;;9002226.02101,"992,33358-0124-90 ",.01)
 ;;33358-0124-90
 ;;9002226.02101,"992,33358-0124-90 ",.02)
 ;;33358-0124-90
 ;;9002226.02101,"992,33358-0125-30 ",.01)
 ;;33358-0125-30
 ;;9002226.02101,"992,33358-0125-30 ",.02)
 ;;33358-0125-30
 ;;9002226.02101,"992,33358-0125-60 ",.01)
 ;;33358-0125-60
 ;;9002226.02101,"992,33358-0125-60 ",.02)
 ;;33358-0125-60
 ;;9002226.02101,"992,33358-0125-90 ",.01)
 ;;33358-0125-90
 ;;9002226.02101,"992,33358-0125-90 ",.02)
 ;;33358-0125-90
 ;;9002226.02101,"992,33358-0144-30 ",.01)
 ;;33358-0144-30
 ;;9002226.02101,"992,33358-0144-30 ",.02)
 ;;33358-0144-30
 ;;9002226.02101,"992,33358-0144-60 ",.01)
 ;;33358-0144-60
 ;;9002226.02101,"992,33358-0144-60 ",.02)
 ;;33358-0144-60
 ;;9002226.02101,"992,33358-0144-90 ",.01)
 ;;33358-0144-90
 ;;9002226.02101,"992,33358-0144-90 ",.02)
 ;;33358-0144-90
 ;;9002226.02101,"992,33358-0145-30 ",.01)
 ;;33358-0145-30
 ;;9002226.02101,"992,33358-0145-30 ",.02)
 ;;33358-0145-30
 ;;9002226.02101,"992,33358-0145-60 ",.01)
 ;;33358-0145-60
 ;;9002226.02101,"992,33358-0145-60 ",.02)
 ;;33358-0145-60
 ;;9002226.02101,"992,33358-0208-30 ",.01)
 ;;33358-0208-30
 ;;9002226.02101,"992,33358-0208-30 ",.02)
 ;;33358-0208-30
 ;;9002226.02101,"992,33358-0209-30 ",.01)
 ;;33358-0209-30
 ;;9002226.02101,"992,33358-0209-30 ",.02)
 ;;33358-0209-30
 ;;9002226.02101,"992,33358-0270-30 ",.01)
 ;;33358-0270-30
 ;;9002226.02101,"992,33358-0270-30 ",.02)
 ;;33358-0270-30
 ;;9002226.02101,"992,33358-0270-60 ",.01)
 ;;33358-0270-60
 ;;9002226.02101,"992,33358-0270-60 ",.02)
 ;;33358-0270-60
 ;;9002226.02101,"992,33358-0270-90 ",.01)
 ;;33358-0270-90
 ;;9002226.02101,"992,33358-0270-90 ",.02)
 ;;33358-0270-90
 ;;9002226.02101,"992,33358-0271-01 ",.01)
 ;;33358-0271-01
 ;;9002226.02101,"992,33358-0271-01 ",.02)
 ;;33358-0271-01
 ;;9002226.02101,"992,33358-0271-30 ",.01)
 ;;33358-0271-30
 ;;9002226.02101,"992,33358-0271-30 ",.02)
 ;;33358-0271-30
 ;;9002226.02101,"992,33358-0271-60 ",.01)
 ;;33358-0271-60
 ;;9002226.02101,"992,33358-0271-60 ",.02)
 ;;33358-0271-60
 ;;9002226.02101,"992,33358-0283-30 ",.01)
 ;;33358-0283-30
 ;;9002226.02101,"992,33358-0283-30 ",.02)
 ;;33358-0283-30
 ;;9002226.02101,"992,33358-0283-60 ",.01)
 ;;33358-0283-60
 ;;9002226.02101,"992,33358-0283-60 ",.02)
 ;;33358-0283-60
 ;;9002226.02101,"992,33358-0283-90 ",.01)
 ;;33358-0283-90
 ;;9002226.02101,"992,33358-0283-90 ",.02)
 ;;33358-0283-90
 ;;9002226.02101,"992,33358-0321-30 ",.01)
 ;;33358-0321-30
 ;;9002226.02101,"992,33358-0321-30 ",.02)
 ;;33358-0321-30
 ;;9002226.02101,"992,33358-0322-30 ",.01)
 ;;33358-0322-30
 ;;9002226.02101,"992,33358-0322-30 ",.02)
 ;;33358-0322-30
 ;;9002226.02101,"992,33358-0323-30 ",.01)
 ;;33358-0323-30
 ;;9002226.02101,"992,33358-0323-30 ",.02)
 ;;33358-0323-30
 ;;9002226.02101,"992,33358-0344-20 ",.01)
 ;;33358-0344-20
 ;;9002226.02101,"992,33358-0344-20 ",.02)
 ;;33358-0344-20
 ;;9002226.02101,"992,33358-0344-30 ",.01)
 ;;33358-0344-30