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

BGP44U3.m

Go to the documentation of this file.
BGP44U3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"1202,13411-0193-02 ",.02)
 ;;13411-0193-02
 ;;9002226.02101,"1202,13411-0193-03 ",.01)
 ;;13411-0193-03
 ;;9002226.02101,"1202,13411-0193-03 ",.02)
 ;;13411-0193-03
 ;;9002226.02101,"1202,13411-0193-06 ",.01)
 ;;13411-0193-06
 ;;9002226.02101,"1202,13411-0193-06 ",.02)
 ;;13411-0193-06
 ;;9002226.02101,"1202,13411-0193-09 ",.01)
 ;;13411-0193-09
 ;;9002226.02101,"1202,13411-0193-09 ",.02)
 ;;13411-0193-09
 ;;9002226.02101,"1202,13411-0193-10 ",.01)
 ;;13411-0193-10
 ;;9002226.02101,"1202,13411-0193-10 ",.02)
 ;;13411-0193-10
 ;;9002226.02101,"1202,13925-0500-60 ",.01)
 ;;13925-0500-60
 ;;9002226.02101,"1202,13925-0500-60 ",.02)
 ;;13925-0500-60
 ;;9002226.02101,"1202,15584-0101-01 ",.01)
 ;;15584-0101-01
 ;;9002226.02101,"1202,15584-0101-01 ",.02)
 ;;15584-0101-01
 ;;9002226.02101,"1202,16590-0061-06 ",.01)
 ;;16590-0061-06
 ;;9002226.02101,"1202,16590-0061-06 ",.02)
 ;;16590-0061-06
 ;;9002226.02101,"1202,16590-0061-10 ",.01)
 ;;16590-0061-10
 ;;9002226.02101,"1202,16590-0061-10 ",.02)
 ;;16590-0061-10
 ;;9002226.02101,"1202,16590-0061-20 ",.01)
 ;;16590-0061-20
 ;;9002226.02101,"1202,16590-0061-20 ",.02)
 ;;16590-0061-20
 ;;9002226.02101,"1202,16590-0061-30 ",.01)
 ;;16590-0061-30
 ;;9002226.02101,"1202,16590-0061-30 ",.02)
 ;;16590-0061-30
 ;;9002226.02101,"1202,16590-0064-18 ",.01)
 ;;16590-0064-18
 ;;9002226.02101,"1202,16590-0064-18 ",.02)
 ;;16590-0064-18
 ;;9002226.02101,"1202,16590-0064-30 ",.01)
 ;;16590-0064-30
 ;;9002226.02101,"1202,16590-0064-30 ",.02)
 ;;16590-0064-30
 ;;9002226.02101,"1202,16590-0064-60 ",.01)
 ;;16590-0064-60
 ;;9002226.02101,"1202,16590-0064-60 ",.02)
 ;;16590-0064-60
 ;;9002226.02101,"1202,16590-0064-90 ",.01)
 ;;16590-0064-90
 ;;9002226.02101,"1202,16590-0064-90 ",.02)
 ;;16590-0064-90
 ;;9002226.02101,"1202,21695-0362-12 ",.01)
 ;;21695-0362-12
 ;;9002226.02101,"1202,21695-0362-12 ",.02)
 ;;21695-0362-12
 ;;9002226.02101,"1202,21695-0366-18 ",.01)
 ;;21695-0366-18
 ;;9002226.02101,"1202,21695-0366-18 ",.02)
 ;;21695-0366-18
 ;;9002226.02101,"1202,21695-0367-06 ",.01)
 ;;21695-0367-06
 ;;9002226.02101,"1202,21695-0367-06 ",.02)
 ;;21695-0367-06
 ;;9002226.02101,"1202,21695-0369-18 ",.01)
 ;;21695-0369-18
 ;;9002226.02101,"1202,21695-0369-18 ",.02)
 ;;21695-0369-18
 ;;9002226.02101,"1202,21695-0846-06 ",.01)
 ;;21695-0846-06
 ;;9002226.02101,"1202,21695-0846-06 ",.02)
 ;;21695-0846-06
 ;;9002226.02101,"1202,21695-0996-02 ",.01)
 ;;21695-0996-02
 ;;9002226.02101,"1202,21695-0996-02 ",.02)
 ;;21695-0996-02
 ;;9002226.02101,"1202,21695-0996-60 ",.01)
 ;;21695-0996-60
 ;;9002226.02101,"1202,21695-0996-60 ",.02)
 ;;21695-0996-60
 ;;9002226.02101,"1202,23490-7087-06 ",.01)
 ;;23490-7087-06
 ;;9002226.02101,"1202,23490-7087-06 ",.02)
 ;;23490-7087-06
 ;;9002226.02101,"1202,31722-0505-60 ",.01)
 ;;31722-0505-60
 ;;9002226.02101,"1202,31722-0505-60 ",.02)
 ;;31722-0505-60
 ;;9002226.02101,"1202,31722-0509-60 ",.01)
 ;;31722-0509-60
 ;;9002226.02101,"1202,31722-0509-60 ",.02)
 ;;31722-0509-60
 ;;9002226.02101,"1202,31722-0515-60 ",.01)
 ;;31722-0515-60
 ;;9002226.02101,"1202,31722-0515-60 ",.02)
 ;;31722-0515-60
 ;;9002226.02101,"1202,31722-0516-60 ",.01)
 ;;31722-0516-60
 ;;9002226.02101,"1202,31722-0516-60 ",.02)
 ;;31722-0516-60
 ;;9002226.02101,"1202,31722-0517-60 ",.01)
 ;;31722-0517-60
 ;;9002226.02101,"1202,31722-0517-60 ",.02)
 ;;31722-0517-60
 ;;9002226.02101,"1202,31722-0518-60 ",.01)
 ;;31722-0518-60
 ;;9002226.02101,"1202,31722-0518-60 ",.02)
 ;;31722-0518-60
 ;;9002226.02101,"1202,35356-0064-06 ",.01)
 ;;35356-0064-06
 ;;9002226.02101,"1202,35356-0064-06 ",.02)
 ;;35356-0064-06
 ;;9002226.02101,"1202,35356-0064-30 ",.01)
 ;;35356-0064-30
 ;;9002226.02101,"1202,35356-0064-30 ",.02)
 ;;35356-0064-30
 ;;9002226.02101,"1202,35356-0065-30 ",.01)
 ;;35356-0065-30
 ;;9002226.02101,"1202,35356-0065-30 ",.02)
 ;;35356-0065-30
 ;;9002226.02101,"1202,35356-0066-24 ",.01)
 ;;35356-0066-24
 ;;9002226.02101,"1202,35356-0066-24 ",.02)
 ;;35356-0066-24
 ;;9002226.02101,"1202,35356-0067-06 ",.01)
 ;;35356-0067-06
 ;;9002226.02101,"1202,35356-0067-06 ",.02)
 ;;35356-0067-06
 ;;9002226.02101,"1202,35356-0067-60 ",.01)
 ;;35356-0067-60
 ;;9002226.02101,"1202,35356-0067-60 ",.02)
 ;;35356-0067-60
 ;;9002226.02101,"1202,35356-0068-06 ",.01)
 ;;35356-0068-06
 ;;9002226.02101,"1202,35356-0068-06 ",.02)
 ;;35356-0068-06
 ;;9002226.02101,"1202,35356-0068-60 ",.01)
 ;;35356-0068-60
 ;;9002226.02101,"1202,35356-0068-60 ",.02)
 ;;35356-0068-60
 ;;9002226.02101,"1202,35356-0069-90 ",.01)
 ;;35356-0069-90
 ;;9002226.02101,"1202,35356-0069-90 ",.02)
 ;;35356-0069-90
 ;;9002226.02101,"1202,35356-0070-06 ",.01)
 ;;35356-0070-06
 ;;9002226.02101,"1202,35356-0070-06 ",.02)
 ;;35356-0070-06
 ;;9002226.02101,"1202,35356-0070-30 ",.01)
 ;;35356-0070-30
 ;;9002226.02101,"1202,35356-0070-30 ",.02)
 ;;35356-0070-30
 ;;9002226.02101,"1202,35356-0071-06 ",.01)
 ;;35356-0071-06
 ;;9002226.02101,"1202,35356-0071-06 ",.02)
 ;;35356-0071-06
 ;;9002226.02101,"1202,35356-0071-60 ",.01)
 ;;35356-0071-60
 ;;9002226.02101,"1202,35356-0071-60 ",.02)
 ;;35356-0071-60
 ;;9002226.02101,"1202,35356-0072-24 ",.01)
 ;;35356-0072-24
 ;;9002226.02101,"1202,35356-0072-24 ",.02)
 ;;35356-0072-24
 ;;9002226.02101,"1202,35356-0073-06 ",.01)
 ;;35356-0073-06
 ;;9002226.02101,"1202,35356-0073-06 ",.02)
 ;;35356-0073-06
 ;;9002226.02101,"1202,35356-0073-30 ",.01)
 ;;35356-0073-30
 ;;9002226.02101,"1202,35356-0073-30 ",.02)
 ;;35356-0073-30
 ;;9002226.02101,"1202,35356-0074-60 ",.01)
 ;;35356-0074-60
 ;;9002226.02101,"1202,35356-0074-60 ",.02)
 ;;35356-0074-60
 ;;9002226.02101,"1202,35356-0075-06 ",.01)
 ;;35356-0075-06
 ;;9002226.02101,"1202,35356-0075-06 ",.02)
 ;;35356-0075-06
 ;;9002226.02101,"1202,35356-0075-60 ",.01)
 ;;35356-0075-60
 ;;9002226.02101,"1202,35356-0075-60 ",.02)
 ;;35356-0075-60
 ;;9002226.02101,"1202,35356-0109-06 ",.01)
 ;;35356-0109-06
 ;;9002226.02101,"1202,35356-0109-06 ",.02)
 ;;35356-0109-06
 ;;9002226.02101,"1202,35356-0109-30 ",.01)
 ;;35356-0109-30
 ;;9002226.02101,"1202,35356-0109-30 ",.02)
 ;;35356-0109-30
 ;;9002226.02101,"1202,35356-0110-06 ",.01)
 ;;35356-0110-06
 ;;9002226.02101,"1202,35356-0110-06 ",.02)
 ;;35356-0110-06
 ;;9002226.02101,"1202,35356-0110-60 ",.01)
 ;;35356-0110-60
 ;;9002226.02101,"1202,35356-0110-60 ",.02)
 ;;35356-0110-60
 ;;9002226.02101,"1202,35356-0111-60 ",.01)
 ;;35356-0111-60
 ;;9002226.02101,"1202,35356-0111-60 ",.02)
 ;;35356-0111-60
 ;;9002226.02101,"1202,35356-0112-01 ",.01)
 ;;35356-0112-01
 ;;9002226.02101,"1202,35356-0112-01 ",.02)
 ;;35356-0112-01
 ;;9002226.02101,"1202,35356-0112-30 ",.01)
 ;;35356-0112-30
 ;;9002226.02101,"1202,35356-0112-30 ",.02)
 ;;35356-0112-30
 ;;9002226.02101,"1202,35356-0113-01 ",.01)
 ;;35356-0113-01
 ;;9002226.02101,"1202,35356-0113-01 ",.02)
 ;;35356-0113-01
 ;;9002226.02101,"1202,35356-0113-30 ",.01)
 ;;35356-0113-30
 ;;9002226.02101,"1202,35356-0113-30 ",.02)
 ;;35356-0113-30
 ;;9002226.02101,"1202,35356-0114-06 ",.01)
 ;;35356-0114-06
 ;;9002226.02101,"1202,35356-0114-06 ",.02)
 ;;35356-0114-06
 ;;9002226.02101,"1202,35356-0114-30 ",.01)
 ;;35356-0114-30
 ;;9002226.02101,"1202,35356-0114-30 ",.02)
 ;;35356-0114-30
 ;;9002226.02101,"1202,35356-0115-06 ",.01)
 ;;35356-0115-06
 ;;9002226.02101,"1202,35356-0115-06 ",.02)
 ;;35356-0115-06
 ;;9002226.02101,"1202,35356-0115-30 ",.01)
 ;;35356-0115-30
 ;;9002226.02101,"1202,35356-0115-30 ",.02)
 ;;35356-0115-30
 ;;9002226.02101,"1202,35356-0116-06 ",.01)
 ;;35356-0116-06
 ;;9002226.02101,"1202,35356-0116-06 ",.02)
 ;;35356-0116-06
 ;;9002226.02101,"1202,35356-0116-60 ",.01)
 ;;35356-0116-60
 ;;9002226.02101,"1202,35356-0116-60 ",.02)
 ;;35356-0116-60
 ;;9002226.02101,"1202,35356-0117-01 ",.01)
 ;;35356-0117-01
 ;;9002226.02101,"1202,35356-0117-01 ",.02)
 ;;35356-0117-01
 ;;9002226.02101,"1202,35356-0138-30 ",.01)
 ;;35356-0138-30
 ;;9002226.02101,"1202,35356-0138-30 ",.02)
 ;;35356-0138-30
 ;;9002226.02101,"1202,35356-0139-18 ",.01)
 ;;35356-0139-18
 ;;9002226.02101,"1202,35356-0139-18 ",.02)
 ;;35356-0139-18
 ;;9002226.02101,"1202,35356-0139-60 ",.01)
 ;;35356-0139-60
 ;;9002226.02101,"1202,35356-0139-60 ",.02)
 ;;35356-0139-60
 ;;9002226.02101,"1202,35356-0186-30 ",.01)
 ;;35356-0186-30
 ;;9002226.02101,"1202,35356-0186-30 ",.02)
 ;;35356-0186-30
 ;;9002226.02101,"1202,35356-0205-30 ",.01)
 ;;35356-0205-30
 ;;9002226.02101,"1202,35356-0205-30 ",.02)
 ;;35356-0205-30
 ;;9002226.02101,"1202,35356-0206-60 ",.01)
 ;;35356-0206-60
 ;;9002226.02101,"1202,35356-0206-60 ",.02)
 ;;35356-0206-60
 ;;9002226.02101,"1202,35356-0207-60 ",.01)
 ;;35356-0207-60
 ;;9002226.02101,"1202,35356-0207-60 ",.02)
 ;;35356-0207-60
 ;;9002226.02101,"1202,35356-0208-60 ",.01)
 ;;35356-0208-60
 ;;9002226.02101,"1202,35356-0208-60 ",.02)
 ;;35356-0208-60
 ;;9002226.02101,"1202,35356-0209-60 ",.01)
 ;;35356-0209-60
 ;;9002226.02101,"1202,35356-0209-60 ",.02)
 ;;35356-0209-60
 ;;9002226.02101,"1202,35356-0259-30 ",.01)
 ;;35356-0259-30
 ;;9002226.02101,"1202,35356-0259-30 ",.02)
 ;;35356-0259-30
 ;;9002226.02101,"1202,35356-0284-60 ",.01)
 ;;35356-0284-60
 ;;9002226.02101,"1202,35356-0284-60 ",.02)
 ;;35356-0284-60
 ;;9002226.02101,"1202,35356-0285-60 ",.01)
 ;;35356-0285-60
 ;;9002226.02101,"1202,35356-0285-60 ",.02)
 ;;35356-0285-60
 ;;9002226.02101,"1202,42254-0381-02 ",.01)
 ;;42254-0381-02
 ;;9002226.02101,"1202,42254-0381-02 ",.02)
 ;;42254-0381-02
 ;;9002226.02101,"1202,42254-0381-06 ",.01)
 ;;42254-0381-06
 ;;9002226.02101,"1202,42254-0381-06 ",.02)
 ;;42254-0381-06
 ;;9002226.02101,"1202,42799-0113-01 ",.01)
 ;;42799-0113-01
 ;;9002226.02101,"1202,42799-0113-01 ",.02)
 ;;42799-0113-01
 ;;9002226.02101,"1202,42799-0403-01 ",.01)
 ;;42799-0403-01
 ;;9002226.02101,"1202,42799-0403-01 ",.02)
 ;;42799-0403-01
 ;;9002226.02101,"1202,42799-0404-01 ",.01)
 ;;42799-0404-01
 ;;9002226.02101,"1202,42799-0404-01 ",.02)
 ;;42799-0404-01
 ;;9002226.02101,"1202,43063-0346-06 ",.01)
 ;;43063-0346-06
 ;;9002226.02101,"1202,43063-0346-06 ",.02)
 ;;43063-0346-06
 ;;9002226.02101,"1202,47781-0100-60 ",.01)
 ;;47781-0100-60
 ;;9002226.02101,"1202,47781-0100-60 ",.02)
 ;;47781-0100-60
 ;;9002226.02101,"1202,49702-0202-18 ",.01)
 ;;49702-0202-18
 ;;9002226.02101,"1202,49702-0202-18 ",.02)
 ;;49702-0202-18
 ;;9002226.02101,"1202,49702-0202-29 ",.01)
 ;;49702-0202-29
 ;;9002226.02101,"1202,49702-0202-29 ",.02)
 ;;49702-0202-29
 ;;9002226.02101,"1202,49702-0203-18 ",.01)
 ;;49702-0203-18
 ;;9002226.02101,"1202,49702-0203-18 ",.02)
 ;;49702-0203-18
 ;;9002226.02101,"1202,49702-0204-13 ",.01)
 ;;49702-0204-13
 ;;9002226.02101,"1202,49702-0204-13 ",.02)
 ;;49702-0204-13
 ;;9002226.02101,"1202,49702-0205-48 ",.01)
 ;;49702-0205-48
 ;;9002226.02101,"1202,49702-0205-48 ",.02)
 ;;49702-0205-48
 ;;9002226.02101,"1202,49702-0206-13 ",.01)
 ;;49702-0206-13
 ;;9002226.02101,"1202,49702-0206-13 ",.02)
 ;;49702-0206-13
 ;;9002226.02101,"1202,49702-0207-18 ",.01)
 ;;49702-0207-18
 ;;9002226.02101,"1202,49702-0207-18 ",.02)
 ;;49702-0207-18
 ;;9002226.02101,"1202,49702-0208-53 ",.01)
 ;;49702-0208-53
 ;;9002226.02101,"1202,49702-0208-53 ",.02)
 ;;49702-0208-53
 ;;9002226.02101,"1202,49702-0209-24 ",.01)
 ;;49702-0209-24
 ;;9002226.02101,"1202,49702-0209-24 ",.02)
 ;;49702-0209-24
 ;;9002226.02101,"1202,49702-0210-17 ",.01)
 ;;49702-0210-17
 ;;9002226.02101,"1202,49702-0210-17 ",.02)
 ;;49702-0210-17
 ;;9002226.02101,"1202,49702-0211-20 ",.01)
 ;;49702-0211-20
 ;;9002226.02101,"1202,49702-0211-20 ",.02)
 ;;49702-0211-20
 ;;9002226.02101,"1202,49702-0212-48 ",.01)
 ;;49702-0212-48
 ;;9002226.02101,"1202,49702-0212-48 ",.02)
 ;;49702-0212-48
 ;;9002226.02101,"1202,49702-0214-18 ",.01)
 ;;49702-0214-18
 ;;9002226.02101,"1202,49702-0214-18 ",.02)
 ;;49702-0214-18
 ;;9002226.02101,"1202,49702-0217-18 ",.01)
 ;;49702-0217-18
 ;;9002226.02101,"1202,49702-0217-18 ",.02)
 ;;49702-0217-18
 ;;9002226.02101,"1202,49702-0221-18 ",.01)
 ;;49702-0221-18
 ;;9002226.02101,"1202,49702-0221-18 ",.02)
 ;;49702-0221-18
 ;;9002226.02101,"1202,49702-0221-44 ",.01)
 ;;49702-0221-44
 ;;9002226.02101,"1202,49702-0221-44 ",.02)
 ;;49702-0221-44
 ;;9002226.02101,"1202,49702-0222-48 ",.01)
 ;;49702-0222-48
 ;;9002226.02101,"1202,49702-0222-48 ",.02)
 ;;49702-0222-48
 ;;9002226.02101,"1202,49702-0223-18 ",.01)
 ;;49702-0223-18
 ;;9002226.02101,"1202,49702-0223-18 ",.02)
 ;;49702-0223-18
 ;;9002226.02101,"1202,49702-0224-18 ",.01)
 ;;49702-0224-18
 ;;9002226.02101,"1202,49702-0224-18 ",.02)
 ;;49702-0224-18
 ;;9002226.02101,"1202,49702-0225-17 ",.01)
 ;;49702-0225-17
 ;;9002226.02101,"1202,49702-0225-17 ",.02)
 ;;49702-0225-17
 ;;9002226.02101,"1202,49999-0062-06 ",.01)
 ;;49999-0062-06
 ;;9002226.02101,"1202,49999-0062-06 ",.02)
 ;;49999-0062-06
 ;;9002226.02101,"1202,49999-0062-10 ",.01)
 ;;49999-0062-10
 ;;9002226.02101,"1202,49999-0062-10 ",.02)
 ;;49999-0062-10
 ;;9002226.02101,"1202,49999-0062-60 ",.01)
 ;;49999-0062-60
 ;;9002226.02101,"1202,49999-0062-60 ",.02)
 ;;49999-0062-60
 ;;9002226.02101,"1202,49999-0119-06 ",.01)
 ;;49999-0119-06
 ;;9002226.02101,"1202,49999-0119-06 ",.02)
 ;;49999-0119-06
 ;;9002226.02101,"1202,49999-0119-60 ",.01)
 ;;49999-0119-60
 ;;9002226.02101,"1202,49999-0119-60 ",.02)
 ;;49999-0119-60
 ;;9002226.02101,"1202,49999-0386-18 ",.01)
 ;;49999-0386-18
 ;;9002226.02101,"1202,49999-0386-18 ",.02)
 ;;49999-0386-18
 ;;9002226.02101,"1202,49999-0431-03 ",.01)
 ;;49999-0431-03
 ;;9002226.02101,"1202,49999-0431-03 ",.02)
 ;;49999-0431-03