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

BGP7LXKJ.m

Go to the documentation of this file.
  1. BGP7LXKJ ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 2006 ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  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,"628,60760-0754-30 ",.01)
  1. ;;60760-0754-30
  1. ;;9002226.02101,"628,60760-0754-30 ",.02)
  1. ;;60760-0754-30
  1. ;;9002226.02101,"628,61355-0002-10 ",.01)
  1. ;;61355-0002-10
  1. ;;9002226.02101,"628,61355-0002-10 ",.02)
  1. ;;61355-0002-10
  1. ;;9002226.02101,"628,61355-0003-10 ",.01)
  1. ;;61355-0003-10
  1. ;;9002226.02101,"628,61355-0003-10 ",.02)
  1. ;;61355-0003-10
  1. ;;9002226.02101,"628,61355-0004-10 ",.01)
  1. ;;61355-0004-10
  1. ;;9002226.02101,"628,61355-0004-10 ",.02)
  1. ;;61355-0004-10
  1. ;;9002226.02101,"628,61451-2183-01 ",.01)
  1. ;;61451-2183-01
  1. ;;9002226.02101,"628,61451-2183-01 ",.02)
  1. ;;61451-2183-01
  1. ;;9002226.02101,"628,61451-2225-01 ",.01)
  1. ;;61451-2225-01
  1. ;;9002226.02101,"628,61451-2225-01 ",.02)
  1. ;;61451-2225-01
  1. ;;9002226.02101,"628,61451-2260-01 ",.01)
  1. ;;61451-2260-01
  1. ;;9002226.02101,"628,61451-2260-01 ",.02)
  1. ;;61451-2260-01
  1. ;;9002226.02101,"628,61451-5015-07 ",.01)
  1. ;;61451-5015-07
  1. ;;9002226.02101,"628,61451-5015-07 ",.02)
  1. ;;61451-5015-07
  1. ;;9002226.02101,"628,61451-5016-07 ",.01)
  1. ;;61451-5016-07
  1. ;;9002226.02101,"628,61451-5016-07 ",.02)
  1. ;;61451-5016-07
  1. ;;9002226.02101,"628,61646-0155-01 ",.01)
  1. ;;61646-0155-01
  1. ;;9002226.02101,"628,61646-0155-01 ",.02)
  1. ;;61646-0155-01
  1. ;;9002226.02101,"628,61646-0156-01 ",.01)
  1. ;;61646-0156-01
  1. ;;9002226.02101,"628,61646-0156-01 ",.02)
  1. ;;61646-0156-01
  1. ;;9002226.02101,"628,61808-0810-01 ",.01)
  1. ;;61808-0810-01
  1. ;;9002226.02101,"628,61808-0810-01 ",.02)
  1. ;;61808-0810-01
  1. ;;9002226.02101,"628,61808-0810-10 ",.01)
  1. ;;61808-0810-10
  1. ;;9002226.02101,"628,61808-0810-10 ",.02)
  1. ;;61808-0810-10
  1. ;;9002226.02101,"628,61808-0810-24 ",.01)
  1. ;;61808-0810-24
  1. ;;9002226.02101,"628,61808-0810-24 ",.02)
  1. ;;61808-0810-24
  1. ;;9002226.02101,"628,61808-0811-01 ",.01)
  1. ;;61808-0811-01
  1. ;;9002226.02101,"628,61808-0811-01 ",.02)
  1. ;;61808-0811-01
  1. ;;9002226.02101,"628,61808-0811-10 ",.01)
  1. ;;61808-0811-10
  1. ;;9002226.02101,"628,61808-0811-10 ",.02)
  1. ;;61808-0811-10
  1. ;;9002226.02101,"628,61808-0811-24 ",.01)
  1. ;;61808-0811-24
  1. ;;9002226.02101,"628,61808-0811-24 ",.02)
  1. ;;61808-0811-24
  1. ;;9002226.02101,"628,62174-0405-07 ",.01)
  1. ;;62174-0405-07
  1. ;;9002226.02101,"628,62174-0405-07 ",.02)
  1. ;;62174-0405-07
  1. ;;9002226.02101,"628,62174-0408-07 ",.01)
  1. ;;62174-0408-07
  1. ;;9002226.02101,"628,62174-0408-07 ",.02)
  1. ;;62174-0408-07
  1. ;;9002226.02101,"628,62175-0101-01 ",.01)
  1. ;;62175-0101-01
  1. ;;9002226.02101,"628,62175-0101-01 ",.02)
  1. ;;62175-0101-01
  1. ;;9002226.02101,"628,62175-0102-01 ",.01)
  1. ;;62175-0102-01
  1. ;;9002226.02101,"628,62175-0102-01 ",.02)
  1. ;;62175-0102-01
  1. ;;9002226.02101,"628,62175-0103-01 ",.01)
  1. ;;62175-0103-01
  1. ;;9002226.02101,"628,62175-0103-01 ",.02)
  1. ;;62175-0103-01
  1. ;;9002226.02101,"628,62175-0104-16 ",.01)
  1. ;;62175-0104-16
  1. ;;9002226.02101,"628,62175-0104-16 ",.02)
  1. ;;62175-0104-16
  1. ;;9002226.02101,"628,62175-0105-15 ",.01)
  1. ;;62175-0105-15
  1. ;;9002226.02101,"628,62175-0105-15 ",.02)
  1. ;;62175-0105-15
  1. ;;9002226.02101,"628,62175-0108-01 ",.01)
  1. ;;62175-0108-01
  1. ;;9002226.02101,"628,62175-0108-01 ",.02)
  1. ;;62175-0108-01
  1. ;;9002226.02101,"628,62584-0675-01 ",.01)
  1. ;;62584-0675-01
  1. ;;9002226.02101,"628,62584-0675-01 ",.02)
  1. ;;62584-0675-01
  1. ;;9002226.02101,"628,62584-0675-33 ",.01)
  1. ;;62584-0675-33
  1. ;;9002226.02101,"628,62584-0675-33 ",.02)
  1. ;;62584-0675-33
  1. ;;9002226.02101,"628,62865-0462-62 ",.01)
  1. ;;62865-0462-62
  1. ;;9002226.02101,"628,62865-0462-62 ",.02)
  1. ;;62865-0462-62
  1. ;;9002226.02101,"628,62865-0462-78 ",.01)
  1. ;;62865-0462-78
  1. ;;9002226.02101,"628,62865-0462-78 ",.02)
  1. ;;62865-0462-78
  1. ;;9002226.02101,"628,62865-0479-62 ",.01)
  1. ;;62865-0479-62
  1. ;;9002226.02101,"628,62865-0479-62 ",.02)
  1. ;;62865-0479-62
  1. ;;9002226.02101,"628,62865-0722-68 ",.01)
  1. ;;62865-0722-68
  1. ;;9002226.02101,"628,62865-0722-68 ",.02)
  1. ;;62865-0722-68
  1. ;;9002226.02101,"628,62865-0768-22 ",.01)
  1. ;;62865-0768-22
  1. ;;9002226.02101,"628,62865-0768-22 ",.02)
  1. ;;62865-0768-22
  1. ;;9002226.02101,"628,63323-0234-01 ",.01)
  1. ;;63323-0234-01
  1. ;;9002226.02101,"628,63323-0234-01 ",.02)
  1. ;;63323-0234-01
  1. ;;9002226.02101,"628,63323-0234-20 ",.01)
  1. ;;63323-0234-20
  1. ;;9002226.02101,"628,63323-0234-20 ",.02)
  1. ;;63323-0234-20
  1. ;;9002226.02101,"628,63323-0243-01 ",.01)
  1. ;;63323-0243-01
  1. ;;9002226.02101,"628,63323-0243-01 ",.02)
  1. ;;63323-0243-01
  1. ;;9002226.02101,"628,63323-0246-01 ",.01)
  1. ;;63323-0246-01
  1. ;;9002226.02101,"628,63323-0246-01 ",.02)
  1. ;;63323-0246-01
  1. ;;9002226.02101,"628,63323-0268-01 ",.01)
  1. ;;63323-0268-01
  1. ;;9002226.02101,"628,63323-0268-01 ",.02)
  1. ;;63323-0268-01
  1. ;;9002226.02101,"628,63323-0268-25 ",.01)
  1. ;;63323-0268-25
  1. ;;9002226.02101,"628,63323-0268-25 ",.02)
  1. ;;63323-0268-25
  1. ;;9002226.02101,"628,63323-0270-01 ",.01)
  1. ;;63323-0270-01
  1. ;;9002226.02101,"628,63323-0270-01 ",.02)
  1. ;;63323-0270-01
  1. ;;9002226.02101,"628,63717-0512-01 ",.01)
  1. ;;63717-0512-01
  1. ;;9002226.02101,"628,63717-0512-01 ",.02)
  1. ;;63717-0512-01
  1. ;;9002226.02101,"628,63717-0810-01 ",.01)
  1. ;;63717-0810-01
  1. ;;9002226.02101,"628,63717-0810-01 ",.02)
  1. ;;63717-0810-01
  1. ;;9002226.02101,"628,63717-0840-01 ",.01)
  1. ;;63717-0840-01
  1. ;;9002226.02101,"628,63717-0840-01 ",.02)
  1. ;;63717-0840-01
  1. ;;9002226.02101,"628,63739-0082-02 ",.01)
  1. ;;63739-0082-02
  1. ;;9002226.02101,"628,63739-0082-02 ",.02)
  1. ;;63739-0082-02
  1. ;;9002226.02101,"628,63868-0500-24 ",.01)
  1. ;;63868-0500-24
  1. ;;9002226.02101,"628,63868-0500-24 ",.02)
  1. ;;63868-0500-24
  1. ;;9002226.02101,"628,63868-0995-01 ",.01)
  1. ;;63868-0995-01
  1. ;;9002226.02101,"628,63868-0995-01 ",.02)
  1. ;;63868-0995-01
  1. ;;9002226.02101,"628,63868-0995-24 ",.01)
  1. ;;63868-0995-24
  1. ;;9002226.02101,"628,63868-0995-24 ",.02)
  1. ;;63868-0995-24
  1. ;;9002226.02101,"628,63874-0309-01 ",.01)
  1. ;;63874-0309-01
  1. ;;9002226.02101,"628,63874-0309-01 ",.02)
  1. ;;63874-0309-01
  1. ;;9002226.02101,"628,63874-0309-02 ",.01)
  1. ;;63874-0309-02
  1. ;;9002226.02101,"628,63874-0309-02 ",.02)
  1. ;;63874-0309-02
  1. ;;9002226.02101,"628,63874-0309-04 ",.01)
  1. ;;63874-0309-04
  1. ;;9002226.02101,"628,63874-0309-04 ",.02)
  1. ;;63874-0309-04
  1. ;;9002226.02101,"628,63874-0309-15 ",.01)
  1. ;;63874-0309-15
  1. ;;9002226.02101,"628,63874-0309-15 ",.02)
  1. ;;63874-0309-15
  1. ;;9002226.02101,"628,63874-0309-20 ",.01)
  1. ;;63874-0309-20
  1. ;;9002226.02101,"628,63874-0309-20 ",.02)
  1. ;;63874-0309-20
  1. ;;9002226.02101,"628,63874-0309-30 ",.01)
  1. ;;63874-0309-30
  1. ;;9002226.02101,"628,63874-0309-30 ",.02)
  1. ;;63874-0309-30
  1. ;;9002226.02101,"628,63874-0309-40 ",.01)
  1. ;;63874-0309-40
  1. ;;9002226.02101,"628,63874-0309-40 ",.02)
  1. ;;63874-0309-40
  1. ;;9002226.02101,"628,63874-0309-42 ",.01)
  1. ;;63874-0309-42
  1. ;;9002226.02101,"628,63874-0309-42 ",.02)
  1. ;;63874-0309-42
  1. ;;9002226.02101,"628,63874-0309-50 ",.01)
  1. ;;63874-0309-50
  1. ;;9002226.02101,"628,63874-0309-50 ",.02)
  1. ;;63874-0309-50
  1. ;;9002226.02101,"628,63874-0309-60 ",.01)
  1. ;;63874-0309-60
  1. ;;9002226.02101,"628,63874-0309-60 ",.02)
  1. ;;63874-0309-60
  1. ;;9002226.02101,"628,63874-0309-72 ",.01)
  1. ;;63874-0309-72
  1. ;;9002226.02101,"628,63874-0309-72 ",.02)
  1. ;;63874-0309-72
  1. ;;9002226.02101,"628,63874-0309-74 ",.01)
  1. ;;63874-0309-74
  1. ;;9002226.02101,"628,63874-0309-74 ",.02)
  1. ;;63874-0309-74
  1. ;;9002226.02101,"628,63874-0309-77 ",.01)
  1. ;;63874-0309-77
  1. ;;9002226.02101,"628,63874-0309-77 ",.02)
  1. ;;63874-0309-77
  1. ;;9002226.02101,"628,64125-0102-01 ",.01)
  1. ;;64125-0102-01
  1. ;;9002226.02101,"628,64125-0102-01 ",.02)
  1. ;;64125-0102-01
  1. ;;9002226.02101,"628,64125-0128-10 ",.01)
  1. ;;64125-0128-10
  1. ;;9002226.02101,"628,64125-0128-10 ",.02)
  1. ;;64125-0128-10
  1. ;;9002226.02101,"628,64543-0111-01 ",.01)
  1. ;;64543-0111-01
  1. ;;9002226.02101,"628,64543-0111-01 ",.02)
  1. ;;64543-0111-01
  1. ;;9002226.02101,"628,64543-0112-01 ",.01)
  1. ;;64543-0112-01
  1. ;;9002226.02101,"628,64543-0112-01 ",.02)
  1. ;;64543-0112-01
  1. ;;9002226.02101,"628,64543-0118-90 ",.01)
  1. ;;64543-0118-90
  1. ;;9002226.02101,"628,64543-0118-90 ",.02)
  1. ;;64543-0118-90
  1. ;;9002226.02101,"628,64731-0295-01 ",.01)
  1. ;;64731-0295-01
  1. ;;9002226.02101,"628,64731-0295-01 ",.02)
  1. ;;64731-0295-01
  1. ;;9002226.02101,"628,64731-0300-01 ",.01)
  1. ;;64731-0300-01
  1. ;;9002226.02101,"628,64731-0300-01 ",.02)
  1. ;;64731-0300-01
  1. ;;9002226.02101,"628,64731-0305-01 ",.01)
  1. ;;64731-0305-01
  1. ;;9002226.02101,"628,64731-0305-01 ",.02)
  1. ;;64731-0305-01
  1. ;;9002226.02101,"628,64731-0860-01 ",.01)
  1. ;;64731-0860-01
  1. ;;9002226.02101,"628,64731-0860-01 ",.02)
  1. ;;64731-0860-01
  1. ;;9002226.02101,"628,64759-0002-01 ",.01)
  1. ;;64759-0002-01
  1. ;;9002226.02101,"628,64759-0002-01 ",.02)
  1. ;;64759-0002-01
  1. ;;9002226.02101,"628,65162-0156-10 ",.01)
  1. ;;65162-0156-10
  1. ;;9002226.02101,"628,65162-0156-10 ",.02)
  1. ;;65162-0156-10
  1. ;;9002226.02101,"628,65162-0156-11 ",.01)
  1. ;;65162-0156-11
  1. ;;9002226.02101,"628,65162-0156-11 ",.02)
  1. ;;65162-0156-11
  1. ;;9002226.02101,"628,65162-0301-10 ",.01)
  1. ;;65162-0301-10
  1. ;;9002226.02101,"628,65162-0301-10 ",.02)
  1. ;;65162-0301-10
  1. ;;9002226.02101,"628,65162-0516-10 ",.01)
  1. ;;65162-0516-10
  1. ;;9002226.02101,"628,65162-0516-10 ",.02)
  1. ;;65162-0516-10
  1. ;;9002226.02101,"628,65162-0516-11 ",.01)
  1. ;;65162-0516-11
  1. ;;9002226.02101,"628,65162-0516-11 ",.02)
  1. ;;65162-0516-11
  1. ;;9002226.02101,"628,65234-0074-05 ",.01)
  1. ;;65234-0074-05
  1. ;;9002226.02101,"628,65234-0074-05 ",.02)
  1. ;;65234-0074-05
  1. ;;9002226.02101,"628,65234-0074-10 ",.01)
  1. ;;65234-0074-10
  1. ;;9002226.02101,"628,65234-0074-10 ",.02)
  1. ;;65234-0074-10
  1. ;;9002226.02101,"628,65581-0007-21 ",.01)
  1. ;;65581-0007-21
  1. ;;9002226.02101,"628,65581-0007-21 ",.02)
  1. ;;65581-0007-21
  1. ;;9002226.02101,"628,65581-0007-28 ",.01)
  1. ;;65581-0007-28
  1. ;;9002226.02101,"628,65581-0007-28 ",.02)
  1. ;;65581-0007-28
  1. ;;9002226.02101,"628,65779-0059-24 ",.01)
  1. ;;65779-0059-24
  1. ;;9002226.02101,"628,65779-0059-24 ",.02)
  1. ;;65779-0059-24
  1. ;;9002226.02101,"628,66116-0643-20 ",.01)
  1. ;;66116-0643-20
  1. ;;9002226.02101,"628,66116-0643-20 ",.02)
  1. ;;66116-0643-20
  1. ;;9002226.02101,"628,66116-0644-30 ",.01)
  1. ;;66116-0644-30
  1. ;;9002226.02101,"628,66116-0644-30 ",.02)
  1. ;;66116-0644-30
  1. ;;9002226.02101,"628,66213-0421-10 ",.01)
  1. ;;66213-0421-10
  1. ;;9002226.02101,"628,66213-0421-10 ",.02)
  1. ;;66213-0421-10
  1. ;;9002226.02101,"628,66213-0421-50 ",.01)
  1. ;;66213-0421-50
  1. ;;9002226.02101,"628,66213-0421-50 ",.02)
  1. ;;66213-0421-50
  1. ;;9002226.02101,"628,66213-0422-04 ",.01)
  1. ;;66213-0422-04
  1. ;;9002226.02101,"628,66213-0422-04 ",.02)
  1. ;;66213-0422-04
  1. ;;9002226.02101,"628,66213-0422-16 ",.01)
  1. ;;66213-0422-16
  1. ;;9002226.02101,"628,66213-0422-16 ",.02)
  1. ;;66213-0422-16
  1. ;;9002226.02101,"628,66213-0423-04 ",.01)
  1. ;;66213-0423-04
  1. ;;9002226.02101,"628,66213-0423-04 ",.02)
  1. ;;66213-0423-04
  1. ;;9002226.02101,"628,66213-0423-16 ",.01)
  1. ;;66213-0423-16
  1. ;;9002226.02101,"628,66213-0423-16 ",.02)
  1. ;;66213-0423-16
  1. ;;9002226.02101,"628,66213-0425-10 ",.01)
  1. ;;66213-0425-10
  1. ;;9002226.02101,"628,66213-0425-10 ",.02)
  1. ;;66213-0425-10
  1. ;;9002226.02101,"628,66213-0425-11 ",.01)
  1. ;;66213-0425-11
  1. ;;9002226.02101,"628,66213-0425-11 ",.02)
  1. ;;66213-0425-11
  1. ;;9002226.02101,"628,66346-0082-23 ",.01)
  1. ;;66346-0082-23
  1. ;;9002226.02101,"628,66346-0082-23 ",.02)
  1. ;;66346-0082-23
  1. ;;9002226.02101,"628,66346-0082-31 ",.01)
  1. ;;66346-0082-31
  1. ;;9002226.02101,"628,66346-0082-31 ",.02)
  1. ;;66346-0082-31
  1. ;;9002226.02101,"628,66346-0152-23 ",.01)
  1. ;;66346-0152-23
  1. ;;9002226.02101,"628,66346-0152-23 ",.02)
  1. ;;66346-0152-23
  1. ;;9002226.02101,"628,66346-0152-31 ",.01)
  1. ;;66346-0152-31
  1. ;;9002226.02101,"628,66346-0152-31 ",.02)
  1. ;;66346-0152-31
  1. ;;9002226.02101,"628,66479-0860-01 ",.01)
  1. ;;66479-0860-01
  1. ;;9002226.02101,"628,66479-0860-01 ",.02)
  1. ;;66479-0860-01
  1. ;;9002226.02101,"628,66663-0219-01 ",.01)
  1. ;;66663-0219-01
  1. ;;9002226.02101,"628,66663-0219-01 ",.02)
  1. ;;66663-0219-01
  1. ;;9002226.02101,"628,66934-0200-30 ",.01)
  1. ;;66934-0200-30
  1. ;;9002226.02101,"628,66934-0200-30 ",.02)
  1. ;;66934-0200-30
  1. ;;9002226.02101,"628,66993-0402-02 ",.01)
  1. ;;66993-0402-02
  1. ;;9002226.02101,"628,66993-0402-02 ",.02)
  1. ;;66993-0402-02
  1. ;;9002226.02101,"628,67204-0531-01 ",.01)
  1. ;;67204-0531-01
  1. ;;9002226.02101,"628,67204-0531-01 ",.02)
  1. ;;67204-0531-01
  1. ;;9002226.02101,"628,67555-0155-10 ",.01)
  1. ;;67555-0155-10
  1. ;;9002226.02101,"628,67555-0155-10 ",.02)
  1. ;;67555-0155-10
  1. ;;9002226.02101,"628,68013-0005-01 ",.01)
  1. ;;68013-0005-01
  1. ;;9002226.02101,"628,68013-0005-01 ",.02)
  1. ;;68013-0005-01
  1. ;;9002226.02101,"628,68030-0053-01 ",.01)
  1. ;;68030-0053-01
  1. ;;9002226.02101,"628,68030-0053-01 ",.02)
  1. ;;68030-0053-01
  1. ;;9002226.02101,"628,68030-3594-01 ",.01)
  1. ;;68030-3594-01
  1. ;;9002226.02101,"628,68030-3594-01 ",.02)
  1. ;;68030-3594-01
  1. ;;9002226.02101,"628,68115-0041-20 ",.01)
  1. ;;68115-0041-20
  1. ;;9002226.02101,"628,68115-0041-20 ",.02)
  1. ;;68115-0041-20
  1. ;;9002226.02101,"628,68115-0041-30 ",.01)
  1. ;;68115-0041-30
  1. ;;9002226.02101,"628,68115-0041-30 ",.02)
  1. ;;68115-0041-30
  1. ;;9002226.02101,"628,68115-0116-24 ",.01)
  1. ;;68115-0116-24
  1. ;;9002226.02101,"628,68115-0116-24 ",.02)
  1. ;;68115-0116-24
  1. ;;9002226.02101,"628,68115-0118-15 ",.01)
  1. ;;68115-0118-15
  1. ;;9002226.02101,"628,68115-0118-15 ",.02)
  1. ;;68115-0118-15
  1. ;;9002226.02101,"628,68115-0118-20 ",.01)
  1. ;;68115-0118-20
  1. ;;9002226.02101,"628,68115-0118-20 ",.02)
  1. ;;68115-0118-20
  1. ;;9002226.02101,"628,68115-0118-30 ",.01)
  1. ;;68115-0118-30
  1. ;;9002226.02101,"628,68115-0118-30 ",.02)
  1. ;;68115-0118-30
  1. ;;9002226.02101,"628,68115-0678-00 ",.01)
  1. ;;68115-0678-00
  1. ;;9002226.02101,"628,68115-0678-00 ",.02)
  1. ;;68115-0678-00
  1. ;;9002226.02101,"628,68115-0788-00 ",.01)
  1. ;;68115-0788-00
  1. ;;9002226.02101,"628,68115-0788-00 ",.02)
  1. ;;68115-0788-00
  1. ;;9002226.02101,"628,68115-0897-04 ",.01)
  1. ;;68115-0897-04
  1. ;;9002226.02101,"628,68115-0897-04 ",.02)
  1. ;;68115-0897-04