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

BGP63D17.m

Go to the documentation of this file.
BGP63D17 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"872,54569-5668-00 ",.02)
 ;;54569-5668-00
 ;;9002226.02101,"872,54569-5668-01 ",.01)
 ;;54569-5668-01
 ;;9002226.02101,"872,54569-5668-01 ",.02)
 ;;54569-5668-01
 ;;9002226.02101,"872,54569-5668-02 ",.01)
 ;;54569-5668-02
 ;;9002226.02101,"872,54569-5668-02 ",.02)
 ;;54569-5668-02
 ;;9002226.02101,"872,54569-5669-00 ",.01)
 ;;54569-5669-00
 ;;9002226.02101,"872,54569-5669-00 ",.02)
 ;;54569-5669-00
 ;;9002226.02101,"872,54569-5669-01 ",.01)
 ;;54569-5669-01
 ;;9002226.02101,"872,54569-5669-01 ",.02)
 ;;54569-5669-01
 ;;9002226.02101,"872,54569-5670-00 ",.01)
 ;;54569-5670-00
 ;;9002226.02101,"872,54569-5670-00 ",.02)
 ;;54569-5670-00
 ;;9002226.02101,"872,54569-5670-01 ",.01)
 ;;54569-5670-01
 ;;9002226.02101,"872,54569-5670-01 ",.02)
 ;;54569-5670-01
 ;;9002226.02101,"872,54569-5709-00 ",.01)
 ;;54569-5709-00
 ;;9002226.02101,"872,54569-5709-00 ",.02)
 ;;54569-5709-00
 ;;9002226.02101,"872,54569-5710-00 ",.01)
 ;;54569-5710-00
 ;;9002226.02101,"872,54569-5710-00 ",.02)
 ;;54569-5710-00
 ;;9002226.02101,"872,54569-5711-00 ",.01)
 ;;54569-5711-00
 ;;9002226.02101,"872,54569-5711-00 ",.02)
 ;;54569-5711-00
 ;;9002226.02101,"872,54569-5728-00 ",.01)
 ;;54569-5728-00
 ;;9002226.02101,"872,54569-5728-00 ",.02)
 ;;54569-5728-00
 ;;9002226.02101,"872,54569-5936-00 ",.01)
 ;;54569-5936-00
 ;;9002226.02101,"872,54569-5936-00 ",.02)
 ;;54569-5936-00
 ;;9002226.02101,"872,54569-6098-00 ",.01)
 ;;54569-6098-00
 ;;9002226.02101,"872,54569-6098-00 ",.02)
 ;;54569-6098-00
 ;;9002226.02101,"872,54569-6111-00 ",.01)
 ;;54569-6111-00
 ;;9002226.02101,"872,54569-6111-00 ",.02)
 ;;54569-6111-00
 ;;9002226.02101,"872,54569-6111-01 ",.01)
 ;;54569-6111-01
 ;;9002226.02101,"872,54569-6111-01 ",.02)
 ;;54569-6111-01
 ;;9002226.02101,"872,54569-6112-00 ",.01)
 ;;54569-6112-00
 ;;9002226.02101,"872,54569-6112-00 ",.02)
 ;;54569-6112-00
 ;;9002226.02101,"872,54569-6112-01 ",.01)
 ;;54569-6112-01
 ;;9002226.02101,"872,54569-6112-01 ",.02)
 ;;54569-6112-01
 ;;9002226.02101,"872,54569-8515-00 ",.01)
 ;;54569-8515-00
 ;;9002226.02101,"872,54569-8515-00 ",.02)
 ;;54569-8515-00
 ;;9002226.02101,"872,54569-8527-00 ",.01)
 ;;54569-8527-00
 ;;9002226.02101,"872,54569-8527-00 ",.02)
 ;;54569-8527-00
 ;;9002226.02101,"872,54569-8583-00 ",.01)
 ;;54569-8583-00
 ;;9002226.02101,"872,54569-8583-00 ",.02)
 ;;54569-8583-00
 ;;9002226.02101,"872,54569-8584-00 ",.01)
 ;;54569-8584-00
 ;;9002226.02101,"872,54569-8584-00 ",.02)
 ;;54569-8584-00
 ;;9002226.02101,"872,54868-0541-00 ",.01)
 ;;54868-0541-00
 ;;9002226.02101,"872,54868-0541-00 ",.02)
 ;;54868-0541-00
 ;;9002226.02101,"872,54868-0541-01 ",.01)
 ;;54868-0541-01
 ;;9002226.02101,"872,54868-0541-01 ",.02)
 ;;54868-0541-01
 ;;9002226.02101,"872,54868-0541-03 ",.01)
 ;;54868-0541-03
 ;;9002226.02101,"872,54868-0541-03 ",.02)
 ;;54868-0541-03
 ;;9002226.02101,"872,54868-0620-01 ",.01)
 ;;54868-0620-01
 ;;9002226.02101,"872,54868-0620-01 ",.02)
 ;;54868-0620-01
 ;;9002226.02101,"872,54868-0620-02 ",.01)
 ;;54868-0620-02
 ;;9002226.02101,"872,54868-0620-02 ",.02)
 ;;54868-0620-02
 ;;9002226.02101,"872,54868-0620-03 ",.01)
 ;;54868-0620-03
 ;;9002226.02101,"872,54868-0620-03 ",.02)
 ;;54868-0620-03
 ;;9002226.02101,"872,54868-0620-05 ",.01)
 ;;54868-0620-05
 ;;9002226.02101,"872,54868-0620-05 ",.02)
 ;;54868-0620-05
 ;;9002226.02101,"872,54868-1001-01 ",.01)
 ;;54868-1001-01
 ;;9002226.02101,"872,54868-1001-01 ",.02)
 ;;54868-1001-01
 ;;9002226.02101,"872,54868-1090-01 ",.01)
 ;;54868-1090-01
 ;;9002226.02101,"872,54868-1090-01 ",.02)
 ;;54868-1090-01
 ;;9002226.02101,"872,54868-1090-05 ",.01)
 ;;54868-1090-05
 ;;9002226.02101,"872,54868-1090-05 ",.02)
 ;;54868-1090-05
 ;;9002226.02101,"872,54868-1090-06 ",.01)
 ;;54868-1090-06
 ;;9002226.02101,"872,54868-1090-06 ",.02)
 ;;54868-1090-06
 ;;9002226.02101,"872,54868-1296-01 ",.01)
 ;;54868-1296-01
 ;;9002226.02101,"872,54868-1296-01 ",.02)
 ;;54868-1296-01
 ;;9002226.02101,"872,54868-1296-02 ",.01)
 ;;54868-1296-02
 ;;9002226.02101,"872,54868-1296-02 ",.02)
 ;;54868-1296-02
 ;;9002226.02101,"872,54868-1501-00 ",.01)
 ;;54868-1501-00
 ;;9002226.02101,"872,54868-1501-00 ",.02)
 ;;54868-1501-00
 ;;9002226.02101,"872,54868-1501-01 ",.01)
 ;;54868-1501-01
 ;;9002226.02101,"872,54868-1501-01 ",.02)
 ;;54868-1501-01
 ;;9002226.02101,"872,54868-1502-00 ",.01)
 ;;54868-1502-00
 ;;9002226.02101,"872,54868-1502-00 ",.02)
 ;;54868-1502-00
 ;;9002226.02101,"872,54868-1960-00 ",.01)
 ;;54868-1960-00
 ;;9002226.02101,"872,54868-1960-00 ",.02)
 ;;54868-1960-00
 ;;9002226.02101,"872,54868-1961-01 ",.01)
 ;;54868-1961-01
 ;;9002226.02101,"872,54868-1961-01 ",.02)
 ;;54868-1961-01
 ;;9002226.02101,"872,54868-1961-02 ",.01)
 ;;54868-1961-02
 ;;9002226.02101,"872,54868-1961-02 ",.02)
 ;;54868-1961-02
 ;;9002226.02101,"872,54868-1970-01 ",.01)
 ;;54868-1970-01
 ;;9002226.02101,"872,54868-1970-01 ",.02)
 ;;54868-1970-01
 ;;9002226.02101,"872,54868-1970-02 ",.01)
 ;;54868-1970-02
 ;;9002226.02101,"872,54868-1970-02 ",.02)
 ;;54868-1970-02
 ;;9002226.02101,"872,54868-2280-00 ",.01)
 ;;54868-2280-00
 ;;9002226.02101,"872,54868-2280-00 ",.02)
 ;;54868-2280-00
 ;;9002226.02101,"872,54868-2280-02 ",.01)
 ;;54868-2280-02
 ;;9002226.02101,"872,54868-2280-02 ",.02)
 ;;54868-2280-02
 ;;9002226.02101,"872,54868-2350-01 ",.01)
 ;;54868-2350-01
 ;;9002226.02101,"872,54868-2350-01 ",.02)
 ;;54868-2350-01
 ;;9002226.02101,"872,54868-2350-02 ",.01)
 ;;54868-2350-02
 ;;9002226.02101,"872,54868-2350-02 ",.02)
 ;;54868-2350-02
 ;;9002226.02101,"872,54868-2350-03 ",.01)
 ;;54868-2350-03
 ;;9002226.02101,"872,54868-2350-03 ",.02)
 ;;54868-2350-03
 ;;9002226.02101,"872,54868-2350-04 ",.01)
 ;;54868-2350-04
 ;;9002226.02101,"872,54868-2350-04 ",.02)
 ;;54868-2350-04
 ;;9002226.02101,"872,54868-2351-00 ",.01)
 ;;54868-2351-00
 ;;9002226.02101,"872,54868-2351-00 ",.02)
 ;;54868-2351-00
 ;;9002226.02101,"872,54868-2351-02 ",.01)
 ;;54868-2351-02
 ;;9002226.02101,"872,54868-2351-02 ",.02)
 ;;54868-2351-02
 ;;9002226.02101,"872,54868-2351-03 ",.01)
 ;;54868-2351-03
 ;;9002226.02101,"872,54868-2351-03 ",.02)
 ;;54868-2351-03
 ;;9002226.02101,"872,54868-2352-00 ",.01)
 ;;54868-2352-00
 ;;9002226.02101,"872,54868-2352-00 ",.02)
 ;;54868-2352-00
 ;;9002226.02101,"872,54868-2352-01 ",.01)
 ;;54868-2352-01
 ;;9002226.02101,"872,54868-2352-01 ",.02)
 ;;54868-2352-01
 ;;9002226.02101,"872,54868-2644-00 ",.01)
 ;;54868-2644-00
 ;;9002226.02101,"872,54868-2644-00 ",.02)
 ;;54868-2644-00
 ;;9002226.02101,"872,54868-2644-01 ",.01)
 ;;54868-2644-01
 ;;9002226.02101,"872,54868-2644-01 ",.02)
 ;;54868-2644-01
 ;;9002226.02101,"872,54868-2644-02 ",.01)
 ;;54868-2644-02
 ;;9002226.02101,"872,54868-2644-02 ",.02)
 ;;54868-2644-02
 ;;9002226.02101,"872,54868-2645-00 ",.01)
 ;;54868-2645-00
 ;;9002226.02101,"872,54868-2645-00 ",.02)
 ;;54868-2645-00
 ;;9002226.02101,"872,54868-2645-01 ",.01)
 ;;54868-2645-01
 ;;9002226.02101,"872,54868-2645-01 ",.02)
 ;;54868-2645-01
 ;;9002226.02101,"872,54868-2645-03 ",.01)
 ;;54868-2645-03
 ;;9002226.02101,"872,54868-2645-03 ",.02)
 ;;54868-2645-03
 ;;9002226.02101,"872,54868-2665-00 ",.01)
 ;;54868-2665-00
 ;;9002226.02101,"872,54868-2665-00 ",.02)
 ;;54868-2665-00
 ;;9002226.02101,"872,54868-2665-01 ",.01)
 ;;54868-2665-01
 ;;9002226.02101,"872,54868-2665-01 ",.02)
 ;;54868-2665-01
 ;;9002226.02101,"872,54868-2666-01 ",.01)
 ;;54868-2666-01
 ;;9002226.02101,"872,54868-2666-01 ",.02)
 ;;54868-2666-01
 ;;9002226.02101,"872,54868-2666-02 ",.01)
 ;;54868-2666-02
 ;;9002226.02101,"872,54868-2666-02 ",.02)
 ;;54868-2666-02
 ;;9002226.02101,"872,54868-2666-03 ",.01)
 ;;54868-2666-03
 ;;9002226.02101,"872,54868-2666-03 ",.02)
 ;;54868-2666-03
 ;;9002226.02101,"872,54868-2666-04 ",.01)
 ;;54868-2666-04
 ;;9002226.02101,"872,54868-2666-04 ",.02)
 ;;54868-2666-04
 ;;9002226.02101,"872,54868-3307-00 ",.01)
 ;;54868-3307-00
 ;;9002226.02101,"872,54868-3307-00 ",.02)
 ;;54868-3307-00
 ;;9002226.02101,"872,54868-3307-01 ",.01)
 ;;54868-3307-01
 ;;9002226.02101,"872,54868-3307-01 ",.02)
 ;;54868-3307-01
 ;;9002226.02101,"872,54868-3445-00 ",.01)
 ;;54868-3445-00
 ;;9002226.02101,"872,54868-3445-00 ",.02)
 ;;54868-3445-00
 ;;9002226.02101,"872,54868-3445-01 ",.01)
 ;;54868-3445-01
 ;;9002226.02101,"872,54868-3445-01 ",.02)
 ;;54868-3445-01
 ;;9002226.02101,"872,54868-3690-01 ",.01)
 ;;54868-3690-01
 ;;9002226.02101,"872,54868-3690-01 ",.02)
 ;;54868-3690-01
 ;;9002226.02101,"872,54868-3723-01 ",.01)
 ;;54868-3723-01
 ;;9002226.02101,"872,54868-3723-01 ",.02)
 ;;54868-3723-01
 ;;9002226.02101,"872,54868-3724-01 ",.01)
 ;;54868-3724-01
 ;;9002226.02101,"872,54868-3724-01 ",.02)
 ;;54868-3724-01
 ;;9002226.02101,"872,54868-3724-02 ",.01)
 ;;54868-3724-02
 ;;9002226.02101,"872,54868-3724-02 ",.02)
 ;;54868-3724-02
 ;;9002226.02101,"872,54868-3724-03 ",.01)
 ;;54868-3724-03
 ;;9002226.02101,"872,54868-3724-03 ",.02)
 ;;54868-3724-03
 ;;9002226.02101,"872,54868-3725-01 ",.01)
 ;;54868-3725-01
 ;;9002226.02101,"872,54868-3725-01 ",.02)
 ;;54868-3725-01
 ;;9002226.02101,"872,54868-3725-02 ",.01)
 ;;54868-3725-02
 ;;9002226.02101,"872,54868-3725-02 ",.02)
 ;;54868-3725-02
 ;;9002226.02101,"872,54868-3725-03 ",.01)
 ;;54868-3725-03
 ;;9002226.02101,"872,54868-3725-03 ",.02)
 ;;54868-3725-03
 ;;9002226.02101,"872,54868-3846-00 ",.01)
 ;;54868-3846-00
 ;;9002226.02101,"872,54868-3846-00 ",.02)
 ;;54868-3846-00
 ;;9002226.02101,"872,54868-4088-00 ",.01)
 ;;54868-4088-00
 ;;9002226.02101,"872,54868-4088-00 ",.02)
 ;;54868-4088-00
 ;;9002226.02101,"872,54868-4088-01 ",.01)
 ;;54868-4088-01
 ;;9002226.02101,"872,54868-4088-01 ",.02)
 ;;54868-4088-01
 ;;9002226.02101,"872,54868-4088-02 ",.01)
 ;;54868-4088-02
 ;;9002226.02101,"872,54868-4088-02 ",.02)
 ;;54868-4088-02
 ;;9002226.02101,"872,54868-4331-00 ",.01)
 ;;54868-4331-00
 ;;9002226.02101,"872,54868-4331-00 ",.02)
 ;;54868-4331-00
 ;;9002226.02101,"872,54868-4331-01 ",.01)
 ;;54868-4331-01
 ;;9002226.02101,"872,54868-4331-01 ",.02)
 ;;54868-4331-01
 ;;9002226.02101,"872,54868-4331-02 ",.01)
 ;;54868-4331-02
 ;;9002226.02101,"872,54868-4331-02 ",.02)
 ;;54868-4331-02
 ;;9002226.02101,"872,54868-4331-03 ",.01)
 ;;54868-4331-03
 ;;9002226.02101,"872,54868-4331-03 ",.02)
 ;;54868-4331-03
 ;;9002226.02101,"872,54868-4332-00 ",.01)
 ;;54868-4332-00
 ;;9002226.02101,"872,54868-4332-00 ",.02)
 ;;54868-4332-00
 ;;9002226.02101,"872,54868-4332-01 ",.01)
 ;;54868-4332-01
 ;;9002226.02101,"872,54868-4332-01 ",.02)
 ;;54868-4332-01
 ;;9002226.02101,"872,54868-4332-02 ",.01)
 ;;54868-4332-02
 ;;9002226.02101,"872,54868-4332-02 ",.02)
 ;;54868-4332-02
 ;;9002226.02101,"872,54868-4357-00 ",.01)
 ;;54868-4357-00
 ;;9002226.02101,"872,54868-4357-00 ",.02)
 ;;54868-4357-00
 ;;9002226.02101,"872,54868-4357-01 ",.01)
 ;;54868-4357-01
 ;;9002226.02101,"872,54868-4357-01 ",.02)
 ;;54868-4357-01
 ;;9002226.02101,"872,54868-4357-02 ",.01)
 ;;54868-4357-02
 ;;9002226.02101,"872,54868-4357-02 ",.02)
 ;;54868-4357-02
 ;;9002226.02101,"872,54868-4357-03 ",.01)
 ;;54868-4357-03
 ;;9002226.02101,"872,54868-4357-03 ",.02)
 ;;54868-4357-03
 ;;9002226.02101,"872,54868-4358-00 ",.01)
 ;;54868-4358-00
 ;;9002226.02101,"872,54868-4358-00 ",.02)
 ;;54868-4358-00
 ;;9002226.02101,"872,54868-4358-01 ",.01)
 ;;54868-4358-01
 ;;9002226.02101,"872,54868-4358-01 ",.02)
 ;;54868-4358-01
 ;;9002226.02101,"872,54868-4358-02 ",.01)
 ;;54868-4358-02
 ;;9002226.02101,"872,54868-4358-02 ",.02)
 ;;54868-4358-02
 ;;9002226.02101,"872,54868-4358-03 ",.01)
 ;;54868-4358-03
 ;;9002226.02101,"872,54868-4358-03 ",.02)
 ;;54868-4358-03
 ;;9002226.02101,"872,54868-4552-00 ",.01)
 ;;54868-4552-00