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

BGP7LXFE.m

Go to the documentation of this file.
BGP7LXFE ; 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,"623,00405-0029-01 ",.01)
 ;;00405-0029-01
 ;;9002226.02101,"623,00405-0029-01 ",.02)
 ;;00405-0029-01
 ;;9002226.02101,"623,00405-0148-03 ",.01)
 ;;00405-0148-03
 ;;9002226.02101,"623,00405-0148-03 ",.02)
 ;;00405-0148-03
 ;;9002226.02101,"623,00405-0149-03 ",.01)
 ;;00405-0149-03
 ;;9002226.02101,"623,00405-0149-03 ",.02)
 ;;00405-0149-03
 ;;9002226.02101,"623,00405-0155-16 ",.01)
 ;;00405-0155-16
 ;;9002226.02101,"623,00405-0155-16 ",.02)
 ;;00405-0155-16
 ;;9002226.02101,"623,00406-0970-01 ",.01)
 ;;00406-0970-01
 ;;9002226.02101,"623,00406-0970-01 ",.02)
 ;;00406-0970-01
 ;;9002226.02101,"623,00406-0970-05 ",.01)
 ;;00406-0970-05
 ;;9002226.02101,"623,00406-0970-05 ",.02)
 ;;00406-0970-05
 ;;9002226.02101,"623,00418-3341-10 ",.01)
 ;;00418-3341-10
 ;;9002226.02101,"623,00418-3341-10 ",.02)
 ;;00418-3341-10
 ;;9002226.02101,"623,00436-0585-16 ",.01)
 ;;00436-0585-16
 ;;9002226.02101,"623,00436-0585-16 ",.02)
 ;;00436-0585-16
 ;;9002226.02101,"623,00436-0585-28 ",.01)
 ;;00436-0585-28
 ;;9002226.02101,"623,00436-0585-28 ",.02)
 ;;00436-0585-28
 ;;9002226.02101,"623,00436-0585-32 ",.01)
 ;;00436-0585-32
 ;;9002226.02101,"623,00436-0585-32 ",.02)
 ;;00436-0585-32
 ;;9002226.02101,"623,00440-8085-90 ",.01)
 ;;00440-8085-90
 ;;9002226.02101,"623,00440-8085-90 ",.02)
 ;;00440-8085-90
 ;;9002226.02101,"623,00456-0678-01 ",.01)
 ;;00456-0678-01
 ;;9002226.02101,"623,00456-0678-01 ",.02)
 ;;00456-0678-01
 ;;9002226.02101,"623,00456-0678-02 ",.01)
 ;;00456-0678-02
 ;;9002226.02101,"623,00456-0678-02 ",.02)
 ;;00456-0678-02
 ;;9002226.02101,"623,00456-0679-01 ",.01)
 ;;00456-0679-01
 ;;9002226.02101,"623,00456-0679-01 ",.02)
 ;;00456-0679-01
 ;;9002226.02101,"623,00456-0679-02 ",.01)
 ;;00456-0679-02
 ;;9002226.02101,"623,00456-0679-02 ",.02)
 ;;00456-0679-02
 ;;9002226.02101,"623,00463-2040-10 ",.01)
 ;;00463-2040-10
 ;;9002226.02101,"623,00463-2040-10 ",.02)
 ;;00463-2040-10
 ;;9002226.02101,"623,00463-6110-10 ",.01)
 ;;00463-6110-10
 ;;9002226.02101,"623,00463-6110-10 ",.02)
 ;;00463-6110-10
 ;;9002226.02101,"623,00463-6145-10 ",.01)
 ;;00463-6145-10
 ;;9002226.02101,"623,00463-6145-10 ",.02)
 ;;00463-6145-10
 ;;9002226.02101,"623,00463-6151-10 ",.01)
 ;;00463-6151-10
 ;;9002226.02101,"623,00463-6151-10 ",.02)
 ;;00463-6151-10
 ;;9002226.02101,"623,00463-6152-10 ",.01)
 ;;00463-6152-10
 ;;9002226.02101,"623,00463-6152-10 ",.02)
 ;;00463-6152-10
 ;;9002226.02101,"623,00463-6160-10 ",.01)
 ;;00463-6160-10
 ;;9002226.02101,"623,00463-6160-10 ",.02)
 ;;00463-6160-10
 ;;9002226.02101,"623,00463-6326-05 ",.01)
 ;;00463-6326-05
 ;;9002226.02101,"623,00463-6326-05 ",.02)
 ;;00463-6326-05
 ;;9002226.02101,"623,00463-9018-28 ",.01)
 ;;00463-9018-28
 ;;9002226.02101,"623,00463-9018-28 ",.02)
 ;;00463-9018-28
 ;;9002226.02101,"623,00472-1015-16 ",.01)
 ;;00472-1015-16
 ;;9002226.02101,"623,00472-1015-16 ",.02)
 ;;00472-1015-16
 ;;9002226.02101,"623,00472-1015-28 ",.01)
 ;;00472-1015-28
 ;;9002226.02101,"623,00472-1015-28 ",.02)
 ;;00472-1015-28
 ;;9002226.02101,"623,00527-1312-01 ",.01)
 ;;00527-1312-01
 ;;9002226.02101,"623,00527-1312-01 ",.02)
 ;;00527-1312-01
 ;;9002226.02101,"623,00527-1552-01 ",.01)
 ;;00527-1552-01
 ;;9002226.02101,"623,00527-1552-01 ",.02)
 ;;00527-1552-01
 ;;9002226.02101,"623,00535-0011-01 ",.01)
 ;;00535-0011-01
 ;;9002226.02101,"623,00535-0011-01 ",.02)
 ;;00535-0011-01
 ;;9002226.02101,"623,00535-0011-02 ",.01)
 ;;00535-0011-02
 ;;9002226.02101,"623,00535-0011-02 ",.02)
 ;;00535-0011-02
 ;;9002226.02101,"623,00535-0012-01 ",.01)
 ;;00535-0012-01
 ;;9002226.02101,"623,00535-0012-01 ",.02)
 ;;00535-0012-01
 ;;9002226.02101,"623,00536-3896-05 ",.01)
 ;;00536-3896-05
 ;;9002226.02101,"623,00536-3896-05 ",.02)
 ;;00536-3896-05
 ;;9002226.02101,"623,00536-4224-10 ",.01)
 ;;00536-4224-10
 ;;9002226.02101,"623,00536-4224-10 ",.02)
 ;;00536-4224-10
 ;;9002226.02101,"623,00551-0181-01 ",.01)
 ;;00551-0181-01
 ;;9002226.02101,"623,00551-0181-01 ",.02)
 ;;00551-0181-01
 ;;9002226.02101,"623,00556-0112-16 ",.01)
 ;;00556-0112-16
 ;;9002226.02101,"623,00556-0112-16 ",.02)
 ;;00556-0112-16
 ;;9002226.02101,"623,00556-0112-28 ",.01)
 ;;00556-0112-28
 ;;9002226.02101,"623,00556-0112-28 ",.02)
 ;;00556-0112-28
 ;;9002226.02101,"623,00556-0418-05 ",.01)
 ;;00556-0418-05
 ;;9002226.02101,"623,00556-0418-05 ",.02)
 ;;00556-0418-05
 ;;9002226.02101,"623,00556-0419-05 ",.01)
 ;;00556-0419-05
 ;;9002226.02101,"623,00556-0419-05 ",.02)
 ;;00556-0419-05
 ;;9002226.02101,"623,00588-7777-01 ",.01)
 ;;00588-7777-01
 ;;9002226.02101,"623,00588-7777-01 ",.02)
 ;;00588-7777-01
 ;;9002226.02101,"623,00591-0425-01 ",.01)
 ;;00591-0425-01
 ;;9002226.02101,"623,00591-0425-01 ",.02)
 ;;00591-0425-01
 ;;9002226.02101,"623,00591-0425-05 ",.01)
 ;;00591-0425-05
 ;;9002226.02101,"623,00591-0425-05 ",.02)
 ;;00591-0425-05
 ;;9002226.02101,"623,00591-0485-01 ",.01)
 ;;00591-0485-01
 ;;9002226.02101,"623,00591-0485-01 ",.02)
 ;;00591-0485-01
 ;;9002226.02101,"623,00591-0485-05 ",.01)
 ;;00591-0485-05
 ;;9002226.02101,"623,00591-0485-05 ",.02)
 ;;00591-0485-05
 ;;9002226.02101,"623,00591-3219-01 ",.01)
 ;;00591-3219-01
 ;;9002226.02101,"623,00591-3219-01 ",.02)
 ;;00591-3219-01
 ;;9002226.02101,"623,00591-3220-01 ",.01)
 ;;00591-3220-01
 ;;9002226.02101,"623,00591-3220-01 ",.02)
 ;;00591-3220-01
 ;;9002226.02101,"623,00591-3416-01 ",.01)
 ;;00591-3416-01
 ;;9002226.02101,"623,00591-3416-01 ",.02)
 ;;00591-3416-01
 ;;9002226.02101,"623,00591-3416-05 ",.01)
 ;;00591-3416-05
 ;;9002226.02101,"623,00591-3416-05 ",.02)
 ;;00591-3416-05
 ;;9002226.02101,"623,00591-5726-03 ",.01)
 ;;00591-5726-03
 ;;9002226.02101,"623,00591-5726-03 ",.02)
 ;;00591-5726-03
 ;;9002226.02101,"623,00603-1508-58 ",.01)
 ;;00603-1508-58
 ;;9002226.02101,"623,00603-1508-58 ",.02)
 ;;00603-1508-58
 ;;9002226.02101,"623,00603-2540-21 ",.01)
 ;;00603-2540-21
 ;;9002226.02101,"623,00603-2540-21 ",.02)
 ;;00603-2540-21
 ;;9002226.02101,"623,00603-2542-21 ",.01)
 ;;00603-2542-21
 ;;9002226.02101,"623,00603-2542-21 ",.02)
 ;;00603-2542-21
 ;;9002226.02101,"623,00603-2544-21 ",.01)
 ;;00603-2544-21
 ;;9002226.02101,"623,00603-2544-21 ",.02)
 ;;00603-2544-21
 ;;9002226.02101,"623,00603-2544-28 ",.01)
 ;;00603-2544-28
 ;;9002226.02101,"623,00603-2544-28 ",.02)
 ;;00603-2544-28
 ;;9002226.02101,"623,00603-2544-32 ",.01)
 ;;00603-2544-32
 ;;9002226.02101,"623,00603-2544-32 ",.02)
 ;;00603-2544-32
 ;;9002226.02101,"623,00603-2545-21 ",.01)
 ;;00603-2545-21
 ;;9002226.02101,"623,00603-2545-21 ",.02)
 ;;00603-2545-21
 ;;9002226.02101,"623,00603-2545-28 ",.01)
 ;;00603-2545-28
 ;;9002226.02101,"623,00603-2545-28 ",.02)
 ;;00603-2545-28
 ;;9002226.02101,"623,00603-2546-21 ",.01)
 ;;00603-2546-21
 ;;9002226.02101,"623,00603-2546-21 ",.02)
 ;;00603-2546-21
 ;;9002226.02101,"623,00603-2547-21 ",.01)
 ;;00603-2547-21
 ;;9002226.02101,"623,00603-2547-21 ",.02)
 ;;00603-2547-21
 ;;9002226.02101,"623,00603-2547-28 ",.01)
 ;;00603-2547-28
 ;;9002226.02101,"623,00603-2547-28 ",.02)
 ;;00603-2547-28
 ;;9002226.02101,"623,00603-2548-21 ",.01)
 ;;00603-2548-21
 ;;9002226.02101,"623,00603-2548-21 ",.02)
 ;;00603-2548-21
 ;;9002226.02101,"623,00603-2548-32 ",.01)
 ;;00603-2548-32
 ;;9002226.02101,"623,00603-2548-32 ",.02)
 ;;00603-2548-32
 ;;9002226.02101,"623,00603-2549-21 ",.01)
 ;;00603-2549-21
 ;;9002226.02101,"623,00603-2549-21 ",.02)
 ;;00603-2549-21
 ;;9002226.02101,"623,00603-2549-28 ",.01)
 ;;00603-2549-28
 ;;9002226.02101,"623,00603-2549-28 ",.02)
 ;;00603-2549-28
 ;;9002226.02101,"623,00603-2550-21 ",.01)
 ;;00603-2550-21
 ;;9002226.02101,"623,00603-2550-21 ",.02)
 ;;00603-2550-21
 ;;9002226.02101,"623,00603-2551-21 ",.01)
 ;;00603-2551-21
 ;;9002226.02101,"623,00603-2551-21 ",.02)
 ;;00603-2551-21
 ;;9002226.02101,"623,00603-2552-21 ",.01)
 ;;00603-2552-21
 ;;9002226.02101,"623,00603-2552-21 ",.02)
 ;;00603-2552-21
 ;;9002226.02101,"623,00603-2553-21 ",.01)
 ;;00603-2553-21
 ;;9002226.02101,"623,00603-2553-21 ",.02)
 ;;00603-2553-21
 ;;9002226.02101,"623,00603-5165-21 ",.01)
 ;;00603-5165-21
 ;;9002226.02101,"623,00603-5165-21 ",.02)
 ;;00603-5165-21
 ;;9002226.02101,"623,00603-5165-32 ",.01)
 ;;00603-5165-32
 ;;9002226.02101,"623,00603-5165-32 ",.02)
 ;;00603-5165-32
 ;;9002226.02101,"623,00603-5166-02 ",.01)
 ;;00603-5166-02
 ;;9002226.02101,"623,00603-5166-02 ",.02)
 ;;00603-5166-02
 ;;9002226.02101,"623,00603-5166-16 ",.01)
 ;;00603-5166-16
 ;;9002226.02101,"623,00603-5166-16 ",.02)
 ;;00603-5166-16
 ;;9002226.02101,"623,00603-5166-20 ",.01)
 ;;00603-5166-20
 ;;9002226.02101,"623,00603-5166-20 ",.02)
 ;;00603-5166-20
 ;;9002226.02101,"623,00603-5166-21 ",.01)
 ;;00603-5166-21
 ;;9002226.02101,"623,00603-5166-21 ",.02)
 ;;00603-5166-21
 ;;9002226.02101,"623,00603-5166-22 ",.01)
 ;;00603-5166-22
 ;;9002226.02101,"623,00603-5166-22 ",.02)
 ;;00603-5166-22
 ;;9002226.02101,"623,00603-5166-32 ",.01)
 ;;00603-5166-32
 ;;9002226.02101,"623,00603-5166-32 ",.02)
 ;;00603-5166-32
 ;;9002226.02101,"623,00603-5167-21 ",.01)
 ;;00603-5167-21
 ;;9002226.02101,"623,00603-5167-21 ",.02)
 ;;00603-5167-21
 ;;9002226.02101,"623,00603-5167-32 ",.01)
 ;;00603-5167-32
 ;;9002226.02101,"623,00603-5167-32 ",.02)
 ;;00603-5167-32
 ;;9002226.02101,"623,00603-5168-21 ",.01)
 ;;00603-5168-21
 ;;9002226.02101,"623,00603-5168-21 ",.02)
 ;;00603-5168-21
 ;;9002226.02101,"623,00603-5168-32 ",.01)
 ;;00603-5168-32
 ;;9002226.02101,"623,00603-5168-32 ",.02)
 ;;00603-5168-32
 ;;9002226.02101,"623,00615-0331-29 ",.01)
 ;;00615-0331-29
 ;;9002226.02101,"623,00615-0331-29 ",.02)
 ;;00615-0331-29
 ;;9002226.02101,"623,00615-0331-43 ",.01)
 ;;00615-0331-43
 ;;9002226.02101,"623,00615-0331-43 ",.02)
 ;;00615-0331-43
 ;;9002226.02101,"623,00615-0332-29 ",.01)
 ;;00615-0332-29
 ;;9002226.02101,"623,00615-0332-29 ",.02)
 ;;00615-0332-29
 ;;9002226.02101,"623,00615-0332-43 ",.01)
 ;;00615-0332-43
 ;;9002226.02101,"623,00615-0332-43 ",.02)
 ;;00615-0332-43
 ;;9002226.02101,"623,00615-0418-47 ",.01)
 ;;00615-0418-47
 ;;9002226.02101,"623,00615-0418-47 ",.02)
 ;;00615-0418-47
 ;;9002226.02101,"623,00615-0423-47 ",.01)
 ;;00615-0423-47
 ;;9002226.02101,"623,00615-0423-47 ",.02)
 ;;00615-0423-47
 ;;9002226.02101,"623,00641-0476-25 ",.01)
 ;;00641-0476-25
 ;;9002226.02101,"623,00641-0476-25 ",.02)
 ;;00641-0476-25
 ;;9002226.02101,"623,00641-0477-25 ",.01)
 ;;00641-0477-25
 ;;9002226.02101,"623,00641-0477-25 ",.02)
 ;;00641-0477-25
 ;;9002226.02101,"623,00642-0162-10 ",.01)
 ;;00642-0162-10
 ;;9002226.02101,"623,00642-0162-10 ",.02)
 ;;00642-0162-10
 ;;9002226.02101,"623,00642-0164-10 ",.01)
 ;;00642-0164-10
 ;;9002226.02101,"623,00642-0164-10 ",.02)
 ;;00642-0164-10
 ;;9002226.02101,"623,00642-0166-10 ",.01)
 ;;00642-0166-10
 ;;9002226.02101,"623,00642-0166-10 ",.02)
 ;;00642-0166-10
 ;;9002226.02101,"623,00642-7132-10 ",.01)
 ;;00642-7132-10
 ;;9002226.02101,"623,00642-7132-10 ",.02)
 ;;00642-7132-10
 ;;9002226.02101,"623,00677-0236-10 ",.01)
 ;;00677-0236-10
 ;;9002226.02101,"623,00677-0236-10 ",.02)
 ;;00677-0236-10
 ;;9002226.02101,"623,00677-0237-10 ",.01)
 ;;00677-0237-10
 ;;9002226.02101,"623,00677-0237-10 ",.02)
 ;;00677-0237-10
 ;;9002226.02101,"623,00677-0238-10 ",.01)
 ;;00677-0238-10
 ;;9002226.02101,"623,00677-0238-10 ",.02)
 ;;00677-0238-10
 ;;9002226.02101,"623,00677-0762-10 ",.01)
 ;;00677-0762-10
 ;;9002226.02101,"623,00677-0762-10 ",.02)
 ;;00677-0762-10
 ;;9002226.02101,"623,00677-0827-01 ",.01)
 ;;00677-0827-01
 ;;9002226.02101,"623,00677-0827-01 ",.02)
 ;;00677-0827-01
 ;;9002226.02101,"623,00677-1242-01 ",.01)
 ;;00677-1242-01
 ;;9002226.02101,"623,00677-1242-01 ",.02)
 ;;00677-1242-01
 ;;9002226.02101,"623,00677-1439-01 ",.01)
 ;;00677-1439-01
 ;;9002226.02101,"623,00677-1439-01 ",.02)
 ;;00677-1439-01
 ;;9002226.02101,"623,00677-1666-10 ",.01)
 ;;00677-1666-10
 ;;9002226.02101,"623,00677-1666-10 ",.02)
 ;;00677-1666-10
 ;;9002226.02101,"623,00677-1667-10 ",.01)
 ;;00677-1667-10
 ;;9002226.02101,"623,00677-1667-10 ",.02)
 ;;00677-1667-10
 ;;9002226.02101,"623,00677-1668-10 ",.01)
 ;;00677-1668-10
 ;;9002226.02101,"623,00677-1668-10 ",.02)
 ;;00677-1668-10
 ;;9002226.02101,"623,00677-1669-10 ",.01)
 ;;00677-1669-10
 ;;9002226.02101,"623,00677-1669-10 ",.02)
 ;;00677-1669-10
 ;;9002226.02101,"623,00677-1698-10 ",.01)
 ;;00677-1698-10
 ;;9002226.02101,"623,00677-1698-10 ",.02)
 ;;00677-1698-10
 ;;9002226.02101,"623,00677-1699-10 ",.01)
 ;;00677-1699-10
 ;;9002226.02101,"623,00677-1699-10 ",.02)
 ;;00677-1699-10
 ;;9002226.02101,"623,00677-1731-10 ",.01)
 ;;00677-1731-10
 ;;9002226.02101,"623,00677-1731-10 ",.02)
 ;;00677-1731-10
 ;;9002226.02101,"623,00677-1732-10 ",.01)
 ;;00677-1732-10
 ;;9002226.02101,"623,00677-1732-10 ",.02)
 ;;00677-1732-10
 ;;9002226.02101,"623,00677-1738-01 ",.01)
 ;;00677-1738-01
 ;;9002226.02101,"623,00677-1738-01 ",.02)
 ;;00677-1738-01
 ;;9002226.02101,"623,00677-1748-01 ",.01)
 ;;00677-1748-01
 ;;9002226.02101,"623,00677-1748-01 ",.02)
 ;;00677-1748-01
 ;;9002226.02101,"623,00677-1748-05 ",.01)
 ;;00677-1748-05
 ;;9002226.02101,"623,00677-1748-05 ",.02)
 ;;00677-1748-05
 ;;9002226.02101,"623,00677-1938-10 ",.01)
 ;;00677-1938-10
 ;;9002226.02101,"623,00677-1938-10 ",.02)
 ;;00677-1938-10
 ;;9002226.02101,"623,00677-1939-10 ",.01)
 ;;00677-1939-10
 ;;9002226.02101,"623,00677-1939-10 ",.02)
 ;;00677-1939-10
 ;;9002226.02101,"623,00682-0804-01 ",.01)
 ;;00682-0804-01
 ;;9002226.02101,"623,00682-0804-01 ",.02)
 ;;00682-0804-01