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

BGP73L13.m

Go to the documentation of this file.
BGP73L13 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;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,"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,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,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
 ;;9002226.02101,"873,54569-6182-00 ",.01)
 ;;54569-6182-00
 ;;9002226.02101,"873,54569-6182-00 ",.02)
 ;;54569-6182-00
 ;;9002226.02101,"873,54569-6182-01 ",.01)
 ;;54569-6182-01
 ;;9002226.02101,"873,54569-6182-01 ",.02)
 ;;54569-6182-01
 ;;9002226.02101,"873,54569-6223-00 ",.01)
 ;;54569-6223-00
 ;;9002226.02101,"873,54569-6223-00 ",.02)
 ;;54569-6223-00
 ;;9002226.02101,"873,54569-6294-00 ",.01)
 ;;54569-6294-00
 ;;9002226.02101,"873,54569-6294-00 ",.02)
 ;;54569-6294-00
 ;;9002226.02101,"873,54569-6294-01 ",.01)
 ;;54569-6294-01
 ;;9002226.02101,"873,54569-6294-01 ",.02)
 ;;54569-6294-01
 ;;9002226.02101,"873,54569-6297-00 ",.01)
 ;;54569-6297-00
 ;;9002226.02101,"873,54569-6297-00 ",.02)
 ;;54569-6297-00
 ;;9002226.02101,"873,54569-6309-00 ",.01)
 ;;54569-6309-00
 ;;9002226.02101,"873,54569-6309-00 ",.02)
 ;;54569-6309-00
 ;;9002226.02101,"873,54868-2335-00 ",.01)
 ;;54868-2335-00
 ;;9002226.02101,"873,54868-2335-00 ",.02)
 ;;54868-2335-00
 ;;9002226.02101,"873,54868-2335-01 ",.01)
 ;;54868-2335-01
 ;;9002226.02101,"873,54868-2335-01 ",.02)
 ;;54868-2335-01
 ;;9002226.02101,"873,54868-3726-00 ",.01)
 ;;54868-3726-00
 ;;9002226.02101,"873,54868-3726-00 ",.02)
 ;;54868-3726-00
 ;;9002226.02101,"873,54868-3726-01 ",.01)
 ;;54868-3726-01
 ;;9002226.02101,"873,54868-3726-01 ",.02)
 ;;54868-3726-01
 ;;9002226.02101,"873,54868-3726-02 ",.01)
 ;;54868-3726-02
 ;;9002226.02101,"873,54868-3726-02 ",.02)
 ;;54868-3726-02
 ;;9002226.02101,"873,54868-4199-00 ",.01)
 ;;54868-4199-00
 ;;9002226.02101,"873,54868-4199-00 ",.02)
 ;;54868-4199-00
 ;;9002226.02101,"873,54868-4199-01 ",.01)
 ;;54868-4199-01
 ;;9002226.02101,"873,54868-4199-01 ",.02)
 ;;54868-4199-01
 ;;9002226.02101,"873,54868-4199-02 ",.01)
 ;;54868-4199-02
 ;;9002226.02101,"873,54868-4199-02 ",.02)
 ;;54868-4199-02
 ;;9002226.02101,"873,54868-4341-00 ",.01)
 ;;54868-4341-00
 ;;9002226.02101,"873,54868-4341-00 ",.02)
 ;;54868-4341-00
 ;;9002226.02101,"873,54868-4341-01 ",.01)
 ;;54868-4341-01
 ;;9002226.02101,"873,54868-4341-01 ",.02)
 ;;54868-4341-01
 ;;9002226.02101,"873,54868-4413-00 ",.01)
 ;;54868-4413-00
 ;;9002226.02101,"873,54868-4413-00 ",.02)
 ;;54868-4413-00
 ;;9002226.02101,"873,54868-4414-00 ",.01)
 ;;54868-4414-00
 ;;9002226.02101,"873,54868-4414-00 ",.02)
 ;;54868-4414-00
 ;;9002226.02101,"873,54868-4425-00 ",.01)
 ;;54868-4425-00
 ;;9002226.02101,"873,54868-4425-00 ",.02)
 ;;54868-4425-00
 ;;9002226.02101,"873,54868-4428-00 ",.01)
 ;;54868-4428-00
 ;;9002226.02101,"873,54868-4428-00 ",.02)
 ;;54868-4428-00
 ;;9002226.02101,"873,54868-4428-02 ",.01)
 ;;54868-4428-02
 ;;9002226.02101,"873,54868-4428-02 ",.02)
 ;;54868-4428-02
 ;;9002226.02101,"873,54868-4494-00 ",.01)
 ;;54868-4494-00
 ;;9002226.02101,"873,54868-4494-00 ",.02)
 ;;54868-4494-00
 ;;9002226.02101,"873,54868-4526-01 ",.01)
 ;;54868-4526-01
 ;;9002226.02101,"873,54868-4526-01 ",.02)
 ;;54868-4526-01
 ;;9002226.02101,"873,54868-4539-01 ",.01)
 ;;54868-4539-01
 ;;9002226.02101,"873,54868-4539-01 ",.02)
 ;;54868-4539-01
 ;;9002226.02101,"873,54868-4540-01 ",.01)
 ;;54868-4540-01
 ;;9002226.02101,"873,54868-4540-01 ",.02)
 ;;54868-4540-01
 ;;9002226.02101,"873,54868-4605-01 ",.01)
 ;;54868-4605-01
 ;;9002226.02101,"873,54868-4605-01 ",.02)
 ;;54868-4605-01
 ;;9002226.02101,"873,54868-4612-00 ",.01)
 ;;54868-4612-00
 ;;9002226.02101,"873,54868-4612-00 ",.02)
 ;;54868-4612-00
 ;;9002226.02101,"873,54868-4645-00 ",.01)
 ;;54868-4645-00
 ;;9002226.02101,"873,54868-4645-00 ",.02)
 ;;54868-4645-00
 ;;9002226.02101,"873,54868-4645-01 ",.01)
 ;;54868-4645-01