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

BGP51F10.m

Go to the documentation of this file.
BGP51F10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,39822-5500-02 ",.01)
 ;;39822-5500-02
 ;;9002226.02101,"618,39822-5500-02 ",.02)
 ;;39822-5500-02
 ;;9002226.02101,"618,39822-5500-03 ",.01)
 ;;39822-5500-03
 ;;9002226.02101,"618,39822-5500-03 ",.02)
 ;;39822-5500-03
 ;;9002226.02101,"618,39822-5500-05 ",.01)
 ;;39822-5500-05
 ;;9002226.02101,"618,39822-5500-05 ",.02)
 ;;39822-5500-05
 ;;9002226.02101,"618,39822-5500-06 ",.01)
 ;;39822-5500-06
 ;;9002226.02101,"618,39822-5500-06 ",.02)
 ;;39822-5500-06
 ;;9002226.02101,"618,42192-0508-30 ",.01)
 ;;42192-0508-30
 ;;9002226.02101,"618,42192-0508-30 ",.02)
 ;;42192-0508-30
 ;;9002226.02101,"618,42192-0513-04 ",.01)
 ;;42192-0513-04
 ;;9002226.02101,"618,42192-0513-04 ",.02)
 ;;42192-0513-04
 ;;9002226.02101,"618,42192-0514-16 ",.01)
 ;;42192-0514-16
 ;;9002226.02101,"618,42192-0514-16 ",.02)
 ;;42192-0514-16
 ;;9002226.02101,"618,42254-0045-08 ",.01)
 ;;42254-0045-08
 ;;9002226.02101,"618,42254-0045-08 ",.02)
 ;;42254-0045-08
 ;;9002226.02101,"618,42254-0045-10 ",.01)
 ;;42254-0045-10
 ;;9002226.02101,"618,42254-0045-10 ",.02)
 ;;42254-0045-10
 ;;9002226.02101,"618,42254-0045-12 ",.01)
 ;;42254-0045-12
 ;;9002226.02101,"618,42254-0045-12 ",.02)
 ;;42254-0045-12
 ;;9002226.02101,"618,42254-0045-15 ",.01)
 ;;42254-0045-15
 ;;9002226.02101,"618,42254-0045-15 ",.02)
 ;;42254-0045-15
 ;;9002226.02101,"618,42254-0045-20 ",.01)
 ;;42254-0045-20
 ;;9002226.02101,"618,42254-0045-20 ",.02)
 ;;42254-0045-20
 ;;9002226.02101,"618,42254-0045-30 ",.01)
 ;;42254-0045-30
 ;;9002226.02101,"618,42254-0045-30 ",.02)
 ;;42254-0045-30
 ;;9002226.02101,"618,42254-0045-60 ",.01)
 ;;42254-0045-60
 ;;9002226.02101,"618,42254-0045-60 ",.02)
 ;;42254-0045-60
 ;;9002226.02101,"618,42254-0045-90 ",.01)
 ;;42254-0045-90
 ;;9002226.02101,"618,42254-0045-90 ",.02)
 ;;42254-0045-90
 ;;9002226.02101,"618,42254-0140-04 ",.01)
 ;;42254-0140-04
 ;;9002226.02101,"618,42254-0140-04 ",.02)
 ;;42254-0140-04
 ;;9002226.02101,"618,42254-0163-12 ",.01)
 ;;42254-0163-12
 ;;9002226.02101,"618,42254-0163-12 ",.02)
 ;;42254-0163-12
 ;;9002226.02101,"618,42254-0167-12 ",.01)
 ;;42254-0167-12
 ;;9002226.02101,"618,42254-0167-12 ",.02)
 ;;42254-0167-12
 ;;9002226.02101,"618,42254-0400-12 ",.01)
 ;;42254-0400-12
 ;;9002226.02101,"618,42254-0400-12 ",.02)
 ;;42254-0400-12
 ;;9002226.02101,"618,42291-0225-01 ",.01)
 ;;42291-0225-01
 ;;9002226.02101,"618,42291-0225-01 ",.02)
 ;;42291-0225-01
 ;;9002226.02101,"618,42291-0225-10 ",.01)
 ;;42291-0225-10
 ;;9002226.02101,"618,42291-0225-10 ",.02)
 ;;42291-0225-10
 ;;9002226.02101,"618,42291-0322-50 ",.01)
 ;;42291-0322-50
 ;;9002226.02101,"618,42291-0322-50 ",.02)
 ;;42291-0322-50
 ;;9002226.02101,"618,42291-0322-90 ",.01)
 ;;42291-0322-90
 ;;9002226.02101,"618,42291-0322-90 ",.02)
 ;;42291-0322-90
 ;;9002226.02101,"618,42291-0323-50 ",.01)
 ;;42291-0323-50
 ;;9002226.02101,"618,42291-0323-50 ",.02)
 ;;42291-0323-50
 ;;9002226.02101,"618,42291-0323-90 ",.01)
 ;;42291-0323-90
 ;;9002226.02101,"618,42291-0323-90 ",.02)
 ;;42291-0323-90
 ;;9002226.02101,"618,42549-0528-30 ",.01)
 ;;42549-0528-30
 ;;9002226.02101,"618,42549-0528-30 ",.02)
 ;;42549-0528-30
 ;;9002226.02101,"618,42549-0543-10 ",.01)
 ;;42549-0543-10
 ;;9002226.02101,"618,42549-0543-10 ",.02)
 ;;42549-0543-10
 ;;9002226.02101,"618,42549-0543-20 ",.01)
 ;;42549-0543-20
 ;;9002226.02101,"618,42549-0543-20 ",.02)
 ;;42549-0543-20
 ;;9002226.02101,"618,42549-0543-30 ",.01)
 ;;42549-0543-30
 ;;9002226.02101,"618,42549-0543-30 ",.02)
 ;;42549-0543-30
 ;;9002226.02101,"618,42819-0103-01 ",.01)
 ;;42819-0103-01
 ;;9002226.02101,"618,42819-0103-01 ",.02)
 ;;42819-0103-01
 ;;9002226.02101,"618,42819-0104-01 ",.01)
 ;;42819-0104-01
 ;;9002226.02101,"618,42819-0104-01 ",.02)
 ;;42819-0104-01
 ;;9002226.02101,"618,42819-0105-01 ",.01)
 ;;42819-0105-01
 ;;9002226.02101,"618,42819-0105-01 ",.02)
 ;;42819-0105-01
 ;;9002226.02101,"618,42819-0106-01 ",.01)
 ;;42819-0106-01
 ;;9002226.02101,"618,42819-0106-01 ",.02)
 ;;42819-0106-01
 ;;9002226.02101,"618,43063-0049-02 ",.01)
 ;;43063-0049-02
 ;;9002226.02101,"618,43063-0049-02 ",.02)
 ;;43063-0049-02
 ;;9002226.02101,"618,43063-0049-06 ",.01)
 ;;43063-0049-06
 ;;9002226.02101,"618,43063-0049-06 ",.02)
 ;;43063-0049-06
 ;;9002226.02101,"618,43063-0060-02 ",.01)
 ;;43063-0060-02
 ;;9002226.02101,"618,43063-0060-02 ",.02)
 ;;43063-0060-02
 ;;9002226.02101,"618,43063-0060-04 ",.01)
 ;;43063-0060-04
 ;;9002226.02101,"618,43063-0060-04 ",.02)
 ;;43063-0060-04
 ;;9002226.02101,"618,43063-0060-06 ",.01)
 ;;43063-0060-06
 ;;9002226.02101,"618,43063-0060-06 ",.02)
 ;;43063-0060-06
 ;;9002226.02101,"618,43063-0095-06 ",.01)
 ;;43063-0095-06
 ;;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-0207-30 ",.01)
 ;;43063-0207-30
 ;;9002226.02101,"618,43063-0207-30 ",.02)
 ;;43063-0207-30
 ;;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-10 ",.01)
 ;;43063-0406-10
 ;;9002226.02101,"618,43063-0406-10 ",.02)
 ;;43063-0406-10
 ;;9002226.02101,"618,43063-0406-15 ",.01)
 ;;43063-0406-15
 ;;9002226.02101,"618,43063-0406-15 ",.02)
 ;;43063-0406-15
 ;;9002226.02101,"618,43063-0406-30 ",.01)
 ;;43063-0406-30
 ;;9002226.02101,"618,43063-0406-30 ",.02)
 ;;43063-0406-30
 ;;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,43093-0104-01 ",.01)
 ;;43093-0104-01
 ;;9002226.02101,"618,43093-0104-01 ",.02)
 ;;43093-0104-01
 ;;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-0114-08 ",.01)
 ;;43378-0114-08
 ;;9002226.02101,"618,43378-0114-08 ",.02)
 ;;43378-0114-08
 ;;9002226.02101,"618,43378-0115-08 ",.01)
 ;;43378-0115-08
 ;;9002226.02101,"618,43378-0115-08 ",.02)
 ;;43378-0115-08
 ;;9002226.02101,"618,43378-0116-08 ",.01)
 ;;43378-0116-08
 ;;9002226.02101,"618,43378-0116-08 ",.02)
 ;;43378-0116-08
 ;;9002226.02101,"618,44183-0512-04 ",.01)
 ;;44183-0512-04
 ;;9002226.02101,"618,44183-0512-04 ",.02)
 ;;44183-0512-04
 ;;9002226.02101,"618,44183-0514-04 ",.01)
 ;;44183-0514-04
 ;;9002226.02101,"618,44183-0514-04 ",.02)
 ;;44183-0514-04
 ;;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,47028-0019-01 ",.01)
 ;;47028-0019-01
 ;;9002226.02101,"618,47028-0019-01 ",.02)
 ;;47028-0019-01
 ;;9002226.02101,"618,47463-0045-60 ",.01)
 ;;47463-0045-60
 ;;9002226.02101,"618,47463-0045-60 ",.02)
 ;;47463-0045-60
 ;;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-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,49769-0320-21 ",.01)
 ;;49769-0320-21
 ;;9002226.02101,"618,49769-0320-21 ",.02)
 ;;49769-0320-21
 ;;9002226.02101,"618,49769-0326-21 ",.01)
 ;;49769-0326-21
 ;;9002226.02101,"618,49769-0326-21 ",.02)
 ;;49769-0326-21
 ;;9002226.02101,"618,49769-0489-16 ",.01)
 ;;49769-0489-16
 ;;9002226.02101,"618,49769-0489-16 ",.02)
 ;;49769-0489-16
 ;;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-0235-33 ",.01)
 ;;49884-0235-33
 ;;9002226.02101,"618,49884-0235-33 ",.02)
 ;;49884-0235-33
 ;;9002226.02101,"618,49884-0235-37 ",.01)
 ;;49884-0235-37
 ;;9002226.02101,"618,49884-0235-37 ",.02)
 ;;49884-0235-37
 ;;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