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

BGP31L17.m

Go to the documentation of this file.
BGP31L17 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,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,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,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
 ;;9002226.02101,"618,49999-0024-90 ",.02)
 ;;49999-0024-90
 ;;9002226.02101,"618,49999-0035-24 ",.01)
 ;;49999-0035-24
 ;;9002226.02101,"618,49999-0035-24 ",.02)
 ;;49999-0035-24
 ;;9002226.02101,"618,49999-0035-30 ",.01)
 ;;49999-0035-30
 ;;9002226.02101,"618,49999-0035-30 ",.02)
 ;;49999-0035-30
 ;;9002226.02101,"618,49999-0035-60 ",.01)
 ;;49999-0035-60
 ;;9002226.02101,"618,49999-0035-60 ",.02)
 ;;49999-0035-60
 ;;9002226.02101,"618,49999-0036-12 ",.01)
 ;;49999-0036-12
 ;;9002226.02101,"618,49999-0036-12 ",.02)
 ;;49999-0036-12
 ;;9002226.02101,"618,49999-0036-60 ",.01)
 ;;49999-0036-60
 ;;9002226.02101,"618,49999-0036-60 ",.02)
 ;;49999-0036-60
 ;;9002226.02101,"618,49999-0090-05 ",.01)
 ;;49999-0090-05
 ;;9002226.02101,"618,49999-0090-05 ",.02)
 ;;49999-0090-05
 ;;9002226.02101,"618,49999-0090-10 ",.01)
 ;;49999-0090-10
 ;;9002226.02101,"618,49999-0090-10 ",.02)
 ;;49999-0090-10
 ;;9002226.02101,"618,49999-0090-12 ",.01)
 ;;49999-0090-12
 ;;9002226.02101,"618,49999-0090-12 ",.02)
 ;;49999-0090-12
 ;;9002226.02101,"618,49999-0090-15 ",.01)
 ;;49999-0090-15
 ;;9002226.02101,"618,49999-0090-15 ",.02)
 ;;49999-0090-15
 ;;9002226.02101,"618,49999-0090-20 ",.01)
 ;;49999-0090-20
 ;;9002226.02101,"618,49999-0090-20 ",.02)
 ;;49999-0090-20
 ;;9002226.02101,"618,49999-0090-30 ",.01)
 ;;49999-0090-30
 ;;9002226.02101,"618,49999-0090-30 ",.02)
 ;;49999-0090-30
 ;;9002226.02101,"618,49999-0090-60 ",.01)
 ;;49999-0090-60
 ;;9002226.02101,"618,49999-0090-60 ",.02)
 ;;49999-0090-60
 ;;9002226.02101,"618,49999-0090-90 ",.01)
 ;;49999-0090-90
 ;;9002226.02101,"618,49999-0090-90 ",.02)
 ;;49999-0090-90
 ;;9002226.02101,"618,49999-0091-04 ",.01)
 ;;49999-0091-04
 ;;9002226.02101,"618,49999-0091-04 ",.02)
 ;;49999-0091-04
 ;;9002226.02101,"618,49999-0091-15 ",.01)
 ;;49999-0091-15
 ;;9002226.02101,"618,49999-0091-15 ",.02)
 ;;49999-0091-15
 ;;9002226.02101,"618,49999-0091-20 ",.01)
 ;;49999-0091-20
 ;;9002226.02101,"618,49999-0091-20 ",.02)
 ;;49999-0091-20
 ;;9002226.02101,"618,49999-0091-30 ",.01)
 ;;49999-0091-30
 ;;9002226.02101,"618,49999-0091-30 ",.02)
 ;;49999-0091-30
 ;;9002226.02101,"618,49999-0091-60 ",.01)
 ;;49999-0091-60
 ;;9002226.02101,"618,49999-0091-60 ",.02)
 ;;49999-0091-60
 ;;9002226.02101,"618,49999-0152-04 ",.01)
 ;;49999-0152-04
 ;;9002226.02101,"618,49999-0152-04 ",.02)
 ;;49999-0152-04
 ;;9002226.02101,"618,49999-0262-04 ",.01)
 ;;49999-0262-04
 ;;9002226.02101,"618,49999-0262-04 ",.02)
 ;;49999-0262-04
 ;;9002226.02101,"618,49999-0269-06 ",.01)
 ;;49999-0269-06
 ;;9002226.02101,"618,49999-0269-06 ",.02)
 ;;49999-0269-06
 ;;9002226.02101,"618,49999-0314-04 ",.01)
 ;;49999-0314-04
 ;;9002226.02101,"618,49999-0314-04 ",.02)
 ;;49999-0314-04
 ;;9002226.02101,"618,49999-0326-04 ",.01)
 ;;49999-0326-04
 ;;9002226.02101,"618,49999-0326-04 ",.02)
 ;;49999-0326-04
 ;;9002226.02101,"618,49999-0339-12 ",.01)
 ;;49999-0339-12
 ;;9002226.02101,"618,49999-0339-12 ",.02)
 ;;49999-0339-12
 ;;9002226.02101,"618,49999-0340-12 ",.01)
 ;;49999-0340-12
 ;;9002226.02101,"618,49999-0340-12 ",.02)
 ;;49999-0340-12
 ;;9002226.02101,"618,49999-0379-04 ",.01)
 ;;49999-0379-04
 ;;9002226.02101,"618,49999-0379-04 ",.02)
 ;;49999-0379-04
 ;;9002226.02101,"618,49999-0493-18 ",.01)
 ;;49999-0493-18
 ;;9002226.02101,"618,49999-0493-18 ",.02)
 ;;49999-0493-18
 ;;9002226.02101,"618,49999-0553-04 ",.01)
 ;;49999-0553-04
 ;;9002226.02101,"618,49999-0553-04 ",.02)
 ;;49999-0553-04
 ;;9002226.02101,"618,49999-0554-30 ",.01)
 ;;49999-0554-30
 ;;9002226.02101,"618,49999-0554-30 ",.02)
 ;;49999-0554-30
 ;;9002226.02101,"618,49999-0594-05 ",.01)
 ;;49999-0594-05
 ;;9002226.02101,"618,49999-0594-05 ",.02)
 ;;49999-0594-05
 ;;9002226.02101,"618,49999-0594-30 ",.01)
 ;;49999-0594-30
 ;;9002226.02101,"618,49999-0594-30 ",.02)
 ;;49999-0594-30
 ;;9002226.02101,"618,49999-0594-90 ",.01)
 ;;49999-0594-90
 ;;9002226.02101,"618,49999-0594-90 ",.02)
 ;;49999-0594-90
 ;;9002226.02101,"618,49999-0657-04 ",.01)
 ;;49999-0657-04
 ;;9002226.02101,"618,49999-0657-04 ",.02)
 ;;49999-0657-04
 ;;9002226.02101,"618,49999-0701-30 ",.01)
 ;;49999-0701-30
 ;;9002226.02101,"618,49999-0701-30 ",.02)
 ;;49999-0701-30
 ;;9002226.02101,"618,49999-0734-60 ",.01)
 ;;49999-0734-60
 ;;9002226.02101,"618,49999-0734-60 ",.02)
 ;;49999-0734-60
 ;;9002226.02101,"618,49999-0735-60 ",.01)
 ;;49999-0735-60
 ;;9002226.02101,"618,49999-0735-60 ",.02)
 ;;49999-0735-60
 ;;9002226.02101,"618,49999-0768-20 ",.01)
 ;;49999-0768-20
 ;;9002226.02101,"618,49999-0768-20 ",.02)
 ;;49999-0768-20
 ;;9002226.02101,"618,49999-0768-30 ",.01)
 ;;49999-0768-30
 ;;9002226.02101,"618,49999-0768-30 ",.02)
 ;;49999-0768-30
 ;;9002226.02101,"618,49999-0814-30 ",.01)
 ;;49999-0814-30
 ;;9002226.02101,"618,49999-0814-30 ",.02)
 ;;49999-0814-30
 ;;9002226.02101,"618,49999-0902-20 ",.01)
 ;;49999-0902-20
 ;;9002226.02101,"618,49999-0902-20 ",.02)
 ;;49999-0902-20
 ;;9002226.02101,"618,50111-0307-01 ",.01)
 ;;50111-0307-01
 ;;9002226.02101,"618,50111-0307-01 ",.02)
 ;;50111-0307-01
 ;;9002226.02101,"618,50111-0307-02 ",.01)
 ;;50111-0307-02
 ;;9002226.02101,"618,50111-0307-02 ",.02)
 ;;50111-0307-02
 ;;9002226.02101,"618,50111-0307-03 ",.01)
 ;;50111-0307-03
 ;;9002226.02101,"618,50111-0307-03 ",.02)
 ;;50111-0307-03
 ;;9002226.02101,"618,50111-0308-01 ",.01)
 ;;50111-0308-01
 ;;9002226.02101,"618,50111-0308-01 ",.02)
 ;;50111-0308-01
 ;;9002226.02101,"618,50111-0308-02 ",.01)
 ;;50111-0308-02
 ;;9002226.02101,"618,50111-0308-02 ",.02)
 ;;50111-0308-02
 ;;9002226.02101,"618,50111-0308-03 ",.01)
 ;;50111-0308-03
 ;;9002226.02101,"618,50111-0308-03 ",.02)
 ;;50111-0308-03
 ;;9002226.02101,"618,50111-0309-01 ",.01)
 ;;50111-0309-01
 ;;9002226.02101,"618,50111-0309-01 ",.02)
 ;;50111-0309-01
 ;;9002226.02101,"618,50111-0309-02 ",.01)
 ;;50111-0309-02
 ;;9002226.02101,"618,50111-0309-02 ",.02)
 ;;50111-0309-02
 ;;9002226.02101,"618,50111-0309-03 ",.01)
 ;;50111-0309-03
 ;;9002226.02101,"618,50111-0309-03 ",.02)
 ;;50111-0309-03
 ;;9002226.02101,"618,50111-0314-01 ",.01)
 ;;50111-0314-01
 ;;9002226.02101,"618,50111-0314-01 ",.02)
 ;;50111-0314-01
 ;;9002226.02101,"618,50111-0314-03 ",.01)
 ;;50111-0314-03
 ;;9002226.02101,"618,50111-0314-03 ",.02)
 ;;50111-0314-03
 ;;9002226.02101,"618,50111-0393-01 ",.01)
 ;;50111-0393-01
 ;;9002226.02101,"618,50111-0393-01 ",.02)
 ;;50111-0393-01
 ;;9002226.02101,"618,50111-0394-01 ",.01)
 ;;50111-0394-01
 ;;9002226.02101,"618,50111-0394-01 ",.02)
 ;;50111-0394-01
 ;;9002226.02101,"618,50111-0394-03 ",.01)
 ;;50111-0394-03
 ;;9002226.02101,"618,50111-0394-03 ",.02)
 ;;50111-0394-03
 ;;9002226.02101,"618,50111-0395-01 ",.01)
 ;;50111-0395-01
 ;;9002226.02101,"618,50111-0395-01 ",.02)
 ;;50111-0395-01
 ;;9002226.02101,"618,50111-0395-03 ",.01)
 ;;50111-0395-03
 ;;9002226.02101,"618,50111-0395-03 ",.02)
 ;;50111-0395-03
 ;;9002226.02101,"618,50313-0108-26 ",.01)
 ;;50313-0108-26
 ;;9002226.02101,"618,50313-0108-26 ",.02)
 ;;50313-0108-26
 ;;9002226.02101,"618,50313-0117-42 ",.01)
 ;;50313-0117-42
 ;;9002226.02101,"618,50313-0117-42 ",.02)
 ;;50313-0117-42
 ;;9002226.02101,"618,50383-0576-01 ",.01)
 ;;50383-0576-01
 ;;9002226.02101,"618,50383-0576-01 ",.02)
 ;;50383-0576-01