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

BGP7LXEC.m

Go to the documentation of this file.
BGP7LXEC ; 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,"621,00536-0470-90 ",.01)
 ;;00536-0470-90
 ;;9002226.02101,"621,00536-0470-90 ",.02)
 ;;00536-0470-90
 ;;9002226.02101,"621,00536-0470-97 ",.01)
 ;;00536-0470-97
 ;;9002226.02101,"621,00536-0470-97 ",.02)
 ;;00536-0470-97
 ;;9002226.02101,"621,00536-3876-01 ",.01)
 ;;00536-3876-01
 ;;9002226.02101,"621,00536-3876-01 ",.02)
 ;;00536-3876-01
 ;;9002226.02101,"621,00536-3876-05 ",.01)
 ;;00536-3876-05
 ;;9002226.02101,"621,00536-3876-05 ",.02)
 ;;00536-3876-05
 ;;9002226.02101,"621,00536-3876-10 ",.01)
 ;;00536-3876-10
 ;;9002226.02101,"621,00536-3876-10 ",.02)
 ;;00536-3876-10
 ;;9002226.02101,"621,00536-4654-01 ",.01)
 ;;00536-4654-01
 ;;9002226.02101,"621,00536-4654-01 ",.02)
 ;;00536-4654-01
 ;;9002226.02101,"621,00556-0389-05 ",.01)
 ;;00556-0389-05
 ;;9002226.02101,"621,00556-0389-05 ",.02)
 ;;00556-0389-05
 ;;9002226.02101,"621,00556-0389-10 ",.01)
 ;;00556-0389-10
 ;;9002226.02101,"621,00556-0389-10 ",.02)
 ;;00556-0389-10
 ;;9002226.02101,"621,00556-0390-01 ",.01)
 ;;00556-0390-01
 ;;9002226.02101,"621,00556-0390-01 ",.02)
 ;;00556-0390-01
 ;;9002226.02101,"621,00556-0390-05 ",.01)
 ;;00556-0390-05
 ;;9002226.02101,"621,00556-0390-05 ",.02)
 ;;00556-0390-05
 ;;9002226.02101,"621,00591-5523-03 ",.01)
 ;;00591-5523-03
 ;;9002226.02101,"621,00591-5523-03 ",.02)
 ;;00591-5523-03
 ;;9002226.02101,"621,00591-5523-04 ",.01)
 ;;00591-5523-04
 ;;9002226.02101,"621,00591-5523-04 ",.02)
 ;;00591-5523-04
 ;;9002226.02101,"621,00591-5565-03 ",.01)
 ;;00591-5565-03
 ;;9002226.02101,"621,00591-5565-03 ",.02)
 ;;00591-5565-03
 ;;9002226.02101,"621,00597-0020-01 ",.01)
 ;;00597-0020-01
 ;;9002226.02101,"621,00597-0020-01 ",.02)
 ;;00597-0020-01
 ;;9002226.02101,"621,00597-0021-01 ",.01)
 ;;00597-0021-01
 ;;9002226.02101,"621,00597-0021-01 ",.02)
 ;;00597-0021-01
 ;;9002226.02101,"621,00597-0023-01 ",.01)
 ;;00597-0023-01
 ;;9002226.02101,"621,00597-0023-01 ",.02)
 ;;00597-0023-01
 ;;9002226.02101,"621,00597-0025-04 ",.01)
 ;;00597-0025-04
 ;;9002226.02101,"621,00597-0025-04 ",.02)
 ;;00597-0025-04
 ;;9002226.02101,"621,00597-0027-02 ",.01)
 ;;00597-0027-02
 ;;9002226.02101,"621,00597-0027-02 ",.02)
 ;;00597-0027-02
 ;;9002226.02101,"621,00603-1756-54 ",.01)
 ;;00603-1756-54
 ;;9002226.02101,"621,00603-1756-54 ",.02)
 ;;00603-1756-54
 ;;9002226.02101,"621,00603-5992-21 ",.01)
 ;;00603-5992-21
 ;;9002226.02101,"621,00603-5992-21 ",.02)
 ;;00603-5992-21
 ;;9002226.02101,"621,00603-5993-21 ",.01)
 ;;00603-5993-21
 ;;9002226.02101,"621,00603-5993-21 ",.02)
 ;;00603-5993-21
 ;;9002226.02101,"621,00603-5993-32 ",.01)
 ;;00603-5993-32
 ;;9002226.02101,"621,00603-5993-32 ",.02)
 ;;00603-5993-32
 ;;9002226.02101,"621,00603-5994-21 ",.01)
 ;;00603-5994-21
 ;;9002226.02101,"621,00603-5994-21 ",.02)
 ;;00603-5994-21
 ;;9002226.02101,"621,00603-5995-21 ",.01)
 ;;00603-5995-21
 ;;9002226.02101,"621,00603-5995-21 ",.02)
 ;;00603-5995-21
 ;;9002226.02101,"621,00615-1526-29 ",.01)
 ;;00615-1526-29
 ;;9002226.02101,"621,00615-1526-29 ",.02)
 ;;00615-1526-29
 ;;9002226.02101,"621,00615-1526-65 ",.01)
 ;;00615-1526-65
 ;;9002226.02101,"621,00615-1526-65 ",.02)
 ;;00615-1526-65
 ;;9002226.02101,"621,00615-2504-43 ",.01)
 ;;00615-2504-43
 ;;9002226.02101,"621,00615-2504-43 ",.02)
 ;;00615-2504-43
 ;;9002226.02101,"621,00615-2504-53 ",.01)
 ;;00615-2504-53
 ;;9002226.02101,"621,00615-2504-53 ",.02)
 ;;00615-2504-53
 ;;9002226.02101,"621,00615-2504-63 ",.01)
 ;;00615-2504-63
 ;;9002226.02101,"621,00615-2504-63 ",.02)
 ;;00615-2504-63
 ;;9002226.02101,"621,00615-2505-53 ",.01)
 ;;00615-2505-53
 ;;9002226.02101,"621,00615-2505-53 ",.02)
 ;;00615-2505-53
 ;;9002226.02101,"621,00615-2506-43 ",.01)
 ;;00615-2506-43
 ;;9002226.02101,"621,00615-2506-43 ",.02)
 ;;00615-2506-43
 ;;9002226.02101,"621,00615-2506-53 ",.01)
 ;;00615-2506-53
 ;;9002226.02101,"621,00615-2506-53 ",.02)
 ;;00615-2506-53
 ;;9002226.02101,"621,00615-2506-63 ",.01)
 ;;00615-2506-63
 ;;9002226.02101,"621,00615-2506-63 ",.02)
 ;;00615-2506-63
 ;;9002226.02101,"621,00615-2507-43 ",.01)
 ;;00615-2507-43
 ;;9002226.02101,"621,00615-2507-43 ",.02)
 ;;00615-2507-43
 ;;9002226.02101,"621,00615-2507-53 ",.01)
 ;;00615-2507-53
 ;;9002226.02101,"621,00615-2507-53 ",.02)
 ;;00615-2507-53
 ;;9002226.02101,"621,00615-2507-63 ",.01)
 ;;00615-2507-63
 ;;9002226.02101,"621,00615-2507-63 ",.02)
 ;;00615-2507-63
 ;;9002226.02101,"621,00615-2508-13 ",.01)
 ;;00615-2508-13
 ;;9002226.02101,"621,00615-2508-13 ",.02)
 ;;00615-2508-13
 ;;9002226.02101,"621,00615-2508-43 ",.01)
 ;;00615-2508-43
 ;;9002226.02101,"621,00615-2508-43 ",.02)
 ;;00615-2508-43
 ;;9002226.02101,"621,00615-2508-53 ",.01)
 ;;00615-2508-53
 ;;9002226.02101,"621,00615-2508-53 ",.02)
 ;;00615-2508-53
 ;;9002226.02101,"621,00615-2509-53 ",.01)
 ;;00615-2509-53
 ;;9002226.02101,"621,00615-2509-53 ",.02)
 ;;00615-2509-53
 ;;9002226.02101,"621,00615-2510-53 ",.01)
 ;;00615-2510-53
 ;;9002226.02101,"621,00615-2510-53 ",.02)
 ;;00615-2510-53
 ;;9002226.02101,"621,00672-0379-26 ",.01)
 ;;00672-0379-26
 ;;9002226.02101,"621,00672-0379-26 ",.02)
 ;;00672-0379-26
 ;;9002226.02101,"621,00675-2751-16 ",.01)
 ;;00675-2751-16
 ;;9002226.02101,"621,00675-2751-16 ",.02)
 ;;00675-2751-16
 ;;9002226.02101,"621,00675-2751-28 ",.01)
 ;;00675-2751-28
 ;;9002226.02101,"621,00675-2751-28 ",.02)
 ;;00675-2751-28
 ;;9002226.02101,"621,00677-0823-01 ",.01)
 ;;00677-0823-01
 ;;9002226.02101,"621,00677-0823-01 ",.02)
 ;;00677-0823-01
 ;;9002226.02101,"621,00677-0823-06 ",.01)
 ;;00677-0823-06
 ;;9002226.02101,"621,00677-0823-06 ",.02)
 ;;00677-0823-06
 ;;9002226.02101,"621,00677-0823-10 ",.01)
 ;;00677-0823-10
 ;;9002226.02101,"621,00677-0823-10 ",.02)
 ;;00677-0823-10
 ;;9002226.02101,"621,00677-0824-01 ",.01)
 ;;00677-0824-01
 ;;9002226.02101,"621,00677-0824-01 ",.02)
 ;;00677-0824-01
 ;;9002226.02101,"621,00677-0824-06 ",.01)
 ;;00677-0824-06
 ;;9002226.02101,"621,00677-0824-06 ",.02)
 ;;00677-0824-06
 ;;9002226.02101,"621,00677-0824-10 ",.01)
 ;;00677-0824-10
 ;;9002226.02101,"621,00677-0824-10 ",.02)
 ;;00677-0824-10
 ;;9002226.02101,"621,00677-0825-01 ",.01)
 ;;00677-0825-01
 ;;9002226.02101,"621,00677-0825-01 ",.02)
 ;;00677-0825-01
 ;;9002226.02101,"621,00677-0825-06 ",.01)
 ;;00677-0825-06
 ;;9002226.02101,"621,00677-0825-06 ",.02)
 ;;00677-0825-06
 ;;9002226.02101,"621,00677-0825-10 ",.01)
 ;;00677-0825-10
 ;;9002226.02101,"621,00677-0825-10 ",.02)
 ;;00677-0825-10
 ;;9002226.02101,"621,00677-0832-01 ",.01)
 ;;00677-0832-01
 ;;9002226.02101,"621,00677-0832-01 ",.02)
 ;;00677-0832-01
 ;;9002226.02101,"621,00677-0832-06 ",.01)
 ;;00677-0832-06
 ;;9002226.02101,"621,00677-0832-06 ",.02)
 ;;00677-0832-06
 ;;9002226.02101,"621,00677-1485-41 ",.01)
 ;;00677-1485-41
 ;;9002226.02101,"621,00677-1485-41 ",.02)
 ;;00677-1485-41
 ;;9002226.02101,"621,00686-0565-20 ",.01)
 ;;00686-0565-20
 ;;9002226.02101,"621,00686-0565-20 ",.02)
 ;;00686-0565-20
 ;;9002226.02101,"621,00686-0566-20 ",.01)
 ;;00686-0566-20
 ;;9002226.02101,"621,00686-0566-20 ",.02)
 ;;00686-0566-20
 ;;9002226.02101,"621,00686-0567-20 ",.01)
 ;;00686-0567-20
 ;;9002226.02101,"621,00686-0567-20 ",.02)
 ;;00686-0567-20
 ;;9002226.02101,"621,00686-0580-20 ",.01)
 ;;00686-0580-20
 ;;9002226.02101,"621,00686-0580-20 ",.02)
 ;;00686-0580-20
 ;;9002226.02101,"621,00686-0608-14 ",.01)
 ;;00686-0608-14
 ;;9002226.02101,"621,00686-0608-14 ",.02)
 ;;00686-0608-14
 ;;9002226.02101,"621,00686-0616-01 ",.01)
 ;;00686-0616-01
 ;;9002226.02101,"621,00686-0616-01 ",.02)
 ;;00686-0616-01
 ;;9002226.02101,"621,00686-0618-01 ",.01)
 ;;00686-0618-01
 ;;9002226.02101,"621,00686-0618-01 ",.02)
 ;;00686-0618-01
 ;;9002226.02101,"621,00686-1451-94 ",.01)
 ;;00686-1451-94
 ;;9002226.02101,"621,00686-1451-94 ",.02)
 ;;00686-1451-94
 ;;9002226.02101,"621,00781-0268-06 ",.01)
 ;;00781-0268-06
 ;;9002226.02101,"621,00781-0268-06 ",.02)
 ;;00781-0268-06
 ;;9002226.02101,"621,00781-1334-13 ",.01)
 ;;00781-1334-13
 ;;9002226.02101,"621,00781-1334-13 ",.02)
 ;;00781-1334-13
 ;;9002226.02101,"621,00781-1336-13 ",.01)
 ;;00781-1336-13
 ;;9002226.02101,"621,00781-1336-13 ",.02)
 ;;00781-1336-13
 ;;9002226.02101,"621,00781-1604-01 ",.01)
 ;;00781-1604-01
 ;;9002226.02101,"621,00781-1604-01 ",.02)
 ;;00781-1604-01
 ;;9002226.02101,"621,00781-1604-10 ",.01)
 ;;00781-1604-10
 ;;9002226.02101,"621,00781-1604-10 ",.02)
 ;;00781-1604-10
 ;;9002226.02101,"621,00781-1604-13 ",.01)
 ;;00781-1604-13
 ;;9002226.02101,"621,00781-1604-13 ",.02)
 ;;00781-1604-13
 ;;9002226.02101,"621,00781-1614-01 ",.01)
 ;;00781-1614-01
 ;;9002226.02101,"621,00781-1614-01 ",.02)
 ;;00781-1614-01
 ;;9002226.02101,"621,00781-1614-13 ",.01)
 ;;00781-1614-13
 ;;9002226.02101,"621,00781-1614-13 ",.02)
 ;;00781-1614-13
 ;;9002226.02101,"621,00781-1624-01 ",.01)
 ;;00781-1624-01
 ;;9002226.02101,"621,00781-1624-01 ",.02)
 ;;00781-1624-01
 ;;9002226.02101,"621,00781-1624-10 ",.01)
 ;;00781-1624-10
 ;;9002226.02101,"621,00781-1624-10 ",.02)
 ;;00781-1624-10
 ;;9002226.02101,"621,00781-1624-13 ",.01)
 ;;00781-1624-13
 ;;9002226.02101,"621,00781-1624-13 ",.02)
 ;;00781-1624-13
 ;;9002226.02101,"621,00781-1634-01 ",.01)
 ;;00781-1634-01
 ;;9002226.02101,"621,00781-1634-01 ",.02)
 ;;00781-1634-01
 ;;9002226.02101,"621,00781-1634-10 ",.01)
 ;;00781-1634-10
 ;;9002226.02101,"621,00781-1634-10 ",.02)
 ;;00781-1634-10
 ;;9002226.02101,"621,00781-1634-13 ",.01)
 ;;00781-1634-13
 ;;9002226.02101,"621,00781-1634-13 ",.02)
 ;;00781-1634-13
 ;;9002226.02101,"621,00781-1644-01 ",.01)
 ;;00781-1644-01
 ;;9002226.02101,"621,00781-1644-01 ",.02)
 ;;00781-1644-01
 ;;9002226.02101,"621,00781-1644-10 ",.01)
 ;;00781-1644-10
 ;;9002226.02101,"621,00781-1644-10 ",.02)
 ;;00781-1644-10
 ;;9002226.02101,"621,00781-1644-13 ",.01)
 ;;00781-1644-13
 ;;9002226.02101,"621,00781-1644-13 ",.02)
 ;;00781-1644-13
 ;;9002226.02101,"621,00781-1664-01 ",.01)
 ;;00781-1664-01
 ;;9002226.02101,"621,00781-1664-01 ",.02)
 ;;00781-1664-01
 ;;9002226.02101,"621,00781-1674-01 ",.01)
 ;;00781-1674-01
 ;;9002226.02101,"621,00781-1674-01 ",.02)
 ;;00781-1674-01
 ;;9002226.02101,"621,00781-6150-04 ",.01)
 ;;00781-6150-04
 ;;9002226.02101,"621,00781-6150-04 ",.02)
 ;;00781-6150-04
 ;;9002226.02101,"621,00820-0151-40 ",.01)
 ;;00820-0151-40
 ;;9002226.02101,"621,00820-0151-40 ",.02)
 ;;00820-0151-40
 ;;9002226.02101,"621,00832-8639-16 ",.01)
 ;;00832-8639-16
 ;;9002226.02101,"621,00832-8639-16 ",.02)
 ;;00832-8639-16
 ;;9002226.02101,"621,00832-8639-28 ",.01)
 ;;00832-8639-28
 ;;9002226.02101,"621,00832-8639-28 ",.02)
 ;;00832-8639-28
 ;;9002226.02101,"621,00839-5162-69 ",.01)
 ;;00839-5162-69
 ;;9002226.02101,"621,00839-5162-69 ",.02)
 ;;00839-5162-69
 ;;9002226.02101,"621,00839-5162-70 ",.01)
 ;;00839-5162-70
 ;;9002226.02101,"621,00839-5162-70 ",.02)
 ;;00839-5162-70
 ;;9002226.02101,"621,00839-6703-06 ",.01)
 ;;00839-6703-06
 ;;9002226.02101,"621,00839-6703-06 ",.02)
 ;;00839-6703-06
 ;;9002226.02101,"621,00839-6703-16 ",.01)
 ;;00839-6703-16
 ;;9002226.02101,"621,00839-6703-16 ",.02)
 ;;00839-6703-16
 ;;9002226.02101,"621,00839-6704-06 ",.01)
 ;;00839-6704-06
 ;;9002226.02101,"621,00839-6704-06 ",.02)
 ;;00839-6704-06
 ;;9002226.02101,"621,00839-6704-16 ",.01)
 ;;00839-6704-16
 ;;9002226.02101,"621,00839-6704-16 ",.02)
 ;;00839-6704-16
 ;;9002226.02101,"621,00839-6705-06 ",.01)
 ;;00839-6705-06
 ;;9002226.02101,"621,00839-6705-06 ",.02)
 ;;00839-6705-06
 ;;9002226.02101,"621,00839-6705-16 ",.01)
 ;;00839-6705-16
 ;;9002226.02101,"621,00839-6705-16 ",.02)
 ;;00839-6705-16
 ;;9002226.02101,"621,00839-6720-06 ",.01)
 ;;00839-6720-06
 ;;9002226.02101,"621,00839-6720-06 ",.02)
 ;;00839-6720-06
 ;;9002226.02101,"621,00894-1224-94 ",.01)
 ;;00894-1224-94
 ;;9002226.02101,"621,00894-1224-94 ",.02)
 ;;00894-1224-94
 ;;9002226.02101,"621,00904-1614-60 ",.01)
 ;;00904-1614-60
 ;;9002226.02101,"621,00904-1614-60 ",.02)
 ;;00904-1614-60
 ;;9002226.02101,"621,00904-1614-80 ",.01)
 ;;00904-1614-80
 ;;9002226.02101,"621,00904-1614-80 ",.02)
 ;;00904-1614-80
 ;;9002226.02101,"621,00904-1615-60 ",.01)
 ;;00904-1615-60
 ;;9002226.02101,"621,00904-1615-60 ",.02)
 ;;00904-1615-60
 ;;9002226.02101,"621,00904-1616-60 ",.01)
 ;;00904-1616-60
 ;;9002226.02101,"621,00904-1616-60 ",.02)
 ;;00904-1616-60
 ;;9002226.02101,"621,00904-1616-80 ",.01)
 ;;00904-1616-80
 ;;9002226.02101,"621,00904-1616-80 ",.02)
 ;;00904-1616-80
 ;;9002226.02101,"621,00904-1617-60 ",.01)
 ;;00904-1617-60
 ;;9002226.02101,"621,00904-1617-60 ",.02)
 ;;00904-1617-60
 ;;9002226.02101,"621,00904-1617-80 ",.01)
 ;;00904-1617-80
 ;;9002226.02101,"621,00904-1617-80 ",.02)
 ;;00904-1617-80
 ;;9002226.02101,"621,00904-1618-40 ",.01)
 ;;00904-1618-40
 ;;9002226.02101,"621,00904-1618-40 ",.02)
 ;;00904-1618-40
 ;;9002226.02101,"621,00904-1618-60 ",.01)
 ;;00904-1618-60
 ;;9002226.02101,"621,00904-1618-60 ",.02)
 ;;00904-1618-60
 ;;9002226.02101,"621,00904-1618-80 ",.01)
 ;;00904-1618-80
 ;;9002226.02101,"621,00904-1618-80 ",.02)
 ;;00904-1618-80
 ;;9002226.02101,"621,00904-1793-60 ",.01)
 ;;00904-1793-60
 ;;9002226.02101,"621,00904-1793-60 ",.02)
 ;;00904-1793-60
 ;;9002226.02101,"621,00904-1793-61 ",.01)
 ;;00904-1793-61
 ;;9002226.02101,"621,00904-1793-61 ",.02)
 ;;00904-1793-61
 ;;9002226.02101,"621,00904-1793-80 ",.01)
 ;;00904-1793-80
 ;;9002226.02101,"621,00904-1793-80 ",.02)
 ;;00904-1793-80
 ;;9002226.02101,"621,00904-1794-60 ",.01)
 ;;00904-1794-60
 ;;9002226.02101,"621,00904-1794-60 ",.02)
 ;;00904-1794-60