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

BGP47J19.m

Go to the documentation of this file.
BGP47J19 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"618,43063-0095-06 ",.02)
 ;;43063-0095-06
 ;;9002226.02101,"618,43063-0095-12 ",.01)
 ;;43063-0095-12
 ;;9002226.02101,"618,43063-0095-12 ",.02)
 ;;43063-0095-12
 ;;9002226.02101,"618,43063-0095-20 ",.01)
 ;;43063-0095-20
 ;;9002226.02101,"618,43063-0095-20 ",.02)
 ;;43063-0095-20
 ;;9002226.02101,"618,43063-0172-01 ",.01)
 ;;43063-0172-01
 ;;9002226.02101,"618,43063-0172-01 ",.02)
 ;;43063-0172-01
 ;;9002226.02101,"618,43063-0172-04 ",.01)
 ;;43063-0172-04
 ;;9002226.02101,"618,43063-0172-04 ",.02)
 ;;43063-0172-04
 ;;9002226.02101,"618,43063-0251-10 ",.01)
 ;;43063-0251-10
 ;;9002226.02101,"618,43063-0251-10 ",.02)
 ;;43063-0251-10
 ;;9002226.02101,"618,43063-0267-90 ",.01)
 ;;43063-0267-90
 ;;9002226.02101,"618,43063-0267-90 ",.02)
 ;;43063-0267-90
 ;;9002226.02101,"618,43063-0376-01 ",.01)
 ;;43063-0376-01
 ;;9002226.02101,"618,43063-0376-01 ",.02)
 ;;43063-0376-01
 ;;9002226.02101,"618,43063-0405-02 ",.01)
 ;;43063-0405-02
 ;;9002226.02101,"618,43063-0405-02 ",.02)
 ;;43063-0405-02
 ;;9002226.02101,"618,43063-0405-04 ",.01)
 ;;43063-0405-04
 ;;9002226.02101,"618,43063-0405-04 ",.02)
 ;;43063-0405-04
 ;;9002226.02101,"618,43063-0405-05 ",.01)
 ;;43063-0405-05
 ;;9002226.02101,"618,43063-0405-05 ",.02)
 ;;43063-0405-05
 ;;9002226.02101,"618,43063-0405-10 ",.01)
 ;;43063-0405-10
 ;;9002226.02101,"618,43063-0405-10 ",.02)
 ;;43063-0405-10
 ;;9002226.02101,"618,43063-0405-12 ",.01)
 ;;43063-0405-12
 ;;9002226.02101,"618,43063-0405-12 ",.02)
 ;;43063-0405-12
 ;;9002226.02101,"618,43063-0405-15 ",.01)
 ;;43063-0405-15
 ;;9002226.02101,"618,43063-0405-15 ",.02)
 ;;43063-0405-15
 ;;9002226.02101,"618,43063-0405-20 ",.01)
 ;;43063-0405-20
 ;;9002226.02101,"618,43063-0405-20 ",.02)
 ;;43063-0405-20
 ;;9002226.02101,"618,43063-0405-25 ",.01)
 ;;43063-0405-25
 ;;9002226.02101,"618,43063-0405-25 ",.02)
 ;;43063-0405-25
 ;;9002226.02101,"618,43063-0405-30 ",.01)
 ;;43063-0405-30
 ;;9002226.02101,"618,43063-0405-30 ",.02)
 ;;43063-0405-30
 ;;9002226.02101,"618,43063-0405-60 ",.01)
 ;;43063-0405-60
 ;;9002226.02101,"618,43063-0405-60 ",.02)
 ;;43063-0405-60
 ;;9002226.02101,"618,43063-0405-79 ",.01)
 ;;43063-0405-79
 ;;9002226.02101,"618,43063-0405-79 ",.02)
 ;;43063-0405-79
 ;;9002226.02101,"618,43063-0406-15 ",.01)
 ;;43063-0406-15
 ;;9002226.02101,"618,43063-0406-15 ",.02)
 ;;43063-0406-15
 ;;9002226.02101,"618,43063-0435-30 ",.01)
 ;;43063-0435-30
 ;;9002226.02101,"618,43063-0435-30 ",.02)
 ;;43063-0435-30
 ;;9002226.02101,"618,43063-0447-04 ",.01)
 ;;43063-0447-04
 ;;9002226.02101,"618,43063-0447-04 ",.02)
 ;;43063-0447-04
 ;;9002226.02101,"618,43072-0006-57 ",.01)
 ;;43072-0006-57
 ;;9002226.02101,"618,43072-0006-57 ",.02)
 ;;43072-0006-57
 ;;9002226.02101,"618,43072-0006-58 ",.01)
 ;;43072-0006-58
 ;;9002226.02101,"618,43072-0006-58 ",.02)
 ;;43072-0006-58
 ;;9002226.02101,"618,43353-0199-30 ",.01)
 ;;43353-0199-30
 ;;9002226.02101,"618,43353-0199-30 ",.02)
 ;;43353-0199-30
 ;;9002226.02101,"618,43353-0199-53 ",.01)
 ;;43353-0199-53
 ;;9002226.02101,"618,43353-0199-53 ",.02)
 ;;43353-0199-53
 ;;9002226.02101,"618,43353-0199-60 ",.01)
 ;;43353-0199-60
 ;;9002226.02101,"618,43353-0199-60 ",.02)
 ;;43353-0199-60
 ;;9002226.02101,"618,43353-0199-70 ",.01)
 ;;43353-0199-70
 ;;9002226.02101,"618,43353-0199-70 ",.02)
 ;;43353-0199-70
 ;;9002226.02101,"618,43353-0199-80 ",.01)
 ;;43353-0199-80
 ;;9002226.02101,"618,43353-0199-80 ",.02)
 ;;43353-0199-80
 ;;9002226.02101,"618,43353-0796-30 ",.01)
 ;;43353-0796-30
 ;;9002226.02101,"618,43353-0796-30 ",.02)
 ;;43353-0796-30
 ;;9002226.02101,"618,43353-0796-53 ",.01)
 ;;43353-0796-53
 ;;9002226.02101,"618,43353-0796-53 ",.02)
 ;;43353-0796-53
 ;;9002226.02101,"618,43378-0104-08 ",.01)
 ;;43378-0104-08
 ;;9002226.02101,"618,43378-0104-08 ",.02)
 ;;43378-0104-08
 ;;9002226.02101,"618,43378-0105-08 ",.01)
 ;;43378-0105-08
 ;;9002226.02101,"618,43378-0105-08 ",.02)
 ;;43378-0105-08
 ;;9002226.02101,"618,43378-0106-08 ",.01)
 ;;43378-0106-08
 ;;9002226.02101,"618,43378-0106-08 ",.02)
 ;;43378-0106-08
 ;;9002226.02101,"618,43378-0107-08 ",.01)
 ;;43378-0107-08
 ;;9002226.02101,"618,43378-0107-08 ",.02)
 ;;43378-0107-08
 ;;9002226.02101,"618,44183-0313-16 ",.01)
 ;;44183-0313-16
 ;;9002226.02101,"618,44183-0313-16 ",.02)
 ;;44183-0313-16
 ;;9002226.02101,"618,44183-0512-04 ",.01)
 ;;44183-0512-04
 ;;9002226.02101,"618,44183-0512-04 ",.02)
 ;;44183-0512-04
 ;;9002226.02101,"618,44183-0515-16 ",.01)
 ;;44183-0515-16
 ;;9002226.02101,"618,44183-0515-16 ",.02)
 ;;44183-0515-16
 ;;9002226.02101,"618,45802-0758-00 ",.01)
 ;;45802-0758-00
 ;;9002226.02101,"618,45802-0758-00 ",.02)
 ;;45802-0758-00
 ;;9002226.02101,"618,45802-0758-30 ",.01)
 ;;45802-0758-30
 ;;9002226.02101,"618,45802-0758-30 ",.02)
 ;;45802-0758-30
 ;;9002226.02101,"618,45802-0759-00 ",.01)
 ;;45802-0759-00
 ;;9002226.02101,"618,45802-0759-00 ",.02)
 ;;45802-0759-00
 ;;9002226.02101,"618,45802-0759-30 ",.01)
 ;;45802-0759-30
 ;;9002226.02101,"618,45802-0759-30 ",.02)
 ;;45802-0759-30
 ;;9002226.02101,"618,45985-0650-01 ",.01)
 ;;45985-0650-01
 ;;9002226.02101,"618,45985-0650-01 ",.02)
 ;;45985-0650-01
 ;;9002226.02101,"618,45985-0652-16 ",.01)
 ;;45985-0652-16
 ;;9002226.02101,"618,45985-0652-16 ",.02)
 ;;45985-0652-16
 ;;9002226.02101,"618,45985-0655-01 ",.01)
 ;;45985-0655-01
 ;;9002226.02101,"618,45985-0655-01 ",.02)
 ;;45985-0655-01
 ;;9002226.02101,"618,45985-0659-01 ",.01)
 ;;45985-0659-01
 ;;9002226.02101,"618,45985-0659-01 ",.02)
 ;;45985-0659-01
 ;;9002226.02101,"618,45985-0660-16 ",.01)
 ;;45985-0660-16
 ;;9002226.02101,"618,45985-0660-16 ",.02)
 ;;45985-0660-16
 ;;9002226.02101,"618,45985-0661-16 ",.01)
 ;;45985-0661-16
 ;;9002226.02101,"618,45985-0661-16 ",.02)
 ;;45985-0661-16
 ;;9002226.02101,"618,46122-0147-62 ",.01)
 ;;46122-0147-62
 ;;9002226.02101,"618,46122-0147-62 ",.02)
 ;;46122-0147-62
 ;;9002226.02101,"618,47463-0045-60 ",.01)
 ;;47463-0045-60
 ;;9002226.02101,"618,47463-0045-60 ",.02)
 ;;47463-0045-60
 ;;9002226.02101,"618,47463-0103-20 ",.01)
 ;;47463-0103-20
 ;;9002226.02101,"618,47463-0103-20 ",.02)
 ;;47463-0103-20
 ;;9002226.02101,"618,47463-0355-90 ",.01)
 ;;47463-0355-90
 ;;9002226.02101,"618,47463-0355-90 ",.02)
 ;;47463-0355-90
 ;;9002226.02101,"618,47463-0367-15 ",.01)
 ;;47463-0367-15
 ;;9002226.02101,"618,47463-0367-15 ",.02)
 ;;47463-0367-15
 ;;9002226.02101,"618,47463-0367-30 ",.01)
 ;;47463-0367-30
 ;;9002226.02101,"618,47463-0367-30 ",.02)
 ;;47463-0367-30
 ;;9002226.02101,"618,47463-0367-60 ",.01)
 ;;47463-0367-60
 ;;9002226.02101,"618,47463-0367-60 ",.02)
 ;;47463-0367-60
 ;;9002226.02101,"618,47463-0436-20 ",.01)
 ;;47463-0436-20
 ;;9002226.02101,"618,47463-0436-20 ",.02)
 ;;47463-0436-20
 ;;9002226.02101,"618,47463-0603-00 ",.01)
 ;;47463-0603-00
 ;;9002226.02101,"618,47463-0603-00 ",.02)
 ;;47463-0603-00
 ;;9002226.02101,"618,47463-0603-12 ",.01)
 ;;47463-0603-12
 ;;9002226.02101,"618,47463-0603-12 ",.02)
 ;;47463-0603-12
 ;;9002226.02101,"618,47463-0603-15 ",.01)
 ;;47463-0603-15
 ;;9002226.02101,"618,47463-0603-15 ",.02)
 ;;47463-0603-15
 ;;9002226.02101,"618,47463-0603-20 ",.01)
 ;;47463-0603-20
 ;;9002226.02101,"618,47463-0603-20 ",.02)
 ;;47463-0603-20
 ;;9002226.02101,"618,47463-0603-30 ",.01)
 ;;47463-0603-30
 ;;9002226.02101,"618,47463-0603-30 ",.02)
 ;;47463-0603-30
 ;;9002226.02101,"618,47463-0603-40 ",.01)
 ;;47463-0603-40
 ;;9002226.02101,"618,47463-0603-40 ",.02)
 ;;47463-0603-40
 ;;9002226.02101,"618,47463-0603-60 ",.01)
 ;;47463-0603-60
 ;;9002226.02101,"618,47463-0603-60 ",.02)
 ;;47463-0603-60
 ;;9002226.02101,"618,47463-0603-71 ",.01)
 ;;47463-0603-71
 ;;9002226.02101,"618,47463-0603-71 ",.02)
 ;;47463-0603-71
 ;;9002226.02101,"618,47463-0603-90 ",.01)
 ;;47463-0603-90
 ;;9002226.02101,"618,47463-0603-90 ",.02)
 ;;47463-0603-90
 ;;9002226.02101,"618,47463-0604-30 ",.01)
 ;;47463-0604-30
 ;;9002226.02101,"618,47463-0604-30 ",.02)
 ;;47463-0604-30
 ;;9002226.02101,"618,47463-0609-30 ",.01)
 ;;47463-0609-30
 ;;9002226.02101,"618,47463-0609-30 ",.02)
 ;;47463-0609-30
 ;;9002226.02101,"618,47463-0609-60 ",.01)
 ;;47463-0609-60
 ;;9002226.02101,"618,47463-0609-60 ",.02)
 ;;47463-0609-60
 ;;9002226.02101,"618,47463-7010-30 ",.01)
 ;;47463-7010-30
 ;;9002226.02101,"618,47463-7010-30 ",.02)
 ;;47463-7010-30
 ;;9002226.02101,"618,49035-0190-08 ",.01)
 ;;49035-0190-08
 ;;9002226.02101,"618,49035-0190-08 ",.02)
 ;;49035-0190-08
 ;;9002226.02101,"618,49035-0190-12 ",.01)
 ;;49035-0190-12
 ;;9002226.02101,"618,49035-0190-12 ",.02)
 ;;49035-0190-12
 ;;9002226.02101,"618,49035-0479-78 ",.01)
 ;;49035-0479-78
 ;;9002226.02101,"618,49035-0479-78 ",.02)
 ;;49035-0479-78
 ;;9002226.02101,"618,49348-0044-04 ",.01)
 ;;49348-0044-04
 ;;9002226.02101,"618,49348-0044-04 ",.02)
 ;;49348-0044-04
 ;;9002226.02101,"618,49348-0044-10 ",.01)
 ;;49348-0044-10
 ;;9002226.02101,"618,49348-0044-10 ",.02)
 ;;49348-0044-10
 ;;9002226.02101,"618,49348-0045-34 ",.01)
 ;;49348-0045-34
 ;;9002226.02101,"618,49348-0045-34 ",.02)
 ;;49348-0045-34
 ;;9002226.02101,"618,49348-0045-37 ",.01)
 ;;49348-0045-37
 ;;9002226.02101,"618,49348-0045-37 ",.02)
 ;;49348-0045-37
 ;;9002226.02101,"618,49348-0205-37 ",.01)
 ;;49348-0205-37
 ;;9002226.02101,"618,49348-0205-37 ",.02)
 ;;49348-0205-37
 ;;9002226.02101,"618,49348-0282-08 ",.01)
 ;;49348-0282-08
 ;;9002226.02101,"618,49348-0282-08 ",.02)
 ;;49348-0282-08
 ;;9002226.02101,"618,49348-0375-10 ",.01)
 ;;49348-0375-10
 ;;9002226.02101,"618,49348-0375-10 ",.02)
 ;;49348-0375-10
 ;;9002226.02101,"618,49348-0564-04 ",.01)
 ;;49348-0564-04
 ;;9002226.02101,"618,49348-0564-04 ",.02)
 ;;49348-0564-04
 ;;9002226.02101,"618,49348-0971-04 ",.01)
 ;;49348-0971-04
 ;;9002226.02101,"618,49348-0971-04 ",.02)
 ;;49348-0971-04
 ;;9002226.02101,"618,49348-0971-10 ",.01)
 ;;49348-0971-10
 ;;9002226.02101,"618,49348-0971-10 ",.02)
 ;;49348-0971-10
 ;;9002226.02101,"618,49348-0983-04 ",.01)
 ;;49348-0983-04
 ;;9002226.02101,"618,49348-0983-04 ",.02)
 ;;49348-0983-04
 ;;9002226.02101,"618,49348-0983-10 ",.01)
 ;;49348-0983-10
 ;;9002226.02101,"618,49348-0983-10 ",.02)
 ;;49348-0983-10
 ;;9002226.02101,"618,49483-0041-01 ",.01)
 ;;49483-0041-01
 ;;9002226.02101,"618,49483-0041-01 ",.02)
 ;;49483-0041-01
 ;;9002226.02101,"618,49483-0041-10 ",.01)
 ;;49483-0041-10
 ;;9002226.02101,"618,49483-0041-10 ",.02)
 ;;49483-0041-10
 ;;9002226.02101,"618,49483-0043-01 ",.01)
 ;;49483-0043-01
 ;;9002226.02101,"618,49483-0043-01 ",.02)
 ;;49483-0043-01
 ;;9002226.02101,"618,49483-0043-10 ",.01)
 ;;49483-0043-10
 ;;9002226.02101,"618,49483-0043-10 ",.02)
 ;;49483-0043-10
 ;;9002226.02101,"618,49769-0326-21 ",.01)
 ;;49769-0326-21
 ;;9002226.02101,"618,49769-0326-21 ",.02)
 ;;49769-0326-21
 ;;9002226.02101,"618,49769-0546-16 ",.01)
 ;;49769-0546-16
 ;;9002226.02101,"618,49769-0546-16 ",.02)
 ;;49769-0546-16
 ;;9002226.02101,"618,49769-0562-10 ",.01)
 ;;49769-0562-10
 ;;9002226.02101,"618,49769-0562-10 ",.02)
 ;;49769-0562-10
 ;;9002226.02101,"618,49769-0567-16 ",.01)
 ;;49769-0567-16
 ;;9002226.02101,"618,49769-0567-16 ",.02)
 ;;49769-0567-16
 ;;9002226.02101,"618,49769-0568-16 ",.01)
 ;;49769-0568-16
 ;;9002226.02101,"618,49769-0568-16 ",.02)
 ;;49769-0568-16
 ;;9002226.02101,"618,49769-0576-21 ",.01)
 ;;49769-0576-21
 ;;9002226.02101,"618,49769-0576-21 ",.02)
 ;;49769-0576-21
 ;;9002226.02101,"618,49884-0043-01 ",.01)
 ;;49884-0043-01
 ;;9002226.02101,"618,49884-0043-01 ",.02)
 ;;49884-0043-01
 ;;9002226.02101,"618,49884-0043-10 ",.01)
 ;;49884-0043-10
 ;;9002226.02101,"618,49884-0043-10 ",.02)
 ;;49884-0043-10
 ;;9002226.02101,"618,49884-0164-01 ",.01)
 ;;49884-0164-01
 ;;9002226.02101,"618,49884-0164-01 ",.02)
 ;;49884-0164-01
 ;;9002226.02101,"618,49884-0165-01 ",.01)
 ;;49884-0165-01
 ;;9002226.02101,"618,49884-0165-01 ",.02)
 ;;49884-0165-01
 ;;9002226.02101,"618,49884-0165-10 ",.01)
 ;;49884-0165-10
 ;;9002226.02101,"618,49884-0165-10 ",.02)
 ;;49884-0165-10
 ;;9002226.02101,"618,49884-0166-01 ",.01)
 ;;49884-0166-01
 ;;9002226.02101,"618,49884-0166-01 ",.02)
 ;;49884-0166-01
 ;;9002226.02101,"618,49884-0166-10 ",.01)
 ;;49884-0166-10
 ;;9002226.02101,"618,49884-0166-10 ",.02)
 ;;49884-0166-10
 ;;9002226.02101,"618,49884-0235-33 ",.01)
 ;;49884-0235-33
 ;;9002226.02101,"618,49884-0235-33 ",.02)
 ;;49884-0235-33
 ;;9002226.02101,"618,49963-0115-16 ",.01)
 ;;49963-0115-16
 ;;9002226.02101,"618,49963-0115-16 ",.02)
 ;;49963-0115-16
 ;;9002226.02101,"618,49963-0123-01 ",.01)
 ;;49963-0123-01
 ;;9002226.02101,"618,49963-0123-01 ",.02)
 ;;49963-0123-01
 ;;9002226.02101,"618,49999-0024-00 ",.01)
 ;;49999-0024-00
 ;;9002226.02101,"618,49999-0024-00 ",.02)
 ;;49999-0024-00
 ;;9002226.02101,"618,49999-0024-12 ",.01)
 ;;49999-0024-12
 ;;9002226.02101,"618,49999-0024-12 ",.02)
 ;;49999-0024-12
 ;;9002226.02101,"618,49999-0024-20 ",.01)
 ;;49999-0024-20
 ;;9002226.02101,"618,49999-0024-20 ",.02)
 ;;49999-0024-20
 ;;9002226.02101,"618,49999-0024-24 ",.01)
 ;;49999-0024-24
 ;;9002226.02101,"618,49999-0024-24 ",.02)
 ;;49999-0024-24
 ;;9002226.02101,"618,49999-0024-30 ",.01)
 ;;49999-0024-30
 ;;9002226.02101,"618,49999-0024-30 ",.02)
 ;;49999-0024-30
 ;;9002226.02101,"618,49999-0024-50 ",.01)
 ;;49999-0024-50
 ;;9002226.02101,"618,49999-0024-50 ",.02)
 ;;49999-0024-50
 ;;9002226.02101,"618,49999-0024-60 ",.01)
 ;;49999-0024-60
 ;;9002226.02101,"618,49999-0024-60 ",.02)
 ;;49999-0024-60
 ;;9002226.02101,"618,49999-0024-90 ",.01)
 ;;49999-0024-90