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

BGP31P31.m

Go to the documentation of this file.
BGP31P31 ;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,"730,55289-0035-30 ",.02)
 ;;55289-0035-30
 ;;9002226.02101,"730,55289-0035-60 ",.01)
 ;;55289-0035-60
 ;;9002226.02101,"730,55289-0035-60 ",.02)
 ;;55289-0035-60
 ;;9002226.02101,"730,55289-0040-15 ",.01)
 ;;55289-0040-15
 ;;9002226.02101,"730,55289-0040-15 ",.02)
 ;;55289-0040-15
 ;;9002226.02101,"730,55289-0040-20 ",.01)
 ;;55289-0040-20
 ;;9002226.02101,"730,55289-0040-20 ",.02)
 ;;55289-0040-20
 ;;9002226.02101,"730,55289-0040-30 ",.01)
 ;;55289-0040-30
 ;;9002226.02101,"730,55289-0040-30 ",.02)
 ;;55289-0040-30
 ;;9002226.02101,"730,55289-0124-12 ",.01)
 ;;55289-0124-12
 ;;9002226.02101,"730,55289-0124-12 ",.02)
 ;;55289-0124-12
 ;;9002226.02101,"730,55289-0124-30 ",.01)
 ;;55289-0124-30
 ;;9002226.02101,"730,55289-0124-30 ",.02)
 ;;55289-0124-30
 ;;9002226.02101,"730,55289-0127-15 ",.01)
 ;;55289-0127-15
 ;;9002226.02101,"730,55289-0127-15 ",.02)
 ;;55289-0127-15
 ;;9002226.02101,"730,55289-0127-25 ",.01)
 ;;55289-0127-25
 ;;9002226.02101,"730,55289-0127-25 ",.02)
 ;;55289-0127-25
 ;;9002226.02101,"730,55289-0144-14 ",.01)
 ;;55289-0144-14
 ;;9002226.02101,"730,55289-0144-14 ",.02)
 ;;55289-0144-14
 ;;9002226.02101,"730,55289-0144-30 ",.01)
 ;;55289-0144-30
 ;;9002226.02101,"730,55289-0144-30 ",.02)
 ;;55289-0144-30
 ;;9002226.02101,"730,55289-0144-90 ",.01)
 ;;55289-0144-90
 ;;9002226.02101,"730,55289-0144-90 ",.02)
 ;;55289-0144-90
 ;;9002226.02101,"730,55289-0149-30 ",.01)
 ;;55289-0149-30
 ;;9002226.02101,"730,55289-0149-30 ",.02)
 ;;55289-0149-30
 ;;9002226.02101,"730,55289-0149-60 ",.01)
 ;;55289-0149-60
 ;;9002226.02101,"730,55289-0149-60 ",.02)
 ;;55289-0149-60
 ;;9002226.02101,"730,55289-0165-97 ",.01)
 ;;55289-0165-97
 ;;9002226.02101,"730,55289-0165-97 ",.02)
 ;;55289-0165-97
 ;;9002226.02101,"730,55289-0185-17 ",.01)
 ;;55289-0185-17
 ;;9002226.02101,"730,55289-0185-17 ",.02)
 ;;55289-0185-17
 ;;9002226.02101,"730,55289-0205-30 ",.01)
 ;;55289-0205-30
 ;;9002226.02101,"730,55289-0205-30 ",.02)
 ;;55289-0205-30
 ;;9002226.02101,"730,55289-0258-30 ",.01)
 ;;55289-0258-30
 ;;9002226.02101,"730,55289-0258-30 ",.02)
 ;;55289-0258-30
 ;;9002226.02101,"730,55289-0264-12 ",.01)
 ;;55289-0264-12
 ;;9002226.02101,"730,55289-0264-12 ",.02)
 ;;55289-0264-12
 ;;9002226.02101,"730,55289-0337-01 ",.01)
 ;;55289-0337-01
 ;;9002226.02101,"730,55289-0337-01 ",.02)
 ;;55289-0337-01
 ;;9002226.02101,"730,55289-0337-97 ",.01)
 ;;55289-0337-97
 ;;9002226.02101,"730,55289-0337-97 ",.02)
 ;;55289-0337-97
 ;;9002226.02101,"730,55289-0370-30 ",.01)
 ;;55289-0370-30
 ;;9002226.02101,"730,55289-0370-30 ",.02)
 ;;55289-0370-30
 ;;9002226.02101,"730,55289-0377-97 ",.01)
 ;;55289-0377-97
 ;;9002226.02101,"730,55289-0377-97 ",.02)
 ;;55289-0377-97
 ;;9002226.02101,"730,55289-0399-03 ",.01)
 ;;55289-0399-03
 ;;9002226.02101,"730,55289-0399-03 ",.02)
 ;;55289-0399-03
 ;;9002226.02101,"730,55289-0399-10 ",.01)
 ;;55289-0399-10
 ;;9002226.02101,"730,55289-0399-10 ",.02)
 ;;55289-0399-10
 ;;9002226.02101,"730,55289-0399-14 ",.01)
 ;;55289-0399-14
 ;;9002226.02101,"730,55289-0399-14 ",.02)
 ;;55289-0399-14
 ;;9002226.02101,"730,55289-0399-30 ",.01)
 ;;55289-0399-30
 ;;9002226.02101,"730,55289-0399-30 ",.02)
 ;;55289-0399-30
 ;;9002226.02101,"730,55289-0399-60 ",.01)
 ;;55289-0399-60
 ;;9002226.02101,"730,55289-0399-60 ",.02)
 ;;55289-0399-60
 ;;9002226.02101,"730,55289-0399-90 ",.01)
 ;;55289-0399-90
 ;;9002226.02101,"730,55289-0399-90 ",.02)
 ;;55289-0399-90
 ;;9002226.02101,"730,55289-0419-01 ",.01)
 ;;55289-0419-01
 ;;9002226.02101,"730,55289-0419-01 ",.02)
 ;;55289-0419-01
 ;;9002226.02101,"730,55289-0419-06 ",.01)
 ;;55289-0419-06
 ;;9002226.02101,"730,55289-0419-06 ",.02)
 ;;55289-0419-06
 ;;9002226.02101,"730,55289-0419-10 ",.01)
 ;;55289-0419-10
 ;;9002226.02101,"730,55289-0419-10 ",.02)
 ;;55289-0419-10
 ;;9002226.02101,"730,55289-0419-14 ",.01)
 ;;55289-0419-14
 ;;9002226.02101,"730,55289-0419-14 ",.02)
 ;;55289-0419-14
 ;;9002226.02101,"730,55289-0419-15 ",.01)
 ;;55289-0419-15
 ;;9002226.02101,"730,55289-0419-15 ",.02)
 ;;55289-0419-15
 ;;9002226.02101,"730,55289-0419-21 ",.01)
 ;;55289-0419-21
 ;;9002226.02101,"730,55289-0419-21 ",.02)
 ;;55289-0419-21
 ;;9002226.02101,"730,55289-0419-30 ",.01)
 ;;55289-0419-30
 ;;9002226.02101,"730,55289-0419-30 ",.02)
 ;;55289-0419-30
 ;;9002226.02101,"730,55289-0419-60 ",.01)
 ;;55289-0419-60
 ;;9002226.02101,"730,55289-0419-60 ",.02)
 ;;55289-0419-60
 ;;9002226.02101,"730,55289-0439-12 ",.01)
 ;;55289-0439-12
 ;;9002226.02101,"730,55289-0439-12 ",.02)
 ;;55289-0439-12
 ;;9002226.02101,"730,55289-0508-14 ",.01)
 ;;55289-0508-14
 ;;9002226.02101,"730,55289-0508-14 ",.02)
 ;;55289-0508-14
 ;;9002226.02101,"730,55289-0535-01 ",.01)
 ;;55289-0535-01
 ;;9002226.02101,"730,55289-0535-01 ",.02)
 ;;55289-0535-01
 ;;9002226.02101,"730,55289-0535-30 ",.01)
 ;;55289-0535-30
 ;;9002226.02101,"730,55289-0535-30 ",.02)
 ;;55289-0535-30
 ;;9002226.02101,"730,55289-0572-30 ",.01)
 ;;55289-0572-30
 ;;9002226.02101,"730,55289-0572-30 ",.02)
 ;;55289-0572-30
 ;;9002226.02101,"730,55289-0586-04 ",.01)
 ;;55289-0586-04
 ;;9002226.02101,"730,55289-0586-04 ",.02)
 ;;55289-0586-04
 ;;9002226.02101,"730,55289-0586-08 ",.01)
 ;;55289-0586-08
 ;;9002226.02101,"730,55289-0586-08 ",.02)
 ;;55289-0586-08
 ;;9002226.02101,"730,55289-0674-04 ",.01)
 ;;55289-0674-04
 ;;9002226.02101,"730,55289-0674-04 ",.02)
 ;;55289-0674-04
 ;;9002226.02101,"730,55289-0690-12 ",.01)
 ;;55289-0690-12
 ;;9002226.02101,"730,55289-0690-12 ",.02)
 ;;55289-0690-12
 ;;9002226.02101,"730,55289-0729-06 ",.01)
 ;;55289-0729-06
 ;;9002226.02101,"730,55289-0729-06 ",.02)
 ;;55289-0729-06
 ;;9002226.02101,"730,55289-0729-12 ",.01)
 ;;55289-0729-12
 ;;9002226.02101,"730,55289-0729-12 ",.02)
 ;;55289-0729-12
 ;;9002226.02101,"730,55289-0729-30 ",.01)
 ;;55289-0729-30
 ;;9002226.02101,"730,55289-0729-30 ",.02)
 ;;55289-0729-30
 ;;9002226.02101,"730,55289-0730-01 ",.01)
 ;;55289-0730-01
 ;;9002226.02101,"730,55289-0730-01 ",.02)
 ;;55289-0730-01
 ;;9002226.02101,"730,55289-0730-12 ",.01)
 ;;55289-0730-12
 ;;9002226.02101,"730,55289-0730-12 ",.02)
 ;;55289-0730-12
 ;;9002226.02101,"730,55289-0730-25 ",.01)
 ;;55289-0730-25
 ;;9002226.02101,"730,55289-0730-25 ",.02)
 ;;55289-0730-25
 ;;9002226.02101,"730,55289-0730-30 ",.01)
 ;;55289-0730-30
 ;;9002226.02101,"730,55289-0730-30 ",.02)
 ;;55289-0730-30
 ;;9002226.02101,"730,55289-0730-60 ",.01)
 ;;55289-0730-60
 ;;9002226.02101,"730,55289-0730-60 ",.02)
 ;;55289-0730-60
 ;;9002226.02101,"730,55289-0730-90 ",.01)
 ;;55289-0730-90
 ;;9002226.02101,"730,55289-0730-90 ",.02)
 ;;55289-0730-90
 ;;9002226.02101,"730,55289-0778-18 ",.01)
 ;;55289-0778-18
 ;;9002226.02101,"730,55289-0778-18 ",.02)
 ;;55289-0778-18
 ;;9002226.02101,"730,55289-0792-06 ",.01)
 ;;55289-0792-06
 ;;9002226.02101,"730,55289-0792-06 ",.02)
 ;;55289-0792-06
 ;;9002226.02101,"730,55289-0792-10 ",.01)
 ;;55289-0792-10
 ;;9002226.02101,"730,55289-0792-10 ",.02)
 ;;55289-0792-10
 ;;9002226.02101,"730,55289-0792-12 ",.01)
 ;;55289-0792-12
 ;;9002226.02101,"730,55289-0792-12 ",.02)
 ;;55289-0792-12
 ;;9002226.02101,"730,55289-0792-20 ",.01)
 ;;55289-0792-20
 ;;9002226.02101,"730,55289-0792-20 ",.02)
 ;;55289-0792-20
 ;;9002226.02101,"730,55289-0792-30 ",.01)
 ;;55289-0792-30
 ;;9002226.02101,"730,55289-0792-30 ",.02)
 ;;55289-0792-30
 ;;9002226.02101,"730,55289-0839-30 ",.01)
 ;;55289-0839-30
 ;;9002226.02101,"730,55289-0839-30 ",.02)
 ;;55289-0839-30
 ;;9002226.02101,"730,55289-0879-10 ",.01)
 ;;55289-0879-10
 ;;9002226.02101,"730,55289-0879-10 ",.02)
 ;;55289-0879-10
 ;;9002226.02101,"730,55289-0879-15 ",.01)
 ;;55289-0879-15
 ;;9002226.02101,"730,55289-0879-15 ",.02)
 ;;55289-0879-15
 ;;9002226.02101,"730,55289-0879-20 ",.01)
 ;;55289-0879-20
 ;;9002226.02101,"730,55289-0879-20 ",.02)
 ;;55289-0879-20
 ;;9002226.02101,"730,55289-0879-30 ",.01)
 ;;55289-0879-30
 ;;9002226.02101,"730,55289-0879-30 ",.02)
 ;;55289-0879-30
 ;;9002226.02101,"730,55289-0879-60 ",.01)
 ;;55289-0879-60
 ;;9002226.02101,"730,55289-0879-60 ",.02)
 ;;55289-0879-60
 ;;9002226.02101,"730,55289-0974-20 ",.01)
 ;;55289-0974-20
 ;;9002226.02101,"730,55289-0974-20 ",.02)
 ;;55289-0974-20
 ;;9002226.02101,"730,55289-0983-30 ",.01)
 ;;55289-0983-30
 ;;9002226.02101,"730,55289-0983-30 ",.02)
 ;;55289-0983-30
 ;;9002226.02101,"730,55887-0066-30 ",.01)
 ;;55887-0066-30
 ;;9002226.02101,"730,55887-0066-30 ",.02)
 ;;55887-0066-30
 ;;9002226.02101,"730,55887-0095-30 ",.01)
 ;;55887-0095-30
 ;;9002226.02101,"730,55887-0095-30 ",.02)
 ;;55887-0095-30
 ;;9002226.02101,"730,55887-0095-60 ",.01)
 ;;55887-0095-60
 ;;9002226.02101,"730,55887-0095-60 ",.02)
 ;;55887-0095-60
 ;;9002226.02101,"730,55887-0095-90 ",.01)
 ;;55887-0095-90
 ;;9002226.02101,"730,55887-0095-90 ",.02)
 ;;55887-0095-90
 ;;9002226.02101,"730,55887-0101-30 ",.01)
 ;;55887-0101-30
 ;;9002226.02101,"730,55887-0101-30 ",.02)
 ;;55887-0101-30
 ;;9002226.02101,"730,55887-0101-60 ",.01)
 ;;55887-0101-60
 ;;9002226.02101,"730,55887-0101-60 ",.02)
 ;;55887-0101-60
 ;;9002226.02101,"730,55887-0101-90 ",.01)
 ;;55887-0101-90
 ;;9002226.02101,"730,55887-0101-90 ",.02)
 ;;55887-0101-90
 ;;9002226.02101,"730,55887-0123-05 ",.01)
 ;;55887-0123-05
 ;;9002226.02101,"730,55887-0123-05 ",.02)
 ;;55887-0123-05
 ;;9002226.02101,"730,55887-0123-07 ",.01)
 ;;55887-0123-07
 ;;9002226.02101,"730,55887-0123-07 ",.02)
 ;;55887-0123-07
 ;;9002226.02101,"730,55887-0123-10 ",.01)
 ;;55887-0123-10
 ;;9002226.02101,"730,55887-0123-10 ",.02)
 ;;55887-0123-10
 ;;9002226.02101,"730,55887-0123-15 ",.01)
 ;;55887-0123-15
 ;;9002226.02101,"730,55887-0123-15 ",.02)
 ;;55887-0123-15
 ;;9002226.02101,"730,55887-0123-30 ",.01)
 ;;55887-0123-30
 ;;9002226.02101,"730,55887-0123-30 ",.02)
 ;;55887-0123-30
 ;;9002226.02101,"730,55887-0123-60 ",.01)
 ;;55887-0123-60
 ;;9002226.02101,"730,55887-0123-60 ",.02)
 ;;55887-0123-60
 ;;9002226.02101,"730,55887-0123-90 ",.01)
 ;;55887-0123-90
 ;;9002226.02101,"730,55887-0123-90 ",.02)
 ;;55887-0123-90
 ;;9002226.02101,"730,55887-0124-05 ",.01)
 ;;55887-0124-05
 ;;9002226.02101,"730,55887-0124-05 ",.02)
 ;;55887-0124-05
 ;;9002226.02101,"730,55887-0124-30 ",.01)
 ;;55887-0124-30
 ;;9002226.02101,"730,55887-0124-30 ",.02)
 ;;55887-0124-30
 ;;9002226.02101,"730,55887-0124-60 ",.01)
 ;;55887-0124-60
 ;;9002226.02101,"730,55887-0124-60 ",.02)
 ;;55887-0124-60
 ;;9002226.02101,"730,55887-0248-30 ",.01)
 ;;55887-0248-30
 ;;9002226.02101,"730,55887-0248-30 ",.02)
 ;;55887-0248-30
 ;;9002226.02101,"730,55887-0248-60 ",.01)
 ;;55887-0248-60
 ;;9002226.02101,"730,55887-0248-60 ",.02)
 ;;55887-0248-60
 ;;9002226.02101,"730,55887-0248-90 ",.01)
 ;;55887-0248-90
 ;;9002226.02101,"730,55887-0248-90 ",.02)
 ;;55887-0248-90
 ;;9002226.02101,"730,55887-0288-30 ",.01)
 ;;55887-0288-30
 ;;9002226.02101,"730,55887-0288-30 ",.02)
 ;;55887-0288-30
 ;;9002226.02101,"730,55887-0288-60 ",.01)
 ;;55887-0288-60
 ;;9002226.02101,"730,55887-0288-60 ",.02)
 ;;55887-0288-60
 ;;9002226.02101,"730,55887-0288-90 ",.01)
 ;;55887-0288-90
 ;;9002226.02101,"730,55887-0288-90 ",.02)
 ;;55887-0288-90
 ;;9002226.02101,"730,55887-0289-30 ",.01)
 ;;55887-0289-30
 ;;9002226.02101,"730,55887-0289-30 ",.02)
 ;;55887-0289-30
 ;;9002226.02101,"730,55887-0289-60 ",.01)
 ;;55887-0289-60
 ;;9002226.02101,"730,55887-0289-60 ",.02)
 ;;55887-0289-60
 ;;9002226.02101,"730,55887-0289-82 ",.01)
 ;;55887-0289-82
 ;;9002226.02101,"730,55887-0289-82 ",.02)
 ;;55887-0289-82
 ;;9002226.02101,"730,55887-0289-90 ",.01)
 ;;55887-0289-90
 ;;9002226.02101,"730,55887-0289-90 ",.02)
 ;;55887-0289-90
 ;;9002226.02101,"730,55887-0355-20 ",.01)
 ;;55887-0355-20
 ;;9002226.02101,"730,55887-0355-20 ",.02)
 ;;55887-0355-20
 ;;9002226.02101,"730,55887-0355-30 ",.01)
 ;;55887-0355-30
 ;;9002226.02101,"730,55887-0355-30 ",.02)
 ;;55887-0355-30
 ;;9002226.02101,"730,55887-0355-40 ",.01)
 ;;55887-0355-40
 ;;9002226.02101,"730,55887-0355-40 ",.02)
 ;;55887-0355-40
 ;;9002226.02101,"730,55887-0356-30 ",.01)
 ;;55887-0356-30
 ;;9002226.02101,"730,55887-0356-30 ",.02)
 ;;55887-0356-30
 ;;9002226.02101,"730,55887-0356-60 ",.01)
 ;;55887-0356-60
 ;;9002226.02101,"730,55887-0356-60 ",.02)
 ;;55887-0356-60
 ;;9002226.02101,"730,55887-0356-90 ",.01)
 ;;55887-0356-90
 ;;9002226.02101,"730,55887-0356-90 ",.02)
 ;;55887-0356-90
 ;;9002226.02101,"730,55887-0398-30 ",.01)
 ;;55887-0398-30
 ;;9002226.02101,"730,55887-0398-30 ",.02)
 ;;55887-0398-30
 ;;9002226.02101,"730,55887-0398-60 ",.01)
 ;;55887-0398-60
 ;;9002226.02101,"730,55887-0398-60 ",.02)
 ;;55887-0398-60
 ;;9002226.02101,"730,55887-0398-82 ",.01)
 ;;55887-0398-82
 ;;9002226.02101,"730,55887-0398-82 ",.02)
 ;;55887-0398-82
 ;;9002226.02101,"730,55887-0398-90 ",.01)
 ;;55887-0398-90
 ;;9002226.02101,"730,55887-0398-90 ",.02)
 ;;55887-0398-90
 ;;9002226.02101,"730,55887-0514-20 ",.01)
 ;;55887-0514-20
 ;;9002226.02101,"730,55887-0514-20 ",.02)
 ;;55887-0514-20
 ;;9002226.02101,"730,55887-0514-30 ",.01)
 ;;55887-0514-30
 ;;9002226.02101,"730,55887-0514-30 ",.02)
 ;;55887-0514-30
 ;;9002226.02101,"730,55887-0514-60 ",.01)
 ;;55887-0514-60
 ;;9002226.02101,"730,55887-0514-60 ",.02)
 ;;55887-0514-60
 ;;9002226.02101,"730,55887-0514-90 ",.01)
 ;;55887-0514-90
 ;;9002226.02101,"730,55887-0514-90 ",.02)
 ;;55887-0514-90
 ;;9002226.02101,"730,55887-0552-20 ",.01)
 ;;55887-0552-20
 ;;9002226.02101,"730,55887-0552-20 ",.02)
 ;;55887-0552-20
 ;;9002226.02101,"730,55887-0552-30 ",.01)
 ;;55887-0552-30