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

BGP7LXKG.m

Go to the documentation of this file.
  1. BGP7LXKG ; 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,25077-0481-09 ",.01)
  1. ;;25077-0481-09
  1. ;;9002226.02101,"628,25077-0481-09 ",.02)
  1. ;;25077-0481-09
  1. ;;9002226.02101,"628,25077-4810-09 ",.01)
  1. ;;25077-4810-09
  1. ;;9002226.02101,"628,25077-4810-09 ",.02)
  1. ;;25077-4810-09
  1. ;;9002226.02101,"628,30142-0479-68 ",.01)
  1. ;;30142-0479-68
  1. ;;9002226.02101,"628,30142-0479-68 ",.02)
  1. ;;30142-0479-68
  1. ;;9002226.02101,"628,34575-0098-97 ",.01)
  1. ;;34575-0098-97
  1. ;;9002226.02101,"628,34575-0098-97 ",.02)
  1. ;;34575-0098-97
  1. ;;9002226.02101,"628,34575-0599-36 ",.01)
  1. ;;34575-0599-36
  1. ;;9002226.02101,"628,34575-0599-36 ",.02)
  1. ;;34575-0599-36
  1. ;;9002226.02101,"628,35515-0945-76 ",.01)
  1. ;;35515-0945-76
  1. ;;9002226.02101,"628,35515-0945-76 ",.02)
  1. ;;35515-0945-76
  1. ;;9002226.02101,"628,35515-0945-77 ",.01)
  1. ;;35515-0945-77
  1. ;;9002226.02101,"628,35515-0945-77 ",.02)
  1. ;;35515-0945-77
  1. ;;9002226.02101,"628,35515-0945-79 ",.01)
  1. ;;35515-0945-79
  1. ;;9002226.02101,"628,35515-0945-79 ",.02)
  1. ;;35515-0945-79
  1. ;;9002226.02101,"628,35515-0951-04 ",.01)
  1. ;;35515-0951-04
  1. ;;9002226.02101,"628,35515-0951-04 ",.02)
  1. ;;35515-0951-04
  1. ;;9002226.02101,"628,36800-0332-43 ",.01)
  1. ;;36800-0332-43
  1. ;;9002226.02101,"628,36800-0332-43 ",.02)
  1. ;;36800-0332-43
  1. ;;9002226.02101,"628,37097-0479-62 ",.01)
  1. ;;37097-0479-62
  1. ;;9002226.02101,"628,37097-0479-62 ",.02)
  1. ;;37097-0479-62
  1. ;;9002226.02101,"628,37097-0479-78 ",.01)
  1. ;;37097-0479-78
  1. ;;9002226.02101,"628,37097-0479-78 ",.02)
  1. ;;37097-0479-78
  1. ;;9002226.02101,"628,38130-0046-01 ",.01)
  1. ;;38130-0046-01
  1. ;;9002226.02101,"628,38130-0046-01 ",.02)
  1. ;;38130-0046-01
  1. ;;9002226.02101,"628,38130-0046-10 ",.01)
  1. ;;38130-0046-10
  1. ;;9002226.02101,"628,38130-0046-10 ",.02)
  1. ;;38130-0046-10
  1. ;;9002226.02101,"628,38130-0048-10 ",.01)
  1. ;;38130-0048-10
  1. ;;9002226.02101,"628,38130-0048-10 ",.02)
  1. ;;38130-0048-10
  1. ;;9002226.02101,"628,38726-0462-62 ",.01)
  1. ;;38726-0462-62
  1. ;;9002226.02101,"628,38726-0462-62 ",.02)
  1. ;;38726-0462-62
  1. ;;9002226.02101,"628,38726-0479-78 ",.01)
  1. ;;38726-0479-78
  1. ;;9002226.02101,"628,38726-0479-78 ",.02)
  1. ;;38726-0479-78
  1. ;;9002226.02101,"628,38779-1022-08 ",.01)
  1. ;;38779-1022-08
  1. ;;9002226.02101,"628,38779-1022-08 ",.02)
  1. ;;38779-1022-08
  1. ;;9002226.02101,"628,41163-0251-00 ",.01)
  1. ;;41163-0251-00
  1. ;;9002226.02101,"628,41163-0251-00 ",.02)
  1. ;;41163-0251-00
  1. ;;9002226.02101,"628,41163-0251-02 ",.01)
  1. ;;41163-0251-02
  1. ;;9002226.02101,"628,41163-0251-02 ",.02)
  1. ;;41163-0251-02
  1. ;;9002226.02101,"628,41163-0251-78 ",.01)
  1. ;;41163-0251-78
  1. ;;9002226.02101,"628,41163-0251-78 ",.02)
  1. ;;41163-0251-78
  1. ;;9002226.02101,"628,41163-0255-49 ",.01)
  1. ;;41163-0255-49
  1. ;;9002226.02101,"628,41163-0255-49 ",.02)
  1. ;;41163-0255-49
  1. ;;9002226.02101,"628,41163-0462-78 ",.01)
  1. ;;41163-0462-78
  1. ;;9002226.02101,"628,41163-0462-78 ",.02)
  1. ;;41163-0462-78
  1. ;;9002226.02101,"628,41163-0479-62 ",.01)
  1. ;;41163-0479-62
  1. ;;9002226.02101,"628,41163-0479-62 ",.02)
  1. ;;41163-0479-62
  1. ;;9002226.02101,"628,41163-0479-78 ",.01)
  1. ;;41163-0479-78
  1. ;;9002226.02101,"628,41163-0479-78 ",.02)
  1. ;;41163-0479-78
  1. ;;9002226.02101,"628,41163-0814-62 ",.01)
  1. ;;41163-0814-62
  1. ;;9002226.02101,"628,41163-0814-62 ",.02)
  1. ;;41163-0814-62
  1. ;;9002226.02101,"628,41240-0462-62 ",.01)
  1. ;;41240-0462-62
  1. ;;9002226.02101,"628,41240-0462-62 ",.02)
  1. ;;41240-0462-62
  1. ;;9002226.02101,"628,41280-0200-94 ",.01)
  1. ;;41280-0200-94
  1. ;;9002226.02101,"628,41280-0200-94 ",.02)
  1. ;;41280-0200-94
  1. ;;9002226.02101,"628,41280-0212-87 ",.01)
  1. ;;41280-0212-87
  1. ;;9002226.02101,"628,41280-0212-87 ",.02)
  1. ;;41280-0212-87
  1. ;;9002226.02101,"628,41280-0221-98 ",.01)
  1. ;;41280-0221-98
  1. ;;9002226.02101,"628,41280-0221-98 ",.02)
  1. ;;41280-0221-98
  1. ;;9002226.02101,"628,43292-0557-05 ",.01)
  1. ;;43292-0557-05
  1. ;;9002226.02101,"628,43292-0557-05 ",.02)
  1. ;;43292-0557-05
  1. ;;9002226.02101,"628,43702-0809-12 ",.01)
  1. ;;43702-0809-12
  1. ;;9002226.02101,"628,43702-0809-12 ",.02)
  1. ;;43702-0809-12
  1. ;;9002226.02101,"628,44514-0057-12 ",.01)
  1. ;;44514-0057-12
  1. ;;9002226.02101,"628,44514-0057-12 ",.02)
  1. ;;44514-0057-12
  1. ;;9002226.02101,"628,44514-0997-00 ",.01)
  1. ;;44514-0997-00
  1. ;;9002226.02101,"628,44514-0997-00 ",.02)
  1. ;;44514-0997-00
  1. ;;9002226.02101,"628,45985-0646-01 ",.01)
  1. ;;45985-0646-01
  1. ;;9002226.02101,"628,45985-0646-01 ",.02)
  1. ;;45985-0646-01
  1. ;;9002226.02101,"628,47202-2630-01 ",.01)
  1. ;;47202-2630-01
  1. ;;9002226.02101,"628,47202-2630-01 ",.02)
  1. ;;47202-2630-01
  1. ;;9002226.02101,"628,47202-2630-03 ",.01)
  1. ;;47202-2630-03
  1. ;;9002226.02101,"628,47202-2630-03 ",.02)
  1. ;;47202-2630-03
  1. ;;9002226.02101,"628,47682-0182-64 ",.01)
  1. ;;47682-0182-64
  1. ;;9002226.02101,"628,47682-0182-64 ",.02)
  1. ;;47682-0182-64
  1. ;;9002226.02101,"628,47682-0182-83 ",.01)
  1. ;;47682-0182-83
  1. ;;9002226.02101,"628,47682-0182-83 ",.02)
  1. ;;47682-0182-83
  1. ;;9002226.02101,"628,47682-0847-64 ",.01)
  1. ;;47682-0847-64
  1. ;;9002226.02101,"628,47682-0847-64 ",.02)
  1. ;;47682-0847-64
  1. ;;9002226.02101,"628,47682-0847-95 ",.01)
  1. ;;47682-0847-95
  1. ;;9002226.02101,"628,47682-0847-95 ",.02)
  1. ;;47682-0847-95
  1. ;;9002226.02101,"628,48135-0037-90 ",.01)
  1. ;;48135-0037-90
  1. ;;9002226.02101,"628,48135-0037-90 ",.02)
  1. ;;48135-0037-90
  1. ;;9002226.02101,"628,48135-9315-30 ",.01)
  1. ;;48135-9315-30
  1. ;;9002226.02101,"628,48135-9315-30 ",.02)
  1. ;;48135-9315-30
  1. ;;9002226.02101,"628,49137-0142-24 ",.01)
  1. ;;49137-0142-24
  1. ;;9002226.02101,"628,49137-0142-24 ",.02)
  1. ;;49137-0142-24
  1. ;;9002226.02101,"628,49137-0841-24 ",.01)
  1. ;;49137-0841-24
  1. ;;9002226.02101,"628,49137-0841-24 ",.02)
  1. ;;49137-0841-24
  1. ;;9002226.02101,"628,49260-0502-19 ",.01)
  1. ;;49260-0502-19
  1. ;;9002226.02101,"628,49260-0502-19 ",.02)
  1. ;;49260-0502-19
  1. ;;9002226.02101,"628,49260-5014-05 ",.01)
  1. ;;49260-5014-05
  1. ;;9002226.02101,"628,49260-5014-05 ",.02)
  1. ;;49260-5014-05
  1. ;;9002226.02101,"628,49260-5021-09 ",.01)
  1. ;;49260-5021-09
  1. ;;9002226.02101,"628,49260-5021-09 ",.02)
  1. ;;49260-5021-09
  1. ;;9002226.02101,"628,49348-0044-07 ",.01)
  1. ;;49348-0044-07
  1. ;;9002226.02101,"628,49348-0044-07 ",.02)
  1. ;;49348-0044-07
  1. ;;9002226.02101,"628,49348-0068-04 ",.01)
  1. ;;49348-0068-04
  1. ;;9002226.02101,"628,49348-0068-04 ",.02)
  1. ;;49348-0068-04
  1. ;;9002226.02101,"628,49452-0136-02 ",.01)
  1. ;;49452-0136-02
  1. ;;9002226.02101,"628,49452-0136-02 ",.02)
  1. ;;49452-0136-02
  1. ;;9002226.02101,"628,49452-0900-01 ",.01)
  1. ;;49452-0900-01
  1. ;;9002226.02101,"628,49452-0900-01 ",.02)
  1. ;;49452-0900-01
  1. ;;9002226.02101,"628,49614-0333-26 ",.01)
  1. ;;49614-0333-26
  1. ;;9002226.02101,"628,49614-0333-26 ",.02)
  1. ;;49614-0333-26
  1. ;;9002226.02101,"628,49727-0049-05 ",.01)
  1. ;;49727-0049-05
  1. ;;9002226.02101,"628,49727-0049-05 ",.02)
  1. ;;49727-0049-05
  1. ;;9002226.02101,"628,49727-0050-05 ",.01)
  1. ;;49727-0050-05
  1. ;;9002226.02101,"628,49727-0050-05 ",.02)
  1. ;;49727-0050-05
  1. ;;9002226.02101,"628,49727-0266-02 ",.01)
  1. ;;49727-0266-02
  1. ;;9002226.02101,"628,49727-0266-02 ",.02)
  1. ;;49727-0266-02
  1. ;;9002226.02101,"628,49727-0266-05 ",.01)
  1. ;;49727-0266-05
  1. ;;9002226.02101,"628,49727-0266-05 ",.02)
  1. ;;49727-0266-05
  1. ;;9002226.02101,"628,49884-0771-01 ",.01)
  1. ;;49884-0771-01
  1. ;;9002226.02101,"628,49884-0771-01 ",.02)
  1. ;;49884-0771-01
  1. ;;9002226.02101,"628,49884-0771-10 ",.01)
  1. ;;49884-0771-10
  1. ;;9002226.02101,"628,49884-0771-10 ",.02)
  1. ;;49884-0771-10
  1. ;;9002226.02101,"628,49999-0003-00 ",.01)
  1. ;;49999-0003-00
  1. ;;9002226.02101,"628,49999-0003-00 ",.02)
  1. ;;49999-0003-00
  1. ;;9002226.02101,"628,49999-0003-06 ",.01)
  1. ;;49999-0003-06
  1. ;;9002226.02101,"628,49999-0003-06 ",.02)
  1. ;;49999-0003-06
  1. ;;9002226.02101,"628,49999-0003-15 ",.01)
  1. ;;49999-0003-15
  1. ;;9002226.02101,"628,49999-0003-15 ",.02)
  1. ;;49999-0003-15
  1. ;;9002226.02101,"628,49999-0003-20 ",.01)
  1. ;;49999-0003-20
  1. ;;9002226.02101,"628,49999-0003-20 ",.02)
  1. ;;49999-0003-20
  1. ;;9002226.02101,"628,49999-0003-21 ",.01)
  1. ;;49999-0003-21
  1. ;;9002226.02101,"628,49999-0003-21 ",.02)
  1. ;;49999-0003-21
  1. ;;9002226.02101,"628,49999-0003-24 ",.01)
  1. ;;49999-0003-24
  1. ;;9002226.02101,"628,49999-0003-24 ",.02)
  1. ;;49999-0003-24
  1. ;;9002226.02101,"628,49999-0003-30 ",.01)
  1. ;;49999-0003-30
  1. ;;9002226.02101,"628,49999-0003-30 ",.02)
  1. ;;49999-0003-30
  1. ;;9002226.02101,"628,49999-0003-40 ",.01)
  1. ;;49999-0003-40
  1. ;;9002226.02101,"628,49999-0003-40 ",.02)
  1. ;;49999-0003-40
  1. ;;9002226.02101,"628,49999-0003-60 ",.01)
  1. ;;49999-0003-60
  1. ;;9002226.02101,"628,49999-0003-60 ",.02)
  1. ;;49999-0003-60
  1. ;;9002226.02101,"628,50313-0026-09 ",.01)
  1. ;;50313-0026-09
  1. ;;9002226.02101,"628,50313-0026-09 ",.02)
  1. ;;50313-0026-09
  1. ;;9002226.02101,"628,50428-1188-44 ",.01)
  1. ;;50428-1188-44
  1. ;;9002226.02101,"628,50428-1188-44 ",.02)
  1. ;;50428-1188-44
  1. ;;9002226.02101,"628,50428-1597-28 ",.01)
  1. ;;50428-1597-28
  1. ;;9002226.02101,"628,50428-1597-28 ",.02)
  1. ;;50428-1597-28
  1. ;;9002226.02101,"628,50428-2788-69 ",.01)
  1. ;;50428-2788-69
  1. ;;9002226.02101,"628,50428-2788-69 ",.02)
  1. ;;50428-2788-69
  1. ;;9002226.02101,"628,50428-2788-70 ",.01)
  1. ;;50428-2788-70
  1. ;;9002226.02101,"628,50428-2788-70 ",.02)
  1. ;;50428-2788-70
  1. ;;9002226.02101,"628,50428-3104-52 ",.01)
  1. ;;50428-3104-52
  1. ;;9002226.02101,"628,50428-3104-52 ",.02)
  1. ;;50428-3104-52
  1. ;;9002226.02101,"628,50428-3216-20 ",.01)
  1. ;;50428-3216-20
  1. ;;9002226.02101,"628,50428-3216-20 ",.02)
  1. ;;50428-3216-20
  1. ;;9002226.02101,"628,50428-6617-36 ",.01)
  1. ;;50428-6617-36
  1. ;;9002226.02101,"628,50428-6617-36 ",.02)
  1. ;;50428-6617-36
  1. ;;9002226.02101,"628,50580-0512-24 ",.01)
  1. ;;50580-0512-24
  1. ;;9002226.02101,"628,50580-0512-24 ",.02)
  1. ;;50580-0512-24
  1. ;;9002226.02101,"628,50580-0512-48 ",.01)
  1. ;;50580-0512-48
  1. ;;9002226.02101,"628,50580-0512-48 ",.02)
  1. ;;50580-0512-48
  1. ;;9002226.02101,"628,50844-0107-12 ",.01)
  1. ;;50844-0107-12
  1. ;;9002226.02101,"628,50844-0107-12 ",.02)
  1. ;;50844-0107-12
  1. ;;9002226.02101,"628,50844-0107-16 ",.01)
  1. ;;50844-0107-16
  1. ;;9002226.02101,"628,50844-0107-16 ",.02)
  1. ;;50844-0107-16
  1. ;;9002226.02101,"628,50844-0190-08 ",.01)
  1. ;;50844-0190-08
  1. ;;9002226.02101,"628,50844-0190-08 ",.02)
  1. ;;50844-0190-08
  1. ;;9002226.02101,"628,50844-0190-12 ",.01)
  1. ;;50844-0190-12
  1. ;;9002226.02101,"628,50844-0190-12 ",.02)
  1. ;;50844-0190-12
  1. ;;9002226.02101,"628,50844-0190-16 ",.01)
  1. ;;50844-0190-16
  1. ;;9002226.02101,"628,50844-0190-16 ",.02)
  1. ;;50844-0190-16
  1. ;;9002226.02101,"628,50844-0191-08 ",.01)
  1. ;;50844-0191-08
  1. ;;9002226.02101,"628,50844-0191-08 ",.02)
  1. ;;50844-0191-08
  1. ;;9002226.02101,"628,50844-0191-12 ",.01)
  1. ;;50844-0191-12
  1. ;;9002226.02101,"628,50844-0191-12 ",.02)
  1. ;;50844-0191-12
  1. ;;9002226.02101,"628,51079-0065-20 ",.01)
  1. ;;51079-0065-20
  1. ;;9002226.02101,"628,51079-0065-20 ",.02)
  1. ;;51079-0065-20
  1. ;;9002226.02101,"628,51079-0065-98 ",.01)
  1. ;;51079-0065-98
  1. ;;9002226.02101,"628,51079-0065-98 ",.02)
  1. ;;51079-0065-98
  1. ;;9002226.02101,"628,51079-0067-19 ",.01)
  1. ;;51079-0067-19
  1. ;;9002226.02101,"628,51079-0067-19 ",.02)
  1. ;;51079-0067-19
  1. ;;9002226.02101,"628,51079-0067-20 ",.01)
  1. ;;51079-0067-20
  1. ;;9002226.02101,"628,51079-0067-20 ",.02)
  1. ;;51079-0067-20
  1. ;;9002226.02101,"628,51079-0862-01 ",.01)
  1. ;;51079-0862-01
  1. ;;9002226.02101,"628,51079-0862-01 ",.02)
  1. ;;51079-0862-01
  1. ;;9002226.02101,"628,51079-0967-01 ",.01)
  1. ;;51079-0967-01
  1. ;;9002226.02101,"628,51079-0967-01 ",.02)
  1. ;;51079-0967-01
  1. ;;9002226.02101,"628,51079-0967-17 ",.01)
  1. ;;51079-0967-17
  1. ;;9002226.02101,"628,51079-0967-17 ",.02)
  1. ;;51079-0967-17
  1. ;;9002226.02101,"628,51285-0907-05 ",.01)
  1. ;;51285-0907-05
  1. ;;9002226.02101,"628,51285-0907-05 ",.02)
  1. ;;51285-0907-05
  1. ;;9002226.02101,"628,51285-0932-05 ",.01)
  1. ;;51285-0932-05
  1. ;;9002226.02101,"628,51285-0932-05 ",.02)
  1. ;;51285-0932-05
  1. ;;9002226.02101,"628,51285-0933-05 ",.01)
  1. ;;51285-0933-05
  1. ;;9002226.02101,"628,51285-0933-05 ",.02)
  1. ;;51285-0933-05
  1. ;;9002226.02101,"628,51285-0935-05 ",.01)
  1. ;;51285-0935-05
  1. ;;9002226.02101,"628,51285-0935-05 ",.02)
  1. ;;51285-0935-05
  1. ;;9002226.02101,"628,51285-0937-02 ",.01)
  1. ;;51285-0937-02
  1. ;;9002226.02101,"628,51285-0937-02 ",.02)
  1. ;;51285-0937-02
  1. ;;9002226.02101,"628,51285-0938-02 ",.01)
  1. ;;51285-0938-02
  1. ;;9002226.02101,"628,51285-0938-02 ",.02)
  1. ;;51285-0938-02
  1. ;;9002226.02101,"628,51432-0154-03 ",.01)
  1. ;;51432-0154-03
  1. ;;9002226.02101,"628,51432-0154-03 ",.02)
  1. ;;51432-0154-03
  1. ;;9002226.02101,"628,51432-0154-06 ",.01)
  1. ;;51432-0154-06
  1. ;;9002226.02101,"628,51432-0154-06 ",.02)
  1. ;;51432-0154-06
  1. ;;9002226.02101,"628,51432-0568-18 ",.01)
  1. ;;51432-0568-18
  1. ;;9002226.02101,"628,51432-0568-18 ",.02)
  1. ;;51432-0568-18
  1. ;;9002226.02101,"628,51432-0568-19 ",.01)
  1. ;;51432-0568-19
  1. ;;9002226.02101,"628,51432-0568-19 ",.02)
  1. ;;51432-0568-19
  1. ;;9002226.02101,"628,51432-0568-20 ",.01)
  1. ;;51432-0568-20
  1. ;;9002226.02101,"628,51432-0568-20 ",.02)
  1. ;;51432-0568-20
  1. ;;9002226.02101,"628,51432-0568-21 ",.01)
  1. ;;51432-0568-21
  1. ;;9002226.02101,"628,51432-0568-21 ",.02)
  1. ;;51432-0568-21
  1. ;;9002226.02101,"628,51655-0119-52 ",.01)
  1. ;;51655-0119-52
  1. ;;9002226.02101,"628,51655-0119-52 ",.02)
  1. ;;51655-0119-52
  1. ;;9002226.02101,"628,51655-0295-21 ",.01)
  1. ;;51655-0295-21
  1. ;;9002226.02101,"628,51655-0295-21 ",.02)
  1. ;;51655-0295-21
  1. ;;9002226.02101,"628,51655-0295-24 ",.01)
  1. ;;51655-0295-24
  1. ;;9002226.02101,"628,51655-0295-24 ",.02)
  1. ;;51655-0295-24
  1. ;;9002226.02101,"628,51991-0027-01 ",.01)
  1. ;;51991-0027-01
  1. ;;9002226.02101,"628,51991-0027-01 ",.02)
  1. ;;51991-0027-01
  1. ;;9002226.02101,"628,51991-0045-01 ",.01)
  1. ;;51991-0045-01
  1. ;;9002226.02101,"628,51991-0045-01 ",.02)
  1. ;;51991-0045-01
  1. ;;9002226.02101,"628,51991-0075-12 ",.01)
  1. ;;51991-0075-12
  1. ;;9002226.02101,"628,51991-0075-12 ",.02)
  1. ;;51991-0075-12
  1. ;;9002226.02101,"628,51991-0130-01 ",.01)
  1. ;;51991-0130-01
  1. ;;9002226.02101,"628,51991-0130-01 ",.02)
  1. ;;51991-0130-01