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

BGP7LXPD.m

Go to the documentation of this file.
BGP7LXPD ; 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,"633,00591-5501-01 ",.02)
 ;;00591-5501-01
 ;;9002226.02101,"633,00591-5502-01 ",.01)
 ;;00591-5502-01
 ;;9002226.02101,"633,00591-5502-01 ",.02)
 ;;00591-5502-01
 ;;9002226.02101,"633,00591-5504-01 ",.01)
 ;;00591-5504-01
 ;;9002226.02101,"633,00591-5504-01 ",.02)
 ;;00591-5504-01
 ;;9002226.02101,"633,00591-5504-03 ",.01)
 ;;00591-5504-03
 ;;9002226.02101,"633,00591-5504-03 ",.02)
 ;;00591-5504-03
 ;;9002226.02101,"633,00591-5504-04 ",.01)
 ;;00591-5504-04
 ;;9002226.02101,"633,00591-5504-04 ",.02)
 ;;00591-5504-04
 ;;9002226.02101,"633,00597-0017-01 ",.01)
 ;;00597-0017-01
 ;;9002226.02101,"633,00597-0017-01 ",.02)
 ;;00597-0017-01
 ;;9002226.02101,"633,00597-0018-01 ",.01)
 ;;00597-0018-01
 ;;9002226.02101,"633,00597-0018-01 ",.02)
 ;;00597-0018-01
 ;;9002226.02101,"633,00597-0019-01 ",.01)
 ;;00597-0019-01
 ;;9002226.02101,"633,00597-0019-01 ",.02)
 ;;00597-0019-01
 ;;9002226.02101,"633,00603-3385-21 ",.01)
 ;;00603-3385-21
 ;;9002226.02101,"633,00603-3385-21 ",.02)
 ;;00603-3385-21
 ;;9002226.02101,"633,00603-3385-32 ",.01)
 ;;00603-3385-32
 ;;9002226.02101,"633,00603-3385-32 ",.02)
 ;;00603-3385-32
 ;;9002226.02101,"633,00603-3527-21 ",.01)
 ;;00603-3527-21
 ;;9002226.02101,"633,00603-3527-21 ",.02)
 ;;00603-3527-21
 ;;9002226.02101,"633,00603-3528-21 ",.01)
 ;;00603-3528-21
 ;;9002226.02101,"633,00603-3528-21 ",.02)
 ;;00603-3528-21
 ;;9002226.02101,"633,00603-3529-21 ",.01)
 ;;00603-3529-21
 ;;9002226.02101,"633,00603-3529-21 ",.02)
 ;;00603-3529-21
 ;;9002226.02101,"633,00603-4146-21 ",.01)
 ;;00603-4146-21
 ;;9002226.02101,"633,00603-4146-21 ",.02)
 ;;00603-4146-21
 ;;9002226.02101,"633,00603-4147-21 ",.01)
 ;;00603-4147-21
 ;;9002226.02101,"633,00603-4147-21 ",.02)
 ;;00603-4147-21
 ;;9002226.02101,"633,00615-0300-13 ",.01)
 ;;00615-0300-13
 ;;9002226.02101,"633,00615-0300-13 ",.02)
 ;;00615-0300-13
 ;;9002226.02101,"633,00615-0301-13 ",.01)
 ;;00615-0301-13
 ;;9002226.02101,"633,00615-0301-13 ",.02)
 ;;00615-0301-13
 ;;9002226.02101,"633,00615-1505-01 ",.01)
 ;;00615-1505-01
 ;;9002226.02101,"633,00615-1505-01 ",.02)
 ;;00615-1505-01
 ;;9002226.02101,"633,00615-1505-10 ",.01)
 ;;00615-1505-10
 ;;9002226.02101,"633,00615-1505-10 ",.02)
 ;;00615-1505-10
 ;;9002226.02101,"633,00615-1543-01 ",.01)
 ;;00615-1543-01
 ;;9002226.02101,"633,00615-1543-01 ",.02)
 ;;00615-1543-01
 ;;9002226.02101,"633,00615-1543-10 ",.01)
 ;;00615-1543-10
 ;;9002226.02101,"633,00615-1543-10 ",.02)
 ;;00615-1543-10
 ;;9002226.02101,"633,00615-1543-13 ",.01)
 ;;00615-1543-13
 ;;9002226.02101,"633,00615-1543-13 ",.02)
 ;;00615-1543-13
 ;;9002226.02101,"633,00615-1573-01 ",.01)
 ;;00615-1573-01
 ;;9002226.02101,"633,00615-1573-01 ",.02)
 ;;00615-1573-01
 ;;9002226.02101,"633,00615-1573-10 ",.01)
 ;;00615-1573-10
 ;;9002226.02101,"633,00615-1573-10 ",.02)
 ;;00615-1573-10
 ;;9002226.02101,"633,00615-1573-32 ",.01)
 ;;00615-1573-32
 ;;9002226.02101,"633,00615-1573-32 ",.02)
 ;;00615-1573-32
 ;;9002226.02101,"633,00615-1573-43 ",.01)
 ;;00615-1573-43
 ;;9002226.02101,"633,00615-1573-43 ",.02)
 ;;00615-1573-43
 ;;9002226.02101,"633,00615-1574-01 ",.01)
 ;;00615-1574-01
 ;;9002226.02101,"633,00615-1574-01 ",.02)
 ;;00615-1574-01
 ;;9002226.02101,"633,00615-1574-05 ",.01)
 ;;00615-1574-05
 ;;9002226.02101,"633,00615-1574-05 ",.02)
 ;;00615-1574-05
 ;;9002226.02101,"633,00615-1574-10 ",.01)
 ;;00615-1574-10
 ;;9002226.02101,"633,00615-1574-10 ",.02)
 ;;00615-1574-10
 ;;9002226.02101,"633,00615-1574-32 ",.01)
 ;;00615-1574-32
 ;;9002226.02101,"633,00615-1574-32 ",.02)
 ;;00615-1574-32
 ;;9002226.02101,"633,00615-1585-01 ",.01)
 ;;00615-1585-01
 ;;9002226.02101,"633,00615-1585-01 ",.02)
 ;;00615-1585-01
 ;;9002226.02101,"633,00615-1585-05 ",.01)
 ;;00615-1585-05
 ;;9002226.02101,"633,00615-1585-05 ",.02)
 ;;00615-1585-05
 ;;9002226.02101,"633,00615-1585-10 ",.01)
 ;;00615-1585-10
 ;;9002226.02101,"633,00615-1585-10 ",.02)
 ;;00615-1585-10
 ;;9002226.02101,"633,00615-1586-01 ",.01)
 ;;00615-1586-01
 ;;9002226.02101,"633,00615-1586-01 ",.02)
 ;;00615-1586-01
 ;;9002226.02101,"633,00615-1586-13 ",.01)
 ;;00615-1586-13
 ;;9002226.02101,"633,00615-1586-13 ",.02)
 ;;00615-1586-13
 ;;9002226.02101,"633,00615-1587-01 ",.01)
 ;;00615-1587-01
 ;;9002226.02101,"633,00615-1587-01 ",.02)
 ;;00615-1587-01
 ;;9002226.02101,"633,00615-1587-05 ",.01)
 ;;00615-1587-05
 ;;9002226.02101,"633,00615-1587-05 ",.02)
 ;;00615-1587-05
 ;;9002226.02101,"633,00615-1587-10 ",.01)
 ;;00615-1587-10
 ;;9002226.02101,"633,00615-1587-10 ",.02)
 ;;00615-1587-10
 ;;9002226.02101,"633,00615-1587-13 ",.01)
 ;;00615-1587-13
 ;;9002226.02101,"633,00615-1587-13 ",.02)
 ;;00615-1587-13
 ;;9002226.02101,"633,00675-0016-07 ",.01)
 ;;00675-0016-07
 ;;9002226.02101,"633,00675-0016-07 ",.02)
 ;;00675-0016-07
 ;;9002226.02101,"633,00675-0016-12 ",.01)
 ;;00675-0016-12
 ;;9002226.02101,"633,00675-0016-12 ",.02)
 ;;00675-0016-12
 ;;9002226.02101,"633,00675-3711-07 ",.01)
 ;;00675-3711-07
 ;;9002226.02101,"633,00675-3711-07 ",.02)
 ;;00675-3711-07
 ;;9002226.02101,"633,00675-3713-07 ",.01)
 ;;00675-3713-07
 ;;9002226.02101,"633,00675-3713-07 ",.02)
 ;;00675-3713-07
 ;;9002226.02101,"633,00675-4011-07 ",.01)
 ;;00675-4011-07
 ;;9002226.02101,"633,00675-4011-07 ",.02)
 ;;00675-4011-07
 ;;9002226.02101,"633,00675-4011-10 ",.01)
 ;;00675-4011-10
 ;;9002226.02101,"633,00675-4011-10 ",.02)
 ;;00675-4011-10
 ;;9002226.02101,"633,00677-0566-01 ",.01)
 ;;00677-0566-01
 ;;9002226.02101,"633,00677-0566-01 ",.02)
 ;;00677-0566-01
 ;;9002226.02101,"633,00677-0782-01 ",.01)
 ;;00677-0782-01
 ;;9002226.02101,"633,00677-0782-01 ",.02)
 ;;00677-0782-01
 ;;9002226.02101,"633,00677-0782-05 ",.01)
 ;;00677-0782-05
 ;;9002226.02101,"633,00677-0782-05 ",.02)
 ;;00677-0782-05
 ;;9002226.02101,"633,00686-0068-20 ",.01)
 ;;00686-0068-20
 ;;9002226.02101,"633,00686-0068-20 ",.02)
 ;;00686-0068-20
 ;;9002226.02101,"633,00686-0069-20 ",.01)
 ;;00686-0069-20
 ;;9002226.02101,"633,00686-0069-20 ",.02)
 ;;00686-0069-20
 ;;9002226.02101,"633,00686-0070-20 ",.01)
 ;;00686-0070-20
 ;;9002226.02101,"633,00686-0070-20 ",.02)
 ;;00686-0070-20
 ;;9002226.02101,"633,00686-0110-20 ",.01)
 ;;00686-0110-20
 ;;9002226.02101,"633,00686-0110-20 ",.02)
 ;;00686-0110-20
 ;;9002226.02101,"633,00686-2944-13 ",.01)
 ;;00686-2944-13
 ;;9002226.02101,"633,00686-2944-13 ",.02)
 ;;00686-2944-13
 ;;9002226.02101,"633,00686-2946-13 ",.01)
 ;;00686-2946-13
 ;;9002226.02101,"633,00686-2946-13 ",.02)
 ;;00686-2946-13
 ;;9002226.02101,"633,00686-2982-13 ",.01)
 ;;00686-2982-13
 ;;9002226.02101,"633,00686-2982-13 ",.02)
 ;;00686-2982-13
 ;;9002226.02101,"633,00781-1255-01 ",.01)
 ;;00781-1255-01
 ;;9002226.02101,"633,00781-1255-01 ",.02)
 ;;00781-1255-01
 ;;9002226.02101,"633,00781-1478-13 ",.01)
 ;;00781-1478-13
 ;;9002226.02101,"633,00781-1478-13 ",.02)
 ;;00781-1478-13
 ;;9002226.02101,"633,00781-1678-13 ",.01)
 ;;00781-1678-13
 ;;9002226.02101,"633,00781-1678-13 ",.02)
 ;;00781-1678-13
 ;;9002226.02101,"633,00781-1840-01 ",.01)
 ;;00781-1840-01
 ;;9002226.02101,"633,00781-1840-01 ",.02)
 ;;00781-1840-01
 ;;9002226.02101,"633,00781-1840-10 ",.01)
 ;;00781-1840-10
 ;;9002226.02101,"633,00781-1840-10 ",.02)
 ;;00781-1840-10
 ;;9002226.02101,"633,00781-1842-01 ",.01)
 ;;00781-1842-01
 ;;9002226.02101,"633,00781-1842-01 ",.02)
 ;;00781-1842-01
 ;;9002226.02101,"633,00781-1842-10 ",.01)
 ;;00781-1842-10
 ;;9002226.02101,"633,00781-1842-10 ",.02)
 ;;00781-1842-10
 ;;9002226.02101,"633,00781-1890-13 ",.01)
 ;;00781-1890-13
 ;;9002226.02101,"633,00781-1890-13 ",.02)
 ;;00781-1890-13
 ;;9002226.02101,"633,00814-2606-28 ",.01)
 ;;00814-2606-28
 ;;9002226.02101,"633,00814-2606-28 ",.02)
 ;;00814-2606-28
 ;;9002226.02101,"633,00814-4021-14 ",.01)
 ;;00814-4021-14
 ;;9002226.02101,"633,00814-4021-14 ",.02)
 ;;00814-4021-14
 ;;9002226.02101,"633,00814-4022-14 ",.01)
 ;;00814-4022-14
 ;;9002226.02101,"633,00814-4022-14 ",.02)
 ;;00814-4022-14
 ;;9002226.02101,"633,00814-4500-14 ",.01)
 ;;00814-4500-14
 ;;9002226.02101,"633,00814-4500-14 ",.02)
 ;;00814-4500-14
 ;;9002226.02101,"633,00814-4500-30 ",.01)
 ;;00814-4500-30
 ;;9002226.02101,"633,00814-4500-30 ",.02)
 ;;00814-4500-30
 ;;9002226.02101,"633,00839-1217-06 ",.01)
 ;;00839-1217-06
 ;;9002226.02101,"633,00839-1217-06 ",.02)
 ;;00839-1217-06
 ;;9002226.02101,"633,00839-1217-16 ",.01)
 ;;00839-1217-16
 ;;9002226.02101,"633,00839-1217-16 ",.02)
 ;;00839-1217-16
 ;;9002226.02101,"633,00839-1382-06 ",.01)
 ;;00839-1382-06
 ;;9002226.02101,"633,00839-1382-06 ",.02)
 ;;00839-1382-06
 ;;9002226.02101,"633,00839-1382-16 ",.01)
 ;;00839-1382-16
 ;;9002226.02101,"633,00839-1382-16 ",.02)
 ;;00839-1382-16
 ;;9002226.02101,"633,00839-6027-06 ",.01)
 ;;00839-6027-06
 ;;9002226.02101,"633,00839-6027-06 ",.02)
 ;;00839-6027-06
 ;;9002226.02101,"633,00839-6027-16 ",.01)
 ;;00839-6027-16
 ;;9002226.02101,"633,00839-6027-16 ",.02)
 ;;00839-6027-16
 ;;9002226.02101,"633,00839-6182-06 ",.01)
 ;;00839-6182-06
 ;;9002226.02101,"633,00839-6182-06 ",.02)
 ;;00839-6182-06
 ;;9002226.02101,"633,00839-6182-16 ",.01)
 ;;00839-6182-16
 ;;9002226.02101,"633,00839-6182-16 ",.02)
 ;;00839-6182-16
 ;;9002226.02101,"633,00839-6229-06 ",.01)
 ;;00839-6229-06
 ;;9002226.02101,"633,00839-6229-06 ",.02)
 ;;00839-6229-06
 ;;9002226.02101,"633,00839-6327-06 ",.01)
 ;;00839-6327-06
 ;;9002226.02101,"633,00839-6327-06 ",.02)
 ;;00839-6327-06
 ;;9002226.02101,"633,00839-6327-16 ",.01)
 ;;00839-6327-16
 ;;9002226.02101,"633,00839-6327-16 ",.02)
 ;;00839-6327-16
 ;;9002226.02101,"633,00839-6429-06 ",.01)
 ;;00839-6429-06
 ;;9002226.02101,"633,00839-6429-06 ",.02)
 ;;00839-6429-06
 ;;9002226.02101,"633,00839-6429-16 ",.01)
 ;;00839-6429-16
 ;;9002226.02101,"633,00839-6429-16 ",.02)
 ;;00839-6429-16
 ;;9002226.02101,"633,00839-6494-06 ",.01)
 ;;00839-6494-06
 ;;9002226.02101,"633,00839-6494-06 ",.02)
 ;;00839-6494-06
 ;;9002226.02101,"633,00839-6494-16 ",.01)
 ;;00839-6494-16
 ;;9002226.02101,"633,00839-6494-16 ",.02)
 ;;00839-6494-16
 ;;9002226.02101,"633,00839-6606-06 ",.01)
 ;;00839-6606-06
 ;;9002226.02101,"633,00839-6606-06 ",.02)
 ;;00839-6606-06
 ;;9002226.02101,"633,00839-6606-16 ",.01)
 ;;00839-6606-16
 ;;9002226.02101,"633,00839-6606-16 ",.02)
 ;;00839-6606-16
 ;;9002226.02101,"633,00839-7918-06 ",.01)
 ;;00839-7918-06
 ;;9002226.02101,"633,00839-7918-06 ",.02)
 ;;00839-7918-06
 ;;9002226.02101,"633,00839-7918-16 ",.01)
 ;;00839-7918-16
 ;;9002226.02101,"633,00839-7918-16 ",.02)
 ;;00839-7918-16
 ;;9002226.02101,"633,00839-7919-06 ",.01)
 ;;00839-7919-06
 ;;9002226.02101,"633,00839-7919-06 ",.02)
 ;;00839-7919-06
 ;;9002226.02101,"633,00839-7919-16 ",.01)
 ;;00839-7919-16
 ;;9002226.02101,"633,00839-7919-16 ",.02)
 ;;00839-7919-16
 ;;9002226.02101,"633,00839-7920-06 ",.01)
 ;;00839-7920-06
 ;;9002226.02101,"633,00839-7920-06 ",.02)
 ;;00839-7920-06
 ;;9002226.02101,"633,00839-7920-16 ",.01)
 ;;00839-7920-16
 ;;9002226.02101,"633,00839-7920-16 ",.02)
 ;;00839-7920-16
 ;;9002226.02101,"633,00904-0336-40 ",.01)
 ;;00904-0336-40
 ;;9002226.02101,"633,00904-0336-40 ",.02)
 ;;00904-0336-40
 ;;9002226.02101,"633,00904-0336-60 ",.01)
 ;;00904-0336-60
 ;;9002226.02101,"633,00904-0336-60 ",.02)
 ;;00904-0336-60
 ;;9002226.02101,"633,00904-0336-61 ",.01)
 ;;00904-0336-61
 ;;9002226.02101,"633,00904-0336-61 ",.02)
 ;;00904-0336-61
 ;;9002226.02101,"633,00904-0336-70 ",.01)
 ;;00904-0336-70
 ;;9002226.02101,"633,00904-0336-70 ",.02)
 ;;00904-0336-70
 ;;9002226.02101,"633,00904-0336-80 ",.01)
 ;;00904-0336-80
 ;;9002226.02101,"633,00904-0336-80 ",.02)
 ;;00904-0336-80
 ;;9002226.02101,"633,00904-0623-60 ",.01)
 ;;00904-0623-60
 ;;9002226.02101,"633,00904-0623-60 ",.02)
 ;;00904-0623-60
 ;;9002226.02101,"633,00904-0623-80 ",.01)
 ;;00904-0623-80
 ;;9002226.02101,"633,00904-0623-80 ",.02)
 ;;00904-0623-80
 ;;9002226.02101,"633,00904-0635-60 ",.01)
 ;;00904-0635-60
 ;;9002226.02101,"633,00904-0635-60 ",.02)
 ;;00904-0635-60
 ;;9002226.02101,"633,00904-0635-61 ",.01)
 ;;00904-0635-61
 ;;9002226.02101,"633,00904-0635-61 ",.02)
 ;;00904-0635-61
 ;;9002226.02101,"633,00904-0635-80 ",.01)
 ;;00904-0635-80
 ;;9002226.02101,"633,00904-0635-80 ",.02)
 ;;00904-0635-80
 ;;9002226.02101,"633,00904-0636-60 ",.01)
 ;;00904-0636-60
 ;;9002226.02101,"633,00904-0636-60 ",.02)
 ;;00904-0636-60
 ;;9002226.02101,"633,00904-0636-61 ",.01)
 ;;00904-0636-61
 ;;9002226.02101,"633,00904-0636-61 ",.02)
 ;;00904-0636-61
 ;;9002226.02101,"633,00904-0636-80 ",.01)
 ;;00904-0636-80
 ;;9002226.02101,"633,00904-0636-80 ",.02)
 ;;00904-0636-80
 ;;9002226.02101,"633,00904-0661-40 ",.01)
 ;;00904-0661-40
 ;;9002226.02101,"633,00904-0661-40 ",.02)
 ;;00904-0661-40
 ;;9002226.02101,"633,00904-0661-60 ",.01)
 ;;00904-0661-60
 ;;9002226.02101,"633,00904-0661-60 ",.02)
 ;;00904-0661-60
 ;;9002226.02101,"633,00904-0662-70 ",.01)
 ;;00904-0662-70
 ;;9002226.02101,"633,00904-0662-70 ",.02)
 ;;00904-0662-70
 ;;9002226.02101,"633,00904-0662-80 ",.01)
 ;;00904-0662-80
 ;;9002226.02101,"633,00904-0662-80 ",.02)
 ;;00904-0662-80
 ;;9002226.02101,"633,00904-1083-60 ",.01)
 ;;00904-1083-60
 ;;9002226.02101,"633,00904-1083-60 ",.02)
 ;;00904-1083-60
 ;;9002226.02101,"633,00904-1083-80 ",.01)
 ;;00904-1083-80
 ;;9002226.02101,"633,00904-1083-80 ",.02)
 ;;00904-1083-80
 ;;9002226.02101,"633,00904-1084-60 ",.01)
 ;;00904-1084-60
 ;;9002226.02101,"633,00904-1084-60 ",.02)
 ;;00904-1084-60
 ;;9002226.02101,"633,00904-1084-80 ",.01)
 ;;00904-1084-80