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

BGP0ZD19.m

Go to the documentation of this file.
BGP0ZD19 ;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,52959-0663-30 ",.02)
 ;;52959-0663-30
 ;;9002226.02101,"976,52959-0663-60 ",.01)
 ;;52959-0663-60
 ;;9002226.02101,"976,52959-0663-60 ",.02)
 ;;52959-0663-60
 ;;9002226.02101,"976,52959-0663-90 ",.01)
 ;;52959-0663-90
 ;;9002226.02101,"976,52959-0663-90 ",.02)
 ;;52959-0663-90
 ;;9002226.02101,"976,52959-0800-00 ",.01)
 ;;52959-0800-00
 ;;9002226.02101,"976,52959-0800-00 ",.02)
 ;;52959-0800-00
 ;;9002226.02101,"976,52959-0800-14 ",.01)
 ;;52959-0800-14
 ;;9002226.02101,"976,52959-0800-14 ",.02)
 ;;52959-0800-14
 ;;9002226.02101,"976,52959-0800-15 ",.01)
 ;;52959-0800-15
 ;;9002226.02101,"976,52959-0800-15 ",.02)
 ;;52959-0800-15
 ;;9002226.02101,"976,52959-0800-20 ",.01)
 ;;52959-0800-20
 ;;9002226.02101,"976,52959-0800-20 ",.02)
 ;;52959-0800-20
 ;;9002226.02101,"976,52959-0800-21 ",.01)
 ;;52959-0800-21
 ;;9002226.02101,"976,52959-0800-21 ",.02)
 ;;52959-0800-21
 ;;9002226.02101,"976,52959-0800-24 ",.01)
 ;;52959-0800-24
 ;;9002226.02101,"976,52959-0800-24 ",.02)
 ;;52959-0800-24
 ;;9002226.02101,"976,52959-0800-28 ",.01)
 ;;52959-0800-28
 ;;9002226.02101,"976,52959-0800-28 ",.02)
 ;;52959-0800-28
 ;;9002226.02101,"976,52959-0800-30 ",.01)
 ;;52959-0800-30
 ;;9002226.02101,"976,52959-0800-30 ",.02)
 ;;52959-0800-30
 ;;9002226.02101,"976,52959-0800-40 ",.01)
 ;;52959-0800-40
 ;;9002226.02101,"976,52959-0800-40 ",.02)
 ;;52959-0800-40
 ;;9002226.02101,"976,52959-0800-42 ",.01)
 ;;52959-0800-42
 ;;9002226.02101,"976,52959-0800-42 ",.02)
 ;;52959-0800-42
 ;;9002226.02101,"976,52959-0800-45 ",.01)
 ;;52959-0800-45
 ;;9002226.02101,"976,52959-0800-45 ",.02)
 ;;52959-0800-45
 ;;9002226.02101,"976,52959-0800-60 ",.01)
 ;;52959-0800-60
 ;;9002226.02101,"976,52959-0800-60 ",.02)
 ;;52959-0800-60
 ;;9002226.02101,"976,52989-0512-30 ",.01)
 ;;52989-0512-30
 ;;9002226.02101,"976,52989-0512-30 ",.02)
 ;;52989-0512-30
 ;;9002226.02101,"976,53265-0267-10 ",.01)
 ;;53265-0267-10
 ;;9002226.02101,"976,53265-0267-10 ",.02)
 ;;53265-0267-10
 ;;9002226.02101,"976,53265-0267-11 ",.01)
 ;;53265-0267-11
 ;;9002226.02101,"976,53265-0267-11 ",.02)
 ;;53265-0267-11
 ;;9002226.02101,"976,53265-0268-10 ",.01)
 ;;53265-0268-10
 ;;9002226.02101,"976,53265-0268-10 ",.02)
 ;;53265-0268-10
 ;;9002226.02101,"976,53265-0268-50 ",.01)
 ;;53265-0268-50
 ;;9002226.02101,"976,53265-0268-50 ",.02)
 ;;53265-0268-50
 ;;9002226.02101,"976,53265-0269-10 ",.01)
 ;;53265-0269-10
 ;;9002226.02101,"976,53265-0269-10 ",.02)
 ;;53265-0269-10
 ;;9002226.02101,"976,53265-0269-11 ",.01)
 ;;53265-0269-11
 ;;9002226.02101,"976,53265-0269-11 ",.02)
 ;;53265-0269-11
 ;;9002226.02101,"976,53265-0269-60 ",.01)
 ;;53265-0269-60
 ;;9002226.02101,"976,53265-0269-60 ",.02)
 ;;53265-0269-60
 ;;9002226.02101,"976,53265-0363-10 ",.01)
 ;;53265-0363-10
 ;;9002226.02101,"976,53265-0363-10 ",.02)
 ;;53265-0363-10
 ;;9002226.02101,"976,53265-0363-11 ",.01)
 ;;53265-0363-11
 ;;9002226.02101,"976,53265-0363-11 ",.02)
 ;;53265-0363-11
 ;;9002226.02101,"976,53265-0363-50 ",.01)
 ;;53265-0363-50
 ;;9002226.02101,"976,53265-0363-50 ",.02)
 ;;53265-0363-50
 ;;9002226.02101,"976,53265-0364-10 ",.01)
 ;;53265-0364-10
 ;;9002226.02101,"976,53265-0364-10 ",.02)
 ;;53265-0364-10
 ;;9002226.02101,"976,53265-0364-11 ",.01)
 ;;53265-0364-11
 ;;9002226.02101,"976,53265-0364-11 ",.02)
 ;;53265-0364-11
 ;;9002226.02101,"976,53265-0364-50 ",.01)
 ;;53265-0364-50
 ;;9002226.02101,"976,53265-0364-50 ",.02)
 ;;53265-0364-50
 ;;9002226.02101,"976,53489-0478-01 ",.01)
 ;;53489-0478-01
 ;;9002226.02101,"976,53489-0478-01 ",.02)
 ;;53489-0478-01
 ;;9002226.02101,"976,53489-0478-05 ",.01)
 ;;53489-0478-05
 ;;9002226.02101,"976,53489-0478-05 ",.02)
 ;;53489-0478-05
 ;;9002226.02101,"976,53489-0479-01 ",.01)
 ;;53489-0479-01
 ;;9002226.02101,"976,53489-0479-01 ",.02)
 ;;53489-0479-01
 ;;9002226.02101,"976,53489-0479-05 ",.01)
 ;;53489-0479-05
 ;;9002226.02101,"976,53489-0479-05 ",.02)
 ;;53489-0479-05
 ;;9002226.02101,"976,53489-0506-01 ",.01)
 ;;53489-0506-01
 ;;9002226.02101,"976,53489-0506-01 ",.02)
 ;;53489-0506-01
 ;;9002226.02101,"976,53716-0189-50 ",.01)
 ;;53716-0189-50
 ;;9002226.02101,"976,53716-0189-50 ",.02)
 ;;53716-0189-50
 ;;9002226.02101,"976,53746-0131-01 ",.01)
 ;;53746-0131-01
 ;;9002226.02101,"976,53746-0131-01 ",.02)
 ;;53746-0131-01
 ;;9002226.02101,"976,53746-0131-05 ",.01)
 ;;53746-0131-05
 ;;9002226.02101,"976,53746-0131-05 ",.02)
 ;;53746-0131-05
 ;;9002226.02101,"976,53746-0131-18 ",.01)
 ;;53746-0131-18
 ;;9002226.02101,"976,53746-0131-18 ",.02)
 ;;53746-0131-18
 ;;9002226.02101,"976,53746-0131-24 ",.01)
 ;;53746-0131-24
 ;;9002226.02101,"976,53746-0131-24 ",.02)
 ;;53746-0131-24
 ;;9002226.02101,"976,53746-0131-27 ",.01)
 ;;53746-0131-27
 ;;9002226.02101,"976,53746-0131-27 ",.02)
 ;;53746-0131-27
 ;;9002226.02101,"976,53746-0131-50 ",.01)
 ;;53746-0131-50
 ;;9002226.02101,"976,53746-0131-50 ",.02)
 ;;53746-0131-50
 ;;9002226.02101,"976,53746-0131-60 ",.01)
 ;;53746-0131-60
 ;;9002226.02101,"976,53746-0131-60 ",.02)
 ;;53746-0131-60
 ;;9002226.02101,"976,53746-0131-90 ",.01)
 ;;53746-0131-90
 ;;9002226.02101,"976,53746-0131-90 ",.02)
 ;;53746-0131-90
 ;;9002226.02101,"976,53746-0132-01 ",.01)
 ;;53746-0132-01
 ;;9002226.02101,"976,53746-0132-01 ",.02)
 ;;53746-0132-01
 ;;9002226.02101,"976,53746-0132-05 ",.01)
 ;;53746-0132-05
 ;;9002226.02101,"976,53746-0132-05 ",.02)
 ;;53746-0132-05
 ;;9002226.02101,"976,53746-0132-18 ",.01)
 ;;53746-0132-18
 ;;9002226.02101,"976,53746-0132-18 ",.02)
 ;;53746-0132-18
 ;;9002226.02101,"976,53746-0132-24 ",.01)
 ;;53746-0132-24
 ;;9002226.02101,"976,53746-0132-24 ",.02)
 ;;53746-0132-24
 ;;9002226.02101,"976,53746-0132-27 ",.01)
 ;;53746-0132-27
 ;;9002226.02101,"976,53746-0132-27 ",.02)
 ;;53746-0132-27
 ;;9002226.02101,"976,53746-0132-30 ",.01)
 ;;53746-0132-30
 ;;9002226.02101,"976,53746-0132-30 ",.02)
 ;;53746-0132-30
 ;;9002226.02101,"976,53746-0132-50 ",.01)
 ;;53746-0132-50
 ;;9002226.02101,"976,53746-0132-50 ",.02)
 ;;53746-0132-50
 ;;9002226.02101,"976,53746-0132-60 ",.01)
 ;;53746-0132-60
 ;;9002226.02101,"976,53746-0132-60 ",.02)
 ;;53746-0132-60
 ;;9002226.02101,"976,53746-0132-90 ",.01)
 ;;53746-0132-90
 ;;9002226.02101,"976,53746-0132-90 ",.02)
 ;;53746-0132-90
 ;;9002226.02101,"976,53746-0137-01 ",.01)
 ;;53746-0137-01
 ;;9002226.02101,"976,53746-0137-01 ",.02)
 ;;53746-0137-01
 ;;9002226.02101,"976,53746-0137-05 ",.01)
 ;;53746-0137-05
 ;;9002226.02101,"976,53746-0137-05 ",.02)
 ;;53746-0137-05
 ;;9002226.02101,"976,53746-0137-24 ",.01)
 ;;53746-0137-24
 ;;9002226.02101,"976,53746-0137-24 ",.02)
 ;;53746-0137-24
 ;;9002226.02101,"976,53746-0137-50 ",.01)
 ;;53746-0137-50
 ;;9002226.02101,"976,53746-0137-50 ",.02)
 ;;53746-0137-50
 ;;9002226.02101,"976,53746-0137-90 ",.01)
 ;;53746-0137-90
 ;;9002226.02101,"976,53746-0137-90 ",.02)
 ;;53746-0137-90
 ;;9002226.02101,"976,53746-0188-01 ",.01)
 ;;53746-0188-01
 ;;9002226.02101,"976,53746-0188-01 ",.02)
 ;;53746-0188-01
 ;;9002226.02101,"976,53746-0188-05 ",.01)
 ;;53746-0188-05
 ;;9002226.02101,"976,53746-0188-05 ",.02)
 ;;53746-0188-05
 ;;9002226.02101,"976,53746-0188-50 ",.01)
 ;;53746-0188-50
 ;;9002226.02101,"976,53746-0188-50 ",.02)
 ;;53746-0188-50
 ;;9002226.02101,"976,53746-0189-01 ",.01)
 ;;53746-0189-01
 ;;9002226.02101,"976,53746-0189-01 ",.02)
 ;;53746-0189-01
 ;;9002226.02101,"976,53746-0189-05 ",.01)
 ;;53746-0189-05
 ;;9002226.02101,"976,53746-0189-05 ",.02)
 ;;53746-0189-05
 ;;9002226.02101,"976,53746-0190-01 ",.01)
 ;;53746-0190-01
 ;;9002226.02101,"976,53746-0190-01 ",.02)
 ;;53746-0190-01
 ;;9002226.02101,"976,53746-0190-05 ",.01)
 ;;53746-0190-05
 ;;9002226.02101,"976,53746-0190-05 ",.02)
 ;;53746-0190-05
 ;;9002226.02101,"976,53746-0190-50 ",.01)
 ;;53746-0190-50
 ;;9002226.02101,"976,53746-0190-50 ",.02)
 ;;53746-0190-50
 ;;9002226.02101,"976,54560-4002-01 ",.01)
 ;;54560-4002-01
 ;;9002226.02101,"976,54560-4002-01 ",.02)
 ;;54560-4002-01
 ;;9002226.02101,"976,54569-0275-00 ",.01)
 ;;54569-0275-00
 ;;9002226.02101,"976,54569-0275-00 ",.02)
 ;;54569-0275-00
 ;;9002226.02101,"976,54569-0275-01 ",.01)
 ;;54569-0275-01
 ;;9002226.02101,"976,54569-0275-01 ",.02)
 ;;54569-0275-01
 ;;9002226.02101,"976,54569-0275-05 ",.01)
 ;;54569-0275-05
 ;;9002226.02101,"976,54569-0275-05 ",.02)
 ;;54569-0275-05
 ;;9002226.02101,"976,54569-0277-01 ",.01)
 ;;54569-0277-01
 ;;9002226.02101,"976,54569-0277-01 ",.02)
 ;;54569-0277-01
 ;;9002226.02101,"976,54569-0277-03 ",.01)
 ;;54569-0277-03
 ;;9002226.02101,"976,54569-0277-03 ",.02)
 ;;54569-0277-03
 ;;9002226.02101,"976,54569-0277-04 ",.01)
 ;;54569-0277-04
 ;;9002226.02101,"976,54569-0277-04 ",.02)
 ;;54569-0277-04
 ;;9002226.02101,"976,54569-0285-01 ",.01)
 ;;54569-0285-01
 ;;9002226.02101,"976,54569-0285-01 ",.02)
 ;;54569-0285-01
 ;;9002226.02101,"976,54569-0285-02 ",.01)
 ;;54569-0285-02
 ;;9002226.02101,"976,54569-0285-02 ",.02)
 ;;54569-0285-02
 ;;9002226.02101,"976,54569-0285-03 ",.01)
 ;;54569-0285-03
 ;;9002226.02101,"976,54569-0285-03 ",.02)
 ;;54569-0285-03
 ;;9002226.02101,"976,54569-0285-04 ",.01)
 ;;54569-0285-04
 ;;9002226.02101,"976,54569-0285-04 ",.02)
 ;;54569-0285-04
 ;;9002226.02101,"976,54569-0285-05 ",.01)
 ;;54569-0285-05
 ;;9002226.02101,"976,54569-0285-05 ",.02)
 ;;54569-0285-05
 ;;9002226.02101,"976,54569-0285-06 ",.01)
 ;;54569-0285-06
 ;;9002226.02101,"976,54569-0285-06 ",.02)
 ;;54569-0285-06
 ;;9002226.02101,"976,54569-0285-07 ",.01)
 ;;54569-0285-07
 ;;9002226.02101,"976,54569-0285-07 ",.02)
 ;;54569-0285-07
 ;;9002226.02101,"976,54569-0285-08 ",.01)
 ;;54569-0285-08
 ;;9002226.02101,"976,54569-0285-08 ",.02)
 ;;54569-0285-08
 ;;9002226.02101,"976,54569-0287-00 ",.01)
 ;;54569-0287-00
 ;;9002226.02101,"976,54569-0287-00 ",.02)
 ;;54569-0287-00
 ;;9002226.02101,"976,54569-0287-01 ",.01)
 ;;54569-0287-01
 ;;9002226.02101,"976,54569-0287-01 ",.02)
 ;;54569-0287-01
 ;;9002226.02101,"976,54569-0287-02 ",.01)
 ;;54569-0287-02
 ;;9002226.02101,"976,54569-0287-02 ",.02)
 ;;54569-0287-02
 ;;9002226.02101,"976,54569-0287-03 ",.01)
 ;;54569-0287-03
 ;;9002226.02101,"976,54569-0287-03 ",.02)
 ;;54569-0287-03
 ;;9002226.02101,"976,54569-0287-04 ",.01)
 ;;54569-0287-04
 ;;9002226.02101,"976,54569-0287-04 ",.02)
 ;;54569-0287-04
 ;;9002226.02101,"976,54569-0287-05 ",.01)
 ;;54569-0287-05
 ;;9002226.02101,"976,54569-0287-05 ",.02)
 ;;54569-0287-05
 ;;9002226.02101,"976,54569-0287-07 ",.01)
 ;;54569-0287-07
 ;;9002226.02101,"976,54569-0287-07 ",.02)
 ;;54569-0287-07
 ;;9002226.02101,"976,54569-0287-08 ",.01)
 ;;54569-0287-08
 ;;9002226.02101,"976,54569-0287-08 ",.02)
 ;;54569-0287-08
 ;;9002226.02101,"976,54569-0287-09 ",.01)
 ;;54569-0287-09
 ;;9002226.02101,"976,54569-0287-09 ",.02)
 ;;54569-0287-09
 ;;9002226.02101,"976,54569-0287-60 ",.01)
 ;;54569-0287-60
 ;;9002226.02101,"976,54569-0287-60 ",.02)
 ;;54569-0287-60
 ;;9002226.02101,"976,54569-0289-00 ",.01)
 ;;54569-0289-00
 ;;9002226.02101,"976,54569-0289-00 ",.02)
 ;;54569-0289-00
 ;;9002226.02101,"976,54569-0289-01 ",.01)
 ;;54569-0289-01
 ;;9002226.02101,"976,54569-0289-01 ",.02)
 ;;54569-0289-01
 ;;9002226.02101,"976,54569-0289-02 ",.01)
 ;;54569-0289-02
 ;;9002226.02101,"976,54569-0289-02 ",.02)
 ;;54569-0289-02
 ;;9002226.02101,"976,54569-0289-03 ",.01)
 ;;54569-0289-03
 ;;9002226.02101,"976,54569-0289-03 ",.02)
 ;;54569-0289-03
 ;;9002226.02101,"976,54569-0289-04 ",.01)
 ;;54569-0289-04
 ;;9002226.02101,"976,54569-0289-04 ",.02)
 ;;54569-0289-04
 ;;9002226.02101,"976,54569-0289-05 ",.01)
 ;;54569-0289-05
 ;;9002226.02101,"976,54569-0289-05 ",.02)
 ;;54569-0289-05
 ;;9002226.02101,"976,54569-0289-06 ",.01)
 ;;54569-0289-06
 ;;9002226.02101,"976,54569-0289-06 ",.02)
 ;;54569-0289-06
 ;;9002226.02101,"976,54569-0289-07 ",.01)
 ;;54569-0289-07
 ;;9002226.02101,"976,54569-0289-07 ",.02)
 ;;54569-0289-07
 ;;9002226.02101,"976,54569-0289-08 ",.01)
 ;;54569-0289-08
 ;;9002226.02101,"976,54569-0289-08 ",.02)
 ;;54569-0289-08
 ;;9002226.02101,"976,54569-0289-09 ",.01)
 ;;54569-0289-09
 ;;9002226.02101,"976,54569-0289-09 ",.02)
 ;;54569-0289-09
 ;;9002226.02101,"976,54569-0293-01 ",.01)
 ;;54569-0293-01
 ;;9002226.02101,"976,54569-0293-01 ",.02)
 ;;54569-0293-01
 ;;9002226.02101,"976,54569-0294-01 ",.01)
 ;;54569-0294-01
 ;;9002226.02101,"976,54569-0294-01 ",.02)
 ;;54569-0294-01
 ;;9002226.02101,"976,54569-0294-02 ",.01)
 ;;54569-0294-02
 ;;9002226.02101,"976,54569-0294-02 ",.02)
 ;;54569-0294-02
 ;;9002226.02101,"976,54569-0296-06 ",.01)
 ;;54569-0296-06
 ;;9002226.02101,"976,54569-0296-06 ",.02)
 ;;54569-0296-06
 ;;9002226.02101,"976,54569-1467-07 ",.01)
 ;;54569-1467-07
 ;;9002226.02101,"976,54569-1467-07 ",.02)
 ;;54569-1467-07
 ;;9002226.02101,"976,54569-1518-00 ",.01)
 ;;54569-1518-00
 ;;9002226.02101,"976,54569-1518-00 ",.02)
 ;;54569-1518-00
 ;;9002226.02101,"976,54569-1518-01 ",.01)
 ;;54569-1518-01
 ;;9002226.02101,"976,54569-1518-01 ",.02)
 ;;54569-1518-01
 ;;9002226.02101,"976,54569-1518-02 ",.01)
 ;;54569-1518-02
 ;;9002226.02101,"976,54569-1518-02 ",.02)
 ;;54569-1518-02
 ;;9002226.02101,"976,54569-1518-03 ",.01)
 ;;54569-1518-03
 ;;9002226.02101,"976,54569-1518-03 ",.02)
 ;;54569-1518-03
 ;;9002226.02101,"976,54569-1763-03 ",.01)
 ;;54569-1763-03
 ;;9002226.02101,"976,54569-1763-03 ",.02)
 ;;54569-1763-03
 ;;9002226.02101,"976,54569-2105-01 ",.01)
 ;;54569-2105-01
 ;;9002226.02101,"976,54569-2105-01 ",.02)
 ;;54569-2105-01
 ;;9002226.02101,"976,54569-2155-01 ",.01)
 ;;54569-2155-01