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

BGP82Z48.m

Go to the documentation of this file.
BGP82Z48 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"619,51862-0587-01 ",.02)
 ;;51862-0587-01
 ;;9002226.02101,"619,51862-0587-05 ",.01)
 ;;51862-0587-05
 ;;9002226.02101,"619,51862-0587-05 ",.02)
 ;;51862-0587-05
 ;;9002226.02101,"619,51991-0073-01 ",.01)
 ;;51991-0073-01
 ;;9002226.02101,"619,51991-0073-01 ",.02)
 ;;51991-0073-01
 ;;9002226.02101,"619,51991-0074-01 ",.01)
 ;;51991-0074-01
 ;;9002226.02101,"619,51991-0074-01 ",.02)
 ;;51991-0074-01
 ;;9002226.02101,"619,51991-0074-05 ",.01)
 ;;51991-0074-05
 ;;9002226.02101,"619,51991-0074-05 ",.02)
 ;;51991-0074-05
 ;;9002226.02101,"619,52544-0011-60 ",.01)
 ;;52544-0011-60
 ;;9002226.02101,"619,52544-0011-60 ",.02)
 ;;52544-0011-60
 ;;9002226.02101,"619,52544-0032-60 ",.01)
 ;;52544-0032-60
 ;;9002226.02101,"619,52544-0032-60 ",.02)
 ;;52544-0032-60
 ;;9002226.02101,"619,52544-0039-60 ",.01)
 ;;52544-0039-60
 ;;9002226.02101,"619,52544-0039-60 ",.02)
 ;;52544-0039-60
 ;;9002226.02101,"619,52544-0052-60 ",.01)
 ;;52544-0052-60
 ;;9002226.02101,"619,52544-0052-60 ",.02)
 ;;52544-0052-60
 ;;9002226.02101,"619,52544-0063-60 ",.01)
 ;;52544-0063-60
 ;;9002226.02101,"619,52544-0063-60 ",.02)
 ;;52544-0063-60
 ;;9002226.02101,"619,52544-0071-01 ",.01)
 ;;52544-0071-01
 ;;9002226.02101,"619,52544-0071-01 ",.02)
 ;;52544-0071-01
 ;;9002226.02101,"619,52544-0082-01 ",.01)
 ;;52544-0082-01
 ;;9002226.02101,"619,52544-0082-01 ",.02)
 ;;52544-0082-01
 ;;9002226.02101,"619,52544-0161-01 ",.01)
 ;;52544-0161-01
 ;;9002226.02101,"619,52544-0161-01 ",.02)
 ;;52544-0161-01
 ;;9002226.02101,"619,52544-0161-05 ",.01)
 ;;52544-0161-05
 ;;9002226.02101,"619,52544-0161-05 ",.02)
 ;;52544-0161-05
 ;;9002226.02101,"619,52544-0162-01 ",.01)
 ;;52544-0162-01
 ;;9002226.02101,"619,52544-0162-01 ",.02)
 ;;52544-0162-01
 ;;9002226.02101,"619,52544-0163-01 ",.01)
 ;;52544-0163-01
 ;;9002226.02101,"619,52544-0163-01 ",.02)
 ;;52544-0163-01
 ;;9002226.02101,"619,52544-0164-60 ",.01)
 ;;52544-0164-60
 ;;9002226.02101,"619,52544-0164-60 ",.02)
 ;;52544-0164-60
 ;;9002226.02101,"619,52544-0211-60 ",.01)
 ;;52544-0211-60
 ;;9002226.02101,"619,52544-0211-60 ",.02)
 ;;52544-0211-60
 ;;9002226.02101,"619,52544-0220-60 ",.01)
 ;;52544-0220-60
 ;;9002226.02101,"619,52544-0220-60 ",.02)
 ;;52544-0220-60
 ;;9002226.02101,"619,52544-0896-60 ",.01)
 ;;52544-0896-60
 ;;9002226.02101,"619,52544-0896-60 ",.02)
 ;;52544-0896-60
 ;;9002226.02101,"619,52544-0913-01 ",.01)
 ;;52544-0913-01
 ;;9002226.02101,"619,52544-0913-01 ",.02)
 ;;52544-0913-01
 ;;9002226.02101,"619,52544-0956-01 ",.01)
 ;;52544-0956-01
 ;;9002226.02101,"619,52544-0956-01 ",.02)
 ;;52544-0956-01
 ;;9002226.02101,"619,52959-0003-00 ",.01)
 ;;52959-0003-00
 ;;9002226.02101,"619,52959-0003-00 ",.02)
 ;;52959-0003-00
 ;;9002226.02101,"619,52959-0003-02 ",.01)
 ;;52959-0003-02
 ;;9002226.02101,"619,52959-0003-02 ",.02)
 ;;52959-0003-02
 ;;9002226.02101,"619,52959-0003-04 ",.01)
 ;;52959-0003-04
 ;;9002226.02101,"619,52959-0003-04 ",.02)
 ;;52959-0003-04
 ;;9002226.02101,"619,52959-0003-06 ",.01)
 ;;52959-0003-06
 ;;9002226.02101,"619,52959-0003-06 ",.02)
 ;;52959-0003-06
 ;;9002226.02101,"619,52959-0003-10 ",.01)
 ;;52959-0003-10
 ;;9002226.02101,"619,52959-0003-10 ",.02)
 ;;52959-0003-10
 ;;9002226.02101,"619,52959-0003-12 ",.01)
 ;;52959-0003-12
 ;;9002226.02101,"619,52959-0003-12 ",.02)
 ;;52959-0003-12
 ;;9002226.02101,"619,52959-0003-15 ",.01)
 ;;52959-0003-15
 ;;9002226.02101,"619,52959-0003-15 ",.02)
 ;;52959-0003-15
 ;;9002226.02101,"619,52959-0003-16 ",.01)
 ;;52959-0003-16
 ;;9002226.02101,"619,52959-0003-16 ",.02)
 ;;52959-0003-16
 ;;9002226.02101,"619,52959-0003-20 ",.01)
 ;;52959-0003-20
 ;;9002226.02101,"619,52959-0003-20 ",.02)
 ;;52959-0003-20
 ;;9002226.02101,"619,52959-0003-24 ",.01)
 ;;52959-0003-24
 ;;9002226.02101,"619,52959-0003-24 ",.02)
 ;;52959-0003-24
 ;;9002226.02101,"619,52959-0003-25 ",.01)
 ;;52959-0003-25
 ;;9002226.02101,"619,52959-0003-25 ",.02)
 ;;52959-0003-25
 ;;9002226.02101,"619,52959-0003-28 ",.01)
 ;;52959-0003-28
 ;;9002226.02101,"619,52959-0003-28 ",.02)
 ;;52959-0003-28
 ;;9002226.02101,"619,52959-0003-30 ",.01)
 ;;52959-0003-30
 ;;9002226.02101,"619,52959-0003-30 ",.02)
 ;;52959-0003-30
 ;;9002226.02101,"619,52959-0003-40 ",.01)
 ;;52959-0003-40
 ;;9002226.02101,"619,52959-0003-40 ",.02)
 ;;52959-0003-40
 ;;9002226.02101,"619,52959-0003-42 ",.01)
 ;;52959-0003-42
 ;;9002226.02101,"619,52959-0003-42 ",.02)
 ;;52959-0003-42
 ;;9002226.02101,"619,52959-0003-45 ",.01)
 ;;52959-0003-45
 ;;9002226.02101,"619,52959-0003-45 ",.02)
 ;;52959-0003-45
 ;;9002226.02101,"619,52959-0003-50 ",.01)
 ;;52959-0003-50
 ;;9002226.02101,"619,52959-0003-50 ",.02)
 ;;52959-0003-50
 ;;9002226.02101,"619,52959-0003-60 ",.01)
 ;;52959-0003-60
 ;;9002226.02101,"619,52959-0003-60 ",.02)
 ;;52959-0003-60
 ;;9002226.02101,"619,52959-0003-75 ",.01)
 ;;52959-0003-75
 ;;9002226.02101,"619,52959-0003-75 ",.02)
 ;;52959-0003-75
 ;;9002226.02101,"619,52959-0003-84 ",.01)
 ;;52959-0003-84
 ;;9002226.02101,"619,52959-0003-84 ",.02)
 ;;52959-0003-84
 ;;9002226.02101,"619,52959-0003-90 ",.01)
 ;;52959-0003-90
 ;;9002226.02101,"619,52959-0003-90 ",.02)
 ;;52959-0003-90
 ;;9002226.02101,"619,52959-0118-03 ",.01)
 ;;52959-0118-03
 ;;9002226.02101,"619,52959-0118-03 ",.02)
 ;;52959-0118-03
 ;;9002226.02101,"619,52959-0118-04 ",.01)
 ;;52959-0118-04
 ;;9002226.02101,"619,52959-0118-04 ",.02)
 ;;52959-0118-04
 ;;9002226.02101,"619,52959-0118-05 ",.01)
 ;;52959-0118-05
 ;;9002226.02101,"619,52959-0118-05 ",.02)
 ;;52959-0118-05
 ;;9002226.02101,"619,52959-0118-08 ",.01)
 ;;52959-0118-08
 ;;9002226.02101,"619,52959-0118-08 ",.02)
 ;;52959-0118-08
 ;;9002226.02101,"619,52959-0119-02 ",.01)
 ;;52959-0119-02
 ;;9002226.02101,"619,52959-0119-02 ",.02)
 ;;52959-0119-02
 ;;9002226.02101,"619,52959-0119-20 ",.01)
 ;;52959-0119-20
 ;;9002226.02101,"619,52959-0119-20 ",.02)
 ;;52959-0119-20
 ;;9002226.02101,"619,52959-0119-30 ",.01)
 ;;52959-0119-30
 ;;9002226.02101,"619,52959-0119-30 ",.02)
 ;;52959-0119-30
 ;;9002226.02101,"619,52959-0119-60 ",.01)
 ;;52959-0119-60
 ;;9002226.02101,"619,52959-0119-60 ",.02)
 ;;52959-0119-60
 ;;9002226.02101,"619,52959-0119-90 ",.01)
 ;;52959-0119-90
 ;;9002226.02101,"619,52959-0119-90 ",.02)
 ;;52959-0119-90
 ;;9002226.02101,"619,52959-0129-02 ",.01)
 ;;52959-0129-02
 ;;9002226.02101,"619,52959-0129-02 ",.02)
 ;;52959-0129-02
 ;;9002226.02101,"619,52959-0129-30 ",.01)
 ;;52959-0129-30
 ;;9002226.02101,"619,52959-0129-30 ",.02)
 ;;52959-0129-30
 ;;9002226.02101,"619,52959-0129-60 ",.01)
 ;;52959-0129-60
 ;;9002226.02101,"619,52959-0129-60 ",.02)
 ;;52959-0129-60
 ;;9002226.02101,"619,52959-0129-90 ",.01)
 ;;52959-0129-90
 ;;9002226.02101,"619,52959-0129-90 ",.02)
 ;;52959-0129-90
 ;;9002226.02101,"619,52959-0130-02 ",.01)
 ;;52959-0130-02
 ;;9002226.02101,"619,52959-0130-02 ",.02)
 ;;52959-0130-02
 ;;9002226.02101,"619,52959-0130-30 ",.01)
 ;;52959-0130-30
 ;;9002226.02101,"619,52959-0130-30 ",.02)
 ;;52959-0130-30
 ;;9002226.02101,"619,52959-0130-60 ",.01)
 ;;52959-0130-60
 ;;9002226.02101,"619,52959-0130-60 ",.02)
 ;;52959-0130-60
 ;;9002226.02101,"619,52959-0130-90 ",.01)
 ;;52959-0130-90
 ;;9002226.02101,"619,52959-0130-90 ",.02)
 ;;52959-0130-90
 ;;9002226.02101,"619,52959-0131-02 ",.01)
 ;;52959-0131-02
 ;;9002226.02101,"619,52959-0131-02 ",.02)
 ;;52959-0131-02
 ;;9002226.02101,"619,52959-0131-30 ",.01)
 ;;52959-0131-30
 ;;9002226.02101,"619,52959-0131-30 ",.02)
 ;;52959-0131-30
 ;;9002226.02101,"619,52959-0131-50 ",.01)
 ;;52959-0131-50
 ;;9002226.02101,"619,52959-0131-50 ",.02)
 ;;52959-0131-50
 ;;9002226.02101,"619,52959-0131-60 ",.01)
 ;;52959-0131-60
 ;;9002226.02101,"619,52959-0131-60 ",.02)
 ;;52959-0131-60
 ;;9002226.02101,"619,52959-0131-90 ",.01)
 ;;52959-0131-90
 ;;9002226.02101,"619,52959-0131-90 ",.02)
 ;;52959-0131-90
 ;;9002226.02101,"619,52959-0138-60 ",.01)
 ;;52959-0138-60
 ;;9002226.02101,"619,52959-0138-60 ",.02)
 ;;52959-0138-60
 ;;9002226.02101,"619,52959-0138-90 ",.01)
 ;;52959-0138-90
 ;;9002226.02101,"619,52959-0138-90 ",.02)
 ;;52959-0138-90
 ;;9002226.02101,"619,52959-0141-03 ",.01)
 ;;52959-0141-03
 ;;9002226.02101,"619,52959-0141-03 ",.02)
 ;;52959-0141-03
 ;;9002226.02101,"619,52959-0141-04 ",.01)
 ;;52959-0141-04
 ;;9002226.02101,"619,52959-0141-04 ",.02)
 ;;52959-0141-04
 ;;9002226.02101,"619,52959-0148-60 ",.01)
 ;;52959-0148-60
 ;;9002226.02101,"619,52959-0148-60 ",.02)
 ;;52959-0148-60
 ;;9002226.02101,"619,52959-0160-05 ",.01)
 ;;52959-0160-05
 ;;9002226.02101,"619,52959-0160-05 ",.02)
 ;;52959-0160-05
 ;;9002226.02101,"619,52959-0169-03 ",.01)
 ;;52959-0169-03
 ;;9002226.02101,"619,52959-0169-03 ",.02)
 ;;52959-0169-03
 ;;9002226.02101,"619,52959-0169-05 ",.01)
 ;;52959-0169-05
 ;;9002226.02101,"619,52959-0169-05 ",.02)
 ;;52959-0169-05
 ;;9002226.02101,"619,52959-0169-06 ",.01)
 ;;52959-0169-06
 ;;9002226.02101,"619,52959-0169-06 ",.02)
 ;;52959-0169-06
 ;;9002226.02101,"619,52959-0182-02 ",.01)
 ;;52959-0182-02
 ;;9002226.02101,"619,52959-0182-02 ",.02)
 ;;52959-0182-02
 ;;9002226.02101,"619,52959-0182-30 ",.01)
 ;;52959-0182-30
 ;;9002226.02101,"619,52959-0182-30 ",.02)
 ;;52959-0182-30
 ;;9002226.02101,"619,52959-0182-60 ",.01)
 ;;52959-0182-60
 ;;9002226.02101,"619,52959-0182-60 ",.02)
 ;;52959-0182-60
 ;;9002226.02101,"619,52959-0182-90 ",.01)
 ;;52959-0182-90
 ;;9002226.02101,"619,52959-0182-90 ",.02)
 ;;52959-0182-90
 ;;9002226.02101,"619,52959-0185-02 ",.01)
 ;;52959-0185-02
 ;;9002226.02101,"619,52959-0185-02 ",.02)
 ;;52959-0185-02
 ;;9002226.02101,"619,52959-0185-30 ",.01)
 ;;52959-0185-30
 ;;9002226.02101,"619,52959-0185-30 ",.02)
 ;;52959-0185-30
 ;;9002226.02101,"619,52959-0185-60 ",.01)
 ;;52959-0185-60
 ;;9002226.02101,"619,52959-0185-60 ",.02)
 ;;52959-0185-60
 ;;9002226.02101,"619,52959-0185-90 ",.01)
 ;;52959-0185-90
 ;;9002226.02101,"619,52959-0185-90 ",.02)
 ;;52959-0185-90
 ;;9002226.02101,"619,52959-0189-02 ",.01)
 ;;52959-0189-02
 ;;9002226.02101,"619,52959-0189-02 ",.02)
 ;;52959-0189-02
 ;;9002226.02101,"619,52959-0189-30 ",.01)
 ;;52959-0189-30
 ;;9002226.02101,"619,52959-0189-30 ",.02)
 ;;52959-0189-30
 ;;9002226.02101,"619,52959-0189-60 ",.01)
 ;;52959-0189-60
 ;;9002226.02101,"619,52959-0189-60 ",.02)
 ;;52959-0189-60
 ;;9002226.02101,"619,52959-0189-90 ",.01)
 ;;52959-0189-90
 ;;9002226.02101,"619,52959-0189-90 ",.02)
 ;;52959-0189-90
 ;;9002226.02101,"619,52959-0208-15 ",.01)
 ;;52959-0208-15
 ;;9002226.02101,"619,52959-0208-15 ",.02)
 ;;52959-0208-15
 ;;9002226.02101,"619,52959-0208-30 ",.01)
 ;;52959-0208-30
 ;;9002226.02101,"619,52959-0208-30 ",.02)
 ;;52959-0208-30
 ;;9002226.02101,"619,52959-0229-04 ",.01)
 ;;52959-0229-04
 ;;9002226.02101,"619,52959-0229-04 ",.02)
 ;;52959-0229-04
 ;;9002226.02101,"619,52959-0324-00 ",.01)
 ;;52959-0324-00
 ;;9002226.02101,"619,52959-0324-00 ",.02)
 ;;52959-0324-00
 ;;9002226.02101,"619,52959-0324-01 ",.01)
 ;;52959-0324-01
 ;;9002226.02101,"619,52959-0324-01 ",.02)
 ;;52959-0324-01
 ;;9002226.02101,"619,52959-0324-02 ",.01)
 ;;52959-0324-02
 ;;9002226.02101,"619,52959-0324-02 ",.02)
 ;;52959-0324-02
 ;;9002226.02101,"619,52959-0324-03 ",.01)
 ;;52959-0324-03
 ;;9002226.02101,"619,52959-0324-03 ",.02)
 ;;52959-0324-03
 ;;9002226.02101,"619,52959-0324-05 ",.01)
 ;;52959-0324-05
 ;;9002226.02101,"619,52959-0324-05 ",.02)
 ;;52959-0324-05
 ;;9002226.02101,"619,52959-0324-06 ",.01)
 ;;52959-0324-06
 ;;9002226.02101,"619,52959-0324-06 ",.02)
 ;;52959-0324-06
 ;;9002226.02101,"619,52959-0324-08 ",.01)
 ;;52959-0324-08
 ;;9002226.02101,"619,52959-0324-08 ",.02)
 ;;52959-0324-08
 ;;9002226.02101,"619,52959-0324-10 ",.01)
 ;;52959-0324-10