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

BGP06A25.m

Go to the documentation of this file.
BGP06A25 ;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,"974,00182-1537-10 ",.01)
 ;;00182-1537-10
 ;;9002226.02101,"974,00182-1537-10 ",.02)
 ;;00182-1537-10
 ;;9002226.02101,"974,00182-1559-40 ",.01)
 ;;00182-1559-40
 ;;9002226.02101,"974,00182-1559-40 ",.02)
 ;;00182-1559-40
 ;;9002226.02101,"974,00182-1560-40 ",.01)
 ;;00182-1560-40
 ;;9002226.02101,"974,00182-1560-40 ",.02)
 ;;00182-1560-40
 ;;9002226.02101,"974,00182-1773-40 ",.01)
 ;;00182-1773-40
 ;;9002226.02101,"974,00182-1773-40 ",.02)
 ;;00182-1773-40
 ;;9002226.02101,"974,00182-1886-01 ",.01)
 ;;00182-1886-01
 ;;9002226.02101,"974,00182-1886-01 ",.02)
 ;;00182-1886-01
 ;;9002226.02101,"974,00182-1887-01 ",.01)
 ;;00182-1887-01
 ;;9002226.02101,"974,00182-1887-01 ",.02)
 ;;00182-1887-01
 ;;9002226.02101,"974,00182-1962-01 ",.01)
 ;;00182-1962-01
 ;;9002226.02101,"974,00182-1962-01 ",.02)
 ;;00182-1962-01
 ;;9002226.02101,"974,00182-1962-05 ",.01)
 ;;00182-1962-05
 ;;9002226.02101,"974,00182-1962-05 ",.02)
 ;;00182-1962-05
 ;;9002226.02101,"974,00182-2606-01 ",.01)
 ;;00182-2606-01
 ;;9002226.02101,"974,00182-2606-01 ",.02)
 ;;00182-2606-01
 ;;9002226.02101,"974,00182-2606-05 ",.01)
 ;;00182-2606-05
 ;;9002226.02101,"974,00182-2606-05 ",.02)
 ;;00182-2606-05
 ;;9002226.02101,"974,00182-2606-28 ",.01)
 ;;00182-2606-28
 ;;9002226.02101,"974,00182-2606-28 ",.02)
 ;;00182-2606-28
 ;;9002226.02101,"974,00182-2607-01 ",.01)
 ;;00182-2607-01
 ;;9002226.02101,"974,00182-2607-01 ",.02)
 ;;00182-2607-01
 ;;9002226.02101,"974,00182-2607-05 ",.01)
 ;;00182-2607-05
 ;;9002226.02101,"974,00182-2607-05 ",.02)
 ;;00182-2607-05
 ;;9002226.02101,"974,00182-2607-28 ",.01)
 ;;00182-2607-28
 ;;9002226.02101,"974,00182-2607-28 ",.02)
 ;;00182-2607-28
 ;;9002226.02101,"974,00182-2631-01 ",.01)
 ;;00182-2631-01
 ;;9002226.02101,"974,00182-2631-01 ",.02)
 ;;00182-2631-01
 ;;9002226.02101,"974,00182-2689-15 ",.01)
 ;;00182-2689-15
 ;;9002226.02101,"974,00182-2689-15 ",.02)
 ;;00182-2689-15
 ;;9002226.02101,"974,00182-2689-26 ",.01)
 ;;00182-2689-26
 ;;9002226.02101,"974,00182-2689-26 ",.02)
 ;;00182-2689-26
 ;;9002226.02101,"974,00182-2690-15 ",.01)
 ;;00182-2690-15
 ;;9002226.02101,"974,00182-2690-15 ",.02)
 ;;00182-2690-15
 ;;9002226.02101,"974,00182-2690-26 ",.01)
 ;;00182-2690-26
 ;;9002226.02101,"974,00182-2690-26 ",.02)
 ;;00182-2690-26
 ;;9002226.02101,"974,00182-2721-01 ",.01)
 ;;00182-2721-01
 ;;9002226.02101,"974,00182-2721-01 ",.02)
 ;;00182-2721-01
 ;;9002226.02101,"974,00182-2721-36 ",.01)
 ;;00182-2721-36
 ;;9002226.02101,"974,00182-2721-36 ",.02)
 ;;00182-2721-36
 ;;9002226.02101,"974,00182-2722-19 ",.01)
 ;;00182-2722-19
 ;;9002226.02101,"974,00182-2722-19 ",.02)
 ;;00182-2722-19
 ;;9002226.02101,"974,00182-3045-70 ",.01)
 ;;00182-3045-70
 ;;9002226.02101,"974,00182-3045-70 ",.02)
 ;;00182-3045-70
 ;;9002226.02101,"974,00182-3047-70 ",.01)
 ;;00182-3047-70
 ;;9002226.02101,"974,00182-3047-70 ",.02)
 ;;00182-3047-70
 ;;9002226.02101,"974,00182-3048-70 ",.01)
 ;;00182-3048-70
 ;;9002226.02101,"974,00182-3048-70 ",.02)
 ;;00182-3048-70
 ;;9002226.02101,"974,00182-7014-70 ",.01)
 ;;00182-7014-70
 ;;9002226.02101,"974,00182-7014-70 ",.02)
 ;;00182-7014-70
 ;;9002226.02101,"974,00182-7015-70 ",.01)
 ;;00182-7015-70
 ;;9002226.02101,"974,00182-7015-70 ",.02)
 ;;00182-7015-70
 ;;9002226.02101,"974,00182-7020-70 ",.01)
 ;;00182-7020-70
 ;;9002226.02101,"974,00182-7020-70 ",.02)
 ;;00182-7020-70
 ;;9002226.02101,"974,00182-7020-73 ",.01)
 ;;00182-7020-73
 ;;9002226.02101,"974,00182-7020-73 ",.02)
 ;;00182-7020-73
 ;;9002226.02101,"974,00182-7021-70 ",.01)
 ;;00182-7021-70
 ;;9002226.02101,"974,00182-7021-70 ",.02)
 ;;00182-7021-70
 ;;9002226.02101,"974,00182-7086-69 ",.01)
 ;;00182-7086-69
 ;;9002226.02101,"974,00182-7086-69 ",.02)
 ;;00182-7086-69
 ;;9002226.02101,"974,00182-7086-72 ",.01)
 ;;00182-7086-72
 ;;9002226.02101,"974,00182-7086-72 ",.02)
 ;;00182-7086-72
 ;;9002226.02101,"974,00182-7087-67 ",.01)
 ;;00182-7087-67
 ;;9002226.02101,"974,00182-7087-67 ",.02)
 ;;00182-7087-67
 ;;9002226.02101,"974,00182-7087-70 ",.01)
 ;;00182-7087-70
 ;;9002226.02101,"974,00182-7087-70 ",.02)
 ;;00182-7087-70
 ;;9002226.02101,"974,00182-7088-69 ",.01)
 ;;00182-7088-69
 ;;9002226.02101,"974,00182-7088-69 ",.02)
 ;;00182-7088-69
 ;;9002226.02101,"974,00182-7088-72 ",.01)
 ;;00182-7088-72
 ;;9002226.02101,"974,00182-7088-72 ",.02)
 ;;00182-7088-72
 ;;9002226.02101,"974,00182-7089-67 ",.01)
 ;;00182-7089-67
 ;;9002226.02101,"974,00182-7089-67 ",.02)
 ;;00182-7089-67
 ;;9002226.02101,"974,00182-7089-70 ",.01)
 ;;00182-7089-70
 ;;9002226.02101,"974,00182-7089-70 ",.02)
 ;;00182-7089-70
 ;;9002226.02101,"974,00185-0111-05 ",.01)
 ;;00185-0111-05
 ;;9002226.02101,"974,00185-0111-05 ",.02)
 ;;00185-0111-05
 ;;9002226.02101,"974,00185-0112-01 ",.01)
 ;;00185-0112-01
 ;;9002226.02101,"974,00185-0112-01 ",.02)
 ;;00185-0112-01
 ;;9002226.02101,"974,00185-0112-05 ",.01)
 ;;00185-0112-05
 ;;9002226.02101,"974,00185-0112-05 ",.02)
 ;;00185-0112-05
 ;;9002226.02101,"974,00185-0442-01 ",.01)
 ;;00185-0442-01
 ;;9002226.02101,"974,00185-0442-01 ",.02)
 ;;00185-0442-01
 ;;9002226.02101,"974,00185-0451-01 ",.01)
 ;;00185-0451-01
 ;;9002226.02101,"974,00185-0451-01 ",.02)
 ;;00185-0451-01
 ;;9002226.02101,"974,00185-0470-53 ",.01)
 ;;00185-0470-53
 ;;9002226.02101,"974,00185-0470-53 ",.02)
 ;;00185-0470-53
 ;;9002226.02101,"974,00185-0670-01 ",.01)
 ;;00185-0670-01
 ;;9002226.02101,"974,00185-0670-01 ",.02)
 ;;00185-0670-01
 ;;9002226.02101,"974,00185-0670-10 ",.01)
 ;;00185-0670-10
 ;;9002226.02101,"974,00185-0670-10 ",.02)
 ;;00185-0670-10
 ;;9002226.02101,"974,00185-0805-01 ",.01)
 ;;00185-0805-01
 ;;9002226.02101,"974,00185-0805-01 ",.02)
 ;;00185-0805-01
 ;;9002226.02101,"974,00185-0810-01 ",.01)
 ;;00185-0810-01
 ;;9002226.02101,"974,00185-0810-01 ",.02)
 ;;00185-0810-01
 ;;9002226.02101,"974,00185-0810-52 ",.01)
 ;;00185-0810-52
 ;;9002226.02101,"974,00185-0810-52 ",.02)
 ;;00185-0810-52
 ;;9002226.02101,"974,00185-0810-53 ",.01)
 ;;00185-0810-53
 ;;9002226.02101,"974,00185-0810-53 ",.02)
 ;;00185-0810-53
 ;;9002226.02101,"974,00185-0814-60 ",.01)
 ;;00185-0814-60
 ;;9002226.02101,"974,00185-0814-60 ",.02)
 ;;00185-0814-60
 ;;9002226.02101,"974,00185-7203-70 ",.01)
 ;;00185-7203-70
 ;;9002226.02101,"974,00185-7203-70 ",.02)
 ;;00185-7203-70
 ;;9002226.02101,"974,00185-7206-70 ",.01)
 ;;00185-7206-70
 ;;9002226.02101,"974,00185-7206-70 ",.02)
 ;;00185-7206-70
 ;;9002226.02101,"974,00185-7209-69 ",.01)
 ;;00185-7209-69
 ;;9002226.02101,"974,00185-7209-69 ",.02)
 ;;00185-7209-69
 ;;9002226.02101,"974,00185-7212-68 ",.01)
 ;;00185-7212-68
 ;;9002226.02101,"974,00185-7212-68 ",.02)
 ;;00185-7212-68
 ;;9002226.02101,"974,00205-5305-94 ",.01)
 ;;00205-5305-94
 ;;9002226.02101,"974,00205-5305-94 ",.02)
 ;;00205-5305-94
 ;;9002226.02101,"974,00209-0100-22 ",.01)
 ;;00209-0100-22
 ;;9002226.02101,"974,00209-0100-22 ",.02)
 ;;00209-0100-22
 ;;9002226.02101,"974,00209-0150-22 ",.01)
 ;;00209-0150-22
 ;;9002226.02101,"974,00209-0150-22 ",.02)
 ;;00209-0150-22
 ;;9002226.02101,"974,00209-0250-22 ",.01)
 ;;00209-0250-22
 ;;9002226.02101,"974,00209-0250-22 ",.02)
 ;;00209-0250-22
 ;;9002226.02101,"974,00209-0350-22 ",.01)
 ;;00209-0350-22
 ;;9002226.02101,"974,00209-0350-22 ",.02)
 ;;00209-0350-22
 ;;9002226.02101,"974,00209-0450-52 ",.01)
 ;;00209-0450-52
 ;;9002226.02101,"974,00209-0450-52 ",.02)
 ;;00209-0450-52
 ;;9002226.02101,"974,00209-0800-22 ",.01)
 ;;00209-0800-22
 ;;9002226.02101,"974,00209-0800-22 ",.02)
 ;;00209-0800-22
 ;;9002226.02101,"974,00209-0900-24 ",.01)
 ;;00209-0900-24
 ;;9002226.02101,"974,00209-0900-24 ",.02)
 ;;00209-0900-24
 ;;9002226.02101,"974,00209-8570-22 ",.01)
 ;;00209-8570-22
 ;;9002226.02101,"974,00209-8570-22 ",.02)
 ;;00209-8570-22
 ;;9002226.02101,"974,00209-8574-22 ",.01)
 ;;00209-8574-22
 ;;9002226.02101,"974,00209-8574-22 ",.02)
 ;;00209-8574-22
 ;;9002226.02101,"974,00209-8578-22 ",.01)
 ;;00209-8578-22
 ;;9002226.02101,"974,00209-8578-22 ",.02)
 ;;00209-8578-22
 ;;9002226.02101,"974,00209-8580-22 ",.01)
 ;;00209-8580-22
 ;;9002226.02101,"974,00209-8580-22 ",.02)
 ;;00209-8580-22
 ;;9002226.02101,"974,00209-8586-22 ",.01)
 ;;00209-8586-22
 ;;9002226.02101,"974,00209-8586-22 ",.02)
 ;;00209-8586-22
 ;;9002226.02101,"974,00223-0581-01 ",.01)
 ;;00223-0581-01
 ;;9002226.02101,"974,00223-0581-01 ",.02)
 ;;00223-0581-01
 ;;9002226.02101,"974,00223-0581-05 ",.01)
 ;;00223-0581-05
 ;;9002226.02101,"974,00223-0581-05 ",.02)
 ;;00223-0581-05
 ;;9002226.02101,"974,00223-0582-01 ",.01)
 ;;00223-0582-01
 ;;9002226.02101,"974,00223-0582-01 ",.02)
 ;;00223-0582-01
 ;;9002226.02101,"974,00223-0582-05 ",.01)
 ;;00223-0582-05
 ;;9002226.02101,"974,00223-0582-05 ",.02)
 ;;00223-0582-05
 ;;9002226.02101,"974,00223-0583-01 ",.01)
 ;;00223-0583-01
 ;;9002226.02101,"974,00223-0583-01 ",.02)
 ;;00223-0583-01
 ;;9002226.02101,"974,00223-0583-05 ",.01)
 ;;00223-0583-05
 ;;9002226.02101,"974,00223-0583-05 ",.02)
 ;;00223-0583-05
 ;;9002226.02101,"974,00223-0584-01 ",.01)
 ;;00223-0584-01
 ;;9002226.02101,"974,00223-0584-01 ",.02)
 ;;00223-0584-01
 ;;9002226.02101,"974,00223-0584-05 ",.01)
 ;;00223-0584-05
 ;;9002226.02101,"974,00223-0584-05 ",.02)
 ;;00223-0584-05
 ;;9002226.02101,"974,00223-0611-01 ",.01)
 ;;00223-0611-01
 ;;9002226.02101,"974,00223-0611-01 ",.02)
 ;;00223-0611-01
 ;;9002226.02101,"974,00223-0612-01 ",.01)
 ;;00223-0612-01
 ;;9002226.02101,"974,00223-0612-01 ",.02)
 ;;00223-0612-01
 ;;9002226.02101,"974,00223-0871-00 ",.01)
 ;;00223-0871-00
 ;;9002226.02101,"974,00223-0871-00 ",.02)
 ;;00223-0871-00
 ;;9002226.02101,"974,00223-0871-01 ",.01)
 ;;00223-0871-01
 ;;9002226.02101,"974,00223-0871-01 ",.02)
 ;;00223-0871-01
 ;;9002226.02101,"974,00223-0872-05 ",.01)
 ;;00223-0872-05
 ;;9002226.02101,"974,00223-0872-05 ",.02)
 ;;00223-0872-05
 ;;9002226.02101,"974,00223-0872-50 ",.01)
 ;;00223-0872-50
 ;;9002226.02101,"974,00223-0872-50 ",.02)
 ;;00223-0872-50
 ;;9002226.02101,"974,00223-0912-01 ",.01)
 ;;00223-0912-01
 ;;9002226.02101,"974,00223-0912-01 ",.02)
 ;;00223-0912-01
 ;;9002226.02101,"974,00223-0912-05 ",.01)
 ;;00223-0912-05
 ;;9002226.02101,"974,00223-0912-05 ",.02)
 ;;00223-0912-05
 ;;9002226.02101,"974,00223-0914-01 ",.01)
 ;;00223-0914-01
 ;;9002226.02101,"974,00223-0914-01 ",.02)
 ;;00223-0914-01
 ;;9002226.02101,"974,00223-0914-05 ",.01)
 ;;00223-0914-05
 ;;9002226.02101,"974,00223-0914-05 ",.02)
 ;;00223-0914-05
 ;;9002226.02101,"974,00223-1655-01 ",.01)
 ;;00223-1655-01
 ;;9002226.02101,"974,00223-1655-01 ",.02)
 ;;00223-1655-01
 ;;9002226.02101,"974,00223-1655-02 ",.01)
 ;;00223-1655-02
 ;;9002226.02101,"974,00223-1655-02 ",.02)
 ;;00223-1655-02
 ;;9002226.02101,"974,00223-1656-01 ",.01)
 ;;00223-1656-01
 ;;9002226.02101,"974,00223-1656-01 ",.02)
 ;;00223-1656-01
 ;;9002226.02101,"974,00223-1656-02 ",.01)
 ;;00223-1656-02
 ;;9002226.02101,"974,00223-1656-02 ",.02)
 ;;00223-1656-02
 ;;9002226.02101,"974,00223-1980-01 ",.01)
 ;;00223-1980-01
 ;;9002226.02101,"974,00223-1980-01 ",.02)
 ;;00223-1980-01
 ;;9002226.02101,"974,00223-1980-02 ",.01)
 ;;00223-1980-02
 ;;9002226.02101,"974,00223-1980-02 ",.02)
 ;;00223-1980-02
 ;;9002226.02101,"974,00223-6140-01 ",.01)
 ;;00223-6140-01
 ;;9002226.02101,"974,00223-6140-01 ",.02)
 ;;00223-6140-01
 ;;9002226.02101,"974,00223-6141-01 ",.01)
 ;;00223-6141-01
 ;;9002226.02101,"974,00223-6141-01 ",.02)
 ;;00223-6141-01
 ;;9002226.02101,"974,00223-6142-01 ",.01)
 ;;00223-6142-01
 ;;9002226.02101,"974,00223-6142-01 ",.02)
 ;;00223-6142-01
 ;;9002226.02101,"974,00223-6142-10 ",.01)
 ;;00223-6142-10
 ;;9002226.02101,"974,00223-6142-10 ",.02)
 ;;00223-6142-10
 ;;9002226.02101,"974,00223-6143-01 ",.01)
 ;;00223-6143-01
 ;;9002226.02101,"974,00223-6143-01 ",.02)
 ;;00223-6143-01
 ;;9002226.02101,"974,00223-6143-10 ",.01)
 ;;00223-6143-10
 ;;9002226.02101,"974,00223-6143-10 ",.02)
 ;;00223-6143-10
 ;;9002226.02101,"974,00228-2194-05 ",.01)
 ;;00228-2194-05
 ;;9002226.02101,"974,00228-2194-05 ",.02)
 ;;00228-2194-05
 ;;9002226.02101,"974,00228-2404-96 ",.01)
 ;;00228-2404-96
 ;;9002226.02101,"974,00228-2404-96 ",.02)
 ;;00228-2404-96
 ;;9002226.02101,"974,00228-2406-10 ",.01)
 ;;00228-2406-10
 ;;9002226.02101,"974,00228-2406-10 ",.02)
 ;;00228-2406-10
 ;;9002226.02101,"974,00228-2406-50 ",.01)
 ;;00228-2406-50
 ;;9002226.02101,"974,00228-2406-50 ",.02)
 ;;00228-2406-50
 ;;9002226.02101,"974,00228-2598-07 ",.01)
 ;;00228-2598-07
 ;;9002226.02101,"974,00228-2598-07 ",.02)
 ;;00228-2598-07
 ;;9002226.02101,"974,00228-2639-11 ",.01)
 ;;00228-2639-11
 ;;9002226.02101,"974,00228-2639-11 ",.02)
 ;;00228-2639-11
 ;;9002226.02101,"974,00228-2640-11 ",.01)
 ;;00228-2640-11
 ;;9002226.02101,"974,00228-2640-11 ",.02)
 ;;00228-2640-11
 ;;9002226.02101,"974,00228-2640-25 ",.01)
 ;;00228-2640-25
 ;;9002226.02101,"974,00228-2640-25 ",.02)
 ;;00228-2640-25
 ;;9002226.02101,"974,00228-2688-11 ",.01)
 ;;00228-2688-11
 ;;9002226.02101,"974,00228-2688-11 ",.02)
 ;;00228-2688-11
 ;;9002226.02101,"974,00228-2688-51 ",.01)
 ;;00228-2688-51
 ;;9002226.02101,"974,00228-2688-51 ",.02)
 ;;00228-2688-51
 ;;9002226.02101,"974,00228-2689-11 ",.01)
 ;;00228-2689-11
 ;;9002226.02101,"974,00228-2689-11 ",.02)
 ;;00228-2689-11
 ;;9002226.02101,"974,00228-2689-51 ",.01)
 ;;00228-2689-51
 ;;9002226.02101,"974,00228-2689-51 ",.02)
 ;;00228-2689-51
 ;;9002226.02101,"974,00247-0001-00 ",.01)
 ;;00247-0001-00
 ;;9002226.02101,"974,00247-0001-00 ",.02)
 ;;00247-0001-00