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

BGP7LXAI.m

Go to the documentation of this file.
  1. BGP7LXAI ; 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,"622,46703-0100-05 ",.02)
  1. ;;46703-0100-05
  1. ;;9002226.02101,"622,48135-3636-70 ",.01)
  1. ;;48135-3636-70
  1. ;;9002226.02101,"622,48135-3636-70 ",.02)
  1. ;;48135-3636-70
  1. ;;9002226.02101,"622,48135-3636-80 ",.01)
  1. ;;48135-3636-80
  1. ;;9002226.02101,"622,48135-3636-80 ",.02)
  1. ;;48135-3636-80
  1. ;;9002226.02101,"622,48135-9375-20 ",.01)
  1. ;;48135-9375-20
  1. ;;9002226.02101,"622,48135-9375-20 ",.02)
  1. ;;48135-9375-20
  1. ;;9002226.02101,"622,49348-0072-09 ",.01)
  1. ;;49348-0072-09
  1. ;;9002226.02101,"622,49348-0072-09 ",.02)
  1. ;;49348-0072-09
  1. ;;9002226.02101,"622,49348-0073-09 ",.01)
  1. ;;49348-0073-09
  1. ;;9002226.02101,"622,49348-0073-09 ",.02)
  1. ;;49348-0073-09
  1. ;;9002226.02101,"622,49348-0206-04 ",.01)
  1. ;;49348-0206-04
  1. ;;9002226.02101,"622,49348-0206-04 ",.02)
  1. ;;49348-0206-04
  1. ;;9002226.02101,"622,49348-0349-10 ",.01)
  1. ;;49348-0349-10
  1. ;;9002226.02101,"622,49348-0349-10 ",.02)
  1. ;;49348-0349-10
  1. ;;9002226.02101,"622,49614-0437-71 ",.01)
  1. ;;49614-0437-71
  1. ;;9002226.02101,"622,49614-0437-71 ",.02)
  1. ;;49614-0437-71
  1. ;;9002226.02101,"622,49614-0439-78 ",.01)
  1. ;;49614-0439-78
  1. ;;9002226.02101,"622,49614-0439-78 ",.02)
  1. ;;49614-0439-78
  1. ;;9002226.02101,"622,49614-0453-62 ",.01)
  1. ;;49614-0453-62
  1. ;;9002226.02101,"622,49614-0453-62 ",.02)
  1. ;;49614-0453-62
  1. ;;9002226.02101,"622,49999-0025-00 ",.01)
  1. ;;49999-0025-00
  1. ;;9002226.02101,"622,49999-0025-00 ",.02)
  1. ;;49999-0025-00
  1. ;;9002226.02101,"622,49999-0025-01 ",.01)
  1. ;;49999-0025-01
  1. ;;9002226.02101,"622,49999-0025-01 ",.02)
  1. ;;49999-0025-01
  1. ;;9002226.02101,"622,49999-0025-06 ",.01)
  1. ;;49999-0025-06
  1. ;;9002226.02101,"622,49999-0025-06 ",.02)
  1. ;;49999-0025-06
  1. ;;9002226.02101,"622,49999-0025-10 ",.01)
  1. ;;49999-0025-10
  1. ;;9002226.02101,"622,49999-0025-10 ",.02)
  1. ;;49999-0025-10
  1. ;;9002226.02101,"622,49999-0025-12 ",.01)
  1. ;;49999-0025-12
  1. ;;9002226.02101,"622,49999-0025-12 ",.02)
  1. ;;49999-0025-12
  1. ;;9002226.02101,"622,49999-0025-15 ",.01)
  1. ;;49999-0025-15
  1. ;;9002226.02101,"622,49999-0025-15 ",.02)
  1. ;;49999-0025-15
  1. ;;9002226.02101,"622,49999-0025-20 ",.01)
  1. ;;49999-0025-20
  1. ;;9002226.02101,"622,49999-0025-20 ",.02)
  1. ;;49999-0025-20
  1. ;;9002226.02101,"622,49999-0025-30 ",.01)
  1. ;;49999-0025-30
  1. ;;9002226.02101,"622,49999-0025-30 ",.02)
  1. ;;49999-0025-30
  1. ;;9002226.02101,"622,49999-0025-50 ",.01)
  1. ;;49999-0025-50
  1. ;;9002226.02101,"622,49999-0025-50 ",.02)
  1. ;;49999-0025-50
  1. ;;9002226.02101,"622,49999-0025-60 ",.01)
  1. ;;49999-0025-60
  1. ;;9002226.02101,"622,49999-0025-60 ",.02)
  1. ;;49999-0025-60
  1. ;;9002226.02101,"622,49999-0025-90 ",.01)
  1. ;;49999-0025-90
  1. ;;9002226.02101,"622,49999-0025-90 ",.02)
  1. ;;49999-0025-90
  1. ;;9002226.02101,"622,50319-0130-01 ",.01)
  1. ;;50319-0130-01
  1. ;;9002226.02101,"622,50319-0130-01 ",.02)
  1. ;;50319-0130-01
  1. ;;9002226.02101,"622,50428-1224-44 ",.01)
  1. ;;50428-1224-44
  1. ;;9002226.02101,"622,50428-1224-44 ",.02)
  1. ;;50428-1224-44
  1. ;;9002226.02101,"622,50428-1248-86 ",.01)
  1. ;;50428-1248-86
  1. ;;9002226.02101,"622,50428-1248-86 ",.02)
  1. ;;50428-1248-86
  1. ;;9002226.02101,"622,50428-6617-28 ",.01)
  1. ;;50428-6617-28
  1. ;;9002226.02101,"622,50428-6617-28 ",.02)
  1. ;;50428-6617-28
  1. ;;9002226.02101,"622,50428-6617-93 ",.01)
  1. ;;50428-6617-93
  1. ;;9002226.02101,"622,50428-6617-93 ",.02)
  1. ;;50428-6617-93
  1. ;;9002226.02101,"622,50580-0176-12 ",.01)
  1. ;;50580-0176-12
  1. ;;9002226.02101,"622,50580-0176-12 ",.02)
  1. ;;50580-0176-12
  1. ;;9002226.02101,"622,50580-0176-14 ",.01)
  1. ;;50580-0176-14
  1. ;;9002226.02101,"622,50580-0176-14 ",.02)
  1. ;;50580-0176-14
  1. ;;9002226.02101,"622,50580-0176-18 ",.01)
  1. ;;50580-0176-18
  1. ;;9002226.02101,"622,50580-0176-18 ",.02)
  1. ;;50580-0176-18
  1. ;;9002226.02101,"622,50580-0176-40 ",.01)
  1. ;;50580-0176-40
  1. ;;9002226.02101,"622,50580-0176-40 ",.02)
  1. ;;50580-0176-40
  1. ;;9002226.02101,"622,50580-0182-52 ",.01)
  1. ;;50580-0182-52
  1. ;;9002226.02101,"622,50580-0182-52 ",.02)
  1. ;;50580-0182-52
  1. ;;9002226.02101,"622,50580-0211-48 ",.01)
  1. ;;50580-0211-48
  1. ;;9002226.02101,"622,50580-0211-48 ",.02)
  1. ;;50580-0211-48
  1. ;;9002226.02101,"622,50580-0379-24 ",.01)
  1. ;;50580-0379-24
  1. ;;9002226.02101,"622,50580-0379-24 ",.02)
  1. ;;50580-0379-24
  1. ;;9002226.02101,"622,50580-0379-36 ",.01)
  1. ;;50580-0379-36
  1. ;;9002226.02101,"622,50580-0379-36 ",.02)
  1. ;;50580-0379-36
  1. ;;9002226.02101,"622,50580-0426-06 ",.01)
  1. ;;50580-0426-06
  1. ;;9002226.02101,"622,50580-0426-06 ",.02)
  1. ;;50580-0426-06
  1. ;;9002226.02101,"622,50580-0482-13 ",.01)
  1. ;;50580-0482-13
  1. ;;9002226.02101,"622,50580-0482-13 ",.02)
  1. ;;50580-0482-13
  1. ;;9002226.02101,"622,50580-0482-22 ",.01)
  1. ;;50580-0482-22
  1. ;;9002226.02101,"622,50580-0482-22 ",.02)
  1. ;;50580-0482-22
  1. ;;9002226.02101,"622,50580-0482-23 ",.01)
  1. ;;50580-0482-23
  1. ;;9002226.02101,"622,50580-0482-23 ",.02)
  1. ;;50580-0482-23
  1. ;;9002226.02101,"622,50580-0482-40 ",.01)
  1. ;;50580-0482-40
  1. ;;9002226.02101,"622,50580-0482-40 ",.02)
  1. ;;50580-0482-40
  1. ;;9002226.02101,"622,50844-0235-08 ",.01)
  1. ;;50844-0235-08
  1. ;;9002226.02101,"622,50844-0235-08 ",.02)
  1. ;;50844-0235-08
  1. ;;9002226.02101,"622,50844-0235-15 ",.01)
  1. ;;50844-0235-15
  1. ;;9002226.02101,"622,50844-0235-15 ",.02)
  1. ;;50844-0235-15
  1. ;;9002226.02101,"622,50844-0246-15 ",.01)
  1. ;;50844-0246-15
  1. ;;9002226.02101,"622,50844-0246-15 ",.02)
  1. ;;50844-0246-15
  1. ;;9002226.02101,"622,51079-0322-01 ",.01)
  1. ;;51079-0322-01
  1. ;;9002226.02101,"622,51079-0322-01 ",.02)
  1. ;;51079-0322-01
  1. ;;9002226.02101,"622,51079-0322-23 ",.01)
  1. ;;51079-0322-23
  1. ;;9002226.02101,"622,51079-0322-23 ",.02)
  1. ;;51079-0322-23
  1. ;;9002226.02101,"622,51079-0934-01 ",.01)
  1. ;;51079-0934-01
  1. ;;9002226.02101,"622,51079-0934-01 ",.02)
  1. ;;51079-0934-01
  1. ;;9002226.02101,"622,51079-0934-17 ",.01)
  1. ;;51079-0934-17
  1. ;;9002226.02101,"622,51079-0934-17 ",.02)
  1. ;;51079-0934-17
  1. ;;9002226.02101,"622,51079-0934-19 ",.01)
  1. ;;51079-0934-19
  1. ;;9002226.02101,"622,51079-0934-19 ",.02)
  1. ;;51079-0934-19
  1. ;;9002226.02101,"622,51079-0934-23 ",.01)
  1. ;;51079-0934-23
  1. ;;9002226.02101,"622,51079-0934-23 ",.02)
  1. ;;51079-0934-23
  1. ;;9002226.02101,"622,51432-0388-03 ",.01)
  1. ;;51432-0388-03
  1. ;;9002226.02101,"622,51432-0388-03 ",.02)
  1. ;;51432-0388-03
  1. ;;9002226.02101,"622,51432-0388-05 ",.01)
  1. ;;51432-0388-05
  1. ;;9002226.02101,"622,51432-0388-05 ",.02)
  1. ;;51432-0388-05
  1. ;;9002226.02101,"622,51432-0390-03 ",.01)
  1. ;;51432-0390-03
  1. ;;9002226.02101,"622,51432-0390-03 ",.02)
  1. ;;51432-0390-03
  1. ;;9002226.02101,"622,51432-0390-05 ",.01)
  1. ;;51432-0390-05
  1. ;;9002226.02101,"622,51432-0390-05 ",.02)
  1. ;;51432-0390-05
  1. ;;9002226.02101,"622,51432-0391-03 ",.01)
  1. ;;51432-0391-03
  1. ;;9002226.02101,"622,51432-0391-03 ",.02)
  1. ;;51432-0391-03
  1. ;;9002226.02101,"622,51432-0391-05 ",.01)
  1. ;;51432-0391-05
  1. ;;9002226.02101,"622,51432-0391-05 ",.02)
  1. ;;51432-0391-05
  1. ;;9002226.02101,"622,51432-0392-03 ",.01)
  1. ;;51432-0392-03
  1. ;;9002226.02101,"622,51432-0392-03 ",.02)
  1. ;;51432-0392-03
  1. ;;9002226.02101,"622,51432-0392-05 ",.01)
  1. ;;51432-0392-05
  1. ;;9002226.02101,"622,51432-0392-05 ",.02)
  1. ;;51432-0392-05
  1. ;;9002226.02101,"622,51432-0980-03 ",.01)
  1. ;;51432-0980-03
  1. ;;9002226.02101,"622,51432-0980-03 ",.02)
  1. ;;51432-0980-03
  1. ;;9002226.02101,"622,51432-0980-05 ",.01)
  1. ;;51432-0980-05
  1. ;;9002226.02101,"622,51432-0980-05 ",.02)
  1. ;;51432-0980-05
  1. ;;9002226.02101,"622,51432-0998-03 ",.01)
  1. ;;51432-0998-03
  1. ;;9002226.02101,"622,51432-0998-03 ",.02)
  1. ;;51432-0998-03
  1. ;;9002226.02101,"622,51655-0803-24 ",.01)
  1. ;;51655-0803-24
  1. ;;9002226.02101,"622,51655-0803-24 ",.02)
  1. ;;51655-0803-24
  1. ;;9002226.02101,"622,51655-0803-54 ",.01)
  1. ;;51655-0803-54
  1. ;;9002226.02101,"622,51655-0803-54 ",.02)
  1. ;;51655-0803-54
  1. ;;9002226.02101,"622,51655-0837-25 ",.01)
  1. ;;51655-0837-25
  1. ;;9002226.02101,"622,51655-0837-25 ",.02)
  1. ;;51655-0837-25
  1. ;;9002226.02101,"622,51655-0837-26 ",.01)
  1. ;;51655-0837-26
  1. ;;9002226.02101,"622,51655-0837-26 ",.02)
  1. ;;51655-0837-26
  1. ;;9002226.02101,"622,51655-0837-51 ",.01)
  1. ;;51655-0837-51
  1. ;;9002226.02101,"622,51655-0837-51 ",.02)
  1. ;;51655-0837-51
  1. ;;9002226.02101,"622,51655-0837-52 ",.01)
  1. ;;51655-0837-52
  1. ;;9002226.02101,"622,51655-0837-52 ",.02)
  1. ;;51655-0837-52
  1. ;;9002226.02101,"622,51655-0837-53 ",.01)
  1. ;;51655-0837-53
  1. ;;9002226.02101,"622,51655-0837-53 ",.02)
  1. ;;51655-0837-53
  1. ;;9002226.02101,"622,51655-0837-77 ",.01)
  1. ;;51655-0837-77
  1. ;;9002226.02101,"622,51655-0837-77 ",.02)
  1. ;;51655-0837-77
  1. ;;9002226.02101,"622,51655-0837-82 ",.01)
  1. ;;51655-0837-82
  1. ;;9002226.02101,"622,51655-0837-82 ",.02)
  1. ;;51655-0837-82
  1. ;;9002226.02101,"622,51655-0849-51 ",.01)
  1. ;;51655-0849-51
  1. ;;9002226.02101,"622,51655-0849-51 ",.02)
  1. ;;51655-0849-51
  1. ;;9002226.02101,"622,51655-0849-82 ",.01)
  1. ;;51655-0849-82
  1. ;;9002226.02101,"622,51655-0849-82 ",.02)
  1. ;;51655-0849-82
  1. ;;9002226.02101,"622,52152-0159-02 ",.01)
  1. ;;52152-0159-02
  1. ;;9002226.02101,"622,52152-0159-02 ",.02)
  1. ;;52152-0159-02
  1. ;;9002226.02101,"622,52152-0159-05 ",.01)
  1. ;;52152-0159-05
  1. ;;9002226.02101,"622,52152-0159-05 ",.02)
  1. ;;52152-0159-05
  1. ;;9002226.02101,"622,52152-0161-02 ",.01)
  1. ;;52152-0161-02
  1. ;;9002226.02101,"622,52152-0161-02 ",.02)
  1. ;;52152-0161-02
  1. ;;9002226.02101,"622,52152-0162-02 ",.01)
  1. ;;52152-0162-02
  1. ;;9002226.02101,"622,52152-0162-02 ",.02)
  1. ;;52152-0162-02
  1. ;;9002226.02101,"622,52152-0167-02 ",.01)
  1. ;;52152-0167-02
  1. ;;9002226.02101,"622,52152-0167-02 ",.02)
  1. ;;52152-0167-02
  1. ;;9002226.02101,"622,52152-0167-05 ",.01)
  1. ;;52152-0167-05
  1. ;;9002226.02101,"622,52152-0167-05 ",.02)
  1. ;;52152-0167-05
  1. ;;9002226.02101,"622,52152-0173-02 ",.01)
  1. ;;52152-0173-02
  1. ;;9002226.02101,"622,52152-0173-02 ",.02)
  1. ;;52152-0173-02
  1. ;;9002226.02101,"622,52152-0186-02 ",.01)
  1. ;;52152-0186-02
  1. ;;9002226.02101,"622,52152-0186-02 ",.02)
  1. ;;52152-0186-02
  1. ;;9002226.02101,"622,52152-0197-02 ",.01)
  1. ;;52152-0197-02
  1. ;;9002226.02101,"622,52152-0197-02 ",.02)
  1. ;;52152-0197-02
  1. ;;9002226.02101,"622,52297-0437-10 ",.01)
  1. ;;52297-0437-10
  1. ;;9002226.02101,"622,52297-0437-10 ",.02)
  1. ;;52297-0437-10
  1. ;;9002226.02101,"622,52297-0813-71 ",.01)
  1. ;;52297-0813-71
  1. ;;9002226.02101,"622,52297-0813-71 ",.02)
  1. ;;52297-0813-71
  1. ;;9002226.02101,"622,52297-0983-09 ",.01)
  1. ;;52297-0983-09
  1. ;;9002226.02101,"622,52297-0983-09 ",.02)
  1. ;;52297-0983-09
  1. ;;9002226.02101,"622,52544-0782-01 ",.01)
  1. ;;52544-0782-01
  1. ;;9002226.02101,"622,52544-0782-01 ",.02)
  1. ;;52544-0782-01
  1. ;;9002226.02101,"622,52544-0783-01 ",.01)
  1. ;;52544-0783-01
  1. ;;9002226.02101,"622,52544-0783-01 ",.02)
  1. ;;52544-0783-01
  1. ;;9002226.02101,"622,52569-0437-10 ",.01)
  1. ;;52569-0437-10
  1. ;;9002226.02101,"622,52569-0437-10 ",.02)
  1. ;;52569-0437-10
  1. ;;9002226.02101,"622,52604-0010-01 ",.01)
  1. ;;52604-0010-01
  1. ;;9002226.02101,"622,52604-0010-01 ",.02)
  1. ;;52604-0010-01
  1. ;;9002226.02101,"622,52604-0470-01 ",.01)
  1. ;;52604-0470-01
  1. ;;9002226.02101,"622,52604-0470-01 ",.02)
  1. ;;52604-0470-01
  1. ;;9002226.02101,"622,52735-0471-05 ",.01)
  1. ;;52735-0471-05
  1. ;;9002226.02101,"622,52735-0471-05 ",.02)
  1. ;;52735-0471-05
  1. ;;9002226.02101,"622,52735-0482-05 ",.01)
  1. ;;52735-0482-05
  1. ;;9002226.02101,"622,52735-0482-05 ",.02)
  1. ;;52735-0482-05
  1. ;;9002226.02101,"622,52735-0770-12 ",.01)
  1. ;;52735-0770-12
  1. ;;9002226.02101,"622,52735-0770-12 ",.02)
  1. ;;52735-0770-12
  1. ;;9002226.02101,"622,52735-0782-12 ",.01)
  1. ;;52735-0782-12
  1. ;;9002226.02101,"622,52735-0782-12 ",.02)
  1. ;;52735-0782-12
  1. ;;9002226.02101,"622,52735-0783-12 ",.01)
  1. ;;52735-0783-12
  1. ;;9002226.02101,"622,52735-0783-12 ",.02)
  1. ;;52735-0783-12
  1. ;;9002226.02101,"622,52959-0188-20 ",.01)
  1. ;;52959-0188-20
  1. ;;9002226.02101,"622,52959-0188-20 ",.02)
  1. ;;52959-0188-20
  1. ;;9002226.02101,"622,52959-0426-06 ",.01)
  1. ;;52959-0426-06
  1. ;;9002226.02101,"622,52959-0426-06 ",.02)
  1. ;;52959-0426-06
  1. ;;9002226.02101,"622,52959-0426-07 ",.01)
  1. ;;52959-0426-07
  1. ;;9002226.02101,"622,52959-0426-07 ",.02)
  1. ;;52959-0426-07
  1. ;;9002226.02101,"622,52959-0426-14 ",.01)
  1. ;;52959-0426-14
  1. ;;9002226.02101,"622,52959-0426-14 ",.02)
  1. ;;52959-0426-14
  1. ;;9002226.02101,"622,52959-0426-15 ",.01)
  1. ;;52959-0426-15
  1. ;;9002226.02101,"622,52959-0426-15 ",.02)
  1. ;;52959-0426-15
  1. ;;9002226.02101,"622,52959-0426-24 ",.01)
  1. ;;52959-0426-24
  1. ;;9002226.02101,"622,52959-0426-24 ",.02)
  1. ;;52959-0426-24
  1. ;;9002226.02101,"622,52959-0426-28 ",.01)
  1. ;;52959-0426-28
  1. ;;9002226.02101,"622,52959-0426-28 ",.02)
  1. ;;52959-0426-28
  1. ;;9002226.02101,"622,52959-0426-30 ",.01)
  1. ;;52959-0426-30
  1. ;;9002226.02101,"622,52959-0426-30 ",.02)
  1. ;;52959-0426-30
  1. ;;9002226.02101,"622,52959-0440-07 ",.01)
  1. ;;52959-0440-07
  1. ;;9002226.02101,"622,52959-0440-07 ",.02)
  1. ;;52959-0440-07
  1. ;;9002226.02101,"622,52959-0440-15 ",.01)
  1. ;;52959-0440-15
  1. ;;9002226.02101,"622,52959-0440-15 ",.02)
  1. ;;52959-0440-15
  1. ;;9002226.02101,"622,52959-0440-30 ",.01)
  1. ;;52959-0440-30
  1. ;;9002226.02101,"622,52959-0440-30 ",.02)
  1. ;;52959-0440-30
  1. ;;9002226.02101,"622,52959-0523-00 ",.01)
  1. ;;52959-0523-00
  1. ;;9002226.02101,"622,52959-0523-00 ",.02)
  1. ;;52959-0523-00
  1. ;;9002226.02101,"622,52959-0628-28 ",.01)
  1. ;;52959-0628-28
  1. ;;9002226.02101,"622,52959-0628-28 ",.02)
  1. ;;52959-0628-28
  1. ;;9002226.02101,"622,52959-0628-30 ",.01)
  1. ;;52959-0628-30
  1. ;;9002226.02101,"622,52959-0628-30 ",.02)
  1. ;;52959-0628-30
  1. ;;9002226.02101,"622,53014-0530-07 ",.01)
  1. ;;53014-0530-07
  1. ;;9002226.02101,"622,53014-0530-07 ",.02)
  1. ;;53014-0530-07
  1. ;;9002226.02101,"622,53014-0530-12 ",.01)
  1. ;;53014-0530-12
  1. ;;9002226.02101,"622,53014-0530-12 ",.02)
  1. ;;53014-0530-12
  1. ;;9002226.02101,"622,53014-0531-07 ",.01)
  1. ;;53014-0531-07
  1. ;;9002226.02101,"622,53014-0531-07 ",.02)
  1. ;;53014-0531-07
  1. ;;9002226.02101,"622,53014-0531-12 ",.01)
  1. ;;53014-0531-12
  1. ;;9002226.02101,"622,53014-0531-12 ",.02)
  1. ;;53014-0531-12
  1. ;;9002226.02101,"622,53014-0532-07 ",.01)
  1. ;;53014-0532-07