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

BGP8ZS17.m

Go to the documentation of this file.
BGP8ZS17 ;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,51672-4002-05 ",.01)
 ;;51672-4002-05
 ;;9002226.02101,"1799,51672-4002-05 ",.02)
 ;;51672-4002-05
 ;;9002226.02101,"1799,51672-4002-06 ",.01)
 ;;51672-4002-06
 ;;9002226.02101,"1799,51672-4002-06 ",.02)
 ;;51672-4002-06
 ;;9002226.02101,"1799,51672-4003-01 ",.01)
 ;;51672-4003-01
 ;;9002226.02101,"1799,51672-4003-01 ",.02)
 ;;51672-4003-01
 ;;9002226.02101,"1799,51672-4003-02 ",.01)
 ;;51672-4003-02
 ;;9002226.02101,"1799,51672-4003-02 ",.02)
 ;;51672-4003-02
 ;;9002226.02101,"1799,51672-4003-05 ",.01)
 ;;51672-4003-05
 ;;9002226.02101,"1799,51672-4003-05 ",.02)
 ;;51672-4003-05
 ;;9002226.02101,"1799,51672-4003-06 ",.01)
 ;;51672-4003-06
 ;;9002226.02101,"1799,51672-4003-06 ",.02)
 ;;51672-4003-06
 ;;9002226.02101,"1799,51672-4004-01 ",.01)
 ;;51672-4004-01
 ;;9002226.02101,"1799,51672-4004-01 ",.02)
 ;;51672-4004-01
 ;;9002226.02101,"1799,51672-4004-02 ",.01)
 ;;51672-4004-02
 ;;9002226.02101,"1799,51672-4004-02 ",.02)
 ;;51672-4004-02
 ;;9002226.02101,"1799,51672-4004-05 ",.01)
 ;;51672-4004-05
 ;;9002226.02101,"1799,51672-4004-05 ",.02)
 ;;51672-4004-05
 ;;9002226.02101,"1799,51672-4004-06 ",.01)
 ;;51672-4004-06
 ;;9002226.02101,"1799,51672-4004-06 ",.02)
 ;;51672-4004-06
 ;;9002226.02101,"1799,51672-4011-05 ",.01)
 ;;51672-4011-05
 ;;9002226.02101,"1799,51672-4011-05 ",.02)
 ;;51672-4011-05
 ;;9002226.02101,"1799,51672-4011-06 ",.01)
 ;;51672-4011-06
 ;;9002226.02101,"1799,51672-4011-06 ",.02)
 ;;51672-4011-06
 ;;9002226.02101,"1799,51672-4012-05 ",.01)
 ;;51672-4012-05
 ;;9002226.02101,"1799,51672-4012-05 ",.02)
 ;;51672-4012-05
 ;;9002226.02101,"1799,51672-4012-06 ",.01)
 ;;51672-4012-06
 ;;9002226.02101,"1799,51672-4012-06 ",.02)
 ;;51672-4012-06
 ;;9002226.02101,"1799,51672-4013-05 ",.01)
 ;;51672-4013-05
 ;;9002226.02101,"1799,51672-4013-05 ",.02)
 ;;51672-4013-05
 ;;9002226.02101,"1799,51672-4013-06 ",.01)
 ;;51672-4013-06
 ;;9002226.02101,"1799,51672-4013-06 ",.02)
 ;;51672-4013-06
 ;;9002226.02101,"1799,51862-0015-01 ",.01)
 ;;51862-0015-01
 ;;9002226.02101,"1799,51862-0015-01 ",.02)
 ;;51862-0015-01
 ;;9002226.02101,"1799,51862-0015-05 ",.01)
 ;;51862-0015-05
 ;;9002226.02101,"1799,51862-0015-05 ",.02)
 ;;51862-0015-05
 ;;9002226.02101,"1799,51862-0016-01 ",.01)
 ;;51862-0016-01
 ;;9002226.02101,"1799,51862-0016-01 ",.02)
 ;;51862-0016-01
 ;;9002226.02101,"1799,51862-0016-05 ",.01)
 ;;51862-0016-05
 ;;9002226.02101,"1799,51862-0016-05 ",.02)
 ;;51862-0016-05
 ;;9002226.02101,"1799,51862-0016-10 ",.01)
 ;;51862-0016-10
 ;;9002226.02101,"1799,51862-0016-10 ",.02)
 ;;51862-0016-10
 ;;9002226.02101,"1799,51862-0017-01 ",.01)
 ;;51862-0017-01
 ;;9002226.02101,"1799,51862-0017-01 ",.02)
 ;;51862-0017-01
 ;;9002226.02101,"1799,51862-0017-05 ",.01)
 ;;51862-0017-05
 ;;9002226.02101,"1799,51862-0017-05 ",.02)
 ;;51862-0017-05
 ;;9002226.02101,"1799,51862-0018-01 ",.01)
 ;;51862-0018-01
 ;;9002226.02101,"1799,51862-0018-01 ",.02)
 ;;51862-0018-01
 ;;9002226.02101,"1799,51862-0179-01 ",.01)
 ;;51862-0179-01
 ;;9002226.02101,"1799,51862-0179-01 ",.02)
 ;;51862-0179-01
 ;;9002226.02101,"1799,51862-0538-01 ",.01)
 ;;51862-0538-01
 ;;9002226.02101,"1799,51862-0538-01 ",.02)
 ;;51862-0538-01
 ;;9002226.02101,"1799,51862-0540-01 ",.01)
 ;;51862-0540-01
 ;;9002226.02101,"1799,51862-0540-01 ",.02)
 ;;51862-0540-01
 ;;9002226.02101,"1799,51862-0540-05 ",.01)
 ;;51862-0540-05
 ;;9002226.02101,"1799,51862-0540-05 ",.02)
 ;;51862-0540-05
 ;;9002226.02101,"1799,51991-0073-01 ",.01)
 ;;51991-0073-01
 ;;9002226.02101,"1799,51991-0073-01 ",.02)
 ;;51991-0073-01
 ;;9002226.02101,"1799,51991-0074-01 ",.01)
 ;;51991-0074-01
 ;;9002226.02101,"1799,51991-0074-01 ",.02)
 ;;51991-0074-01
 ;;9002226.02101,"1799,51991-0074-05 ",.01)
 ;;51991-0074-05
 ;;9002226.02101,"1799,51991-0074-05 ",.02)
 ;;51991-0074-05
 ;;9002226.02101,"1799,51991-0944-01 ",.01)
 ;;51991-0944-01
 ;;9002226.02101,"1799,51991-0944-01 ",.02)
 ;;51991-0944-01
 ;;9002226.02101,"1799,51991-0945-01 ",.01)
 ;;51991-0945-01
 ;;9002226.02101,"1799,51991-0945-01 ",.02)
 ;;51991-0945-01
 ;;9002226.02101,"1799,51991-0946-01 ",.01)
 ;;51991-0946-01
 ;;9002226.02101,"1799,51991-0946-01 ",.02)
 ;;51991-0946-01
 ;;9002226.02101,"1799,52343-0073-30 ",.01)
 ;;52343-0073-30
 ;;9002226.02101,"1799,52343-0073-30 ",.02)
 ;;52343-0073-30
 ;;9002226.02101,"1799,52343-0073-90 ",.01)
 ;;52343-0073-90
 ;;9002226.02101,"1799,52343-0073-90 ",.02)
 ;;52343-0073-90
 ;;9002226.02101,"1799,52343-0073-99 ",.01)
 ;;52343-0073-99
 ;;9002226.02101,"1799,52343-0073-99 ",.02)
 ;;52343-0073-99
 ;;9002226.02101,"1799,52343-0074-30 ",.01)
 ;;52343-0074-30
 ;;9002226.02101,"1799,52343-0074-30 ",.02)
 ;;52343-0074-30
 ;;9002226.02101,"1799,52343-0074-90 ",.01)
 ;;52343-0074-90
 ;;9002226.02101,"1799,52343-0074-90 ",.02)
 ;;52343-0074-90
 ;;9002226.02101,"1799,52343-0074-99 ",.01)
 ;;52343-0074-99
 ;;9002226.02101,"1799,52343-0074-99 ",.02)
 ;;52343-0074-99
 ;;9002226.02101,"1799,52343-0075-30 ",.01)
 ;;52343-0075-30
 ;;9002226.02101,"1799,52343-0075-30 ",.02)
 ;;52343-0075-30
 ;;9002226.02101,"1799,52343-0075-90 ",.01)
 ;;52343-0075-90
 ;;9002226.02101,"1799,52343-0075-90 ",.02)
 ;;52343-0075-90
 ;;9002226.02101,"1799,52343-0075-99 ",.01)
 ;;52343-0075-99
 ;;9002226.02101,"1799,52343-0075-99 ",.02)
 ;;52343-0075-99
 ;;9002226.02101,"1799,52343-0076-30 ",.01)
 ;;52343-0076-30
 ;;9002226.02101,"1799,52343-0076-30 ",.02)
 ;;52343-0076-30
 ;;9002226.02101,"1799,52343-0076-90 ",.01)
 ;;52343-0076-90
 ;;9002226.02101,"1799,52343-0076-90 ",.02)
 ;;52343-0076-90
 ;;9002226.02101,"1799,52343-0076-99 ",.01)
 ;;52343-0076-99
 ;;9002226.02101,"1799,52343-0076-99 ",.02)
 ;;52343-0076-99
 ;;9002226.02101,"1799,52544-0080-01 ",.01)
 ;;52544-0080-01
 ;;9002226.02101,"1799,52544-0080-01 ",.02)
 ;;52544-0080-01
 ;;9002226.02101,"1799,52544-0082-01 ",.01)
 ;;52544-0082-01
 ;;9002226.02101,"1799,52544-0082-01 ",.02)
 ;;52544-0082-01
 ;;9002226.02101,"1799,52544-0955-01 ",.01)
 ;;52544-0955-01
 ;;9002226.02101,"1799,52544-0955-01 ",.02)
 ;;52544-0955-01
 ;;9002226.02101,"1799,52544-0956-01 ",.01)
 ;;52544-0956-01
 ;;9002226.02101,"1799,52544-0956-01 ",.02)
 ;;52544-0956-01
 ;;9002226.02101,"1799,52817-0140-50 ",.01)
 ;;52817-0140-50
 ;;9002226.02101,"1799,52817-0140-50 ",.02)
 ;;52817-0140-50
 ;;9002226.02101,"1799,52817-0140-90 ",.01)
 ;;52817-0140-90
 ;;9002226.02101,"1799,52817-0140-90 ",.02)
 ;;52817-0140-90
 ;;9002226.02101,"1799,52817-0141-00 ",.01)
 ;;52817-0141-00
 ;;9002226.02101,"1799,52817-0141-00 ",.02)
 ;;52817-0141-00
 ;;9002226.02101,"1799,52817-0141-90 ",.01)
 ;;52817-0141-90
 ;;9002226.02101,"1799,52817-0141-90 ",.02)
 ;;52817-0141-90
 ;;9002226.02101,"1799,52817-0142-50 ",.01)
 ;;52817-0142-50
 ;;9002226.02101,"1799,52817-0142-50 ",.02)
 ;;52817-0142-50
 ;;9002226.02101,"1799,52817-0142-90 ",.01)
 ;;52817-0142-90
 ;;9002226.02101,"1799,52817-0142-90 ",.02)
 ;;52817-0142-90
 ;;9002226.02101,"1799,52817-0143-50 ",.01)
 ;;52817-0143-50
 ;;9002226.02101,"1799,52817-0143-50 ",.02)
 ;;52817-0143-50
 ;;9002226.02101,"1799,52817-0143-90 ",.01)
 ;;52817-0143-90
 ;;9002226.02101,"1799,52817-0143-90 ",.02)
 ;;52817-0143-90
 ;;9002226.02101,"1799,52959-0008-02 ",.01)
 ;;52959-0008-02
 ;;9002226.02101,"1799,52959-0008-02 ",.02)
 ;;52959-0008-02
 ;;9002226.02101,"1799,52959-0008-15 ",.01)
 ;;52959-0008-15
 ;;9002226.02101,"1799,52959-0008-15 ",.02)
 ;;52959-0008-15
 ;;9002226.02101,"1799,52959-0008-20 ",.01)
 ;;52959-0008-20
 ;;9002226.02101,"1799,52959-0008-20 ",.02)
 ;;52959-0008-20
 ;;9002226.02101,"1799,52959-0008-30 ",.01)
 ;;52959-0008-30
 ;;9002226.02101,"1799,52959-0008-30 ",.02)
 ;;52959-0008-30
 ;;9002226.02101,"1799,52959-0008-40 ",.01)
 ;;52959-0008-40
 ;;9002226.02101,"1799,52959-0008-40 ",.02)
 ;;52959-0008-40
 ;;9002226.02101,"1799,52959-0008-50 ",.01)
 ;;52959-0008-50
 ;;9002226.02101,"1799,52959-0008-50 ",.02)
 ;;52959-0008-50
 ;;9002226.02101,"1799,52959-0008-60 ",.01)
 ;;52959-0008-60
 ;;9002226.02101,"1799,52959-0008-60 ",.02)
 ;;52959-0008-60
 ;;9002226.02101,"1799,52959-0008-90 ",.01)
 ;;52959-0008-90
 ;;9002226.02101,"1799,52959-0008-90 ",.02)
 ;;52959-0008-90
 ;;9002226.02101,"1799,52959-0023-06 ",.01)
 ;;52959-0023-06
 ;;9002226.02101,"1799,52959-0023-06 ",.02)
 ;;52959-0023-06
 ;;9002226.02101,"1799,52959-0023-20 ",.01)
 ;;52959-0023-20
 ;;9002226.02101,"1799,52959-0023-20 ",.02)
 ;;52959-0023-20
 ;;9002226.02101,"1799,52959-0023-30 ",.01)
 ;;52959-0023-30
 ;;9002226.02101,"1799,52959-0023-30 ",.02)
 ;;52959-0023-30
 ;;9002226.02101,"1799,52959-0023-50 ",.01)
 ;;52959-0023-50
 ;;9002226.02101,"1799,52959-0023-50 ",.02)
 ;;52959-0023-50
 ;;9002226.02101,"1799,52959-0023-60 ",.01)
 ;;52959-0023-60
 ;;9002226.02101,"1799,52959-0023-60 ",.02)
 ;;52959-0023-60
 ;;9002226.02101,"1799,52959-0128-30 ",.01)
 ;;52959-0128-30
 ;;9002226.02101,"1799,52959-0128-30 ",.02)
 ;;52959-0128-30
 ;;9002226.02101,"1799,52959-0128-60 ",.01)
 ;;52959-0128-60
 ;;9002226.02101,"1799,52959-0128-60 ",.02)
 ;;52959-0128-60
 ;;9002226.02101,"1799,52959-0163-30 ",.01)
 ;;52959-0163-30
 ;;9002226.02101,"1799,52959-0163-30 ",.02)
 ;;52959-0163-30
 ;;9002226.02101,"1799,52959-0274-03 ",.01)
 ;;52959-0274-03
 ;;9002226.02101,"1799,52959-0274-03 ",.02)
 ;;52959-0274-03
 ;;9002226.02101,"1799,52959-0274-06 ",.01)
 ;;52959-0274-06
 ;;9002226.02101,"1799,52959-0274-06 ",.02)
 ;;52959-0274-06
 ;;9002226.02101,"1799,52959-0274-30 ",.01)
 ;;52959-0274-30
 ;;9002226.02101,"1799,52959-0274-30 ",.02)
 ;;52959-0274-30
 ;;9002226.02101,"1799,52959-0284-00 ",.01)
 ;;52959-0284-00
 ;;9002226.02101,"1799,52959-0284-00 ",.02)
 ;;52959-0284-00
 ;;9002226.02101,"1799,52959-0284-30 ",.01)
 ;;52959-0284-30
 ;;9002226.02101,"1799,52959-0284-30 ",.02)
 ;;52959-0284-30
 ;;9002226.02101,"1799,52959-0284-60 ",.01)
 ;;52959-0284-60
 ;;9002226.02101,"1799,52959-0284-60 ",.02)
 ;;52959-0284-60
 ;;9002226.02101,"1799,52959-0348-00 ",.01)
 ;;52959-0348-00
 ;;9002226.02101,"1799,52959-0348-00 ",.02)
 ;;52959-0348-00
 ;;9002226.02101,"1799,52959-0348-02 ",.01)
 ;;52959-0348-02
 ;;9002226.02101,"1799,52959-0348-02 ",.02)
 ;;52959-0348-02
 ;;9002226.02101,"1799,52959-0348-10 ",.01)
 ;;52959-0348-10
 ;;9002226.02101,"1799,52959-0348-10 ",.02)
 ;;52959-0348-10
 ;;9002226.02101,"1799,52959-0348-12 ",.01)
 ;;52959-0348-12
 ;;9002226.02101,"1799,52959-0348-12 ",.02)
 ;;52959-0348-12
 ;;9002226.02101,"1799,52959-0348-14 ",.01)
 ;;52959-0348-14
 ;;9002226.02101,"1799,52959-0348-14 ",.02)
 ;;52959-0348-14
 ;;9002226.02101,"1799,52959-0348-15 ",.01)
 ;;52959-0348-15
 ;;9002226.02101,"1799,52959-0348-15 ",.02)
 ;;52959-0348-15
 ;;9002226.02101,"1799,52959-0348-20 ",.01)
 ;;52959-0348-20
 ;;9002226.02101,"1799,52959-0348-20 ",.02)
 ;;52959-0348-20
 ;;9002226.02101,"1799,52959-0348-30 ",.01)
 ;;52959-0348-30
 ;;9002226.02101,"1799,52959-0348-30 ",.02)
 ;;52959-0348-30
 ;;9002226.02101,"1799,52959-0348-50 ",.01)
 ;;52959-0348-50
 ;;9002226.02101,"1799,52959-0348-50 ",.02)
 ;;52959-0348-50
 ;;9002226.02101,"1799,52959-0348-60 ",.01)
 ;;52959-0348-60
 ;;9002226.02101,"1799,52959-0348-60 ",.02)
 ;;52959-0348-60
 ;;9002226.02101,"1799,52959-0348-90 ",.01)
 ;;52959-0348-90
 ;;9002226.02101,"1799,52959-0348-90 ",.02)
 ;;52959-0348-90
 ;;9002226.02101,"1799,52959-0358-02 ",.01)
 ;;52959-0358-02
 ;;9002226.02101,"1799,52959-0358-02 ",.02)
 ;;52959-0358-02
 ;;9002226.02101,"1799,52959-0358-20 ",.01)
 ;;52959-0358-20
 ;;9002226.02101,"1799,52959-0358-20 ",.02)
 ;;52959-0358-20
 ;;9002226.02101,"1799,52959-0358-30 ",.01)
 ;;52959-0358-30
 ;;9002226.02101,"1799,52959-0358-30 ",.02)
 ;;52959-0358-30
 ;;9002226.02101,"1799,52959-0358-60 ",.01)
 ;;52959-0358-60