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

BGP7LXAL.m

Go to the documentation of this file.
BGP7LXAL ; 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,55289-0852-10 ",.02)
 ;;55289-0852-10
 ;;9002226.02101,"622,55289-0852-12 ",.01)
 ;;55289-0852-12
 ;;9002226.02101,"622,55289-0852-12 ",.02)
 ;;55289-0852-12
 ;;9002226.02101,"622,55289-0852-20 ",.01)
 ;;55289-0852-20
 ;;9002226.02101,"622,55289-0852-20 ",.02)
 ;;55289-0852-20
 ;;9002226.02101,"622,55499-1082-01 ",.01)
 ;;55499-1082-01
 ;;9002226.02101,"622,55499-1082-01 ",.02)
 ;;55499-1082-01
 ;;9002226.02101,"622,55887-0943-06 ",.01)
 ;;55887-0943-06
 ;;9002226.02101,"622,55887-0943-06 ",.02)
 ;;55887-0943-06
 ;;9002226.02101,"622,55887-0943-12 ",.01)
 ;;55887-0943-12
 ;;9002226.02101,"622,55887-0943-12 ",.02)
 ;;55887-0943-12
 ;;9002226.02101,"622,55887-0943-15 ",.01)
 ;;55887-0943-15
 ;;9002226.02101,"622,55887-0943-15 ",.02)
 ;;55887-0943-15
 ;;9002226.02101,"622,55887-0943-20 ",.01)
 ;;55887-0943-20
 ;;9002226.02101,"622,55887-0943-20 ",.02)
 ;;55887-0943-20
 ;;9002226.02101,"622,55887-0943-30 ",.01)
 ;;55887-0943-30
 ;;9002226.02101,"622,55887-0943-30 ",.02)
 ;;55887-0943-30
 ;;9002226.02101,"622,55887-0943-40 ",.01)
 ;;55887-0943-40
 ;;9002226.02101,"622,55887-0943-40 ",.02)
 ;;55887-0943-40
 ;;9002226.02101,"622,55887-0943-45 ",.01)
 ;;55887-0943-45
 ;;9002226.02101,"622,55887-0943-45 ",.02)
 ;;55887-0943-45
 ;;9002226.02101,"622,55887-0943-60 ",.01)
 ;;55887-0943-60
 ;;9002226.02101,"622,55887-0943-60 ",.02)
 ;;55887-0943-60
 ;;9002226.02101,"622,55887-0943-82 ",.01)
 ;;55887-0943-82
 ;;9002226.02101,"622,55887-0943-82 ",.02)
 ;;55887-0943-82
 ;;9002226.02101,"622,55887-0943-90 ",.01)
 ;;55887-0943-90
 ;;9002226.02101,"622,55887-0943-90 ",.02)
 ;;55887-0943-90
 ;;9002226.02101,"622,56062-0437-71 ",.01)
 ;;56062-0437-71
 ;;9002226.02101,"622,56062-0437-71 ",.02)
 ;;56062-0437-71
 ;;9002226.02101,"622,57844-0009-01 ",.01)
 ;;57844-0009-01
 ;;9002226.02101,"622,57844-0009-01 ",.02)
 ;;57844-0009-01
 ;;9002226.02101,"622,57844-0009-10 ",.01)
 ;;57844-0009-10
 ;;9002226.02101,"622,57844-0009-10 ",.02)
 ;;57844-0009-10
 ;;9002226.02101,"622,57844-0019-01 ",.01)
 ;;57844-0019-01
 ;;9002226.02101,"622,57844-0019-01 ",.02)
 ;;57844-0019-01
 ;;9002226.02101,"622,57866-3932-01 ",.01)
 ;;57866-3932-01
 ;;9002226.02101,"622,57866-3932-01 ",.02)
 ;;57866-3932-01
 ;;9002226.02101,"622,57866-3932-02 ",.01)
 ;;57866-3932-02
 ;;9002226.02101,"622,57866-3932-02 ",.02)
 ;;57866-3932-02
 ;;9002226.02101,"622,57866-3933-01 ",.01)
 ;;57866-3933-01
 ;;9002226.02101,"622,57866-3933-01 ",.02)
 ;;57866-3933-01
 ;;9002226.02101,"622,57866-3933-02 ",.01)
 ;;57866-3933-02
 ;;9002226.02101,"622,57866-3933-02 ",.02)
 ;;57866-3933-02
 ;;9002226.02101,"622,57866-3934-01 ",.01)
 ;;57866-3934-01
 ;;9002226.02101,"622,57866-3934-01 ",.02)
 ;;57866-3934-01
 ;;9002226.02101,"622,57866-3934-02 ",.01)
 ;;57866-3934-02
 ;;9002226.02101,"622,57866-3934-02 ",.02)
 ;;57866-3934-02
 ;;9002226.02101,"622,57866-3935-01 ",.01)
 ;;57866-3935-01
 ;;9002226.02101,"622,57866-3935-01 ",.02)
 ;;57866-3935-01
 ;;9002226.02101,"622,57866-3935-02 ",.01)
 ;;57866-3935-02
 ;;9002226.02101,"622,57866-3935-02 ",.02)
 ;;57866-3935-02
 ;;9002226.02101,"622,57866-3936-01 ",.01)
 ;;57866-3936-01
 ;;9002226.02101,"622,57866-3936-01 ",.02)
 ;;57866-3936-01
 ;;9002226.02101,"622,57866-3936-02 ",.01)
 ;;57866-3936-02
 ;;9002226.02101,"622,57866-3936-02 ",.02)
 ;;57866-3936-02
 ;;9002226.02101,"622,57866-3949-01 ",.01)
 ;;57866-3949-01
 ;;9002226.02101,"622,57866-3949-01 ",.02)
 ;;57866-3949-01
 ;;9002226.02101,"622,57866-3949-02 ",.01)
 ;;57866-3949-02
 ;;9002226.02101,"622,57866-3949-02 ",.02)
 ;;57866-3949-02
 ;;9002226.02101,"622,57866-4362-02 ",.01)
 ;;57866-4362-02
 ;;9002226.02101,"622,57866-4362-02 ",.02)
 ;;57866-4362-02
 ;;9002226.02101,"622,57866-7071-01 ",.01)
 ;;57866-7071-01
 ;;9002226.02101,"622,57866-7071-01 ",.02)
 ;;57866-7071-01
 ;;9002226.02101,"622,57866-7072-01 ",.01)
 ;;57866-7072-01
 ;;9002226.02101,"622,57866-7072-01 ",.02)
 ;;57866-7072-01
 ;;9002226.02101,"622,57866-7073-01 ",.01)
 ;;57866-7073-01
 ;;9002226.02101,"622,57866-7073-01 ",.02)
 ;;57866-7073-01
 ;;9002226.02101,"622,57866-7079-01 ",.01)
 ;;57866-7079-01
 ;;9002226.02101,"622,57866-7079-01 ",.02)
 ;;57866-7079-01
 ;;9002226.02101,"622,57866-7079-02 ",.01)
 ;;57866-7079-02
 ;;9002226.02101,"622,57866-7079-02 ",.02)
 ;;57866-7079-02
 ;;9002226.02101,"622,57866-7080-01 ",.01)
 ;;57866-7080-01
 ;;9002226.02101,"622,57866-7080-01 ",.02)
 ;;57866-7080-01
 ;;9002226.02101,"622,57866-9029-01 ",.01)
 ;;57866-9029-01
 ;;9002226.02101,"622,57866-9029-01 ",.02)
 ;;57866-9029-01
 ;;9002226.02101,"622,57866-9030-01 ",.01)
 ;;57866-9030-01
 ;;9002226.02101,"622,57866-9030-01 ",.02)
 ;;57866-9030-01
 ;;9002226.02101,"622,58016-0836-07 ",.01)
 ;;58016-0836-07
 ;;9002226.02101,"622,58016-0836-07 ",.02)
 ;;58016-0836-07
 ;;9002226.02101,"622,58016-0836-14 ",.01)
 ;;58016-0836-14
 ;;9002226.02101,"622,58016-0836-14 ",.02)
 ;;58016-0836-14
 ;;9002226.02101,"622,58016-0836-15 ",.01)
 ;;58016-0836-15
 ;;9002226.02101,"622,58016-0836-15 ",.02)
 ;;58016-0836-15
 ;;9002226.02101,"622,58016-0836-30 ",.01)
 ;;58016-0836-30
 ;;9002226.02101,"622,58016-0836-30 ",.02)
 ;;58016-0836-30
 ;;9002226.02101,"622,58016-0854-42 ",.01)
 ;;58016-0854-42
 ;;9002226.02101,"622,58016-0854-42 ",.02)
 ;;58016-0854-42
 ;;9002226.02101,"622,58016-0856-00 ",.01)
 ;;58016-0856-00
 ;;9002226.02101,"622,58016-0856-00 ",.02)
 ;;58016-0856-00
 ;;9002226.02101,"622,58016-0856-15 ",.01)
 ;;58016-0856-15
 ;;9002226.02101,"622,58016-0856-15 ",.02)
 ;;58016-0856-15
 ;;9002226.02101,"622,58016-0856-21 ",.01)
 ;;58016-0856-21
 ;;9002226.02101,"622,58016-0856-21 ",.02)
 ;;58016-0856-21
 ;;9002226.02101,"622,58016-0856-42 ",.01)
 ;;58016-0856-42
 ;;9002226.02101,"622,58016-0856-42 ",.02)
 ;;58016-0856-42
 ;;9002226.02101,"622,58016-0861-14 ",.01)
 ;;58016-0861-14
 ;;9002226.02101,"622,58016-0861-14 ",.02)
 ;;58016-0861-14
 ;;9002226.02101,"622,58016-0861-30 ",.01)
 ;;58016-0861-30
 ;;9002226.02101,"622,58016-0861-30 ",.02)
 ;;58016-0861-30
 ;;9002226.02101,"622,58016-0861-60 ",.01)
 ;;58016-0861-60
 ;;9002226.02101,"622,58016-0861-60 ",.02)
 ;;58016-0861-60
 ;;9002226.02101,"622,58177-0311-04 ",.01)
 ;;58177-0311-04
 ;;9002226.02101,"622,58177-0311-04 ",.02)
 ;;58177-0311-04
 ;;9002226.02101,"622,58177-0312-04 ",.01)
 ;;58177-0312-04
 ;;9002226.02101,"622,58177-0312-04 ",.02)
 ;;58177-0312-04
 ;;9002226.02101,"622,58345-0801-65 ",.01)
 ;;58345-0801-65
 ;;9002226.02101,"622,58345-0801-65 ",.02)
 ;;58345-0801-65
 ;;9002226.02101,"622,58521-0031-01 ",.01)
 ;;58521-0031-01
 ;;9002226.02101,"622,58521-0031-01 ",.02)
 ;;58521-0031-01
 ;;9002226.02101,"622,58521-0032-01 ",.01)
 ;;58521-0032-01
 ;;9002226.02101,"622,58521-0032-01 ",.02)
 ;;58521-0032-01
 ;;9002226.02101,"622,58521-0033-01 ",.01)
 ;;58521-0033-01
 ;;9002226.02101,"622,58521-0033-01 ",.02)
 ;;58521-0033-01
 ;;9002226.02101,"622,58521-0034-01 ",.01)
 ;;58521-0034-01
 ;;9002226.02101,"622,58521-0034-01 ",.02)
 ;;58521-0034-01
 ;;9002226.02101,"622,58521-0075-01 ",.01)
 ;;58521-0075-01
 ;;9002226.02101,"622,58521-0075-01 ",.02)
 ;;58521-0075-01
 ;;9002226.02101,"622,58521-0125-01 ",.01)
 ;;58521-0125-01
 ;;9002226.02101,"622,58521-0125-01 ",.02)
 ;;58521-0125-01
 ;;9002226.02101,"622,58521-0150-01 ",.01)
 ;;58521-0150-01
 ;;9002226.02101,"622,58521-0150-01 ",.02)
 ;;58521-0150-01
 ;;9002226.02101,"622,58521-0333-05 ",.01)
 ;;58521-0333-05
 ;;9002226.02101,"622,58521-0333-05 ",.02)
 ;;58521-0333-05
 ;;9002226.02101,"622,58521-0451-01 ",.01)
 ;;58521-0451-01
 ;;9002226.02101,"622,58521-0451-01 ",.02)
 ;;58521-0451-01
 ;;9002226.02101,"622,58521-0452-01 ",.01)
 ;;58521-0452-01
 ;;9002226.02101,"622,58521-0452-01 ",.02)
 ;;58521-0452-01
 ;;9002226.02101,"622,58605-0503-01 ",.01)
 ;;58605-0503-01
 ;;9002226.02101,"622,58605-0503-01 ",.02)
 ;;58605-0503-01
 ;;9002226.02101,"622,58605-0504-01 ",.01)
 ;;58605-0504-01
 ;;9002226.02101,"622,58605-0504-01 ",.02)
 ;;58605-0504-01
 ;;9002226.02101,"622,58605-0508-01 ",.01)
 ;;58605-0508-01
 ;;9002226.02101,"622,58605-0508-01 ",.02)
 ;;58605-0508-01
 ;;9002226.02101,"622,58864-0428-30 ",.01)
 ;;58864-0428-30
 ;;9002226.02101,"622,58864-0428-30 ",.02)
 ;;58864-0428-30
 ;;9002226.02101,"622,58864-0428-60 ",.01)
 ;;58864-0428-60
 ;;9002226.02101,"622,58864-0428-60 ",.02)
 ;;58864-0428-60
 ;;9002226.02101,"622,58948-0185-71 ",.01)
 ;;58948-0185-71
 ;;9002226.02101,"622,58948-0185-71 ",.02)
 ;;58948-0185-71
 ;;9002226.02101,"622,58948-0185-78 ",.01)
 ;;58948-0185-78
 ;;9002226.02101,"622,58948-0185-78 ",.02)
 ;;58948-0185-78
 ;;9002226.02101,"622,59085-0239-50 ",.01)
 ;;59085-0239-50
 ;;9002226.02101,"622,59085-0239-50 ",.02)
 ;;59085-0239-50
 ;;9002226.02101,"622,59606-0060-14 ",.01)
 ;;59606-0060-14
 ;;9002226.02101,"622,59606-0060-14 ",.02)
 ;;59606-0060-14
 ;;9002226.02101,"622,59606-0060-24 ",.01)
 ;;59606-0060-24
 ;;9002226.02101,"622,59606-0060-24 ",.02)
 ;;59606-0060-24
 ;;9002226.02101,"622,59606-0396-06 ",.01)
 ;;59606-0396-06
 ;;9002226.02101,"622,59606-0396-06 ",.02)
 ;;59606-0396-06
 ;;9002226.02101,"622,59606-0444-14 ",.01)
 ;;59606-0444-14
 ;;9002226.02101,"622,59606-0444-14 ",.02)
 ;;59606-0444-14
 ;;9002226.02101,"622,59606-0444-20 ",.01)
 ;;59606-0444-20
 ;;9002226.02101,"622,59606-0444-20 ",.02)
 ;;59606-0444-20
 ;;9002226.02101,"622,59606-0447-14 ",.01)
 ;;59606-0447-14
 ;;9002226.02101,"622,59606-0447-14 ",.02)
 ;;59606-0447-14
 ;;9002226.02101,"622,59772-8840-01 ",.01)
 ;;59772-8840-01
 ;;9002226.02101,"622,59772-8840-01 ",.02)
 ;;59772-8840-01
 ;;9002226.02101,"622,59772-8840-03 ",.01)
 ;;59772-8840-03
 ;;9002226.02101,"622,59772-8840-03 ",.02)
 ;;59772-8840-03
 ;;9002226.02101,"622,59772-8841-01 ",.01)
 ;;59772-8841-01
 ;;9002226.02101,"622,59772-8841-01 ",.02)
 ;;59772-8841-01
 ;;9002226.02101,"622,59772-8841-03 ",.01)
 ;;59772-8841-03
 ;;9002226.02101,"622,59772-8841-03 ",.02)
 ;;59772-8841-03
 ;;9002226.02101,"622,59772-8842-01 ",.01)
 ;;59772-8842-01
 ;;9002226.02101,"622,59772-8842-01 ",.02)
 ;;59772-8842-01
 ;;9002226.02101,"622,59772-8842-03 ",.01)
 ;;59772-8842-03
 ;;9002226.02101,"622,59772-8842-03 ",.02)
 ;;59772-8842-03
 ;;9002226.02101,"622,59772-8843-01 ",.01)
 ;;59772-8843-01
 ;;9002226.02101,"622,59772-8843-01 ",.02)
 ;;59772-8843-01
 ;;9002226.02101,"622,60346-0610-20 ",.01)
 ;;60346-0610-20
 ;;9002226.02101,"622,60346-0610-20 ",.02)
 ;;60346-0610-20
 ;;9002226.02101,"622,60346-0610-30 ",.01)
 ;;60346-0610-30
 ;;9002226.02101,"622,60346-0610-30 ",.02)
 ;;60346-0610-30
 ;;9002226.02101,"622,60346-0610-60 ",.01)
 ;;60346-0610-60
 ;;9002226.02101,"622,60346-0610-60 ",.02)
 ;;60346-0610-60
 ;;9002226.02101,"622,60346-0610-90 ",.01)
 ;;60346-0610-90
 ;;9002226.02101,"622,60346-0610-90 ",.02)
 ;;60346-0610-90
 ;;9002226.02101,"622,60346-0610-94 ",.01)
 ;;60346-0610-94
 ;;9002226.02101,"622,60346-0610-94 ",.02)
 ;;60346-0610-94
 ;;9002226.02101,"622,60346-0628-06 ",.01)
 ;;60346-0628-06
 ;;9002226.02101,"622,60346-0628-06 ",.02)
 ;;60346-0628-06
 ;;9002226.02101,"622,60346-0628-12 ",.01)
 ;;60346-0628-12
 ;;9002226.02101,"622,60346-0628-12 ",.02)
 ;;60346-0628-12
 ;;9002226.02101,"622,60346-0628-15 ",.01)
 ;;60346-0628-15
 ;;9002226.02101,"622,60346-0628-15 ",.02)
 ;;60346-0628-15
 ;;9002226.02101,"622,60346-0628-20 ",.01)
 ;;60346-0628-20
 ;;9002226.02101,"622,60346-0628-20 ",.02)
 ;;60346-0628-20
 ;;9002226.02101,"622,60346-0628-25 ",.01)
 ;;60346-0628-25
 ;;9002226.02101,"622,60346-0628-25 ",.02)
 ;;60346-0628-25
 ;;9002226.02101,"622,60346-0628-30 ",.01)
 ;;60346-0628-30
 ;;9002226.02101,"622,60346-0628-30 ",.02)
 ;;60346-0628-30
 ;;9002226.02101,"622,60346-0628-40 ",.01)
 ;;60346-0628-40
 ;;9002226.02101,"622,60346-0628-40 ",.02)
 ;;60346-0628-40
 ;;9002226.02101,"622,60346-0628-44 ",.01)
 ;;60346-0628-44
 ;;9002226.02101,"622,60346-0628-44 ",.02)
 ;;60346-0628-44
 ;;9002226.02101,"622,60346-0628-60 ",.01)
 ;;60346-0628-60
 ;;9002226.02101,"622,60346-0628-60 ",.02)
 ;;60346-0628-60
 ;;9002226.02101,"622,60346-0628-90 ",.01)
 ;;60346-0628-90
 ;;9002226.02101,"622,60346-0628-90 ",.02)
 ;;60346-0628-90
 ;;9002226.02101,"622,60346-0628-94 ",.01)
 ;;60346-0628-94
 ;;9002226.02101,"622,60346-0628-94 ",.02)
 ;;60346-0628-94
 ;;9002226.02101,"622,60346-0682-20 ",.01)
 ;;60346-0682-20
 ;;9002226.02101,"622,60346-0682-20 ",.02)
 ;;60346-0682-20
 ;;9002226.02101,"622,60346-0682-30 ",.01)
 ;;60346-0682-30
 ;;9002226.02101,"622,60346-0682-30 ",.02)
 ;;60346-0682-30
 ;;9002226.02101,"622,60346-0685-12 ",.01)
 ;;60346-0685-12
 ;;9002226.02101,"622,60346-0685-12 ",.02)
 ;;60346-0685-12
 ;;9002226.02101,"622,60346-0685-20 ",.01)
 ;;60346-0685-20
 ;;9002226.02101,"622,60346-0685-20 ",.02)
 ;;60346-0685-20
 ;;9002226.02101,"622,60346-0685-40 ",.01)
 ;;60346-0685-40
 ;;9002226.02101,"622,60346-0685-40 ",.02)
 ;;60346-0685-40
 ;;9002226.02101,"622,60346-0693-12 ",.01)
 ;;60346-0693-12
 ;;9002226.02101,"622,60346-0693-12 ",.02)
 ;;60346-0693-12
 ;;9002226.02101,"622,60346-0693-20 ",.01)
 ;;60346-0693-20
 ;;9002226.02101,"622,60346-0693-20 ",.02)
 ;;60346-0693-20
 ;;9002226.02101,"622,60346-0693-30 ",.01)
 ;;60346-0693-30
 ;;9002226.02101,"622,60346-0693-30 ",.02)
 ;;60346-0693-30
 ;;9002226.02101,"622,60346-0693-60 ",.01)
 ;;60346-0693-60
 ;;9002226.02101,"622,60346-0693-60 ",.02)
 ;;60346-0693-60
 ;;9002226.02101,"622,60346-0693-90 ",.01)
 ;;60346-0693-90
 ;;9002226.02101,"622,60346-0693-90 ",.02)
 ;;60346-0693-90
 ;;9002226.02101,"622,60346-0693-94 ",.01)
 ;;60346-0693-94