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

BGP8ZY15.m

Go to the documentation of this file.
BGP8ZY15 ;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,"873,49999-0877-30 ",.01)
 ;;49999-0877-30
 ;;9002226.02101,"873,49999-0877-30 ",.02)
 ;;49999-0877-30
 ;;9002226.02101,"873,49999-0877-90 ",.01)
 ;;49999-0877-90
 ;;9002226.02101,"873,49999-0877-90 ",.02)
 ;;49999-0877-90
 ;;9002226.02101,"873,49999-0878-00 ",.01)
 ;;49999-0878-00
 ;;9002226.02101,"873,49999-0878-00 ",.02)
 ;;49999-0878-00
 ;;9002226.02101,"873,49999-0878-30 ",.01)
 ;;49999-0878-30
 ;;9002226.02101,"873,49999-0878-30 ",.02)
 ;;49999-0878-30
 ;;9002226.02101,"873,49999-0878-90 ",.01)
 ;;49999-0878-90
 ;;9002226.02101,"873,49999-0878-90 ",.02)
 ;;49999-0878-90
 ;;9002226.02101,"873,49999-0879-00 ",.01)
 ;;49999-0879-00
 ;;9002226.02101,"873,49999-0879-00 ",.02)
 ;;49999-0879-00
 ;;9002226.02101,"873,49999-0879-30 ",.01)
 ;;49999-0879-30
 ;;9002226.02101,"873,49999-0879-30 ",.02)
 ;;49999-0879-30
 ;;9002226.02101,"873,49999-0880-30 ",.01)
 ;;49999-0880-30
 ;;9002226.02101,"873,49999-0880-30 ",.02)
 ;;49999-0880-30
 ;;9002226.02101,"873,49999-0880-90 ",.01)
 ;;49999-0880-90
 ;;9002226.02101,"873,49999-0880-90 ",.02)
 ;;49999-0880-90
 ;;9002226.02101,"873,49999-0940-30 ",.01)
 ;;49999-0940-30
 ;;9002226.02101,"873,49999-0940-30 ",.02)
 ;;49999-0940-30
 ;;9002226.02101,"873,49999-0940-90 ",.01)
 ;;49999-0940-90
 ;;9002226.02101,"873,49999-0940-90 ",.02)
 ;;49999-0940-90
 ;;9002226.02101,"873,49999-0943-00 ",.01)
 ;;49999-0943-00
 ;;9002226.02101,"873,49999-0943-00 ",.02)
 ;;49999-0943-00
 ;;9002226.02101,"873,49999-0943-90 ",.01)
 ;;49999-0943-90
 ;;9002226.02101,"873,49999-0943-90 ",.02)
 ;;49999-0943-90
 ;;9002226.02101,"873,49999-0988-30 ",.01)
 ;;49999-0988-30
 ;;9002226.02101,"873,49999-0988-30 ",.02)
 ;;49999-0988-30
 ;;9002226.02101,"873,49999-0991-90 ",.01)
 ;;49999-0991-90
 ;;9002226.02101,"873,49999-0991-90 ",.02)
 ;;49999-0991-90
 ;;9002226.02101,"873,50268-0440-15 ",.01)
 ;;50268-0440-15
 ;;9002226.02101,"873,50268-0440-15 ",.02)
 ;;50268-0440-15
 ;;9002226.02101,"873,50268-0441-15 ",.01)
 ;;50268-0441-15
 ;;9002226.02101,"873,50268-0441-15 ",.02)
 ;;50268-0441-15
 ;;9002226.02101,"873,50268-0442-15 ",.01)
 ;;50268-0442-15
 ;;9002226.02101,"873,50268-0442-15 ",.02)
 ;;50268-0442-15
 ;;9002226.02101,"873,50268-0513-15 ",.01)
 ;;50268-0513-15
 ;;9002226.02101,"873,50268-0513-15 ",.02)
 ;;50268-0513-15
 ;;9002226.02101,"873,50268-0514-15 ",.01)
 ;;50268-0514-15
 ;;9002226.02101,"873,50268-0514-15 ",.02)
 ;;50268-0514-15
 ;;9002226.02101,"873,50268-0515-15 ",.01)
 ;;50268-0515-15
 ;;9002226.02101,"873,50268-0515-15 ",.02)
 ;;50268-0515-15
 ;;9002226.02101,"873,50268-0516-15 ",.01)
 ;;50268-0516-15
 ;;9002226.02101,"873,50268-0516-15 ",.02)
 ;;50268-0516-15
 ;;9002226.02101,"873,50268-0517-15 ",.01)
 ;;50268-0517-15
 ;;9002226.02101,"873,50268-0517-15 ",.02)
 ;;50268-0517-15
 ;;9002226.02101,"873,50268-0518-15 ",.01)
 ;;50268-0518-15
 ;;9002226.02101,"873,50268-0518-15 ",.02)
 ;;50268-0518-15
 ;;9002226.02101,"873,50268-0783-15 ",.01)
 ;;50268-0783-15
 ;;9002226.02101,"873,50268-0783-15 ",.02)
 ;;50268-0783-15
 ;;9002226.02101,"873,50268-0784-15 ",.01)
 ;;50268-0784-15
 ;;9002226.02101,"873,50268-0784-15 ",.02)
 ;;50268-0784-15
 ;;9002226.02101,"873,50268-0785-15 ",.01)
 ;;50268-0785-15
 ;;9002226.02101,"873,50268-0785-15 ",.02)
 ;;50268-0785-15
 ;;9002226.02101,"873,50268-0786-13 ",.01)
 ;;50268-0786-13
 ;;9002226.02101,"873,50268-0786-13 ",.02)
 ;;50268-0786-13
 ;;9002226.02101,"873,50268-0790-15 ",.01)
 ;;50268-0790-15
 ;;9002226.02101,"873,50268-0790-15 ",.02)
 ;;50268-0790-15
 ;;9002226.02101,"873,50268-0791-15 ",.01)
 ;;50268-0791-15
 ;;9002226.02101,"873,50268-0791-15 ",.02)
 ;;50268-0791-15
 ;;9002226.02101,"873,50268-0792-15 ",.01)
 ;;50268-0792-15
 ;;9002226.02101,"873,50268-0792-15 ",.02)
 ;;50268-0792-15
 ;;9002226.02101,"873,50268-0793-15 ",.01)
 ;;50268-0793-15
 ;;9002226.02101,"873,50268-0793-15 ",.02)
 ;;50268-0793-15
 ;;9002226.02101,"873,50268-0794-15 ",.01)
 ;;50268-0794-15
 ;;9002226.02101,"873,50268-0794-15 ",.02)
 ;;50268-0794-15
 ;;9002226.02101,"873,51079-0192-01 ",.01)
 ;;51079-0192-01
 ;;9002226.02101,"873,51079-0192-01 ",.02)
 ;;51079-0192-01
 ;;9002226.02101,"873,51079-0192-03 ",.01)
 ;;51079-0192-03
 ;;9002226.02101,"873,51079-0192-03 ",.02)
 ;;51079-0192-03
 ;;9002226.02101,"873,51079-0193-01 ",.01)
 ;;51079-0193-01
 ;;9002226.02101,"873,51079-0193-01 ",.02)
 ;;51079-0193-01
 ;;9002226.02101,"873,51079-0193-03 ",.01)
 ;;51079-0193-03
 ;;9002226.02101,"873,51079-0193-03 ",.02)
 ;;51079-0193-03
 ;;9002226.02101,"873,51079-0194-01 ",.01)
 ;;51079-0194-01
 ;;9002226.02101,"873,51079-0194-01 ",.02)
 ;;51079-0194-01
 ;;9002226.02101,"873,51079-0194-03 ",.01)
 ;;51079-0194-03
 ;;9002226.02101,"873,51079-0194-03 ",.02)
 ;;51079-0194-03
 ;;9002226.02101,"873,51079-0750-01 ",.01)
 ;;51079-0750-01
 ;;9002226.02101,"873,51079-0750-01 ",.02)
 ;;51079-0750-01
 ;;9002226.02101,"873,51079-0750-20 ",.01)
 ;;51079-0750-20
 ;;9002226.02101,"873,51079-0750-20 ",.02)
 ;;51079-0750-20
 ;;9002226.02101,"873,51079-0751-01 ",.01)
 ;;51079-0751-01
 ;;9002226.02101,"873,51079-0751-01 ",.02)
 ;;51079-0751-01
 ;;9002226.02101,"873,51079-0751-20 ",.01)
 ;;51079-0751-20
 ;;9002226.02101,"873,51079-0751-20 ",.02)
 ;;51079-0751-20
 ;;9002226.02101,"873,51079-0752-01 ",.01)
 ;;51079-0752-01
 ;;9002226.02101,"873,51079-0752-01 ",.02)
 ;;51079-0752-01
 ;;9002226.02101,"873,51079-0752-20 ",.01)
 ;;51079-0752-20
 ;;9002226.02101,"873,51079-0752-20 ",.02)
 ;;51079-0752-20
 ;;9002226.02101,"873,51079-0757-01 ",.01)
 ;;51079-0757-01
 ;;9002226.02101,"873,51079-0757-01 ",.02)
 ;;51079-0757-01
 ;;9002226.02101,"873,51079-0757-20 ",.01)
 ;;51079-0757-20
 ;;9002226.02101,"873,51079-0757-20 ",.02)
 ;;51079-0757-20
 ;;9002226.02101,"873,51660-0140-30 ",.01)
 ;;51660-0140-30
 ;;9002226.02101,"873,51660-0140-30 ",.02)
 ;;51660-0140-30
 ;;9002226.02101,"873,51660-0141-90 ",.01)
 ;;51660-0141-90
 ;;9002226.02101,"873,51660-0141-90 ",.02)
 ;;51660-0141-90
 ;;9002226.02101,"873,51660-0142-90 ",.01)
 ;;51660-0142-90
 ;;9002226.02101,"873,51660-0142-90 ",.02)
 ;;51660-0142-90
 ;;9002226.02101,"873,51660-0143-90 ",.01)
 ;;51660-0143-90
 ;;9002226.02101,"873,51660-0143-90 ",.02)
 ;;51660-0143-90
 ;;9002226.02101,"873,52343-0116-30 ",.01)
 ;;52343-0116-30
 ;;9002226.02101,"873,52343-0116-30 ",.02)
 ;;52343-0116-30
 ;;9002226.02101,"873,52343-0116-90 ",.01)
 ;;52343-0116-90
 ;;9002226.02101,"873,52343-0116-90 ",.02)
 ;;52343-0116-90
 ;;9002226.02101,"873,52343-0116-99 ",.01)
 ;;52343-0116-99
 ;;9002226.02101,"873,52343-0116-99 ",.02)
 ;;52343-0116-99
 ;;9002226.02101,"873,52343-0117-30 ",.01)
 ;;52343-0117-30
 ;;9002226.02101,"873,52343-0117-30 ",.02)
 ;;52343-0117-30
 ;;9002226.02101,"873,52343-0117-90 ",.01)
 ;;52343-0117-90
 ;;9002226.02101,"873,52343-0117-90 ",.02)
 ;;52343-0117-90
 ;;9002226.02101,"873,52343-0117-99 ",.01)
 ;;52343-0117-99
 ;;9002226.02101,"873,52343-0117-99 ",.02)
 ;;52343-0117-99
 ;;9002226.02101,"873,52343-0118-30 ",.01)
 ;;52343-0118-30
 ;;9002226.02101,"873,52343-0118-30 ",.02)
 ;;52343-0118-30
 ;;9002226.02101,"873,52343-0118-90 ",.01)
 ;;52343-0118-90
 ;;9002226.02101,"873,52343-0118-90 ",.02)
 ;;52343-0118-90
 ;;9002226.02101,"873,52343-0118-99 ",.01)
 ;;52343-0118-99
 ;;9002226.02101,"873,52343-0118-99 ",.02)
 ;;52343-0118-99
 ;;9002226.02101,"873,52343-0122-30 ",.01)
 ;;52343-0122-30
 ;;9002226.02101,"873,52343-0122-30 ",.02)
 ;;52343-0122-30
 ;;9002226.02101,"873,52343-0123-90 ",.01)
 ;;52343-0123-90
 ;;9002226.02101,"873,52343-0123-90 ",.02)
 ;;52343-0123-90
 ;;9002226.02101,"873,52343-0124-90 ",.01)
 ;;52343-0124-90
 ;;9002226.02101,"873,52343-0124-90 ",.02)
 ;;52343-0124-90
 ;;9002226.02101,"873,52343-0125-90 ",.01)
 ;;52343-0125-90
 ;;9002226.02101,"873,52343-0125-90 ",.02)
 ;;52343-0125-90
 ;;9002226.02101,"873,52959-0756-30 ",.01)
 ;;52959-0756-30
 ;;9002226.02101,"873,52959-0756-30 ",.02)
 ;;52959-0756-30
 ;;9002226.02101,"873,54569-4437-00 ",.01)
 ;;54569-4437-00
 ;;9002226.02101,"873,54569-4437-00 ",.02)
 ;;54569-4437-00
 ;;9002226.02101,"873,54569-4438-00 ",.01)
 ;;54569-4438-00
 ;;9002226.02101,"873,54569-4438-00 ",.02)
 ;;54569-4438-00
 ;;9002226.02101,"873,54569-4572-00 ",.01)
 ;;54569-4572-00
 ;;9002226.02101,"873,54569-4572-00 ",.02)
 ;;54569-4572-00
 ;;9002226.02101,"873,54569-4698-00 ",.01)
 ;;54569-4698-00
 ;;9002226.02101,"873,54569-4698-00 ",.02)
 ;;54569-4698-00
 ;;9002226.02101,"873,54569-4714-00 ",.01)
 ;;54569-4714-00
 ;;9002226.02101,"873,54569-4714-00 ",.02)
 ;;54569-4714-00
 ;;9002226.02101,"873,54569-4719-00 ",.01)
 ;;54569-4719-00
 ;;9002226.02101,"873,54569-4719-00 ",.02)
 ;;54569-4719-00
 ;;9002226.02101,"873,54569-4719-01 ",.01)
 ;;54569-4719-01
 ;;9002226.02101,"873,54569-4719-01 ",.02)
 ;;54569-4719-01
 ;;9002226.02101,"873,54569-4722-00 ",.01)
 ;;54569-4722-00
 ;;9002226.02101,"873,54569-4722-00 ",.02)
 ;;54569-4722-00
 ;;9002226.02101,"873,54569-4722-01 ",.01)
 ;;54569-4722-01
 ;;9002226.02101,"873,54569-4722-01 ",.02)
 ;;54569-4722-01
 ;;9002226.02101,"873,54569-4766-00 ",.01)
 ;;54569-4766-00
 ;;9002226.02101,"873,54569-4766-00 ",.02)
 ;;54569-4766-00
 ;;9002226.02101,"873,54569-4766-03 ",.01)
 ;;54569-4766-03
 ;;9002226.02101,"873,54569-4766-03 ",.02)
 ;;54569-4766-03
 ;;9002226.02101,"873,54569-4767-00 ",.01)
 ;;54569-4767-00
 ;;9002226.02101,"873,54569-4767-00 ",.02)
 ;;54569-4767-00
 ;;9002226.02101,"873,54569-4767-03 ",.01)
 ;;54569-4767-03
 ;;9002226.02101,"873,54569-4767-03 ",.02)
 ;;54569-4767-03
 ;;9002226.02101,"873,54569-4895-00 ",.01)
 ;;54569-4895-00
 ;;9002226.02101,"873,54569-4895-00 ",.02)
 ;;54569-4895-00
 ;;9002226.02101,"873,54569-5361-00 ",.01)
 ;;54569-5361-00
 ;;9002226.02101,"873,54569-5361-00 ",.02)
 ;;54569-5361-00
 ;;9002226.02101,"873,54569-5362-00 ",.01)
 ;;54569-5362-00
 ;;9002226.02101,"873,54569-5362-00 ",.02)
 ;;54569-5362-00
 ;;9002226.02101,"873,54569-5606-00 ",.01)
 ;;54569-5606-00
 ;;9002226.02101,"873,54569-5606-00 ",.02)
 ;;54569-5606-00
 ;;9002226.02101,"873,54569-5665-00 ",.01)
 ;;54569-5665-00
 ;;9002226.02101,"873,54569-5665-00 ",.02)
 ;;54569-5665-00
 ;;9002226.02101,"873,54569-5666-00 ",.01)
 ;;54569-5666-00
 ;;9002226.02101,"873,54569-5666-00 ",.02)
 ;;54569-5666-00
 ;;9002226.02101,"873,54569-5667-00 ",.01)
 ;;54569-5667-00
 ;;9002226.02101,"873,54569-5667-00 ",.02)
 ;;54569-5667-00
 ;;9002226.02101,"873,54569-5801-00 ",.01)
 ;;54569-5801-00
 ;;9002226.02101,"873,54569-5801-00 ",.02)
 ;;54569-5801-00
 ;;9002226.02101,"873,54569-5867-00 ",.01)
 ;;54569-5867-00
 ;;9002226.02101,"873,54569-5867-00 ",.02)
 ;;54569-5867-00
 ;;9002226.02101,"873,54569-5880-01 ",.01)
 ;;54569-5880-01
 ;;9002226.02101,"873,54569-5880-01 ",.02)
 ;;54569-5880-01
 ;;9002226.02101,"873,54569-5903-00 ",.01)
 ;;54569-5903-00
 ;;9002226.02101,"873,54569-5903-00 ",.02)
 ;;54569-5903-00
 ;;9002226.02101,"873,54569-5998-00 ",.01)
 ;;54569-5998-00
 ;;9002226.02101,"873,54569-5998-00 ",.02)
 ;;54569-5998-00
 ;;9002226.02101,"873,54569-5999-00 ",.01)
 ;;54569-5999-00
 ;;9002226.02101,"873,54569-5999-00 ",.02)
 ;;54569-5999-00
 ;;9002226.02101,"873,54569-6110-01 ",.01)
 ;;54569-6110-01
 ;;9002226.02101,"873,54569-6110-01 ",.02)
 ;;54569-6110-01
 ;;9002226.02101,"873,54569-6173-00 ",.01)
 ;;54569-6173-00
 ;;9002226.02101,"873,54569-6173-00 ",.02)
 ;;54569-6173-00
 ;;9002226.02101,"873,54569-6173-01 ",.01)
 ;;54569-6173-01
 ;;9002226.02101,"873,54569-6173-01 ",.02)
 ;;54569-6173-01
 ;;9002226.02101,"873,54569-6180-00 ",.01)
 ;;54569-6180-00
 ;;9002226.02101,"873,54569-6180-00 ",.02)
 ;;54569-6180-00
 ;;9002226.02101,"873,54569-6180-01 ",.01)
 ;;54569-6180-01
 ;;9002226.02101,"873,54569-6180-01 ",.02)
 ;;54569-6180-01