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

BGP8EXXD.m

Go to the documentation of this file.
BGP8EXXD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 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,"622,00555-0775-02 ",.01)
 ;;00555-0775-02
 ;;9002226.02101,"622,00555-0775-02 ",.02)
 ;;00555-0775-02
 ;;9002226.02101,"622,00555-0776-02 ",.01)
 ;;00555-0776-02
 ;;9002226.02101,"622,00555-0776-02 ",.02)
 ;;00555-0776-02
 ;;9002226.02101,"622,00555-0777-02 ",.01)
 ;;00555-0777-02
 ;;9002226.02101,"622,00555-0777-02 ",.02)
 ;;00555-0777-02
 ;;9002226.02101,"622,00555-0952-02 ",.01)
 ;;00555-0952-02
 ;;9002226.02101,"622,00555-0952-02 ",.02)
 ;;00555-0952-02
 ;;9002226.02101,"622,00555-0953-02 ",.01)
 ;;00555-0953-02
 ;;9002226.02101,"622,00555-0953-02 ",.02)
 ;;00555-0953-02
 ;;9002226.02101,"622,00555-0954-02 ",.01)
 ;;00555-0954-02
 ;;9002226.02101,"622,00555-0954-02 ",.02)
 ;;00555-0954-02
 ;;9002226.02101,"622,00555-0955-02 ",.01)
 ;;00555-0955-02
 ;;9002226.02101,"622,00555-0955-02 ",.02)
 ;;00555-0955-02
 ;;9002226.02101,"622,00555-0956-02 ",.01)
 ;;00555-0956-02
 ;;9002226.02101,"622,00555-0956-02 ",.02)
 ;;00555-0956-02
 ;;9002226.02101,"622,00555-0971-02 ",.01)
 ;;00555-0971-02
 ;;9002226.02101,"622,00555-0971-02 ",.02)
 ;;00555-0971-02
 ;;9002226.02101,"622,00555-0972-02 ",.01)
 ;;00555-0972-02
 ;;9002226.02101,"622,00555-0972-02 ",.02)
 ;;00555-0972-02
 ;;9002226.02101,"622,00555-0973-02 ",.01)
 ;;00555-0973-02
 ;;9002226.02101,"622,00555-0973-02 ",.02)
 ;;00555-0973-02
 ;;9002226.02101,"622,00555-0974-02 ",.01)
 ;;00555-0974-02
 ;;9002226.02101,"622,00555-0974-02 ",.02)
 ;;00555-0974-02
 ;;9002226.02101,"622,00585-0903-71 ",.01)
 ;;00585-0903-71
 ;;9002226.02101,"622,00585-0903-71 ",.02)
 ;;00585-0903-71
 ;;9002226.02101,"622,00585-0904-84 ",.01)
 ;;00585-0904-84
 ;;9002226.02101,"622,00585-0904-84 ",.02)
 ;;00585-0904-84
 ;;9002226.02101,"622,00591-0782-01 ",.01)
 ;;00591-0782-01
 ;;9002226.02101,"622,00591-0782-01 ",.02)
 ;;00591-0782-01
 ;;9002226.02101,"622,00591-0783-01 ",.01)
 ;;00591-0783-01
 ;;9002226.02101,"622,00591-0783-01 ",.02)
 ;;00591-0783-01
 ;;9002226.02101,"622,00591-3111-01 ",.01)
 ;;00591-3111-01
 ;;9002226.02101,"622,00591-3111-01 ",.02)
 ;;00591-3111-01
 ;;9002226.02101,"622,00591-5882-01 ",.01)
 ;;00591-5882-01
 ;;9002226.02101,"622,00591-5882-01 ",.02)
 ;;00591-5882-01
 ;;9002226.02101,"622,00591-5882-10 ",.01)
 ;;00591-5882-10
 ;;9002226.02101,"622,00591-5882-10 ",.02)
 ;;00591-5882-10
 ;;9002226.02101,"622,00591-5883-01 ",.01)
 ;;00591-5883-01
 ;;9002226.02101,"622,00591-5883-01 ",.02)
 ;;00591-5883-01
 ;;9002226.02101,"622,00591-5883-10 ",.01)
 ;;00591-5883-10
 ;;9002226.02101,"622,00591-5883-10 ",.02)
 ;;00591-5883-10
 ;;9002226.02101,"622,00591-5884-01 ",.01)
 ;;00591-5884-01
 ;;9002226.02101,"622,00591-5884-01 ",.02)
 ;;00591-5884-01
 ;;9002226.02101,"622,00591-5884-10 ",.01)
 ;;00591-5884-10
 ;;9002226.02101,"622,00591-5884-10 ",.02)
 ;;00591-5884-10
 ;;9002226.02101,"622,00603-4569-21 ",.01)
 ;;00603-4569-21
 ;;9002226.02101,"622,00603-4569-21 ",.02)
 ;;00603-4569-21
 ;;9002226.02101,"622,00603-4569-32 ",.01)
 ;;00603-4569-32
 ;;9002226.02101,"622,00603-4569-32 ",.02)
 ;;00603-4569-32
 ;;9002226.02101,"622,00603-4570-21 ",.01)
 ;;00603-4570-21
 ;;9002226.02101,"622,00603-4570-21 ",.02)
 ;;00603-4570-21
 ;;9002226.02101,"622,00603-4570-32 ",.01)
 ;;00603-4570-32
 ;;9002226.02101,"622,00603-4570-32 ",.02)
 ;;00603-4570-32
 ;;9002226.02101,"622,00603-4571-21 ",.01)
 ;;00603-4571-21
 ;;9002226.02101,"622,00603-4571-21 ",.02)
 ;;00603-4571-21
 ;;9002226.02101,"622,00603-4571-32 ",.01)
 ;;00603-4571-32
 ;;9002226.02101,"622,00603-4571-32 ",.02)
 ;;00603-4571-32
 ;;9002226.02101,"622,00603-4572-21 ",.01)
 ;;00603-4572-21
 ;;9002226.02101,"622,00603-4572-21 ",.02)
 ;;00603-4572-21
 ;;9002226.02101,"622,00603-5055-21 ",.01)
 ;;00603-5055-21
 ;;9002226.02101,"622,00603-5055-21 ",.02)
 ;;00603-5055-21
 ;;9002226.02101,"622,00603-5056-21 ",.01)
 ;;00603-5056-21
 ;;9002226.02101,"622,00603-5056-21 ",.02)
 ;;00603-5056-21
 ;;9002226.02101,"622,00603-5056-28 ",.01)
 ;;00603-5056-28
 ;;9002226.02101,"622,00603-5056-28 ",.02)
 ;;00603-5056-28
 ;;9002226.02101,"622,00603-5057-21 ",.01)
 ;;00603-5057-21
 ;;9002226.02101,"622,00603-5057-21 ",.02)
 ;;00603-5057-21
 ;;9002226.02101,"622,00603-5192-21 ",.01)
 ;;00603-5192-21
 ;;9002226.02101,"622,00603-5192-21 ",.02)
 ;;00603-5192-21
 ;;9002226.02101,"622,00603-5192-32 ",.01)
 ;;00603-5192-32
 ;;9002226.02101,"622,00603-5192-32 ",.02)
 ;;00603-5192-32
 ;;9002226.02101,"622,00677-0460-01 ",.01)
 ;;00677-0460-01
 ;;9002226.02101,"622,00677-0460-01 ",.02)
 ;;00677-0460-01
 ;;9002226.02101,"622,00677-1823-01 ",.01)
 ;;00677-1823-01
 ;;9002226.02101,"622,00677-1823-01 ",.02)
 ;;00677-1823-01
 ;;9002226.02101,"622,00677-1823-10 ",.01)
 ;;00677-1823-10
 ;;9002226.02101,"622,00677-1823-10 ",.02)
 ;;00677-1823-10
 ;;9002226.02101,"622,00677-1824-01 ",.01)
 ;;00677-1824-01
 ;;9002226.02101,"622,00677-1824-01 ",.02)
 ;;00677-1824-01
 ;;9002226.02101,"622,00677-1824-10 ",.01)
 ;;00677-1824-10
 ;;9002226.02101,"622,00677-1824-10 ",.02)
 ;;00677-1824-10
 ;;9002226.02101,"622,00781-1097-01 ",.01)
 ;;00781-1097-01
 ;;9002226.02101,"622,00781-1097-01 ",.02)
 ;;00781-1097-01
 ;;9002226.02101,"622,00781-1605-01 ",.01)
 ;;00781-1605-01
 ;;9002226.02101,"622,00781-1605-01 ",.02)
 ;;00781-1605-01
 ;;9002226.02101,"622,00781-1731-01 ",.01)
 ;;00781-1731-01
 ;;9002226.02101,"622,00781-1731-01 ",.02)
 ;;00781-1731-01
 ;;9002226.02101,"622,00781-1741-01 ",.01)
 ;;00781-1741-01
 ;;9002226.02101,"622,00781-1741-01 ",.02)
 ;;00781-1741-01
 ;;9002226.02101,"622,00781-1748-01 ",.01)
 ;;00781-1748-01
 ;;9002226.02101,"622,00781-1748-01 ",.02)
 ;;00781-1748-01
 ;;9002226.02101,"622,00781-1748-10 ",.01)
 ;;00781-1748-10
 ;;9002226.02101,"622,00781-1748-10 ",.02)
 ;;00781-1748-10
 ;;9002226.02101,"622,00781-1749-01 ",.01)
 ;;00781-1749-01
 ;;9002226.02101,"622,00781-1749-01 ",.02)
 ;;00781-1749-01
 ;;9002226.02101,"622,00781-1749-10 ",.01)
 ;;00781-1749-10
 ;;9002226.02101,"622,00781-1749-10 ",.02)
 ;;00781-1749-10
 ;;9002226.02101,"622,00781-1751-01 ",.01)
 ;;00781-1751-01
 ;;9002226.02101,"622,00781-1751-01 ",.02)
 ;;00781-1751-01
 ;;9002226.02101,"622,00781-1753-01 ",.01)
 ;;00781-1753-01
 ;;9002226.02101,"622,00781-1753-01 ",.02)
 ;;00781-1753-01
 ;;9002226.02101,"622,00781-1753-10 ",.01)
 ;;00781-1753-10
 ;;9002226.02101,"622,00781-1753-10 ",.02)
 ;;00781-1753-10
 ;;9002226.02101,"622,00781-1754-01 ",.01)
 ;;00781-1754-01
 ;;9002226.02101,"622,00781-1754-01 ",.02)
 ;;00781-1754-01
 ;;9002226.02101,"622,00781-1754-10 ",.01)
 ;;00781-1754-10
 ;;9002226.02101,"622,00781-1754-10 ",.02)
 ;;00781-1754-10
 ;;9002226.02101,"622,00781-8840-01 ",.01)
 ;;00781-8840-01
 ;;9002226.02101,"622,00781-8840-01 ",.02)
 ;;00781-8840-01
 ;;9002226.02101,"622,00781-8840-10 ",.01)
 ;;00781-8840-10
 ;;9002226.02101,"622,00781-8840-10 ",.02)
 ;;00781-8840-10
 ;;9002226.02101,"622,00781-8841-01 ",.01)
 ;;00781-8841-01
 ;;9002226.02101,"622,00781-8841-01 ",.02)
 ;;00781-8841-01
 ;;9002226.02101,"622,00781-8841-10 ",.01)
 ;;00781-8841-10
 ;;9002226.02101,"622,00781-8841-10 ",.02)
 ;;00781-8841-10
 ;;9002226.02101,"622,00781-8842-01 ",.01)
 ;;00781-8842-01
 ;;9002226.02101,"622,00781-8842-01 ",.02)
 ;;00781-8842-01
 ;;9002226.02101,"622,00781-8842-10 ",.01)
 ;;00781-8842-10
 ;;9002226.02101,"622,00781-8842-10 ",.02)
 ;;00781-8842-10
 ;;9002226.02101,"622,00781-8843-01 ",.01)
 ;;00781-8843-01
 ;;9002226.02101,"622,00781-8843-01 ",.02)
 ;;00781-8843-01
 ;;9002226.02101,"622,00839-5099-16 ",.01)
 ;;00839-5099-16
 ;;9002226.02101,"622,00839-5099-16 ",.02)
 ;;00839-5099-16
 ;;9002226.02101,"622,00839-5108-16 ",.01)
 ;;00839-5108-16
 ;;9002226.02101,"622,00839-5108-16 ",.02)
 ;;00839-5108-16
 ;;9002226.02101,"622,00839-5109-06 ",.01)
 ;;00839-5109-06
 ;;9002226.02101,"622,00839-5109-06 ",.02)
 ;;00839-5109-06
 ;;9002226.02101,"622,00839-5955-16 ",.01)
 ;;00839-5955-16
 ;;9002226.02101,"622,00839-5955-16 ",.02)
 ;;00839-5955-16
 ;;9002226.02101,"622,00839-5956-16 ",.01)
 ;;00839-5956-16
 ;;9002226.02101,"622,00839-5956-16 ",.02)
 ;;00839-5956-16
 ;;9002226.02101,"622,00839-6298-16 ",.01)
 ;;00839-6298-16
 ;;9002226.02101,"622,00839-6298-16 ",.02)
 ;;00839-6298-16
 ;;9002226.02101,"622,00904-0614-60 ",.01)
 ;;00904-0614-60
 ;;9002226.02101,"622,00904-0614-60 ",.02)
 ;;00904-0614-60
 ;;9002226.02101,"622,00904-0614-80 ",.01)
 ;;00904-0614-80
 ;;9002226.02101,"622,00904-0614-80 ",.02)
 ;;00904-0614-80
 ;;9002226.02101,"622,00904-0618-60 ",.01)
 ;;00904-0618-60
 ;;9002226.02101,"622,00904-0618-60 ",.02)
 ;;00904-0618-60
 ;;9002226.02101,"622,00904-0618-70 ",.01)
 ;;00904-0618-70
 ;;9002226.02101,"622,00904-0618-70 ",.02)
 ;;00904-0618-70
 ;;9002226.02101,"622,00904-2768-60 ",.01)
 ;;00904-2768-60
 ;;9002226.02101,"622,00904-2768-60 ",.02)
 ;;00904-2768-60
 ;;9002226.02101,"622,00904-2768-80 ",.01)
 ;;00904-2768-80
 ;;9002226.02101,"622,00904-2768-80 ",.02)
 ;;00904-2768-80
 ;;9002226.02101,"622,00904-2769-60 ",.01)
 ;;00904-2769-60
 ;;9002226.02101,"622,00904-2769-60 ",.02)
 ;;00904-2769-60
 ;;9002226.02101,"622,00904-2769-80 ",.01)
 ;;00904-2769-80
 ;;9002226.02101,"622,00904-2769-80 ",.02)
 ;;00904-2769-80
 ;;9002226.02101,"622,00904-2770-60 ",.01)
 ;;00904-2770-60
 ;;9002226.02101,"622,00904-2770-60 ",.02)
 ;;00904-2770-60
 ;;9002226.02101,"622,00904-2770-80 ",.01)
 ;;00904-2770-80
 ;;9002226.02101,"622,00904-2770-80 ",.02)
 ;;00904-2770-80
 ;;9002226.02101,"622,00904-2773-60 ",.01)
 ;;00904-2773-60
 ;;9002226.02101,"622,00904-2773-60 ",.02)
 ;;00904-2773-60
 ;;9002226.02101,"622,00904-3921-60 ",.01)
 ;;00904-3921-60
 ;;9002226.02101,"622,00904-3921-60 ",.02)
 ;;00904-3921-60
 ;;9002226.02101,"622,00904-3921-80 ",.01)
 ;;00904-3921-80
 ;;9002226.02101,"622,00904-3921-80 ",.02)
 ;;00904-3921-80
 ;;9002226.02101,"622,00904-4270-80 ",.01)
 ;;00904-4270-80
 ;;9002226.02101,"622,00904-4270-80 ",.02)
 ;;00904-4270-80
 ;;9002226.02101,"622,11808-0555-01 ",.01)
 ;;11808-0555-01
 ;;9002226.02101,"622,11808-0555-01 ",.02)
 ;;11808-0555-01
 ;;9002226.02101,"622,12280-0085-07 ",.01)
 ;;12280-0085-07
 ;;9002226.02101,"622,12280-0085-07 ",.02)
 ;;12280-0085-07
 ;;9002226.02101,"622,12280-0085-14 ",.01)
 ;;12280-0085-14
 ;;9002226.02101,"622,12280-0085-14 ",.02)
 ;;12280-0085-14
 ;;9002226.02101,"622,12280-0135-00 ",.01)
 ;;12280-0135-00
 ;;9002226.02101,"622,12280-0135-00 ",.02)
 ;;12280-0135-00
 ;;9002226.02101,"622,12280-0231-00 ",.01)
 ;;12280-0231-00
 ;;9002226.02101,"622,12280-0231-00 ",.02)
 ;;12280-0231-00
 ;;9002226.02101,"622,17314-5850-02 ",.01)
 ;;17314-5850-02
 ;;9002226.02101,"622,17314-5850-02 ",.02)
 ;;17314-5850-02
 ;;9002226.02101,"622,17314-5851-02 ",.01)
 ;;17314-5851-02
 ;;9002226.02101,"622,17314-5851-02 ",.02)
 ;;17314-5851-02
 ;;9002226.02101,"622,17314-5852-02 ",.01)
 ;;17314-5852-02
 ;;9002226.02101,"622,17314-5852-02 ",.02)
 ;;17314-5852-02
 ;;9002226.02101,"622,17314-5853-02 ",.01)
 ;;17314-5853-02
 ;;9002226.02101,"622,17314-5853-02 ",.02)
 ;;17314-5853-02
 ;;9002226.02101,"622,25332-1113-01 ",.01)
 ;;25332-1113-01
 ;;9002226.02101,"622,25332-1113-01 ",.02)
 ;;25332-1113-01
 ;;9002226.02101,"622,38245-0577-01 ",.01)
 ;;38245-0577-01
 ;;9002226.02101,"622,38245-0577-01 ",.02)
 ;;38245-0577-01
 ;;9002226.02101,"622,52152-0159-02 ",.01)
 ;;52152-0159-02
 ;;9002226.02101,"622,52152-0159-02 ",.02)
 ;;52152-0159-02
 ;;9002226.02101,"622,52152-0159-05 ",.01)
 ;;52152-0159-05
 ;;9002226.02101,"622,52152-0159-05 ",.02)
 ;;52152-0159-05
 ;;9002226.02101,"622,52152-0161-02 ",.01)
 ;;52152-0161-02
 ;;9002226.02101,"622,52152-0161-02 ",.02)
 ;;52152-0161-02
 ;;9002226.02101,"622,52152-0162-02 ",.01)
 ;;52152-0162-02
 ;;9002226.02101,"622,52152-0162-02 ",.02)
 ;;52152-0162-02
 ;;9002226.02101,"622,52152-0167-02 ",.01)
 ;;52152-0167-02
 ;;9002226.02101,"622,52152-0167-02 ",.02)
 ;;52152-0167-02
 ;;9002226.02101,"622,52152-0167-05 ",.01)
 ;;52152-0167-05
 ;;9002226.02101,"622,52152-0167-05 ",.02)
 ;;52152-0167-05
 ;;9002226.02101,"622,52152-0173-02 ",.01)
 ;;52152-0173-02
 ;;9002226.02101,"622,52152-0173-02 ",.02)
 ;;52152-0173-02
 ;;9002226.02101,"622,52152-0186-02 ",.01)
 ;;52152-0186-02
 ;;9002226.02101,"622,52152-0186-02 ",.02)
 ;;52152-0186-02
 ;;9002226.02101,"622,52152-0197-02 ",.01)
 ;;52152-0197-02
 ;;9002226.02101,"622,52152-0197-02 ",.02)
 ;;52152-0197-02
 ;;9002226.02101,"622,52544-0782-01 ",.01)
 ;;52544-0782-01
 ;;9002226.02101,"622,52544-0782-01 ",.02)
 ;;52544-0782-01
 ;;9002226.02101,"622,52544-0783-01 ",.01)
 ;;52544-0783-01
 ;;9002226.02101,"622,52544-0783-01 ",.02)
 ;;52544-0783-01
 ;;9002226.02101,"622,52604-0010-01 ",.01)
 ;;52604-0010-01
 ;;9002226.02101,"622,52604-0010-01 ",.02)
 ;;52604-0010-01
 ;;9002226.02101,"622,52604-0470-01 ",.01)
 ;;52604-0470-01
 ;;9002226.02101,"622,52604-0470-01 ",.02)
 ;;52604-0470-01
 ;;9002226.02101,"622,52959-0426-06 ",.01)
 ;;52959-0426-06
 ;;9002226.02101,"622,52959-0426-06 ",.02)
 ;;52959-0426-06
 ;;9002226.02101,"622,52959-0426-07 ",.01)
 ;;52959-0426-07
 ;;9002226.02101,"622,52959-0426-07 ",.02)
 ;;52959-0426-07
 ;;9002226.02101,"622,52959-0426-14 ",.01)
 ;;52959-0426-14
 ;;9002226.02101,"622,52959-0426-14 ",.02)
 ;;52959-0426-14
 ;;9002226.02101,"622,52959-0426-15 ",.01)
 ;;52959-0426-15
 ;;9002226.02101,"622,52959-0426-15 ",.02)
 ;;52959-0426-15
 ;;9002226.02101,"622,52959-0426-24 ",.01)
 ;;52959-0426-24
 ;;9002226.02101,"622,52959-0426-24 ",.02)
 ;;52959-0426-24
 ;;9002226.02101,"622,52959-0426-28 ",.01)
 ;;52959-0426-28
 ;;9002226.02101,"622,52959-0426-28 ",.02)
 ;;52959-0426-28
 ;;9002226.02101,"622,52959-0426-30 ",.01)
 ;;52959-0426-30