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

BGP8YA3.m

Go to the documentation of this file.
BGP8YA3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"2231,43598-0412-25 ",.01)
 ;;43598-0412-25
 ;;9002226.02101,"2231,43598-0412-25 ",.02)
 ;;43598-0412-25
 ;;9002226.02101,"2231,49502-0605-30 ",.01)
 ;;49502-0605-30
 ;;9002226.02101,"2231,49502-0605-30 ",.02)
 ;;49502-0605-30
 ;;9002226.02101,"2231,49502-0605-61 ",.01)
 ;;49502-0605-61
 ;;9002226.02101,"2231,49502-0605-61 ",.02)
 ;;49502-0605-61
 ;;9002226.02101,"2231,49502-0605-95 ",.01)
 ;;49502-0605-95
 ;;9002226.02101,"2231,49502-0605-95 ",.02)
 ;;49502-0605-95
 ;;9002226.02101,"2231,49999-0344-25 ",.01)
 ;;49999-0344-25
 ;;9002226.02101,"2231,49999-0344-25 ",.02)
 ;;49999-0344-25
 ;;9002226.02101,"2231,50383-0741-20 ",.01)
 ;;50383-0741-20
 ;;9002226.02101,"2231,50383-0741-20 ",.02)
 ;;50383-0741-20
 ;;9002226.02101,"2231,52959-0741-20 ",.01)
 ;;52959-0741-20
 ;;9002226.02101,"2231,52959-0741-20 ",.02)
 ;;52959-0741-20
 ;;9002226.02101,"2231,53217-0008-01 ",.01)
 ;;53217-0008-01
 ;;9002226.02101,"2231,53217-0008-01 ",.02)
 ;;53217-0008-01
 ;;9002226.02101,"2231,54569-3899-00 ",.01)
 ;;54569-3899-00
 ;;9002226.02101,"2231,54569-3899-00 ",.02)
 ;;54569-3899-00
 ;;9002226.02101,"2231,54569-3899-01 ",.01)
 ;;54569-3899-01
 ;;9002226.02101,"2231,54569-3899-01 ",.02)
 ;;54569-3899-01
 ;;9002226.02101,"2231,54569-3900-00 ",.01)
 ;;54569-3900-00
 ;;9002226.02101,"2231,54569-3900-00 ",.02)
 ;;54569-3900-00
 ;;9002226.02101,"2231,54569-4748-00 ",.01)
 ;;54569-4748-00
 ;;9002226.02101,"2231,54569-4748-00 ",.02)
 ;;54569-4748-00
 ;;9002226.02101,"2231,54569-4910-00 ",.01)
 ;;54569-4910-00
 ;;9002226.02101,"2231,54569-4910-00 ",.02)
 ;;54569-4910-00
 ;;9002226.02101,"2231,54569-5445-00 ",.01)
 ;;54569-5445-00
 ;;9002226.02101,"2231,54569-5445-00 ",.02)
 ;;54569-5445-00
 ;;9002226.02101,"2231,54569-6381-00 ",.01)
 ;;54569-6381-00
 ;;9002226.02101,"2231,54569-6381-00 ",.02)
 ;;54569-6381-00
 ;;9002226.02101,"2231,54569-6445-00 ",.01)
 ;;54569-6445-00
 ;;9002226.02101,"2231,54569-6445-00 ",.02)
 ;;54569-6445-00
 ;;9002226.02101,"2231,54868-2472-00 ",.01)
 ;;54868-2472-00
 ;;9002226.02101,"2231,54868-2472-00 ",.02)
 ;;54868-2472-00
 ;;9002226.02101,"2231,54868-2472-01 ",.01)
 ;;54868-2472-01
 ;;9002226.02101,"2231,54868-2472-01 ",.02)
 ;;54868-2472-01
 ;;9002226.02101,"2231,54868-3407-00 ",.01)
 ;;54868-3407-00
 ;;9002226.02101,"2231,54868-3407-00 ",.02)
 ;;54868-3407-00
 ;;9002226.02101,"2231,54868-4082-00 ",.01)
 ;;54868-4082-00
 ;;9002226.02101,"2231,54868-4082-00 ",.02)
 ;;54868-4082-00
 ;;9002226.02101,"2231,54868-4082-01 ",.01)
 ;;54868-4082-01
 ;;9002226.02101,"2231,54868-4082-01 ",.02)
 ;;54868-4082-01
 ;;9002226.02101,"2231,54868-4409-00 ",.01)
 ;;54868-4409-00
 ;;9002226.02101,"2231,54868-4409-00 ",.02)
 ;;54868-4409-00
 ;;9002226.02101,"2231,54868-5459-00 ",.01)
 ;;54868-5459-00
 ;;9002226.02101,"2231,54868-5459-00 ",.02)
 ;;54868-5459-00
 ;;9002226.02101,"2231,54868-5709-00 ",.01)
 ;;54868-5709-00
 ;;9002226.02101,"2231,54868-5709-00 ",.02)
 ;;54868-5709-00
 ;;9002226.02101,"2231,54868-5974-00 ",.01)
 ;;54868-5974-00
 ;;9002226.02101,"2231,54868-5974-00 ",.02)
 ;;54868-5974-00
 ;;9002226.02101,"2231,54868-6021-00 ",.01)
 ;;54868-6021-00
 ;;9002226.02101,"2231,54868-6021-00 ",.02)
 ;;54868-6021-00
 ;;9002226.02101,"2231,58118-0002-09 ",.01)
 ;;58118-0002-09
 ;;9002226.02101,"2231,58118-0002-09 ",.02)
 ;;58118-0002-09
 ;;9002226.02101,"2231,60760-0542-60 ",.01)
 ;;60760-0542-60
 ;;9002226.02101,"2231,60760-0542-60 ",.02)
 ;;60760-0542-60
 ;;9002226.02101,"2231,63402-0511-00 ",.01)
 ;;63402-0511-00
 ;;9002226.02101,"2231,63402-0511-00 ",.02)
 ;;63402-0511-00
 ;;9002226.02101,"2231,63402-0511-24 ",.01)
 ;;63402-0511-24
 ;;9002226.02101,"2231,63402-0511-24 ",.02)
 ;;63402-0511-24
 ;;9002226.02101,"2231,63402-0512-00 ",.01)
 ;;63402-0512-00
 ;;9002226.02101,"2231,63402-0512-00 ",.02)
 ;;63402-0512-00
 ;;9002226.02101,"2231,63402-0512-24 ",.01)
 ;;63402-0512-24
 ;;9002226.02101,"2231,63402-0512-24 ",.02)
 ;;63402-0512-24
 ;;9002226.02101,"2231,63402-0513-00 ",.01)
 ;;63402-0513-00
 ;;9002226.02101,"2231,63402-0513-00 ",.02)
 ;;63402-0513-00
 ;;9002226.02101,"2231,63402-0513-24 ",.01)
 ;;63402-0513-24
 ;;9002226.02101,"2231,63402-0513-24 ",.02)
 ;;63402-0513-24
 ;;9002226.02101,"2231,63402-0515-00 ",.01)
 ;;63402-0515-00
 ;;9002226.02101,"2231,63402-0515-00 ",.02)
 ;;63402-0515-00
 ;;9002226.02101,"2231,63402-0515-30 ",.01)
 ;;63402-0515-30
 ;;9002226.02101,"2231,63402-0515-30 ",.02)
 ;;63402-0515-30
 ;;9002226.02101,"2231,63402-0911-01 ",.01)
 ;;63402-0911-01
 ;;9002226.02101,"2231,63402-0911-01 ",.02)
 ;;63402-0911-01
 ;;9002226.02101,"2231,63402-0911-04 ",.01)
 ;;63402-0911-04
 ;;9002226.02101,"2231,63402-0911-04 ",.02)
 ;;63402-0911-04
 ;;9002226.02101,"2231,63402-0911-30 ",.01)
 ;;63402-0911-30
 ;;9002226.02101,"2231,63402-0911-30 ",.02)
 ;;63402-0911-30
 ;;9002226.02101,"2231,63402-0911-64 ",.01)
 ;;63402-0911-64
 ;;9002226.02101,"2231,63402-0911-64 ",.02)
 ;;63402-0911-64
 ;;9002226.02101,"2231,65862-0905-25 ",.01)
 ;;65862-0905-25
 ;;9002226.02101,"2231,65862-0905-25 ",.02)
 ;;65862-0905-25
 ;;9002226.02101,"2231,65862-0905-30 ",.01)
 ;;65862-0905-30
 ;;9002226.02101,"2231,65862-0905-30 ",.02)
 ;;65862-0905-30
 ;;9002226.02101,"2231,65862-0905-60 ",.01)
 ;;65862-0905-60
 ;;9002226.02101,"2231,65862-0905-60 ",.02)
 ;;65862-0905-60
 ;;9002226.02101,"2231,66993-0021-27 ",.01)
 ;;66993-0021-27
 ;;9002226.02101,"2231,66993-0021-27 ",.02)
 ;;66993-0021-27
 ;;9002226.02101,"2231,66993-0021-35 ",.01)
 ;;66993-0021-35
 ;;9002226.02101,"2231,66993-0021-35 ",.02)
 ;;66993-0021-35
 ;;9002226.02101,"2231,66993-0022-27 ",.01)
 ;;66993-0022-27
 ;;9002226.02101,"2231,66993-0022-27 ",.02)
 ;;66993-0022-27
 ;;9002226.02101,"2231,66993-0022-35 ",.01)
 ;;66993-0022-35
 ;;9002226.02101,"2231,66993-0022-35 ",.02)
 ;;66993-0022-35
 ;;9002226.02101,"2231,66993-0023-27 ",.01)
 ;;66993-0023-27
 ;;9002226.02101,"2231,66993-0023-27 ",.02)
 ;;66993-0023-27
 ;;9002226.02101,"2231,66993-0023-35 ",.01)
 ;;66993-0023-35
 ;;9002226.02101,"2231,66993-0023-35 ",.02)
 ;;66993-0023-35
 ;;9002226.02101,"2231,68788-0134-02 ",.01)
 ;;68788-0134-02
 ;;9002226.02101,"2231,68788-0134-02 ",.02)
 ;;68788-0134-02
 ;;9002226.02101,"2231,68788-6777-02 ",.01)
 ;;68788-6777-02
 ;;9002226.02101,"2231,68788-6777-02 ",.02)
 ;;68788-6777-02
 ;;9002226.02101,"2231,69097-0173-48 ",.01)
 ;;69097-0173-48
 ;;9002226.02101,"2231,69097-0173-48 ",.02)
 ;;69097-0173-48
 ;;9002226.02101,"2231,69097-0173-53 ",.01)
 ;;69097-0173-53
 ;;9002226.02101,"2231,69097-0173-53 ",.02)
 ;;69097-0173-53
 ;;9002226.02101,"2231,69097-0173-64 ",.01)
 ;;69097-0173-64
 ;;9002226.02101,"2231,69097-0173-64 ",.02)
 ;;69097-0173-64
 ;;9002226.02101,"2231,70004-0020-87 ",.01)
 ;;70004-0020-87
 ;;9002226.02101,"2231,70004-0020-87 ",.02)
 ;;70004-0020-87
 ;;9002226.02101,"2231,76204-0002-24 ",.01)
 ;;76204-0002-24
 ;;9002226.02101,"2231,76204-0002-24 ",.02)
 ;;76204-0002-24
 ;;9002226.02101,"2231,76204-0003-24 ",.01)
 ;;76204-0003-24
 ;;9002226.02101,"2231,76204-0003-24 ",.02)
 ;;76204-0003-24
 ;;9002226.02101,"2231,76204-0100-01 ",.01)
 ;;76204-0100-01
 ;;9002226.02101,"2231,76204-0100-01 ",.02)
 ;;76204-0100-01
 ;;9002226.02101,"2231,76204-0100-25 ",.01)
 ;;76204-0100-25
 ;;9002226.02101,"2231,76204-0100-25 ",.02)
 ;;76204-0100-25
 ;;9002226.02101,"2231,76204-0100-30 ",.01)
 ;;76204-0100-30
 ;;9002226.02101,"2231,76204-0100-30 ",.02)
 ;;76204-0100-30
 ;;9002226.02101,"2231,76204-0100-60 ",.01)
 ;;76204-0100-60
 ;;9002226.02101,"2231,76204-0100-60 ",.02)
 ;;76204-0100-60
 ;;9002226.02101,"2231,76204-0200-01 ",.01)
 ;;76204-0200-01
 ;;9002226.02101,"2231,76204-0200-01 ",.02)
 ;;76204-0200-01
 ;;9002226.02101,"2231,76204-0200-25 ",.01)
 ;;76204-0200-25
 ;;9002226.02101,"2231,76204-0200-25 ",.02)
 ;;76204-0200-25
 ;;9002226.02101,"2231,76204-0200-30 ",.01)
 ;;76204-0200-30
 ;;9002226.02101,"2231,76204-0200-30 ",.02)
 ;;76204-0200-30
 ;;9002226.02101,"2231,76204-0200-60 ",.01)
 ;;76204-0200-60
 ;;9002226.02101,"2231,76204-0200-60 ",.02)
 ;;76204-0200-60
 ;;9002226.02101,"2231,76204-0600-01 ",.01)
 ;;76204-0600-01
 ;;9002226.02101,"2231,76204-0600-01 ",.02)
 ;;76204-0600-01
 ;;9002226.02101,"2231,76204-0600-05 ",.01)
 ;;76204-0600-05
 ;;9002226.02101,"2231,76204-0600-05 ",.02)
 ;;76204-0600-05
 ;;9002226.02101,"2231,76204-0600-12 ",.01)
 ;;76204-0600-12
 ;;9002226.02101,"2231,76204-0600-12 ",.02)
 ;;76204-0600-12
 ;;9002226.02101,"2231,76204-0600-30 ",.01)
 ;;76204-0600-30
 ;;9002226.02101,"2231,76204-0600-30 ",.02)
 ;;76204-0600-30
 ;;9002226.02101,"2231,76204-0600-60 ",.01)
 ;;76204-0600-60
 ;;9002226.02101,"2231,76204-0600-60 ",.02)
 ;;76204-0600-60
 ;;9002226.02101,"2231,76204-0700-12 ",.01)
 ;;76204-0700-12
 ;;9002226.02101,"2231,76204-0700-12 ",.02)
 ;;76204-0700-12
 ;;9002226.02101,"2231,76204-0700-24 ",.01)
 ;;76204-0700-24
 ;;9002226.02101,"2231,76204-0700-24 ",.02)
 ;;76204-0700-24
 ;;9002226.02101,"2231,76204-0800-12 ",.01)
 ;;76204-0800-12
 ;;9002226.02101,"2231,76204-0800-12 ",.02)
 ;;76204-0800-12
 ;;9002226.02101,"2231,76204-0800-24 ",.01)
 ;;76204-0800-24
 ;;9002226.02101,"2231,76204-0800-24 ",.02)
 ;;76204-0800-24
 ;;9002226.02101,"2231,76204-0900-12 ",.01)
 ;;76204-0900-12
 ;;9002226.02101,"2231,76204-0900-12 ",.02)
 ;;76204-0900-12
 ;;9002226.02101,"2231,76204-0900-24 ",.01)
 ;;76204-0900-24
 ;;9002226.02101,"2231,76204-0900-24 ",.02)
 ;;76204-0900-24