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