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

BGP0ZD36.m

Go to the documentation of this file.
BGP0ZD36 ;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,62991-1088-02 ",.02)
 ;;62991-1088-02
 ;;9002226.02101,"976,62991-1088-03 ",.01)
 ;;62991-1088-03
 ;;9002226.02101,"976,62991-1088-03 ",.02)
 ;;62991-1088-03
 ;;9002226.02101,"976,62991-1088-04 ",.01)
 ;;62991-1088-04
 ;;9002226.02101,"976,62991-1088-04 ",.02)
 ;;62991-1088-04
 ;;9002226.02101,"976,62991-1088-05 ",.01)
 ;;62991-1088-05
 ;;9002226.02101,"976,62991-1088-05 ",.02)
 ;;62991-1088-05
 ;;9002226.02101,"976,62991-1088-06 ",.01)
 ;;62991-1088-06
 ;;9002226.02101,"976,62991-1088-06 ",.02)
 ;;62991-1088-06
 ;;9002226.02101,"976,62991-1113-01 ",.01)
 ;;62991-1113-01
 ;;9002226.02101,"976,62991-1113-01 ",.02)
 ;;62991-1113-01
 ;;9002226.02101,"976,62991-1113-02 ",.01)
 ;;62991-1113-02
 ;;9002226.02101,"976,62991-1113-02 ",.02)
 ;;62991-1113-02
 ;;9002226.02101,"976,62991-1113-03 ",.01)
 ;;62991-1113-03
 ;;9002226.02101,"976,62991-1113-03 ",.02)
 ;;62991-1113-03
 ;;9002226.02101,"976,62991-1239-01 ",.01)
 ;;62991-1239-01
 ;;9002226.02101,"976,62991-1239-01 ",.02)
 ;;62991-1239-01
 ;;9002226.02101,"976,62991-1239-02 ",.01)
 ;;62991-1239-02
 ;;9002226.02101,"976,62991-1239-02 ",.02)
 ;;62991-1239-02
 ;;9002226.02101,"976,62991-1354-02 ",.01)
 ;;62991-1354-02
 ;;9002226.02101,"976,62991-1354-02 ",.02)
 ;;62991-1354-02
 ;;9002226.02101,"976,62991-2024-01 ",.01)
 ;;62991-2024-01
 ;;9002226.02101,"976,62991-2024-01 ",.02)
 ;;62991-2024-01
 ;;9002226.02101,"976,62991-2024-02 ",.01)
 ;;62991-2024-02
 ;;9002226.02101,"976,62991-2024-02 ",.02)
 ;;62991-2024-02
 ;;9002226.02101,"976,63275-9995-08 ",.01)
 ;;63275-9995-08
 ;;9002226.02101,"976,63275-9995-08 ",.02)
 ;;63275-9995-08
 ;;9002226.02101,"976,63275-9995-09 ",.01)
 ;;63275-9995-09
 ;;9002226.02101,"976,63275-9995-09 ",.02)
 ;;63275-9995-09
 ;;9002226.02101,"976,63275-9996-05 ",.01)
 ;;63275-9996-05
 ;;9002226.02101,"976,63275-9996-05 ",.02)
 ;;63275-9996-05
 ;;9002226.02101,"976,63275-9996-08 ",.01)
 ;;63275-9996-08
 ;;9002226.02101,"976,63275-9996-08 ",.02)
 ;;63275-9996-08
 ;;9002226.02101,"976,63275-9996-09 ",.01)
 ;;63275-9996-09
 ;;9002226.02101,"976,63275-9996-09 ",.02)
 ;;63275-9996-09
 ;;9002226.02101,"976,63304-0681-01 ",.01)
 ;;63304-0681-01
 ;;9002226.02101,"976,63304-0681-01 ",.02)
 ;;63304-0681-01
 ;;9002226.02101,"976,63304-0682-01 ",.01)
 ;;63304-0682-01
 ;;9002226.02101,"976,63304-0682-01 ",.02)
 ;;63304-0682-01
 ;;9002226.02101,"976,63304-0690-01 ",.01)
 ;;63304-0690-01
 ;;9002226.02101,"976,63304-0690-01 ",.02)
 ;;63304-0690-01
 ;;9002226.02101,"976,63304-0691-01 ",.01)
 ;;63304-0691-01
 ;;9002226.02101,"976,63304-0691-01 ",.02)
 ;;63304-0691-01
 ;;9002226.02101,"976,63304-0691-05 ",.01)
 ;;63304-0691-05
 ;;9002226.02101,"976,63304-0691-05 ",.02)
 ;;63304-0691-05
 ;;9002226.02101,"976,63304-0701-01 ",.01)
 ;;63304-0701-01
 ;;9002226.02101,"976,63304-0701-01 ",.02)
 ;;63304-0701-01
 ;;9002226.02101,"976,63304-0714-01 ",.01)
 ;;63304-0714-01
 ;;9002226.02101,"976,63304-0714-01 ",.02)
 ;;63304-0714-01
 ;;9002226.02101,"976,63323-0161-01 ",.01)
 ;;63323-0161-01
 ;;9002226.02101,"976,63323-0161-01 ",.02)
 ;;63323-0161-01
 ;;9002226.02101,"976,63323-0162-01 ",.01)
 ;;63323-0162-01
 ;;9002226.02101,"976,63323-0162-01 ",.02)
 ;;63323-0162-01
 ;;9002226.02101,"976,63323-0162-02 ",.01)
 ;;63323-0162-02
 ;;9002226.02101,"976,63323-0162-02 ",.02)
 ;;63323-0162-02
 ;;9002226.02101,"976,63370-0081-25 ",.01)
 ;;63370-0081-25
 ;;9002226.02101,"976,63370-0081-25 ",.02)
 ;;63370-0081-25
 ;;9002226.02101,"976,63370-0081-35 ",.01)
 ;;63370-0081-35
 ;;9002226.02101,"976,63370-0081-35 ",.02)
 ;;63370-0081-35
 ;;9002226.02101,"976,63370-0081-45 ",.01)
 ;;63370-0081-45
 ;;9002226.02101,"976,63370-0081-45 ",.02)
 ;;63370-0081-45
 ;;9002226.02101,"976,63370-0096-15 ",.01)
 ;;63370-0096-15
 ;;9002226.02101,"976,63370-0096-15 ",.02)
 ;;63370-0096-15
 ;;9002226.02101,"976,63370-0096-25 ",.01)
 ;;63370-0096-25
 ;;9002226.02101,"976,63370-0096-25 ",.02)
 ;;63370-0096-25
 ;;9002226.02101,"976,63370-0096-35 ",.01)
 ;;63370-0096-35
 ;;9002226.02101,"976,63370-0096-35 ",.02)
 ;;63370-0096-35
 ;;9002226.02101,"976,63370-0096-45 ",.01)
 ;;63370-0096-45
 ;;9002226.02101,"976,63370-0096-45 ",.02)
 ;;63370-0096-45
 ;;9002226.02101,"976,63370-0110-45 ",.01)
 ;;63370-0110-45
 ;;9002226.02101,"976,63370-0110-45 ",.02)
 ;;63370-0110-45
 ;;9002226.02101,"976,63370-0110-50 ",.01)
 ;;63370-0110-50
 ;;9002226.02101,"976,63370-0110-50 ",.02)
 ;;63370-0110-50
 ;;9002226.02101,"976,63370-0110-55 ",.01)
 ;;63370-0110-55
 ;;9002226.02101,"976,63370-0110-55 ",.02)
 ;;63370-0110-55
 ;;9002226.02101,"976,63370-0114-15 ",.01)
 ;;63370-0114-15
 ;;9002226.02101,"976,63370-0114-15 ",.02)
 ;;63370-0114-15
 ;;9002226.02101,"976,63370-0114-25 ",.01)
 ;;63370-0114-25
 ;;9002226.02101,"976,63370-0114-25 ",.02)
 ;;63370-0114-25
 ;;9002226.02101,"976,63370-0114-35 ",.01)
 ;;63370-0114-35
 ;;9002226.02101,"976,63370-0114-35 ",.02)
 ;;63370-0114-35
 ;;9002226.02101,"976,63370-0114-45 ",.01)
 ;;63370-0114-45
 ;;9002226.02101,"976,63370-0114-45 ",.02)
 ;;63370-0114-45
 ;;9002226.02101,"976,63370-0114-50 ",.01)
 ;;63370-0114-50
 ;;9002226.02101,"976,63370-0114-50 ",.02)
 ;;63370-0114-50
 ;;9002226.02101,"976,63370-0130-25 ",.01)
 ;;63370-0130-25
 ;;9002226.02101,"976,63370-0130-25 ",.02)
 ;;63370-0130-25
 ;;9002226.02101,"976,63370-0130-35 ",.01)
 ;;63370-0130-35
 ;;9002226.02101,"976,63370-0130-35 ",.02)
 ;;63370-0130-35
 ;;9002226.02101,"976,63370-0130-45 ",.01)
 ;;63370-0130-45
 ;;9002226.02101,"976,63370-0130-45 ",.02)
 ;;63370-0130-45
 ;;9002226.02101,"976,63370-0130-50 ",.01)
 ;;63370-0130-50
 ;;9002226.02101,"976,63370-0130-50 ",.02)
 ;;63370-0130-50
 ;;9002226.02101,"976,63370-0130-55 ",.01)
 ;;63370-0130-55
 ;;9002226.02101,"976,63370-0130-55 ",.02)
 ;;63370-0130-55
 ;;9002226.02101,"976,63370-0130-61 ",.01)
 ;;63370-0130-61
 ;;9002226.02101,"976,63370-0130-61 ",.02)
 ;;63370-0130-61
 ;;9002226.02101,"976,63370-0164-25 ",.01)
 ;;63370-0164-25
 ;;9002226.02101,"976,63370-0164-25 ",.02)
 ;;63370-0164-25
 ;;9002226.02101,"976,63370-0164-35 ",.01)
 ;;63370-0164-35
 ;;9002226.02101,"976,63370-0164-35 ",.02)
 ;;63370-0164-35
 ;;9002226.02101,"976,63370-0164-45 ",.01)
 ;;63370-0164-45
 ;;9002226.02101,"976,63370-0164-45 ",.02)
 ;;63370-0164-45
 ;;9002226.02101,"976,63370-0164-50 ",.01)
 ;;63370-0164-50
 ;;9002226.02101,"976,63370-0164-50 ",.02)
 ;;63370-0164-50
 ;;9002226.02101,"976,63370-0185-15 ",.01)
 ;;63370-0185-15
 ;;9002226.02101,"976,63370-0185-15 ",.02)
 ;;63370-0185-15
 ;;9002226.02101,"976,63370-0185-25 ",.01)
 ;;63370-0185-25
 ;;9002226.02101,"976,63370-0185-25 ",.02)
 ;;63370-0185-25
 ;;9002226.02101,"976,63370-0185-35 ",.01)
 ;;63370-0185-35
 ;;9002226.02101,"976,63370-0185-35 ",.02)
 ;;63370-0185-35
 ;;9002226.02101,"976,63370-0185-45 ",.01)
 ;;63370-0185-45
 ;;9002226.02101,"976,63370-0185-45 ",.02)
 ;;63370-0185-45
 ;;9002226.02101,"976,63739-0135-01 ",.01)
 ;;63739-0135-01
 ;;9002226.02101,"976,63739-0135-01 ",.02)
 ;;63739-0135-01
 ;;9002226.02101,"976,63739-0135-03 ",.01)
 ;;63739-0135-03
 ;;9002226.02101,"976,63739-0135-03 ",.02)
 ;;63739-0135-03
 ;;9002226.02101,"976,63739-0136-01 ",.01)
 ;;63739-0136-01
 ;;9002226.02101,"976,63739-0136-01 ",.02)
 ;;63739-0136-01
 ;;9002226.02101,"976,63739-0136-03 ",.01)
 ;;63739-0136-03
 ;;9002226.02101,"976,63739-0136-03 ",.02)
 ;;63739-0136-03
 ;;9002226.02101,"976,63739-0137-01 ",.01)
 ;;63739-0137-01
 ;;9002226.02101,"976,63739-0137-01 ",.02)
 ;;63739-0137-01
 ;;9002226.02101,"976,63739-0137-03 ",.01)
 ;;63739-0137-03
 ;;9002226.02101,"976,63739-0137-03 ",.02)
 ;;63739-0137-03
 ;;9002226.02101,"976,63874-0301-01 ",.01)
 ;;63874-0301-01
 ;;9002226.02101,"976,63874-0301-01 ",.02)
 ;;63874-0301-01
 ;;9002226.02101,"976,63874-0301-20 ",.01)
 ;;63874-0301-20
 ;;9002226.02101,"976,63874-0301-20 ",.02)
 ;;63874-0301-20
 ;;9002226.02101,"976,63874-0301-21 ",.01)
 ;;63874-0301-21
 ;;9002226.02101,"976,63874-0301-21 ",.02)
 ;;63874-0301-21
 ;;9002226.02101,"976,63874-0301-50 ",.01)
 ;;63874-0301-50
 ;;9002226.02101,"976,63874-0301-50 ",.02)
 ;;63874-0301-50
 ;;9002226.02101,"976,63874-0307-01 ",.01)
 ;;63874-0307-01
 ;;9002226.02101,"976,63874-0307-01 ",.02)
 ;;63874-0307-01
 ;;9002226.02101,"976,63874-0307-10 ",.01)
 ;;63874-0307-10
 ;;9002226.02101,"976,63874-0307-10 ",.02)
 ;;63874-0307-10
 ;;9002226.02101,"976,63874-0307-20 ",.01)
 ;;63874-0307-20
 ;;9002226.02101,"976,63874-0307-20 ",.02)
 ;;63874-0307-20
 ;;9002226.02101,"976,63874-0307-60 ",.01)
 ;;63874-0307-60
 ;;9002226.02101,"976,63874-0307-60 ",.02)
 ;;63874-0307-60
 ;;9002226.02101,"976,63874-0318-01 ",.01)
 ;;63874-0318-01
 ;;9002226.02101,"976,63874-0318-01 ",.02)
 ;;63874-0318-01
 ;;9002226.02101,"976,63874-0318-02 ",.01)
 ;;63874-0318-02
 ;;9002226.02101,"976,63874-0318-02 ",.02)
 ;;63874-0318-02
 ;;9002226.02101,"976,63874-0318-08 ",.01)
 ;;63874-0318-08
 ;;9002226.02101,"976,63874-0318-08 ",.02)
 ;;63874-0318-08
 ;;9002226.02101,"976,63874-0318-14 ",.01)
 ;;63874-0318-14
 ;;9002226.02101,"976,63874-0318-14 ",.02)
 ;;63874-0318-14
 ;;9002226.02101,"976,63874-0318-20 ",.01)
 ;;63874-0318-20
 ;;9002226.02101,"976,63874-0318-20 ",.02)
 ;;63874-0318-20
 ;;9002226.02101,"976,63874-0318-21 ",.01)
 ;;63874-0318-21
 ;;9002226.02101,"976,63874-0318-21 ",.02)
 ;;63874-0318-21
 ;;9002226.02101,"976,63874-0318-22 ",.01)
 ;;63874-0318-22
 ;;9002226.02101,"976,63874-0318-22 ",.02)
 ;;63874-0318-22
 ;;9002226.02101,"976,63874-0318-25 ",.01)
 ;;63874-0318-25
 ;;9002226.02101,"976,63874-0318-25 ",.02)
 ;;63874-0318-25
 ;;9002226.02101,"976,63874-0318-28 ",.01)
 ;;63874-0318-28
 ;;9002226.02101,"976,63874-0318-28 ",.02)
 ;;63874-0318-28
 ;;9002226.02101,"976,63874-0318-30 ",.01)
 ;;63874-0318-30
 ;;9002226.02101,"976,63874-0318-30 ",.02)
 ;;63874-0318-30
 ;;9002226.02101,"976,63874-0318-40 ",.01)
 ;;63874-0318-40
 ;;9002226.02101,"976,63874-0318-40 ",.02)
 ;;63874-0318-40
 ;;9002226.02101,"976,63874-0318-50 ",.01)
 ;;63874-0318-50
 ;;9002226.02101,"976,63874-0318-50 ",.02)
 ;;63874-0318-50
 ;;9002226.02101,"976,63874-0318-60 ",.01)
 ;;63874-0318-60
 ;;9002226.02101,"976,63874-0318-60 ",.02)
 ;;63874-0318-60
 ;;9002226.02101,"976,63874-0318-75 ",.01)
 ;;63874-0318-75
 ;;9002226.02101,"976,63874-0318-75 ",.02)
 ;;63874-0318-75
 ;;9002226.02101,"976,63874-0318-90 ",.01)
 ;;63874-0318-90
 ;;9002226.02101,"976,63874-0318-90 ",.02)
 ;;63874-0318-90
 ;;9002226.02101,"976,63874-0322-01 ",.01)
 ;;63874-0322-01
 ;;9002226.02101,"976,63874-0322-01 ",.02)
 ;;63874-0322-01
 ;;9002226.02101,"976,63874-0322-03 ",.01)
 ;;63874-0322-03
 ;;9002226.02101,"976,63874-0322-03 ",.02)
 ;;63874-0322-03
 ;;9002226.02101,"976,63874-0322-08 ",.01)
 ;;63874-0322-08
 ;;9002226.02101,"976,63874-0322-08 ",.02)
 ;;63874-0322-08
 ;;9002226.02101,"976,63874-0322-12 ",.01)
 ;;63874-0322-12
 ;;9002226.02101,"976,63874-0322-12 ",.02)
 ;;63874-0322-12
 ;;9002226.02101,"976,63874-0322-14 ",.01)
 ;;63874-0322-14
 ;;9002226.02101,"976,63874-0322-14 ",.02)
 ;;63874-0322-14
 ;;9002226.02101,"976,63874-0322-15 ",.01)
 ;;63874-0322-15
 ;;9002226.02101,"976,63874-0322-15 ",.02)
 ;;63874-0322-15
 ;;9002226.02101,"976,63874-0322-16 ",.01)
 ;;63874-0322-16
 ;;9002226.02101,"976,63874-0322-16 ",.02)
 ;;63874-0322-16
 ;;9002226.02101,"976,63874-0322-20 ",.01)
 ;;63874-0322-20
 ;;9002226.02101,"976,63874-0322-20 ",.02)
 ;;63874-0322-20
 ;;9002226.02101,"976,63874-0322-21 ",.01)
 ;;63874-0322-21
 ;;9002226.02101,"976,63874-0322-21 ",.02)
 ;;63874-0322-21
 ;;9002226.02101,"976,63874-0322-24 ",.01)
 ;;63874-0322-24
 ;;9002226.02101,"976,63874-0322-24 ",.02)
 ;;63874-0322-24
 ;;9002226.02101,"976,63874-0322-25 ",.01)
 ;;63874-0322-25
 ;;9002226.02101,"976,63874-0322-25 ",.02)
 ;;63874-0322-25
 ;;9002226.02101,"976,63874-0322-28 ",.01)
 ;;63874-0322-28
 ;;9002226.02101,"976,63874-0322-28 ",.02)
 ;;63874-0322-28
 ;;9002226.02101,"976,63874-0322-30 ",.01)
 ;;63874-0322-30
 ;;9002226.02101,"976,63874-0322-30 ",.02)
 ;;63874-0322-30
 ;;9002226.02101,"976,63874-0322-40 ",.01)
 ;;63874-0322-40
 ;;9002226.02101,"976,63874-0322-40 ",.02)
 ;;63874-0322-40
 ;;9002226.02101,"976,63874-0322-45 ",.01)
 ;;63874-0322-45
 ;;9002226.02101,"976,63874-0322-45 ",.02)
 ;;63874-0322-45
 ;;9002226.02101,"976,63874-0322-50 ",.01)
 ;;63874-0322-50
 ;;9002226.02101,"976,63874-0322-50 ",.02)
 ;;63874-0322-50
 ;;9002226.02101,"976,63874-0322-56 ",.01)
 ;;63874-0322-56
 ;;9002226.02101,"976,63874-0322-56 ",.02)
 ;;63874-0322-56
 ;;9002226.02101,"976,63874-0322-60 ",.01)
 ;;63874-0322-60
 ;;9002226.02101,"976,63874-0322-60 ",.02)
 ;;63874-0322-60
 ;;9002226.02101,"976,63874-0322-90 ",.01)
 ;;63874-0322-90
 ;;9002226.02101,"976,63874-0322-90 ",.02)
 ;;63874-0322-90
 ;;9002226.02101,"976,63874-0323-01 ",.01)
 ;;63874-0323-01
 ;;9002226.02101,"976,63874-0323-01 ",.02)
 ;;63874-0323-01
 ;;9002226.02101,"976,63874-0323-03 ",.01)
 ;;63874-0323-03
 ;;9002226.02101,"976,63874-0323-03 ",.02)
 ;;63874-0323-03
 ;;9002226.02101,"976,63874-0323-04 ",.01)
 ;;63874-0323-04
 ;;9002226.02101,"976,63874-0323-04 ",.02)
 ;;63874-0323-04
 ;;9002226.02101,"976,63874-0323-12 ",.01)
 ;;63874-0323-12
 ;;9002226.02101,"976,63874-0323-12 ",.02)
 ;;63874-0323-12
 ;;9002226.02101,"976,63874-0323-14 ",.01)
 ;;63874-0323-14
 ;;9002226.02101,"976,63874-0323-14 ",.02)
 ;;63874-0323-14
 ;;9002226.02101,"976,63874-0323-15 ",.01)
 ;;63874-0323-15
 ;;9002226.02101,"976,63874-0323-15 ",.02)
 ;;63874-0323-15
 ;;9002226.02101,"976,63874-0323-16 ",.01)
 ;;63874-0323-16