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

BGP31L29.m

Go to the documentation of this file.
BGP31L29 ;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,63629-1868-02 ",.01)
 ;;63629-1868-02
 ;;9002226.02101,"618,63629-1868-02 ",.02)
 ;;63629-1868-02
 ;;9002226.02101,"618,63629-1870-01 ",.01)
 ;;63629-1870-01
 ;;9002226.02101,"618,63629-1870-01 ",.02)
 ;;63629-1870-01
 ;;9002226.02101,"618,63629-1870-02 ",.01)
 ;;63629-1870-02
 ;;9002226.02101,"618,63629-1870-02 ",.02)
 ;;63629-1870-02
 ;;9002226.02101,"618,63629-2959-01 ",.01)
 ;;63629-2959-01
 ;;9002226.02101,"618,63629-2959-01 ",.02)
 ;;63629-2959-01
 ;;9002226.02101,"618,63629-2982-01 ",.01)
 ;;63629-2982-01
 ;;9002226.02101,"618,63629-2982-01 ",.02)
 ;;63629-2982-01
 ;;9002226.02101,"618,63629-2982-02 ",.01)
 ;;63629-2982-02
 ;;9002226.02101,"618,63629-2982-02 ",.02)
 ;;63629-2982-02
 ;;9002226.02101,"618,63629-4121-01 ",.01)
 ;;63629-4121-01
 ;;9002226.02101,"618,63629-4121-01 ",.02)
 ;;63629-4121-01
 ;;9002226.02101,"618,63717-0290-30 ",.01)
 ;;63717-0290-30
 ;;9002226.02101,"618,63717-0290-30 ",.02)
 ;;63717-0290-30
 ;;9002226.02101,"618,63717-0360-30 ",.01)
 ;;63717-0360-30
 ;;9002226.02101,"618,63717-0360-30 ",.02)
 ;;63717-0360-30
 ;;9002226.02101,"618,63717-0361-30 ",.01)
 ;;63717-0361-30
 ;;9002226.02101,"618,63717-0361-30 ",.02)
 ;;63717-0361-30
 ;;9002226.02101,"618,63717-0570-04 ",.01)
 ;;63717-0570-04
 ;;9002226.02101,"618,63717-0570-04 ",.02)
 ;;63717-0570-04
 ;;9002226.02101,"618,63717-0571-06 ",.01)
 ;;63717-0571-06
 ;;9002226.02101,"618,63717-0571-06 ",.02)
 ;;63717-0571-06
 ;;9002226.02101,"618,63717-0576-04 ",.01)
 ;;63717-0576-04
 ;;9002226.02101,"618,63717-0576-04 ",.02)
 ;;63717-0576-04
 ;;9002226.02101,"618,63717-0577-06 ",.01)
 ;;63717-0577-06
 ;;9002226.02101,"618,63717-0577-06 ",.02)
 ;;63717-0577-06
 ;;9002226.02101,"618,63717-0590-04 ",.01)
 ;;63717-0590-04
 ;;9002226.02101,"618,63717-0590-04 ",.02)
 ;;63717-0590-04
 ;;9002226.02101,"618,63717-0870-01 ",.01)
 ;;63717-0870-01
 ;;9002226.02101,"618,63717-0870-01 ",.02)
 ;;63717-0870-01
 ;;9002226.02101,"618,63717-0871-16 ",.01)
 ;;63717-0871-16
 ;;9002226.02101,"618,63717-0871-16 ",.02)
 ;;63717-0871-16
 ;;9002226.02101,"618,63739-0033-01 ",.01)
 ;;63739-0033-01
 ;;9002226.02101,"618,63739-0033-01 ",.02)
 ;;63739-0033-01
 ;;9002226.02101,"618,63739-0033-02 ",.01)
 ;;63739-0033-02
 ;;9002226.02101,"618,63739-0033-02 ",.02)
 ;;63739-0033-02
 ;;9002226.02101,"618,63739-0033-03 ",.01)
 ;;63739-0033-03
 ;;9002226.02101,"618,63739-0033-03 ",.02)
 ;;63739-0033-03
 ;;9002226.02101,"618,63739-0033-10 ",.01)
 ;;63739-0033-10
 ;;9002226.02101,"618,63739-0033-10 ",.02)
 ;;63739-0033-10
 ;;9002226.02101,"618,63739-0033-15 ",.01)
 ;;63739-0033-15
 ;;9002226.02101,"618,63739-0033-15 ",.02)
 ;;63739-0033-15
 ;;9002226.02101,"618,63739-0034-01 ",.01)
 ;;63739-0034-01
 ;;9002226.02101,"618,63739-0034-01 ",.02)
 ;;63739-0034-01
 ;;9002226.02101,"618,63739-0034-02 ",.01)
 ;;63739-0034-02
 ;;9002226.02101,"618,63739-0034-02 ",.02)
 ;;63739-0034-02
 ;;9002226.02101,"618,63739-0034-03 ",.01)
 ;;63739-0034-03
 ;;9002226.02101,"618,63739-0034-03 ",.02)
 ;;63739-0034-03
 ;;9002226.02101,"618,63739-0034-10 ",.01)
 ;;63739-0034-10
 ;;9002226.02101,"618,63739-0034-10 ",.02)
 ;;63739-0034-10
 ;;9002226.02101,"618,63739-0034-15 ",.01)
 ;;63739-0034-15
 ;;9002226.02101,"618,63739-0034-15 ",.02)
 ;;63739-0034-15
 ;;9002226.02101,"618,63739-0035-01 ",.01)
 ;;63739-0035-01
 ;;9002226.02101,"618,63739-0035-01 ",.02)
 ;;63739-0035-01
 ;;9002226.02101,"618,63739-0035-02 ",.01)
 ;;63739-0035-02
 ;;9002226.02101,"618,63739-0035-02 ",.02)
 ;;63739-0035-02
 ;;9002226.02101,"618,63739-0035-03 ",.01)
 ;;63739-0035-03
 ;;9002226.02101,"618,63739-0035-03 ",.02)
 ;;63739-0035-03
 ;;9002226.02101,"618,63739-0035-10 ",.01)
 ;;63739-0035-10
 ;;9002226.02101,"618,63739-0035-10 ",.02)
 ;;63739-0035-10
 ;;9002226.02101,"618,63739-0035-15 ",.01)
 ;;63739-0035-15
 ;;9002226.02101,"618,63739-0035-15 ",.02)
 ;;63739-0035-15
 ;;9002226.02101,"618,63739-0213-10 ",.01)
 ;;63739-0213-10
 ;;9002226.02101,"618,63739-0213-10 ",.02)
 ;;63739-0213-10
 ;;9002226.02101,"618,63739-0213-15 ",.01)
 ;;63739-0213-15
 ;;9002226.02101,"618,63739-0213-15 ",.02)
 ;;63739-0213-15
 ;;9002226.02101,"618,63739-0247-01 ",.01)
 ;;63739-0247-01
 ;;9002226.02101,"618,63739-0247-01 ",.02)
 ;;63739-0247-01
 ;;9002226.02101,"618,63739-0247-02 ",.01)
 ;;63739-0247-02
 ;;9002226.02101,"618,63739-0247-02 ",.02)
 ;;63739-0247-02
 ;;9002226.02101,"618,63739-0247-03 ",.01)
 ;;63739-0247-03
 ;;9002226.02101,"618,63739-0247-03 ",.02)
 ;;63739-0247-03
 ;;9002226.02101,"618,63739-0249-01 ",.01)
 ;;63739-0249-01
 ;;9002226.02101,"618,63739-0249-01 ",.02)
 ;;63739-0249-01
 ;;9002226.02101,"618,63739-0249-03 ",.01)
 ;;63739-0249-03
 ;;9002226.02101,"618,63739-0249-03 ",.02)
 ;;63739-0249-03
 ;;9002226.02101,"618,63739-0389-10 ",.01)
 ;;63739-0389-10
 ;;9002226.02101,"618,63739-0389-10 ",.02)
 ;;63739-0389-10
 ;;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,63824-0174-16 ",.01)
 ;;63824-0174-16
 ;;9002226.02101,"618,63824-0174-16 ",.02)
 ;;63824-0174-16
 ;;9002226.02101,"618,63868-0751-24 ",.01)
 ;;63868-0751-24
 ;;9002226.02101,"618,63868-0751-24 ",.02)
 ;;63868-0751-24
 ;;9002226.02101,"618,63874-0006-24 ",.01)
 ;;63874-0006-24
 ;;9002226.02101,"618,63874-0006-24 ",.02)
 ;;63874-0006-24
 ;;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-0658-10 ",.01)
 ;;63874-0658-10
 ;;9002226.02101,"618,63874-0658-10 ",.02)
 ;;63874-0658-10
 ;;9002226.02101,"618,63874-0658-20 ",.01)
 ;;63874-0658-20
 ;;9002226.02101,"618,63874-0658-20 ",.02)
 ;;63874-0658-20
 ;;9002226.02101,"618,63874-0658-30 ",.01)
 ;;63874-0658-30
 ;;9002226.02101,"618,63874-0658-30 ",.02)
 ;;63874-0658-30
 ;;9002226.02101,"618,63874-0658-49 ",.01)
 ;;63874-0658-49
 ;;9002226.02101,"618,63874-0658-49 ",.02)
 ;;63874-0658-49
 ;;9002226.02101,"618,63874-0711-12 ",.01)
 ;;63874-0711-12
 ;;9002226.02101,"618,63874-0711-12 ",.02)
 ;;63874-0711-12