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

BGP7LXGJ.m

Go to the documentation of this file.
BGP7LXGJ ; 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,"624,00904-3903-80 ",.02)
 ;;00904-3903-80
 ;;9002226.02101,"624,00906-5339-01 ",.01)
 ;;00906-5339-01
 ;;9002226.02101,"624,00906-5339-01 ",.02)
 ;;00906-5339-01
 ;;9002226.02101,"624,00906-5339-30 ",.01)
 ;;00906-5339-30
 ;;9002226.02101,"624,00906-5339-30 ",.02)
 ;;00906-5339-30
 ;;9002226.02101,"624,00998-2260-10 ",.01)
 ;;00998-2260-10
 ;;9002226.02101,"624,00998-2260-10 ",.02)
 ;;00998-2260-10
 ;;9002226.02101,"624,10019-0004-44 ",.01)
 ;;10019-0004-44
 ;;9002226.02101,"624,10019-0004-44 ",.02)
 ;;10019-0004-44
 ;;9002226.02101,"624,10019-0005-42 ",.01)
 ;;10019-0005-42
 ;;9002226.02101,"624,10019-0005-42 ",.02)
 ;;10019-0005-42
 ;;9002226.02101,"624,10019-0005-67 ",.01)
 ;;10019-0005-67
 ;;9002226.02101,"624,10019-0005-67 ",.02)
 ;;10019-0005-67
 ;;9002226.02101,"624,11845-0291-01 ",.01)
 ;;11845-0291-01
 ;;9002226.02101,"624,11845-0291-01 ",.02)
 ;;11845-0291-01
 ;;9002226.02101,"624,11845-0291-04 ",.01)
 ;;11845-0291-04
 ;;9002226.02101,"624,11845-0291-04 ",.02)
 ;;11845-0291-04
 ;;9002226.02101,"624,11845-0292-01 ",.01)
 ;;11845-0292-01
 ;;9002226.02101,"624,11845-0292-01 ",.02)
 ;;11845-0292-01
 ;;9002226.02101,"624,11845-0293-01 ",.01)
 ;;11845-0293-01
 ;;9002226.02101,"624,11845-0293-01 ",.02)
 ;;11845-0293-01
 ;;9002226.02101,"624,11845-0411-00 ",.01)
 ;;11845-0411-00
 ;;9002226.02101,"624,11845-0411-00 ",.02)
 ;;11845-0411-00
 ;;9002226.02101,"624,11845-0411-01 ",.01)
 ;;11845-0411-01
 ;;9002226.02101,"624,11845-0411-01 ",.02)
 ;;11845-0411-01
 ;;9002226.02101,"624,12280-0006-00 ",.01)
 ;;12280-0006-00
 ;;9002226.02101,"624,12280-0006-00 ",.02)
 ;;12280-0006-00
 ;;9002226.02101,"624,12908-7006-01 ",.01)
 ;;12908-7006-01
 ;;9002226.02101,"624,12908-7006-01 ",.02)
 ;;12908-7006-01
 ;;9002226.02101,"624,12908-7006-02 ",.01)
 ;;12908-7006-02
 ;;9002226.02101,"624,12908-7006-02 ",.02)
 ;;12908-7006-02
 ;;9002226.02101,"624,17022-0679-06 ",.01)
 ;;17022-0679-06
 ;;9002226.02101,"624,17022-0679-06 ",.02)
 ;;17022-0679-06
 ;;9002226.02101,"624,17022-1085-07 ",.01)
 ;;17022-1085-07
 ;;9002226.02101,"624,17022-1085-07 ",.02)
 ;;17022-1085-07
 ;;9002226.02101,"624,17022-1106-05 ",.01)
 ;;17022-1106-05
 ;;9002226.02101,"624,17022-1106-05 ",.02)
 ;;17022-1106-05
 ;;9002226.02101,"624,17022-1414-06 ",.01)
 ;;17022-1414-06
 ;;9002226.02101,"624,17022-1414-06 ",.02)
 ;;17022-1414-06
 ;;9002226.02101,"624,17022-1446-03 ",.01)
 ;;17022-1446-03
 ;;9002226.02101,"624,17022-1446-03 ",.02)
 ;;17022-1446-03
 ;;9002226.02101,"624,17022-1446-07 ",.01)
 ;;17022-1446-07
 ;;9002226.02101,"624,17022-1446-07 ",.02)
 ;;17022-1446-07
 ;;9002226.02101,"624,17022-1446-09 ",.01)
 ;;17022-1446-09
 ;;9002226.02101,"624,17022-1446-09 ",.02)
 ;;17022-1446-09
 ;;9002226.02101,"624,17022-1761-09 ",.01)
 ;;17022-1761-09
 ;;9002226.02101,"624,17022-1761-09 ",.02)
 ;;17022-1761-09
 ;;9002226.02101,"624,17022-1771-06 ",.01)
 ;;17022-1771-06
 ;;9002226.02101,"624,17022-1771-06 ",.02)
 ;;17022-1771-06
 ;;9002226.02101,"624,17022-3063-09 ",.01)
 ;;17022-3063-09
 ;;9002226.02101,"624,17022-3063-09 ",.02)
 ;;17022-3063-09
 ;;9002226.02101,"624,17022-6727-06 ",.01)
 ;;17022-6727-06
 ;;9002226.02101,"624,17022-6727-06 ",.02)
 ;;17022-6727-06
 ;;9002226.02101,"624,17022-6748-06 ",.01)
 ;;17022-6748-06
 ;;9002226.02101,"624,17022-6748-06 ",.02)
 ;;17022-6748-06
 ;;9002226.02101,"624,17022-6749-06 ",.01)
 ;;17022-6749-06
 ;;9002226.02101,"624,17022-6749-06 ",.02)
 ;;17022-6749-06
 ;;9002226.02101,"624,17022-6750-06 ",.01)
 ;;17022-6750-06
 ;;9002226.02101,"624,17022-6750-06 ",.02)
 ;;17022-6750-06
 ;;9002226.02101,"624,17224-0507-10 ",.01)
 ;;17224-0507-10
 ;;9002226.02101,"624,17224-0507-10 ",.02)
 ;;17224-0507-10
 ;;9002226.02101,"624,17224-0803-10 ",.01)
 ;;17224-0803-10
 ;;9002226.02101,"624,17224-0803-10 ",.02)
 ;;17224-0803-10
 ;;9002226.02101,"624,17236-0104-10 ",.01)
 ;;17236-0104-10
 ;;9002226.02101,"624,17236-0104-10 ",.02)
 ;;17236-0104-10
 ;;9002226.02101,"624,17236-0112-01 ",.01)
 ;;17236-0112-01
 ;;9002226.02101,"624,17236-0112-01 ",.02)
 ;;17236-0112-01
 ;;9002226.02101,"624,17236-0112-10 ",.01)
 ;;17236-0112-10
 ;;9002226.02101,"624,17236-0112-10 ",.02)
 ;;17236-0112-10
 ;;9002226.02101,"624,17236-0248-10 ",.01)
 ;;17236-0248-10
 ;;9002226.02101,"624,17236-0248-10 ",.02)
 ;;17236-0248-10
 ;;9002226.02101,"624,17236-0248-50 ",.01)
 ;;17236-0248-50
 ;;9002226.02101,"624,17236-0248-50 ",.02)
 ;;17236-0248-50
 ;;9002226.02101,"624,17236-0250-10 ",.01)
 ;;17236-0250-10
 ;;9002226.02101,"624,17236-0250-10 ",.02)
 ;;17236-0250-10
 ;;9002226.02101,"624,17236-0250-50 ",.01)
 ;;17236-0250-50
 ;;9002226.02101,"624,17236-0250-50 ",.02)
 ;;17236-0250-50
 ;;9002226.02101,"624,17236-0251-10 ",.01)
 ;;17236-0251-10
 ;;9002226.02101,"624,17236-0251-10 ",.02)
 ;;17236-0251-10
 ;;9002226.02101,"624,17236-0252-10 ",.01)
 ;;17236-0252-10
 ;;9002226.02101,"624,17236-0252-10 ",.02)
 ;;17236-0252-10
 ;;9002226.02101,"624,17236-0439-01 ",.01)
 ;;17236-0439-01
 ;;9002226.02101,"624,17236-0439-01 ",.02)
 ;;17236-0439-01
 ;;9002226.02101,"624,17236-0476-01 ",.01)
 ;;17236-0476-01
 ;;9002226.02101,"624,17236-0476-01 ",.02)
 ;;17236-0476-01
 ;;9002226.02101,"624,17236-0724-16 ",.01)
 ;;17236-0724-16
 ;;9002226.02101,"624,17236-0724-16 ",.02)
 ;;17236-0724-16
 ;;9002226.02101,"624,17236-0724-28 ",.01)
 ;;17236-0724-28
 ;;9002226.02101,"624,17236-0724-28 ",.02)
 ;;17236-0724-28
 ;;9002226.02101,"624,17236-0756-16 ",.01)
 ;;17236-0756-16
 ;;9002226.02101,"624,17236-0756-16 ",.02)
 ;;17236-0756-16
 ;;9002226.02101,"624,17236-0756-28 ",.01)
 ;;17236-0756-28
 ;;9002226.02101,"624,17236-0756-28 ",.02)
 ;;17236-0756-28
 ;;9002226.02101,"624,17236-0802-16 ",.01)
 ;;17236-0802-16
 ;;9002226.02101,"624,17236-0802-16 ",.02)
 ;;17236-0802-16
 ;;9002226.02101,"624,17236-0802-28 ",.01)
 ;;17236-0802-28
 ;;9002226.02101,"624,17236-0802-28 ",.02)
 ;;17236-0802-28
 ;;9002226.02101,"624,17236-0907-10 ",.01)
 ;;17236-0907-10
 ;;9002226.02101,"624,17236-0907-10 ",.02)
 ;;17236-0907-10
 ;;9002226.02101,"624,17236-0908-10 ",.01)
 ;;17236-0908-10
 ;;9002226.02101,"624,17236-0908-10 ",.02)
 ;;17236-0908-10
 ;;9002226.02101,"624,17236-0924-11 ",.01)
 ;;17236-0924-11
 ;;9002226.02101,"624,17236-0924-11 ",.02)
 ;;17236-0924-11
 ;;9002226.02101,"624,43797-0007-03 ",.01)
 ;;43797-0007-03
 ;;9002226.02101,"624,43797-0007-03 ",.02)
 ;;43797-0007-03
 ;;9002226.02101,"624,43797-0044-21 ",.01)
 ;;43797-0044-21
 ;;9002226.02101,"624,43797-0044-21 ",.02)
 ;;43797-0044-21
 ;;9002226.02101,"624,44514-0134-18 ",.01)
 ;;44514-0134-18
 ;;9002226.02101,"624,44514-0134-18 ",.02)
 ;;44514-0134-18
 ;;9002226.02101,"624,44514-0134-88 ",.01)
 ;;44514-0134-88
 ;;9002226.02101,"624,44514-0134-88 ",.02)
 ;;44514-0134-88
 ;;9002226.02101,"624,48695-8821-01 ",.01)
 ;;48695-8821-01
 ;;9002226.02101,"624,48695-8821-01 ",.02)
 ;;48695-8821-01
 ;;9002226.02101,"624,49884-0097-01 ",.01)
 ;;49884-0097-01
 ;;9002226.02101,"624,49884-0097-01 ",.02)
 ;;49884-0097-01
 ;;9002226.02101,"624,49884-0097-05 ",.01)
 ;;49884-0097-05
 ;;9002226.02101,"624,49884-0097-05 ",.02)
 ;;49884-0097-05
 ;;9002226.02101,"624,49884-0097-10 ",.01)
 ;;49884-0097-10
 ;;9002226.02101,"624,49884-0097-10 ",.02)
 ;;49884-0097-10
 ;;9002226.02101,"624,49884-0101-01 ",.01)
 ;;49884-0101-01
 ;;9002226.02101,"624,49884-0101-01 ",.02)
 ;;49884-0101-01
 ;;9002226.02101,"624,49884-0101-05 ",.01)
 ;;49884-0101-05
 ;;9002226.02101,"624,49884-0101-05 ",.02)
 ;;49884-0101-05
 ;;9002226.02101,"624,49884-0101-10 ",.01)
 ;;49884-0101-10
 ;;9002226.02101,"624,49884-0101-10 ",.02)
 ;;49884-0101-10
 ;;9002226.02101,"624,49884-0958-01 ",.01)
 ;;49884-0958-01
 ;;9002226.02101,"624,49884-0958-01 ",.02)
 ;;49884-0958-01
 ;;9002226.02101,"624,49884-0959-01 ",.01)
 ;;49884-0959-01
 ;;9002226.02101,"624,49884-0959-01 ",.02)
 ;;49884-0959-01
 ;;9002226.02101,"624,49884-0960-01 ",.01)
 ;;49884-0960-01
 ;;9002226.02101,"624,49884-0960-01 ",.02)
 ;;49884-0960-01
 ;;9002226.02101,"624,49884-0962-01 ",.01)
 ;;49884-0962-01
 ;;9002226.02101,"624,49884-0962-01 ",.02)
 ;;49884-0962-01
 ;;9002226.02101,"624,49999-0027-02 ",.01)
 ;;49999-0027-02
 ;;9002226.02101,"624,49999-0027-02 ",.02)
 ;;49999-0027-02
 ;;9002226.02101,"624,49999-0076-16 ",.01)
 ;;49999-0076-16
 ;;9002226.02101,"624,49999-0076-16 ",.02)
 ;;49999-0076-16
 ;;9002226.02101,"624,49999-0076-20 ",.01)
 ;;49999-0076-20
 ;;9002226.02101,"624,49999-0076-20 ",.02)
 ;;49999-0076-20
 ;;9002226.02101,"624,49999-0076-30 ",.01)
 ;;49999-0076-30
 ;;9002226.02101,"624,49999-0076-30 ",.02)
 ;;49999-0076-30
 ;;9002226.02101,"624,49999-0076-90 ",.01)
 ;;49999-0076-90
 ;;9002226.02101,"624,49999-0076-90 ",.02)
 ;;49999-0076-90
 ;;9002226.02101,"624,49999-0244-20 ",.01)
 ;;49999-0244-20
 ;;9002226.02101,"624,49999-0244-20 ",.02)
 ;;49999-0244-20
 ;;9002226.02101,"624,49999-0394-30 ",.01)
 ;;49999-0394-30
 ;;9002226.02101,"624,49999-0394-30 ",.02)
 ;;49999-0394-30
 ;;9002226.02101,"624,49999-0394-60 ",.01)
 ;;49999-0394-60
 ;;9002226.02101,"624,49999-0394-60 ",.02)
 ;;49999-0394-60
 ;;9002226.02101,"624,49999-0394-90 ",.01)
 ;;49999-0394-90
 ;;9002226.02101,"624,49999-0394-90 ",.02)
 ;;49999-0394-90
 ;;9002226.02101,"624,50313-0032-24 ",.01)
 ;;50313-0032-24
 ;;9002226.02101,"624,50313-0032-24 ",.02)
 ;;50313-0032-24
 ;;9002226.02101,"624,50319-0816-01 ",.01)
 ;;50319-0816-01
 ;;9002226.02101,"624,50319-0816-01 ",.02)
 ;;50319-0816-01
 ;;9002226.02101,"624,50383-0290-16 ",.01)
 ;;50383-0290-16
 ;;9002226.02101,"624,50383-0290-16 ",.02)
 ;;50383-0290-16
 ;;9002226.02101,"624,51079-0094-01 ",.01)
 ;;51079-0094-01
 ;;9002226.02101,"624,51079-0094-01 ",.02)
 ;;51079-0094-01
 ;;9002226.02101,"624,51079-0095-01 ",.01)
 ;;51079-0095-01
 ;;9002226.02101,"624,51079-0095-01 ",.02)
 ;;51079-0095-01
 ;;9002226.02101,"624,51079-0141-20 ",.01)
 ;;51079-0141-20
 ;;9002226.02101,"624,51079-0141-20 ",.02)
 ;;51079-0141-20
 ;;9002226.02101,"624,51079-0141-21 ",.01)
 ;;51079-0141-21
 ;;9002226.02101,"624,51079-0141-21 ",.02)
 ;;51079-0141-21
 ;;9002226.02101,"624,51079-0207-20 ",.01)
 ;;51079-0207-20
 ;;9002226.02101,"624,51079-0207-20 ",.02)
 ;;51079-0207-20
 ;;9002226.02101,"624,51079-0207-21 ",.01)
 ;;51079-0207-21
 ;;9002226.02101,"624,51079-0207-21 ",.02)
 ;;51079-0207-21
 ;;9002226.02101,"624,51079-0284-20 ",.01)
 ;;51079-0284-20
 ;;9002226.02101,"624,51079-0284-20 ",.02)
 ;;51079-0284-20
 ;;9002226.02101,"624,51079-0284-21 ",.01)
 ;;51079-0284-21
 ;;9002226.02101,"624,51079-0284-21 ",.02)
 ;;51079-0284-21
 ;;9002226.02101,"624,51079-0285-20 ",.01)
 ;;51079-0285-20
 ;;9002226.02101,"624,51079-0285-20 ",.02)
 ;;51079-0285-20
 ;;9002226.02101,"624,51079-0285-21 ",.01)
 ;;51079-0285-21
 ;;9002226.02101,"624,51079-0285-21 ",.02)
 ;;51079-0285-21
 ;;9002226.02101,"624,51079-0286-20 ",.01)
 ;;51079-0286-20
 ;;9002226.02101,"624,51079-0286-20 ",.02)
 ;;51079-0286-20
 ;;9002226.02101,"624,51079-0286-21 ",.01)
 ;;51079-0286-21
 ;;9002226.02101,"624,51079-0286-21 ",.02)
 ;;51079-0286-21
 ;;9002226.02101,"624,51079-0302-20 ",.01)
 ;;51079-0302-20
 ;;9002226.02101,"624,51079-0302-20 ",.02)
 ;;51079-0302-20
 ;;9002226.02101,"624,51079-0302-21 ",.01)
 ;;51079-0302-21
 ;;9002226.02101,"624,51079-0302-21 ",.02)
 ;;51079-0302-21
 ;;9002226.02101,"624,51079-0303-20 ",.01)
 ;;51079-0303-20
 ;;9002226.02101,"624,51079-0303-20 ",.02)
 ;;51079-0303-20
 ;;9002226.02101,"624,51079-0303-21 ",.01)
 ;;51079-0303-21
 ;;9002226.02101,"624,51079-0303-21 ",.02)
 ;;51079-0303-21
 ;;9002226.02101,"624,51079-0374-20 ",.01)
 ;;51079-0374-20
 ;;9002226.02101,"624,51079-0374-20 ",.02)
 ;;51079-0374-20
 ;;9002226.02101,"624,51079-0374-21 ",.01)
 ;;51079-0374-21
 ;;9002226.02101,"624,51079-0374-21 ",.02)
 ;;51079-0374-21
 ;;9002226.02101,"624,51079-0375-20 ",.01)
 ;;51079-0375-20
 ;;9002226.02101,"624,51079-0375-20 ",.02)
 ;;51079-0375-20
 ;;9002226.02101,"624,51079-0375-21 ",.01)
 ;;51079-0375-21
 ;;9002226.02101,"624,51079-0375-21 ",.02)
 ;;51079-0375-21
 ;;9002226.02101,"624,51432-0036-06 ",.01)
 ;;51432-0036-06
 ;;9002226.02101,"624,51432-0036-06 ",.02)
 ;;51432-0036-06
 ;;9002226.02101,"624,51432-0342-06 ",.01)
 ;;51432-0342-06
 ;;9002226.02101,"624,51432-0342-06 ",.02)
 ;;51432-0342-06
 ;;9002226.02101,"624,51432-0344-06 ",.01)
 ;;51432-0344-06
 ;;9002226.02101,"624,51432-0344-06 ",.02)
 ;;51432-0344-06
 ;;9002226.02101,"624,51432-0346-06 ",.01)
 ;;51432-0346-06
 ;;9002226.02101,"624,51432-0346-06 ",.02)
 ;;51432-0346-06
 ;;9002226.02101,"624,51432-0362-03 ",.01)
 ;;51432-0362-03
 ;;9002226.02101,"624,51432-0362-03 ",.02)
 ;;51432-0362-03
 ;;9002226.02101,"624,51432-0362-04 ",.01)
 ;;51432-0362-04
 ;;9002226.02101,"624,51432-0362-04 ",.02)
 ;;51432-0362-04
 ;;9002226.02101,"624,51432-0386-06 ",.01)
 ;;51432-0386-06
 ;;9002226.02101,"624,51432-0386-06 ",.02)
 ;;51432-0386-06
 ;;9002226.02101,"624,51432-0514-20 ",.01)
 ;;51432-0514-20
 ;;9002226.02101,"624,51432-0514-20 ",.02)
 ;;51432-0514-20
 ;;9002226.02101,"624,51432-0514-21 ",.01)
 ;;51432-0514-21
 ;;9002226.02101,"624,51432-0514-21 ",.02)
 ;;51432-0514-21
 ;;9002226.02101,"624,51432-0542-20 ",.01)
 ;;51432-0542-20
 ;;9002226.02101,"624,51432-0542-20 ",.02)
 ;;51432-0542-20
 ;;9002226.02101,"624,51432-0644-20 ",.01)
 ;;51432-0644-20
 ;;9002226.02101,"624,51432-0644-20 ",.02)
 ;;51432-0644-20
 ;;9002226.02101,"624,51432-0644-21 ",.01)
 ;;51432-0644-21
 ;;9002226.02101,"624,51432-0644-21 ",.02)
 ;;51432-0644-21
 ;;9002226.02101,"624,51432-0645-20 ",.01)
 ;;51432-0645-20