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

BGP8ZP17.m

Go to the documentation of this file.
BGP8ZP17 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"1795,49999-0291-20 ",.02)
 ;;49999-0291-20
 ;;9002226.02101,"1795,49999-0291-30 ",.01)
 ;;49999-0291-30
 ;;9002226.02101,"1795,49999-0291-30 ",.02)
 ;;49999-0291-30
 ;;9002226.02101,"1795,49999-0291-60 ",.01)
 ;;49999-0291-60
 ;;9002226.02101,"1795,49999-0291-60 ",.02)
 ;;49999-0291-60
 ;;9002226.02101,"1795,49999-0291-90 ",.01)
 ;;49999-0291-90
 ;;9002226.02101,"1795,49999-0291-90 ",.02)
 ;;49999-0291-90
 ;;9002226.02101,"1795,49999-0314-04 ",.01)
 ;;49999-0314-04
 ;;9002226.02101,"1795,49999-0314-04 ",.02)
 ;;49999-0314-04
 ;;9002226.02101,"1795,49999-0326-04 ",.01)
 ;;49999-0326-04
 ;;9002226.02101,"1795,49999-0326-04 ",.02)
 ;;49999-0326-04
 ;;9002226.02101,"1795,49999-0339-12 ",.01)
 ;;49999-0339-12
 ;;9002226.02101,"1795,49999-0339-12 ",.02)
 ;;49999-0339-12
 ;;9002226.02101,"1795,49999-0340-12 ",.01)
 ;;49999-0340-12
 ;;9002226.02101,"1795,49999-0340-12 ",.02)
 ;;49999-0340-12
 ;;9002226.02101,"1795,49999-0493-18 ",.01)
 ;;49999-0493-18
 ;;9002226.02101,"1795,49999-0493-18 ",.02)
 ;;49999-0493-18
 ;;9002226.02101,"1795,49999-0594-30 ",.01)
 ;;49999-0594-30
 ;;9002226.02101,"1795,49999-0594-30 ",.02)
 ;;49999-0594-30
 ;;9002226.02101,"1795,49999-0594-90 ",.01)
 ;;49999-0594-90
 ;;9002226.02101,"1795,49999-0594-90 ",.02)
 ;;49999-0594-90
 ;;9002226.02101,"1795,49999-0657-04 ",.01)
 ;;49999-0657-04
 ;;9002226.02101,"1795,49999-0657-04 ",.02)
 ;;49999-0657-04
 ;;9002226.02101,"1795,49999-0701-20 ",.01)
 ;;49999-0701-20
 ;;9002226.02101,"1795,49999-0701-20 ",.02)
 ;;49999-0701-20
 ;;9002226.02101,"1795,49999-0701-30 ",.01)
 ;;49999-0701-30
 ;;9002226.02101,"1795,49999-0701-30 ",.02)
 ;;49999-0701-30
 ;;9002226.02101,"1795,49999-0902-20 ",.01)
 ;;49999-0902-20
 ;;9002226.02101,"1795,49999-0902-20 ",.02)
 ;;49999-0902-20
 ;;9002226.02101,"1795,49999-0902-30 ",.01)
 ;;49999-0902-30
 ;;9002226.02101,"1795,49999-0902-30 ",.02)
 ;;49999-0902-30
 ;;9002226.02101,"1795,50111-0393-01 ",.01)
 ;;50111-0393-01
 ;;9002226.02101,"1795,50111-0393-01 ",.02)
 ;;50111-0393-01
 ;;9002226.02101,"1795,50111-0394-01 ",.01)
 ;;50111-0394-01
 ;;9002226.02101,"1795,50111-0394-01 ",.02)
 ;;50111-0394-01
 ;;9002226.02101,"1795,50111-0394-03 ",.01)
 ;;50111-0394-03
 ;;9002226.02101,"1795,50111-0394-03 ",.02)
 ;;50111-0394-03
 ;;9002226.02101,"1795,50111-0395-01 ",.01)
 ;;50111-0395-01
 ;;9002226.02101,"1795,50111-0395-01 ",.02)
 ;;50111-0395-01
 ;;9002226.02101,"1795,50111-0395-03 ",.01)
 ;;50111-0395-03
 ;;9002226.02101,"1795,50111-0395-03 ",.02)
 ;;50111-0395-03
 ;;9002226.02101,"1795,50268-0115-11 ",.01)
 ;;50268-0115-11
 ;;9002226.02101,"1795,50268-0115-11 ",.02)
 ;;50268-0115-11
 ;;9002226.02101,"1795,50268-0115-15 ",.01)
 ;;50268-0115-15
 ;;9002226.02101,"1795,50268-0115-15 ",.02)
 ;;50268-0115-15
 ;;9002226.02101,"1795,50268-0116-11 ",.01)
 ;;50268-0116-11
 ;;9002226.02101,"1795,50268-0116-11 ",.02)
 ;;50268-0116-11
 ;;9002226.02101,"1795,50268-0116-15 ",.01)
 ;;50268-0116-15
 ;;9002226.02101,"1795,50268-0116-15 ",.02)
 ;;50268-0116-15
 ;;9002226.02101,"1795,50268-0117-11 ",.01)
 ;;50268-0117-11
 ;;9002226.02101,"1795,50268-0117-11 ",.02)
 ;;50268-0117-11
 ;;9002226.02101,"1795,50268-0117-15 ",.01)
 ;;50268-0117-15
 ;;9002226.02101,"1795,50268-0117-15 ",.02)
 ;;50268-0117-15
 ;;9002226.02101,"1795,50268-0522-11 ",.01)
 ;;50268-0522-11
 ;;9002226.02101,"1795,50268-0522-11 ",.02)
 ;;50268-0522-11
 ;;9002226.02101,"1795,50268-0522-15 ",.01)
 ;;50268-0522-15
 ;;9002226.02101,"1795,50268-0522-15 ",.02)
 ;;50268-0522-15
 ;;9002226.02101,"1795,50268-0523-11 ",.01)
 ;;50268-0523-11
 ;;9002226.02101,"1795,50268-0523-11 ",.02)
 ;;50268-0523-11
 ;;9002226.02101,"1795,50268-0523-15 ",.01)
 ;;50268-0523-15
 ;;9002226.02101,"1795,50268-0523-15 ",.02)
 ;;50268-0523-15
 ;;9002226.02101,"1795,50383-0796-16 ",.01)
 ;;50383-0796-16
 ;;9002226.02101,"1795,50383-0796-16 ",.02)
 ;;50383-0796-16
 ;;9002226.02101,"1795,50383-0801-16 ",.01)
 ;;50383-0801-16
 ;;9002226.02101,"1795,50383-0801-16 ",.02)
 ;;50383-0801-16
 ;;9002226.02101,"1795,50383-0802-16 ",.01)
 ;;50383-0802-16
 ;;9002226.02101,"1795,50383-0802-16 ",.02)
 ;;50383-0802-16
 ;;9002226.02101,"1795,50383-0803-16 ",.01)
 ;;50383-0803-16
 ;;9002226.02101,"1795,50383-0803-16 ",.02)
 ;;50383-0803-16
 ;;9002226.02101,"1795,50383-0804-16 ",.01)
 ;;50383-0804-16
 ;;9002226.02101,"1795,50383-0804-16 ",.02)
 ;;50383-0804-16
 ;;9002226.02101,"1795,50383-0805-04 ",.01)
 ;;50383-0805-04
 ;;9002226.02101,"1795,50383-0805-04 ",.02)
 ;;50383-0805-04
 ;;9002226.02101,"1795,50383-0805-16 ",.01)
 ;;50383-0805-16
 ;;9002226.02101,"1795,50383-0805-16 ",.02)
 ;;50383-0805-16
 ;;9002226.02101,"1795,50436-1867-00 ",.01)
 ;;50436-1867-00
 ;;9002226.02101,"1795,50436-1867-00 ",.02)
 ;;50436-1867-00
 ;;9002226.02101,"1795,50436-3367-05 ",.01)
 ;;50436-3367-05
 ;;9002226.02101,"1795,50436-3367-05 ",.02)
 ;;50436-3367-05
 ;;9002226.02101,"1795,50436-3763-05 ",.01)
 ;;50436-3763-05
 ;;9002226.02101,"1795,50436-3763-05 ",.02)
 ;;50436-3763-05
 ;;9002226.02101,"1795,50436-3875-03 ",.01)
 ;;50436-3875-03
 ;;9002226.02101,"1795,50436-3875-03 ",.02)
 ;;50436-3875-03
 ;;9002226.02101,"1795,50436-3988-01 ",.01)
 ;;50436-3988-01
 ;;9002226.02101,"1795,50436-3988-01 ",.02)
 ;;50436-3988-01
 ;;9002226.02101,"1795,50436-4379-02 ",.01)
 ;;50436-4379-02
 ;;9002226.02101,"1795,50436-4379-02 ",.02)
 ;;50436-4379-02
 ;;9002226.02101,"1795,50436-4379-03 ",.01)
 ;;50436-4379-03
 ;;9002226.02101,"1795,50436-4379-03 ",.02)
 ;;50436-4379-03
 ;;9002226.02101,"1795,50436-4379-05 ",.01)
 ;;50436-4379-05
 ;;9002226.02101,"1795,50436-4379-05 ",.02)
 ;;50436-4379-05
 ;;9002226.02101,"1795,50532-0112-10 ",.01)
 ;;50532-0112-10
 ;;9002226.02101,"1795,50532-0112-10 ",.02)
 ;;50532-0112-10
 ;;9002226.02101,"1795,50532-0113-10 ",.01)
 ;;50532-0113-10
 ;;9002226.02101,"1795,50532-0113-10 ",.02)
 ;;50532-0113-10
 ;;9002226.02101,"1795,50532-0115-10 ",.01)
 ;;50532-0115-10
 ;;9002226.02101,"1795,50532-0115-10 ",.02)
 ;;50532-0115-10
 ;;9002226.02101,"1795,50742-0190-01 ",.01)
 ;;50742-0190-01
 ;;9002226.02101,"1795,50742-0190-01 ",.02)
 ;;50742-0190-01
 ;;9002226.02101,"1795,50742-0190-10 ",.01)
 ;;50742-0190-10
 ;;9002226.02101,"1795,50742-0190-10 ",.02)
 ;;50742-0190-10
 ;;9002226.02101,"1795,50991-0405-16 ",.01)
 ;;50991-0405-16
 ;;9002226.02101,"1795,50991-0405-16 ",.02)
 ;;50991-0405-16
 ;;9002226.02101,"1795,50991-0528-16 ",.01)
 ;;50991-0528-16
 ;;9002226.02101,"1795,50991-0528-16 ",.02)
 ;;50991-0528-16
 ;;9002226.02101,"1795,51079-0067-01 ",.01)
 ;;51079-0067-01
 ;;9002226.02101,"1795,51079-0067-01 ",.02)
 ;;51079-0067-01
 ;;9002226.02101,"1795,51079-0067-20 ",.01)
 ;;51079-0067-20
 ;;9002226.02101,"1795,51079-0067-20 ",.02)
 ;;51079-0067-20
 ;;9002226.02101,"1795,51079-0077-01 ",.01)
 ;;51079-0077-01
 ;;9002226.02101,"1795,51079-0077-01 ",.02)
 ;;51079-0077-01
 ;;9002226.02101,"1795,51079-0077-20 ",.01)
 ;;51079-0077-20
 ;;9002226.02101,"1795,51079-0077-20 ",.02)
 ;;51079-0077-20
 ;;9002226.02101,"1795,51079-0078-01 ",.01)
 ;;51079-0078-01
 ;;9002226.02101,"1795,51079-0078-01 ",.02)
 ;;51079-0078-01
 ;;9002226.02101,"1795,51079-0078-20 ",.01)
 ;;51079-0078-20
 ;;9002226.02101,"1795,51079-0078-20 ",.02)
 ;;51079-0078-20
 ;;9002226.02101,"1795,51079-0089-01 ",.01)
 ;;51079-0089-01
 ;;9002226.02101,"1795,51079-0089-01 ",.02)
 ;;51079-0089-01
 ;;9002226.02101,"1795,51079-0089-20 ",.01)
 ;;51079-0089-20
 ;;9002226.02101,"1795,51079-0089-20 ",.02)
 ;;51079-0089-20
 ;;9002226.02101,"1795,51079-0090-01 ",.01)
 ;;51079-0090-01
 ;;9002226.02101,"1795,51079-0090-01 ",.02)
 ;;51079-0090-01
 ;;9002226.02101,"1795,51079-0090-20 ",.01)
 ;;51079-0090-20
 ;;9002226.02101,"1795,51079-0090-20 ",.02)
 ;;51079-0090-20
 ;;9002226.02101,"1795,51079-0118-01 ",.01)
 ;;51079-0118-01
 ;;9002226.02101,"1795,51079-0118-01 ",.02)
 ;;51079-0118-01
 ;;9002226.02101,"1795,51079-0118-20 ",.01)
 ;;51079-0118-20
 ;;9002226.02101,"1795,51079-0118-20 ",.02)
 ;;51079-0118-20
 ;;9002226.02101,"1795,51079-0119-01 ",.01)
 ;;51079-0119-01
 ;;9002226.02101,"1795,51079-0119-01 ",.02)
 ;;51079-0119-01
 ;;9002226.02101,"1795,51079-0119-20 ",.01)
 ;;51079-0119-20
 ;;9002226.02101,"1795,51079-0119-20 ",.02)
 ;;51079-0119-20
 ;;9002226.02101,"1795,51079-0221-17 ",.01)
 ;;51079-0221-17
 ;;9002226.02101,"1795,51079-0221-17 ",.02)
 ;;51079-0221-17
 ;;9002226.02101,"1795,51079-0221-19 ",.01)
 ;;51079-0221-19
 ;;9002226.02101,"1795,51079-0221-19 ",.02)
 ;;51079-0221-19
 ;;9002226.02101,"1795,51079-0423-01 ",.01)
 ;;51079-0423-01
 ;;9002226.02101,"1795,51079-0423-01 ",.02)
 ;;51079-0423-01
 ;;9002226.02101,"1795,51079-0423-20 ",.01)
 ;;51079-0423-20
 ;;9002226.02101,"1795,51079-0423-20 ",.02)
 ;;51079-0423-20
 ;;9002226.02101,"1795,51079-0511-01 ",.01)
 ;;51079-0511-01
 ;;9002226.02101,"1795,51079-0511-01 ",.02)
 ;;51079-0511-01
 ;;9002226.02101,"1795,51079-0511-20 ",.01)
 ;;51079-0511-20
 ;;9002226.02101,"1795,51079-0511-20 ",.02)
 ;;51079-0511-20
 ;;9002226.02101,"1795,51079-0796-01 ",.01)
 ;;51079-0796-01
 ;;9002226.02101,"1795,51079-0796-01 ",.02)
 ;;51079-0796-01
 ;;9002226.02101,"1795,51079-0796-20 ",.01)
 ;;51079-0796-20
 ;;9002226.02101,"1795,51079-0796-20 ",.02)
 ;;51079-0796-20
 ;;9002226.02101,"1795,51079-0806-01 ",.01)
 ;;51079-0806-01
 ;;9002226.02101,"1795,51079-0806-01 ",.02)
 ;;51079-0806-01
 ;;9002226.02101,"1795,51079-0806-20 ",.01)
 ;;51079-0806-20
 ;;9002226.02101,"1795,51079-0806-20 ",.02)
 ;;51079-0806-20
 ;;9002226.02101,"1795,51079-0816-01 ",.01)
 ;;51079-0816-01
 ;;9002226.02101,"1795,51079-0816-01 ",.02)
 ;;51079-0816-01
 ;;9002226.02101,"1795,51079-0816-20 ",.01)
 ;;51079-0816-20
 ;;9002226.02101,"1795,51079-0816-20 ",.02)
 ;;51079-0816-20
 ;;9002226.02101,"1795,51079-0895-01 ",.01)
 ;;51079-0895-01
 ;;9002226.02101,"1795,51079-0895-01 ",.02)
 ;;51079-0895-01
 ;;9002226.02101,"1795,51079-0895-20 ",.01)
 ;;51079-0895-20
 ;;9002226.02101,"1795,51079-0895-20 ",.02)
 ;;51079-0895-20
 ;;9002226.02101,"1795,51293-0607-01 ",.01)
 ;;51293-0607-01
 ;;9002226.02101,"1795,51293-0607-01 ",.02)
 ;;51293-0607-01
 ;;9002226.02101,"1795,51293-0607-10 ",.01)
 ;;51293-0607-10
 ;;9002226.02101,"1795,51293-0607-10 ",.02)
 ;;51293-0607-10
 ;;9002226.02101,"1795,51293-0607-66 ",.01)
 ;;51293-0607-66
 ;;9002226.02101,"1795,51293-0607-66 ",.02)
 ;;51293-0607-66
 ;;9002226.02101,"1795,51293-0622-01 ",.01)
 ;;51293-0622-01
 ;;9002226.02101,"1795,51293-0622-01 ",.02)
 ;;51293-0622-01
 ;;9002226.02101,"1795,51525-0112-01 ",.01)
 ;;51525-0112-01
 ;;9002226.02101,"1795,51525-0112-01 ",.02)
 ;;51525-0112-01
 ;;9002226.02101,"1795,51525-0113-01 ",.01)
 ;;51525-0113-01
 ;;9002226.02101,"1795,51525-0113-01 ",.02)
 ;;51525-0113-01
 ;;9002226.02101,"1795,51525-0115-01 ",.01)
 ;;51525-0115-01
 ;;9002226.02101,"1795,51525-0115-01 ",.02)
 ;;51525-0115-01
 ;;9002226.02101,"1795,51655-0107-52 ",.01)
 ;;51655-0107-52
 ;;9002226.02101,"1795,51655-0107-52 ",.02)
 ;;51655-0107-52
 ;;9002226.02101,"1795,51672-5296-01 ",.01)
 ;;51672-5296-01
 ;;9002226.02101,"1795,51672-5296-01 ",.02)
 ;;51672-5296-01
 ;;9002226.02101,"1795,51672-5296-05 ",.01)
 ;;51672-5296-05
 ;;9002226.02101,"1795,51672-5296-05 ",.02)
 ;;51672-5296-05
 ;;9002226.02101,"1795,51672-5297-01 ",.01)
 ;;51672-5297-01
 ;;9002226.02101,"1795,51672-5297-01 ",.02)
 ;;51672-5297-01
 ;;9002226.02101,"1795,51724-0052-04 ",.01)
 ;;51724-0052-04
 ;;9002226.02101,"1795,51724-0052-04 ",.02)
 ;;51724-0052-04
 ;;9002226.02101,"1795,51724-0214-01 ",.01)
 ;;51724-0214-01
 ;;9002226.02101,"1795,51724-0214-01 ",.02)
 ;;51724-0214-01
 ;;9002226.02101,"1795,51991-0333-01 ",.01)
 ;;51991-0333-01
 ;;9002226.02101,"1795,51991-0333-01 ",.02)
 ;;51991-0333-01