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

BGP72G12.m

Go to the documentation of this file.
BGP72G12 ; 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,"1905,54868-5255-00 ",.01)
 ;;54868-5255-00
 ;;9002226.02101,"1905,54868-5255-00 ",.02)
 ;;54868-5255-00
 ;;9002226.02101,"1905,54868-5255-01 ",.01)
 ;;54868-5255-01
 ;;9002226.02101,"1905,54868-5255-01 ",.02)
 ;;54868-5255-01
 ;;9002226.02101,"1905,54868-5258-00 ",.01)
 ;;54868-5258-00
 ;;9002226.02101,"1905,54868-5258-00 ",.02)
 ;;54868-5258-00
 ;;9002226.02101,"1905,54868-5425-00 ",.01)
 ;;54868-5425-00
 ;;9002226.02101,"1905,54868-5425-00 ",.02)
 ;;54868-5425-00
 ;;9002226.02101,"1905,54868-5440-00 ",.01)
 ;;54868-5440-00
 ;;9002226.02101,"1905,54868-5440-00 ",.02)
 ;;54868-5440-00
 ;;9002226.02101,"1905,54868-5440-01 ",.01)
 ;;54868-5440-01
 ;;9002226.02101,"1905,54868-5440-01 ",.02)
 ;;54868-5440-01
 ;;9002226.02101,"1905,54868-5501-00 ",.01)
 ;;54868-5501-00
 ;;9002226.02101,"1905,54868-5501-00 ",.02)
 ;;54868-5501-00
 ;;9002226.02101,"1905,54868-5587-00 ",.01)
 ;;54868-5587-00
 ;;9002226.02101,"1905,54868-5587-00 ",.02)
 ;;54868-5587-00
 ;;9002226.02101,"1905,54868-5587-01 ",.01)
 ;;54868-5587-01
 ;;9002226.02101,"1905,54868-5587-01 ",.02)
 ;;54868-5587-01
 ;;9002226.02101,"1905,54868-5835-00 ",.01)
 ;;54868-5835-00
 ;;9002226.02101,"1905,54868-5835-00 ",.02)
 ;;54868-5835-00
 ;;9002226.02101,"1905,54868-5837-00 ",.01)
 ;;54868-5837-00
 ;;9002226.02101,"1905,54868-5837-00 ",.02)
 ;;54868-5837-00
 ;;9002226.02101,"1905,55048-0856-30 ",.01)
 ;;55048-0856-30
 ;;9002226.02101,"1905,55048-0856-30 ",.02)
 ;;55048-0856-30
 ;;9002226.02101,"1905,55048-0857-30 ",.01)
 ;;55048-0857-30
 ;;9002226.02101,"1905,55048-0857-30 ",.02)
 ;;55048-0857-30
 ;;9002226.02101,"1905,55048-0858-30 ",.01)
 ;;55048-0858-30
 ;;9002226.02101,"1905,55048-0858-30 ",.02)
 ;;55048-0858-30
 ;;9002226.02101,"1905,55048-0859-30 ",.01)
 ;;55048-0859-30
 ;;9002226.02101,"1905,55048-0859-30 ",.02)
 ;;55048-0859-30
 ;;9002226.02101,"1905,55048-0861-30 ",.01)
 ;;55048-0861-30
 ;;9002226.02101,"1905,55048-0861-30 ",.02)
 ;;55048-0861-30
 ;;9002226.02101,"1905,55048-0880-30 ",.01)
 ;;55048-0880-30
 ;;9002226.02101,"1905,55048-0880-30 ",.02)
 ;;55048-0880-30
 ;;9002226.02101,"1905,55111-0678-02 ",.01)
 ;;55111-0678-02
 ;;9002226.02101,"1905,55111-0678-02 ",.02)
 ;;55111-0678-02
 ;;9002226.02101,"1905,55111-0678-10 ",.01)
 ;;55111-0678-10
 ;;9002226.02101,"1905,55111-0678-10 ",.02)
 ;;55111-0678-10
 ;;9002226.02101,"1905,55111-0678-11 ",.01)
 ;;55111-0678-11
 ;;9002226.02101,"1905,55111-0678-11 ",.02)
 ;;55111-0678-11
 ;;9002226.02101,"1905,55111-0679-02 ",.01)
 ;;55111-0679-02
 ;;9002226.02101,"1905,55111-0679-02 ",.02)
 ;;55111-0679-02
 ;;9002226.02101,"1905,55111-0679-10 ",.01)
 ;;55111-0679-10
 ;;9002226.02101,"1905,55111-0679-10 ",.02)
 ;;55111-0679-10
 ;;9002226.02101,"1905,55111-0679-11 ",.01)
 ;;55111-0679-11
 ;;9002226.02101,"1905,55111-0679-11 ",.02)
 ;;55111-0679-11
 ;;9002226.02101,"1905,55111-0680-02 ",.01)
 ;;55111-0680-02
 ;;9002226.02101,"1905,55111-0680-02 ",.02)
 ;;55111-0680-02
 ;;9002226.02101,"1905,55111-0680-10 ",.01)
 ;;55111-0680-10
 ;;9002226.02101,"1905,55111-0680-10 ",.02)
 ;;55111-0680-10
 ;;9002226.02101,"1905,55111-0680-11 ",.01)
 ;;55111-0680-11
 ;;9002226.02101,"1905,55111-0680-11 ",.02)
 ;;55111-0680-11
 ;;9002226.02101,"1905,55111-0681-02 ",.01)
 ;;55111-0681-02
 ;;9002226.02101,"1905,55111-0681-02 ",.02)
 ;;55111-0681-02
 ;;9002226.02101,"1905,55111-0681-10 ",.01)
 ;;55111-0681-10
 ;;9002226.02101,"1905,55111-0681-10 ",.02)
 ;;55111-0681-10
 ;;9002226.02101,"1905,55111-0681-11 ",.01)
 ;;55111-0681-11
 ;;9002226.02101,"1905,55111-0681-11 ",.02)
 ;;55111-0681-11
 ;;9002226.02101,"1905,55154-4024-05 ",.01)
 ;;55154-4024-05
 ;;9002226.02101,"1905,55154-4024-05 ",.02)
 ;;55154-4024-05
 ;;9002226.02101,"1905,55154-5440-05 ",.01)
 ;;55154-5440-05
 ;;9002226.02101,"1905,55154-5440-05 ",.02)
 ;;55154-5440-05
 ;;9002226.02101,"1905,55154-9399-05 ",.01)
 ;;55154-9399-05
 ;;9002226.02101,"1905,55154-9399-05 ",.02)
 ;;55154-9399-05
 ;;9002226.02101,"1905,55289-0286-30 ",.01)
 ;;55289-0286-30
 ;;9002226.02101,"1905,55289-0286-30 ",.02)
 ;;55289-0286-30
 ;;9002226.02101,"1905,55289-0286-50 ",.01)
 ;;55289-0286-50
 ;;9002226.02101,"1905,55289-0286-50 ",.02)
 ;;55289-0286-50
 ;;9002226.02101,"1905,55289-0340-30 ",.01)
 ;;55289-0340-30
 ;;9002226.02101,"1905,55289-0340-30 ",.02)
 ;;55289-0340-30
 ;;9002226.02101,"1905,55289-0773-14 ",.01)
 ;;55289-0773-14
 ;;9002226.02101,"1905,55289-0773-14 ",.02)
 ;;55289-0773-14
 ;;9002226.02101,"1905,55289-0773-30 ",.01)
 ;;55289-0773-30
 ;;9002226.02101,"1905,55289-0773-30 ",.02)
 ;;55289-0773-30
 ;;9002226.02101,"1905,55289-0773-60 ",.01)
 ;;55289-0773-60
 ;;9002226.02101,"1905,55289-0773-60 ",.02)
 ;;55289-0773-60
 ;;9002226.02101,"1905,55289-0773-90 ",.01)
 ;;55289-0773-90
 ;;9002226.02101,"1905,55289-0773-90 ",.02)
 ;;55289-0773-90
 ;;9002226.02101,"1905,55700-0005-30 ",.01)
 ;;55700-0005-30
 ;;9002226.02101,"1905,55700-0005-30 ",.02)
 ;;55700-0005-30
 ;;9002226.02101,"1905,55700-0005-60 ",.01)
 ;;55700-0005-60
 ;;9002226.02101,"1905,55700-0005-60 ",.02)
 ;;55700-0005-60
 ;;9002226.02101,"1905,55700-0005-90 ",.01)
 ;;55700-0005-90
 ;;9002226.02101,"1905,55700-0005-90 ",.02)
 ;;55700-0005-90
 ;;9002226.02101,"1905,57237-0119-01 ",.01)
 ;;57237-0119-01
 ;;9002226.02101,"1905,57237-0119-01 ",.02)
 ;;57237-0119-01
 ;;9002226.02101,"1905,57237-0119-99 ",.01)
 ;;57237-0119-99
 ;;9002226.02101,"1905,57237-0119-99 ",.02)
 ;;57237-0119-99
 ;;9002226.02101,"1905,57237-0120-01 ",.01)
 ;;57237-0120-01
 ;;9002226.02101,"1905,57237-0120-01 ",.02)
 ;;57237-0120-01
 ;;9002226.02101,"1905,57237-0120-99 ",.01)
 ;;57237-0120-99
 ;;9002226.02101,"1905,57237-0120-99 ",.02)
 ;;57237-0120-99
 ;;9002226.02101,"1905,57237-0121-01 ",.01)
 ;;57237-0121-01
 ;;9002226.02101,"1905,57237-0121-01 ",.02)
 ;;57237-0121-01
 ;;9002226.02101,"1905,57237-0121-99 ",.01)
 ;;57237-0121-99
 ;;9002226.02101,"1905,57237-0121-99 ",.02)
 ;;57237-0121-99
 ;;9002226.02101,"1905,57237-0122-01 ",.01)
 ;;57237-0122-01
 ;;9002226.02101,"1905,57237-0122-01 ",.02)
 ;;57237-0122-01
 ;;9002226.02101,"1905,57237-0122-99 ",.01)
 ;;57237-0122-99
 ;;9002226.02101,"1905,57237-0122-99 ",.02)
 ;;57237-0122-99
 ;;9002226.02101,"1905,57237-0123-01 ",.01)
 ;;57237-0123-01
 ;;9002226.02101,"1905,57237-0123-01 ",.02)
 ;;57237-0123-01
 ;;9002226.02101,"1905,57237-0123-99 ",.01)
 ;;57237-0123-99
 ;;9002226.02101,"1905,57237-0123-99 ",.02)
 ;;57237-0123-99
 ;;9002226.02101,"1905,57237-0124-01 ",.01)
 ;;57237-0124-01
 ;;9002226.02101,"1905,57237-0124-01 ",.02)
 ;;57237-0124-01
 ;;9002226.02101,"1905,57237-0124-99 ",.01)
 ;;57237-0124-99
 ;;9002226.02101,"1905,57237-0124-99 ",.02)
 ;;57237-0124-99
 ;;9002226.02101,"1905,57237-0125-01 ",.01)
 ;;57237-0125-01
 ;;9002226.02101,"1905,57237-0125-01 ",.02)
 ;;57237-0125-01
 ;;9002226.02101,"1905,57237-0125-99 ",.01)
 ;;57237-0125-99
 ;;9002226.02101,"1905,57237-0125-99 ",.02)
 ;;57237-0125-99
 ;;9002226.02101,"1905,57237-0126-01 ",.01)
 ;;57237-0126-01
 ;;9002226.02101,"1905,57237-0126-01 ",.02)
 ;;57237-0126-01
 ;;9002226.02101,"1905,57237-0126-99 ",.01)
 ;;57237-0126-99
 ;;9002226.02101,"1905,57237-0126-99 ",.02)
 ;;57237-0126-99
 ;;9002226.02101,"1905,57237-0127-01 ",.01)
 ;;57237-0127-01
 ;;9002226.02101,"1905,57237-0127-01 ",.02)
 ;;57237-0127-01
 ;;9002226.02101,"1905,57237-0127-99 ",.01)
 ;;57237-0127-99
 ;;9002226.02101,"1905,57237-0127-99 ",.02)
 ;;57237-0127-99
 ;;9002226.02101,"1905,58118-4027-03 ",.01)
 ;;58118-4027-03
 ;;9002226.02101,"1905,58118-4027-03 ",.02)
 ;;58118-4027-03
 ;;9002226.02101,"1905,58118-4027-06 ",.01)
 ;;58118-4027-06
 ;;9002226.02101,"1905,58118-4027-06 ",.02)
 ;;58118-4027-06
 ;;9002226.02101,"1905,58118-4027-09 ",.01)
 ;;58118-4027-09
 ;;9002226.02101,"1905,58118-4027-09 ",.02)
 ;;58118-4027-09
 ;;9002226.02101,"1905,58118-4028-03 ",.01)
 ;;58118-4028-03
 ;;9002226.02101,"1905,58118-4028-03 ",.02)
 ;;58118-4028-03
 ;;9002226.02101,"1905,58118-4029-03 ",.01)
 ;;58118-4029-03
 ;;9002226.02101,"1905,58118-4029-03 ",.02)
 ;;58118-4029-03
 ;;9002226.02101,"1905,58118-4029-06 ",.01)
 ;;58118-4029-06
 ;;9002226.02101,"1905,58118-4029-06 ",.02)
 ;;58118-4029-06
 ;;9002226.02101,"1905,58118-4029-09 ",.01)
 ;;58118-4029-09
 ;;9002226.02101,"1905,58118-4029-09 ",.02)
 ;;58118-4029-09
 ;;9002226.02101,"1905,58118-4030-03 ",.01)
 ;;58118-4030-03
 ;;9002226.02101,"1905,58118-4030-03 ",.02)
 ;;58118-4030-03
 ;;9002226.02101,"1905,58118-4030-06 ",.01)
 ;;58118-4030-06
 ;;9002226.02101,"1905,58118-4030-06 ",.02)
 ;;58118-4030-06
 ;;9002226.02101,"1905,58118-4030-09 ",.01)
 ;;58118-4030-09
 ;;9002226.02101,"1905,58118-4030-09 ",.02)
 ;;58118-4030-09
 ;;9002226.02101,"1905,58118-4031-03 ",.01)
 ;;58118-4031-03
 ;;9002226.02101,"1905,58118-4031-03 ",.02)
 ;;58118-4031-03
 ;;9002226.02101,"1905,58118-4031-06 ",.01)
 ;;58118-4031-06
 ;;9002226.02101,"1905,58118-4031-06 ",.02)
 ;;58118-4031-06
 ;;9002226.02101,"1905,58118-4031-09 ",.01)
 ;;58118-4031-09
 ;;9002226.02101,"1905,58118-4031-09 ",.02)
 ;;58118-4031-09
 ;;9002226.02101,"1905,58118-4032-03 ",.01)
 ;;58118-4032-03
 ;;9002226.02101,"1905,58118-4032-03 ",.02)
 ;;58118-4032-03
 ;;9002226.02101,"1905,58118-4033-03 ",.01)
 ;;58118-4033-03
 ;;9002226.02101,"1905,58118-4033-03 ",.02)
 ;;58118-4033-03
 ;;9002226.02101,"1905,58118-4033-06 ",.01)
 ;;58118-4033-06
 ;;9002226.02101,"1905,58118-4033-06 ",.02)
 ;;58118-4033-06
 ;;9002226.02101,"1905,58118-4033-09 ",.01)
 ;;58118-4033-09
 ;;9002226.02101,"1905,58118-4033-09 ",.02)
 ;;58118-4033-09
 ;;9002226.02101,"1905,58118-4034-03 ",.01)
 ;;58118-4034-03
 ;;9002226.02101,"1905,58118-4034-03 ",.02)
 ;;58118-4034-03
 ;;9002226.02101,"1905,58118-4034-06 ",.01)
 ;;58118-4034-06
 ;;9002226.02101,"1905,58118-4034-06 ",.02)
 ;;58118-4034-06
 ;;9002226.02101,"1905,58118-4034-09 ",.01)
 ;;58118-4034-09
 ;;9002226.02101,"1905,58118-4034-09 ",.02)
 ;;58118-4034-09
 ;;9002226.02101,"1905,58118-4035-03 ",.01)
 ;;58118-4035-03
 ;;9002226.02101,"1905,58118-4035-03 ",.02)
 ;;58118-4035-03
 ;;9002226.02101,"1905,58118-4035-06 ",.01)
 ;;58118-4035-06
 ;;9002226.02101,"1905,58118-4035-06 ",.02)
 ;;58118-4035-06
 ;;9002226.02101,"1905,58118-4035-09 ",.01)
 ;;58118-4035-09
 ;;9002226.02101,"1905,58118-4035-09 ",.02)
 ;;58118-4035-09
 ;;9002226.02101,"1905,58517-0360-30 ",.01)
 ;;58517-0360-30
 ;;9002226.02101,"1905,58517-0360-30 ",.02)
 ;;58517-0360-30
 ;;9002226.02101,"1905,58864-0030-30 ",.01)
 ;;58864-0030-30
 ;;9002226.02101,"1905,58864-0030-30 ",.02)
 ;;58864-0030-30
 ;;9002226.02101,"1905,58864-0035-30 ",.01)
 ;;58864-0035-30
 ;;9002226.02101,"1905,58864-0035-30 ",.02)
 ;;58864-0035-30
 ;;9002226.02101,"1905,58864-0223-14 ",.01)
 ;;58864-0223-14
 ;;9002226.02101,"1905,58864-0223-14 ",.02)
 ;;58864-0223-14
 ;;9002226.02101,"1905,58864-0223-30 ",.01)
 ;;58864-0223-30
 ;;9002226.02101,"1905,58864-0223-30 ",.02)
 ;;58864-0223-30
 ;;9002226.02101,"1905,58864-0301-14 ",.01)
 ;;58864-0301-14
 ;;9002226.02101,"1905,58864-0301-14 ",.02)
 ;;58864-0301-14
 ;;9002226.02101,"1905,58864-0357-15 ",.01)
 ;;58864-0357-15
 ;;9002226.02101,"1905,58864-0357-15 ",.02)
 ;;58864-0357-15
 ;;9002226.02101,"1905,58864-0698-14 ",.01)
 ;;58864-0698-14
 ;;9002226.02101,"1905,58864-0698-14 ",.02)
 ;;58864-0698-14
 ;;9002226.02101,"1905,58864-0698-30 ",.01)
 ;;58864-0698-30
 ;;9002226.02101,"1905,58864-0698-30 ",.02)
 ;;58864-0698-30
 ;;9002226.02101,"1905,58864-0773-15 ",.01)
 ;;58864-0773-15
 ;;9002226.02101,"1905,58864-0773-15 ",.02)
 ;;58864-0773-15
 ;;9002226.02101,"1905,58864-0773-30 ",.01)
 ;;58864-0773-30
 ;;9002226.02101,"1905,58864-0773-30 ",.02)
 ;;58864-0773-30
 ;;9002226.02101,"1905,58864-0879-30 ",.01)
 ;;58864-0879-30