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

BGP7LXKH.m

Go to the documentation of this file.
BGP7LXKH ; 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,51991-0135-01 ",.01)
 ;;51991-0135-01
 ;;9002226.02101,"628,51991-0135-01 ",.02)
 ;;51991-0135-01
 ;;9002226.02101,"628,51991-0171-01 ",.01)
 ;;51991-0171-01
 ;;9002226.02101,"628,51991-0171-01 ",.02)
 ;;51991-0171-01
 ;;9002226.02101,"628,51991-0251-33 ",.01)
 ;;51991-0251-33
 ;;9002226.02101,"628,51991-0251-33 ",.02)
 ;;51991-0251-33
 ;;9002226.02101,"628,52041-0017-15 ",.01)
 ;;52041-0017-15
 ;;9002226.02101,"628,52041-0017-15 ",.02)
 ;;52041-0017-15
 ;;9002226.02101,"628,52041-0043-33 ",.01)
 ;;52041-0043-33
 ;;9002226.02101,"628,52041-0043-33 ",.02)
 ;;52041-0043-33
 ;;9002226.02101,"628,52041-0044-15 ",.01)
 ;;52041-0044-15
 ;;9002226.02101,"628,52041-0044-15 ",.02)
 ;;52041-0044-15
 ;;9002226.02101,"628,52152-0115-02 ",.01)
 ;;52152-0115-02
 ;;9002226.02101,"628,52152-0115-02 ",.02)
 ;;52152-0115-02
 ;;9002226.02101,"628,52152-0115-05 ",.01)
 ;;52152-0115-05
 ;;9002226.02101,"628,52152-0115-05 ",.02)
 ;;52152-0115-05
 ;;9002226.02101,"628,52152-0143-02 ",.01)
 ;;52152-0143-02
 ;;9002226.02101,"628,52152-0143-02 ",.02)
 ;;52152-0143-02
 ;;9002226.02101,"628,52152-0155-02 ",.01)
 ;;52152-0155-02
 ;;9002226.02101,"628,52152-0155-02 ",.02)
 ;;52152-0155-02
 ;;9002226.02101,"628,52152-0156-02 ",.01)
 ;;52152-0156-02
 ;;9002226.02101,"628,52152-0156-02 ",.02)
 ;;52152-0156-02
 ;;9002226.02101,"628,52152-0163-02 ",.01)
 ;;52152-0163-02
 ;;9002226.02101,"628,52152-0163-02 ",.02)
 ;;52152-0163-02
 ;;9002226.02101,"628,52297-0948-10 ",.01)
 ;;52297-0948-10
 ;;9002226.02101,"628,52297-0948-10 ",.02)
 ;;52297-0948-10
 ;;9002226.02101,"628,52316-0122-12 ",.01)
 ;;52316-0122-12
 ;;9002226.02101,"628,52316-0122-12 ",.02)
 ;;52316-0122-12
 ;;9002226.02101,"628,52349-0240-10 ",.01)
 ;;52349-0240-10
 ;;9002226.02101,"628,52349-0240-10 ",.02)
 ;;52349-0240-10
 ;;9002226.02101,"628,52544-0799-01 ",.01)
 ;;52544-0799-01
 ;;9002226.02101,"628,52544-0799-01 ",.02)
 ;;52544-0799-01
 ;;9002226.02101,"628,52569-0128-83 ",.01)
 ;;52569-0128-83
 ;;9002226.02101,"628,52569-0128-83 ",.02)
 ;;52569-0128-83
 ;;9002226.02101,"628,52569-0137-24 ",.01)
 ;;52569-0137-24
 ;;9002226.02101,"628,52569-0137-24 ",.02)
 ;;52569-0137-24
 ;;9002226.02101,"628,52569-1307-10 ",.01)
 ;;52569-1307-10
 ;;9002226.02101,"628,52569-1307-10 ",.02)
 ;;52569-1307-10
 ;;9002226.02101,"628,52765-2251-00 ",.01)
 ;;52765-2251-00
 ;;9002226.02101,"628,52765-2251-00 ",.02)
 ;;52765-2251-00
 ;;9002226.02101,"628,52959-0023-06 ",.01)
 ;;52959-0023-06
 ;;9002226.02101,"628,52959-0023-06 ",.02)
 ;;52959-0023-06
 ;;9002226.02101,"628,52959-0023-20 ",.01)
 ;;52959-0023-20
 ;;9002226.02101,"628,52959-0023-20 ",.02)
 ;;52959-0023-20
 ;;9002226.02101,"628,52959-0023-30 ",.01)
 ;;52959-0023-30
 ;;9002226.02101,"628,52959-0023-30 ",.02)
 ;;52959-0023-30
 ;;9002226.02101,"628,52959-0023-50 ",.01)
 ;;52959-0023-50
 ;;9002226.02101,"628,52959-0023-50 ",.02)
 ;;52959-0023-50
 ;;9002226.02101,"628,52959-0023-60 ",.01)
 ;;52959-0023-60
 ;;9002226.02101,"628,52959-0023-60 ",.02)
 ;;52959-0023-60
 ;;9002226.02101,"628,52959-0043-00 ",.01)
 ;;52959-0043-00
 ;;9002226.02101,"628,52959-0043-00 ",.02)
 ;;52959-0043-00
 ;;9002226.02101,"628,52959-0043-24 ",.01)
 ;;52959-0043-24
 ;;9002226.02101,"628,52959-0043-24 ",.02)
 ;;52959-0043-24
 ;;9002226.02101,"628,52959-0274-03 ",.01)
 ;;52959-0274-03
 ;;9002226.02101,"628,52959-0274-03 ",.02)
 ;;52959-0274-03
 ;;9002226.02101,"628,53014-0024-10 ",.01)
 ;;53014-0024-10
 ;;9002226.02101,"628,53014-0024-10 ",.02)
 ;;53014-0024-10
 ;;9002226.02101,"628,53014-0024-50 ",.01)
 ;;53014-0024-50
 ;;9002226.02101,"628,53014-0024-50 ",.02)
 ;;53014-0024-50
 ;;9002226.02101,"628,53265-0237-10 ",.01)
 ;;53265-0237-10
 ;;9002226.02101,"628,53265-0237-10 ",.02)
 ;;53265-0237-10
 ;;9002226.02101,"628,53265-0237-11 ",.01)
 ;;53265-0237-11
 ;;9002226.02101,"628,53265-0237-11 ",.02)
 ;;53265-0237-11
 ;;9002226.02101,"628,53633-0045-01 ",.01)
 ;;53633-0045-01
 ;;9002226.02101,"628,53633-0045-01 ",.02)
 ;;53633-0045-01
 ;;9002226.02101,"628,53723-2624-01 ",.01)
 ;;53723-2624-01
 ;;9002226.02101,"628,53723-2624-01 ",.02)
 ;;53723-2624-01
 ;;9002226.02101,"628,53723-2624-03 ",.01)
 ;;53723-2624-03
 ;;9002226.02101,"628,53723-2624-03 ",.02)
 ;;53723-2624-03
 ;;9002226.02101,"628,54104-0032-07 ",.01)
 ;;54104-0032-07
 ;;9002226.02101,"628,54104-0032-07 ",.02)
 ;;54104-0032-07
 ;;9002226.02101,"628,54104-0032-10 ",.01)
 ;;54104-0032-10
 ;;9002226.02101,"628,54104-0032-10 ",.02)
 ;;54104-0032-10
 ;;9002226.02101,"628,54198-0146-15 ",.01)
 ;;54198-0146-15
 ;;9002226.02101,"628,54198-0146-15 ",.02)
 ;;54198-0146-15
 ;;9002226.02101,"628,54198-0147-16 ",.01)
 ;;54198-0147-16
 ;;9002226.02101,"628,54198-0147-16 ",.02)
 ;;54198-0147-16
 ;;9002226.02101,"628,54243-0005-10 ",.01)
 ;;54243-0005-10
 ;;9002226.02101,"628,54243-0005-10 ",.02)
 ;;54243-0005-10
 ;;9002226.02101,"628,54274-0684-50 ",.01)
 ;;54274-0684-50
 ;;9002226.02101,"628,54274-0684-50 ",.02)
 ;;54274-0684-50
 ;;9002226.02101,"628,54274-0932-05 ",.01)
 ;;54274-0932-05
 ;;9002226.02101,"628,54274-0932-05 ",.02)
 ;;54274-0932-05
 ;;9002226.02101,"628,54274-0995-05 ",.01)
 ;;54274-0995-05
 ;;9002226.02101,"628,54274-0995-05 ",.02)
 ;;54274-0995-05
 ;;9002226.02101,"628,54348-0588-08 ",.01)
 ;;54348-0588-08
 ;;9002226.02101,"628,54348-0588-08 ",.02)
 ;;54348-0588-08
 ;;9002226.02101,"628,54348-0588-10 ",.01)
 ;;54348-0588-10
 ;;9002226.02101,"628,54348-0588-10 ",.02)
 ;;54348-0588-10
 ;;9002226.02101,"628,54348-0588-30 ",.01)
 ;;54348-0588-30
 ;;9002226.02101,"628,54348-0588-30 ",.02)
 ;;54348-0588-30
 ;;9002226.02101,"628,54569-0192-01 ",.01)
 ;;54569-0192-01
 ;;9002226.02101,"628,54569-0192-01 ",.02)
 ;;54569-0192-01
 ;;9002226.02101,"628,54569-0192-02 ",.01)
 ;;54569-0192-02
 ;;9002226.02101,"628,54569-0192-02 ",.02)
 ;;54569-0192-02
 ;;9002226.02101,"628,54569-0239-00 ",.01)
 ;;54569-0239-00
 ;;9002226.02101,"628,54569-0239-00 ",.02)
 ;;54569-0239-00
 ;;9002226.02101,"628,54569-0239-01 ",.01)
 ;;54569-0239-01
 ;;9002226.02101,"628,54569-0239-01 ",.02)
 ;;54569-0239-01
 ;;9002226.02101,"628,54569-0239-02 ",.01)
 ;;54569-0239-02
 ;;9002226.02101,"628,54569-0239-02 ",.02)
 ;;54569-0239-02
 ;;9002226.02101,"628,54569-0239-03 ",.01)
 ;;54569-0239-03
 ;;9002226.02101,"628,54569-0239-03 ",.02)
 ;;54569-0239-03
 ;;9002226.02101,"628,54569-0239-04 ",.01)
 ;;54569-0239-04
 ;;9002226.02101,"628,54569-0239-04 ",.02)
 ;;54569-0239-04
 ;;9002226.02101,"628,54569-0239-05 ",.01)
 ;;54569-0239-05
 ;;9002226.02101,"628,54569-0239-05 ",.02)
 ;;54569-0239-05
 ;;9002226.02101,"628,54569-0239-06 ",.01)
 ;;54569-0239-06
 ;;9002226.02101,"628,54569-0239-06 ",.02)
 ;;54569-0239-06
 ;;9002226.02101,"628,54569-0239-07 ",.01)
 ;;54569-0239-07
 ;;9002226.02101,"628,54569-0239-07 ",.02)
 ;;54569-0239-07
 ;;9002226.02101,"628,54569-0239-08 ",.01)
 ;;54569-0239-08
 ;;9002226.02101,"628,54569-0239-08 ",.02)
 ;;54569-0239-08
 ;;9002226.02101,"628,54569-0367-00 ",.01)
 ;;54569-0367-00
 ;;9002226.02101,"628,54569-0367-00 ",.02)
 ;;54569-0367-00
 ;;9002226.02101,"628,54569-0426-00 ",.01)
 ;;54569-0426-00
 ;;9002226.02101,"628,54569-0426-00 ",.02)
 ;;54569-0426-00
 ;;9002226.02101,"628,54569-0427-01 ",.01)
 ;;54569-0427-01
 ;;9002226.02101,"628,54569-0427-01 ",.02)
 ;;54569-0427-01
 ;;9002226.02101,"628,54569-0427-02 ",.01)
 ;;54569-0427-02
 ;;9002226.02101,"628,54569-0427-02 ",.02)
 ;;54569-0427-02
 ;;9002226.02101,"628,54569-0427-04 ",.01)
 ;;54569-0427-04
 ;;9002226.02101,"628,54569-0427-04 ",.02)
 ;;54569-0427-04
 ;;9002226.02101,"628,54569-0427-05 ",.01)
 ;;54569-0427-05
 ;;9002226.02101,"628,54569-0427-05 ",.02)
 ;;54569-0427-05
 ;;9002226.02101,"628,54569-0427-08 ",.01)
 ;;54569-0427-08
 ;;9002226.02101,"628,54569-0427-08 ",.02)
 ;;54569-0427-08
 ;;9002226.02101,"628,54569-0427-09 ",.01)
 ;;54569-0427-09
 ;;9002226.02101,"628,54569-0427-09 ",.02)
 ;;54569-0427-09
 ;;9002226.02101,"628,54569-0428-00 ",.01)
 ;;54569-0428-00
 ;;9002226.02101,"628,54569-0428-00 ",.02)
 ;;54569-0428-00
 ;;9002226.02101,"628,54569-2192-00 ",.01)
 ;;54569-2192-00
 ;;9002226.02101,"628,54569-2192-00 ",.02)
 ;;54569-2192-00
 ;;9002226.02101,"628,54569-2236-00 ",.01)
 ;;54569-2236-00
 ;;9002226.02101,"628,54569-2236-00 ",.02)
 ;;54569-2236-00
 ;;9002226.02101,"628,54569-3251-00 ",.01)
 ;;54569-3251-00
 ;;9002226.02101,"628,54569-3251-00 ",.02)
 ;;54569-3251-00
 ;;9002226.02101,"628,54569-3496-00 ",.01)
 ;;54569-3496-00
 ;;9002226.02101,"628,54569-3496-00 ",.02)
 ;;54569-3496-00
 ;;9002226.02101,"628,54569-3504-00 ",.01)
 ;;54569-3504-00
 ;;9002226.02101,"628,54569-3504-00 ",.02)
 ;;54569-3504-00
 ;;9002226.02101,"628,54569-3504-01 ",.01)
 ;;54569-3504-01
 ;;9002226.02101,"628,54569-3504-01 ",.02)
 ;;54569-3504-01
 ;;9002226.02101,"628,54569-3504-04 ",.01)
 ;;54569-3504-04
 ;;9002226.02101,"628,54569-3504-04 ",.02)
 ;;54569-3504-04
 ;;9002226.02101,"628,54569-3588-00 ",.01)
 ;;54569-3588-00
 ;;9002226.02101,"628,54569-3588-00 ",.02)
 ;;54569-3588-00
 ;;9002226.02101,"628,54569-3763-02 ",.01)
 ;;54569-3763-02
 ;;9002226.02101,"628,54569-3763-02 ",.02)
 ;;54569-3763-02
 ;;9002226.02101,"628,54569-3947-00 ",.01)
 ;;54569-3947-00
 ;;9002226.02101,"628,54569-3947-00 ",.02)
 ;;54569-3947-00
 ;;9002226.02101,"628,54569-4217-00 ",.01)
 ;;54569-4217-00
 ;;9002226.02101,"628,54569-4217-00 ",.02)
 ;;54569-4217-00
 ;;9002226.02101,"628,54738-0115-14 ",.01)
 ;;54738-0115-14
 ;;9002226.02101,"628,54738-0115-14 ",.02)
 ;;54738-0115-14
 ;;9002226.02101,"628,54807-0125-16 ",.01)
 ;;54807-0125-16
 ;;9002226.02101,"628,54807-0125-16 ",.02)
 ;;54807-0125-16
 ;;9002226.02101,"628,54807-0126-01 ",.01)
 ;;54807-0126-01
 ;;9002226.02101,"628,54807-0126-01 ",.02)
 ;;54807-0126-01
 ;;9002226.02101,"628,54838-0506-15 ",.01)
 ;;54838-0506-15
 ;;9002226.02101,"628,54838-0506-15 ",.02)
 ;;54838-0506-15
 ;;9002226.02101,"628,54838-0511-80 ",.01)
 ;;54838-0511-80
 ;;9002226.02101,"628,54838-0511-80 ",.02)
 ;;54838-0511-80
 ;;9002226.02101,"628,54859-0600-01 ",.01)
 ;;54859-0600-01
 ;;9002226.02101,"628,54859-0600-01 ",.02)
 ;;54859-0600-01
 ;;9002226.02101,"628,54868-0006-00 ",.01)
 ;;54868-0006-00
 ;;9002226.02101,"628,54868-0006-00 ",.02)
 ;;54868-0006-00
 ;;9002226.02101,"628,54868-0031-04 ",.01)
 ;;54868-0031-04
 ;;9002226.02101,"628,54868-0031-04 ",.02)
 ;;54868-0031-04
 ;;9002226.02101,"628,54868-0740-00 ",.01)
 ;;54868-0740-00
 ;;9002226.02101,"628,54868-0740-00 ",.02)
 ;;54868-0740-00
 ;;9002226.02101,"628,54868-0740-01 ",.01)
 ;;54868-0740-01
 ;;9002226.02101,"628,54868-0740-01 ",.02)
 ;;54868-0740-01
 ;;9002226.02101,"628,54868-1555-02 ",.01)
 ;;54868-1555-02
 ;;9002226.02101,"628,54868-1555-02 ",.02)
 ;;54868-1555-02
 ;;9002226.02101,"628,54868-1767-00 ",.01)
 ;;54868-1767-00
 ;;9002226.02101,"628,54868-1767-00 ",.02)
 ;;54868-1767-00
 ;;9002226.02101,"628,54868-2087-00 ",.01)
 ;;54868-2087-00
 ;;9002226.02101,"628,54868-2087-00 ",.02)
 ;;54868-2087-00
 ;;9002226.02101,"628,54868-2209-00 ",.01)
 ;;54868-2209-00
 ;;9002226.02101,"628,54868-2209-00 ",.02)
 ;;54868-2209-00
 ;;9002226.02101,"628,54868-2209-02 ",.01)
 ;;54868-2209-02
 ;;9002226.02101,"628,54868-2209-02 ",.02)
 ;;54868-2209-02
 ;;9002226.02101,"628,54868-2209-03 ",.01)
 ;;54868-2209-03
 ;;9002226.02101,"628,54868-2209-03 ",.02)
 ;;54868-2209-03
 ;;9002226.02101,"628,54868-2803-01 ",.01)
 ;;54868-2803-01
 ;;9002226.02101,"628,54868-2803-01 ",.02)
 ;;54868-2803-01
 ;;9002226.02101,"628,54868-3116-00 ",.01)
 ;;54868-3116-00
 ;;9002226.02101,"628,54868-3116-00 ",.02)
 ;;54868-3116-00
 ;;9002226.02101,"628,54868-3215-01 ",.01)
 ;;54868-3215-01
 ;;9002226.02101,"628,54868-3215-01 ",.02)
 ;;54868-3215-01
 ;;9002226.02101,"628,54868-3451-00 ",.01)
 ;;54868-3451-00
 ;;9002226.02101,"628,54868-3451-00 ",.02)
 ;;54868-3451-00
 ;;9002226.02101,"628,54868-3893-00 ",.01)
 ;;54868-3893-00
 ;;9002226.02101,"628,54868-3893-00 ",.02)
 ;;54868-3893-00
 ;;9002226.02101,"628,55045-1125-04 ",.01)
 ;;55045-1125-04
 ;;9002226.02101,"628,55045-1125-04 ",.02)
 ;;55045-1125-04
 ;;9002226.02101,"628,55045-1125-06 ",.01)
 ;;55045-1125-06
 ;;9002226.02101,"628,55045-1125-06 ",.02)
 ;;55045-1125-06
 ;;9002226.02101,"628,55045-1125-08 ",.01)
 ;;55045-1125-08
 ;;9002226.02101,"628,55045-1125-08 ",.02)
 ;;55045-1125-08
 ;;9002226.02101,"628,55053-0111-01 ",.01)
 ;;55053-0111-01
 ;;9002226.02101,"628,55053-0111-01 ",.02)
 ;;55053-0111-01
 ;;9002226.02101,"628,55053-0124-01 ",.01)
 ;;55053-0124-01
 ;;9002226.02101,"628,55053-0124-01 ",.02)
 ;;55053-0124-01
 ;;9002226.02101,"628,55053-0170-01 ",.01)
 ;;55053-0170-01
 ;;9002226.02101,"628,55053-0170-01 ",.02)
 ;;55053-0170-01
 ;;9002226.02101,"628,55053-0310-01 ",.01)
 ;;55053-0310-01
 ;;9002226.02101,"628,55053-0310-01 ",.02)
 ;;55053-0310-01
 ;;9002226.02101,"628,55053-0380-15 ",.01)
 ;;55053-0380-15
 ;;9002226.02101,"628,55053-0380-15 ",.02)
 ;;55053-0380-15
 ;;9002226.02101,"628,55053-0717-01 ",.01)
 ;;55053-0717-01
 ;;9002226.02101,"628,55053-0717-01 ",.02)
 ;;55053-0717-01
 ;;9002226.02101,"628,55175-2527-02 ",.01)
 ;;55175-2527-02
 ;;9002226.02101,"628,55175-2527-02 ",.02)
 ;;55175-2527-02
 ;;9002226.02101,"628,55175-3890-00 ",.01)
 ;;55175-3890-00
 ;;9002226.02101,"628,55175-3890-00 ",.02)
 ;;55175-3890-00
 ;;9002226.02101,"628,55175-3890-01 ",.01)
 ;;55175-3890-01
 ;;9002226.02101,"628,55175-3890-01 ",.02)
 ;;55175-3890-01
 ;;9002226.02101,"628,55175-3890-02 ",.01)
 ;;55175-3890-02
 ;;9002226.02101,"628,55175-3890-02 ",.02)
 ;;55175-3890-02