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