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

BGP7GXOF.m

Go to the documentation of this file.
  1. BGP7GXOF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 25, 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,"634,00904-2455-10 ",.01)
  1. ;;00904-2455-10
  1. ;;9002226.02101,"634,00904-2455-10 ",.02)
  1. ;;00904-2455-10
  1. ;;9002226.02101,"634,00904-5519-24 ",.01)
  1. ;;00904-5519-24
  1. ;;9002226.02101,"634,00904-5519-24 ",.02)
  1. ;;00904-5519-24
  1. ;;9002226.02101,"634,00904-5654-40 ",.01)
  1. ;;00904-5654-40
  1. ;;9002226.02101,"634,00904-5654-40 ",.02)
  1. ;;00904-5654-40
  1. ;;9002226.02101,"634,00904-5654-60 ",.01)
  1. ;;00904-5654-60
  1. ;;9002226.02101,"634,00904-5654-60 ",.02)
  1. ;;00904-5654-60
  1. ;;9002226.02101,"634,00904-7721-40 ",.01)
  1. ;;00904-7721-40
  1. ;;9002226.02101,"634,00904-7721-40 ",.02)
  1. ;;00904-7721-40
  1. ;;9002226.02101,"634,00904-7721-60 ",.01)
  1. ;;00904-7721-60
  1. ;;9002226.02101,"634,00904-7721-60 ",.02)
  1. ;;00904-7721-60
  1. ;;9002226.02101,"634,00904-7722-40 ",.01)
  1. ;;00904-7722-40
  1. ;;9002226.02101,"634,00904-7722-40 ",.02)
  1. ;;00904-7722-40
  1. ;;9002226.02101,"634,00904-7722-60 ",.01)
  1. ;;00904-7722-60
  1. ;;9002226.02101,"634,00904-7722-60 ",.02)
  1. ;;00904-7722-60
  1. ;;9002226.02101,"634,00904-7865-60 ",.01)
  1. ;;00904-7865-60
  1. ;;9002226.02101,"634,00904-7865-60 ",.02)
  1. ;;00904-7865-60
  1. ;;9002226.02101,"634,00904-7865-80 ",.01)
  1. ;;00904-7865-80
  1. ;;9002226.02101,"634,00904-7865-80 ",.02)
  1. ;;00904-7865-80
  1. ;;9002226.02101,"634,00905-5658-31 ",.01)
  1. ;;00905-5658-31
  1. ;;9002226.02101,"634,00905-5658-31 ",.02)
  1. ;;00905-5658-31
  1. ;;9002226.02101,"634,00927-0516-34 ",.01)
  1. ;;00927-0516-34
  1. ;;9002226.02101,"634,00927-0516-34 ",.02)
  1. ;;00927-0516-34
  1. ;;9002226.02101,"634,10939-0457-33 ",.01)
  1. ;;10939-0457-33
  1. ;;9002226.02101,"634,10939-0457-33 ",.02)
  1. ;;10939-0457-33
  1. ;;9002226.02101,"634,10939-0466-33 ",.01)
  1. ;;10939-0466-33
  1. ;;9002226.02101,"634,10939-0466-33 ",.02)
  1. ;;10939-0466-33
  1. ;;9002226.02101,"634,10939-0467-33 ",.01)
  1. ;;10939-0467-33
  1. ;;9002226.02101,"634,10939-0467-33 ",.02)
  1. ;;10939-0467-33
  1. ;;9002226.02101,"634,10939-0787-22 ",.01)
  1. ;;10939-0787-22
  1. ;;9002226.02101,"634,10939-0787-22 ",.02)
  1. ;;10939-0787-22
  1. ;;9002226.02101,"634,11441-0030-14 ",.01)
  1. ;;11441-0030-14
  1. ;;9002226.02101,"634,11441-0030-14 ",.02)
  1. ;;11441-0030-14
  1. ;;9002226.02101,"634,11822-3058-00 ",.01)
  1. ;;11822-3058-00
  1. ;;9002226.02101,"634,11822-3058-00 ",.02)
  1. ;;11822-3058-00
  1. ;;9002226.02101,"634,11822-3172-90 ",.01)
  1. ;;11822-3172-90
  1. ;;9002226.02101,"634,11822-3172-90 ",.02)
  1. ;;11822-3172-90
  1. ;;9002226.02101,"634,11845-0201-01 ",.01)
  1. ;;11845-0201-01
  1. ;;9002226.02101,"634,11845-0201-01 ",.02)
  1. ;;11845-0201-01
  1. ;;9002226.02101,"634,11845-0202-01 ",.01)
  1. ;;11845-0202-01
  1. ;;9002226.02101,"634,11845-0202-01 ",.02)
  1. ;;11845-0202-01
  1. ;;9002226.02101,"634,11926-0615-16 ",.01)
  1. ;;11926-0615-16
  1. ;;9002226.02101,"634,11926-0615-16 ",.02)
  1. ;;11926-0615-16
  1. ;;9002226.02101,"634,11926-0615-32 ",.01)
  1. ;;11926-0615-32
  1. ;;9002226.02101,"634,11926-0615-32 ",.02)
  1. ;;11926-0615-32
  1. ;;9002226.02101,"634,12280-0204-00 ",.01)
  1. ;;12280-0204-00
  1. ;;9002226.02101,"634,12280-0204-00 ",.02)
  1. ;;12280-0204-00
  1. ;;9002226.02101,"634,12333-9536-01 ",.01)
  1. ;;12333-9536-01
  1. ;;9002226.02101,"634,12333-9536-01 ",.02)
  1. ;;12333-9536-01
  1. ;;9002226.02101,"634,15127-0258-16 ",.01)
  1. ;;15127-0258-16
  1. ;;9002226.02101,"634,15127-0258-16 ",.02)
  1. ;;15127-0258-16
  1. ;;9002226.02101,"634,15127-0391-16 ",.01)
  1. ;;15127-0391-16
  1. ;;9002226.02101,"634,15127-0391-16 ",.02)
  1. ;;15127-0391-16
  1. ;;9002226.02101,"634,16500-0102-00 ",.01)
  1. ;;16500-0102-00
  1. ;;9002226.02101,"634,16500-0102-00 ",.02)
  1. ;;16500-0102-00
  1. ;;9002226.02101,"634,16500-0102-20 ",.01)
  1. ;;16500-0102-20
  1. ;;9002226.02101,"634,16500-0102-20 ",.02)
  1. ;;16500-0102-20
  1. ;;9002226.02101,"634,17022-5509-02 ",.01)
  1. ;;17022-5509-02
  1. ;;9002226.02101,"634,17022-5509-02 ",.02)
  1. ;;17022-5509-02
  1. ;;9002226.02101,"634,17022-5509-04 ",.01)
  1. ;;17022-5509-04
  1. ;;9002226.02101,"634,17022-5509-04 ",.02)
  1. ;;17022-5509-04
  1. ;;9002226.02101,"634,17022-5530-02 ",.01)
  1. ;;17022-5530-02
  1. ;;9002226.02101,"634,17022-5530-02 ",.02)
  1. ;;17022-5530-02
  1. ;;9002226.02101,"634,17022-5530-04 ",.01)
  1. ;;17022-5530-04
  1. ;;9002226.02101,"634,17022-5530-04 ",.02)
  1. ;;17022-5530-04
  1. ;;9002226.02101,"634,17236-0200-01 ",.01)
  1. ;;17236-0200-01
  1. ;;9002226.02101,"634,17236-0200-01 ",.02)
  1. ;;17236-0200-01
  1. ;;9002226.02101,"634,17236-0200-05 ",.01)
  1. ;;17236-0200-05
  1. ;;9002226.02101,"634,17236-0200-05 ",.02)
  1. ;;17236-0200-05
  1. ;;9002226.02101,"634,17236-0202-01 ",.01)
  1. ;;17236-0202-01
  1. ;;9002226.02101,"634,17236-0202-01 ",.02)
  1. ;;17236-0202-01
  1. ;;9002226.02101,"634,17236-0202-05 ",.01)
  1. ;;17236-0202-05
  1. ;;9002226.02101,"634,17236-0202-05 ",.02)
  1. ;;17236-0202-05
  1. ;;9002226.02101,"634,17236-0345-01 ",.01)
  1. ;;17236-0345-01
  1. ;;9002226.02101,"634,17236-0345-01 ",.02)
  1. ;;17236-0345-01
  1. ;;9002226.02101,"634,17236-0345-05 ",.01)
  1. ;;17236-0345-05
  1. ;;9002226.02101,"634,17236-0345-05 ",.02)
  1. ;;17236-0345-05
  1. ;;9002226.02101,"634,17236-0346-01 ",.01)
  1. ;;17236-0346-01
  1. ;;9002226.02101,"634,17236-0346-01 ",.02)
  1. ;;17236-0346-01
  1. ;;9002226.02101,"634,17236-0346-05 ",.01)
  1. ;;17236-0346-05
  1. ;;9002226.02101,"634,17236-0346-05 ",.02)
  1. ;;17236-0346-05
  1. ;;9002226.02101,"634,17236-0715-10 ",.01)
  1. ;;17236-0715-10
  1. ;;9002226.02101,"634,17236-0715-10 ",.02)
  1. ;;17236-0715-10
  1. ;;9002226.02101,"634,17314-2836-03 ",.01)
  1. ;;17314-2836-03
  1. ;;9002226.02101,"634,17314-2836-03 ",.02)
  1. ;;17314-2836-03
  1. ;;9002226.02101,"634,17314-4608-03 ",.01)
  1. ;;17314-4608-03
  1. ;;9002226.02101,"634,17314-4608-03 ",.02)
  1. ;;17314-4608-03
  1. ;;9002226.02101,"634,17314-4609-03 ",.01)
  1. ;;17314-4609-03
  1. ;;9002226.02101,"634,17314-4609-03 ",.02)
  1. ;;17314-4609-03
  1. ;;9002226.02101,"634,17314-4717-03 ",.01)
  1. ;;17314-4717-03
  1. ;;9002226.02101,"634,17314-4717-03 ",.02)
  1. ;;17314-4717-03
  1. ;;9002226.02101,"634,19458-9103-01 ",.01)
  1. ;;19458-9103-01
  1. ;;9002226.02101,"634,19458-9103-01 ",.02)
  1. ;;19458-9103-01
  1. ;;9002226.02101,"634,19458-9163-02 ",.01)
  1. ;;19458-9163-02
  1. ;;9002226.02101,"634,19458-9163-02 ",.02)
  1. ;;19458-9163-02
  1. ;;9002226.02101,"634,20254-0208-01 ",.01)
  1. ;;20254-0208-01
  1. ;;9002226.02101,"634,20254-0208-01 ",.02)
  1. ;;20254-0208-01
  1. ;;9002226.02101,"634,20254-0208-06 ",.01)
  1. ;;20254-0208-06
  1. ;;9002226.02101,"634,20254-0208-06 ",.02)
  1. ;;20254-0208-06
  1. ;;9002226.02101,"634,20254-0208-10 ",.01)
  1. ;;20254-0208-10
  1. ;;9002226.02101,"634,20254-0208-10 ",.02)
  1. ;;20254-0208-10
  1. ;;9002226.02101,"634,23513-0601-24 ",.01)
  1. ;;23513-0601-24
  1. ;;9002226.02101,"634,23513-0601-24 ",.02)
  1. ;;23513-0601-24
  1. ;;9002226.02101,"634,23513-0601-48 ",.01)
  1. ;;23513-0601-48
  1. ;;9002226.02101,"634,23513-0601-48 ",.02)
  1. ;;23513-0601-48
  1. ;;9002226.02101,"634,24385-0406-73 ",.01)
  1. ;;24385-0406-73
  1. ;;9002226.02101,"634,24385-0406-73 ",.02)
  1. ;;24385-0406-73
  1. ;;9002226.02101,"634,25077-1564-00 ",.01)
  1. ;;25077-1564-00
  1. ;;9002226.02101,"634,25077-1564-00 ",.02)
  1. ;;25077-1564-00
  1. ;;9002226.02101,"634,25332-0030-10 ",.01)
  1. ;;25332-0030-10
  1. ;;9002226.02101,"634,25332-0030-10 ",.02)
  1. ;;25332-0030-10
  1. ;;9002226.02101,"634,33261-0375-16 ",.01)
  1. ;;33261-0375-16
  1. ;;9002226.02101,"634,33261-0375-16 ",.02)
  1. ;;33261-0375-16
  1. ;;9002226.02101,"634,34575-0553-64 ",.01)
  1. ;;34575-0553-64
  1. ;;9002226.02101,"634,34575-0553-64 ",.02)
  1. ;;34575-0553-64
  1. ;;9002226.02101,"634,35515-0953-30 ",.01)
  1. ;;35515-0953-30
  1. ;;9002226.02101,"634,35515-0953-30 ",.02)
  1. ;;35515-0953-30
  1. ;;9002226.02101,"634,37205-0194-62 ",.01)
  1. ;;37205-0194-62
  1. ;;9002226.02101,"634,37205-0194-62 ",.02)
  1. ;;37205-0194-62
  1. ;;9002226.02101,"634,41163-0024-73 ",.01)
  1. ;;41163-0024-73
  1. ;;9002226.02101,"634,41163-0024-73 ",.02)
  1. ;;41163-0024-73
  1. ;;9002226.02101,"634,41163-0256-74 ",.01)
  1. ;;41163-0256-74
  1. ;;9002226.02101,"634,41163-0256-74 ",.02)
  1. ;;41163-0256-74
  1. ;;9002226.02101,"634,41163-0265-45 ",.01)
  1. ;;41163-0265-45
  1. ;;9002226.02101,"634,41163-0265-45 ",.02)
  1. ;;41163-0265-45
  1. ;;9002226.02101,"634,41163-0431-62 ",.01)
  1. ;;41163-0431-62
  1. ;;9002226.02101,"634,41163-0431-62 ",.02)
  1. ;;41163-0431-62
  1. ;;9002226.02101,"634,41280-0220-68 ",.01)
  1. ;;41280-0220-68
  1. ;;9002226.02101,"634,41280-0220-68 ",.02)
  1. ;;41280-0220-68
  1. ;;9002226.02101,"634,43292-0557-19 ",.01)
  1. ;;43292-0557-19
  1. ;;9002226.02101,"634,43292-0557-19 ",.02)
  1. ;;43292-0557-19
  1. ;;9002226.02101,"634,43292-0557-65 ",.01)
  1. ;;43292-0557-65
  1. ;;9002226.02101,"634,43292-0557-65 ",.02)
  1. ;;43292-0557-65
  1. ;;9002226.02101,"634,43292-0557-78 ",.01)
  1. ;;43292-0557-78
  1. ;;9002226.02101,"634,43292-0557-78 ",.02)
  1. ;;43292-0557-78
  1. ;;9002226.02101,"634,44514-0557-25 ",.01)
  1. ;;44514-0557-25
  1. ;;9002226.02101,"634,44514-0557-25 ",.02)
  1. ;;44514-0557-25
  1. ;;9002226.02101,"634,44514-0558-25 ",.01)
  1. ;;44514-0558-25
  1. ;;9002226.02101,"634,44514-0558-25 ",.02)
  1. ;;44514-0558-25
  1. ;;9002226.02101,"634,46703-0091-05 ",.01)
  1. ;;46703-0091-05
  1. ;;9002226.02101,"634,46703-0091-05 ",.02)
  1. ;;46703-0091-05
  1. ;;9002226.02101,"634,46703-0103-05 ",.01)
  1. ;;46703-0103-05
  1. ;;9002226.02101,"634,46703-0103-05 ",.02)
  1. ;;46703-0103-05
  1. ;;9002226.02101,"634,48135-1685-50 ",.01)
  1. ;;48135-1685-50
  1. ;;9002226.02101,"634,48135-1685-50 ",.02)
  1. ;;48135-1685-50
  1. ;;9002226.02101,"634,49072-0717-10 ",.01)
  1. ;;49072-0717-10
  1. ;;9002226.02101,"634,49072-0717-10 ",.02)
  1. ;;49072-0717-10
  1. ;;9002226.02101,"634,49260-0502-33 ",.01)
  1. ;;49260-0502-33
  1. ;;9002226.02101,"634,49260-0502-33 ",.02)
  1. ;;49260-0502-33
  1. ;;9002226.02101,"634,49260-0502-92 ",.01)
  1. ;;49260-0502-92
  1. ;;9002226.02101,"634,49260-0502-92 ",.02)
  1. ;;49260-0502-92
  1. ;;9002226.02101,"634,49260-5023-03 ",.01)
  1. ;;49260-5023-03
  1. ;;9002226.02101,"634,49260-5023-03 ",.02)
  1. ;;49260-5023-03
  1. ;;9002226.02101,"634,49260-5029-02 ",.01)
  1. ;;49260-5029-02
  1. ;;9002226.02101,"634,49260-5029-02 ",.02)
  1. ;;49260-5029-02
  1. ;;9002226.02101,"634,49348-0074-03 ",.01)
  1. ;;49348-0074-03
  1. ;;9002226.02101,"634,49348-0074-03 ",.02)
  1. ;;49348-0074-03
  1. ;;9002226.02101,"634,49348-0074-06 ",.01)
  1. ;;49348-0074-06
  1. ;;9002226.02101,"634,49348-0074-06 ",.02)
  1. ;;49348-0074-06
  1. ;;9002226.02101,"634,49348-0471-04 ",.01)
  1. ;;49348-0471-04
  1. ;;9002226.02101,"634,49348-0471-04 ",.02)
  1. ;;49348-0471-04
  1. ;;9002226.02101,"634,49483-0021-01 ",.01)
  1. ;;49483-0021-01
  1. ;;9002226.02101,"634,49483-0021-01 ",.02)
  1. ;;49483-0021-01
  1. ;;9002226.02101,"634,49483-0021-10 ",.01)
  1. ;;49483-0021-10
  1. ;;9002226.02101,"634,49483-0021-10 ",.02)
  1. ;;49483-0021-10
  1. ;;9002226.02101,"634,49483-0022-01 ",.01)
  1. ;;49483-0022-01
  1. ;;9002226.02101,"634,49483-0022-01 ",.02)
  1. ;;49483-0022-01
  1. ;;9002226.02101,"634,49483-0022-10 ",.01)
  1. ;;49483-0022-10
  1. ;;9002226.02101,"634,49483-0022-10 ",.02)
  1. ;;49483-0022-10
  1. ;;9002226.02101,"634,49483-0023-01 ",.01)
  1. ;;49483-0023-01
  1. ;;9002226.02101,"634,49483-0023-01 ",.02)
  1. ;;49483-0023-01
  1. ;;9002226.02101,"634,49483-0023-10 ",.01)
  1. ;;49483-0023-10
  1. ;;9002226.02101,"634,49483-0023-10 ",.02)
  1. ;;49483-0023-10
  1. ;;9002226.02101,"634,49483-0038-01 ",.01)
  1. ;;49483-0038-01
  1. ;;9002226.02101,"634,49483-0038-01 ",.02)
  1. ;;49483-0038-01
  1. ;;9002226.02101,"634,49483-0038-10 ",.01)
  1. ;;49483-0038-10
  1. ;;9002226.02101,"634,49483-0038-10 ",.02)
  1. ;;49483-0038-10
  1. ;;9002226.02101,"634,49614-0132-62 ",.01)
  1. ;;49614-0132-62
  1. ;;9002226.02101,"634,49614-0132-62 ",.02)
  1. ;;49614-0132-62
  1. ;;9002226.02101,"634,49614-0143-56 ",.01)
  1. ;;49614-0143-56
  1. ;;9002226.02101,"634,49614-0143-56 ",.02)
  1. ;;49614-0143-56
  1. ;;9002226.02101,"634,49614-0146-62 ",.01)
  1. ;;49614-0146-62
  1. ;;9002226.02101,"634,49614-0146-62 ",.02)
  1. ;;49614-0146-62
  1. ;;9002226.02101,"634,49727-0417-02 ",.01)
  1. ;;49727-0417-02
  1. ;;9002226.02101,"634,49727-0417-02 ",.02)
  1. ;;49727-0417-02
  1. ;;9002226.02101,"634,49727-0417-04 ",.01)
  1. ;;49727-0417-04
  1. ;;9002226.02101,"634,49727-0417-04 ",.02)
  1. ;;49727-0417-04
  1. ;;9002226.02101,"634,49727-0418-02 ",.01)
  1. ;;49727-0418-02
  1. ;;9002226.02101,"634,49727-0418-02 ",.02)
  1. ;;49727-0418-02
  1. ;;9002226.02101,"634,49727-0418-04 ",.01)
  1. ;;49727-0418-04
  1. ;;9002226.02101,"634,49727-0418-04 ",.02)
  1. ;;49727-0418-04
  1. ;;9002226.02101,"634,49727-0750-10 ",.01)
  1. ;;49727-0750-10
  1. ;;9002226.02101,"634,49727-0750-10 ",.02)
  1. ;;49727-0750-10
  1. ;;9002226.02101,"634,49727-0752-10 ",.01)
  1. ;;49727-0752-10
  1. ;;9002226.02101,"634,49727-0752-10 ",.02)
  1. ;;49727-0752-10
  1. ;;9002226.02101,"634,49727-0762-10 ",.01)
  1. ;;49727-0762-10
  1. ;;9002226.02101,"634,49727-0762-10 ",.02)
  1. ;;49727-0762-10
  1. ;;9002226.02101,"634,49999-0034-01 ",.01)
  1. ;;49999-0034-01
  1. ;;9002226.02101,"634,49999-0034-01 ",.02)
  1. ;;49999-0034-01
  1. ;;9002226.02101,"634,49999-0034-07 ",.01)
  1. ;;49999-0034-07
  1. ;;9002226.02101,"634,49999-0034-07 ",.02)
  1. ;;49999-0034-07
  1. ;;9002226.02101,"634,49999-0034-12 ",.01)
  1. ;;49999-0034-12
  1. ;;9002226.02101,"634,49999-0034-12 ",.02)
  1. ;;49999-0034-12
  1. ;;9002226.02101,"634,49999-0034-15 ",.01)
  1. ;;49999-0034-15
  1. ;;9002226.02101,"634,49999-0034-15 ",.02)
  1. ;;49999-0034-15
  1. ;;9002226.02101,"634,49999-0034-20 ",.01)
  1. ;;49999-0034-20
  1. ;;9002226.02101,"634,49999-0034-20 ",.02)
  1. ;;49999-0034-20
  1. ;;9002226.02101,"634,49999-0034-21 ",.01)
  1. ;;49999-0034-21
  1. ;;9002226.02101,"634,49999-0034-21 ",.02)
  1. ;;49999-0034-21
  1. ;;9002226.02101,"634,49999-0034-30 ",.01)
  1. ;;49999-0034-30
  1. ;;9002226.02101,"634,49999-0034-30 ",.02)
  1. ;;49999-0034-30
  1. ;;9002226.02101,"634,49999-0048-30 ",.01)
  1. ;;49999-0048-30
  1. ;;9002226.02101,"634,49999-0048-30 ",.02)
  1. ;;49999-0048-30
  1. ;;9002226.02101,"634,49999-0065-12 ",.01)
  1. ;;49999-0065-12
  1. ;;9002226.02101,"634,49999-0065-12 ",.02)
  1. ;;49999-0065-12
  1. ;;9002226.02101,"634,50428-1557-56 ",.01)
  1. ;;50428-1557-56
  1. ;;9002226.02101,"634,50428-1557-56 ",.02)
  1. ;;50428-1557-56
  1. ;;9002226.02101,"634,50428-2096-50 ",.01)
  1. ;;50428-2096-50
  1. ;;9002226.02101,"634,50428-2096-50 ",.02)
  1. ;;50428-2096-50
  1. ;;9002226.02101,"634,50428-2325-67 ",.01)
  1. ;;50428-2325-67
  1. ;;9002226.02101,"634,50428-2325-67 ",.02)
  1. ;;50428-2325-67