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

BGP48G4.m

Go to the documentation of this file.
BGP48G4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;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,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,31722-0557-60 ",.01)
 ;;31722-0557-60
 ;;9002226.02101,"1202,31722-0557-60 ",.02)
 ;;31722-0557-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-0215-18 ",.01)
 ;;49702-0215-18
 ;;9002226.02101,"1202,49702-0215-18 ",.02)
 ;;49702-0215-18
 ;;9002226.02101,"1202,49702-0216-18 ",.01)
 ;;49702-0216-18
 ;;9002226.02101,"1202,49702-0216-18 ",.02)
 ;;49702-0216-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,49702-0228-13 ",.01)
 ;;49702-0228-13
 ;;9002226.02101,"1202,49702-0228-13 ",.02)
 ;;49702-0228-13
 ;;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
 ;;9002226.02101,"1202,50436-0101-01 ",.01)
 ;;50436-0101-01
 ;;9002226.02101,"1202,50436-0101-01 ",.02)
 ;;50436-0101-01
 ;;9002226.02101,"1202,50436-0123-01 ",.01)
 ;;50436-0123-01
 ;;9002226.02101,"1202,50436-0123-01 ",.02)
 ;;50436-0123-01
 ;;9002226.02101,"1202,50436-0206-01 ",.01)
 ;;50436-0206-01
 ;;9002226.02101,"1202,50436-0206-01 ",.02)
 ;;50436-0206-01
 ;;9002226.02101,"1202,50436-0224-01 ",.01)
 ;;50436-0224-01
 ;;9002226.02101,"1202,50436-0224-01 ",.02)
 ;;50436-0224-01
 ;;9002226.02101,"1202,50436-0701-01 ",.01)
 ;;50436-0701-01
 ;;9002226.02101,"1202,50436-0701-01 ",.02)
 ;;50436-0701-01
 ;;9002226.02101,"1202,50436-1101-01 ",.01)
 ;;50436-1101-01
 ;;9002226.02101,"1202,50436-1101-01 ",.02)
 ;;50436-1101-01
 ;;9002226.02101,"1202,51079-0204-01 ",.01)
 ;;51079-0204-01
 ;;9002226.02101,"1202,51079-0204-01 ",.02)
 ;;51079-0204-01
 ;;9002226.02101,"1202,51079-0204-06 ",.01)
 ;;51079-0204-06
 ;;9002226.02101,"1202,51079-0204-06 ",.02)
 ;;51079-0204-06
 ;;9002226.02101,"1202,51129-2999-02 ",.01)
 ;;51129-2999-02
 ;;9002226.02101,"1202,51129-2999-02 ",.02)
 ;;51129-2999-02
 ;;9002226.02101,"1202,51991-0331-06 ",.01)
 ;;51991-0331-06
 ;;9002226.02101,"1202,51991-0331-06 ",.02)
 ;;51991-0331-06
 ;;9002226.02101,"1202,52343-0044-01 ",.01)
 ;;52343-0044-01
 ;;9002226.02101,"1202,52343-0044-01 ",.02)
 ;;52343-0044-01
 ;;9002226.02101,"1202,52343-0045-60 ",.01)
 ;;52343-0045-60
 ;;9002226.02101,"1202,52343-0045-60 ",.02)
 ;;52343-0045-60
 ;;9002226.02101,"1202,52959-0134-18 ",.01)
 ;;52959-0134-18
 ;;9002226.02101,"1202,52959-0134-18 ",.02)
 ;;52959-0134-18
 ;;9002226.02101,"1202,52959-0289-06 ",.01)
 ;;52959-0289-06
 ;;9002226.02101,"1202,52959-0289-06 ",.02)
 ;;52959-0289-06
 ;;9002226.02101,"1202,52959-0289-30 ",.01)
 ;;52959-0289-30
 ;;9002226.02101,"1202,52959-0289-30 ",.02)
 ;;52959-0289-30
 ;;9002226.02101,"1202,52959-0387-06 ",.01)
 ;;52959-0387-06
 ;;9002226.02101,"1202,52959-0387-06 ",.02)
 ;;52959-0387-06