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