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

BGP05W18.m

Go to the documentation of this file.
BGP05W18 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"979,54569-3808-00 ",.01)
 ;;54569-3808-00
 ;;9002226.02101,"979,54569-3808-00 ",.02)
 ;;54569-3808-00
 ;;9002226.02101,"979,54569-3809-00 ",.01)
 ;;54569-3809-00
 ;;9002226.02101,"979,54569-3809-00 ",.02)
 ;;54569-3809-00
 ;;9002226.02101,"979,54569-3984-00 ",.01)
 ;;54569-3984-00
 ;;9002226.02101,"979,54569-3984-00 ",.02)
 ;;54569-3984-00
 ;;9002226.02101,"979,54569-3985-00 ",.01)
 ;;54569-3985-00
 ;;9002226.02101,"979,54569-3985-00 ",.02)
 ;;54569-3985-00
 ;;9002226.02101,"979,54569-4246-00 ",.01)
 ;;54569-4246-00
 ;;9002226.02101,"979,54569-4246-00 ",.02)
 ;;54569-4246-00
 ;;9002226.02101,"979,54569-4246-01 ",.01)
 ;;54569-4246-01
 ;;9002226.02101,"979,54569-4246-01 ",.02)
 ;;54569-4246-01
 ;;9002226.02101,"979,54569-4246-03 ",.01)
 ;;54569-4246-03
 ;;9002226.02101,"979,54569-4246-03 ",.02)
 ;;54569-4246-03
 ;;9002226.02101,"979,54569-4246-04 ",.01)
 ;;54569-4246-04
 ;;9002226.02101,"979,54569-4246-04 ",.02)
 ;;54569-4246-04
 ;;9002226.02101,"979,54569-4246-05 ",.01)
 ;;54569-4246-05
 ;;9002226.02101,"979,54569-4246-05 ",.02)
 ;;54569-4246-05
 ;;9002226.02101,"979,54569-4247-00 ",.01)
 ;;54569-4247-00
 ;;9002226.02101,"979,54569-4247-00 ",.02)
 ;;54569-4247-00
 ;;9002226.02101,"979,54569-4247-02 ",.01)
 ;;54569-4247-02
 ;;9002226.02101,"979,54569-4247-02 ",.02)
 ;;54569-4247-02
 ;;9002226.02101,"979,54569-4247-03 ",.01)
 ;;54569-4247-03
 ;;9002226.02101,"979,54569-4247-03 ",.02)
 ;;54569-4247-03
 ;;9002226.02101,"979,54569-4276-00 ",.01)
 ;;54569-4276-00
 ;;9002226.02101,"979,54569-4276-00 ",.02)
 ;;54569-4276-00
 ;;9002226.02101,"979,54569-4454-00 ",.01)
 ;;54569-4454-00
 ;;9002226.02101,"979,54569-4454-00 ",.02)
 ;;54569-4454-00
 ;;9002226.02101,"979,54569-4593-00 ",.01)
 ;;54569-4593-00
 ;;9002226.02101,"979,54569-4593-00 ",.02)
 ;;54569-4593-00
 ;;9002226.02101,"979,54569-4593-01 ",.01)
 ;;54569-4593-01
 ;;9002226.02101,"979,54569-4593-01 ",.02)
 ;;54569-4593-01
 ;;9002226.02101,"979,54569-4696-00 ",.01)
 ;;54569-4696-00
 ;;9002226.02101,"979,54569-4696-00 ",.02)
 ;;54569-4696-00
 ;;9002226.02101,"979,54569-4788-00 ",.01)
 ;;54569-4788-00
 ;;9002226.02101,"979,54569-4788-00 ",.02)
 ;;54569-4788-00
 ;;9002226.02101,"979,54569-4829-00 ",.01)
 ;;54569-4829-00
 ;;9002226.02101,"979,54569-4829-00 ",.02)
 ;;54569-4829-00
 ;;9002226.02101,"979,54569-4948-00 ",.01)
 ;;54569-4948-00
 ;;9002226.02101,"979,54569-4948-00 ",.02)
 ;;54569-4948-00
 ;;9002226.02101,"979,54569-4990-00 ",.01)
 ;;54569-4990-00
 ;;9002226.02101,"979,54569-4990-00 ",.02)
 ;;54569-4990-00
 ;;9002226.02101,"979,54569-5133-00 ",.01)
 ;;54569-5133-00
 ;;9002226.02101,"979,54569-5133-00 ",.02)
 ;;54569-5133-00
 ;;9002226.02101,"979,54569-5133-01 ",.01)
 ;;54569-5133-01
 ;;9002226.02101,"979,54569-5133-01 ",.02)
 ;;54569-5133-01
 ;;9002226.02101,"979,54569-5134-00 ",.01)
 ;;54569-5134-00
 ;;9002226.02101,"979,54569-5134-00 ",.02)
 ;;54569-5134-00
 ;;9002226.02101,"979,54569-5134-01 ",.01)
 ;;54569-5134-01
 ;;9002226.02101,"979,54569-5134-01 ",.02)
 ;;54569-5134-01
 ;;9002226.02101,"979,54569-5134-02 ",.01)
 ;;54569-5134-02
 ;;9002226.02101,"979,54569-5134-02 ",.02)
 ;;54569-5134-02
 ;;9002226.02101,"979,54569-5135-00 ",.01)
 ;;54569-5135-00
 ;;9002226.02101,"979,54569-5135-00 ",.02)
 ;;54569-5135-00
 ;;9002226.02101,"979,54569-5135-01 ",.01)
 ;;54569-5135-01
 ;;9002226.02101,"979,54569-5135-01 ",.02)
 ;;54569-5135-01
 ;;9002226.02101,"979,54569-5232-00 ",.01)
 ;;54569-5232-00
 ;;9002226.02101,"979,54569-5232-00 ",.02)
 ;;54569-5232-00
 ;;9002226.02101,"979,54569-5434-00 ",.01)
 ;;54569-5434-00
 ;;9002226.02101,"979,54569-5434-00 ",.02)
 ;;54569-5434-00
 ;;9002226.02101,"979,54569-5434-03 ",.01)
 ;;54569-5434-03
 ;;9002226.02101,"979,54569-5434-03 ",.02)
 ;;54569-5434-03
 ;;9002226.02101,"979,54569-5434-04 ",.01)
 ;;54569-5434-04
 ;;9002226.02101,"979,54569-5434-04 ",.02)
 ;;54569-5434-04
 ;;9002226.02101,"979,54569-5435-00 ",.01)
 ;;54569-5435-00
 ;;9002226.02101,"979,54569-5435-00 ",.02)
 ;;54569-5435-00
 ;;9002226.02101,"979,54569-5435-03 ",.01)
 ;;54569-5435-03
 ;;9002226.02101,"979,54569-5435-03 ",.02)
 ;;54569-5435-03
 ;;9002226.02101,"979,54569-5435-04 ",.01)
 ;;54569-5435-04
 ;;9002226.02101,"979,54569-5435-04 ",.02)
 ;;54569-5435-04
 ;;9002226.02101,"979,54569-5437-00 ",.01)
 ;;54569-5437-00
 ;;9002226.02101,"979,54569-5437-00 ",.02)
 ;;54569-5437-00
 ;;9002226.02101,"979,54569-5438-00 ",.01)
 ;;54569-5438-00
 ;;9002226.02101,"979,54569-5438-00 ",.02)
 ;;54569-5438-00
 ;;9002226.02101,"979,54569-5472-00 ",.01)
 ;;54569-5472-00
 ;;9002226.02101,"979,54569-5472-00 ",.02)
 ;;54569-5472-00
 ;;9002226.02101,"979,54569-5621-00 ",.01)
 ;;54569-5621-00
 ;;9002226.02101,"979,54569-5621-00 ",.02)
 ;;54569-5621-00
 ;;9002226.02101,"979,54569-5668-00 ",.01)
 ;;54569-5668-00
 ;;9002226.02101,"979,54569-5668-00 ",.02)
 ;;54569-5668-00
 ;;9002226.02101,"979,54569-5668-01 ",.01)
 ;;54569-5668-01
 ;;9002226.02101,"979,54569-5668-01 ",.02)
 ;;54569-5668-01
 ;;9002226.02101,"979,54569-5669-00 ",.01)
 ;;54569-5669-00
 ;;9002226.02101,"979,54569-5669-00 ",.02)
 ;;54569-5669-00
 ;;9002226.02101,"979,54569-5670-00 ",.01)
 ;;54569-5670-00
 ;;9002226.02101,"979,54569-5670-00 ",.02)
 ;;54569-5670-00
 ;;9002226.02101,"979,54569-5685-00 ",.01)
 ;;54569-5685-00
 ;;9002226.02101,"979,54569-5685-00 ",.02)
 ;;54569-5685-00
 ;;9002226.02101,"979,54569-5709-00 ",.01)
 ;;54569-5709-00
 ;;9002226.02101,"979,54569-5709-00 ",.02)
 ;;54569-5709-00
 ;;9002226.02101,"979,54569-5710-00 ",.01)
 ;;54569-5710-00
 ;;9002226.02101,"979,54569-5710-00 ",.02)
 ;;54569-5710-00
 ;;9002226.02101,"979,54569-5711-00 ",.01)
 ;;54569-5711-00
 ;;9002226.02101,"979,54569-5711-00 ",.02)
 ;;54569-5711-00
 ;;9002226.02101,"979,54569-5728-00 ",.01)
 ;;54569-5728-00
 ;;9002226.02101,"979,54569-5728-00 ",.02)
 ;;54569-5728-00
 ;;9002226.02101,"979,54569-5878-00 ",.01)
 ;;54569-5878-00
 ;;9002226.02101,"979,54569-5878-00 ",.02)
 ;;54569-5878-00
 ;;9002226.02101,"979,54569-8515-00 ",.01)
 ;;54569-8515-00
 ;;9002226.02101,"979,54569-8515-00 ",.02)
 ;;54569-8515-00
 ;;9002226.02101,"979,54569-8527-00 ",.01)
 ;;54569-8527-00
 ;;9002226.02101,"979,54569-8527-00 ",.02)
 ;;54569-8527-00
 ;;9002226.02101,"979,54569-8583-00 ",.01)
 ;;54569-8583-00
 ;;9002226.02101,"979,54569-8583-00 ",.02)
 ;;54569-8583-00
 ;;9002226.02101,"979,54569-8584-00 ",.01)
 ;;54569-8584-00
 ;;9002226.02101,"979,54569-8584-00 ",.02)
 ;;54569-8584-00
 ;;9002226.02101,"979,54569-8592-00 ",.01)
 ;;54569-8592-00
 ;;9002226.02101,"979,54569-8592-00 ",.02)
 ;;54569-8592-00
 ;;9002226.02101,"979,54569-8595-00 ",.01)
 ;;54569-8595-00
 ;;9002226.02101,"979,54569-8595-00 ",.02)
 ;;54569-8595-00
 ;;9002226.02101,"979,54868-0541-00 ",.01)
 ;;54868-0541-00
 ;;9002226.02101,"979,54868-0541-00 ",.02)
 ;;54868-0541-00
 ;;9002226.02101,"979,54868-0541-01 ",.01)
 ;;54868-0541-01
 ;;9002226.02101,"979,54868-0541-01 ",.02)
 ;;54868-0541-01
 ;;9002226.02101,"979,54868-0541-03 ",.01)
 ;;54868-0541-03
 ;;9002226.02101,"979,54868-0541-03 ",.02)
 ;;54868-0541-03
 ;;9002226.02101,"979,54868-0620-01 ",.01)
 ;;54868-0620-01
 ;;9002226.02101,"979,54868-0620-01 ",.02)
 ;;54868-0620-01
 ;;9002226.02101,"979,54868-0620-02 ",.01)
 ;;54868-0620-02
 ;;9002226.02101,"979,54868-0620-02 ",.02)
 ;;54868-0620-02
 ;;9002226.02101,"979,54868-0620-03 ",.01)
 ;;54868-0620-03
 ;;9002226.02101,"979,54868-0620-03 ",.02)
 ;;54868-0620-03
 ;;9002226.02101,"979,54868-0620-05 ",.01)
 ;;54868-0620-05
 ;;9002226.02101,"979,54868-0620-05 ",.02)
 ;;54868-0620-05
 ;;9002226.02101,"979,54868-0669-01 ",.01)
 ;;54868-0669-01
 ;;9002226.02101,"979,54868-0669-01 ",.02)
 ;;54868-0669-01
 ;;9002226.02101,"979,54868-0669-02 ",.01)
 ;;54868-0669-02
 ;;9002226.02101,"979,54868-0669-02 ",.02)
 ;;54868-0669-02
 ;;9002226.02101,"979,54868-0669-03 ",.01)
 ;;54868-0669-03
 ;;9002226.02101,"979,54868-0669-03 ",.02)
 ;;54868-0669-03
 ;;9002226.02101,"979,54868-0669-05 ",.01)
 ;;54868-0669-05
 ;;9002226.02101,"979,54868-0669-05 ",.02)
 ;;54868-0669-05
 ;;9002226.02101,"979,54868-0669-06 ",.01)
 ;;54868-0669-06
 ;;9002226.02101,"979,54868-0669-06 ",.02)
 ;;54868-0669-06
 ;;9002226.02101,"979,54868-1001-01 ",.01)
 ;;54868-1001-01
 ;;9002226.02101,"979,54868-1001-01 ",.02)
 ;;54868-1001-01
 ;;9002226.02101,"979,54868-1090-01 ",.01)
 ;;54868-1090-01
 ;;9002226.02101,"979,54868-1090-01 ",.02)
 ;;54868-1090-01
 ;;9002226.02101,"979,54868-1090-05 ",.01)
 ;;54868-1090-05
 ;;9002226.02101,"979,54868-1090-05 ",.02)
 ;;54868-1090-05
 ;;9002226.02101,"979,54868-1090-06 ",.01)
 ;;54868-1090-06
 ;;9002226.02101,"979,54868-1090-06 ",.02)
 ;;54868-1090-06
 ;;9002226.02101,"979,54868-1296-01 ",.01)
 ;;54868-1296-01
 ;;9002226.02101,"979,54868-1296-01 ",.02)
 ;;54868-1296-01
 ;;9002226.02101,"979,54868-1296-02 ",.01)
 ;;54868-1296-02
 ;;9002226.02101,"979,54868-1296-02 ",.02)
 ;;54868-1296-02
 ;;9002226.02101,"979,54868-1415-01 ",.01)
 ;;54868-1415-01
 ;;9002226.02101,"979,54868-1415-01 ",.02)
 ;;54868-1415-01
 ;;9002226.02101,"979,54868-1501-00 ",.01)
 ;;54868-1501-00
 ;;9002226.02101,"979,54868-1501-00 ",.02)
 ;;54868-1501-00
 ;;9002226.02101,"979,54868-1501-01 ",.01)
 ;;54868-1501-01
 ;;9002226.02101,"979,54868-1501-01 ",.02)
 ;;54868-1501-01
 ;;9002226.02101,"979,54868-1502-00 ",.01)
 ;;54868-1502-00
 ;;9002226.02101,"979,54868-1502-00 ",.02)
 ;;54868-1502-00
 ;;9002226.02101,"979,54868-1775-01 ",.01)
 ;;54868-1775-01
 ;;9002226.02101,"979,54868-1775-01 ",.02)
 ;;54868-1775-01
 ;;9002226.02101,"979,54868-1775-04 ",.01)
 ;;54868-1775-04
 ;;9002226.02101,"979,54868-1775-04 ",.02)
 ;;54868-1775-04
 ;;9002226.02101,"979,54868-1802-00 ",.01)
 ;;54868-1802-00
 ;;9002226.02101,"979,54868-1802-00 ",.02)
 ;;54868-1802-00
 ;;9002226.02101,"979,54868-1960-00 ",.01)
 ;;54868-1960-00
 ;;9002226.02101,"979,54868-1960-00 ",.02)
 ;;54868-1960-00
 ;;9002226.02101,"979,54868-1961-01 ",.01)
 ;;54868-1961-01
 ;;9002226.02101,"979,54868-1961-01 ",.02)
 ;;54868-1961-01
 ;;9002226.02101,"979,54868-1961-02 ",.01)
 ;;54868-1961-02
 ;;9002226.02101,"979,54868-1961-02 ",.02)
 ;;54868-1961-02
 ;;9002226.02101,"979,54868-1970-01 ",.01)
 ;;54868-1970-01
 ;;9002226.02101,"979,54868-1970-01 ",.02)
 ;;54868-1970-01
 ;;9002226.02101,"979,54868-1970-02 ",.01)
 ;;54868-1970-02
 ;;9002226.02101,"979,54868-1970-02 ",.02)
 ;;54868-1970-02
 ;;9002226.02101,"979,54868-2280-00 ",.01)
 ;;54868-2280-00
 ;;9002226.02101,"979,54868-2280-00 ",.02)
 ;;54868-2280-00
 ;;9002226.02101,"979,54868-2280-02 ",.01)
 ;;54868-2280-02
 ;;9002226.02101,"979,54868-2280-02 ",.02)
 ;;54868-2280-02
 ;;9002226.02101,"979,54868-2350-01 ",.01)
 ;;54868-2350-01
 ;;9002226.02101,"979,54868-2350-01 ",.02)
 ;;54868-2350-01
 ;;9002226.02101,"979,54868-2350-02 ",.01)
 ;;54868-2350-02
 ;;9002226.02101,"979,54868-2350-02 ",.02)
 ;;54868-2350-02
 ;;9002226.02101,"979,54868-2350-03 ",.01)
 ;;54868-2350-03
 ;;9002226.02101,"979,54868-2350-03 ",.02)
 ;;54868-2350-03
 ;;9002226.02101,"979,54868-2350-04 ",.01)
 ;;54868-2350-04
 ;;9002226.02101,"979,54868-2350-04 ",.02)
 ;;54868-2350-04
 ;;9002226.02101,"979,54868-2351-00 ",.01)
 ;;54868-2351-00
 ;;9002226.02101,"979,54868-2351-00 ",.02)
 ;;54868-2351-00
 ;;9002226.02101,"979,54868-2351-02 ",.01)
 ;;54868-2351-02
 ;;9002226.02101,"979,54868-2351-02 ",.02)
 ;;54868-2351-02
 ;;9002226.02101,"979,54868-2351-03 ",.01)
 ;;54868-2351-03
 ;;9002226.02101,"979,54868-2351-03 ",.02)
 ;;54868-2351-03
 ;;9002226.02101,"979,54868-2352-00 ",.01)
 ;;54868-2352-00
 ;;9002226.02101,"979,54868-2352-00 ",.02)
 ;;54868-2352-00
 ;;9002226.02101,"979,54868-2352-01 ",.01)
 ;;54868-2352-01
 ;;9002226.02101,"979,54868-2352-01 ",.02)
 ;;54868-2352-01
 ;;9002226.02101,"979,54868-2368-00 ",.01)
 ;;54868-2368-00
 ;;9002226.02101,"979,54868-2368-00 ",.02)
 ;;54868-2368-00
 ;;9002226.02101,"979,54868-2368-01 ",.01)
 ;;54868-2368-01
 ;;9002226.02101,"979,54868-2368-01 ",.02)
 ;;54868-2368-01
 ;;9002226.02101,"979,54868-2368-02 ",.01)
 ;;54868-2368-02
 ;;9002226.02101,"979,54868-2368-02 ",.02)
 ;;54868-2368-02
 ;;9002226.02101,"979,54868-2644-00 ",.01)
 ;;54868-2644-00
 ;;9002226.02101,"979,54868-2644-00 ",.02)
 ;;54868-2644-00
 ;;9002226.02101,"979,54868-2644-01 ",.01)
 ;;54868-2644-01
 ;;9002226.02101,"979,54868-2644-01 ",.02)
 ;;54868-2644-01
 ;;9002226.02101,"979,54868-2644-02 ",.01)
 ;;54868-2644-02
 ;;9002226.02101,"979,54868-2644-02 ",.02)
 ;;54868-2644-02
 ;;9002226.02101,"979,54868-2645-00 ",.01)
 ;;54868-2645-00
 ;;9002226.02101,"979,54868-2645-00 ",.02)
 ;;54868-2645-00
 ;;9002226.02101,"979,54868-2645-01 ",.01)
 ;;54868-2645-01
 ;;9002226.02101,"979,54868-2645-01 ",.02)
 ;;54868-2645-01
 ;;9002226.02101,"979,54868-2665-00 ",.01)
 ;;54868-2665-00
 ;;9002226.02101,"979,54868-2665-00 ",.02)
 ;;54868-2665-00
 ;;9002226.02101,"979,54868-2665-01 ",.01)
 ;;54868-2665-01
 ;;9002226.02101,"979,54868-2665-01 ",.02)
 ;;54868-2665-01
 ;;9002226.02101,"979,54868-2666-01 ",.01)
 ;;54868-2666-01
 ;;9002226.02101,"979,54868-2666-01 ",.02)
 ;;54868-2666-01
 ;;9002226.02101,"979,54868-2666-02 ",.01)
 ;;54868-2666-02
 ;;9002226.02101,"979,54868-2666-02 ",.02)
 ;;54868-2666-02
 ;;9002226.02101,"979,54868-2666-03 ",.01)
 ;;54868-2666-03
 ;;9002226.02101,"979,54868-2666-03 ",.02)
 ;;54868-2666-03
 ;;9002226.02101,"979,54868-2666-04 ",.01)
 ;;54868-2666-04
 ;;9002226.02101,"979,54868-2666-04 ",.02)
 ;;54868-2666-04
 ;;9002226.02101,"979,54868-3279-00 ",.01)
 ;;54868-3279-00
 ;;9002226.02101,"979,54868-3279-00 ",.02)
 ;;54868-3279-00