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

BGP81W16.m

Go to the documentation of this file.
BGP81W16 ; 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,"1795,43353-0094-60 ",.01)
 ;;43353-0094-60
 ;;9002226.02101,"1795,43353-0094-60 ",.02)
 ;;43353-0094-60
 ;;9002226.02101,"1795,43353-0094-70 ",.01)
 ;;43353-0094-70
 ;;9002226.02101,"1795,43353-0094-70 ",.02)
 ;;43353-0094-70
 ;;9002226.02101,"1795,43353-0199-30 ",.01)
 ;;43353-0199-30
 ;;9002226.02101,"1795,43353-0199-30 ",.02)
 ;;43353-0199-30
 ;;9002226.02101,"1795,43353-0199-53 ",.01)
 ;;43353-0199-53
 ;;9002226.02101,"1795,43353-0199-53 ",.02)
 ;;43353-0199-53
 ;;9002226.02101,"1795,43353-0199-60 ",.01)
 ;;43353-0199-60
 ;;9002226.02101,"1795,43353-0199-60 ",.02)
 ;;43353-0199-60
 ;;9002226.02101,"1795,43353-0199-70 ",.01)
 ;;43353-0199-70
 ;;9002226.02101,"1795,43353-0199-70 ",.02)
 ;;43353-0199-70
 ;;9002226.02101,"1795,43353-0199-80 ",.01)
 ;;43353-0199-80
 ;;9002226.02101,"1795,43353-0199-80 ",.02)
 ;;43353-0199-80
 ;;9002226.02101,"1795,43353-0489-30 ",.01)
 ;;43353-0489-30
 ;;9002226.02101,"1795,43353-0489-30 ",.02)
 ;;43353-0489-30
 ;;9002226.02101,"1795,43353-0489-53 ",.01)
 ;;43353-0489-53
 ;;9002226.02101,"1795,43353-0489-53 ",.02)
 ;;43353-0489-53
 ;;9002226.02101,"1795,43353-0489-60 ",.01)
 ;;43353-0489-60
 ;;9002226.02101,"1795,43353-0489-60 ",.02)
 ;;43353-0489-60
 ;;9002226.02101,"1795,43353-0489-70 ",.01)
 ;;43353-0489-70
 ;;9002226.02101,"1795,43353-0489-70 ",.02)
 ;;43353-0489-70
 ;;9002226.02101,"1795,43353-0796-30 ",.01)
 ;;43353-0796-30
 ;;9002226.02101,"1795,43353-0796-30 ",.02)
 ;;43353-0796-30
 ;;9002226.02101,"1795,43353-0796-53 ",.01)
 ;;43353-0796-53
 ;;9002226.02101,"1795,43353-0796-53 ",.02)
 ;;43353-0796-53
 ;;9002226.02101,"1795,43353-0913-09 ",.01)
 ;;43353-0913-09
 ;;9002226.02101,"1795,43353-0913-09 ",.02)
 ;;43353-0913-09
 ;;9002226.02101,"1795,44523-0825-01 ",.01)
 ;;44523-0825-01
 ;;9002226.02101,"1795,44523-0825-01 ",.02)
 ;;44523-0825-01
 ;;9002226.02101,"1795,45802-0758-00 ",.01)
 ;;45802-0758-00
 ;;9002226.02101,"1795,45802-0758-00 ",.02)
 ;;45802-0758-00
 ;;9002226.02101,"1795,45802-0758-30 ",.01)
 ;;45802-0758-30
 ;;9002226.02101,"1795,45802-0758-30 ",.02)
 ;;45802-0758-30
 ;;9002226.02101,"1795,45802-0759-00 ",.01)
 ;;45802-0759-00
 ;;9002226.02101,"1795,45802-0759-00 ",.02)
 ;;45802-0759-00
 ;;9002226.02101,"1795,45802-0759-30 ",.01)
 ;;45802-0759-30
 ;;9002226.02101,"1795,45802-0759-30 ",.02)
 ;;45802-0759-30
 ;;9002226.02101,"1795,47463-0045-60 ",.01)
 ;;47463-0045-60
 ;;9002226.02101,"1795,47463-0045-60 ",.02)
 ;;47463-0045-60
 ;;9002226.02101,"1795,47463-0215-10 ",.01)
 ;;47463-0215-10
 ;;9002226.02101,"1795,47463-0215-10 ",.02)
 ;;47463-0215-10
 ;;9002226.02101,"1795,47463-0215-12 ",.01)
 ;;47463-0215-12
 ;;9002226.02101,"1795,47463-0215-12 ",.02)
 ;;47463-0215-12
 ;;9002226.02101,"1795,47463-0215-15 ",.01)
 ;;47463-0215-15
 ;;9002226.02101,"1795,47463-0215-15 ",.02)
 ;;47463-0215-15
 ;;9002226.02101,"1795,47463-0215-20 ",.01)
 ;;47463-0215-20
 ;;9002226.02101,"1795,47463-0215-20 ",.02)
 ;;47463-0215-20
 ;;9002226.02101,"1795,47463-0215-25 ",.01)
 ;;47463-0215-25
 ;;9002226.02101,"1795,47463-0215-25 ",.02)
 ;;47463-0215-25
 ;;9002226.02101,"1795,47463-0215-30 ",.01)
 ;;47463-0215-30
 ;;9002226.02101,"1795,47463-0215-30 ",.02)
 ;;47463-0215-30
 ;;9002226.02101,"1795,47463-0355-90 ",.01)
 ;;47463-0355-90
 ;;9002226.02101,"1795,47463-0355-90 ",.02)
 ;;47463-0355-90
 ;;9002226.02101,"1795,47463-0367-15 ",.01)
 ;;47463-0367-15
 ;;9002226.02101,"1795,47463-0367-15 ",.02)
 ;;47463-0367-15
 ;;9002226.02101,"1795,47463-0367-30 ",.01)
 ;;47463-0367-30
 ;;9002226.02101,"1795,47463-0367-30 ",.02)
 ;;47463-0367-30
 ;;9002226.02101,"1795,47463-0367-60 ",.01)
 ;;47463-0367-60
 ;;9002226.02101,"1795,47463-0367-60 ",.02)
 ;;47463-0367-60
 ;;9002226.02101,"1795,47463-0368-90 ",.01)
 ;;47463-0368-90
 ;;9002226.02101,"1795,47463-0368-90 ",.02)
 ;;47463-0368-90
 ;;9002226.02101,"1795,47463-0369-21 ",.01)
 ;;47463-0369-21
 ;;9002226.02101,"1795,47463-0369-21 ",.02)
 ;;47463-0369-21
 ;;9002226.02101,"1795,47463-0369-30 ",.01)
 ;;47463-0369-30
 ;;9002226.02101,"1795,47463-0369-30 ",.02)
 ;;47463-0369-30
 ;;9002226.02101,"1795,47463-0501-30 ",.01)
 ;;47463-0501-30
 ;;9002226.02101,"1795,47463-0501-30 ",.02)
 ;;47463-0501-30
 ;;9002226.02101,"1795,47463-0502-30 ",.01)
 ;;47463-0502-30
 ;;9002226.02101,"1795,47463-0502-30 ",.02)
 ;;47463-0502-30
 ;;9002226.02101,"1795,47463-0603-00 ",.01)
 ;;47463-0603-00
 ;;9002226.02101,"1795,47463-0603-00 ",.02)
 ;;47463-0603-00
 ;;9002226.02101,"1795,47463-0603-12 ",.01)
 ;;47463-0603-12
 ;;9002226.02101,"1795,47463-0603-12 ",.02)
 ;;47463-0603-12
 ;;9002226.02101,"1795,47463-0603-15 ",.01)
 ;;47463-0603-15
 ;;9002226.02101,"1795,47463-0603-15 ",.02)
 ;;47463-0603-15
 ;;9002226.02101,"1795,47463-0603-20 ",.01)
 ;;47463-0603-20
 ;;9002226.02101,"1795,47463-0603-20 ",.02)
 ;;47463-0603-20
 ;;9002226.02101,"1795,47463-0603-30 ",.01)
 ;;47463-0603-30
 ;;9002226.02101,"1795,47463-0603-30 ",.02)
 ;;47463-0603-30
 ;;9002226.02101,"1795,47463-0603-40 ",.01)
 ;;47463-0603-40
 ;;9002226.02101,"1795,47463-0603-40 ",.02)
 ;;47463-0603-40
 ;;9002226.02101,"1795,47463-0603-60 ",.01)
 ;;47463-0603-60
 ;;9002226.02101,"1795,47463-0603-60 ",.02)
 ;;47463-0603-60
 ;;9002226.02101,"1795,47463-0603-71 ",.01)
 ;;47463-0603-71
 ;;9002226.02101,"1795,47463-0603-71 ",.02)
 ;;47463-0603-71
 ;;9002226.02101,"1795,47463-0603-90 ",.01)
 ;;47463-0603-90
 ;;9002226.02101,"1795,47463-0603-90 ",.02)
 ;;47463-0603-90
 ;;9002226.02101,"1795,47463-0604-30 ",.01)
 ;;47463-0604-30
 ;;9002226.02101,"1795,47463-0604-30 ",.02)
 ;;47463-0604-30
 ;;9002226.02101,"1795,47463-0609-30 ",.01)
 ;;47463-0609-30
 ;;9002226.02101,"1795,47463-0609-30 ",.02)
 ;;47463-0609-30
 ;;9002226.02101,"1795,47463-0609-60 ",.01)
 ;;47463-0609-60
 ;;9002226.02101,"1795,47463-0609-60 ",.02)
 ;;47463-0609-60
 ;;9002226.02101,"1795,49884-0034-01 ",.01)
 ;;49884-0034-01
 ;;9002226.02101,"1795,49884-0034-01 ",.02)
 ;;49884-0034-01
 ;;9002226.02101,"1795,49884-0034-10 ",.01)
 ;;49884-0034-10
 ;;9002226.02101,"1795,49884-0034-10 ",.02)
 ;;49884-0034-10
 ;;9002226.02101,"1795,49884-0035-01 ",.01)
 ;;49884-0035-01
 ;;9002226.02101,"1795,49884-0035-01 ",.02)
 ;;49884-0035-01
 ;;9002226.02101,"1795,49884-0035-10 ",.01)
 ;;49884-0035-10
 ;;9002226.02101,"1795,49884-0035-10 ",.02)
 ;;49884-0035-10
 ;;9002226.02101,"1795,49884-0235-33 ",.01)
 ;;49884-0235-33
 ;;9002226.02101,"1795,49884-0235-33 ",.02)
 ;;49884-0235-33
 ;;9002226.02101,"1795,49884-0235-37 ",.01)
 ;;49884-0235-37
 ;;9002226.02101,"1795,49884-0235-37 ",.02)
 ;;49884-0235-37
 ;;9002226.02101,"1795,49963-0518-01 ",.01)
 ;;49963-0518-01
 ;;9002226.02101,"1795,49963-0518-01 ",.02)
 ;;49963-0518-01
 ;;9002226.02101,"1795,49999-0024-00 ",.01)
 ;;49999-0024-00
 ;;9002226.02101,"1795,49999-0024-00 ",.02)
 ;;49999-0024-00
 ;;9002226.02101,"1795,49999-0024-12 ",.01)
 ;;49999-0024-12
 ;;9002226.02101,"1795,49999-0024-12 ",.02)
 ;;49999-0024-12
 ;;9002226.02101,"1795,49999-0024-20 ",.01)
 ;;49999-0024-20
 ;;9002226.02101,"1795,49999-0024-20 ",.02)
 ;;49999-0024-20
 ;;9002226.02101,"1795,49999-0024-24 ",.01)
 ;;49999-0024-24
 ;;9002226.02101,"1795,49999-0024-24 ",.02)
 ;;49999-0024-24
 ;;9002226.02101,"1795,49999-0024-30 ",.01)
 ;;49999-0024-30
 ;;9002226.02101,"1795,49999-0024-30 ",.02)
 ;;49999-0024-30
 ;;9002226.02101,"1795,49999-0024-50 ",.01)
 ;;49999-0024-50
 ;;9002226.02101,"1795,49999-0024-50 ",.02)
 ;;49999-0024-50
 ;;9002226.02101,"1795,49999-0024-60 ",.01)
 ;;49999-0024-60
 ;;9002226.02101,"1795,49999-0024-60 ",.02)
 ;;49999-0024-60
 ;;9002226.02101,"1795,49999-0024-90 ",.01)
 ;;49999-0024-90
 ;;9002226.02101,"1795,49999-0024-90 ",.02)
 ;;49999-0024-90
 ;;9002226.02101,"1795,49999-0029-05 ",.01)
 ;;49999-0029-05
 ;;9002226.02101,"1795,49999-0029-05 ",.02)
 ;;49999-0029-05
 ;;9002226.02101,"1795,49999-0029-20 ",.01)
 ;;49999-0029-20
 ;;9002226.02101,"1795,49999-0029-20 ",.02)
 ;;49999-0029-20
 ;;9002226.02101,"1795,49999-0029-30 ",.01)
 ;;49999-0029-30
 ;;9002226.02101,"1795,49999-0029-30 ",.02)
 ;;49999-0029-30
 ;;9002226.02101,"1795,49999-0029-60 ",.01)
 ;;49999-0029-60
 ;;9002226.02101,"1795,49999-0029-60 ",.02)
 ;;49999-0029-60
 ;;9002226.02101,"1795,49999-0029-90 ",.01)
 ;;49999-0029-90
 ;;9002226.02101,"1795,49999-0029-90 ",.02)
 ;;49999-0029-90
 ;;9002226.02101,"1795,49999-0035-24 ",.01)
 ;;49999-0035-24
 ;;9002226.02101,"1795,49999-0035-24 ",.02)
 ;;49999-0035-24
 ;;9002226.02101,"1795,49999-0035-30 ",.01)
 ;;49999-0035-30
 ;;9002226.02101,"1795,49999-0035-30 ",.02)
 ;;49999-0035-30
 ;;9002226.02101,"1795,49999-0035-60 ",.01)
 ;;49999-0035-60
 ;;9002226.02101,"1795,49999-0035-60 ",.02)
 ;;49999-0035-60
 ;;9002226.02101,"1795,49999-0036-12 ",.01)
 ;;49999-0036-12
 ;;9002226.02101,"1795,49999-0036-12 ",.02)
 ;;49999-0036-12
 ;;9002226.02101,"1795,49999-0036-60 ",.01)
 ;;49999-0036-60
 ;;9002226.02101,"1795,49999-0036-60 ",.02)
 ;;49999-0036-60
 ;;9002226.02101,"1795,49999-0081-00 ",.01)
 ;;49999-0081-00
 ;;9002226.02101,"1795,49999-0081-00 ",.02)
 ;;49999-0081-00
 ;;9002226.02101,"1795,49999-0081-20 ",.01)
 ;;49999-0081-20
 ;;9002226.02101,"1795,49999-0081-20 ",.02)
 ;;49999-0081-20
 ;;9002226.02101,"1795,49999-0081-30 ",.01)
 ;;49999-0081-30
 ;;9002226.02101,"1795,49999-0081-30 ",.02)
 ;;49999-0081-30
 ;;9002226.02101,"1795,49999-0081-60 ",.01)
 ;;49999-0081-60
 ;;9002226.02101,"1795,49999-0081-60 ",.02)
 ;;49999-0081-60
 ;;9002226.02101,"1795,49999-0081-90 ",.01)
 ;;49999-0081-90
 ;;9002226.02101,"1795,49999-0081-90 ",.02)
 ;;49999-0081-90
 ;;9002226.02101,"1795,49999-0087-00 ",.01)
 ;;49999-0087-00
 ;;9002226.02101,"1795,49999-0087-00 ",.02)
 ;;49999-0087-00
 ;;9002226.02101,"1795,49999-0087-15 ",.01)
 ;;49999-0087-15
 ;;9002226.02101,"1795,49999-0087-15 ",.02)
 ;;49999-0087-15
 ;;9002226.02101,"1795,49999-0087-30 ",.01)
 ;;49999-0087-30
 ;;9002226.02101,"1795,49999-0087-30 ",.02)
 ;;49999-0087-30
 ;;9002226.02101,"1795,49999-0090-05 ",.01)
 ;;49999-0090-05
 ;;9002226.02101,"1795,49999-0090-05 ",.02)
 ;;49999-0090-05
 ;;9002226.02101,"1795,49999-0090-10 ",.01)
 ;;49999-0090-10
 ;;9002226.02101,"1795,49999-0090-10 ",.02)
 ;;49999-0090-10
 ;;9002226.02101,"1795,49999-0090-12 ",.01)
 ;;49999-0090-12
 ;;9002226.02101,"1795,49999-0090-12 ",.02)
 ;;49999-0090-12
 ;;9002226.02101,"1795,49999-0090-15 ",.01)
 ;;49999-0090-15
 ;;9002226.02101,"1795,49999-0090-15 ",.02)
 ;;49999-0090-15
 ;;9002226.02101,"1795,49999-0090-20 ",.01)
 ;;49999-0090-20
 ;;9002226.02101,"1795,49999-0090-20 ",.02)
 ;;49999-0090-20
 ;;9002226.02101,"1795,49999-0090-30 ",.01)
 ;;49999-0090-30
 ;;9002226.02101,"1795,49999-0090-30 ",.02)
 ;;49999-0090-30
 ;;9002226.02101,"1795,49999-0090-60 ",.01)
 ;;49999-0090-60
 ;;9002226.02101,"1795,49999-0090-60 ",.02)
 ;;49999-0090-60
 ;;9002226.02101,"1795,49999-0090-90 ",.01)
 ;;49999-0090-90
 ;;9002226.02101,"1795,49999-0090-90 ",.02)
 ;;49999-0090-90
 ;;9002226.02101,"1795,49999-0152-04 ",.01)
 ;;49999-0152-04
 ;;9002226.02101,"1795,49999-0152-04 ",.02)
 ;;49999-0152-04
 ;;9002226.02101,"1795,49999-0207-00 ",.01)
 ;;49999-0207-00
 ;;9002226.02101,"1795,49999-0207-00 ",.02)
 ;;49999-0207-00
 ;;9002226.02101,"1795,49999-0207-10 ",.01)
 ;;49999-0207-10
 ;;9002226.02101,"1795,49999-0207-10 ",.02)
 ;;49999-0207-10
 ;;9002226.02101,"1795,49999-0207-20 ",.01)
 ;;49999-0207-20
 ;;9002226.02101,"1795,49999-0207-20 ",.02)
 ;;49999-0207-20
 ;;9002226.02101,"1795,49999-0207-30 ",.01)
 ;;49999-0207-30
 ;;9002226.02101,"1795,49999-0207-30 ",.02)
 ;;49999-0207-30
 ;;9002226.02101,"1795,49999-0262-04 ",.01)
 ;;49999-0262-04
 ;;9002226.02101,"1795,49999-0262-04 ",.02)
 ;;49999-0262-04
 ;;9002226.02101,"1795,49999-0291-20 ",.01)
 ;;49999-0291-20