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

BGP7LXIB.m

Go to the documentation of this file.
BGP7LXIB ; 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,"626,00247-0206-60 ",.01)
 ;;00247-0206-60
 ;;9002226.02101,"626,00247-0206-60 ",.02)
 ;;00247-0206-60
 ;;9002226.02101,"626,00247-0206-90 ",.01)
 ;;00247-0206-90
 ;;9002226.02101,"626,00247-0206-90 ",.02)
 ;;00247-0206-90
 ;;9002226.02101,"626,00259-0321-30 ",.01)
 ;;00259-0321-30
 ;;9002226.02101,"626,00259-0321-30 ",.02)
 ;;00259-0321-30
 ;;9002226.02101,"626,00298-6478-63 ",.01)
 ;;00298-6478-63
 ;;9002226.02101,"626,00298-6478-63 ",.02)
 ;;00298-6478-63
 ;;9002226.02101,"626,00298-6809-61 ",.01)
 ;;00298-6809-61
 ;;9002226.02101,"626,00298-6809-61 ",.02)
 ;;00298-6809-61
 ;;9002226.02101,"626,00298-6810-61 ",.01)
 ;;00298-6810-61
 ;;9002226.02101,"626,00298-6810-61 ",.02)
 ;;00298-6810-61
 ;;9002226.02101,"626,00298-6934-69 ",.01)
 ;;00298-6934-69
 ;;9002226.02101,"626,00298-6934-69 ",.02)
 ;;00298-6934-69
 ;;9002226.02101,"626,00302-4400-01 ",.01)
 ;;00302-4400-01
 ;;9002226.02101,"626,00302-4400-01 ",.02)
 ;;00302-4400-01
 ;;9002226.02101,"626,00302-4400-36 ",.01)
 ;;00302-4400-36
 ;;9002226.02101,"626,00302-4400-36 ",.02)
 ;;00302-4400-36
 ;;9002226.02101,"626,00339-5717-12 ",.01)
 ;;00339-5717-12
 ;;9002226.02101,"626,00339-5717-12 ",.02)
 ;;00339-5717-12
 ;;9002226.02101,"626,00339-5718-12 ",.01)
 ;;00339-5718-12
 ;;9002226.02101,"626,00339-5718-12 ",.02)
 ;;00339-5718-12
 ;;9002226.02101,"626,00349-8319-70 ",.01)
 ;;00349-8319-70
 ;;9002226.02101,"626,00349-8319-70 ",.02)
 ;;00349-8319-70
 ;;9002226.02101,"626,00364-2376-90 ",.01)
 ;;00364-2376-90
 ;;9002226.02101,"626,00364-2376-90 ",.02)
 ;;00364-2376-90
 ;;9002226.02101,"626,00405-4696-01 ",.01)
 ;;00405-4696-01
 ;;9002226.02101,"626,00405-4696-01 ",.02)
 ;;00405-4696-01
 ;;9002226.02101,"626,00405-4696-09 ",.01)
 ;;00405-4696-09
 ;;9002226.02101,"626,00405-4696-09 ",.02)
 ;;00405-4696-09
 ;;9002226.02101,"626,00405-4697-01 ",.01)
 ;;00405-4697-01
 ;;9002226.02101,"626,00405-4697-01 ",.02)
 ;;00405-4697-01
 ;;9002226.02101,"626,00405-4697-09 ",.01)
 ;;00405-4697-09
 ;;9002226.02101,"626,00405-4697-09 ",.02)
 ;;00405-4697-09
 ;;9002226.02101,"626,00418-3331-61 ",.01)
 ;;00418-3331-61
 ;;9002226.02101,"626,00418-3331-61 ",.02)
 ;;00418-3331-61
 ;;9002226.02101,"626,00456-1008-10 ",.01)
 ;;00456-1008-10
 ;;9002226.02101,"626,00456-1008-10 ",.02)
 ;;00456-1008-10
 ;;9002226.02101,"626,00517-4210-25 ",.01)
 ;;00517-4210-25
 ;;9002226.02101,"626,00517-4210-25 ",.02)
 ;;00517-4210-25
 ;;9002226.02101,"626,00603-4759-21 ",.01)
 ;;00603-4759-21
 ;;9002226.02101,"626,00603-4759-21 ",.02)
 ;;00603-4759-21
 ;;9002226.02101,"626,00615-0359-13 ",.01)
 ;;00615-0359-13
 ;;9002226.02101,"626,00615-0359-13 ",.02)
 ;;00615-0359-13
 ;;9002226.02101,"626,00615-0359-53 ",.01)
 ;;00615-0359-53
 ;;9002226.02101,"626,00615-0359-53 ",.02)
 ;;00615-0359-53
 ;;9002226.02101,"626,00615-0359-63 ",.01)
 ;;00615-0359-63
 ;;9002226.02101,"626,00615-0359-63 ",.02)
 ;;00615-0359-63
 ;;9002226.02101,"626,00615-0360-43 ",.01)
 ;;00615-0360-43
 ;;9002226.02101,"626,00615-0360-43 ",.02)
 ;;00615-0360-43
 ;;9002226.02101,"626,00615-0360-53 ",.01)
 ;;00615-0360-53
 ;;9002226.02101,"626,00615-0360-53 ",.02)
 ;;00615-0360-53
 ;;9002226.02101,"626,00615-0360-63 ",.01)
 ;;00615-0360-63
 ;;9002226.02101,"626,00615-0360-63 ",.02)
 ;;00615-0360-63
 ;;9002226.02101,"626,00641-0421-25 ",.01)
 ;;00641-0421-25
 ;;9002226.02101,"626,00641-0421-25 ",.02)
 ;;00641-0421-25
 ;;9002226.02101,"626,00686-0258-10 ",.01)
 ;;00686-0258-10
 ;;9002226.02101,"626,00686-0258-10 ",.02)
 ;;00686-0258-10
 ;;9002226.02101,"626,00686-0259-10 ",.01)
 ;;00686-0259-10
 ;;9002226.02101,"626,00686-0259-10 ",.02)
 ;;00686-0259-10
 ;;9002226.02101,"626,00686-0664-20 ",.01)
 ;;00686-0664-20
 ;;9002226.02101,"626,00686-0664-20 ",.02)
 ;;00686-0664-20
 ;;9002226.02101,"626,00686-0665-20 ",.01)
 ;;00686-0665-20
 ;;9002226.02101,"626,00686-0665-20 ",.02)
 ;;00686-0665-20
 ;;9002226.02101,"626,00781-2504-01 ",.01)
 ;;00781-2504-01
 ;;9002226.02101,"626,00781-2504-01 ",.02)
 ;;00781-2504-01
 ;;9002226.02101,"626,00781-2504-03 ",.01)
 ;;00781-2504-03
 ;;9002226.02101,"626,00781-2504-03 ",.02)
 ;;00781-2504-03
 ;;9002226.02101,"626,00781-2506-01 ",.01)
 ;;00781-2506-01
 ;;9002226.02101,"626,00781-2506-01 ",.02)
 ;;00781-2506-01
 ;;9002226.02101,"626,00839-7564-06 ",.01)
 ;;00839-7564-06
 ;;9002226.02101,"626,00839-7564-06 ",.02)
 ;;00839-7564-06
 ;;9002226.02101,"626,00839-7564-13 ",.01)
 ;;00839-7564-13
 ;;9002226.02101,"626,00839-7564-13 ",.02)
 ;;00839-7564-13
 ;;9002226.02101,"626,00839-7564-16 ",.01)
 ;;00839-7564-16
 ;;9002226.02101,"626,00839-7564-16 ",.02)
 ;;00839-7564-16
 ;;9002226.02101,"626,00839-7564-80 ",.01)
 ;;00839-7564-80
 ;;9002226.02101,"626,00839-7564-80 ",.02)
 ;;00839-7564-80
 ;;9002226.02101,"626,00839-7565-06 ",.01)
 ;;00839-7565-06
 ;;9002226.02101,"626,00839-7565-06 ",.02)
 ;;00839-7565-06
 ;;9002226.02101,"626,00839-7565-13 ",.01)
 ;;00839-7565-13
 ;;9002226.02101,"626,00839-7565-13 ",.02)
 ;;00839-7565-13
 ;;9002226.02101,"626,00839-7704-13 ",.01)
 ;;00839-7704-13
 ;;9002226.02101,"626,00839-7704-13 ",.02)
 ;;00839-7704-13
 ;;9002226.02101,"626,00839-7717-06 ",.01)
 ;;00839-7717-06
 ;;9002226.02101,"626,00839-7717-06 ",.02)
 ;;00839-7717-06
 ;;9002226.02101,"626,00853-1602-70 ",.01)
 ;;00853-1602-70
 ;;9002226.02101,"626,00853-1602-70 ",.02)
 ;;00853-1602-70
 ;;9002226.02101,"626,00853-1604-70 ",.01)
 ;;00853-1604-70
 ;;9002226.02101,"626,00853-1604-70 ",.02)
 ;;00853-1604-70
 ;;9002226.02101,"626,00853-1610-90 ",.01)
 ;;00853-1610-90
 ;;9002226.02101,"626,00853-1610-90 ",.02)
 ;;00853-1610-90
 ;;9002226.02101,"626,00904-0407-60 ",.01)
 ;;00904-0407-60
 ;;9002226.02101,"626,00904-0407-60 ",.02)
 ;;00904-0407-60
 ;;9002226.02101,"626,00904-0407-61 ",.01)
 ;;00904-0407-61
 ;;9002226.02101,"626,00904-0407-61 ",.02)
 ;;00904-0407-61
 ;;9002226.02101,"626,00904-0407-72 ",.01)
 ;;00904-0407-72
 ;;9002226.02101,"626,00904-0407-72 ",.02)
 ;;00904-0407-72
 ;;9002226.02101,"626,00904-0408-60 ",.01)
 ;;00904-0408-60
 ;;9002226.02101,"626,00904-0408-60 ",.02)
 ;;00904-0408-60
 ;;9002226.02101,"626,00904-0408-61 ",.01)
 ;;00904-0408-61
 ;;9002226.02101,"626,00904-0408-61 ",.02)
 ;;00904-0408-61
 ;;9002226.02101,"626,00904-0408-72 ",.01)
 ;;00904-0408-72
 ;;9002226.02101,"626,00904-0408-72 ",.02)
 ;;00904-0408-72
 ;;9002226.02101,"626,00904-0409-60 ",.01)
 ;;00904-0409-60
 ;;9002226.02101,"626,00904-0409-60 ",.02)
 ;;00904-0409-60
 ;;9002226.02101,"626,00904-0409-61 ",.01)
 ;;00904-0409-61
 ;;9002226.02101,"626,00904-0409-61 ",.02)
 ;;00904-0409-61
 ;;9002226.02101,"626,00904-0409-72 ",.01)
 ;;00904-0409-72
 ;;9002226.02101,"626,00904-0409-72 ",.02)
 ;;00904-0409-72
 ;;9002226.02101,"626,00904-7685-60 ",.01)
 ;;00904-7685-60
 ;;9002226.02101,"626,00904-7685-60 ",.02)
 ;;00904-7685-60
 ;;9002226.02101,"626,00904-7685-72 ",.01)
 ;;00904-7685-72
 ;;9002226.02101,"626,00904-7685-72 ",.02)
 ;;00904-7685-72
 ;;9002226.02101,"626,00904-7699-60 ",.01)
 ;;00904-7699-60
 ;;9002226.02101,"626,00904-7699-60 ",.02)
 ;;00904-7699-60
 ;;9002226.02101,"626,00904-7950-60 ",.01)
 ;;00904-7950-60
 ;;9002226.02101,"626,00904-7950-60 ",.02)
 ;;00904-7950-60
 ;;9002226.02101,"626,00904-7950-72 ",.01)
 ;;00904-7950-72
 ;;9002226.02101,"626,00904-7950-72 ",.02)
 ;;00904-7950-72
 ;;9002226.02101,"626,00904-7951-60 ",.01)
 ;;00904-7951-60
 ;;9002226.02101,"626,00904-7951-60 ",.02)
 ;;00904-7951-60
 ;;9002226.02101,"626,00904-7951-72 ",.01)
 ;;00904-7951-72
 ;;9002226.02101,"626,00904-7951-72 ",.02)
 ;;00904-7951-72
 ;;9002226.02101,"626,10019-0097-44 ",.01)
 ;;10019-0097-44
 ;;9002226.02101,"626,10019-0097-44 ",.02)
 ;;10019-0097-44
 ;;9002226.02101,"626,10939-0067-22 ",.01)
 ;;10939-0067-22
 ;;9002226.02101,"626,10939-0067-22 ",.02)
 ;;10939-0067-22
 ;;9002226.02101,"626,12333-9607-01 ",.01)
 ;;12333-9607-01
 ;;9002226.02101,"626,12333-9607-01 ",.02)
 ;;12333-9607-01
 ;;9002226.02101,"626,17022-1379-07 ",.01)
 ;;17022-1379-07
 ;;9002226.02101,"626,17022-1379-07 ",.02)
 ;;17022-1379-07
 ;;9002226.02101,"626,17022-2995-03 ",.01)
 ;;17022-2995-03
 ;;9002226.02101,"626,17022-2995-03 ",.02)
 ;;17022-2995-03
 ;;9002226.02101,"626,17022-3016-03 ",.01)
 ;;17022-3016-03
 ;;9002226.02101,"626,17022-3016-03 ",.02)
 ;;17022-3016-03
 ;;9002226.02101,"626,17236-0738-91 ",.01)
 ;;17236-0738-91
 ;;9002226.02101,"626,17236-0738-91 ",.02)
 ;;17236-0738-91
 ;;9002226.02101,"626,17236-0923-11 ",.01)
 ;;17236-0923-11
 ;;9002226.02101,"626,17236-0923-11 ",.02)
 ;;17236-0923-11
 ;;9002226.02101,"626,34575-0881-63 ",.01)
 ;;34575-0881-63
 ;;9002226.02101,"626,34575-0881-63 ",.02)
 ;;34575-0881-63
 ;;9002226.02101,"626,37205-0190-62 ",.01)
 ;;37205-0190-62
 ;;9002226.02101,"626,37205-0190-62 ",.02)
 ;;37205-0190-62
 ;;9002226.02101,"626,49348-0067-04 ",.01)
 ;;49348-0067-04
 ;;9002226.02101,"626,49348-0067-04 ",.02)
 ;;49348-0067-04
 ;;9002226.02101,"626,49999-0091-04 ",.01)
 ;;49999-0091-04
 ;;9002226.02101,"626,49999-0091-04 ",.02)
 ;;49999-0091-04
 ;;9002226.02101,"626,49999-0091-15 ",.01)
 ;;49999-0091-15
 ;;9002226.02101,"626,49999-0091-15 ",.02)
 ;;49999-0091-15
 ;;9002226.02101,"626,49999-0091-20 ",.01)
 ;;49999-0091-20
 ;;9002226.02101,"626,49999-0091-20 ",.02)
 ;;49999-0091-20
 ;;9002226.02101,"626,49999-0091-30 ",.01)
 ;;49999-0091-30
 ;;9002226.02101,"626,49999-0091-30 ",.02)
 ;;49999-0091-30
 ;;9002226.02101,"626,49999-0091-60 ",.01)
 ;;49999-0091-60
 ;;9002226.02101,"626,49999-0091-60 ",.02)
 ;;49999-0091-60
 ;;9002226.02101,"626,50844-0108-16 ",.01)
 ;;50844-0108-16
 ;;9002226.02101,"626,50844-0108-16 ",.02)
 ;;50844-0108-16
 ;;9002226.02101,"626,50844-0290-12 ",.01)
 ;;50844-0290-12
 ;;9002226.02101,"626,50844-0290-12 ",.02)
 ;;50844-0290-12
 ;;9002226.02101,"626,50844-0290-16 ",.01)
 ;;50844-0290-16
 ;;9002226.02101,"626,50844-0290-16 ",.02)
 ;;50844-0290-16
 ;;9002226.02101,"626,51079-0066-17 ",.01)
 ;;51079-0066-17
 ;;9002226.02101,"626,51079-0066-17 ",.02)
 ;;51079-0066-17
 ;;9002226.02101,"626,51432-0156-03 ",.01)
 ;;51432-0156-03
 ;;9002226.02101,"626,51432-0156-03 ",.02)
 ;;51432-0156-03
 ;;9002226.02101,"626,51432-0156-06 ",.01)
 ;;51432-0156-06
 ;;9002226.02101,"626,51432-0156-06 ",.02)
 ;;51432-0156-06
 ;;9002226.02101,"626,52406-0013-30 ",.01)
 ;;52406-0013-30
 ;;9002226.02101,"626,52406-0013-30 ",.02)
 ;;52406-0013-30
 ;;9002226.02101,"626,52406-0170-10 ",.01)
 ;;52406-0170-10
 ;;9002226.02101,"626,52406-0170-10 ",.02)
 ;;52406-0170-10
 ;;9002226.02101,"626,52569-1308-10 ",.01)
 ;;52569-1308-10
 ;;9002226.02101,"626,52569-1308-10 ",.02)
 ;;52569-1308-10
 ;;9002226.02101,"626,52735-0470-05 ",.01)
 ;;52735-0470-05
 ;;9002226.02101,"626,52735-0470-05 ",.02)
 ;;52735-0470-05
 ;;9002226.02101,"626,52765-2252-00 ",.01)
 ;;52765-2252-00
 ;;9002226.02101,"626,52765-2252-00 ",.02)
 ;;52765-2252-00
 ;;9002226.02101,"626,52959-0273-00 ",.01)
 ;;52959-0273-00
 ;;9002226.02101,"626,52959-0273-00 ",.02)
 ;;52959-0273-00
 ;;9002226.02101,"626,52959-0273-01 ",.01)
 ;;52959-0273-01
 ;;9002226.02101,"626,52959-0273-01 ",.02)
 ;;52959-0273-01
 ;;9002226.02101,"626,52959-0273-08 ",.01)
 ;;52959-0273-08
 ;;9002226.02101,"626,52959-0273-08 ",.02)
 ;;52959-0273-08
 ;;9002226.02101,"626,52959-0273-10 ",.01)
 ;;52959-0273-10
 ;;9002226.02101,"626,52959-0273-10 ",.02)
 ;;52959-0273-10
 ;;9002226.02101,"626,52959-0273-20 ",.01)
 ;;52959-0273-20
 ;;9002226.02101,"626,52959-0273-20 ",.02)
 ;;52959-0273-20
 ;;9002226.02101,"626,52959-0273-30 ",.01)
 ;;52959-0273-30
 ;;9002226.02101,"626,52959-0273-30 ",.02)
 ;;52959-0273-30
 ;;9002226.02101,"626,52959-0273-40 ",.01)
 ;;52959-0273-40
 ;;9002226.02101,"626,52959-0273-40 ",.02)
 ;;52959-0273-40
 ;;9002226.02101,"626,52959-0273-50 ",.01)
 ;;52959-0273-50
 ;;9002226.02101,"626,52959-0273-50 ",.02)
 ;;52959-0273-50
 ;;9002226.02101,"626,52959-0273-60 ",.01)
 ;;52959-0273-60
 ;;9002226.02101,"626,52959-0273-60 ",.02)
 ;;52959-0273-60
 ;;9002226.02101,"626,52959-0273-80 ",.01)
 ;;52959-0273-80
 ;;9002226.02101,"626,52959-0273-80 ",.02)
 ;;52959-0273-80
 ;;9002226.02101,"626,52959-0488-30 ",.01)
 ;;52959-0488-30
 ;;9002226.02101,"626,52959-0488-30 ",.02)
 ;;52959-0488-30
 ;;9002226.02101,"626,53723-2630-01 ",.01)
 ;;53723-2630-01
 ;;9002226.02101,"626,53723-2630-01 ",.02)
 ;;53723-2630-01
 ;;9002226.02101,"626,53723-2630-03 ",.01)
 ;;53723-2630-03
 ;;9002226.02101,"626,53723-2630-03 ",.02)
 ;;53723-2630-03
 ;;9002226.02101,"626,54104-0056-07 ",.01)
 ;;54104-0056-07
 ;;9002226.02101,"626,54104-0056-07 ",.02)
 ;;54104-0056-07
 ;;9002226.02101,"626,54104-0056-10 ",.01)
 ;;54104-0056-10
 ;;9002226.02101,"626,54104-0056-10 ",.02)
 ;;54104-0056-10
 ;;9002226.02101,"626,54274-0536-62 ",.01)
 ;;54274-0536-62
 ;;9002226.02101,"626,54274-0536-62 ",.02)
 ;;54274-0536-62
 ;;9002226.02101,"626,54274-0537-62 ",.01)
 ;;54274-0537-62
 ;;9002226.02101,"626,54274-0537-62 ",.02)
 ;;54274-0537-62
 ;;9002226.02101,"626,54274-0541-62 ",.01)
 ;;54274-0541-62
 ;;9002226.02101,"626,54274-0541-62 ",.02)
 ;;54274-0541-62
 ;;9002226.02101,"626,54274-0685-50 ",.01)
 ;;54274-0685-50
 ;;9002226.02101,"626,54274-0685-50 ",.02)
 ;;54274-0685-50
 ;;9002226.02101,"626,54348-0107-12 ",.01)
 ;;54348-0107-12
 ;;9002226.02101,"626,54348-0107-12 ",.02)
 ;;54348-0107-12
 ;;9002226.02101,"626,54429-3227-00 ",.01)
 ;;54429-3227-00
 ;;9002226.02101,"626,54429-3227-00 ",.02)
 ;;54429-3227-00
 ;;9002226.02101,"626,54429-3227-01 ",.01)
 ;;54429-3227-01
 ;;9002226.02101,"626,54429-3227-01 ",.02)
 ;;54429-3227-01