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

BGP72B13.m

Go to the documentation of this file.
BGP72B13 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"1224,42291-0669-90 ",.01)
 ;;42291-0669-90
 ;;9002226.02101,"1224,42291-0669-90 ",.02)
 ;;42291-0669-90
 ;;9002226.02101,"1224,42549-0708-30 ",.01)
 ;;42549-0708-30
 ;;9002226.02101,"1224,42549-0708-30 ",.02)
 ;;42549-0708-30
 ;;9002226.02101,"1224,42571-0005-90 ",.01)
 ;;42571-0005-90
 ;;9002226.02101,"1224,42571-0005-90 ",.02)
 ;;42571-0005-90
 ;;9002226.02101,"1224,42571-0010-05 ",.01)
 ;;42571-0010-05
 ;;9002226.02101,"1224,42571-0010-05 ",.02)
 ;;42571-0010-05
 ;;9002226.02101,"1224,42571-0010-90 ",.01)
 ;;42571-0010-90
 ;;9002226.02101,"1224,42571-0010-90 ",.02)
 ;;42571-0010-90
 ;;9002226.02101,"1224,42571-0020-10 ",.01)
 ;;42571-0020-10
 ;;9002226.02101,"1224,42571-0020-10 ",.02)
 ;;42571-0020-10
 ;;9002226.02101,"1224,42571-0020-90 ",.01)
 ;;42571-0020-90
 ;;9002226.02101,"1224,42571-0020-90 ",.02)
 ;;42571-0020-90
 ;;9002226.02101,"1224,42571-0040-10 ",.01)
 ;;42571-0040-10
 ;;9002226.02101,"1224,42571-0040-10 ",.02)
 ;;42571-0040-10
 ;;9002226.02101,"1224,42571-0040-90 ",.01)
 ;;42571-0040-90
 ;;9002226.02101,"1224,42571-0040-90 ",.02)
 ;;42571-0040-90
 ;;9002226.02101,"1224,42571-0080-05 ",.01)
 ;;42571-0080-05
 ;;9002226.02101,"1224,42571-0080-05 ",.02)
 ;;42571-0080-05
 ;;9002226.02101,"1224,42571-0080-90 ",.01)
 ;;42571-0080-90
 ;;9002226.02101,"1224,42571-0080-90 ",.02)
 ;;42571-0080-90
 ;;9002226.02101,"1224,43063-0008-01 ",.01)
 ;;43063-0008-01
 ;;9002226.02101,"1224,43063-0008-01 ",.02)
 ;;43063-0008-01
 ;;9002226.02101,"1224,43063-0080-30 ",.01)
 ;;43063-0080-30
 ;;9002226.02101,"1224,43063-0080-30 ",.02)
 ;;43063-0080-30
 ;;9002226.02101,"1224,43063-0080-90 ",.01)
 ;;43063-0080-90
 ;;9002226.02101,"1224,43063-0080-90 ",.02)
 ;;43063-0080-90
 ;;9002226.02101,"1224,43063-0143-30 ",.01)
 ;;43063-0143-30
 ;;9002226.02101,"1224,43063-0143-30 ",.02)
 ;;43063-0143-30
 ;;9002226.02101,"1224,43063-0162-30 ",.01)
 ;;43063-0162-30
 ;;9002226.02101,"1224,43063-0162-30 ",.02)
 ;;43063-0162-30
 ;;9002226.02101,"1224,43063-0195-30 ",.01)
 ;;43063-0195-30
 ;;9002226.02101,"1224,43063-0195-30 ",.02)
 ;;43063-0195-30
 ;;9002226.02101,"1224,43063-0373-30 ",.01)
 ;;43063-0373-30
 ;;9002226.02101,"1224,43063-0373-30 ",.02)
 ;;43063-0373-30
 ;;9002226.02101,"1224,43063-0443-30 ",.01)
 ;;43063-0443-30
 ;;9002226.02101,"1224,43063-0443-30 ",.02)
 ;;43063-0443-30
 ;;9002226.02101,"1224,43063-0444-30 ",.01)
 ;;43063-0444-30
 ;;9002226.02101,"1224,43063-0444-30 ",.02)
 ;;43063-0444-30
 ;;9002226.02101,"1224,43063-0453-30 ",.01)
 ;;43063-0453-30
 ;;9002226.02101,"1224,43063-0453-30 ",.02)
 ;;43063-0453-30
 ;;9002226.02101,"1224,43063-0496-60 ",.01)
 ;;43063-0496-60
 ;;9002226.02101,"1224,43063-0496-60 ",.02)
 ;;43063-0496-60
 ;;9002226.02101,"1224,43063-0548-14 ",.01)
 ;;43063-0548-14
 ;;9002226.02101,"1224,43063-0548-14 ",.02)
 ;;43063-0548-14
 ;;9002226.02101,"1224,43063-0548-30 ",.01)
 ;;43063-0548-30
 ;;9002226.02101,"1224,43063-0548-30 ",.02)
 ;;43063-0548-30
 ;;9002226.02101,"1224,43063-0548-90 ",.01)
 ;;43063-0548-90
 ;;9002226.02101,"1224,43063-0548-90 ",.02)
 ;;43063-0548-90
 ;;9002226.02101,"1224,43063-0593-30 ",.01)
 ;;43063-0593-30
 ;;9002226.02101,"1224,43063-0593-30 ",.02)
 ;;43063-0593-30
 ;;9002226.02101,"1224,43063-0593-90 ",.01)
 ;;43063-0593-90
 ;;9002226.02101,"1224,43063-0593-90 ",.02)
 ;;43063-0593-90
 ;;9002226.02101,"1224,43353-0031-15 ",.01)
 ;;43353-0031-15
 ;;9002226.02101,"1224,43353-0031-15 ",.02)
 ;;43353-0031-15
 ;;9002226.02101,"1224,43353-0031-45 ",.01)
 ;;43353-0031-45
 ;;9002226.02101,"1224,43353-0031-45 ",.02)
 ;;43353-0031-45
 ;;9002226.02101,"1224,43353-0031-60 ",.01)
 ;;43353-0031-60
 ;;9002226.02101,"1224,43353-0031-60 ",.02)
 ;;43353-0031-60
 ;;9002226.02101,"1224,43353-0031-82 ",.01)
 ;;43353-0031-82
 ;;9002226.02101,"1224,43353-0031-82 ",.02)
 ;;43353-0031-82
 ;;9002226.02101,"1224,43353-0031-91 ",.01)
 ;;43353-0031-91
 ;;9002226.02101,"1224,43353-0031-91 ",.02)
 ;;43353-0031-91
 ;;9002226.02101,"1224,43353-0115-45 ",.01)
 ;;43353-0115-45
 ;;9002226.02101,"1224,43353-0115-45 ",.02)
 ;;43353-0115-45
 ;;9002226.02101,"1224,43353-0115-60 ",.01)
 ;;43353-0115-60
 ;;9002226.02101,"1224,43353-0115-60 ",.02)
 ;;43353-0115-60
 ;;9002226.02101,"1224,43353-0227-15 ",.01)
 ;;43353-0227-15
 ;;9002226.02101,"1224,43353-0227-15 ",.02)
 ;;43353-0227-15
 ;;9002226.02101,"1224,43353-0227-45 ",.01)
 ;;43353-0227-45
 ;;9002226.02101,"1224,43353-0227-45 ",.02)
 ;;43353-0227-45
 ;;9002226.02101,"1224,43353-0228-15 ",.01)
 ;;43353-0228-15
 ;;9002226.02101,"1224,43353-0228-15 ",.02)
 ;;43353-0228-15
 ;;9002226.02101,"1224,43353-0228-30 ",.01)
 ;;43353-0228-30
 ;;9002226.02101,"1224,43353-0228-30 ",.02)
 ;;43353-0228-30
 ;;9002226.02101,"1224,43353-0228-45 ",.01)
 ;;43353-0228-45
 ;;9002226.02101,"1224,43353-0228-45 ",.02)
 ;;43353-0228-45
 ;;9002226.02101,"1224,43353-0228-60 ",.01)
 ;;43353-0228-60
 ;;9002226.02101,"1224,43353-0228-60 ",.02)
 ;;43353-0228-60
 ;;9002226.02101,"1224,43353-0229-15 ",.01)
 ;;43353-0229-15
 ;;9002226.02101,"1224,43353-0229-15 ",.02)
 ;;43353-0229-15
 ;;9002226.02101,"1224,43353-0229-30 ",.01)
 ;;43353-0229-30
 ;;9002226.02101,"1224,43353-0229-30 ",.02)
 ;;43353-0229-30
 ;;9002226.02101,"1224,43353-0229-45 ",.01)
 ;;43353-0229-45
 ;;9002226.02101,"1224,43353-0229-45 ",.02)
 ;;43353-0229-45
 ;;9002226.02101,"1224,43353-0229-60 ",.01)
 ;;43353-0229-60
 ;;9002226.02101,"1224,43353-0229-60 ",.02)
 ;;43353-0229-60
 ;;9002226.02101,"1224,43353-0289-15 ",.01)
 ;;43353-0289-15
 ;;9002226.02101,"1224,43353-0289-15 ",.02)
 ;;43353-0289-15
 ;;9002226.02101,"1224,43353-0289-17 ",.01)
 ;;43353-0289-17
 ;;9002226.02101,"1224,43353-0289-17 ",.02)
 ;;43353-0289-17
 ;;9002226.02101,"1224,43353-0289-45 ",.01)
 ;;43353-0289-45
 ;;9002226.02101,"1224,43353-0289-45 ",.02)
 ;;43353-0289-45
 ;;9002226.02101,"1224,43353-0289-91 ",.01)
 ;;43353-0289-91
 ;;9002226.02101,"1224,43353-0289-91 ",.02)
 ;;43353-0289-91
 ;;9002226.02101,"1224,43353-0290-15 ",.01)
 ;;43353-0290-15
 ;;9002226.02101,"1224,43353-0290-15 ",.02)
 ;;43353-0290-15
 ;;9002226.02101,"1224,43353-0290-45 ",.01)
 ;;43353-0290-45
 ;;9002226.02101,"1224,43353-0290-45 ",.02)
 ;;43353-0290-45
 ;;9002226.02101,"1224,43353-0394-15 ",.01)
 ;;43353-0394-15
 ;;9002226.02101,"1224,43353-0394-15 ",.02)
 ;;43353-0394-15
 ;;9002226.02101,"1224,43353-0394-30 ",.01)
 ;;43353-0394-30
 ;;9002226.02101,"1224,43353-0394-30 ",.02)
 ;;43353-0394-30
 ;;9002226.02101,"1224,43353-0394-45 ",.01)
 ;;43353-0394-45
 ;;9002226.02101,"1224,43353-0394-45 ",.02)
 ;;43353-0394-45
 ;;9002226.02101,"1224,43353-0394-60 ",.01)
 ;;43353-0394-60
 ;;9002226.02101,"1224,43353-0394-60 ",.02)
 ;;43353-0394-60
 ;;9002226.02101,"1224,43353-0474-45 ",.01)
 ;;43353-0474-45
 ;;9002226.02101,"1224,43353-0474-45 ",.02)
 ;;43353-0474-45
 ;;9002226.02101,"1224,43353-0496-45 ",.01)
 ;;43353-0496-45
 ;;9002226.02101,"1224,43353-0496-45 ",.02)
 ;;43353-0496-45
 ;;9002226.02101,"1224,43353-0664-15 ",.01)
 ;;43353-0664-15
 ;;9002226.02101,"1224,43353-0664-15 ",.02)
 ;;43353-0664-15
 ;;9002226.02101,"1224,43353-0664-30 ",.01)
 ;;43353-0664-30
 ;;9002226.02101,"1224,43353-0664-30 ",.02)
 ;;43353-0664-30
 ;;9002226.02101,"1224,43353-0664-45 ",.01)
 ;;43353-0664-45
 ;;9002226.02101,"1224,43353-0664-45 ",.02)
 ;;43353-0664-45
 ;;9002226.02101,"1224,43353-0664-60 ",.01)
 ;;43353-0664-60
 ;;9002226.02101,"1224,43353-0664-60 ",.02)
 ;;43353-0664-60
 ;;9002226.02101,"1224,43353-0685-45 ",.01)
 ;;43353-0685-45
 ;;9002226.02101,"1224,43353-0685-45 ",.02)
 ;;43353-0685-45
 ;;9002226.02101,"1224,43353-0718-45 ",.01)
 ;;43353-0718-45
 ;;9002226.02101,"1224,43353-0718-45 ",.02)
 ;;43353-0718-45
 ;;9002226.02101,"1224,43353-0718-60 ",.01)
 ;;43353-0718-60
 ;;9002226.02101,"1224,43353-0718-60 ",.02)
 ;;43353-0718-60
 ;;9002226.02101,"1224,43353-0763-45 ",.01)
 ;;43353-0763-45
 ;;9002226.02101,"1224,43353-0763-45 ",.02)
 ;;43353-0763-45
 ;;9002226.02101,"1224,43353-0768-15 ",.01)
 ;;43353-0768-15
 ;;9002226.02101,"1224,43353-0768-15 ",.02)
 ;;43353-0768-15
 ;;9002226.02101,"1224,43353-0773-15 ",.01)
 ;;43353-0773-15
 ;;9002226.02101,"1224,43353-0773-15 ",.02)
 ;;43353-0773-15
 ;;9002226.02101,"1224,43353-0773-45 ",.01)
 ;;43353-0773-45
 ;;9002226.02101,"1224,43353-0773-45 ",.02)
 ;;43353-0773-45
 ;;9002226.02101,"1224,43353-0773-60 ",.01)
 ;;43353-0773-60
 ;;9002226.02101,"1224,43353-0773-60 ",.02)
 ;;43353-0773-60
 ;;9002226.02101,"1224,43353-0774-15 ",.01)
 ;;43353-0774-15
 ;;9002226.02101,"1224,43353-0774-15 ",.02)
 ;;43353-0774-15
 ;;9002226.02101,"1224,43353-0774-45 ",.01)
 ;;43353-0774-45
 ;;9002226.02101,"1224,43353-0774-45 ",.02)
 ;;43353-0774-45
 ;;9002226.02101,"1224,43353-0774-60 ",.01)
 ;;43353-0774-60
 ;;9002226.02101,"1224,43353-0774-60 ",.02)
 ;;43353-0774-60
 ;;9002226.02101,"1224,43353-0815-15 ",.01)
 ;;43353-0815-15
 ;;9002226.02101,"1224,43353-0815-15 ",.02)
 ;;43353-0815-15
 ;;9002226.02101,"1224,43353-0815-30 ",.01)
 ;;43353-0815-30
 ;;9002226.02101,"1224,43353-0815-30 ",.02)
 ;;43353-0815-30
 ;;9002226.02101,"1224,43353-0815-45 ",.01)
 ;;43353-0815-45
 ;;9002226.02101,"1224,43353-0815-45 ",.02)
 ;;43353-0815-45
 ;;9002226.02101,"1224,43353-0815-60 ",.01)
 ;;43353-0815-60
 ;;9002226.02101,"1224,43353-0815-60 ",.02)
 ;;43353-0815-60
 ;;9002226.02101,"1224,43353-0821-15 ",.01)
 ;;43353-0821-15
 ;;9002226.02101,"1224,43353-0821-15 ",.02)
 ;;43353-0821-15
 ;;9002226.02101,"1224,43353-0821-45 ",.01)
 ;;43353-0821-45
 ;;9002226.02101,"1224,43353-0821-45 ",.02)
 ;;43353-0821-45
 ;;9002226.02101,"1224,43353-0826-15 ",.01)
 ;;43353-0826-15
 ;;9002226.02101,"1224,43353-0826-15 ",.02)
 ;;43353-0826-15
 ;;9002226.02101,"1224,43353-0826-45 ",.01)
 ;;43353-0826-45
 ;;9002226.02101,"1224,43353-0826-45 ",.02)
 ;;43353-0826-45
 ;;9002226.02101,"1224,43353-0827-15 ",.01)
 ;;43353-0827-15
 ;;9002226.02101,"1224,43353-0827-15 ",.02)
 ;;43353-0827-15
 ;;9002226.02101,"1224,43353-0827-30 ",.01)
 ;;43353-0827-30
 ;;9002226.02101,"1224,43353-0827-30 ",.02)
 ;;43353-0827-30
 ;;9002226.02101,"1224,43353-0827-45 ",.01)
 ;;43353-0827-45
 ;;9002226.02101,"1224,43353-0827-45 ",.02)
 ;;43353-0827-45
 ;;9002226.02101,"1224,43353-0827-53 ",.01)
 ;;43353-0827-53
 ;;9002226.02101,"1224,43353-0827-53 ",.02)
 ;;43353-0827-53
 ;;9002226.02101,"1224,43353-0827-60 ",.01)
 ;;43353-0827-60
 ;;9002226.02101,"1224,43353-0827-60 ",.02)
 ;;43353-0827-60
 ;;9002226.02101,"1224,43353-0843-15 ",.01)
 ;;43353-0843-15
 ;;9002226.02101,"1224,43353-0843-15 ",.02)
 ;;43353-0843-15
 ;;9002226.02101,"1224,43353-0843-30 ",.01)
 ;;43353-0843-30
 ;;9002226.02101,"1224,43353-0843-30 ",.02)
 ;;43353-0843-30
 ;;9002226.02101,"1224,43353-0843-45 ",.01)
 ;;43353-0843-45
 ;;9002226.02101,"1224,43353-0843-45 ",.02)
 ;;43353-0843-45
 ;;9002226.02101,"1224,43353-0844-30 ",.01)
 ;;43353-0844-30
 ;;9002226.02101,"1224,43353-0844-30 ",.02)
 ;;43353-0844-30
 ;;9002226.02101,"1224,43353-0844-45 ",.01)
 ;;43353-0844-45
 ;;9002226.02101,"1224,43353-0844-45 ",.02)
 ;;43353-0844-45
 ;;9002226.02101,"1224,43353-0851-09 ",.01)
 ;;43353-0851-09
 ;;9002226.02101,"1224,43353-0851-09 ",.02)
 ;;43353-0851-09
 ;;9002226.02101,"1224,43353-0856-15 ",.01)
 ;;43353-0856-15
 ;;9002226.02101,"1224,43353-0856-15 ",.02)
 ;;43353-0856-15
 ;;9002226.02101,"1224,43353-0856-17 ",.01)
 ;;43353-0856-17
 ;;9002226.02101,"1224,43353-0856-17 ",.02)
 ;;43353-0856-17
 ;;9002226.02101,"1224,43353-0856-30 ",.01)
 ;;43353-0856-30
 ;;9002226.02101,"1224,43353-0856-30 ",.02)
 ;;43353-0856-30
 ;;9002226.02101,"1224,43353-0856-45 ",.01)
 ;;43353-0856-45
 ;;9002226.02101,"1224,43353-0856-45 ",.02)
 ;;43353-0856-45
 ;;9002226.02101,"1224,43353-0856-60 ",.01)
 ;;43353-0856-60