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

BGP13X30.m

Go to the documentation of this file.
BGP13X30 ; 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,"1100,54569-5434-00 ",.01)
 ;;54569-5434-00
 ;;9002226.02101,"1100,54569-5434-00 ",.02)
 ;;54569-5434-00
 ;;9002226.02101,"1100,54569-5434-03 ",.01)
 ;;54569-5434-03
 ;;9002226.02101,"1100,54569-5434-03 ",.02)
 ;;54569-5434-03
 ;;9002226.02101,"1100,54569-5434-04 ",.01)
 ;;54569-5434-04
 ;;9002226.02101,"1100,54569-5434-04 ",.02)
 ;;54569-5434-04
 ;;9002226.02101,"1100,54569-5435-00 ",.01)
 ;;54569-5435-00
 ;;9002226.02101,"1100,54569-5435-00 ",.02)
 ;;54569-5435-00
 ;;9002226.02101,"1100,54569-5435-03 ",.01)
 ;;54569-5435-03
 ;;9002226.02101,"1100,54569-5435-03 ",.02)
 ;;54569-5435-03
 ;;9002226.02101,"1100,54569-5435-04 ",.01)
 ;;54569-5435-04
 ;;9002226.02101,"1100,54569-5435-04 ",.02)
 ;;54569-5435-04
 ;;9002226.02101,"1100,54569-5437-00 ",.01)
 ;;54569-5437-00
 ;;9002226.02101,"1100,54569-5437-00 ",.02)
 ;;54569-5437-00
 ;;9002226.02101,"1100,54569-5438-00 ",.01)
 ;;54569-5438-00
 ;;9002226.02101,"1100,54569-5438-00 ",.02)
 ;;54569-5438-00
 ;;9002226.02101,"1100,54569-5472-00 ",.01)
 ;;54569-5472-00
 ;;9002226.02101,"1100,54569-5472-00 ",.02)
 ;;54569-5472-00
 ;;9002226.02101,"1100,54569-5601-00 ",.01)
 ;;54569-5601-00
 ;;9002226.02101,"1100,54569-5601-00 ",.02)
 ;;54569-5601-00
 ;;9002226.02101,"1100,54569-5606-00 ",.01)
 ;;54569-5606-00
 ;;9002226.02101,"1100,54569-5606-00 ",.02)
 ;;54569-5606-00
 ;;9002226.02101,"1100,54569-5621-00 ",.01)
 ;;54569-5621-00
 ;;9002226.02101,"1100,54569-5621-00 ",.02)
 ;;54569-5621-00
 ;;9002226.02101,"1100,54569-5665-00 ",.01)
 ;;54569-5665-00
 ;;9002226.02101,"1100,54569-5665-00 ",.02)
 ;;54569-5665-00
 ;;9002226.02101,"1100,54569-5666-00 ",.01)
 ;;54569-5666-00
 ;;9002226.02101,"1100,54569-5666-00 ",.02)
 ;;54569-5666-00
 ;;9002226.02101,"1100,54569-5667-00 ",.01)
 ;;54569-5667-00
 ;;9002226.02101,"1100,54569-5667-00 ",.02)
 ;;54569-5667-00
 ;;9002226.02101,"1100,54569-5667-01 ",.01)
 ;;54569-5667-01
 ;;9002226.02101,"1100,54569-5667-01 ",.02)
 ;;54569-5667-01
 ;;9002226.02101,"1100,54569-5668-00 ",.01)
 ;;54569-5668-00
 ;;9002226.02101,"1100,54569-5668-00 ",.02)
 ;;54569-5668-00
 ;;9002226.02101,"1100,54569-5668-01 ",.01)
 ;;54569-5668-01
 ;;9002226.02101,"1100,54569-5668-01 ",.02)
 ;;54569-5668-01
 ;;9002226.02101,"1100,54569-5669-00 ",.01)
 ;;54569-5669-00
 ;;9002226.02101,"1100,54569-5669-00 ",.02)
 ;;54569-5669-00
 ;;9002226.02101,"1100,54569-5670-00 ",.01)
 ;;54569-5670-00
 ;;9002226.02101,"1100,54569-5670-00 ",.02)
 ;;54569-5670-00
 ;;9002226.02101,"1100,54569-5685-00 ",.01)
 ;;54569-5685-00
 ;;9002226.02101,"1100,54569-5685-00 ",.02)
 ;;54569-5685-00
 ;;9002226.02101,"1100,54569-5709-00 ",.01)
 ;;54569-5709-00
 ;;9002226.02101,"1100,54569-5709-00 ",.02)
 ;;54569-5709-00
 ;;9002226.02101,"1100,54569-5710-00 ",.01)
 ;;54569-5710-00
 ;;9002226.02101,"1100,54569-5710-00 ",.02)
 ;;54569-5710-00
 ;;9002226.02101,"1100,54569-5711-00 ",.01)
 ;;54569-5711-00
 ;;9002226.02101,"1100,54569-5711-00 ",.02)
 ;;54569-5711-00
 ;;9002226.02101,"1100,54569-5728-00 ",.01)
 ;;54569-5728-00
 ;;9002226.02101,"1100,54569-5728-00 ",.02)
 ;;54569-5728-00
 ;;9002226.02101,"1100,54569-5801-00 ",.01)
 ;;54569-5801-00
 ;;9002226.02101,"1100,54569-5801-00 ",.02)
 ;;54569-5801-00
 ;;9002226.02101,"1100,54569-5867-00 ",.01)
 ;;54569-5867-00
 ;;9002226.02101,"1100,54569-5867-00 ",.02)
 ;;54569-5867-00
 ;;9002226.02101,"1100,54569-5878-00 ",.01)
 ;;54569-5878-00
 ;;9002226.02101,"1100,54569-5878-00 ",.02)
 ;;54569-5878-00
 ;;9002226.02101,"1100,54569-5880-01 ",.01)
 ;;54569-5880-01
 ;;9002226.02101,"1100,54569-5880-01 ",.02)
 ;;54569-5880-01
 ;;9002226.02101,"1100,54569-5903-00 ",.01)
 ;;54569-5903-00
 ;;9002226.02101,"1100,54569-5903-00 ",.02)
 ;;54569-5903-00
 ;;9002226.02101,"1100,54569-5916-00 ",.01)
 ;;54569-5916-00
 ;;9002226.02101,"1100,54569-5916-00 ",.02)
 ;;54569-5916-00
 ;;9002226.02101,"1100,54569-5936-00 ",.01)
 ;;54569-5936-00
 ;;9002226.02101,"1100,54569-5936-00 ",.02)
 ;;54569-5936-00
 ;;9002226.02101,"1100,54569-5937-00 ",.01)
 ;;54569-5937-00
 ;;9002226.02101,"1100,54569-5937-00 ",.02)
 ;;54569-5937-00
 ;;9002226.02101,"1100,54569-5938-00 ",.01)
 ;;54569-5938-00
 ;;9002226.02101,"1100,54569-5938-00 ",.02)
 ;;54569-5938-00
 ;;9002226.02101,"1100,54569-5998-00 ",.01)
 ;;54569-5998-00
 ;;9002226.02101,"1100,54569-5998-00 ",.02)
 ;;54569-5998-00
 ;;9002226.02101,"1100,54569-5999-00 ",.01)
 ;;54569-5999-00
 ;;9002226.02101,"1100,54569-5999-00 ",.02)
 ;;54569-5999-00
 ;;9002226.02101,"1100,54569-6091-00 ",.01)
 ;;54569-6091-00
 ;;9002226.02101,"1100,54569-6091-00 ",.02)
 ;;54569-6091-00
 ;;9002226.02101,"1100,54569-6092-00 ",.01)
 ;;54569-6092-00
 ;;9002226.02101,"1100,54569-6092-00 ",.02)
 ;;54569-6092-00
 ;;9002226.02101,"1100,54569-6098-00 ",.01)
 ;;54569-6098-00
 ;;9002226.02101,"1100,54569-6098-00 ",.02)
 ;;54569-6098-00
 ;;9002226.02101,"1100,54569-6111-00 ",.01)
 ;;54569-6111-00
 ;;9002226.02101,"1100,54569-6111-00 ",.02)
 ;;54569-6111-00
 ;;9002226.02101,"1100,54569-6111-01 ",.01)
 ;;54569-6111-01
 ;;9002226.02101,"1100,54569-6111-01 ",.02)
 ;;54569-6111-01
 ;;9002226.02101,"1100,54569-6112-00 ",.01)
 ;;54569-6112-00
 ;;9002226.02101,"1100,54569-6112-00 ",.02)
 ;;54569-6112-00
 ;;9002226.02101,"1100,54569-6112-01 ",.01)
 ;;54569-6112-01
 ;;9002226.02101,"1100,54569-6112-01 ",.02)
 ;;54569-6112-01
 ;;9002226.02101,"1100,54569-6173-00 ",.01)
 ;;54569-6173-00
 ;;9002226.02101,"1100,54569-6173-00 ",.02)
 ;;54569-6173-00
 ;;9002226.02101,"1100,54569-6180-00 ",.01)
 ;;54569-6180-00
 ;;9002226.02101,"1100,54569-6180-00 ",.02)
 ;;54569-6180-00
 ;;9002226.02101,"1100,54569-6182-00 ",.01)
 ;;54569-6182-00
 ;;9002226.02101,"1100,54569-6182-00 ",.02)
 ;;54569-6182-00
 ;;9002226.02101,"1100,54868-0009-00 ",.01)
 ;;54868-0009-00
 ;;9002226.02101,"1100,54868-0009-00 ",.02)
 ;;54868-0009-00
 ;;9002226.02101,"1100,54868-0009-01 ",.01)
 ;;54868-0009-01
 ;;9002226.02101,"1100,54868-0009-01 ",.02)
 ;;54868-0009-01
 ;;9002226.02101,"1100,54868-0541-00 ",.01)
 ;;54868-0541-00
 ;;9002226.02101,"1100,54868-0541-00 ",.02)
 ;;54868-0541-00
 ;;9002226.02101,"1100,54868-0541-01 ",.01)
 ;;54868-0541-01
 ;;9002226.02101,"1100,54868-0541-01 ",.02)
 ;;54868-0541-01
 ;;9002226.02101,"1100,54868-0541-03 ",.01)
 ;;54868-0541-03
 ;;9002226.02101,"1100,54868-0541-03 ",.02)
 ;;54868-0541-03
 ;;9002226.02101,"1100,54868-0620-01 ",.01)
 ;;54868-0620-01
 ;;9002226.02101,"1100,54868-0620-01 ",.02)
 ;;54868-0620-01
 ;;9002226.02101,"1100,54868-0620-02 ",.01)
 ;;54868-0620-02
 ;;9002226.02101,"1100,54868-0620-02 ",.02)
 ;;54868-0620-02
 ;;9002226.02101,"1100,54868-0620-03 ",.01)
 ;;54868-0620-03
 ;;9002226.02101,"1100,54868-0620-03 ",.02)
 ;;54868-0620-03
 ;;9002226.02101,"1100,54868-0620-05 ",.01)
 ;;54868-0620-05
 ;;9002226.02101,"1100,54868-0620-05 ",.02)
 ;;54868-0620-05
 ;;9002226.02101,"1100,54868-0669-01 ",.01)
 ;;54868-0669-01
 ;;9002226.02101,"1100,54868-0669-01 ",.02)
 ;;54868-0669-01
 ;;9002226.02101,"1100,54868-0669-02 ",.01)
 ;;54868-0669-02
 ;;9002226.02101,"1100,54868-0669-02 ",.02)
 ;;54868-0669-02
 ;;9002226.02101,"1100,54868-0669-03 ",.01)
 ;;54868-0669-03
 ;;9002226.02101,"1100,54868-0669-03 ",.02)
 ;;54868-0669-03
 ;;9002226.02101,"1100,54868-1001-01 ",.01)
 ;;54868-1001-01
 ;;9002226.02101,"1100,54868-1001-01 ",.02)
 ;;54868-1001-01
 ;;9002226.02101,"1100,54868-1090-01 ",.01)
 ;;54868-1090-01
 ;;9002226.02101,"1100,54868-1090-01 ",.02)
 ;;54868-1090-01
 ;;9002226.02101,"1100,54868-1090-05 ",.01)
 ;;54868-1090-05
 ;;9002226.02101,"1100,54868-1090-05 ",.02)
 ;;54868-1090-05
 ;;9002226.02101,"1100,54868-1090-06 ",.01)
 ;;54868-1090-06
 ;;9002226.02101,"1100,54868-1090-06 ",.02)
 ;;54868-1090-06
 ;;9002226.02101,"1100,54868-1296-01 ",.01)
 ;;54868-1296-01
 ;;9002226.02101,"1100,54868-1296-01 ",.02)
 ;;54868-1296-01
 ;;9002226.02101,"1100,54868-1296-02 ",.01)
 ;;54868-1296-02
 ;;9002226.02101,"1100,54868-1296-02 ",.02)
 ;;54868-1296-02
 ;;9002226.02101,"1100,54868-1415-01 ",.01)
 ;;54868-1415-01
 ;;9002226.02101,"1100,54868-1415-01 ",.02)
 ;;54868-1415-01
 ;;9002226.02101,"1100,54868-1501-00 ",.01)
 ;;54868-1501-00
 ;;9002226.02101,"1100,54868-1501-00 ",.02)
 ;;54868-1501-00
 ;;9002226.02101,"1100,54868-1501-01 ",.01)
 ;;54868-1501-01
 ;;9002226.02101,"1100,54868-1501-01 ",.02)
 ;;54868-1501-01
 ;;9002226.02101,"1100,54868-1502-00 ",.01)
 ;;54868-1502-00
 ;;9002226.02101,"1100,54868-1502-00 ",.02)
 ;;54868-1502-00
 ;;9002226.02101,"1100,54868-1775-01 ",.01)
 ;;54868-1775-01
 ;;9002226.02101,"1100,54868-1775-01 ",.02)
 ;;54868-1775-01
 ;;9002226.02101,"1100,54868-1775-04 ",.01)
 ;;54868-1775-04
 ;;9002226.02101,"1100,54868-1775-04 ",.02)
 ;;54868-1775-04
 ;;9002226.02101,"1100,54868-1802-00 ",.01)
 ;;54868-1802-00
 ;;9002226.02101,"1100,54868-1802-00 ",.02)
 ;;54868-1802-00
 ;;9002226.02101,"1100,54868-1960-00 ",.01)
 ;;54868-1960-00
 ;;9002226.02101,"1100,54868-1960-00 ",.02)
 ;;54868-1960-00
 ;;9002226.02101,"1100,54868-1961-01 ",.01)
 ;;54868-1961-01
 ;;9002226.02101,"1100,54868-1961-01 ",.02)
 ;;54868-1961-01
 ;;9002226.02101,"1100,54868-1961-02 ",.01)
 ;;54868-1961-02
 ;;9002226.02101,"1100,54868-1961-02 ",.02)
 ;;54868-1961-02
 ;;9002226.02101,"1100,54868-1970-01 ",.01)
 ;;54868-1970-01
 ;;9002226.02101,"1100,54868-1970-01 ",.02)
 ;;54868-1970-01
 ;;9002226.02101,"1100,54868-1970-02 ",.01)
 ;;54868-1970-02
 ;;9002226.02101,"1100,54868-1970-02 ",.02)
 ;;54868-1970-02
 ;;9002226.02101,"1100,54868-1970-03 ",.01)
 ;;54868-1970-03
 ;;9002226.02101,"1100,54868-1970-03 ",.02)
 ;;54868-1970-03
 ;;9002226.02101,"1100,54868-2280-00 ",.01)
 ;;54868-2280-00
 ;;9002226.02101,"1100,54868-2280-00 ",.02)
 ;;54868-2280-00
 ;;9002226.02101,"1100,54868-2280-02 ",.01)
 ;;54868-2280-02
 ;;9002226.02101,"1100,54868-2280-02 ",.02)
 ;;54868-2280-02
 ;;9002226.02101,"1100,54868-2335-00 ",.01)
 ;;54868-2335-00
 ;;9002226.02101,"1100,54868-2335-00 ",.02)
 ;;54868-2335-00
 ;;9002226.02101,"1100,54868-2335-01 ",.01)
 ;;54868-2335-01
 ;;9002226.02101,"1100,54868-2335-01 ",.02)
 ;;54868-2335-01
 ;;9002226.02101,"1100,54868-2350-01 ",.01)
 ;;54868-2350-01
 ;;9002226.02101,"1100,54868-2350-01 ",.02)
 ;;54868-2350-01
 ;;9002226.02101,"1100,54868-2350-02 ",.01)
 ;;54868-2350-02
 ;;9002226.02101,"1100,54868-2350-02 ",.02)
 ;;54868-2350-02
 ;;9002226.02101,"1100,54868-2350-03 ",.01)
 ;;54868-2350-03
 ;;9002226.02101,"1100,54868-2350-03 ",.02)
 ;;54868-2350-03
 ;;9002226.02101,"1100,54868-2350-04 ",.01)
 ;;54868-2350-04
 ;;9002226.02101,"1100,54868-2350-04 ",.02)
 ;;54868-2350-04
 ;;9002226.02101,"1100,54868-2351-00 ",.01)
 ;;54868-2351-00
 ;;9002226.02101,"1100,54868-2351-00 ",.02)
 ;;54868-2351-00
 ;;9002226.02101,"1100,54868-2351-02 ",.01)
 ;;54868-2351-02
 ;;9002226.02101,"1100,54868-2351-02 ",.02)
 ;;54868-2351-02
 ;;9002226.02101,"1100,54868-2351-03 ",.01)
 ;;54868-2351-03
 ;;9002226.02101,"1100,54868-2351-03 ",.02)
 ;;54868-2351-03
 ;;9002226.02101,"1100,54868-2352-00 ",.01)
 ;;54868-2352-00
 ;;9002226.02101,"1100,54868-2352-00 ",.02)
 ;;54868-2352-00
 ;;9002226.02101,"1100,54868-2352-01 ",.01)
 ;;54868-2352-01
 ;;9002226.02101,"1100,54868-2352-01 ",.02)
 ;;54868-2352-01
 ;;9002226.02101,"1100,54868-2368-00 ",.01)
 ;;54868-2368-00
 ;;9002226.02101,"1100,54868-2368-00 ",.02)
 ;;54868-2368-00
 ;;9002226.02101,"1100,54868-2368-01 ",.01)
 ;;54868-2368-01
 ;;9002226.02101,"1100,54868-2368-01 ",.02)
 ;;54868-2368-01
 ;;9002226.02101,"1100,54868-2368-02 ",.01)
 ;;54868-2368-02
 ;;9002226.02101,"1100,54868-2368-02 ",.02)
 ;;54868-2368-02
 ;;9002226.02101,"1100,54868-2644-00 ",.01)
 ;;54868-2644-00
 ;;9002226.02101,"1100,54868-2644-00 ",.02)
 ;;54868-2644-00
 ;;9002226.02101,"1100,54868-2644-01 ",.01)
 ;;54868-2644-01
 ;;9002226.02101,"1100,54868-2644-01 ",.02)
 ;;54868-2644-01
 ;;9002226.02101,"1100,54868-2644-02 ",.01)
 ;;54868-2644-02
 ;;9002226.02101,"1100,54868-2644-02 ",.02)
 ;;54868-2644-02
 ;;9002226.02101,"1100,54868-2645-00 ",.01)
 ;;54868-2645-00
 ;;9002226.02101,"1100,54868-2645-00 ",.02)
 ;;54868-2645-00
 ;;9002226.02101,"1100,54868-2645-01 ",.01)
 ;;54868-2645-01
 ;;9002226.02101,"1100,54868-2645-01 ",.02)
 ;;54868-2645-01
 ;;9002226.02101,"1100,54868-2645-02 ",.01)
 ;;54868-2645-02
 ;;9002226.02101,"1100,54868-2645-02 ",.02)
 ;;54868-2645-02
 ;;9002226.02101,"1100,54868-2645-03 ",.01)
 ;;54868-2645-03
 ;;9002226.02101,"1100,54868-2645-03 ",.02)
 ;;54868-2645-03
 ;;9002226.02101,"1100,54868-2665-00 ",.01)
 ;;54868-2665-00
 ;;9002226.02101,"1100,54868-2665-00 ",.02)
 ;;54868-2665-00
 ;;9002226.02101,"1100,54868-2665-01 ",.01)
 ;;54868-2665-01
 ;;9002226.02101,"1100,54868-2665-01 ",.02)
 ;;54868-2665-01