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

BGP8ZS16.m

Go to the documentation of this file.
BGP8ZS16 ;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,"1799,49999-0551-30 ",.02)
 ;;49999-0551-30
 ;;9002226.02101,"1799,49999-0597-30 ",.01)
 ;;49999-0597-30
 ;;9002226.02101,"1799,49999-0597-30 ",.02)
 ;;49999-0597-30
 ;;9002226.02101,"1799,49999-0601-15 ",.01)
 ;;49999-0601-15
 ;;9002226.02101,"1799,49999-0601-15 ",.02)
 ;;49999-0601-15
 ;;9002226.02101,"1799,49999-0601-30 ",.01)
 ;;49999-0601-30
 ;;9002226.02101,"1799,49999-0601-30 ",.02)
 ;;49999-0601-30
 ;;9002226.02101,"1799,49999-0613-30 ",.01)
 ;;49999-0613-30
 ;;9002226.02101,"1799,49999-0613-30 ",.02)
 ;;49999-0613-30
 ;;9002226.02101,"1799,49999-0631-30 ",.01)
 ;;49999-0631-30
 ;;9002226.02101,"1799,49999-0631-30 ",.02)
 ;;49999-0631-30
 ;;9002226.02101,"1799,49999-0631-60 ",.01)
 ;;49999-0631-60
 ;;9002226.02101,"1799,49999-0631-60 ",.02)
 ;;49999-0631-60
 ;;9002226.02101,"1799,49999-0632-00 ",.01)
 ;;49999-0632-00
 ;;9002226.02101,"1799,49999-0632-00 ",.02)
 ;;49999-0632-00
 ;;9002226.02101,"1799,49999-0632-30 ",.01)
 ;;49999-0632-30
 ;;9002226.02101,"1799,49999-0632-30 ",.02)
 ;;49999-0632-30
 ;;9002226.02101,"1799,49999-0632-60 ",.01)
 ;;49999-0632-60
 ;;9002226.02101,"1799,49999-0632-60 ",.02)
 ;;49999-0632-60
 ;;9002226.02101,"1799,49999-0780-30 ",.01)
 ;;49999-0780-30
 ;;9002226.02101,"1799,49999-0780-30 ",.02)
 ;;49999-0780-30
 ;;9002226.02101,"1799,49999-0828-30 ",.01)
 ;;49999-0828-30
 ;;9002226.02101,"1799,49999-0828-30 ",.02)
 ;;49999-0828-30
 ;;9002226.02101,"1799,49999-0867-00 ",.01)
 ;;49999-0867-00
 ;;9002226.02101,"1799,49999-0867-00 ",.02)
 ;;49999-0867-00
 ;;9002226.02101,"1799,49999-0909-00 ",.01)
 ;;49999-0909-00
 ;;9002226.02101,"1799,49999-0909-00 ",.02)
 ;;49999-0909-00
 ;;9002226.02101,"1799,49999-0909-30 ",.01)
 ;;49999-0909-30
 ;;9002226.02101,"1799,49999-0909-30 ",.02)
 ;;49999-0909-30
 ;;9002226.02101,"1799,49999-0909-60 ",.01)
 ;;49999-0909-60
 ;;9002226.02101,"1799,49999-0909-60 ",.02)
 ;;49999-0909-60
 ;;9002226.02101,"1799,49999-0915-30 ",.01)
 ;;49999-0915-30
 ;;9002226.02101,"1799,49999-0915-30 ",.02)
 ;;49999-0915-30
 ;;9002226.02101,"1799,49999-0915-60 ",.01)
 ;;49999-0915-60
 ;;9002226.02101,"1799,49999-0915-60 ",.02)
 ;;49999-0915-60
 ;;9002226.02101,"1799,49999-0915-90 ",.01)
 ;;49999-0915-90
 ;;9002226.02101,"1799,49999-0915-90 ",.02)
 ;;49999-0915-90
 ;;9002226.02101,"1799,50268-0603-11 ",.01)
 ;;50268-0603-11
 ;;9002226.02101,"1799,50268-0603-11 ",.02)
 ;;50268-0603-11
 ;;9002226.02101,"1799,50268-0603-15 ",.01)
 ;;50268-0603-15
 ;;9002226.02101,"1799,50268-0603-15 ",.02)
 ;;50268-0603-15
 ;;9002226.02101,"1799,50268-0604-11 ",.01)
 ;;50268-0604-11
 ;;9002226.02101,"1799,50268-0604-11 ",.02)
 ;;50268-0604-11
 ;;9002226.02101,"1799,50268-0604-15 ",.01)
 ;;50268-0604-15
 ;;9002226.02101,"1799,50268-0604-15 ",.02)
 ;;50268-0604-15
 ;;9002226.02101,"1799,50268-0605-11 ",.01)
 ;;50268-0605-11
 ;;9002226.02101,"1799,50268-0605-11 ",.02)
 ;;50268-0605-11
 ;;9002226.02101,"1799,50268-0605-15 ",.01)
 ;;50268-0605-15
 ;;9002226.02101,"1799,50268-0605-15 ",.02)
 ;;50268-0605-15
 ;;9002226.02101,"1799,50268-0640-11 ",.01)
 ;;50268-0640-11
 ;;9002226.02101,"1799,50268-0640-11 ",.02)
 ;;50268-0640-11
 ;;9002226.02101,"1799,50268-0640-15 ",.01)
 ;;50268-0640-15
 ;;9002226.02101,"1799,50268-0640-15 ",.02)
 ;;50268-0640-15
 ;;9002226.02101,"1799,50268-0641-11 ",.01)
 ;;50268-0641-11
 ;;9002226.02101,"1799,50268-0641-11 ",.02)
 ;;50268-0641-11
 ;;9002226.02101,"1799,50268-0641-15 ",.01)
 ;;50268-0641-15
 ;;9002226.02101,"1799,50268-0641-15 ",.02)
 ;;50268-0641-15
 ;;9002226.02101,"1799,50268-0642-11 ",.01)
 ;;50268-0642-11
 ;;9002226.02101,"1799,50268-0642-11 ",.02)
 ;;50268-0642-11
 ;;9002226.02101,"1799,50268-0642-15 ",.01)
 ;;50268-0642-15
 ;;9002226.02101,"1799,50268-0642-15 ",.02)
 ;;50268-0642-15
 ;;9002226.02101,"1799,50268-0643-11 ",.01)
 ;;50268-0643-11
 ;;9002226.02101,"1799,50268-0643-11 ",.02)
 ;;50268-0643-11
 ;;9002226.02101,"1799,50268-0643-15 ",.01)
 ;;50268-0643-15
 ;;9002226.02101,"1799,50268-0643-15 ",.02)
 ;;50268-0643-15
 ;;9002226.02101,"1799,50383-0959-10 ",.01)
 ;;50383-0959-10
 ;;9002226.02101,"1799,50383-0959-10 ",.02)
 ;;50383-0959-10
 ;;9002226.02101,"1799,50383-0960-10 ",.01)
 ;;50383-0960-10
 ;;9002226.02101,"1799,50383-0960-10 ",.02)
 ;;50383-0960-10
 ;;9002226.02101,"1799,50436-3071-01 ",.01)
 ;;50436-3071-01
 ;;9002226.02101,"1799,50436-3071-01 ",.02)
 ;;50436-3071-01
 ;;9002226.02101,"1799,50436-3071-02 ",.01)
 ;;50436-3071-02
 ;;9002226.02101,"1799,50436-3071-02 ",.02)
 ;;50436-3071-02
 ;;9002226.02101,"1799,50436-3071-05 ",.01)
 ;;50436-3071-05
 ;;9002226.02101,"1799,50436-3071-05 ",.02)
 ;;50436-3071-05
 ;;9002226.02101,"1799,50436-3072-01 ",.01)
 ;;50436-3072-01
 ;;9002226.02101,"1799,50436-3072-01 ",.02)
 ;;50436-3072-01
 ;;9002226.02101,"1799,50436-3072-02 ",.01)
 ;;50436-3072-02
 ;;9002226.02101,"1799,50436-3072-02 ",.02)
 ;;50436-3072-02
 ;;9002226.02101,"1799,50436-3072-05 ",.01)
 ;;50436-3072-05
 ;;9002226.02101,"1799,50436-3072-05 ",.02)
 ;;50436-3072-05
 ;;9002226.02101,"1799,50436-3073-01 ",.01)
 ;;50436-3073-01
 ;;9002226.02101,"1799,50436-3073-01 ",.02)
 ;;50436-3073-01
 ;;9002226.02101,"1799,50436-3073-02 ",.01)
 ;;50436-3073-02
 ;;9002226.02101,"1799,50436-3073-02 ",.02)
 ;;50436-3073-02
 ;;9002226.02101,"1799,50436-3074-01 ",.01)
 ;;50436-3074-01
 ;;9002226.02101,"1799,50436-3074-01 ",.02)
 ;;50436-3074-01
 ;;9002226.02101,"1799,50436-3075-01 ",.01)
 ;;50436-3075-01
 ;;9002226.02101,"1799,50436-3075-01 ",.02)
 ;;50436-3075-01
 ;;9002226.02101,"1799,50436-3933-03 ",.01)
 ;;50436-3933-03
 ;;9002226.02101,"1799,50436-3933-03 ",.02)
 ;;50436-3933-03
 ;;9002226.02101,"1799,50436-4565-01 ",.01)
 ;;50436-4565-01
 ;;9002226.02101,"1799,50436-4565-01 ",.02)
 ;;50436-4565-01
 ;;9002226.02101,"1799,50436-4856-01 ",.01)
 ;;50436-4856-01
 ;;9002226.02101,"1799,50436-4856-01 ",.02)
 ;;50436-4856-01
 ;;9002226.02101,"1799,50436-4856-02 ",.01)
 ;;50436-4856-02
 ;;9002226.02101,"1799,50436-4856-02 ",.02)
 ;;50436-4856-02
 ;;9002226.02101,"1799,50436-6650-01 ",.01)
 ;;50436-6650-01
 ;;9002226.02101,"1799,50436-6650-01 ",.02)
 ;;50436-6650-01
 ;;9002226.02101,"1799,50436-6650-02 ",.01)
 ;;50436-6650-02
 ;;9002226.02101,"1799,50436-6650-02 ",.02)
 ;;50436-6650-02
 ;;9002226.02101,"1799,50436-6651-02 ",.01)
 ;;50436-6651-02
 ;;9002226.02101,"1799,50436-6651-02 ",.02)
 ;;50436-6651-02
 ;;9002226.02101,"1799,50436-6652-01 ",.01)
 ;;50436-6652-01
 ;;9002226.02101,"1799,50436-6652-01 ",.02)
 ;;50436-6652-01
 ;;9002226.02101,"1799,51079-0107-01 ",.01)
 ;;51079-0107-01
 ;;9002226.02101,"1799,51079-0107-01 ",.02)
 ;;51079-0107-01
 ;;9002226.02101,"1799,51079-0107-20 ",.01)
 ;;51079-0107-20
 ;;9002226.02101,"1799,51079-0107-20 ",.02)
 ;;51079-0107-20
 ;;9002226.02101,"1799,51079-0107-63 ",.01)
 ;;51079-0107-63
 ;;9002226.02101,"1799,51079-0107-63 ",.02)
 ;;51079-0107-63
 ;;9002226.02101,"1799,51079-0131-01 ",.01)
 ;;51079-0131-01
 ;;9002226.02101,"1799,51079-0131-01 ",.02)
 ;;51079-0131-01
 ;;9002226.02101,"1799,51079-0131-20 ",.01)
 ;;51079-0131-20
 ;;9002226.02101,"1799,51079-0131-20 ",.02)
 ;;51079-0131-20
 ;;9002226.02101,"1799,51079-0131-63 ",.01)
 ;;51079-0131-63
 ;;9002226.02101,"1799,51079-0131-63 ",.02)
 ;;51079-0131-63
 ;;9002226.02101,"1799,51079-0133-01 ",.01)
 ;;51079-0133-01
 ;;9002226.02101,"1799,51079-0133-01 ",.02)
 ;;51079-0133-01
 ;;9002226.02101,"1799,51079-0133-20 ",.01)
 ;;51079-0133-20
 ;;9002226.02101,"1799,51079-0133-20 ",.02)
 ;;51079-0133-20
 ;;9002226.02101,"1799,51079-0133-63 ",.01)
 ;;51079-0133-63
 ;;9002226.02101,"1799,51079-0133-63 ",.02)
 ;;51079-0133-63
 ;;9002226.02101,"1799,51079-0147-01 ",.01)
 ;;51079-0147-01
 ;;9002226.02101,"1799,51079-0147-01 ",.02)
 ;;51079-0147-01
 ;;9002226.02101,"1799,51079-0147-20 ",.01)
 ;;51079-0147-20
 ;;9002226.02101,"1799,51079-0147-20 ",.02)
 ;;51079-0147-20
 ;;9002226.02101,"1799,51079-0436-01 ",.01)
 ;;51079-0436-01
 ;;9002226.02101,"1799,51079-0436-01 ",.02)
 ;;51079-0436-01
 ;;9002226.02101,"1799,51079-0436-20 ",.01)
 ;;51079-0436-20
 ;;9002226.02101,"1799,51079-0436-20 ",.02)
 ;;51079-0436-20
 ;;9002226.02101,"1799,51079-0437-01 ",.01)
 ;;51079-0437-01
 ;;9002226.02101,"1799,51079-0437-01 ",.02)
 ;;51079-0437-01
 ;;9002226.02101,"1799,51079-0437-20 ",.01)
 ;;51079-0437-20
 ;;9002226.02101,"1799,51079-0437-20 ",.02)
 ;;51079-0437-20
 ;;9002226.02101,"1799,51079-0438-01 ",.01)
 ;;51079-0438-01
 ;;9002226.02101,"1799,51079-0438-01 ",.02)
 ;;51079-0438-01
 ;;9002226.02101,"1799,51079-0438-20 ",.01)
 ;;51079-0438-20
 ;;9002226.02101,"1799,51079-0438-20 ",.02)
 ;;51079-0438-20
 ;;9002226.02101,"1799,51079-0563-01 ",.01)
 ;;51079-0563-01
 ;;9002226.02101,"1799,51079-0563-01 ",.02)
 ;;51079-0563-01
 ;;9002226.02101,"1799,51079-0563-20 ",.01)
 ;;51079-0563-20
 ;;9002226.02101,"1799,51079-0563-20 ",.02)
 ;;51079-0563-20
 ;;9002226.02101,"1799,51079-0651-01 ",.01)
 ;;51079-0651-01
 ;;9002226.02101,"1799,51079-0651-01 ",.02)
 ;;51079-0651-01
 ;;9002226.02101,"1799,51079-0651-20 ",.01)
 ;;51079-0651-20
 ;;9002226.02101,"1799,51079-0651-20 ",.02)
 ;;51079-0651-20
 ;;9002226.02101,"1799,51079-0774-01 ",.01)
 ;;51079-0774-01
 ;;9002226.02101,"1799,51079-0774-01 ",.02)
 ;;51079-0774-01
 ;;9002226.02101,"1799,51079-0774-20 ",.01)
 ;;51079-0774-20
 ;;9002226.02101,"1799,51079-0774-20 ",.02)
 ;;51079-0774-20
 ;;9002226.02101,"1799,51285-0538-02 ",.01)
 ;;51285-0538-02
 ;;9002226.02101,"1799,51285-0538-02 ",.02)
 ;;51285-0538-02
 ;;9002226.02101,"1799,51285-0539-02 ",.01)
 ;;51285-0539-02
 ;;9002226.02101,"1799,51285-0539-02 ",.02)
 ;;51285-0539-02
 ;;9002226.02101,"1799,51285-0554-02 ",.01)
 ;;51285-0554-02
 ;;9002226.02101,"1799,51285-0554-02 ",.02)
 ;;51285-0554-02
 ;;9002226.02101,"1799,51293-0605-01 ",.01)
 ;;51293-0605-01
 ;;9002226.02101,"1799,51293-0605-01 ",.02)
 ;;51293-0605-01
 ;;9002226.02101,"1799,51293-0606-01 ",.01)
 ;;51293-0606-01
 ;;9002226.02101,"1799,51293-0606-01 ",.02)
 ;;51293-0606-01
 ;;9002226.02101,"1799,51293-0625-01 ",.01)
 ;;51293-0625-01
 ;;9002226.02101,"1799,51293-0625-01 ",.02)
 ;;51293-0625-01
 ;;9002226.02101,"1799,51293-0625-10 ",.01)
 ;;51293-0625-10
 ;;9002226.02101,"1799,51293-0625-10 ",.02)
 ;;51293-0625-10
 ;;9002226.02101,"1799,51293-0626-01 ",.01)
 ;;51293-0626-01
 ;;9002226.02101,"1799,51293-0626-01 ",.02)
 ;;51293-0626-01
 ;;9002226.02101,"1799,51293-0626-10 ",.01)
 ;;51293-0626-10
 ;;9002226.02101,"1799,51293-0626-10 ",.02)
 ;;51293-0626-10
 ;;9002226.02101,"1799,51293-0627-01 ",.01)
 ;;51293-0627-01
 ;;9002226.02101,"1799,51293-0627-01 ",.02)
 ;;51293-0627-01
 ;;9002226.02101,"1799,51293-0627-10 ",.01)
 ;;51293-0627-10
 ;;9002226.02101,"1799,51293-0627-10 ",.02)
 ;;51293-0627-10
 ;;9002226.02101,"1799,51293-0628-01 ",.01)
 ;;51293-0628-01
 ;;9002226.02101,"1799,51293-0628-01 ",.02)
 ;;51293-0628-01
 ;;9002226.02101,"1799,51293-0628-10 ",.01)
 ;;51293-0628-10
 ;;9002226.02101,"1799,51293-0628-10 ",.02)
 ;;51293-0628-10
 ;;9002226.02101,"1799,51672-4001-01 ",.01)
 ;;51672-4001-01
 ;;9002226.02101,"1799,51672-4001-01 ",.02)
 ;;51672-4001-01
 ;;9002226.02101,"1799,51672-4001-02 ",.01)
 ;;51672-4001-02
 ;;9002226.02101,"1799,51672-4001-02 ",.02)
 ;;51672-4001-02
 ;;9002226.02101,"1799,51672-4001-05 ",.01)
 ;;51672-4001-05
 ;;9002226.02101,"1799,51672-4001-05 ",.02)
 ;;51672-4001-05
 ;;9002226.02101,"1799,51672-4001-06 ",.01)
 ;;51672-4001-06
 ;;9002226.02101,"1799,51672-4001-06 ",.02)
 ;;51672-4001-06
 ;;9002226.02101,"1799,51672-4002-01 ",.01)
 ;;51672-4002-01
 ;;9002226.02101,"1799,51672-4002-01 ",.02)
 ;;51672-4002-01
 ;;9002226.02101,"1799,51672-4002-02 ",.01)
 ;;51672-4002-02
 ;;9002226.02101,"1799,51672-4002-02 ",.02)
 ;;51672-4002-02