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

BGP62Y89.m

Go to the documentation of this file.
  1. BGP62Y89 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"868,64679-0949-01 ",.02)
  1. ;;64679-0949-01
  1. ;;9002226.02101,"868,64679-0954-01 ",.01)
  1. ;;64679-0954-01
  1. ;;9002226.02101,"868,64679-0954-01 ",.02)
  1. ;;64679-0954-01
  1. ;;9002226.02101,"868,64679-0961-01 ",.01)
  1. ;;64679-0961-01
  1. ;;9002226.02101,"868,64679-0961-01 ",.02)
  1. ;;64679-0961-01
  1. ;;9002226.02101,"868,64679-0961-02 ",.01)
  1. ;;64679-0961-02
  1. ;;9002226.02101,"868,64679-0961-02 ",.02)
  1. ;;64679-0961-02
  1. ;;9002226.02101,"868,64679-0961-04 ",.01)
  1. ;;64679-0961-04
  1. ;;9002226.02101,"868,64679-0961-04 ",.02)
  1. ;;64679-0961-04
  1. ;;9002226.02101,"868,64679-0961-05 ",.01)
  1. ;;64679-0961-05
  1. ;;9002226.02101,"868,64679-0961-05 ",.02)
  1. ;;64679-0961-05
  1. ;;9002226.02101,"868,64679-0961-06 ",.01)
  1. ;;64679-0961-06
  1. ;;9002226.02101,"868,64679-0961-06 ",.02)
  1. ;;64679-0961-06
  1. ;;9002226.02101,"868,64679-0961-07 ",.01)
  1. ;;64679-0961-07
  1. ;;9002226.02101,"868,64679-0961-07 ",.02)
  1. ;;64679-0961-07
  1. ;;9002226.02101,"868,64679-0961-08 ",.01)
  1. ;;64679-0961-08
  1. ;;9002226.02101,"868,64679-0961-08 ",.02)
  1. ;;64679-0961-08
  1. ;;9002226.02101,"868,64679-0962-01 ",.01)
  1. ;;64679-0962-01
  1. ;;9002226.02101,"868,64679-0962-01 ",.02)
  1. ;;64679-0962-01
  1. ;;9002226.02101,"868,64679-0964-01 ",.01)
  1. ;;64679-0964-01
  1. ;;9002226.02101,"868,64679-0964-01 ",.02)
  1. ;;64679-0964-01
  1. ;;9002226.02101,"868,64679-0964-02 ",.01)
  1. ;;64679-0964-02
  1. ;;9002226.02101,"868,64679-0964-02 ",.02)
  1. ;;64679-0964-02
  1. ;;9002226.02101,"868,64679-0964-03 ",.01)
  1. ;;64679-0964-03
  1. ;;9002226.02101,"868,64679-0964-03 ",.02)
  1. ;;64679-0964-03
  1. ;;9002226.02101,"868,64679-0964-05 ",.01)
  1. ;;64679-0964-05
  1. ;;9002226.02101,"868,64679-0964-05 ",.02)
  1. ;;64679-0964-05
  1. ;;9002226.02101,"868,64679-0964-06 ",.01)
  1. ;;64679-0964-06
  1. ;;9002226.02101,"868,64679-0964-06 ",.02)
  1. ;;64679-0964-06
  1. ;;9002226.02101,"868,64679-0964-07 ",.01)
  1. ;;64679-0964-07
  1. ;;9002226.02101,"868,64679-0964-07 ",.02)
  1. ;;64679-0964-07
  1. ;;9002226.02101,"868,64679-0983-01 ",.01)
  1. ;;64679-0983-01
  1. ;;9002226.02101,"868,64679-0983-01 ",.02)
  1. ;;64679-0983-01
  1. ;;9002226.02101,"868,64679-0983-02 ",.01)
  1. ;;64679-0983-02
  1. ;;9002226.02101,"868,64679-0983-02 ",.02)
  1. ;;64679-0983-02
  1. ;;9002226.02101,"868,64720-0152-10 ",.01)
  1. ;;64720-0152-10
  1. ;;9002226.02101,"868,64720-0152-10 ",.02)
  1. ;;64720-0152-10
  1. ;;9002226.02101,"868,64860-0306-13 ",.01)
  1. ;;64860-0306-13
  1. ;;9002226.02101,"868,64860-0306-13 ",.02)
  1. ;;64860-0306-13
  1. ;;9002226.02101,"868,64860-0306-40 ",.01)
  1. ;;64860-0306-40
  1. ;;9002226.02101,"868,64860-0306-40 ",.02)
  1. ;;64860-0306-40
  1. ;;9002226.02101,"868,64860-0307-13 ",.01)
  1. ;;64860-0307-13
  1. ;;9002226.02101,"868,64860-0307-13 ",.02)
  1. ;;64860-0307-13
  1. ;;9002226.02101,"868,64860-0307-40 ",.01)
  1. ;;64860-0307-40
  1. ;;9002226.02101,"868,64860-0307-40 ",.02)
  1. ;;64860-0307-40
  1. ;;9002226.02101,"868,64980-0511-10 ",.01)
  1. ;;64980-0511-10
  1. ;;9002226.02101,"868,64980-0511-10 ",.02)
  1. ;;64980-0511-10
  1. ;;9002226.02101,"868,65162-0202-01 ",.01)
  1. ;;65162-0202-01
  1. ;;9002226.02101,"868,65162-0202-01 ",.02)
  1. ;;65162-0202-01
  1. ;;9002226.02101,"868,65162-0202-02 ",.01)
  1. ;;65162-0202-02
  1. ;;9002226.02101,"868,65162-0202-02 ",.02)
  1. ;;65162-0202-02
  1. ;;9002226.02101,"868,65162-0202-08 ",.01)
  1. ;;65162-0202-08
  1. ;;9002226.02101,"868,65162-0202-08 ",.02)
  1. ;;65162-0202-08
  1. ;;9002226.02101,"868,65162-0202-14 ",.01)
  1. ;;65162-0202-14
  1. ;;9002226.02101,"868,65162-0202-14 ",.02)
  1. ;;65162-0202-14
  1. ;;9002226.02101,"868,65162-0313-01 ",.01)
  1. ;;65162-0313-01
  1. ;;9002226.02101,"868,65162-0313-01 ",.02)
  1. ;;65162-0313-01
  1. ;;9002226.02101,"868,65162-0313-02 ",.01)
  1. ;;65162-0313-02
  1. ;;9002226.02101,"868,65162-0313-02 ",.02)
  1. ;;65162-0313-02
  1. ;;9002226.02101,"868,65162-0313-08 ",.01)
  1. ;;65162-0313-08
  1. ;;9002226.02101,"868,65162-0313-08 ",.02)
  1. ;;65162-0313-08
  1. ;;9002226.02101,"868,65162-0313-14 ",.01)
  1. ;;65162-0313-14
  1. ;;9002226.02101,"868,65162-0313-14 ",.02)
  1. ;;65162-0313-14
  1. ;;9002226.02101,"868,65162-0468-19 ",.01)
  1. ;;65162-0468-19
  1. ;;9002226.02101,"868,65162-0468-19 ",.02)
  1. ;;65162-0468-19
  1. ;;9002226.02101,"868,65224-0800-22 ",.01)
  1. ;;65224-0800-22
  1. ;;9002226.02101,"868,65224-0800-22 ",.02)
  1. ;;65224-0800-22
  1. ;;9002226.02101,"868,65224-0802-02 ",.01)
  1. ;;65224-0802-02
  1. ;;9002226.02101,"868,65224-0802-02 ",.02)
  1. ;;65224-0802-02
  1. ;;9002226.02101,"868,65224-0802-03 ",.01)
  1. ;;65224-0802-03
  1. ;;9002226.02101,"868,65224-0802-03 ",.02)
  1. ;;65224-0802-03
  1. ;;9002226.02101,"868,65224-0802-04 ",.01)
  1. ;;65224-0802-04
  1. ;;9002226.02101,"868,65224-0802-04 ",.02)
  1. ;;65224-0802-04
  1. ;;9002226.02101,"868,65224-0804-02 ",.01)
  1. ;;65224-0804-02
  1. ;;9002226.02101,"868,65224-0804-02 ",.02)
  1. ;;65224-0804-02
  1. ;;9002226.02101,"868,65862-0014-01 ",.01)
  1. ;;65862-0014-01
  1. ;;9002226.02101,"868,65862-0014-01 ",.02)
  1. ;;65862-0014-01
  1. ;;9002226.02101,"868,65862-0014-05 ",.01)
  1. ;;65862-0014-05
  1. ;;9002226.02101,"868,65862-0014-05 ",.02)
  1. ;;65862-0014-05
  1. ;;9002226.02101,"868,65862-0015-01 ",.01)
  1. ;;65862-0015-01
  1. ;;9002226.02101,"868,65862-0015-01 ",.02)
  1. ;;65862-0015-01
  1. ;;9002226.02101,"868,65862-0015-05 ",.01)
  1. ;;65862-0015-05
  1. ;;9002226.02101,"868,65862-0015-05 ",.02)
  1. ;;65862-0015-05
  1. ;;9002226.02101,"868,65862-0016-01 ",.01)
  1. ;;65862-0016-01
  1. ;;9002226.02101,"868,65862-0016-01 ",.02)
  1. ;;65862-0016-01
  1. ;;9002226.02101,"868,65862-0016-05 ",.01)
  1. ;;65862-0016-05
  1. ;;9002226.02101,"868,65862-0016-05 ",.02)
  1. ;;65862-0016-05
  1. ;;9002226.02101,"868,65862-0017-01 ",.01)
  1. ;;65862-0017-01
  1. ;;9002226.02101,"868,65862-0017-01 ",.02)
  1. ;;65862-0017-01
  1. ;;9002226.02101,"868,65862-0017-05 ",.01)
  1. ;;65862-0017-05
  1. ;;9002226.02101,"868,65862-0017-05 ",.02)
  1. ;;65862-0017-05
  1. ;;9002226.02101,"868,65862-0018-01 ",.01)
  1. ;;65862-0018-01
  1. ;;9002226.02101,"868,65862-0018-01 ",.02)
  1. ;;65862-0018-01
  1. ;;9002226.02101,"868,65862-0018-05 ",.01)
  1. ;;65862-0018-05
  1. ;;9002226.02101,"868,65862-0018-05 ",.02)
  1. ;;65862-0018-05
  1. ;;9002226.02101,"868,65862-0018-40 ",.01)
  1. ;;65862-0018-40
  1. ;;9002226.02101,"868,65862-0018-40 ",.02)
  1. ;;65862-0018-40
  1. ;;9002226.02101,"868,65862-0019-01 ",.01)
  1. ;;65862-0019-01
  1. ;;9002226.02101,"868,65862-0019-01 ",.02)
  1. ;;65862-0019-01
  1. ;;9002226.02101,"868,65862-0019-05 ",.01)
  1. ;;65862-0019-05
  1. ;;9002226.02101,"868,65862-0019-05 ",.02)
  1. ;;65862-0019-05
  1. ;;9002226.02101,"868,65862-0019-40 ",.01)
  1. ;;65862-0019-40
  1. ;;9002226.02101,"868,65862-0019-40 ",.02)
  1. ;;65862-0019-40
  1. ;;9002226.02101,"868,65862-0034-20 ",.01)
  1. ;;65862-0034-20
  1. ;;9002226.02101,"868,65862-0034-20 ",.02)
  1. ;;65862-0034-20
  1. ;;9002226.02101,"868,65862-0034-60 ",.01)
  1. ;;65862-0034-60
  1. ;;9002226.02101,"868,65862-0034-60 ",.02)
  1. ;;65862-0034-60
  1. ;;9002226.02101,"868,65862-0035-20 ",.01)
  1. ;;65862-0035-20
  1. ;;9002226.02101,"868,65862-0035-20 ",.02)
  1. ;;65862-0035-20
  1. ;;9002226.02101,"868,65862-0035-60 ",.01)
  1. ;;65862-0035-60
  1. ;;9002226.02101,"868,65862-0035-60 ",.02)
  1. ;;65862-0035-60
  1. ;;9002226.02101,"868,65862-0068-01 ",.01)
  1. ;;65862-0068-01
  1. ;;9002226.02101,"868,65862-0068-01 ",.02)
  1. ;;65862-0068-01
  1. ;;9002226.02101,"868,65862-0068-50 ",.01)
  1. ;;65862-0068-50
  1. ;;9002226.02101,"868,65862-0068-50 ",.02)
  1. ;;65862-0068-50
  1. ;;9002226.02101,"868,65862-0069-01 ",.01)
  1. ;;65862-0069-01
  1. ;;9002226.02101,"868,65862-0069-01 ",.02)
  1. ;;65862-0069-01
  1. ;;9002226.02101,"868,65862-0069-50 ",.01)
  1. ;;65862-0069-50
  1. ;;9002226.02101,"868,65862-0069-50 ",.02)
  1. ;;65862-0069-50
  1. ;;9002226.02101,"868,65862-0070-01 ",.01)
  1. ;;65862-0070-01
  1. ;;9002226.02101,"868,65862-0070-01 ",.02)
  1. ;;65862-0070-01
  1. ;;9002226.02101,"868,65862-0070-50 ",.01)
  1. ;;65862-0070-50
  1. ;;9002226.02101,"868,65862-0070-50 ",.02)
  1. ;;65862-0070-50
  1. ;;9002226.02101,"868,65862-0070-75 ",.01)
  1. ;;65862-0070-75
  1. ;;9002226.02101,"868,65862-0070-75 ",.02)
  1. ;;65862-0070-75
  1. ;;9002226.02101,"868,65862-0071-01 ",.01)
  1. ;;65862-0071-01
  1. ;;9002226.02101,"868,65862-0071-01 ",.02)
  1. ;;65862-0071-01
  1. ;;9002226.02101,"868,65862-0071-50 ",.01)
  1. ;;65862-0071-50
  1. ;;9002226.02101,"868,65862-0071-50 ",.02)
  1. ;;65862-0071-50
  1. ;;9002226.02101,"868,65862-0071-75 ",.01)
  1. ;;65862-0071-75
  1. ;;9002226.02101,"868,65862-0071-75 ",.02)
  1. ;;65862-0071-75
  1. ;;9002226.02101,"868,65862-0076-01 ",.01)
  1. ;;65862-0076-01
  1. ;;9002226.02101,"868,65862-0076-01 ",.02)
  1. ;;65862-0076-01
  1. ;;9002226.02101,"868,65862-0077-01 ",.01)
  1. ;;65862-0077-01
  1. ;;9002226.02101,"868,65862-0077-01 ",.02)
  1. ;;65862-0077-01
  1. ;;9002226.02101,"868,65862-0078-50 ",.01)
  1. ;;65862-0078-50
  1. ;;9002226.02101,"868,65862-0078-50 ",.02)
  1. ;;65862-0078-50
  1. ;;9002226.02101,"868,65862-0083-01 ",.01)
  1. ;;65862-0083-01
  1. ;;9002226.02101,"868,65862-0083-01 ",.02)
  1. ;;65862-0083-01
  1. ;;9002226.02101,"868,65862-0084-01 ",.01)
  1. ;;65862-0084-01
  1. ;;9002226.02101,"868,65862-0084-01 ",.02)
  1. ;;65862-0084-01
  1. ;;9002226.02101,"868,65862-0084-75 ",.01)
  1. ;;65862-0084-75
  1. ;;9002226.02101,"868,65862-0084-75 ",.02)
  1. ;;65862-0084-75
  1. ;;9002226.02101,"868,65862-0085-01 ",.01)
  1. ;;65862-0085-01
  1. ;;9002226.02101,"868,65862-0085-01 ",.02)
  1. ;;65862-0085-01
  1. ;;9002226.02101,"868,65862-0085-50 ",.01)
  1. ;;65862-0085-50
  1. ;;9002226.02101,"868,65862-0085-50 ",.02)
  1. ;;65862-0085-50
  1. ;;9002226.02101,"868,65862-0095-01 ",.01)
  1. ;;65862-0095-01
  1. ;;9002226.02101,"868,65862-0095-01 ",.02)
  1. ;;65862-0095-01
  1. ;;9002226.02101,"868,65862-0095-20 ",.01)
  1. ;;65862-0095-20
  1. ;;9002226.02101,"868,65862-0095-20 ",.02)
  1. ;;65862-0095-20
  1. ;;9002226.02101,"868,65862-0096-01 ",.01)
  1. ;;65862-0096-01
  1. ;;9002226.02101,"868,65862-0096-01 ",.02)
  1. ;;65862-0096-01
  1. ;;9002226.02101,"868,65862-0096-20 ",.01)
  1. ;;65862-0096-20
  1. ;;9002226.02101,"868,65862-0096-20 ",.02)
  1. ;;65862-0096-20
  1. ;;9002226.02101,"868,65862-0099-01 ",.01)
  1. ;;65862-0099-01
  1. ;;9002226.02101,"868,65862-0099-01 ",.02)
  1. ;;65862-0099-01
  1. ;;9002226.02101,"868,65862-0099-75 ",.01)
  1. ;;65862-0099-75
  1. ;;9002226.02101,"868,65862-0099-75 ",.02)
  1. ;;65862-0099-75
  1. ;;9002226.02101,"868,65862-0100-01 ",.01)
  1. ;;65862-0100-01
  1. ;;9002226.02101,"868,65862-0100-01 ",.02)
  1. ;;65862-0100-01
  1. ;;9002226.02101,"868,65862-0100-75 ",.01)
  1. ;;65862-0100-75
  1. ;;9002226.02101,"868,65862-0100-75 ",.02)
  1. ;;65862-0100-75
  1. ;;9002226.02101,"868,65862-0140-01 ",.01)
  1. ;;65862-0140-01
  1. ;;9002226.02101,"868,65862-0140-01 ",.02)
  1. ;;65862-0140-01
  1. ;;9002226.02101,"868,65862-0140-50 ",.01)
  1. ;;65862-0140-50
  1. ;;9002226.02101,"868,65862-0140-50 ",.02)
  1. ;;65862-0140-50
  1. ;;9002226.02101,"868,65862-0141-01 ",.01)
  1. ;;65862-0141-01
  1. ;;9002226.02101,"868,65862-0141-01 ",.02)
  1. ;;65862-0141-01
  1. ;;9002226.02101,"868,65862-0141-50 ",.01)
  1. ;;65862-0141-50
  1. ;;9002226.02101,"868,65862-0141-50 ",.02)
  1. ;;65862-0141-50
  1. ;;9002226.02101,"868,65862-0175-01 ",.01)
  1. ;;65862-0175-01
  1. ;;9002226.02101,"868,65862-0175-01 ",.02)
  1. ;;65862-0175-01
  1. ;;9002226.02101,"868,65862-0175-99 ",.01)
  1. ;;65862-0175-99
  1. ;;9002226.02101,"868,65862-0175-99 ",.02)
  1. ;;65862-0175-99
  1. ;;9002226.02101,"868,65862-0176-01 ",.01)
  1. ;;65862-0176-01
  1. ;;9002226.02101,"868,65862-0176-01 ",.02)
  1. ;;65862-0176-01
  1. ;;9002226.02101,"868,65862-0176-05 ",.01)
  1. ;;65862-0176-05
  1. ;;9002226.02101,"868,65862-0176-05 ",.02)
  1. ;;65862-0176-05
  1. ;;9002226.02101,"868,65862-0176-99 ",.01)
  1. ;;65862-0176-99
  1. ;;9002226.02101,"868,65862-0176-99 ",.02)
  1. ;;65862-0176-99
  1. ;;9002226.02101,"868,65862-0177-60 ",.01)
  1. ;;65862-0177-60
  1. ;;9002226.02101,"868,65862-0177-60 ",.02)
  1. ;;65862-0177-60
  1. ;;9002226.02101,"868,65862-0185-01 ",.01)
  1. ;;65862-0185-01
  1. ;;9002226.02101,"868,65862-0185-01 ",.02)
  1. ;;65862-0185-01
  1. ;;9002226.02101,"868,65862-0185-05 ",.01)
  1. ;;65862-0185-05
  1. ;;9002226.02101,"868,65862-0185-05 ",.02)
  1. ;;65862-0185-05
  1. ;;9002226.02101,"868,65862-0186-01 ",.01)
  1. ;;65862-0186-01
  1. ;;9002226.02101,"868,65862-0186-01 ",.02)
  1. ;;65862-0186-01
  1. ;;9002226.02101,"868,65862-0209-01 ",.01)
  1. ;;65862-0209-01
  1. ;;9002226.02101,"868,65862-0209-01 ",.02)
  1. ;;65862-0209-01
  1. ;;9002226.02101,"868,65862-0210-01 ",.01)
  1. ;;65862-0210-01