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

BGP7LXGF.m

Go to the documentation of this file.
  1. BGP7LXGF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 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,"624,00247-0187-98 ",.02)
  1. ;;00247-0187-98
  1. ;;9002226.02101,"624,00247-0294-02 ",.01)
  1. ;;00247-0294-02
  1. ;;9002226.02101,"624,00247-0294-02 ",.02)
  1. ;;00247-0294-02
  1. ;;9002226.02101,"624,00247-0294-20 ",.01)
  1. ;;00247-0294-20
  1. ;;9002226.02101,"624,00247-0294-20 ",.02)
  1. ;;00247-0294-20
  1. ;;9002226.02101,"624,00247-0345-00 ",.01)
  1. ;;00247-0345-00
  1. ;;9002226.02101,"624,00247-0345-00 ",.02)
  1. ;;00247-0345-00
  1. ;;9002226.02101,"624,00247-0345-02 ",.01)
  1. ;;00247-0345-02
  1. ;;9002226.02101,"624,00247-0345-02 ",.02)
  1. ;;00247-0345-02
  1. ;;9002226.02101,"624,00247-0345-03 ",.01)
  1. ;;00247-0345-03
  1. ;;9002226.02101,"624,00247-0345-03 ",.02)
  1. ;;00247-0345-03
  1. ;;9002226.02101,"624,00247-0345-07 ",.01)
  1. ;;00247-0345-07
  1. ;;9002226.02101,"624,00247-0345-07 ",.02)
  1. ;;00247-0345-07
  1. ;;9002226.02101,"624,00247-0345-10 ",.01)
  1. ;;00247-0345-10
  1. ;;9002226.02101,"624,00247-0345-10 ",.02)
  1. ;;00247-0345-10
  1. ;;9002226.02101,"624,00247-0345-15 ",.01)
  1. ;;00247-0345-15
  1. ;;9002226.02101,"624,00247-0345-15 ",.02)
  1. ;;00247-0345-15
  1. ;;9002226.02101,"624,00247-0345-20 ",.01)
  1. ;;00247-0345-20
  1. ;;9002226.02101,"624,00247-0345-20 ",.02)
  1. ;;00247-0345-20
  1. ;;9002226.02101,"624,00247-0345-30 ",.01)
  1. ;;00247-0345-30
  1. ;;9002226.02101,"624,00247-0345-30 ",.02)
  1. ;;00247-0345-30
  1. ;;9002226.02101,"624,00247-0345-98 ",.01)
  1. ;;00247-0345-98
  1. ;;9002226.02101,"624,00247-0345-98 ",.02)
  1. ;;00247-0345-98
  1. ;;9002226.02101,"624,00247-0493-00 ",.01)
  1. ;;00247-0493-00
  1. ;;9002226.02101,"624,00247-0493-00 ",.02)
  1. ;;00247-0493-00
  1. ;;9002226.02101,"624,00247-0493-02 ",.01)
  1. ;;00247-0493-02
  1. ;;9002226.02101,"624,00247-0493-02 ",.02)
  1. ;;00247-0493-02
  1. ;;9002226.02101,"624,00247-0493-03 ",.01)
  1. ;;00247-0493-03
  1. ;;9002226.02101,"624,00247-0493-03 ",.02)
  1. ;;00247-0493-03
  1. ;;9002226.02101,"624,00247-0493-06 ",.01)
  1. ;;00247-0493-06
  1. ;;9002226.02101,"624,00247-0493-06 ",.02)
  1. ;;00247-0493-06
  1. ;;9002226.02101,"624,00247-0493-07 ",.01)
  1. ;;00247-0493-07
  1. ;;9002226.02101,"624,00247-0493-07 ",.02)
  1. ;;00247-0493-07
  1. ;;9002226.02101,"624,00247-0493-10 ",.01)
  1. ;;00247-0493-10
  1. ;;9002226.02101,"624,00247-0493-10 ",.02)
  1. ;;00247-0493-10
  1. ;;9002226.02101,"624,00247-0493-12 ",.01)
  1. ;;00247-0493-12
  1. ;;9002226.02101,"624,00247-0493-12 ",.02)
  1. ;;00247-0493-12
  1. ;;9002226.02101,"624,00247-0493-14 ",.01)
  1. ;;00247-0493-14
  1. ;;9002226.02101,"624,00247-0493-14 ",.02)
  1. ;;00247-0493-14
  1. ;;9002226.02101,"624,00247-0493-20 ",.01)
  1. ;;00247-0493-20
  1. ;;9002226.02101,"624,00247-0493-20 ",.02)
  1. ;;00247-0493-20
  1. ;;9002226.02101,"624,00247-0493-30 ",.01)
  1. ;;00247-0493-30
  1. ;;9002226.02101,"624,00247-0493-30 ",.02)
  1. ;;00247-0493-30
  1. ;;9002226.02101,"624,00247-0509-03 ",.01)
  1. ;;00247-0509-03
  1. ;;9002226.02101,"624,00247-0509-03 ",.02)
  1. ;;00247-0509-03
  1. ;;9002226.02101,"624,00247-0509-04 ",.01)
  1. ;;00247-0509-04
  1. ;;9002226.02101,"624,00247-0509-04 ",.02)
  1. ;;00247-0509-04
  1. ;;9002226.02101,"624,00247-0509-08 ",.01)
  1. ;;00247-0509-08
  1. ;;9002226.02101,"624,00247-0509-08 ",.02)
  1. ;;00247-0509-08
  1. ;;9002226.02101,"624,00247-0509-10 ",.01)
  1. ;;00247-0509-10
  1. ;;9002226.02101,"624,00247-0509-10 ",.02)
  1. ;;00247-0509-10
  1. ;;9002226.02101,"624,00247-0509-20 ",.01)
  1. ;;00247-0509-20
  1. ;;9002226.02101,"624,00247-0509-20 ",.02)
  1. ;;00247-0509-20
  1. ;;9002226.02101,"624,00247-0509-30 ",.01)
  1. ;;00247-0509-30
  1. ;;9002226.02101,"624,00247-0509-30 ",.02)
  1. ;;00247-0509-30
  1. ;;9002226.02101,"624,00247-0822-00 ",.01)
  1. ;;00247-0822-00
  1. ;;9002226.02101,"624,00247-0822-00 ",.02)
  1. ;;00247-0822-00
  1. ;;9002226.02101,"624,00247-0822-04 ",.01)
  1. ;;00247-0822-04
  1. ;;9002226.02101,"624,00247-0822-04 ",.02)
  1. ;;00247-0822-04
  1. ;;9002226.02101,"624,00247-0861-05 ",.01)
  1. ;;00247-0861-05
  1. ;;9002226.02101,"624,00247-0861-05 ",.02)
  1. ;;00247-0861-05
  1. ;;9002226.02101,"624,00247-0861-12 ",.01)
  1. ;;00247-0861-12
  1. ;;9002226.02101,"624,00247-0861-12 ",.02)
  1. ;;00247-0861-12
  1. ;;9002226.02101,"624,00247-0861-21 ",.01)
  1. ;;00247-0861-21
  1. ;;9002226.02101,"624,00247-0861-21 ",.02)
  1. ;;00247-0861-21
  1. ;;9002226.02101,"624,00247-0861-30 ",.01)
  1. ;;00247-0861-30
  1. ;;9002226.02101,"624,00247-0861-30 ",.02)
  1. ;;00247-0861-30
  1. ;;9002226.02101,"624,00247-0939-03 ",.01)
  1. ;;00247-0939-03
  1. ;;9002226.02101,"624,00247-0939-03 ",.02)
  1. ;;00247-0939-03
  1. ;;9002226.02101,"624,00247-0939-06 ",.01)
  1. ;;00247-0939-06
  1. ;;9002226.02101,"624,00247-0939-06 ",.02)
  1. ;;00247-0939-06
  1. ;;9002226.02101,"624,00247-0939-15 ",.01)
  1. ;;00247-0939-15
  1. ;;9002226.02101,"624,00247-0939-15 ",.02)
  1. ;;00247-0939-15
  1. ;;9002226.02101,"624,00247-0939-30 ",.01)
  1. ;;00247-0939-30
  1. ;;9002226.02101,"624,00247-0939-30 ",.02)
  1. ;;00247-0939-30
  1. ;;9002226.02101,"624,00247-1370-09 ",.01)
  1. ;;00247-1370-09
  1. ;;9002226.02101,"624,00247-1370-09 ",.02)
  1. ;;00247-1370-09
  1. ;;9002226.02101,"624,00247-1370-30 ",.01)
  1. ;;00247-1370-30
  1. ;;9002226.02101,"624,00247-1370-30 ",.02)
  1. ;;00247-1370-30
  1. ;;9002226.02101,"624,00247-1370-90 ",.01)
  1. ;;00247-1370-90
  1. ;;9002226.02101,"624,00247-1370-90 ",.02)
  1. ;;00247-1370-90
  1. ;;9002226.02101,"624,00252-6712-02 ",.01)
  1. ;;00252-6712-02
  1. ;;9002226.02101,"624,00252-6712-02 ",.02)
  1. ;;00252-6712-02
  1. ;;9002226.02101,"624,00252-6712-03 ",.01)
  1. ;;00252-6712-03
  1. ;;9002226.02101,"624,00252-6712-03 ",.02)
  1. ;;00252-6712-03
  1. ;;9002226.02101,"624,00252-6722-02 ",.01)
  1. ;;00252-6722-02
  1. ;;9002226.02101,"624,00252-6722-02 ",.02)
  1. ;;00252-6722-02
  1. ;;9002226.02101,"624,00252-6722-03 ",.01)
  1. ;;00252-6722-03
  1. ;;9002226.02101,"624,00252-6722-03 ",.02)
  1. ;;00252-6722-03
  1. ;;9002226.02101,"624,00252-6731-02 ",.01)
  1. ;;00252-6731-02
  1. ;;9002226.02101,"624,00252-6731-02 ",.02)
  1. ;;00252-6731-02
  1. ;;9002226.02101,"624,00252-6740-02 ",.01)
  1. ;;00252-6740-02
  1. ;;9002226.02101,"624,00252-6740-02 ",.02)
  1. ;;00252-6740-02
  1. ;;9002226.02101,"624,00254-5014-38 ",.01)
  1. ;;00254-5014-38
  1. ;;9002226.02101,"624,00254-5014-38 ",.02)
  1. ;;00254-5014-38
  1. ;;9002226.02101,"624,00298-1739-11 ",.01)
  1. ;;00298-1739-11
  1. ;;9002226.02101,"624,00298-1739-11 ",.02)
  1. ;;00298-1739-11
  1. ;;9002226.02101,"624,00298-1757-11 ",.01)
  1. ;;00298-1757-11
  1. ;;9002226.02101,"624,00298-1757-11 ",.02)
  1. ;;00298-1757-11
  1. ;;9002226.02101,"624,00298-1758-11 ",.01)
  1. ;;00298-1758-11
  1. ;;9002226.02101,"624,00298-1758-11 ",.02)
  1. ;;00298-1758-11
  1. ;;9002226.02101,"624,00298-1759-11 ",.01)
  1. ;;00298-1759-11
  1. ;;9002226.02101,"624,00298-1759-11 ",.02)
  1. ;;00298-1759-11
  1. ;;9002226.02101,"624,00298-1761-11 ",.01)
  1. ;;00298-1761-11
  1. ;;9002226.02101,"624,00298-1761-11 ",.02)
  1. ;;00298-1761-11
  1. ;;9002226.02101,"624,00298-1772-11 ",.01)
  1. ;;00298-1772-11
  1. ;;9002226.02101,"624,00298-1772-11 ",.02)
  1. ;;00298-1772-11
  1. ;;9002226.02101,"624,00298-1778-01 ",.01)
  1. ;;00298-1778-01
  1. ;;9002226.02101,"624,00298-1778-01 ",.02)
  1. ;;00298-1778-01
  1. ;;9002226.02101,"624,00298-1778-11 ",.01)
  1. ;;00298-1778-11
  1. ;;9002226.02101,"624,00298-1778-11 ",.02)
  1. ;;00298-1778-11
  1. ;;9002226.02101,"624,00298-5054-04 ",.01)
  1. ;;00298-5054-04
  1. ;;9002226.02101,"624,00298-5054-04 ",.02)
  1. ;;00298-5054-04
  1. ;;9002226.02101,"624,00298-5054-18 ",.01)
  1. ;;00298-5054-18
  1. ;;9002226.02101,"624,00298-5054-18 ",.02)
  1. ;;00298-5054-18
  1. ;;9002226.02101,"624,00298-6183-62 ",.01)
  1. ;;00298-6183-62
  1. ;;9002226.02101,"624,00298-6183-62 ",.02)
  1. ;;00298-6183-62
  1. ;;9002226.02101,"624,00302-5010-10 ",.01)
  1. ;;00302-5010-10
  1. ;;9002226.02101,"624,00302-5010-10 ",.02)
  1. ;;00302-5010-10
  1. ;;9002226.02101,"624,00302-5011-10 ",.01)
  1. ;;00302-5011-10
  1. ;;9002226.02101,"624,00302-5011-10 ",.02)
  1. ;;00302-5011-10
  1. ;;9002226.02101,"624,00302-6530-10 ",.01)
  1. ;;00302-6530-10
  1. ;;9002226.02101,"624,00302-6530-10 ",.02)
  1. ;;00302-6530-10
  1. ;;9002226.02101,"624,00302-7102-01 ",.01)
  1. ;;00302-7102-01
  1. ;;9002226.02101,"624,00302-7102-01 ",.02)
  1. ;;00302-7102-01
  1. ;;9002226.02101,"624,00302-7108-01 ",.01)
  1. ;;00302-7108-01
  1. ;;9002226.02101,"624,00302-7108-01 ",.02)
  1. ;;00302-7108-01
  1. ;;9002226.02101,"624,00302-7110-01 ",.01)
  1. ;;00302-7110-01
  1. ;;9002226.02101,"624,00302-7110-01 ",.02)
  1. ;;00302-7110-01
  1. ;;9002226.02101,"624,00302-7112-01 ",.01)
  1. ;;00302-7112-01
  1. ;;9002226.02101,"624,00302-7112-01 ",.02)
  1. ;;00302-7112-01
  1. ;;9002226.02101,"624,00304-2295-01 ",.01)
  1. ;;00304-2295-01
  1. ;;9002226.02101,"624,00304-2295-01 ",.02)
  1. ;;00304-2295-01
  1. ;;9002226.02101,"624,00304-2295-03 ",.01)
  1. ;;00304-2295-03
  1. ;;9002226.02101,"624,00304-2295-03 ",.02)
  1. ;;00304-2295-03
  1. ;;9002226.02101,"624,00349-2350-10 ",.01)
  1. ;;00349-2350-10
  1. ;;9002226.02101,"624,00349-2350-10 ",.02)
  1. ;;00349-2350-10
  1. ;;9002226.02101,"624,00349-2351-10 ",.01)
  1. ;;00349-2351-10
  1. ;;9002226.02101,"624,00349-2351-10 ",.02)
  1. ;;00349-2351-10
  1. ;;9002226.02101,"624,00349-2355-10 ",.01)
  1. ;;00349-2355-10
  1. ;;9002226.02101,"624,00349-2355-10 ",.02)
  1. ;;00349-2355-10
  1. ;;9002226.02101,"624,00349-8272-01 ",.01)
  1. ;;00349-8272-01
  1. ;;9002226.02101,"624,00349-8272-01 ",.02)
  1. ;;00349-8272-01
  1. ;;9002226.02101,"624,00349-8272-10 ",.01)
  1. ;;00349-8272-10
  1. ;;9002226.02101,"624,00349-8272-10 ",.02)
  1. ;;00349-8272-10
  1. ;;9002226.02101,"624,00349-8273-01 ",.01)
  1. ;;00349-8273-01
  1. ;;9002226.02101,"624,00349-8273-01 ",.02)
  1. ;;00349-8273-01
  1. ;;9002226.02101,"624,00349-8273-05 ",.01)
  1. ;;00349-8273-05
  1. ;;9002226.02101,"624,00349-8273-05 ",.02)
  1. ;;00349-8273-05
  1. ;;9002226.02101,"624,00349-8273-10 ",.01)
  1. ;;00349-8273-10
  1. ;;9002226.02101,"624,00349-8273-10 ",.02)
  1. ;;00349-8273-10
  1. ;;9002226.02101,"624,00349-8297-01 ",.01)
  1. ;;00349-8297-01
  1. ;;9002226.02101,"624,00349-8297-01 ",.02)
  1. ;;00349-8297-01
  1. ;;9002226.02101,"624,00349-8298-01 ",.01)
  1. ;;00349-8298-01
  1. ;;9002226.02101,"624,00349-8298-01 ",.02)
  1. ;;00349-8298-01
  1. ;;9002226.02101,"624,00349-8298-05 ",.01)
  1. ;;00349-8298-05
  1. ;;9002226.02101,"624,00349-8298-05 ",.02)
  1. ;;00349-8298-05
  1. ;;9002226.02101,"624,00349-8363-01 ",.01)
  1. ;;00349-8363-01
  1. ;;9002226.02101,"624,00349-8363-01 ",.02)
  1. ;;00349-8363-01
  1. ;;9002226.02101,"624,00349-8363-10 ",.01)
  1. ;;00349-8363-10
  1. ;;9002226.02101,"624,00349-8363-10 ",.02)
  1. ;;00349-8363-10
  1. ;;9002226.02101,"624,00349-8656-10 ",.01)
  1. ;;00349-8656-10
  1. ;;9002226.02101,"624,00349-8656-10 ",.02)
  1. ;;00349-8656-10
  1. ;;9002226.02101,"624,00364-0020-02 ",.01)
  1. ;;00364-0020-02
  1. ;;9002226.02101,"624,00364-0020-02 ",.02)
  1. ;;00364-0020-02
  1. ;;9002226.02101,"624,00364-0203-02 ",.01)
  1. ;;00364-0203-02
  1. ;;9002226.02101,"624,00364-0203-02 ",.02)
  1. ;;00364-0203-02
  1. ;;9002226.02101,"624,00364-0697-02 ",.01)
  1. ;;00364-0697-02
  1. ;;9002226.02101,"624,00364-0697-02 ",.02)
  1. ;;00364-0697-02
  1. ;;9002226.02101,"624,00364-0774-01 ",.01)
  1. ;;00364-0774-01
  1. ;;9002226.02101,"624,00364-0774-01 ",.02)
  1. ;;00364-0774-01
  1. ;;9002226.02101,"624,00364-0774-02 ",.01)
  1. ;;00364-0774-02
  1. ;;9002226.02101,"624,00364-0774-02 ",.02)
  1. ;;00364-0774-02
  1. ;;9002226.02101,"624,00364-0774-05 ",.01)
  1. ;;00364-0774-05
  1. ;;9002226.02101,"624,00364-0774-05 ",.02)
  1. ;;00364-0774-05
  1. ;;9002226.02101,"624,00364-0775-01 ",.01)
  1. ;;00364-0775-01
  1. ;;9002226.02101,"624,00364-0775-01 ",.02)
  1. ;;00364-0775-01
  1. ;;9002226.02101,"624,00364-0775-02 ",.01)
  1. ;;00364-0775-02
  1. ;;9002226.02101,"624,00364-0775-02 ",.02)
  1. ;;00364-0775-02
  1. ;;9002226.02101,"624,00364-0775-05 ",.01)
  1. ;;00364-0775-05
  1. ;;9002226.02101,"624,00364-0775-05 ",.02)
  1. ;;00364-0775-05
  1. ;;9002226.02101,"624,00364-0776-01 ",.01)
  1. ;;00364-0776-01
  1. ;;9002226.02101,"624,00364-0776-01 ",.02)
  1. ;;00364-0776-01
  1. ;;9002226.02101,"624,00364-0776-02 ",.01)
  1. ;;00364-0776-02
  1. ;;9002226.02101,"624,00364-0776-02 ",.02)
  1. ;;00364-0776-02
  1. ;;9002226.02101,"624,00364-0776-05 ",.01)
  1. ;;00364-0776-05
  1. ;;9002226.02101,"624,00364-0776-05 ",.02)
  1. ;;00364-0776-05
  1. ;;9002226.02101,"624,00364-0801-05 ",.01)
  1. ;;00364-0801-05
  1. ;;9002226.02101,"624,00364-0801-05 ",.02)
  1. ;;00364-0801-05
  1. ;;9002226.02101,"624,00364-0825-48 ",.01)
  1. ;;00364-0825-48
  1. ;;9002226.02101,"624,00364-0825-48 ",.02)
  1. ;;00364-0825-48
  1. ;;9002226.02101,"624,00364-2444-02 ",.01)
  1. ;;00364-2444-02
  1. ;;9002226.02101,"624,00364-2444-02 ",.02)
  1. ;;00364-2444-02
  1. ;;9002226.02101,"624,00364-7002-16 ",.01)
  1. ;;00364-7002-16
  1. ;;9002226.02101,"624,00364-7002-16 ",.02)
  1. ;;00364-7002-16
  1. ;;9002226.02101,"624,00378-0211-01 ",.01)
  1. ;;00378-0211-01
  1. ;;9002226.02101,"624,00378-0211-01 ",.02)
  1. ;;00378-0211-01
  1. ;;9002226.02101,"624,00378-0211-05 ",.01)
  1. ;;00378-0211-05
  1. ;;9002226.02101,"624,00378-0211-05 ",.02)
  1. ;;00378-0211-05
  1. ;;9002226.02101,"624,00378-0271-01 ",.01)
  1. ;;00378-0271-01
  1. ;;9002226.02101,"624,00378-0271-01 ",.02)
  1. ;;00378-0271-01
  1. ;;9002226.02101,"624,00378-0271-05 ",.01)
  1. ;;00378-0271-05
  1. ;;9002226.02101,"624,00378-0271-05 ",.02)
  1. ;;00378-0271-05
  1. ;;9002226.02101,"624,00378-0277-01 ",.01)
  1. ;;00378-0277-01
  1. ;;9002226.02101,"624,00378-0277-01 ",.02)
  1. ;;00378-0277-01
  1. ;;9002226.02101,"624,00378-0277-05 ",.01)
  1. ;;00378-0277-05
  1. ;;9002226.02101,"624,00378-0277-05 ",.02)
  1. ;;00378-0277-05
  1. ;;9002226.02101,"624,00378-0345-01 ",.01)
  1. ;;00378-0345-01
  1. ;;9002226.02101,"624,00378-0345-01 ",.02)
  1. ;;00378-0345-01
  1. ;;9002226.02101,"624,00378-0345-05 ",.01)
  1. ;;00378-0345-05
  1. ;;9002226.02101,"624,00378-0345-05 ",.02)
  1. ;;00378-0345-05
  1. ;;9002226.02101,"624,00378-0477-01 ",.01)
  1. ;;00378-0477-01
  1. ;;9002226.02101,"624,00378-0477-01 ",.02)
  1. ;;00378-0477-01
  1. ;;9002226.02101,"624,00378-0477-05 ",.01)
  1. ;;00378-0477-05
  1. ;;9002226.02101,"624,00378-0477-05 ",.02)
  1. ;;00378-0477-05
  1. ;;9002226.02101,"624,00378-4415-01 ",.01)
  1. ;;00378-4415-01
  1. ;;9002226.02101,"624,00378-4415-01 ",.02)
  1. ;;00378-4415-01
  1. ;;9002226.02101,"624,00378-4415-05 ",.01)
  1. ;;00378-4415-05
  1. ;;9002226.02101,"624,00378-4415-05 ",.02)
  1. ;;00378-4415-05
  1. ;;9002226.02101,"624,00378-4430-01 ",.01)
  1. ;;00378-4430-01
  1. ;;9002226.02101,"624,00378-4430-01 ",.02)
  1. ;;00378-4430-01
  1. ;;9002226.02101,"624,00378-4430-05 ",.01)
  1. ;;00378-4430-05