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

BGP33J85.m

Go to the documentation of this file.
BGP33J85 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"734,68115-0126-56 ",.01)
 ;;68115-0126-56
 ;;9002226.02101,"734,68115-0126-56 ",.02)
 ;;68115-0126-56
 ;;9002226.02101,"734,68115-0131-06 ",.01)
 ;;68115-0131-06
 ;;9002226.02101,"734,68115-0131-06 ",.02)
 ;;68115-0131-06
 ;;9002226.02101,"734,68115-0131-15 ",.01)
 ;;68115-0131-15
 ;;9002226.02101,"734,68115-0131-15 ",.02)
 ;;68115-0131-15
 ;;9002226.02101,"734,68115-0131-21 ",.01)
 ;;68115-0131-21
 ;;9002226.02101,"734,68115-0131-21 ",.02)
 ;;68115-0131-21
 ;;9002226.02101,"734,68115-0131-30 ",.01)
 ;;68115-0131-30
 ;;9002226.02101,"734,68115-0131-30 ",.02)
 ;;68115-0131-30
 ;;9002226.02101,"734,68115-0131-40 ",.01)
 ;;68115-0131-40
 ;;9002226.02101,"734,68115-0131-40 ",.02)
 ;;68115-0131-40
 ;;9002226.02101,"734,68115-0132-20 ",.01)
 ;;68115-0132-20
 ;;9002226.02101,"734,68115-0132-20 ",.02)
 ;;68115-0132-20
 ;;9002226.02101,"734,68115-0132-28 ",.01)
 ;;68115-0132-28
 ;;9002226.02101,"734,68115-0132-28 ",.02)
 ;;68115-0132-28
 ;;9002226.02101,"734,68115-0133-20 ",.01)
 ;;68115-0133-20
 ;;9002226.02101,"734,68115-0133-20 ",.02)
 ;;68115-0133-20
 ;;9002226.02101,"734,68115-0133-40 ",.01)
 ;;68115-0133-40
 ;;9002226.02101,"734,68115-0133-40 ",.02)
 ;;68115-0133-40
 ;;9002226.02101,"734,68115-0134-06 ",.01)
 ;;68115-0134-06
 ;;9002226.02101,"734,68115-0134-06 ",.02)
 ;;68115-0134-06
 ;;9002226.02101,"734,68115-0134-20 ",.01)
 ;;68115-0134-20
 ;;9002226.02101,"734,68115-0134-20 ",.02)
 ;;68115-0134-20
 ;;9002226.02101,"734,68115-0134-28 ",.01)
 ;;68115-0134-28
 ;;9002226.02101,"734,68115-0134-28 ",.02)
 ;;68115-0134-28
 ;;9002226.02101,"734,68115-0134-40 ",.01)
 ;;68115-0134-40
 ;;9002226.02101,"734,68115-0134-40 ",.02)
 ;;68115-0134-40
 ;;9002226.02101,"734,68115-0135-06 ",.01)
 ;;68115-0135-06
 ;;9002226.02101,"734,68115-0135-06 ",.02)
 ;;68115-0135-06
 ;;9002226.02101,"734,68115-0135-20 ",.01)
 ;;68115-0135-20
 ;;9002226.02101,"734,68115-0135-20 ",.02)
 ;;68115-0135-20
 ;;9002226.02101,"734,68115-0135-30 ",.01)
 ;;68115-0135-30
 ;;9002226.02101,"734,68115-0135-30 ",.02)
 ;;68115-0135-30
 ;;9002226.02101,"734,68115-0135-40 ",.01)
 ;;68115-0135-40
 ;;9002226.02101,"734,68115-0135-40 ",.02)
 ;;68115-0135-40
 ;;9002226.02101,"734,68115-0136-28 ",.01)
 ;;68115-0136-28
 ;;9002226.02101,"734,68115-0136-28 ",.02)
 ;;68115-0136-28
 ;;9002226.02101,"734,68115-0136-40 ",.01)
 ;;68115-0136-40
 ;;9002226.02101,"734,68115-0136-40 ",.02)
 ;;68115-0136-40
 ;;9002226.02101,"734,68115-0196-10 ",.01)
 ;;68115-0196-10
 ;;9002226.02101,"734,68115-0196-10 ",.02)
 ;;68115-0196-10
 ;;9002226.02101,"734,68115-0197-10 ",.01)
 ;;68115-0197-10
 ;;9002226.02101,"734,68115-0197-10 ",.02)
 ;;68115-0197-10
 ;;9002226.02101,"734,68115-0322-00 ",.01)
 ;;68115-0322-00
 ;;9002226.02101,"734,68115-0322-00 ",.02)
 ;;68115-0322-00
 ;;9002226.02101,"734,68115-0322-06 ",.01)
 ;;68115-0322-06
 ;;9002226.02101,"734,68115-0322-06 ",.02)
 ;;68115-0322-06
 ;;9002226.02101,"734,68115-0322-14 ",.01)
 ;;68115-0322-14
 ;;9002226.02101,"734,68115-0322-14 ",.02)
 ;;68115-0322-14
 ;;9002226.02101,"734,68115-0322-20 ",.01)
 ;;68115-0322-20
 ;;9002226.02101,"734,68115-0322-20 ",.02)
 ;;68115-0322-20
 ;;9002226.02101,"734,68115-0322-28 ",.01)
 ;;68115-0322-28
 ;;9002226.02101,"734,68115-0322-28 ",.02)
 ;;68115-0322-28
 ;;9002226.02101,"734,68115-0322-40 ",.01)
 ;;68115-0322-40
 ;;9002226.02101,"734,68115-0322-40 ",.02)
 ;;68115-0322-40
 ;;9002226.02101,"734,68115-0325-28 ",.01)
 ;;68115-0325-28
 ;;9002226.02101,"734,68115-0325-28 ",.02)
 ;;68115-0325-28
 ;;9002226.02101,"734,68115-0325-40 ",.01)
 ;;68115-0325-40
 ;;9002226.02101,"734,68115-0325-40 ",.02)
 ;;68115-0325-40
 ;;9002226.02101,"734,68115-0326-20 ",.01)
 ;;68115-0326-20
 ;;9002226.02101,"734,68115-0326-20 ",.02)
 ;;68115-0326-20
 ;;9002226.02101,"734,68115-0326-28 ",.01)
 ;;68115-0326-28
 ;;9002226.02101,"734,68115-0326-28 ",.02)
 ;;68115-0326-28
 ;;9002226.02101,"734,68115-0326-40 ",.01)
 ;;68115-0326-40
 ;;9002226.02101,"734,68115-0326-40 ",.02)
 ;;68115-0326-40
 ;;9002226.02101,"734,68115-0326-60 ",.01)
 ;;68115-0326-60
 ;;9002226.02101,"734,68115-0326-60 ",.02)
 ;;68115-0326-60
 ;;9002226.02101,"734,68115-0364-04 ",.01)
 ;;68115-0364-04
 ;;9002226.02101,"734,68115-0364-04 ",.02)
 ;;68115-0364-04
 ;;9002226.02101,"734,68115-0364-50 ",.01)
 ;;68115-0364-50
 ;;9002226.02101,"734,68115-0364-50 ",.02)
 ;;68115-0364-50
 ;;9002226.02101,"734,68115-0386-20 ",.01)
 ;;68115-0386-20
 ;;9002226.02101,"734,68115-0386-20 ",.02)
 ;;68115-0386-20
 ;;9002226.02101,"734,68115-0421-09 ",.01)
 ;;68115-0421-09
 ;;9002226.02101,"734,68115-0421-09 ",.02)
 ;;68115-0421-09
 ;;9002226.02101,"734,68115-0421-28 ",.01)
 ;;68115-0421-28
 ;;9002226.02101,"734,68115-0421-28 ",.02)
 ;;68115-0421-28
 ;;9002226.02101,"734,68115-0445-22 ",.01)
 ;;68115-0445-22
 ;;9002226.02101,"734,68115-0445-22 ",.02)
 ;;68115-0445-22
 ;;9002226.02101,"734,68115-0446-01 ",.01)
 ;;68115-0446-01
 ;;9002226.02101,"734,68115-0446-01 ",.02)
 ;;68115-0446-01
 ;;9002226.02101,"734,68115-0446-06 ",.01)
 ;;68115-0446-06
 ;;9002226.02101,"734,68115-0446-06 ",.02)
 ;;68115-0446-06
 ;;9002226.02101,"734,68115-0446-08 ",.01)
 ;;68115-0446-08
 ;;9002226.02101,"734,68115-0446-08 ",.02)
 ;;68115-0446-08
 ;;9002226.02101,"734,68115-0446-10 ",.01)
 ;;68115-0446-10
 ;;9002226.02101,"734,68115-0446-10 ",.02)
 ;;68115-0446-10
 ;;9002226.02101,"734,68115-0446-14 ",.01)
 ;;68115-0446-14
 ;;9002226.02101,"734,68115-0446-14 ",.02)
 ;;68115-0446-14
 ;;9002226.02101,"734,68115-0446-20 ",.01)
 ;;68115-0446-20
 ;;9002226.02101,"734,68115-0446-20 ",.02)
 ;;68115-0446-20
 ;;9002226.02101,"734,68115-0446-30 ",.01)
 ;;68115-0446-30
 ;;9002226.02101,"734,68115-0446-30 ",.02)
 ;;68115-0446-30
 ;;9002226.02101,"734,68115-0463-20 ",.01)
 ;;68115-0463-20
 ;;9002226.02101,"734,68115-0463-20 ",.02)
 ;;68115-0463-20
 ;;9002226.02101,"734,68115-0488-40 ",.01)
 ;;68115-0488-40
 ;;9002226.02101,"734,68115-0488-40 ",.02)
 ;;68115-0488-40
 ;;9002226.02101,"734,68115-0541-50 ",.01)
 ;;68115-0541-50
 ;;9002226.02101,"734,68115-0541-50 ",.02)
 ;;68115-0541-50
 ;;9002226.02101,"734,68115-0904-00 ",.01)
 ;;68115-0904-00
 ;;9002226.02101,"734,68115-0904-00 ",.02)
 ;;68115-0904-00
 ;;9002226.02101,"734,68115-0904-50 ",.01)
 ;;68115-0904-50
 ;;9002226.02101,"734,68115-0904-50 ",.02)
 ;;68115-0904-50
 ;;9002226.02101,"734,68115-0904-80 ",.01)
 ;;68115-0904-80
 ;;9002226.02101,"734,68115-0904-80 ",.02)
 ;;68115-0904-80
 ;;9002226.02101,"734,68115-0925-05 ",.01)
 ;;68115-0925-05
 ;;9002226.02101,"734,68115-0925-05 ",.02)
 ;;68115-0925-05
 ;;9002226.02101,"734,68115-0931-06 ",.01)
 ;;68115-0931-06
 ;;9002226.02101,"734,68115-0931-06 ",.02)
 ;;68115-0931-06
 ;;9002226.02101,"734,68115-0990-20 ",.01)
 ;;68115-0990-20
 ;;9002226.02101,"734,68115-0990-20 ",.02)
 ;;68115-0990-20
 ;;9002226.02101,"734,68115-0991-20 ",.01)
 ;;68115-0991-20
 ;;9002226.02101,"734,68115-0991-20 ",.02)
 ;;68115-0991-20
 ;;9002226.02101,"734,68115-0993-50 ",.01)
 ;;68115-0993-50
 ;;9002226.02101,"734,68115-0993-50 ",.02)
 ;;68115-0993-50
 ;;9002226.02101,"734,68115-0994-00 ",.01)
 ;;68115-0994-00
 ;;9002226.02101,"734,68115-0994-00 ",.02)
 ;;68115-0994-00
 ;;9002226.02101,"734,68180-0121-01 ",.01)
 ;;68180-0121-01
 ;;9002226.02101,"734,68180-0121-01 ",.02)
 ;;68180-0121-01
 ;;9002226.02101,"734,68180-0121-02 ",.01)
 ;;68180-0121-02
 ;;9002226.02101,"734,68180-0121-02 ",.02)
 ;;68180-0121-02
 ;;9002226.02101,"734,68180-0122-01 ",.01)
 ;;68180-0122-01
 ;;9002226.02101,"734,68180-0122-01 ",.02)
 ;;68180-0122-01
 ;;9002226.02101,"734,68180-0122-02 ",.01)
 ;;68180-0122-02
 ;;9002226.02101,"734,68180-0122-02 ",.02)
 ;;68180-0122-02
 ;;9002226.02101,"734,68180-0123-01 ",.01)
 ;;68180-0123-01
 ;;9002226.02101,"734,68180-0123-01 ",.02)
 ;;68180-0123-01
 ;;9002226.02101,"734,68180-0123-02 ",.01)
 ;;68180-0123-02
 ;;9002226.02101,"734,68180-0123-02 ",.02)
 ;;68180-0123-02
 ;;9002226.02101,"734,68180-0124-01 ",.01)
 ;;68180-0124-01
 ;;9002226.02101,"734,68180-0124-01 ",.02)
 ;;68180-0124-01
 ;;9002226.02101,"734,68180-0124-02 ",.01)
 ;;68180-0124-02
 ;;9002226.02101,"734,68180-0124-02 ",.02)
 ;;68180-0124-02
 ;;9002226.02101,"734,68180-0180-01 ",.01)
 ;;68180-0180-01
 ;;9002226.02101,"734,68180-0180-01 ",.02)
 ;;68180-0180-01
 ;;9002226.02101,"734,68180-0180-08 ",.01)
 ;;68180-0180-08
 ;;9002226.02101,"734,68180-0180-08 ",.02)
 ;;68180-0180-08
 ;;9002226.02101,"734,68180-0181-01 ",.01)
 ;;68180-0181-01
 ;;9002226.02101,"734,68180-0181-01 ",.02)
 ;;68180-0181-01
 ;;9002226.02101,"734,68180-0181-02 ",.01)
 ;;68180-0181-02
 ;;9002226.02101,"734,68180-0181-02 ",.02)
 ;;68180-0181-02
 ;;9002226.02101,"734,68180-0182-02 ",.01)
 ;;68180-0182-02
 ;;9002226.02101,"734,68180-0182-02 ",.02)
 ;;68180-0182-02
 ;;9002226.02101,"734,68180-0182-03 ",.01)
 ;;68180-0182-03
 ;;9002226.02101,"734,68180-0182-03 ",.02)
 ;;68180-0182-03
 ;;9002226.02101,"734,68180-0202-01 ",.01)
 ;;68180-0202-01
 ;;9002226.02101,"734,68180-0202-01 ",.02)
 ;;68180-0202-01
 ;;9002226.02101,"734,68180-0202-02 ",.01)
 ;;68180-0202-02
 ;;9002226.02101,"734,68180-0202-02 ",.02)
 ;;68180-0202-02
 ;;9002226.02101,"734,68180-0202-03 ",.01)
 ;;68180-0202-03
 ;;9002226.02101,"734,68180-0202-03 ",.02)
 ;;68180-0202-03
 ;;9002226.02101,"734,68180-0240-01 ",.01)
 ;;68180-0240-01
 ;;9002226.02101,"734,68180-0240-01 ",.02)
 ;;68180-0240-01
 ;;9002226.02101,"734,68180-0240-08 ",.01)
 ;;68180-0240-08
 ;;9002226.02101,"734,68180-0240-08 ",.02)
 ;;68180-0240-08
 ;;9002226.02101,"734,68180-0241-01 ",.01)
 ;;68180-0241-01
 ;;9002226.02101,"734,68180-0241-01 ",.02)
 ;;68180-0241-01
 ;;9002226.02101,"734,68180-0241-08 ",.01)
 ;;68180-0241-08
 ;;9002226.02101,"734,68180-0241-08 ",.02)
 ;;68180-0241-08
 ;;9002226.02101,"734,68180-0242-01 ",.01)
 ;;68180-0242-01
 ;;9002226.02101,"734,68180-0242-01 ",.02)
 ;;68180-0242-01
 ;;9002226.02101,"734,68180-0242-20 ",.01)
 ;;68180-0242-20
 ;;9002226.02101,"734,68180-0242-20 ",.02)
 ;;68180-0242-20
 ;;9002226.02101,"734,68180-0302-20 ",.01)
 ;;68180-0302-20
 ;;9002226.02101,"734,68180-0302-20 ",.02)
 ;;68180-0302-20
 ;;9002226.02101,"734,68180-0302-60 ",.01)
 ;;68180-0302-60
 ;;9002226.02101,"734,68180-0302-60 ",.02)
 ;;68180-0302-60
 ;;9002226.02101,"734,68180-0303-20 ",.01)
 ;;68180-0303-20
 ;;9002226.02101,"734,68180-0303-20 ",.02)
 ;;68180-0303-20
 ;;9002226.02101,"734,68180-0303-60 ",.01)
 ;;68180-0303-60
 ;;9002226.02101,"734,68180-0303-60 ",.02)
 ;;68180-0303-60
 ;;9002226.02101,"734,68180-0401-01 ",.01)
 ;;68180-0401-01
 ;;9002226.02101,"734,68180-0401-01 ",.02)
 ;;68180-0401-01
 ;;9002226.02101,"734,68180-0401-02 ",.01)
 ;;68180-0401-02
 ;;9002226.02101,"734,68180-0401-02 ",.02)
 ;;68180-0401-02
 ;;9002226.02101,"734,68180-0401-03 ",.01)
 ;;68180-0401-03
 ;;9002226.02101,"734,68180-0401-03 ",.02)
 ;;68180-0401-03
 ;;9002226.02101,"734,68180-0402-01 ",.01)
 ;;68180-0402-01
 ;;9002226.02101,"734,68180-0402-01 ",.02)
 ;;68180-0402-01
 ;;9002226.02101,"734,68180-0402-02 ",.01)
 ;;68180-0402-02
 ;;9002226.02101,"734,68180-0402-02 ",.02)
 ;;68180-0402-02
 ;;9002226.02101,"734,68180-0402-03 ",.01)
 ;;68180-0402-03
 ;;9002226.02101,"734,68180-0402-03 ",.02)
 ;;68180-0402-03
 ;;9002226.02101,"734,68180-0403-01 ",.01)
 ;;68180-0403-01
 ;;9002226.02101,"734,68180-0403-01 ",.02)
 ;;68180-0403-01
 ;;9002226.02101,"734,68180-0404-01 ",.01)
 ;;68180-0404-01
 ;;9002226.02101,"734,68180-0404-01 ",.02)
 ;;68180-0404-01
 ;;9002226.02101,"734,68180-0404-02 ",.01)
 ;;68180-0404-02
 ;;9002226.02101,"734,68180-0404-02 ",.02)
 ;;68180-0404-02
 ;;9002226.02101,"734,68180-0611-01 ",.01)
 ;;68180-0611-01
 ;;9002226.02101,"734,68180-0611-01 ",.02)
 ;;68180-0611-01
 ;;9002226.02101,"734,68180-0611-10 ",.01)
 ;;68180-0611-10
 ;;9002226.02101,"734,68180-0611-10 ",.02)
 ;;68180-0611-10
 ;;9002226.02101,"734,68180-0622-01 ",.01)
 ;;68180-0622-01
 ;;9002226.02101,"734,68180-0622-01 ",.02)
 ;;68180-0622-01
 ;;9002226.02101,"734,68180-0622-10 ",.01)
 ;;68180-0622-10
 ;;9002226.02101,"734,68180-0622-10 ",.02)
 ;;68180-0622-10
 ;;9002226.02101,"734,68180-0633-01 ",.01)
 ;;68180-0633-01
 ;;9002226.02101,"734,68180-0633-01 ",.02)
 ;;68180-0633-01
 ;;9002226.02101,"734,68180-0633-10 ",.01)
 ;;68180-0633-10
 ;;9002226.02101,"734,68180-0633-10 ",.02)
 ;;68180-0633-10
 ;;9002226.02101,"734,68180-0644-01 ",.01)
 ;;68180-0644-01
 ;;9002226.02101,"734,68180-0644-01 ",.02)
 ;;68180-0644-01
 ;;9002226.02101,"734,68180-0644-10 ",.01)
 ;;68180-0644-10
 ;;9002226.02101,"734,68180-0644-10 ",.02)
 ;;68180-0644-10
 ;;9002226.02101,"734,68180-0711-60 ",.01)
 ;;68180-0711-60
 ;;9002226.02101,"734,68180-0711-60 ",.02)
 ;;68180-0711-60
 ;;9002226.02101,"734,68180-0722-10 ",.01)
 ;;68180-0722-10
 ;;9002226.02101,"734,68180-0722-10 ",.02)
 ;;68180-0722-10
 ;;9002226.02101,"734,68180-0722-20 ",.01)
 ;;68180-0722-20
 ;;9002226.02101,"734,68180-0722-20 ",.02)
 ;;68180-0722-20
 ;;9002226.02101,"734,68180-0723-10 ",.01)
 ;;68180-0723-10
 ;;9002226.02101,"734,68180-0723-10 ",.02)
 ;;68180-0723-10
 ;;9002226.02101,"734,68180-0723-20 ",.01)
 ;;68180-0723-20
 ;;9002226.02101,"734,68180-0723-20 ",.02)
 ;;68180-0723-20
 ;;9002226.02101,"734,68258-3012-01 ",.01)
 ;;68258-3012-01
 ;;9002226.02101,"734,68258-3012-01 ",.02)
 ;;68258-3012-01
 ;;9002226.02101,"734,68258-9300-02 ",.01)
 ;;68258-9300-02
 ;;9002226.02101,"734,68258-9300-02 ",.02)
 ;;68258-9300-02
 ;;9002226.02101,"734,68330-0001-01 ",.01)
 ;;68330-0001-01
 ;;9002226.02101,"734,68330-0001-01 ",.02)
 ;;68330-0001-01