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

BGP7LXOF.m

Go to the documentation of this file.
BGP7LXOF ; 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,"632,00603-5468-28 ",.02)
 ;;00603-5468-28
 ;;9002226.02101,"632,00603-5468-32 ",.01)
 ;;00603-5468-32
 ;;9002226.02101,"632,00603-5468-32 ",.02)
 ;;00603-5468-32
 ;;9002226.02101,"632,00615-0360-29 ",.01)
 ;;00615-0360-29
 ;;9002226.02101,"632,00615-0360-29 ",.02)
 ;;00615-0360-29
 ;;9002226.02101,"632,00615-0360-65 ",.01)
 ;;00615-0360-65
 ;;9002226.02101,"632,00615-0360-65 ",.02)
 ;;00615-0360-65
 ;;9002226.02101,"632,00615-0455-63 ",.01)
 ;;00615-0455-63
 ;;9002226.02101,"632,00615-0455-63 ",.02)
 ;;00615-0455-63
 ;;9002226.02101,"632,00641-0130-25 ",.01)
 ;;00641-0130-25
 ;;9002226.02101,"632,00641-0130-25 ",.02)
 ;;00641-0130-25
 ;;9002226.02101,"632,00641-0140-25 ",.01)
 ;;00641-0140-25
 ;;9002226.02101,"632,00641-0140-25 ",.02)
 ;;00641-0140-25
 ;;9002226.02101,"632,00641-0150-25 ",.01)
 ;;00641-0150-25
 ;;9002226.02101,"632,00641-0150-25 ",.02)
 ;;00641-0150-25
 ;;9002226.02101,"632,00641-0160-25 ",.01)
 ;;00641-0160-25
 ;;9002226.02101,"632,00641-0160-25 ",.02)
 ;;00641-0160-25
 ;;9002226.02101,"632,00641-1130-25 ",.01)
 ;;00641-1130-25
 ;;9002226.02101,"632,00641-1130-25 ",.02)
 ;;00641-1130-25
 ;;9002226.02101,"632,00641-1140-25 ",.01)
 ;;00641-1140-25
 ;;9002226.02101,"632,00641-1140-25 ",.02)
 ;;00641-1140-25
 ;;9002226.02101,"632,00675-2754-16 ",.01)
 ;;00675-2754-16
 ;;9002226.02101,"632,00675-2754-16 ",.02)
 ;;00675-2754-16
 ;;9002226.02101,"632,00675-2754-28 ",.01)
 ;;00675-2754-28
 ;;9002226.02101,"632,00675-2754-28 ",.02)
 ;;00675-2754-28
 ;;9002226.02101,"632,00675-2824-28 ",.01)
 ;;00675-2824-28
 ;;9002226.02101,"632,00675-2824-28 ",.02)
 ;;00675-2824-28
 ;;9002226.02101,"632,00675-2825-16 ",.01)
 ;;00675-2825-16
 ;;9002226.02101,"632,00675-2825-16 ",.02)
 ;;00675-2825-16
 ;;9002226.02101,"632,00675-3902-07 ",.01)
 ;;00675-3902-07
 ;;9002226.02101,"632,00675-3902-07 ",.02)
 ;;00675-3902-07
 ;;9002226.02101,"632,00675-3902-12 ",.01)
 ;;00675-3902-12
 ;;9002226.02101,"632,00675-3902-12 ",.02)
 ;;00675-3902-12
 ;;9002226.02101,"632,00677-0356-01 ",.01)
 ;;00677-0356-01
 ;;9002226.02101,"632,00677-0356-01 ",.02)
 ;;00677-0356-01
 ;;9002226.02101,"632,00677-0356-05 ",.01)
 ;;00677-0356-05
 ;;9002226.02101,"632,00677-0356-05 ",.02)
 ;;00677-0356-05
 ;;9002226.02101,"632,00781-1378-13 ",.01)
 ;;00781-1378-13
 ;;9002226.02101,"632,00781-1378-13 ",.02)
 ;;00781-1378-13
 ;;9002226.02101,"632,00781-2140-01 ",.01)
 ;;00781-2140-01
 ;;9002226.02101,"632,00781-2140-01 ",.02)
 ;;00781-2140-01
 ;;9002226.02101,"632,00781-2140-10 ",.01)
 ;;00781-2140-10
 ;;9002226.02101,"632,00781-2140-10 ",.02)
 ;;00781-2140-10
 ;;9002226.02101,"632,00781-2367-01 ",.01)
 ;;00781-2367-01
 ;;9002226.02101,"632,00781-2367-01 ",.02)
 ;;00781-2367-01
 ;;9002226.02101,"632,00781-2367-10 ",.01)
 ;;00781-2367-10
 ;;9002226.02101,"632,00781-2367-10 ",.02)
 ;;00781-2367-10
 ;;9002226.02101,"632,00781-2504-13 ",.01)
 ;;00781-2504-13
 ;;9002226.02101,"632,00781-2504-13 ",.02)
 ;;00781-2504-13
 ;;9002226.02101,"632,00781-6030-16 ",.01)
 ;;00781-6030-16
 ;;9002226.02101,"632,00781-6030-16 ",.02)
 ;;00781-6030-16
 ;;9002226.02101,"632,00781-6635-04 ",.01)
 ;;00781-6635-04
 ;;9002226.02101,"632,00781-6635-04 ",.02)
 ;;00781-6635-04
 ;;9002226.02101,"632,00781-6950-04 ",.01)
 ;;00781-6950-04
 ;;9002226.02101,"632,00781-6950-04 ",.02)
 ;;00781-6950-04
 ;;9002226.02101,"632,00781-6950-28 ",.01)
 ;;00781-6950-28
 ;;9002226.02101,"632,00781-6950-28 ",.02)
 ;;00781-6950-28
 ;;9002226.02101,"632,00813-0045-16 ",.01)
 ;;00813-0045-16
 ;;9002226.02101,"632,00813-0045-16 ",.02)
 ;;00813-0045-16
 ;;9002226.02101,"632,00814-6433-76 ",.01)
 ;;00814-6433-76
 ;;9002226.02101,"632,00814-6433-76 ",.02)
 ;;00814-6433-76
 ;;9002226.02101,"632,00814-6433-82 ",.01)
 ;;00814-6433-82
 ;;9002226.02101,"632,00814-6433-82 ",.02)
 ;;00814-6433-82
 ;;9002226.02101,"632,00814-6439-76 ",.01)
 ;;00814-6439-76
 ;;9002226.02101,"632,00814-6439-76 ",.02)
 ;;00814-6439-76
 ;;9002226.02101,"632,00814-6439-82 ",.01)
 ;;00814-6439-82
 ;;9002226.02101,"632,00814-6439-82 ",.02)
 ;;00814-6439-82
 ;;9002226.02101,"632,00832-8604-04 ",.01)
 ;;00832-8604-04
 ;;9002226.02101,"632,00832-8604-04 ",.02)
 ;;00832-8604-04
 ;;9002226.02101,"632,00832-8604-16 ",.01)
 ;;00832-8604-16
 ;;9002226.02101,"632,00832-8604-16 ",.02)
 ;;00832-8604-16
 ;;9002226.02101,"632,00832-8604-28 ",.01)
 ;;00832-8604-28
 ;;9002226.02101,"632,00832-8604-28 ",.02)
 ;;00832-8604-28
 ;;9002226.02101,"632,00832-8605-04 ",.01)
 ;;00832-8605-04
 ;;9002226.02101,"632,00832-8605-04 ",.02)
 ;;00832-8605-04
 ;;9002226.02101,"632,00832-8605-16 ",.01)
 ;;00832-8605-16
 ;;9002226.02101,"632,00832-8605-16 ",.02)
 ;;00832-8605-16
 ;;9002226.02101,"632,00832-8605-28 ",.01)
 ;;00832-8605-28
 ;;9002226.02101,"632,00832-8605-28 ",.02)
 ;;00832-8605-28
 ;;9002226.02101,"632,00832-8606-04 ",.01)
 ;;00832-8606-04
 ;;9002226.02101,"632,00832-8606-04 ",.02)
 ;;00832-8606-04
 ;;9002226.02101,"632,00832-8606-16 ",.01)
 ;;00832-8606-16
 ;;9002226.02101,"632,00832-8606-16 ",.02)
 ;;00832-8606-16
 ;;9002226.02101,"632,00832-8606-28 ",.01)
 ;;00832-8606-28
 ;;9002226.02101,"632,00832-8606-28 ",.02)
 ;;00832-8606-28
 ;;9002226.02101,"632,00832-8607-04 ",.01)
 ;;00832-8607-04
 ;;9002226.02101,"632,00832-8607-04 ",.02)
 ;;00832-8607-04
 ;;9002226.02101,"632,00832-8607-16 ",.01)
 ;;00832-8607-16
 ;;9002226.02101,"632,00832-8607-16 ",.02)
 ;;00832-8607-16
 ;;9002226.02101,"632,00832-8607-28 ",.01)
 ;;00832-8607-28
 ;;9002226.02101,"632,00832-8607-28 ",.02)
 ;;00832-8607-28
 ;;9002226.02101,"632,00839-1561-06 ",.01)
 ;;00839-1561-06
 ;;9002226.02101,"632,00839-1561-06 ",.02)
 ;;00839-1561-06
 ;;9002226.02101,"632,00839-1566-12 ",.01)
 ;;00839-1566-12
 ;;9002226.02101,"632,00839-1566-12 ",.02)
 ;;00839-1566-12
 ;;9002226.02101,"632,00839-5098-06 ",.01)
 ;;00839-5098-06
 ;;9002226.02101,"632,00839-5098-06 ",.02)
 ;;00839-5098-06
 ;;9002226.02101,"632,00839-5098-12 ",.01)
 ;;00839-5098-12
 ;;9002226.02101,"632,00839-5098-12 ",.02)
 ;;00839-5098-12
 ;;9002226.02101,"632,00839-5098-16 ",.01)
 ;;00839-5098-16
 ;;9002226.02101,"632,00839-5098-16 ",.02)
 ;;00839-5098-16
 ;;9002226.02101,"632,00839-7062-70 ",.01)
 ;;00839-7062-70
 ;;9002226.02101,"632,00839-7062-70 ",.02)
 ;;00839-7062-70
 ;;9002226.02101,"632,00839-7123-12 ",.01)
 ;;00839-7123-12
 ;;9002226.02101,"632,00839-7123-12 ",.02)
 ;;00839-7123-12
 ;;9002226.02101,"632,00839-7330-06 ",.01)
 ;;00839-7330-06
 ;;9002226.02101,"632,00839-7330-06 ",.02)
 ;;00839-7330-06
 ;;9002226.02101,"632,00839-7330-12 ",.01)
 ;;00839-7330-12
 ;;9002226.02101,"632,00839-7330-12 ",.02)
 ;;00839-7330-12
 ;;9002226.02101,"632,00839-7704-06 ",.01)
 ;;00839-7704-06
 ;;9002226.02101,"632,00839-7704-06 ",.02)
 ;;00839-7704-06
 ;;9002226.02101,"632,00839-7796-16 ",.01)
 ;;00839-7796-16
 ;;9002226.02101,"632,00839-7796-16 ",.02)
 ;;00839-7796-16
 ;;9002226.02101,"632,00853-0057-10 ",.01)
 ;;00853-0057-10
 ;;9002226.02101,"632,00853-0057-10 ",.02)
 ;;00853-0057-10
 ;;9002226.02101,"632,00904-1510-20 ",.01)
 ;;00904-1510-20
 ;;9002226.02101,"632,00904-1510-20 ",.02)
 ;;00904-1510-20
 ;;9002226.02101,"632,00904-1512-20 ",.01)
 ;;00904-1512-20
 ;;9002226.02101,"632,00904-1512-20 ",.02)
 ;;00904-1512-20
 ;;9002226.02101,"632,00904-1977-60 ",.01)
 ;;00904-1977-60
 ;;9002226.02101,"632,00904-1977-60 ",.02)
 ;;00904-1977-60
 ;;9002226.02101,"632,00904-1978-60 ",.01)
 ;;00904-1978-60
 ;;9002226.02101,"632,00904-1978-60 ",.02)
 ;;00904-1978-60
 ;;9002226.02101,"632,00904-2171-40 ",.01)
 ;;00904-2171-40
 ;;9002226.02101,"632,00904-2171-40 ",.02)
 ;;00904-2171-40
 ;;9002226.02101,"632,00904-2171-60 ",.01)
 ;;00904-2171-60
 ;;9002226.02101,"632,00904-2171-60 ",.02)
 ;;00904-2171-60
 ;;9002226.02101,"632,00904-2171-61 ",.01)
 ;;00904-2171-61
 ;;9002226.02101,"632,00904-2171-61 ",.02)
 ;;00904-2171-61
 ;;9002226.02101,"632,00904-2280-60 ",.01)
 ;;00904-2280-60
 ;;9002226.02101,"632,00904-2280-60 ",.02)
 ;;00904-2280-60
 ;;9002226.02101,"632,00904-2281-40 ",.01)
 ;;00904-2281-40
 ;;9002226.02101,"632,00904-2281-40 ",.02)
 ;;00904-2281-40
 ;;9002226.02101,"632,00904-2281-60 ",.01)
 ;;00904-2281-60
 ;;9002226.02101,"632,00904-2281-60 ",.02)
 ;;00904-2281-60
 ;;9002226.02101,"632,00904-3286-61 ",.01)
 ;;00904-3286-61
 ;;9002226.02101,"632,00904-3286-61 ",.02)
 ;;00904-3286-61
 ;;9002226.02101,"632,00904-5369-60 ",.01)
 ;;00904-5369-60
 ;;9002226.02101,"632,00904-5369-60 ",.02)
 ;;00904-5369-60
 ;;9002226.02101,"632,00904-7700-40 ",.01)
 ;;00904-7700-40
 ;;9002226.02101,"632,00904-7700-40 ",.02)
 ;;00904-7700-40
 ;;9002226.02101,"632,00904-7700-60 ",.01)
 ;;00904-7700-60
 ;;9002226.02101,"632,00904-7700-60 ",.02)
 ;;00904-7700-60
 ;;9002226.02101,"632,00904-7700-61 ",.01)
 ;;00904-7700-61
 ;;9002226.02101,"632,00904-7700-61 ",.02)
 ;;00904-7700-61
 ;;9002226.02101,"632,00904-7700-80 ",.01)
 ;;00904-7700-80
 ;;9002226.02101,"632,00904-7700-80 ",.02)
 ;;00904-7700-80
 ;;9002226.02101,"632,00904-7701-40 ",.01)
 ;;00904-7701-40
 ;;9002226.02101,"632,00904-7701-40 ",.02)
 ;;00904-7701-40
 ;;9002226.02101,"632,00904-7701-60 ",.01)
 ;;00904-7701-60
 ;;9002226.02101,"632,00904-7701-60 ",.02)
 ;;00904-7701-60
 ;;9002226.02101,"632,00904-7701-80 ",.01)
 ;;00904-7701-80
 ;;9002226.02101,"632,00904-7701-80 ",.02)
 ;;00904-7701-80
 ;;9002226.02101,"632,00904-7702-40 ",.01)
 ;;00904-7702-40
 ;;9002226.02101,"632,00904-7702-40 ",.02)
 ;;00904-7702-40
 ;;9002226.02101,"632,00904-7702-80 ",.01)
 ;;00904-7702-80
 ;;9002226.02101,"632,00904-7702-80 ",.02)
 ;;00904-7702-80
 ;;9002226.02101,"632,00904-7703-40 ",.01)
 ;;00904-7703-40
 ;;9002226.02101,"632,00904-7703-40 ",.02)
 ;;00904-7703-40
 ;;9002226.02101,"632,00906-5371-01 ",.01)
 ;;00906-5371-01
 ;;9002226.02101,"632,00906-5371-01 ",.02)
 ;;00906-5371-01
 ;;9002226.02101,"632,00906-5371-30 ",.01)
 ;;00906-5371-30
 ;;9002226.02101,"632,00906-5371-30 ",.02)
 ;;00906-5371-30
 ;;9002226.02101,"632,00917-0818-01 ",.01)
 ;;00917-0818-01
 ;;9002226.02101,"632,00917-0818-01 ",.02)
 ;;00917-0818-01
 ;;9002226.02101,"632,00917-0818-10 ",.01)
 ;;00917-0818-10
 ;;9002226.02101,"632,00917-0818-10 ",.02)
 ;;00917-0818-10
 ;;9002226.02101,"632,00998-2183-30 ",.01)
 ;;00998-2183-30
 ;;9002226.02101,"632,00998-2183-30 ",.02)
 ;;00998-2183-30
 ;;9002226.02101,"632,10019-0151-44 ",.01)
 ;;10019-0151-44
 ;;9002226.02101,"632,10019-0151-44 ",.02)
 ;;10019-0151-44
 ;;9002226.02101,"632,10019-0151-47 ",.01)
 ;;10019-0151-47
 ;;9002226.02101,"632,10019-0151-47 ",.02)
 ;;10019-0151-47
 ;;9002226.02101,"632,10019-0152-44 ",.01)
 ;;10019-0152-44
 ;;9002226.02101,"632,10019-0152-44 ",.02)
 ;;10019-0152-44
 ;;9002226.02101,"632,10019-0153-47 ",.01)
 ;;10019-0153-47
 ;;9002226.02101,"632,10019-0153-47 ",.02)
 ;;10019-0153-47
 ;;9002226.02101,"632,10019-0154-44 ",.01)
 ;;10019-0154-44
 ;;9002226.02101,"632,10019-0154-44 ",.02)
 ;;10019-0154-44
 ;;9002226.02101,"632,10019-0155-68 ",.01)
 ;;10019-0155-68
 ;;9002226.02101,"632,10019-0155-68 ",.02)
 ;;10019-0155-68
 ;;9002226.02101,"632,10019-0156-68 ",.01)
 ;;10019-0156-68
 ;;9002226.02101,"632,10019-0156-68 ",.02)
 ;;10019-0156-68
 ;;9002226.02101,"632,10019-0157-68 ",.01)
 ;;10019-0157-68
 ;;9002226.02101,"632,10019-0157-68 ",.02)
 ;;10019-0157-68
 ;;9002226.02101,"632,10019-0158-68 ",.01)
 ;;10019-0158-68
 ;;9002226.02101,"632,10019-0158-68 ",.02)
 ;;10019-0158-68
 ;;9002226.02101,"632,10019-0159-01 ",.01)
 ;;10019-0159-01
 ;;9002226.02101,"632,10019-0159-01 ",.02)
 ;;10019-0159-01
 ;;9002226.02101,"632,10019-0160-01 ",.01)
 ;;10019-0160-01
 ;;9002226.02101,"632,10019-0160-01 ",.02)
 ;;10019-0160-01
 ;;9002226.02101,"632,10019-0161-01 ",.01)
 ;;10019-0161-01
 ;;9002226.02101,"632,10019-0161-01 ",.02)
 ;;10019-0161-01
 ;;9002226.02101,"632,10019-0162-01 ",.01)
 ;;10019-0162-01
 ;;9002226.02101,"632,10019-0162-01 ",.02)
 ;;10019-0162-01
 ;;9002226.02101,"632,10122-0301-10 ",.01)
 ;;10122-0301-10
 ;;9002226.02101,"632,10122-0301-10 ",.02)
 ;;10122-0301-10
 ;;9002226.02101,"632,10267-1724-01 ",.01)
 ;;10267-1724-01
 ;;9002226.02101,"632,10267-1724-01 ",.02)
 ;;10267-1724-01
 ;;9002226.02101,"632,10267-1724-04 ",.01)
 ;;10267-1724-04
 ;;9002226.02101,"632,10267-1724-04 ",.02)
 ;;10267-1724-04
 ;;9002226.02101,"632,10877-0333-26 ",.01)
 ;;10877-0333-26
 ;;9002226.02101,"632,10877-0333-26 ",.02)
 ;;10877-0333-26
 ;;9002226.02101,"632,11026-2614-10 ",.01)
 ;;11026-2614-10
 ;;9002226.02101,"632,11026-2614-10 ",.02)
 ;;11026-2614-10
 ;;9002226.02101,"632,11735-0005-11 ",.01)
 ;;11735-0005-11
 ;;9002226.02101,"632,11735-0005-11 ",.02)
 ;;11735-0005-11
 ;;9002226.02101,"632,11735-0005-13 ",.01)
 ;;11735-0005-13
 ;;9002226.02101,"632,11735-0005-13 ",.02)
 ;;11735-0005-13
 ;;9002226.02101,"632,11845-0439-04 ",.01)
 ;;11845-0439-04
 ;;9002226.02101,"632,11845-0439-04 ",.02)
 ;;11845-0439-04
 ;;9002226.02101,"632,11845-0440-04 ",.01)
 ;;11845-0440-04
 ;;9002226.02101,"632,11845-0440-04 ",.02)
 ;;11845-0440-04
 ;;9002226.02101,"632,12280-0160-00 ",.01)
 ;;12280-0160-00
 ;;9002226.02101,"632,12280-0160-00 ",.02)
 ;;12280-0160-00
 ;;9002226.02101,"632,17022-3272-03 ",.01)
 ;;17022-3272-03
 ;;9002226.02101,"632,17022-3272-03 ",.02)
 ;;17022-3272-03
 ;;9002226.02101,"632,17022-3272-09 ",.01)
 ;;17022-3272-09
 ;;9002226.02101,"632,17022-3272-09 ",.02)
 ;;17022-3272-09
 ;;9002226.02101,"632,17022-8937-06 ",.01)
 ;;17022-8937-06
 ;;9002226.02101,"632,17022-8937-06 ",.02)
 ;;17022-8937-06
 ;;9002226.02101,"632,17236-0261-01 ",.01)
 ;;17236-0261-01