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

BGP51F17.m

Go to the documentation of this file.
BGP51F17 ;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,63739-0483-10 ",.01)
 ;;63739-0483-10
 ;;9002226.02101,"618,63739-0483-10 ",.02)
 ;;63739-0483-10
 ;;9002226.02101,"618,63739-0486-10 ",.01)
 ;;63739-0486-10
 ;;9002226.02101,"618,63739-0486-10 ",.02)
 ;;63739-0486-10
 ;;9002226.02101,"618,63874-0006-01 ",.01)
 ;;63874-0006-01
 ;;9002226.02101,"618,63874-0006-01 ",.02)
 ;;63874-0006-01
 ;;9002226.02101,"618,63874-0006-02 ",.01)
 ;;63874-0006-02
 ;;9002226.02101,"618,63874-0006-02 ",.02)
 ;;63874-0006-02
 ;;9002226.02101,"618,63874-0006-07 ",.01)
 ;;63874-0006-07
 ;;9002226.02101,"618,63874-0006-07 ",.02)
 ;;63874-0006-07
 ;;9002226.02101,"618,63874-0006-10 ",.01)
 ;;63874-0006-10
 ;;9002226.02101,"618,63874-0006-10 ",.02)
 ;;63874-0006-10
 ;;9002226.02101,"618,63874-0006-12 ",.01)
 ;;63874-0006-12
 ;;9002226.02101,"618,63874-0006-12 ",.02)
 ;;63874-0006-12
 ;;9002226.02101,"618,63874-0006-14 ",.01)
 ;;63874-0006-14
 ;;9002226.02101,"618,63874-0006-14 ",.02)
 ;;63874-0006-14
 ;;9002226.02101,"618,63874-0006-15 ",.01)
 ;;63874-0006-15
 ;;9002226.02101,"618,63874-0006-15 ",.02)
 ;;63874-0006-15
 ;;9002226.02101,"618,63874-0006-20 ",.01)
 ;;63874-0006-20
 ;;9002226.02101,"618,63874-0006-20 ",.02)
 ;;63874-0006-20
 ;;9002226.02101,"618,63874-0006-24 ",.01)
 ;;63874-0006-24
 ;;9002226.02101,"618,63874-0006-24 ",.02)
 ;;63874-0006-24
 ;;9002226.02101,"618,63874-0006-25 ",.01)
 ;;63874-0006-25
 ;;9002226.02101,"618,63874-0006-25 ",.02)
 ;;63874-0006-25
 ;;9002226.02101,"618,63874-0006-28 ",.01)
 ;;63874-0006-28
 ;;9002226.02101,"618,63874-0006-28 ",.02)
 ;;63874-0006-28
 ;;9002226.02101,"618,63874-0006-30 ",.01)
 ;;63874-0006-30
 ;;9002226.02101,"618,63874-0006-30 ",.02)
 ;;63874-0006-30
 ;;9002226.02101,"618,63874-0006-60 ",.01)
 ;;63874-0006-60
 ;;9002226.02101,"618,63874-0006-60 ",.02)
 ;;63874-0006-60
 ;;9002226.02101,"618,63874-0204-12 ",.01)
 ;;63874-0204-12
 ;;9002226.02101,"618,63874-0204-12 ",.02)
 ;;63874-0204-12
 ;;9002226.02101,"618,63874-0204-18 ",.01)
 ;;63874-0204-18
 ;;9002226.02101,"618,63874-0204-18 ",.02)
 ;;63874-0204-18
 ;;9002226.02101,"618,63874-0204-24 ",.01)
 ;;63874-0204-24
 ;;9002226.02101,"618,63874-0204-24 ",.02)
 ;;63874-0204-24
 ;;9002226.02101,"618,63874-0204-38 ",.01)
 ;;63874-0204-38
 ;;9002226.02101,"618,63874-0204-38 ",.02)
 ;;63874-0204-38
 ;;9002226.02101,"618,63874-0204-48 ",.01)
 ;;63874-0204-48
 ;;9002226.02101,"618,63874-0204-48 ",.02)
 ;;63874-0204-48
 ;;9002226.02101,"618,63874-0209-12 ",.01)
 ;;63874-0209-12
 ;;9002226.02101,"618,63874-0209-12 ",.02)
 ;;63874-0209-12
 ;;9002226.02101,"618,63874-0209-18 ",.01)
 ;;63874-0209-18
 ;;9002226.02101,"618,63874-0209-18 ",.02)
 ;;63874-0209-18
 ;;9002226.02101,"618,63874-0209-24 ",.01)
 ;;63874-0209-24
 ;;9002226.02101,"618,63874-0209-24 ",.02)
 ;;63874-0209-24
 ;;9002226.02101,"618,63874-0304-01 ",.01)
 ;;63874-0304-01
 ;;9002226.02101,"618,63874-0304-01 ",.02)
 ;;63874-0304-01
 ;;9002226.02101,"618,63874-0304-02 ",.01)
 ;;63874-0304-02
 ;;9002226.02101,"618,63874-0304-02 ",.02)
 ;;63874-0304-02
 ;;9002226.02101,"618,63874-0304-09 ",.01)
 ;;63874-0304-09
 ;;9002226.02101,"618,63874-0304-09 ",.02)
 ;;63874-0304-09
 ;;9002226.02101,"618,63874-0304-10 ",.01)
 ;;63874-0304-10
 ;;9002226.02101,"618,63874-0304-10 ",.02)
 ;;63874-0304-10
 ;;9002226.02101,"618,63874-0304-12 ",.01)
 ;;63874-0304-12
 ;;9002226.02101,"618,63874-0304-12 ",.02)
 ;;63874-0304-12
 ;;9002226.02101,"618,63874-0304-14 ",.01)
 ;;63874-0304-14
 ;;9002226.02101,"618,63874-0304-14 ",.02)
 ;;63874-0304-14
 ;;9002226.02101,"618,63874-0304-15 ",.01)
 ;;63874-0304-15
 ;;9002226.02101,"618,63874-0304-15 ",.02)
 ;;63874-0304-15
 ;;9002226.02101,"618,63874-0304-20 ",.01)
 ;;63874-0304-20
 ;;9002226.02101,"618,63874-0304-20 ",.02)
 ;;63874-0304-20
 ;;9002226.02101,"618,63874-0304-25 ",.01)
 ;;63874-0304-25
 ;;9002226.02101,"618,63874-0304-25 ",.02)
 ;;63874-0304-25
 ;;9002226.02101,"618,63874-0304-28 ",.01)
 ;;63874-0304-28
 ;;9002226.02101,"618,63874-0304-28 ",.02)
 ;;63874-0304-28
 ;;9002226.02101,"618,63874-0304-30 ",.01)
 ;;63874-0304-30
 ;;9002226.02101,"618,63874-0304-30 ",.02)
 ;;63874-0304-30
 ;;9002226.02101,"618,63874-0304-40 ",.01)
 ;;63874-0304-40
 ;;9002226.02101,"618,63874-0304-40 ",.02)
 ;;63874-0304-40
 ;;9002226.02101,"618,63874-0304-45 ",.01)
 ;;63874-0304-45
 ;;9002226.02101,"618,63874-0304-45 ",.02)
 ;;63874-0304-45
 ;;9002226.02101,"618,63874-0304-60 ",.01)
 ;;63874-0304-60
 ;;9002226.02101,"618,63874-0304-60 ",.02)
 ;;63874-0304-60
 ;;9002226.02101,"618,63874-0304-90 ",.01)
 ;;63874-0304-90
 ;;9002226.02101,"618,63874-0304-90 ",.02)
 ;;63874-0304-90
 ;;9002226.02101,"618,63874-0370-01 ",.01)
 ;;63874-0370-01
 ;;9002226.02101,"618,63874-0370-01 ",.02)
 ;;63874-0370-01
 ;;9002226.02101,"618,63874-0370-08 ",.01)
 ;;63874-0370-08
 ;;9002226.02101,"618,63874-0370-08 ",.02)
 ;;63874-0370-08
 ;;9002226.02101,"618,63874-0370-10 ",.01)
 ;;63874-0370-10
 ;;9002226.02101,"618,63874-0370-10 ",.02)
 ;;63874-0370-10
 ;;9002226.02101,"618,63874-0370-12 ",.01)
 ;;63874-0370-12
 ;;9002226.02101,"618,63874-0370-12 ",.02)
 ;;63874-0370-12
 ;;9002226.02101,"618,63874-0370-15 ",.01)
 ;;63874-0370-15
 ;;9002226.02101,"618,63874-0370-15 ",.02)
 ;;63874-0370-15
 ;;9002226.02101,"618,63874-0370-20 ",.01)
 ;;63874-0370-20
 ;;9002226.02101,"618,63874-0370-20 ",.02)
 ;;63874-0370-20
 ;;9002226.02101,"618,63874-0370-24 ",.01)
 ;;63874-0370-24
 ;;9002226.02101,"618,63874-0370-24 ",.02)
 ;;63874-0370-24
 ;;9002226.02101,"618,63874-0370-30 ",.01)
 ;;63874-0370-30
 ;;9002226.02101,"618,63874-0370-30 ",.02)
 ;;63874-0370-30
 ;;9002226.02101,"618,63874-0370-40 ",.01)
 ;;63874-0370-40
 ;;9002226.02101,"618,63874-0370-40 ",.02)
 ;;63874-0370-40
 ;;9002226.02101,"618,63874-0370-60 ",.01)
 ;;63874-0370-60
 ;;9002226.02101,"618,63874-0370-60 ",.02)
 ;;63874-0370-60
 ;;9002226.02101,"618,63874-0442-01 ",.01)
 ;;63874-0442-01
 ;;9002226.02101,"618,63874-0442-01 ",.02)
 ;;63874-0442-01
 ;;9002226.02101,"618,63874-0442-04 ",.01)
 ;;63874-0442-04
 ;;9002226.02101,"618,63874-0442-04 ",.02)
 ;;63874-0442-04
 ;;9002226.02101,"618,63874-0442-05 ",.01)
 ;;63874-0442-05
 ;;9002226.02101,"618,63874-0442-05 ",.02)
 ;;63874-0442-05
 ;;9002226.02101,"618,63874-0442-09 ",.01)
 ;;63874-0442-09
 ;;9002226.02101,"618,63874-0442-09 ",.02)
 ;;63874-0442-09
 ;;9002226.02101,"618,63874-0442-10 ",.01)
 ;;63874-0442-10
 ;;9002226.02101,"618,63874-0442-10 ",.02)
 ;;63874-0442-10
 ;;9002226.02101,"618,63874-0442-14 ",.01)
 ;;63874-0442-14
 ;;9002226.02101,"618,63874-0442-14 ",.02)
 ;;63874-0442-14
 ;;9002226.02101,"618,63874-0442-15 ",.01)
 ;;63874-0442-15
 ;;9002226.02101,"618,63874-0442-15 ",.02)
 ;;63874-0442-15
 ;;9002226.02101,"618,63874-0442-20 ",.01)
 ;;63874-0442-20
 ;;9002226.02101,"618,63874-0442-20 ",.02)
 ;;63874-0442-20
 ;;9002226.02101,"618,63874-0442-25 ",.01)
 ;;63874-0442-25
 ;;9002226.02101,"618,63874-0442-25 ",.02)
 ;;63874-0442-25
 ;;9002226.02101,"618,63874-0442-28 ",.01)
 ;;63874-0442-28
 ;;9002226.02101,"618,63874-0442-28 ",.02)
 ;;63874-0442-28
 ;;9002226.02101,"618,63874-0442-30 ",.01)
 ;;63874-0442-30
 ;;9002226.02101,"618,63874-0442-30 ",.02)
 ;;63874-0442-30
 ;;9002226.02101,"618,63874-0442-40 ",.01)
 ;;63874-0442-40
 ;;9002226.02101,"618,63874-0442-40 ",.02)
 ;;63874-0442-40
 ;;9002226.02101,"618,63874-0442-45 ",.01)
 ;;63874-0442-45
 ;;9002226.02101,"618,63874-0442-45 ",.02)
 ;;63874-0442-45
 ;;9002226.02101,"618,63874-0442-60 ",.01)
 ;;63874-0442-60
 ;;9002226.02101,"618,63874-0442-60 ",.02)
 ;;63874-0442-60
 ;;9002226.02101,"618,63874-0442-90 ",.01)
 ;;63874-0442-90
 ;;9002226.02101,"618,63874-0442-90 ",.02)
 ;;63874-0442-90
 ;;9002226.02101,"618,63874-0565-01 ",.01)
 ;;63874-0565-01
 ;;9002226.02101,"618,63874-0565-01 ",.02)
 ;;63874-0565-01
 ;;9002226.02101,"618,63874-0565-10 ",.01)
 ;;63874-0565-10
 ;;9002226.02101,"618,63874-0565-10 ",.02)
 ;;63874-0565-10
 ;;9002226.02101,"618,63874-0565-12 ",.01)
 ;;63874-0565-12
 ;;9002226.02101,"618,63874-0565-12 ",.02)
 ;;63874-0565-12
 ;;9002226.02101,"618,63874-0565-15 ",.01)
 ;;63874-0565-15
 ;;9002226.02101,"618,63874-0565-15 ",.02)
 ;;63874-0565-15
 ;;9002226.02101,"618,63874-0565-20 ",.01)
 ;;63874-0565-20
 ;;9002226.02101,"618,63874-0565-20 ",.02)
 ;;63874-0565-20
 ;;9002226.02101,"618,63874-0565-30 ",.01)
 ;;63874-0565-30
 ;;9002226.02101,"618,63874-0565-30 ",.02)
 ;;63874-0565-30
 ;;9002226.02101,"618,63874-0565-60 ",.01)
 ;;63874-0565-60
 ;;9002226.02101,"618,63874-0565-60 ",.02)
 ;;63874-0565-60
 ;;9002226.02101,"618,63874-0600-10 ",.01)
 ;;63874-0600-10
 ;;9002226.02101,"618,63874-0600-10 ",.02)
 ;;63874-0600-10
 ;;9002226.02101,"618,63874-0600-14 ",.01)
 ;;63874-0600-14
 ;;9002226.02101,"618,63874-0600-14 ",.02)
 ;;63874-0600-14
 ;;9002226.02101,"618,63874-0600-15 ",.01)
 ;;63874-0600-15
 ;;9002226.02101,"618,63874-0600-15 ",.02)
 ;;63874-0600-15
 ;;9002226.02101,"618,63874-0600-20 ",.01)
 ;;63874-0600-20
 ;;9002226.02101,"618,63874-0600-20 ",.02)
 ;;63874-0600-20
 ;;9002226.02101,"618,63874-0600-30 ",.01)
 ;;63874-0600-30
 ;;9002226.02101,"618,63874-0600-30 ",.02)
 ;;63874-0600-30
 ;;9002226.02101,"618,63874-0600-60 ",.01)
 ;;63874-0600-60
 ;;9002226.02101,"618,63874-0600-60 ",.02)
 ;;63874-0600-60
 ;;9002226.02101,"618,63874-0711-12 ",.01)
 ;;63874-0711-12
 ;;9002226.02101,"618,63874-0711-12 ",.02)
 ;;63874-0711-12
 ;;9002226.02101,"618,63874-0711-18 ",.01)
 ;;63874-0711-18
 ;;9002226.02101,"618,63874-0711-18 ",.02)
 ;;63874-0711-18
 ;;9002226.02101,"618,63874-0757-01 ",.01)
 ;;63874-0757-01
 ;;9002226.02101,"618,63874-0757-01 ",.02)
 ;;63874-0757-01
 ;;9002226.02101,"618,63874-0757-04 ",.01)
 ;;63874-0757-04
 ;;9002226.02101,"618,63874-0757-04 ",.02)
 ;;63874-0757-04
 ;;9002226.02101,"618,63874-0757-10 ",.01)
 ;;63874-0757-10
 ;;9002226.02101,"618,63874-0757-10 ",.02)
 ;;63874-0757-10
 ;;9002226.02101,"618,63874-0757-15 ",.01)
 ;;63874-0757-15
 ;;9002226.02101,"618,63874-0757-15 ",.02)
 ;;63874-0757-15
 ;;9002226.02101,"618,63874-0757-20 ",.01)
 ;;63874-0757-20
 ;;9002226.02101,"618,63874-0757-20 ",.02)
 ;;63874-0757-20
 ;;9002226.02101,"618,63874-0757-21 ",.01)
 ;;63874-0757-21
 ;;9002226.02101,"618,63874-0757-21 ",.02)
 ;;63874-0757-21
 ;;9002226.02101,"618,63874-0757-24 ",.01)
 ;;63874-0757-24
 ;;9002226.02101,"618,63874-0757-24 ",.02)
 ;;63874-0757-24
 ;;9002226.02101,"618,63874-0757-28 ",.01)
 ;;63874-0757-28
 ;;9002226.02101,"618,63874-0757-28 ",.02)
 ;;63874-0757-28
 ;;9002226.02101,"618,63874-0757-30 ",.01)
 ;;63874-0757-30
 ;;9002226.02101,"618,63874-0757-30 ",.02)
 ;;63874-0757-30
 ;;9002226.02101,"618,63874-0757-60 ",.01)
 ;;63874-0757-60
 ;;9002226.02101,"618,63874-0757-60 ",.02)
 ;;63874-0757-60
 ;;9002226.02101,"618,63874-0757-90 ",.01)
 ;;63874-0757-90
 ;;9002226.02101,"618,63874-0757-90 ",.02)
 ;;63874-0757-90
 ;;9002226.02101,"618,64125-0136-01 ",.01)
 ;;64125-0136-01
 ;;9002226.02101,"618,64125-0136-01 ",.02)
 ;;64125-0136-01
 ;;9002226.02101,"618,64125-0137-01 ",.01)
 ;;64125-0137-01
 ;;9002226.02101,"618,64125-0137-01 ",.02)
 ;;64125-0137-01
 ;;9002226.02101,"618,64125-0137-10 ",.01)
 ;;64125-0137-10
 ;;9002226.02101,"618,64125-0137-10 ",.02)
 ;;64125-0137-10
 ;;9002226.02101,"618,64125-0138-01 ",.01)
 ;;64125-0138-01
 ;;9002226.02101,"618,64125-0138-01 ",.02)
 ;;64125-0138-01
 ;;9002226.02101,"618,64125-0138-10 ",.01)
 ;;64125-0138-10
 ;;9002226.02101,"618,64125-0138-10 ",.02)
 ;;64125-0138-10
 ;;9002226.02101,"618,64376-0605-01 ",.01)
 ;;64376-0605-01
 ;;9002226.02101,"618,64376-0605-01 ",.02)
 ;;64376-0605-01
 ;;9002226.02101,"618,64376-0612-16 ",.01)
 ;;64376-0612-16
 ;;9002226.02101,"618,64376-0612-16 ",.02)
 ;;64376-0612-16
 ;;9002226.02101,"618,64376-0612-40 ",.01)
 ;;64376-0612-40
 ;;9002226.02101,"618,64376-0612-40 ",.02)
 ;;64376-0612-40
 ;;9002226.02101,"618,64543-0025-90 ",.01)
 ;;64543-0025-90
 ;;9002226.02101,"618,64543-0025-90 ",.02)
 ;;64543-0025-90
 ;;9002226.02101,"618,64543-0084-90 ",.01)
 ;;64543-0084-90
 ;;9002226.02101,"618,64543-0084-90 ",.02)
 ;;64543-0084-90
 ;;9002226.02101,"618,64543-0085-01 ",.01)
 ;;64543-0085-01
 ;;9002226.02101,"618,64543-0085-01 ",.02)
 ;;64543-0085-01
 ;;9002226.02101,"618,64543-0091-90 ",.01)
 ;;64543-0091-90
 ;;9002226.02101,"618,64543-0091-90 ",.02)
 ;;64543-0091-90
 ;;9002226.02101,"618,64543-0096-90 ",.01)
 ;;64543-0096-90
 ;;9002226.02101,"618,64543-0096-90 ",.02)
 ;;64543-0096-90
 ;;9002226.02101,"618,64543-0500-04 ",.01)
 ;;64543-0500-04
 ;;9002226.02101,"618,64543-0500-04 ",.02)
 ;;64543-0500-04
 ;;9002226.02101,"618,64543-0500-16 ",.01)
 ;;64543-0500-16
 ;;9002226.02101,"618,64543-0500-16 ",.02)
 ;;64543-0500-16
 ;;9002226.02101,"618,64661-0060-16 ",.01)
 ;;64661-0060-16
 ;;9002226.02101,"618,64661-0060-16 ",.02)
 ;;64661-0060-16
 ;;9002226.02101,"618,64661-0090-04 ",.01)
 ;;64661-0090-04
 ;;9002226.02101,"618,64661-0090-04 ",.02)
 ;;64661-0090-04
 ;;9002226.02101,"618,64720-0143-10 ",.01)
 ;;64720-0143-10
 ;;9002226.02101,"618,64720-0143-10 ",.02)
 ;;64720-0143-10
 ;;9002226.02101,"618,64720-0143-11 ",.01)
 ;;64720-0143-11
 ;;9002226.02101,"618,64720-0143-11 ",.02)
 ;;64720-0143-11
 ;;9002226.02101,"618,64720-0144-10 ",.01)
 ;;64720-0144-10
 ;;9002226.02101,"618,64720-0144-10 ",.02)
 ;;64720-0144-10
 ;;9002226.02101,"618,64720-0144-11 ",.01)
 ;;64720-0144-11
 ;;9002226.02101,"618,64720-0144-11 ",.02)
 ;;64720-0144-11
 ;;9002226.02101,"618,64720-0145-10 ",.01)
 ;;64720-0145-10
 ;;9002226.02101,"618,64720-0145-10 ",.02)
 ;;64720-0145-10