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

BGP13G4.m

Go to the documentation of this file.
BGP13G4 ; 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,"696,00904-7833-60 ",.02)
 ;;00904-7833-60
 ;;9002226.02101,"696,10267-1621-01 ",.01)
 ;;10267-1621-01
 ;;9002226.02101,"696,10267-1621-01 ",.02)
 ;;10267-1621-01
 ;;9002226.02101,"696,10267-2734-01 ",.01)
 ;;10267-2734-01
 ;;9002226.02101,"696,10267-2734-01 ",.02)
 ;;10267-2734-01
 ;;9002226.02101,"696,10267-2929-03 ",.01)
 ;;10267-2929-03
 ;;9002226.02101,"696,10267-2929-03 ",.02)
 ;;10267-2929-03
 ;;9002226.02101,"696,10267-2929-05 ",.01)
 ;;10267-2929-05
 ;;9002226.02101,"696,10267-2929-05 ",.02)
 ;;10267-2929-05
 ;;9002226.02101,"696,11808-0111-01 ",.01)
 ;;11808-0111-01
 ;;9002226.02101,"696,11808-0111-01 ",.02)
 ;;11808-0111-01
 ;;9002226.02101,"696,11808-0112-01 ",.01)
 ;;11808-0112-01
 ;;9002226.02101,"696,11808-0112-01 ",.02)
 ;;11808-0112-01
 ;;9002226.02101,"696,12280-0212-00 ",.01)
 ;;12280-0212-00
 ;;9002226.02101,"696,12280-0212-00 ",.02)
 ;;12280-0212-00
 ;;9002226.02101,"696,12280-0296-60 ",.01)
 ;;12280-0296-60
 ;;9002226.02101,"696,12280-0296-60 ",.02)
 ;;12280-0296-60
 ;;9002226.02101,"696,12830-0301-01 ",.01)
 ;;12830-0301-01
 ;;9002226.02101,"696,12830-0301-01 ",.02)
 ;;12830-0301-01
 ;;9002226.02101,"696,12830-0305-01 ",.01)
 ;;12830-0305-01
 ;;9002226.02101,"696,12830-0305-01 ",.02)
 ;;12830-0305-01
 ;;9002226.02101,"696,12939-0773-60 ",.01)
 ;;12939-0773-60
 ;;9002226.02101,"696,12939-0773-60 ",.02)
 ;;12939-0773-60
 ;;9002226.02101,"696,12939-0775-16 ",.01)
 ;;12939-0775-16
 ;;9002226.02101,"696,12939-0775-16 ",.02)
 ;;12939-0775-16
 ;;9002226.02101,"696,13925-0108-01 ",.01)
 ;;13925-0108-01
 ;;9002226.02101,"696,13925-0108-01 ",.02)
 ;;13925-0108-01
 ;;9002226.02101,"696,15310-0070-03 ",.01)
 ;;15310-0070-03
 ;;9002226.02101,"696,15310-0070-03 ",.02)
 ;;15310-0070-03
 ;;9002226.02101,"696,15338-0600-60 ",.01)
 ;;15338-0600-60
 ;;9002226.02101,"696,15338-0600-60 ",.02)
 ;;15338-0600-60
 ;;9002226.02101,"696,15456-0805-03 ",.01)
 ;;15456-0805-03
 ;;9002226.02101,"696,15456-0805-03 ",.02)
 ;;15456-0805-03
 ;;9002226.02101,"696,15456-0909-90 ",.01)
 ;;15456-0909-90
 ;;9002226.02101,"696,15456-0909-90 ",.02)
 ;;15456-0909-90
 ;;9002226.02101,"696,17317-0042-01 ",.01)
 ;;17317-0042-01
 ;;9002226.02101,"696,17317-0042-01 ",.02)
 ;;17317-0042-01
 ;;9002226.02101,"696,17317-0042-04 ",.01)
 ;;17317-0042-04
 ;;9002226.02101,"696,17317-0042-04 ",.02)
 ;;17317-0042-04
 ;;9002226.02101,"696,17317-0044-01 ",.01)
 ;;17317-0044-01
 ;;9002226.02101,"696,17317-0044-01 ",.02)
 ;;17317-0044-01
 ;;9002226.02101,"696,17317-0044-04 ",.01)
 ;;17317-0044-04
 ;;9002226.02101,"696,17317-0044-04 ",.02)
 ;;17317-0044-04
 ;;9002226.02101,"696,21695-0688-15 ",.01)
 ;;21695-0688-15
 ;;9002226.02101,"696,21695-0688-15 ",.02)
 ;;21695-0688-15
 ;;9002226.02101,"696,23490-5461-01 ",.01)
 ;;23490-5461-01
 ;;9002226.02101,"696,23490-5461-01 ",.02)
 ;;23490-5461-01
 ;;9002226.02101,"696,23490-5461-02 ",.01)
 ;;23490-5461-02
 ;;9002226.02101,"696,23490-5461-02 ",.02)
 ;;23490-5461-02
 ;;9002226.02101,"696,23490-5461-03 ",.01)
 ;;23490-5461-03
 ;;9002226.02101,"696,23490-5461-03 ",.02)
 ;;23490-5461-03
 ;;9002226.02101,"696,23490-5461-04 ",.01)
 ;;23490-5461-04
 ;;9002226.02101,"696,23490-5461-04 ",.02)
 ;;23490-5461-04
 ;;9002226.02101,"696,23490-5461-05 ",.01)
 ;;23490-5461-05
 ;;9002226.02101,"696,23490-5461-05 ",.02)
 ;;23490-5461-05
 ;;9002226.02101,"696,23490-5740-01 ",.01)
 ;;23490-5740-01
 ;;9002226.02101,"696,23490-5740-01 ",.02)
 ;;23490-5740-01
 ;;9002226.02101,"696,23629-0034-01 ",.01)
 ;;23629-0034-01
 ;;9002226.02101,"696,23629-0034-01 ",.02)
 ;;23629-0034-01
 ;;9002226.02101,"696,24486-0601-10 ",.01)
 ;;24486-0601-10
 ;;9002226.02101,"696,24486-0601-10 ",.02)
 ;;24486-0601-10
 ;;9002226.02101,"696,24486-0602-10 ",.01)
 ;;24486-0602-10
 ;;9002226.02101,"696,24486-0602-10 ",.02)
 ;;24486-0602-10
 ;;9002226.02101,"696,24486-0603-10 ",.01)
 ;;24486-0603-10
 ;;9002226.02101,"696,24486-0603-10 ",.02)
 ;;24486-0603-10
 ;;9002226.02101,"696,24486-0604-90 ",.01)
 ;;24486-0604-90
 ;;9002226.02101,"696,24486-0604-90 ",.02)
 ;;24486-0604-90
 ;;9002226.02101,"696,24486-0605-10 ",.01)
 ;;24486-0605-10
 ;;9002226.02101,"696,24486-0605-10 ",.02)
 ;;24486-0605-10
 ;;9002226.02101,"696,43063-0089-04 ",.01)
 ;;43063-0089-04
 ;;9002226.02101,"696,43063-0089-04 ",.02)
 ;;43063-0089-04
 ;;9002226.02101,"696,43063-0089-06 ",.01)
 ;;43063-0089-06
 ;;9002226.02101,"696,43063-0089-06 ",.02)
 ;;43063-0089-06
 ;;9002226.02101,"696,43199-0011-01 ",.01)
 ;;43199-0011-01
 ;;9002226.02101,"696,43199-0011-01 ",.02)
 ;;43199-0011-01
 ;;9002226.02101,"696,43199-0012-01 ",.01)
 ;;43199-0012-01
 ;;9002226.02101,"696,43199-0012-01 ",.02)
 ;;43199-0012-01
 ;;9002226.02101,"696,43199-0013-01 ",.01)
 ;;43199-0013-01
 ;;9002226.02101,"696,43199-0013-01 ",.02)
 ;;43199-0013-01
 ;;9002226.02101,"696,43199-0014-01 ",.01)
 ;;43199-0014-01
 ;;9002226.02101,"696,43199-0014-01 ",.02)
 ;;43199-0014-01
 ;;9002226.02101,"696,45985-0646-01 ",.01)
 ;;45985-0646-01
 ;;9002226.02101,"696,45985-0646-01 ",.02)
 ;;45985-0646-01
 ;;9002226.02101,"696,49452-0136-02 ",.01)
 ;;49452-0136-02
 ;;9002226.02101,"696,49452-0136-02 ",.02)
 ;;49452-0136-02
 ;;9002226.02101,"696,49452-0900-01 ",.01)
 ;;49452-0900-01
 ;;9002226.02101,"696,49452-0900-01 ",.02)
 ;;49452-0900-01
 ;;9002226.02101,"696,49769-0256-10 ",.01)
 ;;49769-0256-10
 ;;9002226.02101,"696,49769-0256-10 ",.02)
 ;;49769-0256-10
 ;;9002226.02101,"696,49884-0771-01 ",.01)
 ;;49884-0771-01
 ;;9002226.02101,"696,49884-0771-01 ",.02)
 ;;49884-0771-01
 ;;9002226.02101,"696,49884-0771-10 ",.01)
 ;;49884-0771-10
 ;;9002226.02101,"696,49884-0771-10 ",.02)
 ;;49884-0771-10
 ;;9002226.02101,"696,49999-0076-16 ",.01)
 ;;49999-0076-16
 ;;9002226.02101,"696,49999-0076-16 ",.02)
 ;;49999-0076-16
 ;;9002226.02101,"696,49999-0076-20 ",.01)
 ;;49999-0076-20
 ;;9002226.02101,"696,49999-0076-20 ",.02)
 ;;49999-0076-20
 ;;9002226.02101,"696,49999-0076-30 ",.01)
 ;;49999-0076-30
 ;;9002226.02101,"696,49999-0076-30 ",.02)
 ;;49999-0076-30
 ;;9002226.02101,"696,49999-0076-90 ",.01)
 ;;49999-0076-90
 ;;9002226.02101,"696,49999-0076-90 ",.02)
 ;;49999-0076-90
 ;;9002226.02101,"696,49999-0207-00 ",.01)
 ;;49999-0207-00
 ;;9002226.02101,"696,49999-0207-00 ",.02)
 ;;49999-0207-00
 ;;9002226.02101,"696,49999-0207-10 ",.01)
 ;;49999-0207-10
 ;;9002226.02101,"696,49999-0207-10 ",.02)
 ;;49999-0207-10
 ;;9002226.02101,"696,49999-0207-20 ",.01)
 ;;49999-0207-20
 ;;9002226.02101,"696,49999-0207-20 ",.02)
 ;;49999-0207-20
 ;;9002226.02101,"696,49999-0207-30 ",.01)
 ;;49999-0207-30
 ;;9002226.02101,"696,49999-0207-30 ",.02)
 ;;49999-0207-30
 ;;9002226.02101,"696,49999-0746-04 ",.01)
 ;;49999-0746-04
 ;;9002226.02101,"696,49999-0746-04 ",.02)
 ;;49999-0746-04
 ;;9002226.02101,"696,51079-0067-01 ",.01)
 ;;51079-0067-01
 ;;9002226.02101,"696,51079-0067-01 ",.02)
 ;;51079-0067-01
 ;;9002226.02101,"696,51079-0067-19 ",.01)
 ;;51079-0067-19
 ;;9002226.02101,"696,51079-0067-19 ",.02)
 ;;51079-0067-19
 ;;9002226.02101,"696,51079-0067-20 ",.01)
 ;;51079-0067-20
 ;;9002226.02101,"696,51079-0067-20 ",.02)
 ;;51079-0067-20
 ;;9002226.02101,"696,51285-0907-05 ",.01)
 ;;51285-0907-05
 ;;9002226.02101,"696,51285-0907-05 ",.02)
 ;;51285-0907-05
 ;;9002226.02101,"696,51285-0932-05 ",.01)
 ;;51285-0932-05
 ;;9002226.02101,"696,51285-0932-05 ",.02)
 ;;51285-0932-05
 ;;9002226.02101,"696,51285-0933-05 ",.01)
 ;;51285-0933-05
 ;;9002226.02101,"696,51285-0933-05 ",.02)
 ;;51285-0933-05
 ;;9002226.02101,"696,51285-0935-05 ",.01)
 ;;51285-0935-05
 ;;9002226.02101,"696,51285-0935-05 ",.02)
 ;;51285-0935-05
 ;;9002226.02101,"696,51285-0938-02 ",.01)
 ;;51285-0938-02
 ;;9002226.02101,"696,51285-0938-02 ",.02)
 ;;51285-0938-02
 ;;9002226.02101,"696,51655-0119-52 ",.01)
 ;;51655-0119-52
 ;;9002226.02101,"696,51655-0119-52 ",.02)
 ;;51655-0119-52
 ;;9002226.02101,"696,51991-0027-01 ",.01)
 ;;51991-0027-01
 ;;9002226.02101,"696,51991-0027-01 ",.02)
 ;;51991-0027-01
 ;;9002226.02101,"696,51991-0045-01 ",.01)
 ;;51991-0045-01
 ;;9002226.02101,"696,51991-0045-01 ",.02)
 ;;51991-0045-01
 ;;9002226.02101,"696,51991-0130-01 ",.01)
 ;;51991-0130-01
 ;;9002226.02101,"696,51991-0130-01 ",.02)
 ;;51991-0130-01
 ;;9002226.02101,"696,51991-0135-01 ",.01)
 ;;51991-0135-01
 ;;9002226.02101,"696,51991-0135-01 ",.02)
 ;;51991-0135-01
 ;;9002226.02101,"696,51991-0251-33 ",.01)
 ;;51991-0251-33
 ;;9002226.02101,"696,51991-0251-33 ",.02)
 ;;51991-0251-33
 ;;9002226.02101,"696,51991-0325-01 ",.01)
 ;;51991-0325-01
 ;;9002226.02101,"696,51991-0325-01 ",.02)
 ;;51991-0325-01
 ;;9002226.02101,"696,51991-0656-01 ",.01)
 ;;51991-0656-01
 ;;9002226.02101,"696,51991-0656-01 ",.02)
 ;;51991-0656-01
 ;;9002226.02101,"696,52152-0115-02 ",.01)
 ;;52152-0115-02
 ;;9002226.02101,"696,52152-0115-02 ",.02)
 ;;52152-0115-02
 ;;9002226.02101,"696,52152-0115-05 ",.01)
 ;;52152-0115-05
 ;;9002226.02101,"696,52152-0115-05 ",.02)
 ;;52152-0115-05
 ;;9002226.02101,"696,52152-0143-02 ",.01)
 ;;52152-0143-02
 ;;9002226.02101,"696,52152-0143-02 ",.02)
 ;;52152-0143-02
 ;;9002226.02101,"696,52152-0155-02 ",.01)
 ;;52152-0155-02
 ;;9002226.02101,"696,52152-0155-02 ",.02)
 ;;52152-0155-02
 ;;9002226.02101,"696,52152-0156-02 ",.01)
 ;;52152-0156-02
 ;;9002226.02101,"696,52152-0156-02 ",.02)
 ;;52152-0156-02
 ;;9002226.02101,"696,52152-0163-02 ",.01)
 ;;52152-0163-02
 ;;9002226.02101,"696,52152-0163-02 ",.02)
 ;;52152-0163-02
 ;;9002226.02101,"696,52959-0023-06 ",.01)
 ;;52959-0023-06
 ;;9002226.02101,"696,52959-0023-06 ",.02)
 ;;52959-0023-06
 ;;9002226.02101,"696,52959-0023-20 ",.01)
 ;;52959-0023-20
 ;;9002226.02101,"696,52959-0023-20 ",.02)
 ;;52959-0023-20
 ;;9002226.02101,"696,52959-0023-30 ",.01)
 ;;52959-0023-30
 ;;9002226.02101,"696,52959-0023-30 ",.02)
 ;;52959-0023-30
 ;;9002226.02101,"696,52959-0023-50 ",.01)
 ;;52959-0023-50
 ;;9002226.02101,"696,52959-0023-50 ",.02)
 ;;52959-0023-50
 ;;9002226.02101,"696,52959-0023-60 ",.01)
 ;;52959-0023-60
 ;;9002226.02101,"696,52959-0023-60 ",.02)
 ;;52959-0023-60
 ;;9002226.02101,"696,52959-0157-00 ",.01)
 ;;52959-0157-00
 ;;9002226.02101,"696,52959-0157-00 ",.02)
 ;;52959-0157-00
 ;;9002226.02101,"696,52959-0157-10 ",.01)
 ;;52959-0157-10
 ;;9002226.02101,"696,52959-0157-10 ",.02)
 ;;52959-0157-10
 ;;9002226.02101,"696,52959-0157-12 ",.01)
 ;;52959-0157-12
 ;;9002226.02101,"696,52959-0157-12 ",.02)
 ;;52959-0157-12
 ;;9002226.02101,"696,52959-0157-15 ",.01)
 ;;52959-0157-15
 ;;9002226.02101,"696,52959-0157-15 ",.02)
 ;;52959-0157-15
 ;;9002226.02101,"696,52959-0157-20 ",.01)
 ;;52959-0157-20
 ;;9002226.02101,"696,52959-0157-20 ",.02)
 ;;52959-0157-20
 ;;9002226.02101,"696,52959-0157-30 ",.01)
 ;;52959-0157-30
 ;;9002226.02101,"696,52959-0157-30 ",.02)
 ;;52959-0157-30
 ;;9002226.02101,"696,52959-0157-50 ",.01)
 ;;52959-0157-50
 ;;9002226.02101,"696,52959-0157-50 ",.02)
 ;;52959-0157-50
 ;;9002226.02101,"696,52959-0175-02 ",.01)
 ;;52959-0175-02
 ;;9002226.02101,"696,52959-0175-02 ",.02)
 ;;52959-0175-02
 ;;9002226.02101,"696,52959-0175-30 ",.01)
 ;;52959-0175-30
 ;;9002226.02101,"696,52959-0175-30 ",.02)
 ;;52959-0175-30
 ;;9002226.02101,"696,52959-0274-03 ",.01)
 ;;52959-0274-03
 ;;9002226.02101,"696,52959-0274-03 ",.02)
 ;;52959-0274-03
 ;;9002226.02101,"696,52959-0274-06 ",.01)
 ;;52959-0274-06
 ;;9002226.02101,"696,52959-0274-06 ",.02)
 ;;52959-0274-06
 ;;9002226.02101,"696,52959-0274-30 ",.01)
 ;;52959-0274-30
 ;;9002226.02101,"696,52959-0274-30 ",.02)
 ;;52959-0274-30
 ;;9002226.02101,"696,52959-0949-60 ",.01)
 ;;52959-0949-60
 ;;9002226.02101,"696,52959-0949-60 ",.02)
 ;;52959-0949-60
 ;;9002226.02101,"696,54569-0192-01 ",.01)
 ;;54569-0192-01
 ;;9002226.02101,"696,54569-0192-01 ",.02)
 ;;54569-0192-01
 ;;9002226.02101,"696,54569-0192-02 ",.01)
 ;;54569-0192-02
 ;;9002226.02101,"696,54569-0192-02 ",.02)
 ;;54569-0192-02
 ;;9002226.02101,"696,54569-0222-00 ",.01)
 ;;54569-0222-00
 ;;9002226.02101,"696,54569-0222-00 ",.02)
 ;;54569-0222-00
 ;;9002226.02101,"696,54569-0426-00 ",.01)
 ;;54569-0426-00
 ;;9002226.02101,"696,54569-0426-00 ",.02)
 ;;54569-0426-00
 ;;9002226.02101,"696,54569-0427-01 ",.01)
 ;;54569-0427-01
 ;;9002226.02101,"696,54569-0427-01 ",.02)
 ;;54569-0427-01
 ;;9002226.02101,"696,54569-0427-02 ",.01)
 ;;54569-0427-02
 ;;9002226.02101,"696,54569-0427-02 ",.02)
 ;;54569-0427-02
 ;;9002226.02101,"696,54569-0427-04 ",.01)
 ;;54569-0427-04
 ;;9002226.02101,"696,54569-0427-04 ",.02)
 ;;54569-0427-04
 ;;9002226.02101,"696,54569-0427-05 ",.01)
 ;;54569-0427-05
 ;;9002226.02101,"696,54569-0427-05 ",.02)
 ;;54569-0427-05