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

BGP0ZD34.m

Go to the documentation of this file.
BGP0ZD34 ;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,"976,60429-0133-12 ",.02)
 ;;60429-0133-12
 ;;9002226.02101,"976,60429-0133-18 ",.01)
 ;;60429-0133-18
 ;;9002226.02101,"976,60429-0133-18 ",.02)
 ;;60429-0133-18
 ;;9002226.02101,"976,60429-0133-20 ",.01)
 ;;60429-0133-20
 ;;9002226.02101,"976,60429-0133-20 ",.02)
 ;;60429-0133-20
 ;;9002226.02101,"976,60429-0133-30 ",.01)
 ;;60429-0133-30
 ;;9002226.02101,"976,60429-0133-30 ",.02)
 ;;60429-0133-30
 ;;9002226.02101,"976,60429-0133-60 ",.01)
 ;;60429-0133-60
 ;;9002226.02101,"976,60429-0133-60 ",.02)
 ;;60429-0133-60
 ;;9002226.02101,"976,60429-0134-60 ",.01)
 ;;60429-0134-60
 ;;9002226.02101,"976,60429-0134-60 ",.02)
 ;;60429-0134-60
 ;;9002226.02101,"976,60429-0135-18 ",.01)
 ;;60429-0135-18
 ;;9002226.02101,"976,60429-0135-18 ",.02)
 ;;60429-0135-18
 ;;9002226.02101,"976,60429-0135-20 ",.01)
 ;;60429-0135-20
 ;;9002226.02101,"976,60429-0135-20 ",.02)
 ;;60429-0135-20
 ;;9002226.02101,"976,60505-0039-01 ",.01)
 ;;60505-0039-01
 ;;9002226.02101,"976,60505-0039-01 ",.02)
 ;;60505-0039-01
 ;;9002226.02101,"976,60505-0040-01 ",.01)
 ;;60505-0040-01
 ;;9002226.02101,"976,60505-0040-01 ",.02)
 ;;60505-0040-01
 ;;9002226.02101,"976,60505-0041-01 ",.01)
 ;;60505-0041-01
 ;;9002226.02101,"976,60505-0041-01 ",.02)
 ;;60505-0041-01
 ;;9002226.02101,"976,60505-0102-01 ",.01)
 ;;60505-0102-01
 ;;9002226.02101,"976,60505-0102-01 ",.02)
 ;;60505-0102-01
 ;;9002226.02101,"976,60505-0176-00 ",.01)
 ;;60505-0176-00
 ;;9002226.02101,"976,60505-0176-00 ",.02)
 ;;60505-0176-00
 ;;9002226.02101,"976,60505-0176-01 ",.01)
 ;;60505-0176-01
 ;;9002226.02101,"976,60505-0176-01 ",.02)
 ;;60505-0176-01
 ;;9002226.02101,"976,60505-0725-01 ",.01)
 ;;60505-0725-01
 ;;9002226.02101,"976,60505-0725-01 ",.02)
 ;;60505-0725-01
 ;;9002226.02101,"976,60505-0726-01 ",.01)
 ;;60505-0726-01
 ;;9002226.02101,"976,60505-0726-01 ",.02)
 ;;60505-0726-01
 ;;9002226.02101,"976,60505-0726-02 ",.01)
 ;;60505-0726-02
 ;;9002226.02101,"976,60505-0726-02 ",.02)
 ;;60505-0726-02
 ;;9002226.02101,"976,60760-0015-60 ",.01)
 ;;60760-0015-60
 ;;9002226.02101,"976,60760-0015-60 ",.02)
 ;;60760-0015-60
 ;;9002226.02101,"976,60760-0020-20 ",.01)
 ;;60760-0020-20
 ;;9002226.02101,"976,60760-0020-20 ",.02)
 ;;60760-0020-20
 ;;9002226.02101,"976,60760-0020-30 ",.01)
 ;;60760-0020-30
 ;;9002226.02101,"976,60760-0020-30 ",.02)
 ;;60760-0020-30
 ;;9002226.02101,"976,60760-0030-30 ",.01)
 ;;60760-0030-30
 ;;9002226.02101,"976,60760-0030-30 ",.02)
 ;;60760-0030-30
 ;;9002226.02101,"976,60760-0076-00 ",.01)
 ;;60760-0076-00
 ;;9002226.02101,"976,60760-0076-00 ",.02)
 ;;60760-0076-00
 ;;9002226.02101,"976,60760-0076-40 ",.01)
 ;;60760-0076-40
 ;;9002226.02101,"976,60760-0076-40 ",.02)
 ;;60760-0076-40
 ;;9002226.02101,"976,60760-0076-60 ",.01)
 ;;60760-0076-60
 ;;9002226.02101,"976,60760-0076-60 ",.02)
 ;;60760-0076-60
 ;;9002226.02101,"976,60760-0135-00 ",.01)
 ;;60760-0135-00
 ;;9002226.02101,"976,60760-0135-00 ",.02)
 ;;60760-0135-00
 ;;9002226.02101,"976,60760-0135-30 ",.01)
 ;;60760-0135-30
 ;;9002226.02101,"976,60760-0135-30 ",.02)
 ;;60760-0135-30
 ;;9002226.02101,"976,60760-0135-60 ",.01)
 ;;60760-0135-60
 ;;9002226.02101,"976,60760-0135-60 ",.02)
 ;;60760-0135-60
 ;;9002226.02101,"976,60760-0140-20 ",.01)
 ;;60760-0140-20
 ;;9002226.02101,"976,60760-0140-20 ",.02)
 ;;60760-0140-20
 ;;9002226.02101,"976,60760-0140-60 ",.01)
 ;;60760-0140-60
 ;;9002226.02101,"976,60760-0140-60 ",.02)
 ;;60760-0140-60
 ;;9002226.02101,"976,60760-0314-20 ",.01)
 ;;60760-0314-20
 ;;9002226.02101,"976,60760-0314-20 ",.02)
 ;;60760-0314-20
 ;;9002226.02101,"976,60760-0382-20 ",.01)
 ;;60760-0382-20
 ;;9002226.02101,"976,60760-0382-20 ",.02)
 ;;60760-0382-20
 ;;9002226.02101,"976,60760-0382-30 ",.01)
 ;;60760-0382-30
 ;;9002226.02101,"976,60760-0382-30 ",.02)
 ;;60760-0382-30
 ;;9002226.02101,"976,60760-0382-60 ",.01)
 ;;60760-0382-60
 ;;9002226.02101,"976,60760-0382-60 ",.02)
 ;;60760-0382-60
 ;;9002226.02101,"976,60760-0460-20 ",.01)
 ;;60760-0460-20
 ;;9002226.02101,"976,60760-0460-20 ",.02)
 ;;60760-0460-20
 ;;9002226.02101,"976,60760-0460-30 ",.01)
 ;;60760-0460-30
 ;;9002226.02101,"976,60760-0460-30 ",.02)
 ;;60760-0460-30
 ;;9002226.02101,"976,60760-0460-60 ",.01)
 ;;60760-0460-60
 ;;9002226.02101,"976,60760-0460-60 ",.02)
 ;;60760-0460-60
 ;;9002226.02101,"976,60760-0525-20 ",.01)
 ;;60760-0525-20
 ;;9002226.02101,"976,60760-0525-20 ",.02)
 ;;60760-0525-20
 ;;9002226.02101,"976,60760-0525-30 ",.01)
 ;;60760-0525-30
 ;;9002226.02101,"976,60760-0525-30 ",.02)
 ;;60760-0525-30
 ;;9002226.02101,"976,60760-0537-20 ",.01)
 ;;60760-0537-20
 ;;9002226.02101,"976,60760-0537-20 ",.02)
 ;;60760-0537-20
 ;;9002226.02101,"976,60760-0537-60 ",.01)
 ;;60760-0537-60
 ;;9002226.02101,"976,60760-0537-60 ",.02)
 ;;60760-0537-60
 ;;9002226.02101,"976,60760-0552-30 ",.01)
 ;;60760-0552-30
 ;;9002226.02101,"976,60760-0552-30 ",.02)
 ;;60760-0552-30
 ;;9002226.02101,"976,60760-0552-60 ",.01)
 ;;60760-0552-60
 ;;9002226.02101,"976,60760-0552-60 ",.02)
 ;;60760-0552-60
 ;;9002226.02101,"976,60760-0789-20 ",.01)
 ;;60760-0789-20
 ;;9002226.02101,"976,60760-0789-20 ",.02)
 ;;60760-0789-20
 ;;9002226.02101,"976,60760-0789-60 ",.01)
 ;;60760-0789-60
 ;;9002226.02101,"976,60760-0789-60 ",.02)
 ;;60760-0789-60
 ;;9002226.02101,"976,61392-0042-30 ",.01)
 ;;61392-0042-30
 ;;9002226.02101,"976,61392-0042-30 ",.02)
 ;;61392-0042-30
 ;;9002226.02101,"976,61392-0042-31 ",.01)
 ;;61392-0042-31
 ;;9002226.02101,"976,61392-0042-31 ",.02)
 ;;61392-0042-31
 ;;9002226.02101,"976,61392-0042-32 ",.01)
 ;;61392-0042-32
 ;;9002226.02101,"976,61392-0042-32 ",.02)
 ;;61392-0042-32
 ;;9002226.02101,"976,61392-0042-39 ",.01)
 ;;61392-0042-39
 ;;9002226.02101,"976,61392-0042-39 ",.02)
 ;;61392-0042-39
 ;;9002226.02101,"976,61392-0042-45 ",.01)
 ;;61392-0042-45
 ;;9002226.02101,"976,61392-0042-45 ",.02)
 ;;61392-0042-45
 ;;9002226.02101,"976,61392-0042-51 ",.01)
 ;;61392-0042-51
 ;;9002226.02101,"976,61392-0042-51 ",.02)
 ;;61392-0042-51
 ;;9002226.02101,"976,61392-0042-54 ",.01)
 ;;61392-0042-54
 ;;9002226.02101,"976,61392-0042-54 ",.02)
 ;;61392-0042-54
 ;;9002226.02101,"976,61392-0042-56 ",.01)
 ;;61392-0042-56
 ;;9002226.02101,"976,61392-0042-56 ",.02)
 ;;61392-0042-56
 ;;9002226.02101,"976,61392-0042-60 ",.01)
 ;;61392-0042-60
 ;;9002226.02101,"976,61392-0042-60 ",.02)
 ;;61392-0042-60
 ;;9002226.02101,"976,61392-0042-90 ",.01)
 ;;61392-0042-90
 ;;9002226.02101,"976,61392-0042-90 ",.02)
 ;;61392-0042-90
 ;;9002226.02101,"976,61392-0042-91 ",.01)
 ;;61392-0042-91
 ;;9002226.02101,"976,61392-0042-91 ",.02)
 ;;61392-0042-91
 ;;9002226.02101,"976,61392-0062-30 ",.01)
 ;;61392-0062-30
 ;;9002226.02101,"976,61392-0062-30 ",.02)
 ;;61392-0062-30
 ;;9002226.02101,"976,61392-0062-31 ",.01)
 ;;61392-0062-31
 ;;9002226.02101,"976,61392-0062-31 ",.02)
 ;;61392-0062-31
 ;;9002226.02101,"976,61392-0062-32 ",.01)
 ;;61392-0062-32
 ;;9002226.02101,"976,61392-0062-32 ",.02)
 ;;61392-0062-32
 ;;9002226.02101,"976,61392-0062-39 ",.01)
 ;;61392-0062-39
 ;;9002226.02101,"976,61392-0062-39 ",.02)
 ;;61392-0062-39
 ;;9002226.02101,"976,61392-0062-45 ",.01)
 ;;61392-0062-45
 ;;9002226.02101,"976,61392-0062-45 ",.02)
 ;;61392-0062-45
 ;;9002226.02101,"976,61392-0062-51 ",.01)
 ;;61392-0062-51
 ;;9002226.02101,"976,61392-0062-51 ",.02)
 ;;61392-0062-51
 ;;9002226.02101,"976,61392-0062-54 ",.01)
 ;;61392-0062-54
 ;;9002226.02101,"976,61392-0062-54 ",.02)
 ;;61392-0062-54
 ;;9002226.02101,"976,61392-0062-60 ",.01)
 ;;61392-0062-60
 ;;9002226.02101,"976,61392-0062-60 ",.02)
 ;;61392-0062-60
 ;;9002226.02101,"976,61392-0062-90 ",.01)
 ;;61392-0062-90
 ;;9002226.02101,"976,61392-0062-90 ",.02)
 ;;61392-0062-90
 ;;9002226.02101,"976,61392-0062-91 ",.01)
 ;;61392-0062-91
 ;;9002226.02101,"976,61392-0062-91 ",.02)
 ;;61392-0062-91
 ;;9002226.02101,"976,61392-0289-14 ",.01)
 ;;61392-0289-14
 ;;9002226.02101,"976,61392-0289-14 ",.02)
 ;;61392-0289-14
 ;;9002226.02101,"976,61392-0289-30 ",.01)
 ;;61392-0289-30
 ;;9002226.02101,"976,61392-0289-30 ",.02)
 ;;61392-0289-30
 ;;9002226.02101,"976,61392-0289-31 ",.01)
 ;;61392-0289-31
 ;;9002226.02101,"976,61392-0289-31 ",.02)
 ;;61392-0289-31
 ;;9002226.02101,"976,61392-0289-32 ",.01)
 ;;61392-0289-32
 ;;9002226.02101,"976,61392-0289-32 ",.02)
 ;;61392-0289-32
 ;;9002226.02101,"976,61392-0289-39 ",.01)
 ;;61392-0289-39
 ;;9002226.02101,"976,61392-0289-39 ",.02)
 ;;61392-0289-39
 ;;9002226.02101,"976,61392-0289-45 ",.01)
 ;;61392-0289-45
 ;;9002226.02101,"976,61392-0289-45 ",.02)
 ;;61392-0289-45
 ;;9002226.02101,"976,61392-0289-51 ",.01)
 ;;61392-0289-51
 ;;9002226.02101,"976,61392-0289-51 ",.02)
 ;;61392-0289-51
 ;;9002226.02101,"976,61392-0289-54 ",.01)
 ;;61392-0289-54
 ;;9002226.02101,"976,61392-0289-54 ",.02)
 ;;61392-0289-54
 ;;9002226.02101,"976,61392-0289-56 ",.01)
 ;;61392-0289-56
 ;;9002226.02101,"976,61392-0289-56 ",.02)
 ;;61392-0289-56
 ;;9002226.02101,"976,61392-0289-60 ",.01)
 ;;61392-0289-60
 ;;9002226.02101,"976,61392-0289-60 ",.02)
 ;;61392-0289-60
 ;;9002226.02101,"976,61392-0289-90 ",.01)
 ;;61392-0289-90
 ;;9002226.02101,"976,61392-0289-90 ",.02)
 ;;61392-0289-90
 ;;9002226.02101,"976,61392-0289-91 ",.01)
 ;;61392-0289-91
 ;;9002226.02101,"976,61392-0289-91 ",.02)
 ;;61392-0289-91
 ;;9002226.02101,"976,61392-0292-14 ",.01)
 ;;61392-0292-14
 ;;9002226.02101,"976,61392-0292-14 ",.02)
 ;;61392-0292-14
 ;;9002226.02101,"976,61392-0292-30 ",.01)
 ;;61392-0292-30
 ;;9002226.02101,"976,61392-0292-30 ",.02)
 ;;61392-0292-30
 ;;9002226.02101,"976,61392-0292-31 ",.01)
 ;;61392-0292-31
 ;;9002226.02101,"976,61392-0292-31 ",.02)
 ;;61392-0292-31
 ;;9002226.02101,"976,61392-0292-32 ",.01)
 ;;61392-0292-32
 ;;9002226.02101,"976,61392-0292-32 ",.02)
 ;;61392-0292-32
 ;;9002226.02101,"976,61392-0292-39 ",.01)
 ;;61392-0292-39
 ;;9002226.02101,"976,61392-0292-39 ",.02)
 ;;61392-0292-39
 ;;9002226.02101,"976,61392-0292-45 ",.01)
 ;;61392-0292-45
 ;;9002226.02101,"976,61392-0292-45 ",.02)
 ;;61392-0292-45
 ;;9002226.02101,"976,61392-0292-51 ",.01)
 ;;61392-0292-51
 ;;9002226.02101,"976,61392-0292-51 ",.02)
 ;;61392-0292-51
 ;;9002226.02101,"976,61392-0292-54 ",.01)
 ;;61392-0292-54
 ;;9002226.02101,"976,61392-0292-54 ",.02)
 ;;61392-0292-54
 ;;9002226.02101,"976,61392-0292-56 ",.01)
 ;;61392-0292-56
 ;;9002226.02101,"976,61392-0292-56 ",.02)
 ;;61392-0292-56
 ;;9002226.02101,"976,61392-0292-60 ",.01)
 ;;61392-0292-60
 ;;9002226.02101,"976,61392-0292-60 ",.02)
 ;;61392-0292-60
 ;;9002226.02101,"976,61392-0292-90 ",.01)
 ;;61392-0292-90
 ;;9002226.02101,"976,61392-0292-90 ",.02)
 ;;61392-0292-90
 ;;9002226.02101,"976,61392-0292-91 ",.01)
 ;;61392-0292-91
 ;;9002226.02101,"976,61392-0292-91 ",.02)
 ;;61392-0292-91
 ;;9002226.02101,"976,61392-0295-20 ",.01)
 ;;61392-0295-20
 ;;9002226.02101,"976,61392-0295-20 ",.02)
 ;;61392-0295-20
 ;;9002226.02101,"976,61392-0295-30 ",.01)
 ;;61392-0295-30
 ;;9002226.02101,"976,61392-0295-30 ",.02)
 ;;61392-0295-30
 ;;9002226.02101,"976,61392-0295-31 ",.01)
 ;;61392-0295-31
 ;;9002226.02101,"976,61392-0295-31 ",.02)
 ;;61392-0295-31
 ;;9002226.02101,"976,61392-0295-32 ",.01)
 ;;61392-0295-32
 ;;9002226.02101,"976,61392-0295-32 ",.02)
 ;;61392-0295-32
 ;;9002226.02101,"976,61392-0295-39 ",.01)
 ;;61392-0295-39
 ;;9002226.02101,"976,61392-0295-39 ",.02)
 ;;61392-0295-39
 ;;9002226.02101,"976,61392-0295-45 ",.01)
 ;;61392-0295-45
 ;;9002226.02101,"976,61392-0295-45 ",.02)
 ;;61392-0295-45
 ;;9002226.02101,"976,61392-0295-51 ",.01)
 ;;61392-0295-51
 ;;9002226.02101,"976,61392-0295-51 ",.02)
 ;;61392-0295-51
 ;;9002226.02101,"976,61392-0295-54 ",.01)
 ;;61392-0295-54
 ;;9002226.02101,"976,61392-0295-54 ",.02)
 ;;61392-0295-54
 ;;9002226.02101,"976,61392-0295-56 ",.01)
 ;;61392-0295-56
 ;;9002226.02101,"976,61392-0295-56 ",.02)
 ;;61392-0295-56
 ;;9002226.02101,"976,61392-0295-60 ",.01)
 ;;61392-0295-60
 ;;9002226.02101,"976,61392-0295-60 ",.02)
 ;;61392-0295-60
 ;;9002226.02101,"976,61392-0295-90 ",.01)
 ;;61392-0295-90
 ;;9002226.02101,"976,61392-0295-90 ",.02)
 ;;61392-0295-90
 ;;9002226.02101,"976,61392-0295-91 ",.01)
 ;;61392-0295-91
 ;;9002226.02101,"976,61392-0295-91 ",.02)
 ;;61392-0295-91
 ;;9002226.02101,"976,61392-0298-30 ",.01)
 ;;61392-0298-30
 ;;9002226.02101,"976,61392-0298-30 ",.02)
 ;;61392-0298-30
 ;;9002226.02101,"976,61392-0298-31 ",.01)
 ;;61392-0298-31
 ;;9002226.02101,"976,61392-0298-31 ",.02)
 ;;61392-0298-31
 ;;9002226.02101,"976,61392-0298-32 ",.01)
 ;;61392-0298-32
 ;;9002226.02101,"976,61392-0298-32 ",.02)
 ;;61392-0298-32
 ;;9002226.02101,"976,61392-0298-39 ",.01)
 ;;61392-0298-39
 ;;9002226.02101,"976,61392-0298-39 ",.02)
 ;;61392-0298-39
 ;;9002226.02101,"976,61392-0298-45 ",.01)
 ;;61392-0298-45
 ;;9002226.02101,"976,61392-0298-45 ",.02)
 ;;61392-0298-45
 ;;9002226.02101,"976,61392-0298-51 ",.01)
 ;;61392-0298-51
 ;;9002226.02101,"976,61392-0298-51 ",.02)
 ;;61392-0298-51
 ;;9002226.02101,"976,61392-0298-54 ",.01)
 ;;61392-0298-54
 ;;9002226.02101,"976,61392-0298-54 ",.02)
 ;;61392-0298-54
 ;;9002226.02101,"976,61392-0298-56 ",.01)
 ;;61392-0298-56
 ;;9002226.02101,"976,61392-0298-56 ",.02)
 ;;61392-0298-56
 ;;9002226.02101,"976,61392-0298-60 ",.01)
 ;;61392-0298-60
 ;;9002226.02101,"976,61392-0298-60 ",.02)
 ;;61392-0298-60
 ;;9002226.02101,"976,61392-0298-90 ",.01)
 ;;61392-0298-90
 ;;9002226.02101,"976,61392-0298-90 ",.02)
 ;;61392-0298-90
 ;;9002226.02101,"976,61392-0298-91 ",.01)
 ;;61392-0298-91