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

BGP7LXJC.m

Go to the documentation of this file.
  1. BGP7LXJC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 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,"627,00686-0112-09 ",.02)
  1. ;;00686-0112-09
  1. ;;9002226.02101,"627,00839-1545-06 ",.01)
  1. ;;00839-1545-06
  1. ;;9002226.02101,"627,00839-1545-06 ",.02)
  1. ;;00839-1545-06
  1. ;;9002226.02101,"627,00839-5100-06 ",.01)
  1. ;;00839-5100-06
  1. ;;9002226.02101,"627,00839-5100-06 ",.02)
  1. ;;00839-5100-06
  1. ;;9002226.02101,"627,00839-5100-16 ",.01)
  1. ;;00839-5100-16
  1. ;;9002226.02101,"627,00839-5100-16 ",.02)
  1. ;;00839-5100-16
  1. ;;9002226.02101,"627,00839-7056-65 ",.01)
  1. ;;00839-7056-65
  1. ;;9002226.02101,"627,00839-7056-65 ",.02)
  1. ;;00839-7056-65
  1. ;;9002226.02101,"627,00839-7664-92 ",.01)
  1. ;;00839-7664-92
  1. ;;9002226.02101,"627,00839-7664-92 ",.02)
  1. ;;00839-7664-92
  1. ;;9002226.02101,"627,00904-0193-60 ",.01)
  1. ;;00904-0193-60
  1. ;;9002226.02101,"627,00904-0193-60 ",.02)
  1. ;;00904-0193-60
  1. ;;9002226.02101,"627,00904-0193-61 ",.01)
  1. ;;00904-0193-61
  1. ;;9002226.02101,"627,00904-0193-61 ",.02)
  1. ;;00904-0193-61
  1. ;;9002226.02101,"627,00904-0193-70 ",.01)
  1. ;;00904-0193-70
  1. ;;9002226.02101,"627,00904-0193-70 ",.02)
  1. ;;00904-0193-70
  1. ;;9002226.02101,"627,00904-0193-80 ",.01)
  1. ;;00904-0193-80
  1. ;;9002226.02101,"627,00904-0193-80 ",.02)
  1. ;;00904-0193-80
  1. ;;9002226.02101,"627,00904-0195-60 ",.01)
  1. ;;00904-0195-60
  1. ;;9002226.02101,"627,00904-0195-60 ",.02)
  1. ;;00904-0195-60
  1. ;;9002226.02101,"627,00904-0195-61 ",.01)
  1. ;;00904-0195-61
  1. ;;9002226.02101,"627,00904-0195-61 ",.02)
  1. ;;00904-0195-61
  1. ;;9002226.02101,"627,00904-0195-70 ",.01)
  1. ;;00904-0195-70
  1. ;;9002226.02101,"627,00904-0195-70 ",.02)
  1. ;;00904-0195-70
  1. ;;9002226.02101,"627,00904-0195-80 ",.01)
  1. ;;00904-0195-80
  1. ;;9002226.02101,"627,00904-0195-80 ",.02)
  1. ;;00904-0195-80
  1. ;;9002226.02101,"627,00904-1751-12 ",.01)
  1. ;;00904-1751-12
  1. ;;9002226.02101,"627,00904-1751-12 ",.02)
  1. ;;00904-1751-12
  1. ;;9002226.02101,"627,00904-2344-40 ",.01)
  1. ;;00904-2344-40
  1. ;;9002226.02101,"627,00904-2344-40 ",.02)
  1. ;;00904-2344-40
  1. ;;9002226.02101,"627,00904-2344-60 ",.01)
  1. ;;00904-2344-60
  1. ;;9002226.02101,"627,00904-2344-60 ",.02)
  1. ;;00904-2344-60
  1. ;;9002226.02101,"627,00904-2695-15 ",.01)
  1. ;;00904-2695-15
  1. ;;9002226.02101,"627,00904-2695-15 ",.02)
  1. ;;00904-2695-15
  1. ;;9002226.02101,"627,00904-5240-80 ",.01)
  1. ;;00904-5240-80
  1. ;;9002226.02101,"627,00904-5240-80 ",.02)
  1. ;;00904-5240-80
  1. ;;9002226.02101,"627,00904-5241-80 ",.01)
  1. ;;00904-5241-80
  1. ;;9002226.02101,"627,00904-5241-80 ",.02)
  1. ;;00904-5241-80
  1. ;;9002226.02101,"627,00904-5242-80 ",.01)
  1. ;;00904-5242-80
  1. ;;9002226.02101,"627,00904-5242-80 ",.02)
  1. ;;00904-5242-80
  1. ;;9002226.02101,"627,00904-5384-12 ",.01)
  1. ;;00904-5384-12
  1. ;;9002226.02101,"627,00904-5384-12 ",.02)
  1. ;;00904-5384-12
  1. ;;9002226.02101,"627,00904-7896-60 ",.01)
  1. ;;00904-7896-60
  1. ;;9002226.02101,"627,00904-7896-60 ",.02)
  1. ;;00904-7896-60
  1. ;;9002226.02101,"627,00904-7896-80 ",.01)
  1. ;;00904-7896-80
  1. ;;9002226.02101,"627,00904-7896-80 ",.02)
  1. ;;00904-7896-80
  1. ;;9002226.02101,"627,10960-0040-16 ",.01)
  1. ;;10960-0040-16
  1. ;;9002226.02101,"627,10960-0040-16 ",.02)
  1. ;;10960-0040-16
  1. ;;9002226.02101,"627,10960-0040-32 ",.01)
  1. ;;10960-0040-32
  1. ;;9002226.02101,"627,10960-0040-32 ",.02)
  1. ;;10960-0040-32
  1. ;;9002226.02101,"627,11845-0288-04 ",.01)
  1. ;;11845-0288-04
  1. ;;9002226.02101,"627,11845-0288-04 ",.02)
  1. ;;11845-0288-04
  1. ;;9002226.02101,"627,11845-0289-01 ",.01)
  1. ;;11845-0289-01
  1. ;;9002226.02101,"627,11845-0289-01 ",.02)
  1. ;;11845-0289-01
  1. ;;9002226.02101,"627,11845-0289-04 ",.01)
  1. ;;11845-0289-04
  1. ;;9002226.02101,"627,11845-0289-04 ",.02)
  1. ;;11845-0289-04
  1. ;;9002226.02101,"627,11845-0290-01 ",.01)
  1. ;;11845-0290-01
  1. ;;9002226.02101,"627,11845-0290-01 ",.02)
  1. ;;11845-0290-01
  1. ;;9002226.02101,"627,11845-0290-04 ",.01)
  1. ;;11845-0290-04
  1. ;;9002226.02101,"627,11845-0290-04 ",.02)
  1. ;;11845-0290-04
  1. ;;9002226.02101,"627,12547-0170-27 ",.01)
  1. ;;12547-0170-27
  1. ;;9002226.02101,"627,12547-0170-27 ",.02)
  1. ;;12547-0170-27
  1. ;;9002226.02101,"627,12547-0175-19 ",.01)
  1. ;;12547-0175-19
  1. ;;9002226.02101,"627,12547-0175-19 ",.02)
  1. ;;12547-0175-19
  1. ;;9002226.02101,"627,19458-9055-01 ",.01)
  1. ;;19458-9055-01
  1. ;;9002226.02101,"627,19458-9055-01 ",.02)
  1. ;;19458-9055-01
  1. ;;9002226.02101,"627,23513-0607-24 ",.01)
  1. ;;23513-0607-24
  1. ;;9002226.02101,"627,23513-0607-24 ",.02)
  1. ;;23513-0607-24
  1. ;;9002226.02101,"627,23513-0607-48 ",.01)
  1. ;;23513-0607-48
  1. ;;9002226.02101,"627,23513-0607-48 ",.02)
  1. ;;23513-0607-48
  1. ;;9002226.02101,"627,34575-0990-09 ",.01)
  1. ;;34575-0990-09
  1. ;;9002226.02101,"627,34575-0990-09 ",.02)
  1. ;;34575-0990-09
  1. ;;9002226.02101,"627,35515-0951-08 ",.01)
  1. ;;35515-0951-08
  1. ;;9002226.02101,"627,35515-0951-08 ",.02)
  1. ;;35515-0951-08
  1. ;;9002226.02101,"627,38245-0609-14 ",.01)
  1. ;;38245-0609-14
  1. ;;9002226.02101,"627,38245-0609-14 ",.02)
  1. ;;38245-0609-14
  1. ;;9002226.02101,"627,47682-0835-50 ",.01)
  1. ;;47682-0835-50
  1. ;;9002226.02101,"627,47682-0835-50 ",.02)
  1. ;;47682-0835-50
  1. ;;9002226.02101,"627,49727-0054-05 ",.01)
  1. ;;49727-0054-05
  1. ;;9002226.02101,"627,49727-0054-05 ",.02)
  1. ;;49727-0054-05
  1. ;;9002226.02101,"627,49884-0096-01 ",.01)
  1. ;;49884-0096-01
  1. ;;9002226.02101,"627,49884-0096-01 ",.02)
  1. ;;49884-0096-01
  1. ;;9002226.02101,"627,49884-0096-05 ",.01)
  1. ;;49884-0096-05
  1. ;;9002226.02101,"627,49884-0096-05 ",.02)
  1. ;;49884-0096-05
  1. ;;9002226.02101,"627,49884-0096-10 ",.01)
  1. ;;49884-0096-10
  1. ;;9002226.02101,"627,49884-0096-10 ",.02)
  1. ;;49884-0096-10
  1. ;;9002226.02101,"627,49884-0098-01 ",.01)
  1. ;;49884-0098-01
  1. ;;9002226.02101,"627,49884-0098-01 ",.02)
  1. ;;49884-0098-01
  1. ;;9002226.02101,"627,49884-0098-05 ",.01)
  1. ;;49884-0098-05
  1. ;;9002226.02101,"627,49884-0098-05 ",.02)
  1. ;;49884-0098-05
  1. ;;9002226.02101,"627,49884-0098-10 ",.01)
  1. ;;49884-0098-10
  1. ;;9002226.02101,"627,49884-0098-10 ",.02)
  1. ;;49884-0098-10
  1. ;;9002226.02101,"627,49884-0099-01 ",.01)
  1. ;;49884-0099-01
  1. ;;9002226.02101,"627,49884-0099-01 ",.02)
  1. ;;49884-0099-01
  1. ;;9002226.02101,"627,49884-0099-05 ",.01)
  1. ;;49884-0099-05
  1. ;;9002226.02101,"627,49884-0099-05 ",.02)
  1. ;;49884-0099-05
  1. ;;9002226.02101,"627,49884-0099-10 ",.01)
  1. ;;49884-0099-10
  1. ;;9002226.02101,"627,49884-0099-10 ",.02)
  1. ;;49884-0099-10
  1. ;;9002226.02101,"627,49884-0118-01 ",.01)
  1. ;;49884-0118-01
  1. ;;9002226.02101,"627,49884-0118-01 ",.02)
  1. ;;49884-0118-01
  1. ;;9002226.02101,"627,49884-0118-05 ",.01)
  1. ;;49884-0118-05
  1. ;;9002226.02101,"627,49884-0118-05 ",.02)
  1. ;;49884-0118-05
  1. ;;9002226.02101,"627,49999-0081-20 ",.01)
  1. ;;49999-0081-20
  1. ;;9002226.02101,"627,49999-0081-20 ",.02)
  1. ;;49999-0081-20
  1. ;;9002226.02101,"627,50383-0039-04 ",.01)
  1. ;;50383-0039-04
  1. ;;9002226.02101,"627,50383-0039-04 ",.02)
  1. ;;50383-0039-04
  1. ;;9002226.02101,"627,51079-0118-20 ",.01)
  1. ;;51079-0118-20
  1. ;;9002226.02101,"627,51079-0118-20 ",.02)
  1. ;;51079-0118-20
  1. ;;9002226.02101,"627,51079-0119-20 ",.01)
  1. ;;51079-0119-20
  1. ;;9002226.02101,"627,51079-0119-20 ",.02)
  1. ;;51079-0119-20
  1. ;;9002226.02101,"627,51079-0565-17 ",.01)
  1. ;;51079-0565-17
  1. ;;9002226.02101,"627,51079-0565-17 ",.02)
  1. ;;51079-0565-17
  1. ;;9002226.02101,"627,51432-0917-03 ",.01)
  1. ;;51432-0917-03
  1. ;;9002226.02101,"627,51432-0917-03 ",.02)
  1. ;;51432-0917-03
  1. ;;9002226.02101,"627,51432-0917-06 ",.01)
  1. ;;51432-0917-06
  1. ;;9002226.02101,"627,51432-0917-06 ",.02)
  1. ;;51432-0917-06
  1. ;;9002226.02101,"627,51432-0918-03 ",.01)
  1. ;;51432-0918-03
  1. ;;9002226.02101,"627,51432-0918-03 ",.02)
  1. ;;51432-0918-03
  1. ;;9002226.02101,"627,51432-0918-06 ",.01)
  1. ;;51432-0918-06
  1. ;;9002226.02101,"627,51432-0918-06 ",.02)
  1. ;;51432-0918-06
  1. ;;9002226.02101,"627,51432-0919-03 ",.01)
  1. ;;51432-0919-03
  1. ;;9002226.02101,"627,51432-0919-03 ",.02)
  1. ;;51432-0919-03
  1. ;;9002226.02101,"627,51432-0919-06 ",.01)
  1. ;;51432-0919-06
  1. ;;9002226.02101,"627,51432-0919-06 ",.02)
  1. ;;51432-0919-06
  1. ;;9002226.02101,"627,51432-0954-18 ",.01)
  1. ;;51432-0954-18
  1. ;;9002226.02101,"627,51432-0954-18 ",.02)
  1. ;;51432-0954-18
  1. ;;9002226.02101,"627,51432-0955-18 ",.01)
  1. ;;51432-0955-18
  1. ;;9002226.02101,"627,51432-0955-18 ",.02)
  1. ;;51432-0955-18
  1. ;;9002226.02101,"627,51655-0216-25 ",.01)
  1. ;;51655-0216-25
  1. ;;9002226.02101,"627,51655-0216-25 ",.02)
  1. ;;51655-0216-25
  1. ;;9002226.02101,"627,51655-0217-25 ",.01)
  1. ;;51655-0217-25
  1. ;;9002226.02101,"627,51655-0217-25 ",.02)
  1. ;;51655-0217-25
  1. ;;9002226.02101,"627,51655-0512-87 ",.01)
  1. ;;51655-0512-87
  1. ;;9002226.02101,"627,51655-0512-87 ",.02)
  1. ;;51655-0512-87
  1. ;;9002226.02101,"627,51991-0085-90 ",.01)
  1. ;;51991-0085-90
  1. ;;9002226.02101,"627,51991-0085-90 ",.02)
  1. ;;51991-0085-90
  1. ;;9002226.02101,"627,52544-0794-01 ",.01)
  1. ;;52544-0794-01
  1. ;;9002226.02101,"627,52544-0794-01 ",.02)
  1. ;;52544-0794-01
  1. ;;9002226.02101,"627,52544-0794-10 ",.01)
  1. ;;52544-0794-10
  1. ;;9002226.02101,"627,52544-0794-10 ",.02)
  1. ;;52544-0794-10
  1. ;;9002226.02101,"627,52544-0795-01 ",.01)
  1. ;;52544-0795-01
  1. ;;9002226.02101,"627,52544-0795-01 ",.02)
  1. ;;52544-0795-01
  1. ;;9002226.02101,"627,52544-0795-10 ",.01)
  1. ;;52544-0795-10
  1. ;;9002226.02101,"627,52544-0795-10 ",.02)
  1. ;;52544-0795-10
  1. ;;9002226.02101,"627,52555-0096-01 ",.01)
  1. ;;52555-0096-01
  1. ;;9002226.02101,"627,52555-0096-01 ",.02)
  1. ;;52555-0096-01
  1. ;;9002226.02101,"627,52555-0096-10 ",.01)
  1. ;;52555-0096-10
  1. ;;9002226.02101,"627,52555-0096-10 ",.02)
  1. ;;52555-0096-10
  1. ;;9002226.02101,"627,52555-0098-01 ",.01)
  1. ;;52555-0098-01
  1. ;;9002226.02101,"627,52555-0098-01 ",.02)
  1. ;;52555-0098-01
  1. ;;9002226.02101,"627,52555-0098-10 ",.01)
  1. ;;52555-0098-10
  1. ;;9002226.02101,"627,52555-0098-10 ",.02)
  1. ;;52555-0098-10
  1. ;;9002226.02101,"627,52555-0099-01 ",.01)
  1. ;;52555-0099-01
  1. ;;9002226.02101,"627,52555-0099-01 ",.02)
  1. ;;52555-0099-01
  1. ;;9002226.02101,"627,52555-0099-10 ",.01)
  1. ;;52555-0099-10
  1. ;;9002226.02101,"627,52555-0099-10 ",.02)
  1. ;;52555-0099-10
  1. ;;9002226.02101,"627,52959-0168-30 ",.01)
  1. ;;52959-0168-30
  1. ;;9002226.02101,"627,52959-0168-30 ",.02)
  1. ;;52959-0168-30
  1. ;;9002226.02101,"627,52959-0221-20 ",.01)
  1. ;;52959-0221-20
  1. ;;9002226.02101,"627,52959-0221-20 ",.02)
  1. ;;52959-0221-20
  1. ;;9002226.02101,"627,52959-0221-30 ",.01)
  1. ;;52959-0221-30
  1. ;;9002226.02101,"627,52959-0221-30 ",.02)
  1. ;;52959-0221-30
  1. ;;9002226.02101,"627,52959-0390-30 ",.01)
  1. ;;52959-0390-30
  1. ;;9002226.02101,"627,52959-0390-30 ",.02)
  1. ;;52959-0390-30
  1. ;;9002226.02101,"627,53445-1637-00 ",.01)
  1. ;;53445-1637-00
  1. ;;9002226.02101,"627,53445-1637-00 ",.02)
  1. ;;53445-1637-00
  1. ;;9002226.02101,"627,53445-1638-00 ",.01)
  1. ;;53445-1638-00
  1. ;;9002226.02101,"627,53445-1638-00 ",.02)
  1. ;;53445-1638-00
  1. ;;9002226.02101,"627,53445-1639-01 ",.01)
  1. ;;53445-1639-01
  1. ;;9002226.02101,"627,53445-1639-01 ",.02)
  1. ;;53445-1639-01
  1. ;;9002226.02101,"627,53633-0096-01 ",.01)
  1. ;;53633-0096-01
  1. ;;9002226.02101,"627,53633-0096-01 ",.02)
  1. ;;53633-0096-01
  1. ;;9002226.02101,"627,53633-0096-10 ",.01)
  1. ;;53633-0096-10
  1. ;;9002226.02101,"627,53633-0096-10 ",.02)
  1. ;;53633-0096-10
  1. ;;9002226.02101,"627,53633-0096-11 ",.01)
  1. ;;53633-0096-11
  1. ;;9002226.02101,"627,53633-0096-11 ",.02)
  1. ;;53633-0096-11
  1. ;;9002226.02101,"627,53633-0098-01 ",.01)
  1. ;;53633-0098-01
  1. ;;9002226.02101,"627,53633-0098-01 ",.02)
  1. ;;53633-0098-01
  1. ;;9002226.02101,"627,53633-0098-10 ",.01)
  1. ;;53633-0098-10
  1. ;;9002226.02101,"627,53633-0098-10 ",.02)
  1. ;;53633-0098-10
  1. ;;9002226.02101,"627,53633-0098-11 ",.01)
  1. ;;53633-0098-11
  1. ;;9002226.02101,"627,53633-0098-11 ",.02)
  1. ;;53633-0098-11
  1. ;;9002226.02101,"627,53633-0099-01 ",.01)
  1. ;;53633-0099-01
  1. ;;9002226.02101,"627,53633-0099-01 ",.02)
  1. ;;53633-0099-01
  1. ;;9002226.02101,"627,53633-0099-10 ",.01)
  1. ;;53633-0099-10
  1. ;;9002226.02101,"627,53633-0099-10 ",.02)
  1. ;;53633-0099-10
  1. ;;9002226.02101,"627,53633-0099-11 ",.01)
  1. ;;53633-0099-11
  1. ;;9002226.02101,"627,53633-0099-11 ",.02)
  1. ;;53633-0099-11
  1. ;;9002226.02101,"627,54092-0073-01 ",.01)
  1. ;;54092-0073-01
  1. ;;9002226.02101,"627,54092-0073-01 ",.02)
  1. ;;54092-0073-01
  1. ;;9002226.02101,"627,54092-0074-01 ",.01)
  1. ;;54092-0074-01
  1. ;;9002226.02101,"627,54092-0074-01 ",.02)
  1. ;;54092-0074-01
  1. ;;9002226.02101,"627,54092-0074-05 ",.01)
  1. ;;54092-0074-05
  1. ;;9002226.02101,"627,54092-0074-05 ",.02)
  1. ;;54092-0074-05
  1. ;;9002226.02101,"627,54092-0074-52 ",.01)
  1. ;;54092-0074-52
  1. ;;9002226.02101,"627,54092-0074-52 ",.02)
  1. ;;54092-0074-52
  1. ;;9002226.02101,"627,54252-0110-01 ",.01)
  1. ;;54252-0110-01
  1. ;;9002226.02101,"627,54252-0110-01 ",.02)
  1. ;;54252-0110-01
  1. ;;9002226.02101,"627,54252-0111-01 ",.01)
  1. ;;54252-0111-01
  1. ;;9002226.02101,"627,54252-0111-01 ",.02)
  1. ;;54252-0111-01
  1. ;;9002226.02101,"627,54274-0416-50 ",.01)
  1. ;;54274-0416-50
  1. ;;9002226.02101,"627,54274-0416-50 ",.02)
  1. ;;54274-0416-50
  1. ;;9002226.02101,"627,54274-0417-10 ",.01)
  1. ;;54274-0417-10
  1. ;;9002226.02101,"627,54274-0417-10 ",.02)
  1. ;;54274-0417-10
  1. ;;9002226.02101,"627,54274-0417-50 ",.01)
  1. ;;54274-0417-50
  1. ;;9002226.02101,"627,54274-0417-50 ",.02)
  1. ;;54274-0417-50
  1. ;;9002226.02101,"627,54274-0418-10 ",.01)
  1. ;;54274-0418-10
  1. ;;9002226.02101,"627,54274-0418-10 ",.02)
  1. ;;54274-0418-10
  1. ;;9002226.02101,"627,54274-0418-50 ",.01)
  1. ;;54274-0418-50
  1. ;;9002226.02101,"627,54274-0418-50 ",.02)
  1. ;;54274-0418-50
  1. ;;9002226.02101,"627,54274-0940-09 ",.01)
  1. ;;54274-0940-09
  1. ;;9002226.02101,"627,54274-0940-09 ",.02)
  1. ;;54274-0940-09
  1. ;;9002226.02101,"627,54569-0417-00 ",.01)
  1. ;;54569-0417-00
  1. ;;9002226.02101,"627,54569-0417-00 ",.02)
  1. ;;54569-0417-00
  1. ;;9002226.02101,"627,54569-0417-02 ",.01)
  1. ;;54569-0417-02
  1. ;;9002226.02101,"627,54569-0417-02 ",.02)
  1. ;;54569-0417-02
  1. ;;9002226.02101,"627,54569-0417-03 ",.01)
  1. ;;54569-0417-03
  1. ;;9002226.02101,"627,54569-0417-03 ",.02)
  1. ;;54569-0417-03
  1. ;;9002226.02101,"627,54569-0417-04 ",.01)
  1. ;;54569-0417-04
  1. ;;9002226.02101,"627,54569-0417-04 ",.02)
  1. ;;54569-0417-04
  1. ;;9002226.02101,"627,54569-0417-06 ",.01)
  1. ;;54569-0417-06