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

BGP82X4.m

Go to the documentation of this file.
BGP82X4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1921,35356-0664-90 ",.02)
 ;;35356-0664-90
 ;;9002226.02101,"1921,35356-0821-30 ",.01)
 ;;35356-0821-30
 ;;9002226.02101,"1921,35356-0821-30 ",.02)
 ;;35356-0821-30
 ;;9002226.02101,"1921,42291-0797-01 ",.01)
 ;;42291-0797-01
 ;;9002226.02101,"1921,42291-0797-01 ",.02)
 ;;42291-0797-01
 ;;9002226.02101,"1921,42549-0561-30 ",.01)
 ;;42549-0561-30
 ;;9002226.02101,"1921,42549-0561-30 ",.02)
 ;;42549-0561-30
 ;;9002226.02101,"1921,42549-0651-30 ",.01)
 ;;42549-0651-30
 ;;9002226.02101,"1921,42549-0651-30 ",.02)
 ;;42549-0651-30
 ;;9002226.02101,"1921,42549-0651-60 ",.01)
 ;;42549-0651-60
 ;;9002226.02101,"1921,42549-0651-60 ",.02)
 ;;42549-0651-60
 ;;9002226.02101,"1921,42549-0651-90 ",.01)
 ;;42549-0651-90
 ;;9002226.02101,"1921,42549-0651-90 ",.02)
 ;;42549-0651-90
 ;;9002226.02101,"1921,43353-0152-30 ",.01)
 ;;43353-0152-30
 ;;9002226.02101,"1921,43353-0152-30 ",.02)
 ;;43353-0152-30
 ;;9002226.02101,"1921,43353-0152-53 ",.01)
 ;;43353-0152-53
 ;;9002226.02101,"1921,43353-0152-53 ",.02)
 ;;43353-0152-53
 ;;9002226.02101,"1921,43353-0152-60 ",.01)
 ;;43353-0152-60
 ;;9002226.02101,"1921,43353-0152-60 ",.02)
 ;;43353-0152-60
 ;;9002226.02101,"1921,43353-0260-15 ",.01)
 ;;43353-0260-15
 ;;9002226.02101,"1921,43353-0260-15 ",.02)
 ;;43353-0260-15
 ;;9002226.02101,"1921,43353-0260-30 ",.01)
 ;;43353-0260-30
 ;;9002226.02101,"1921,43353-0260-30 ",.02)
 ;;43353-0260-30
 ;;9002226.02101,"1921,43353-0260-53 ",.01)
 ;;43353-0260-53
 ;;9002226.02101,"1921,43353-0260-53 ",.02)
 ;;43353-0260-53
 ;;9002226.02101,"1921,43353-0451-30 ",.01)
 ;;43353-0451-30
 ;;9002226.02101,"1921,43353-0451-30 ",.02)
 ;;43353-0451-30
 ;;9002226.02101,"1921,43353-0451-53 ",.01)
 ;;43353-0451-53
 ;;9002226.02101,"1921,43353-0451-53 ",.02)
 ;;43353-0451-53
 ;;9002226.02101,"1921,43353-0711-30 ",.01)
 ;;43353-0711-30
 ;;9002226.02101,"1921,43353-0711-30 ",.02)
 ;;43353-0711-30
 ;;9002226.02101,"1921,43353-0711-53 ",.01)
 ;;43353-0711-53
 ;;9002226.02101,"1921,43353-0711-53 ",.02)
 ;;43353-0711-53
 ;;9002226.02101,"1921,43353-0711-60 ",.01)
 ;;43353-0711-60
 ;;9002226.02101,"1921,43353-0711-60 ",.02)
 ;;43353-0711-60
 ;;9002226.02101,"1921,47463-0789-28 ",.01)
 ;;47463-0789-28
 ;;9002226.02101,"1921,47463-0789-28 ",.02)
 ;;47463-0789-28
 ;;9002226.02101,"1921,47463-0789-30 ",.01)
 ;;47463-0789-30
 ;;9002226.02101,"1921,47463-0789-30 ",.02)
 ;;47463-0789-30
 ;;9002226.02101,"1921,47463-0790-30 ",.01)
 ;;47463-0790-30
 ;;9002226.02101,"1921,47463-0790-30 ",.02)
 ;;47463-0790-30
 ;;9002226.02101,"1921,47463-0790-60 ",.01)
 ;;47463-0790-60
 ;;9002226.02101,"1921,47463-0790-60 ",.02)
 ;;47463-0790-60
 ;;9002226.02101,"1921,47463-0852-60 ",.01)
 ;;47463-0852-60
 ;;9002226.02101,"1921,47463-0852-60 ",.02)
 ;;47463-0852-60
 ;;9002226.02101,"1921,49999-0045-15 ",.01)
 ;;49999-0045-15
 ;;9002226.02101,"1921,49999-0045-15 ",.02)
 ;;49999-0045-15
 ;;9002226.02101,"1921,49999-0045-30 ",.01)
 ;;49999-0045-30
 ;;9002226.02101,"1921,49999-0045-30 ",.02)
 ;;49999-0045-30
 ;;9002226.02101,"1921,49999-0045-60 ",.01)
 ;;49999-0045-60
 ;;9002226.02101,"1921,49999-0045-60 ",.02)
 ;;49999-0045-60
 ;;9002226.02101,"1921,49999-0045-90 ",.01)
 ;;49999-0045-90
 ;;9002226.02101,"1921,49999-0045-90 ",.02)
 ;;49999-0045-90
 ;;9002226.02101,"1921,49999-0055-00 ",.01)
 ;;49999-0055-00
 ;;9002226.02101,"1921,49999-0055-00 ",.02)
 ;;49999-0055-00
 ;;9002226.02101,"1921,49999-0055-01 ",.01)
 ;;49999-0055-01
 ;;9002226.02101,"1921,49999-0055-01 ",.02)
 ;;49999-0055-01
 ;;9002226.02101,"1921,49999-0055-02 ",.01)
 ;;49999-0055-02
 ;;9002226.02101,"1921,49999-0055-02 ",.02)
 ;;49999-0055-02
 ;;9002226.02101,"1921,49999-0055-10 ",.01)
 ;;49999-0055-10
 ;;9002226.02101,"1921,49999-0055-10 ",.02)
 ;;49999-0055-10
 ;;9002226.02101,"1921,49999-0055-30 ",.01)
 ;;49999-0055-30
 ;;9002226.02101,"1921,49999-0055-30 ",.02)
 ;;49999-0055-30
 ;;9002226.02101,"1921,49999-0055-60 ",.01)
 ;;49999-0055-60
 ;;9002226.02101,"1921,49999-0055-60 ",.02)
 ;;49999-0055-60
 ;;9002226.02101,"1921,49999-0175-10 ",.01)
 ;;49999-0175-10
 ;;9002226.02101,"1921,49999-0175-10 ",.02)
 ;;49999-0175-10
 ;;9002226.02101,"1921,49999-0317-15 ",.01)
 ;;49999-0317-15
 ;;9002226.02101,"1921,49999-0317-15 ",.02)
 ;;49999-0317-15
 ;;9002226.02101,"1921,49999-0346-15 ",.01)
 ;;49999-0346-15
 ;;9002226.02101,"1921,49999-0346-15 ",.02)
 ;;49999-0346-15
 ;;9002226.02101,"1921,49999-0346-30 ",.01)
 ;;49999-0346-30
 ;;9002226.02101,"1921,49999-0346-30 ",.02)
 ;;49999-0346-30
 ;;9002226.02101,"1921,49999-0346-60 ",.01)
 ;;49999-0346-60
 ;;9002226.02101,"1921,49999-0346-60 ",.02)
 ;;49999-0346-60
 ;;9002226.02101,"1921,49999-0346-90 ",.01)
 ;;49999-0346-90
 ;;9002226.02101,"1921,49999-0346-90 ",.02)
 ;;49999-0346-90
 ;;9002226.02101,"1921,50436-0405-01 ",.01)
 ;;50436-0405-01
 ;;9002226.02101,"1921,50436-0405-01 ",.02)
 ;;50436-0405-01
 ;;9002226.02101,"1921,50436-4628-01 ",.01)
 ;;50436-4628-01
 ;;9002226.02101,"1921,50436-4628-01 ",.02)
 ;;50436-4628-01
 ;;9002226.02101,"1921,50436-4628-02 ",.01)
 ;;50436-4628-02
 ;;9002226.02101,"1921,50436-4628-02 ",.02)
 ;;50436-4628-02
 ;;9002226.02101,"1921,50436-4629-01 ",.01)
 ;;50436-4629-01
 ;;9002226.02101,"1921,50436-4629-01 ",.02)
 ;;50436-4629-01
 ;;9002226.02101,"1921,50436-4629-02 ",.01)
 ;;50436-4629-02
 ;;9002226.02101,"1921,50436-4629-02 ",.02)
 ;;50436-4629-02
 ;;9002226.02101,"1921,50436-4630-01 ",.01)
 ;;50436-4630-01
 ;;9002226.02101,"1921,50436-4630-01 ",.02)
 ;;50436-4630-01
 ;;9002226.02101,"1921,50436-9036-01 ",.01)
 ;;50436-9036-01
 ;;9002226.02101,"1921,50436-9036-01 ",.02)
 ;;50436-9036-01
 ;;9002226.02101,"1921,51079-0418-01 ",.01)
 ;;51079-0418-01
 ;;9002226.02101,"1921,51079-0418-01 ",.02)
 ;;51079-0418-01
 ;;9002226.02101,"1921,51079-0418-20 ",.01)
 ;;51079-0418-20
 ;;9002226.02101,"1921,51079-0418-20 ",.02)
 ;;51079-0418-20
 ;;9002226.02101,"1921,51079-0418-21 ",.01)
 ;;51079-0418-21
 ;;9002226.02101,"1921,51079-0418-21 ",.02)
 ;;51079-0418-21
 ;;9002226.02101,"1921,51079-0419-01 ",.01)
 ;;51079-0419-01
 ;;9002226.02101,"1921,51079-0419-01 ",.02)
 ;;51079-0419-01
 ;;9002226.02101,"1921,51079-0419-20 ",.01)
 ;;51079-0419-20
 ;;9002226.02101,"1921,51079-0419-20 ",.02)
 ;;51079-0419-20
 ;;9002226.02101,"1921,51862-0069-01 ",.01)
 ;;51862-0069-01
 ;;9002226.02101,"1921,51862-0069-01 ",.02)
 ;;51862-0069-01
 ;;9002226.02101,"1921,51862-0070-01 ",.01)
 ;;51862-0070-01
 ;;9002226.02101,"1921,51862-0070-01 ",.02)
 ;;51862-0070-01
 ;;9002226.02101,"1921,52959-0236-14 ",.01)
 ;;52959-0236-14
 ;;9002226.02101,"1921,52959-0236-14 ",.02)
 ;;52959-0236-14
 ;;9002226.02101,"1921,52959-0236-15 ",.01)
 ;;52959-0236-15
 ;;9002226.02101,"1921,52959-0236-15 ",.02)
 ;;52959-0236-15
 ;;9002226.02101,"1921,52959-0236-20 ",.01)
 ;;52959-0236-20
 ;;9002226.02101,"1921,52959-0236-20 ",.02)
 ;;52959-0236-20
 ;;9002226.02101,"1921,52959-0236-30 ",.01)
 ;;52959-0236-30
 ;;9002226.02101,"1921,52959-0236-30 ",.02)
 ;;52959-0236-30
 ;;9002226.02101,"1921,52959-0236-60 ",.01)
 ;;52959-0236-60
 ;;9002226.02101,"1921,52959-0236-60 ",.02)
 ;;52959-0236-60
 ;;9002226.02101,"1921,52959-0369-00 ",.01)
 ;;52959-0369-00
 ;;9002226.02101,"1921,52959-0369-00 ",.02)
 ;;52959-0369-00
 ;;9002226.02101,"1921,52959-0369-06 ",.01)
 ;;52959-0369-06
 ;;9002226.02101,"1921,52959-0369-06 ",.02)
 ;;52959-0369-06
 ;;9002226.02101,"1921,52959-0369-30 ",.01)
 ;;52959-0369-30
 ;;9002226.02101,"1921,52959-0369-30 ",.02)
 ;;52959-0369-30
 ;;9002226.02101,"1921,52959-0369-40 ",.01)
 ;;52959-0369-40
 ;;9002226.02101,"1921,52959-0369-40 ",.02)
 ;;52959-0369-40
 ;;9002226.02101,"1921,52959-0369-60 ",.01)
 ;;52959-0369-60
 ;;9002226.02101,"1921,52959-0369-60 ",.02)
 ;;52959-0369-60
 ;;9002226.02101,"1921,52959-0402-01 ",.01)
 ;;52959-0402-01
 ;;9002226.02101,"1921,52959-0402-01 ",.02)
 ;;52959-0402-01
 ;;9002226.02101,"1921,52959-0402-10 ",.01)
 ;;52959-0402-10
 ;;9002226.02101,"1921,52959-0402-10 ",.02)
 ;;52959-0402-10
 ;;9002226.02101,"1921,52959-0402-30 ",.01)
 ;;52959-0402-30
 ;;9002226.02101,"1921,52959-0402-30 ",.02)
 ;;52959-0402-30
 ;;9002226.02101,"1921,52959-0402-50 ",.01)
 ;;52959-0402-50
 ;;9002226.02101,"1921,52959-0402-50 ",.02)
 ;;52959-0402-50
 ;;9002226.02101,"1921,52959-0402-60 ",.01)
 ;;52959-0402-60
 ;;9002226.02101,"1921,52959-0402-60 ",.02)
 ;;52959-0402-60
 ;;9002226.02101,"1921,52959-0459-00 ",.01)
 ;;52959-0459-00
 ;;9002226.02101,"1921,52959-0459-00 ",.02)
 ;;52959-0459-00
 ;;9002226.02101,"1921,52959-0459-10 ",.01)
 ;;52959-0459-10
 ;;9002226.02101,"1921,52959-0459-10 ",.02)
 ;;52959-0459-10
 ;;9002226.02101,"1921,52959-0459-12 ",.01)
 ;;52959-0459-12
 ;;9002226.02101,"1921,52959-0459-12 ",.02)
 ;;52959-0459-12
 ;;9002226.02101,"1921,52959-0459-15 ",.01)
 ;;52959-0459-15
 ;;9002226.02101,"1921,52959-0459-15 ",.02)
 ;;52959-0459-15
 ;;9002226.02101,"1921,52959-0459-20 ",.01)
 ;;52959-0459-20
 ;;9002226.02101,"1921,52959-0459-20 ",.02)
 ;;52959-0459-20
 ;;9002226.02101,"1921,52959-0459-30 ",.01)
 ;;52959-0459-30
 ;;9002226.02101,"1921,52959-0459-30 ",.02)
 ;;52959-0459-30
 ;;9002226.02101,"1921,52959-0459-60 ",.01)
 ;;52959-0459-60
 ;;9002226.02101,"1921,52959-0459-60 ",.02)
 ;;52959-0459-60
 ;;9002226.02101,"1921,52959-0535-10 ",.01)
 ;;52959-0535-10
 ;;9002226.02101,"1921,52959-0535-10 ",.02)
 ;;52959-0535-10
 ;;9002226.02101,"1921,52959-0535-12 ",.01)
 ;;52959-0535-12
 ;;9002226.02101,"1921,52959-0535-12 ",.02)
 ;;52959-0535-12
 ;;9002226.02101,"1921,52959-0535-15 ",.01)
 ;;52959-0535-15
 ;;9002226.02101,"1921,52959-0535-15 ",.02)
 ;;52959-0535-15
 ;;9002226.02101,"1921,52959-0535-28 ",.01)
 ;;52959-0535-28
 ;;9002226.02101,"1921,52959-0535-28 ",.02)
 ;;52959-0535-28
 ;;9002226.02101,"1921,52959-0535-30 ",.01)
 ;;52959-0535-30
 ;;9002226.02101,"1921,52959-0535-30 ",.02)
 ;;52959-0535-30
 ;;9002226.02101,"1921,52959-0535-40 ",.01)
 ;;52959-0535-40
 ;;9002226.02101,"1921,52959-0535-40 ",.02)
 ;;52959-0535-40
 ;;9002226.02101,"1921,52959-0535-60 ",.01)
 ;;52959-0535-60
 ;;9002226.02101,"1921,52959-0535-60 ",.02)
 ;;52959-0535-60
 ;;9002226.02101,"1921,52959-0970-30 ",.01)
 ;;52959-0970-30
 ;;9002226.02101,"1921,52959-0970-30 ",.02)
 ;;52959-0970-30
 ;;9002226.02101,"1921,53217-0056-07 ",.01)
 ;;53217-0056-07
 ;;9002226.02101,"1921,53217-0056-07 ",.02)
 ;;53217-0056-07
 ;;9002226.02101,"1921,53217-0056-14 ",.01)
 ;;53217-0056-14
 ;;9002226.02101,"1921,53217-0056-14 ",.02)
 ;;53217-0056-14
 ;;9002226.02101,"1921,53217-0056-21 ",.01)
 ;;53217-0056-21
 ;;9002226.02101,"1921,53217-0056-21 ",.02)
 ;;53217-0056-21
 ;;9002226.02101,"1921,53217-0056-30 ",.01)
 ;;53217-0056-30
 ;;9002226.02101,"1921,53217-0056-30 ",.02)
 ;;53217-0056-30
 ;;9002226.02101,"1921,53217-0056-60 ",.01)
 ;;53217-0056-60
 ;;9002226.02101,"1921,53217-0056-60 ",.02)
 ;;53217-0056-60
 ;;9002226.02101,"1921,53217-0056-90 ",.01)
 ;;53217-0056-90
 ;;9002226.02101,"1921,53217-0056-90 ",.02)
 ;;53217-0056-90
 ;;9002226.02101,"1921,53217-0205-30 ",.01)
 ;;53217-0205-30
 ;;9002226.02101,"1921,53217-0205-30 ",.02)
 ;;53217-0205-30
 ;;9002226.02101,"1921,53489-0648-01 ",.01)
 ;;53489-0648-01
 ;;9002226.02101,"1921,53489-0648-01 ",.02)
 ;;53489-0648-01
 ;;9002226.02101,"1921,53489-0650-07 ",.01)
 ;;53489-0650-07
 ;;9002226.02101,"1921,53489-0650-07 ",.02)
 ;;53489-0650-07
 ;;9002226.02101,"1921,54569-0898-00 ",.01)
 ;;54569-0898-00
 ;;9002226.02101,"1921,54569-0898-00 ",.02)
 ;;54569-0898-00
 ;;9002226.02101,"1921,54569-0905-00 ",.01)
 ;;54569-0905-00
 ;;9002226.02101,"1921,54569-0905-00 ",.02)
 ;;54569-0905-00
 ;;9002226.02101,"1921,54569-0905-01 ",.01)
 ;;54569-0905-01
 ;;9002226.02101,"1921,54569-0905-01 ",.02)
 ;;54569-0905-01