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

BGP8ZI39.m

Go to the documentation of this file.
BGP8ZI39 ;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,"869,51079-0993-20 ",.01)
 ;;51079-0993-20
 ;;9002226.02101,"869,51079-0993-20 ",.02)
 ;;51079-0993-20
 ;;9002226.02101,"869,51285-0538-02 ",.01)
 ;;51285-0538-02
 ;;9002226.02101,"869,51285-0538-02 ",.02)
 ;;51285-0538-02
 ;;9002226.02101,"869,51285-0539-02 ",.01)
 ;;51285-0539-02
 ;;9002226.02101,"869,51285-0539-02 ",.02)
 ;;51285-0539-02
 ;;9002226.02101,"869,51285-0554-02 ",.01)
 ;;51285-0554-02
 ;;9002226.02101,"869,51285-0554-02 ",.02)
 ;;51285-0554-02
 ;;9002226.02101,"869,51285-0594-02 ",.01)
 ;;51285-0594-02
 ;;9002226.02101,"869,51285-0594-02 ",.02)
 ;;51285-0594-02
 ;;9002226.02101,"869,51285-0595-02 ",.01)
 ;;51285-0595-02
 ;;9002226.02101,"869,51285-0595-02 ",.02)
 ;;51285-0595-02
 ;;9002226.02101,"869,51285-0910-04 ",.01)
 ;;51285-0910-04
 ;;9002226.02101,"869,51285-0910-04 ",.02)
 ;;51285-0910-04
 ;;9002226.02101,"869,51285-0911-04 ",.01)
 ;;51285-0911-04
 ;;9002226.02101,"869,51285-0911-04 ",.02)
 ;;51285-0911-04
 ;;9002226.02101,"869,51285-0912-04 ",.01)
 ;;51285-0912-04
 ;;9002226.02101,"869,51285-0912-04 ",.02)
 ;;51285-0912-04
 ;;9002226.02101,"869,51655-0148-51 ",.01)
 ;;51655-0148-51
 ;;9002226.02101,"869,51655-0148-51 ",.02)
 ;;51655-0148-51
 ;;9002226.02101,"869,51655-0148-77 ",.01)
 ;;51655-0148-77
 ;;9002226.02101,"869,51655-0148-77 ",.02)
 ;;51655-0148-77
 ;;9002226.02101,"869,51655-0223-51 ",.01)
 ;;51655-0223-51
 ;;9002226.02101,"869,51655-0223-51 ",.02)
 ;;51655-0223-51
 ;;9002226.02101,"869,51655-0662-24 ",.01)
 ;;51655-0662-24
 ;;9002226.02101,"869,51655-0662-24 ",.02)
 ;;51655-0662-24
 ;;9002226.02101,"869,51672-1348-01 ",.01)
 ;;51672-1348-01
 ;;9002226.02101,"869,51672-1348-01 ",.02)
 ;;51672-1348-01
 ;;9002226.02101,"869,51672-4001-01 ",.01)
 ;;51672-4001-01
 ;;9002226.02101,"869,51672-4001-01 ",.02)
 ;;51672-4001-01
 ;;9002226.02101,"869,51672-4001-02 ",.01)
 ;;51672-4001-02
 ;;9002226.02101,"869,51672-4001-02 ",.02)
 ;;51672-4001-02
 ;;9002226.02101,"869,51672-4001-05 ",.01)
 ;;51672-4001-05
 ;;9002226.02101,"869,51672-4001-05 ",.02)
 ;;51672-4001-05
 ;;9002226.02101,"869,51672-4001-06 ",.01)
 ;;51672-4001-06
 ;;9002226.02101,"869,51672-4001-06 ",.02)
 ;;51672-4001-06
 ;;9002226.02101,"869,51672-4002-01 ",.01)
 ;;51672-4002-01
 ;;9002226.02101,"869,51672-4002-01 ",.02)
 ;;51672-4002-01
 ;;9002226.02101,"869,51672-4002-02 ",.01)
 ;;51672-4002-02
 ;;9002226.02101,"869,51672-4002-02 ",.02)
 ;;51672-4002-02
 ;;9002226.02101,"869,51672-4002-05 ",.01)
 ;;51672-4002-05
 ;;9002226.02101,"869,51672-4002-05 ",.02)
 ;;51672-4002-05
 ;;9002226.02101,"869,51672-4002-06 ",.01)
 ;;51672-4002-06
 ;;9002226.02101,"869,51672-4002-06 ",.02)
 ;;51672-4002-06
 ;;9002226.02101,"869,51672-4003-01 ",.01)
 ;;51672-4003-01
 ;;9002226.02101,"869,51672-4003-01 ",.02)
 ;;51672-4003-01
 ;;9002226.02101,"869,51672-4003-02 ",.01)
 ;;51672-4003-02
 ;;9002226.02101,"869,51672-4003-02 ",.02)
 ;;51672-4003-02
 ;;9002226.02101,"869,51672-4003-05 ",.01)
 ;;51672-4003-05
 ;;9002226.02101,"869,51672-4003-05 ",.02)
 ;;51672-4003-05
 ;;9002226.02101,"869,51672-4003-06 ",.01)
 ;;51672-4003-06
 ;;9002226.02101,"869,51672-4003-06 ",.02)
 ;;51672-4003-06
 ;;9002226.02101,"869,51672-4004-01 ",.01)
 ;;51672-4004-01
 ;;9002226.02101,"869,51672-4004-01 ",.02)
 ;;51672-4004-01
 ;;9002226.02101,"869,51672-4004-02 ",.01)
 ;;51672-4004-02
 ;;9002226.02101,"869,51672-4004-02 ",.02)
 ;;51672-4004-02
 ;;9002226.02101,"869,51672-4004-05 ",.01)
 ;;51672-4004-05
 ;;9002226.02101,"869,51672-4004-05 ",.02)
 ;;51672-4004-05
 ;;9002226.02101,"869,51672-4004-06 ",.01)
 ;;51672-4004-06
 ;;9002226.02101,"869,51672-4004-06 ",.02)
 ;;51672-4004-06
 ;;9002226.02101,"869,51672-4011-01 ",.01)
 ;;51672-4011-01
 ;;9002226.02101,"869,51672-4011-01 ",.02)
 ;;51672-4011-01
 ;;9002226.02101,"869,51672-4011-05 ",.01)
 ;;51672-4011-05
 ;;9002226.02101,"869,51672-4011-05 ",.02)
 ;;51672-4011-05
 ;;9002226.02101,"869,51672-4011-06 ",.01)
 ;;51672-4011-06
 ;;9002226.02101,"869,51672-4011-06 ",.02)
 ;;51672-4011-06
 ;;9002226.02101,"869,51672-4012-01 ",.01)
 ;;51672-4012-01
 ;;9002226.02101,"869,51672-4012-01 ",.02)
 ;;51672-4012-01
 ;;9002226.02101,"869,51672-4012-05 ",.01)
 ;;51672-4012-05
 ;;9002226.02101,"869,51672-4012-05 ",.02)
 ;;51672-4012-05
 ;;9002226.02101,"869,51672-4012-06 ",.01)
 ;;51672-4012-06
 ;;9002226.02101,"869,51672-4012-06 ",.02)
 ;;51672-4012-06
 ;;9002226.02101,"869,51672-4013-01 ",.01)
 ;;51672-4013-01
 ;;9002226.02101,"869,51672-4013-01 ",.02)
 ;;51672-4013-01
 ;;9002226.02101,"869,51672-4013-05 ",.01)
 ;;51672-4013-05
 ;;9002226.02101,"869,51672-4013-05 ",.02)
 ;;51672-4013-05
 ;;9002226.02101,"869,51672-4013-06 ",.01)
 ;;51672-4013-06
 ;;9002226.02101,"869,51672-4013-06 ",.02)
 ;;51672-4013-06
 ;;9002226.02101,"869,51862-0015-01 ",.01)
 ;;51862-0015-01
 ;;9002226.02101,"869,51862-0015-01 ",.02)
 ;;51862-0015-01
 ;;9002226.02101,"869,51862-0015-05 ",.01)
 ;;51862-0015-05
 ;;9002226.02101,"869,51862-0015-05 ",.02)
 ;;51862-0015-05
 ;;9002226.02101,"869,51862-0016-01 ",.01)
 ;;51862-0016-01
 ;;9002226.02101,"869,51862-0016-01 ",.02)
 ;;51862-0016-01
 ;;9002226.02101,"869,51862-0016-05 ",.01)
 ;;51862-0016-05
 ;;9002226.02101,"869,51862-0016-05 ",.02)
 ;;51862-0016-05
 ;;9002226.02101,"869,51862-0016-10 ",.01)
 ;;51862-0016-10
 ;;9002226.02101,"869,51862-0016-10 ",.02)
 ;;51862-0016-10
 ;;9002226.02101,"869,51862-0017-01 ",.01)
 ;;51862-0017-01
 ;;9002226.02101,"869,51862-0017-01 ",.02)
 ;;51862-0017-01
 ;;9002226.02101,"869,51862-0017-05 ",.01)
 ;;51862-0017-05
 ;;9002226.02101,"869,51862-0017-05 ",.02)
 ;;51862-0017-05
 ;;9002226.02101,"869,51862-0018-01 ",.01)
 ;;51862-0018-01
 ;;9002226.02101,"869,51862-0018-01 ",.02)
 ;;51862-0018-01
 ;;9002226.02101,"869,51862-0146-06 ",.01)
 ;;51862-0146-06
 ;;9002226.02101,"869,51862-0146-06 ",.02)
 ;;51862-0146-06
 ;;9002226.02101,"869,51991-0311-10 ",.01)
 ;;51991-0311-10
 ;;9002226.02101,"869,51991-0311-10 ",.02)
 ;;51991-0311-10
 ;;9002226.02101,"869,51991-0311-33 ",.01)
 ;;51991-0311-33
 ;;9002226.02101,"869,51991-0311-33 ",.02)
 ;;51991-0311-33
 ;;9002226.02101,"869,51991-0311-90 ",.01)
 ;;51991-0311-90
 ;;9002226.02101,"869,51991-0311-90 ",.02)
 ;;51991-0311-90
 ;;9002226.02101,"869,51991-0312-10 ",.01)
 ;;51991-0312-10
 ;;9002226.02101,"869,51991-0312-10 ",.02)
 ;;51991-0312-10
 ;;9002226.02101,"869,51991-0312-33 ",.01)
 ;;51991-0312-33
 ;;9002226.02101,"869,51991-0312-33 ",.02)
 ;;51991-0312-33
 ;;9002226.02101,"869,51991-0312-90 ",.01)
 ;;51991-0312-90
 ;;9002226.02101,"869,51991-0312-90 ",.02)
 ;;51991-0312-90
 ;;9002226.02101,"869,51991-0746-05 ",.01)
 ;;51991-0746-05
 ;;9002226.02101,"869,51991-0746-05 ",.02)
 ;;51991-0746-05
 ;;9002226.02101,"869,51991-0746-06 ",.01)
 ;;51991-0746-06
 ;;9002226.02101,"869,51991-0746-06 ",.02)
 ;;51991-0746-06
 ;;9002226.02101,"869,51991-0746-90 ",.01)
 ;;51991-0746-90
 ;;9002226.02101,"869,51991-0746-90 ",.02)
 ;;51991-0746-90
 ;;9002226.02101,"869,51991-0747-10 ",.01)
 ;;51991-0747-10
 ;;9002226.02101,"869,51991-0747-10 ",.02)
 ;;51991-0747-10
 ;;9002226.02101,"869,51991-0747-90 ",.01)
 ;;51991-0747-90
 ;;9002226.02101,"869,51991-0747-90 ",.02)
 ;;51991-0747-90
 ;;9002226.02101,"869,51991-0748-10 ",.01)
 ;;51991-0748-10
 ;;9002226.02101,"869,51991-0748-10 ",.02)
 ;;51991-0748-10
 ;;9002226.02101,"869,51991-0748-90 ",.01)
 ;;51991-0748-90
 ;;9002226.02101,"869,51991-0748-90 ",.02)
 ;;51991-0748-90
 ;;9002226.02101,"869,51991-0944-01 ",.01)
 ;;51991-0944-01
 ;;9002226.02101,"869,51991-0944-01 ",.02)
 ;;51991-0944-01
 ;;9002226.02101,"869,51991-0945-01 ",.01)
 ;;51991-0945-01
 ;;9002226.02101,"869,51991-0945-01 ",.02)
 ;;51991-0945-01
 ;;9002226.02101,"869,51991-0946-01 ",.01)
 ;;51991-0946-01
 ;;9002226.02101,"869,51991-0946-01 ",.02)
 ;;51991-0946-01
 ;;9002226.02101,"869,52152-0293-08 ",.01)
 ;;52152-0293-08
 ;;9002226.02101,"869,52152-0293-08 ",.02)
 ;;52152-0293-08
 ;;9002226.02101,"869,52152-0293-30 ",.01)
 ;;52152-0293-30
 ;;9002226.02101,"869,52152-0293-30 ",.02)
 ;;52152-0293-30
 ;;9002226.02101,"869,52152-0294-08 ",.01)
 ;;52152-0294-08
 ;;9002226.02101,"869,52152-0294-08 ",.02)
 ;;52152-0294-08
 ;;9002226.02101,"869,52152-0294-30 ",.01)
 ;;52152-0294-30
 ;;9002226.02101,"869,52152-0294-30 ",.02)
 ;;52152-0294-30
 ;;9002226.02101,"869,52152-0341-02 ",.01)
 ;;52152-0341-02
 ;;9002226.02101,"869,52152-0341-02 ",.02)
 ;;52152-0341-02
 ;;9002226.02101,"869,52152-0345-02 ",.01)
 ;;52152-0345-02
 ;;9002226.02101,"869,52152-0345-02 ",.02)
 ;;52152-0345-02
 ;;9002226.02101,"869,52152-0345-04 ",.01)
 ;;52152-0345-04
 ;;9002226.02101,"869,52152-0345-04 ",.02)
 ;;52152-0345-04
 ;;9002226.02101,"869,52343-0073-30 ",.01)
 ;;52343-0073-30
 ;;9002226.02101,"869,52343-0073-30 ",.02)
 ;;52343-0073-30
 ;;9002226.02101,"869,52343-0073-90 ",.01)
 ;;52343-0073-90
 ;;9002226.02101,"869,52343-0073-90 ",.02)
 ;;52343-0073-90
 ;;9002226.02101,"869,52343-0073-99 ",.01)
 ;;52343-0073-99
 ;;9002226.02101,"869,52343-0073-99 ",.02)
 ;;52343-0073-99
 ;;9002226.02101,"869,52343-0074-30 ",.01)
 ;;52343-0074-30
 ;;9002226.02101,"869,52343-0074-30 ",.02)
 ;;52343-0074-30
 ;;9002226.02101,"869,52343-0074-90 ",.01)
 ;;52343-0074-90
 ;;9002226.02101,"869,52343-0074-90 ",.02)
 ;;52343-0074-90
 ;;9002226.02101,"869,52343-0074-99 ",.01)
 ;;52343-0074-99
 ;;9002226.02101,"869,52343-0074-99 ",.02)
 ;;52343-0074-99
 ;;9002226.02101,"869,52343-0075-30 ",.01)
 ;;52343-0075-30
 ;;9002226.02101,"869,52343-0075-30 ",.02)
 ;;52343-0075-30
 ;;9002226.02101,"869,52343-0075-90 ",.01)
 ;;52343-0075-90
 ;;9002226.02101,"869,52343-0075-90 ",.02)
 ;;52343-0075-90
 ;;9002226.02101,"869,52343-0075-99 ",.01)
 ;;52343-0075-99
 ;;9002226.02101,"869,52343-0075-99 ",.02)
 ;;52343-0075-99
 ;;9002226.02101,"869,52343-0076-30 ",.01)
 ;;52343-0076-30
 ;;9002226.02101,"869,52343-0076-30 ",.02)
 ;;52343-0076-30
 ;;9002226.02101,"869,52343-0076-90 ",.01)
 ;;52343-0076-90
 ;;9002226.02101,"869,52343-0076-90 ",.02)
 ;;52343-0076-90
 ;;9002226.02101,"869,52343-0076-99 ",.01)
 ;;52343-0076-99
 ;;9002226.02101,"869,52343-0076-99 ",.02)
 ;;52343-0076-99
 ;;9002226.02101,"869,52343-0131-30 ",.01)
 ;;52343-0131-30
 ;;9002226.02101,"869,52343-0131-30 ",.02)
 ;;52343-0131-30
 ;;9002226.02101,"869,52343-0131-90 ",.01)
 ;;52343-0131-90
 ;;9002226.02101,"869,52343-0131-90 ",.02)
 ;;52343-0131-90
 ;;9002226.02101,"869,52343-0132-30 ",.01)
 ;;52343-0132-30
 ;;9002226.02101,"869,52343-0132-30 ",.02)
 ;;52343-0132-30
 ;;9002226.02101,"869,52343-0132-90 ",.01)
 ;;52343-0132-90
 ;;9002226.02101,"869,52343-0132-90 ",.02)
 ;;52343-0132-90
 ;;9002226.02101,"869,52343-0133-30 ",.01)
 ;;52343-0133-30
 ;;9002226.02101,"869,52343-0133-30 ",.02)
 ;;52343-0133-30
 ;;9002226.02101,"869,52343-0133-90 ",.01)
 ;;52343-0133-90
 ;;9002226.02101,"869,52343-0133-90 ",.02)
 ;;52343-0133-90
 ;;9002226.02101,"869,52427-0575-30 ",.01)
 ;;52427-0575-30
 ;;9002226.02101,"869,52427-0575-30 ",.02)
 ;;52427-0575-30
 ;;9002226.02101,"869,52817-0130-10 ",.01)
 ;;52817-0130-10
 ;;9002226.02101,"869,52817-0130-10 ",.02)
 ;;52817-0130-10
 ;;9002226.02101,"869,52817-0131-10 ",.01)
 ;;52817-0131-10
 ;;9002226.02101,"869,52817-0131-10 ",.02)
 ;;52817-0131-10
 ;;9002226.02101,"869,52817-0132-10 ",.01)
 ;;52817-0132-10
 ;;9002226.02101,"869,52817-0132-10 ",.02)
 ;;52817-0132-10
 ;;9002226.02101,"869,52817-0133-10 ",.01)
 ;;52817-0133-10
 ;;9002226.02101,"869,52817-0133-10 ",.02)
 ;;52817-0133-10
 ;;9002226.02101,"869,52817-0134-10 ",.01)
 ;;52817-0134-10
 ;;9002226.02101,"869,52817-0134-10 ",.02)
 ;;52817-0134-10
 ;;9002226.02101,"869,52817-0140-50 ",.01)
 ;;52817-0140-50
 ;;9002226.02101,"869,52817-0140-50 ",.02)
 ;;52817-0140-50