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

BGP12XF.m

Go to the documentation of this file.
BGP12XF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"686,00555-0973-02 ",.01)
 ;;00555-0973-02
 ;;9002226.02101,"686,00555-0973-02 ",.02)
 ;;00555-0973-02
 ;;9002226.02101,"686,00555-0974-02 ",.01)
 ;;00555-0974-02
 ;;9002226.02101,"686,00555-0974-02 ",.02)
 ;;00555-0974-02
 ;;9002226.02101,"686,00574-0116-01 ",.01)
 ;;00574-0116-01
 ;;9002226.02101,"686,00574-0116-01 ",.02)
 ;;00574-0116-01
 ;;9002226.02101,"686,00574-0116-05 ",.01)
 ;;00574-0116-05
 ;;9002226.02101,"686,00574-0116-05 ",.02)
 ;;00574-0116-05
 ;;9002226.02101,"686,00574-0116-30 ",.01)
 ;;00574-0116-30
 ;;9002226.02101,"686,00574-0116-30 ",.02)
 ;;00574-0116-30
 ;;9002226.02101,"686,00585-0903-71 ",.01)
 ;;00585-0903-71
 ;;9002226.02101,"686,00585-0903-71 ",.02)
 ;;00585-0903-71
 ;;9002226.02101,"686,00585-0904-84 ",.01)
 ;;00585-0904-84
 ;;9002226.02101,"686,00585-0904-84 ",.02)
 ;;00585-0904-84
 ;;9002226.02101,"686,00591-0782-01 ",.01)
 ;;00591-0782-01
 ;;9002226.02101,"686,00591-0782-01 ",.02)
 ;;00591-0782-01
 ;;9002226.02101,"686,00591-0783-01 ",.01)
 ;;00591-0783-01
 ;;9002226.02101,"686,00591-0783-01 ",.02)
 ;;00591-0783-01
 ;;9002226.02101,"686,00591-3111-01 ",.01)
 ;;00591-3111-01
 ;;9002226.02101,"686,00591-3111-01 ",.02)
 ;;00591-3111-01
 ;;9002226.02101,"686,00591-5882-01 ",.01)
 ;;00591-5882-01
 ;;9002226.02101,"686,00591-5882-01 ",.02)
 ;;00591-5882-01
 ;;9002226.02101,"686,00591-5882-10 ",.01)
 ;;00591-5882-10
 ;;9002226.02101,"686,00591-5882-10 ",.02)
 ;;00591-5882-10
 ;;9002226.02101,"686,00591-5883-01 ",.01)
 ;;00591-5883-01
 ;;9002226.02101,"686,00591-5883-01 ",.02)
 ;;00591-5883-01
 ;;9002226.02101,"686,00591-5883-10 ",.01)
 ;;00591-5883-10
 ;;9002226.02101,"686,00591-5883-10 ",.02)
 ;;00591-5883-10
 ;;9002226.02101,"686,00591-5884-01 ",.01)
 ;;00591-5884-01
 ;;9002226.02101,"686,00591-5884-01 ",.02)
 ;;00591-5884-01
 ;;9002226.02101,"686,00591-5884-10 ",.01)
 ;;00591-5884-10
 ;;9002226.02101,"686,00591-5884-10 ",.02)
 ;;00591-5884-10
 ;;9002226.02101,"686,00603-4569-21 ",.01)
 ;;00603-4569-21
 ;;9002226.02101,"686,00603-4569-21 ",.02)
 ;;00603-4569-21
 ;;9002226.02101,"686,00603-4569-32 ",.01)
 ;;00603-4569-32
 ;;9002226.02101,"686,00603-4569-32 ",.02)
 ;;00603-4569-32
 ;;9002226.02101,"686,00603-4570-21 ",.01)
 ;;00603-4570-21
 ;;9002226.02101,"686,00603-4570-21 ",.02)
 ;;00603-4570-21
 ;;9002226.02101,"686,00603-4570-32 ",.01)
 ;;00603-4570-32
 ;;9002226.02101,"686,00603-4570-32 ",.02)
 ;;00603-4570-32
 ;;9002226.02101,"686,00603-4571-21 ",.01)
 ;;00603-4571-21
 ;;9002226.02101,"686,00603-4571-21 ",.02)
 ;;00603-4571-21
 ;;9002226.02101,"686,00603-4571-32 ",.01)
 ;;00603-4571-32
 ;;9002226.02101,"686,00603-4571-32 ",.02)
 ;;00603-4571-32
 ;;9002226.02101,"686,00603-4572-21 ",.01)
 ;;00603-4572-21
 ;;9002226.02101,"686,00603-4572-21 ",.02)
 ;;00603-4572-21
 ;;9002226.02101,"686,00603-5192-16 ",.01)
 ;;00603-5192-16
 ;;9002226.02101,"686,00603-5192-16 ",.02)
 ;;00603-5192-16
 ;;9002226.02101,"686,00603-5192-21 ",.01)
 ;;00603-5192-21
 ;;9002226.02101,"686,00603-5192-21 ",.02)
 ;;00603-5192-21
 ;;9002226.02101,"686,00603-5192-32 ",.01)
 ;;00603-5192-32
 ;;9002226.02101,"686,00603-5192-32 ",.02)
 ;;00603-5192-32
 ;;9002226.02101,"686,00677-0460-01 ",.01)
 ;;00677-0460-01
 ;;9002226.02101,"686,00677-0460-01 ",.02)
 ;;00677-0460-01
 ;;9002226.02101,"686,00677-1823-01 ",.01)
 ;;00677-1823-01
 ;;9002226.02101,"686,00677-1823-01 ",.02)
 ;;00677-1823-01
 ;;9002226.02101,"686,00677-1823-10 ",.01)
 ;;00677-1823-10
 ;;9002226.02101,"686,00677-1823-10 ",.02)
 ;;00677-1823-10
 ;;9002226.02101,"686,00677-1824-01 ",.01)
 ;;00677-1824-01
 ;;9002226.02101,"686,00677-1824-01 ",.02)
 ;;00677-1824-01
 ;;9002226.02101,"686,00677-1824-10 ",.01)
 ;;00677-1824-10
 ;;9002226.02101,"686,00677-1824-10 ",.02)
 ;;00677-1824-10
 ;;9002226.02101,"686,00781-1097-01 ",.01)
 ;;00781-1097-01
 ;;9002226.02101,"686,00781-1097-01 ",.02)
 ;;00781-1097-01
 ;;9002226.02101,"686,00781-1605-01 ",.01)
 ;;00781-1605-01
 ;;9002226.02101,"686,00781-1605-01 ",.02)
 ;;00781-1605-01
 ;;9002226.02101,"686,00781-1748-01 ",.01)
 ;;00781-1748-01
 ;;9002226.02101,"686,00781-1748-01 ",.02)
 ;;00781-1748-01
 ;;9002226.02101,"686,00781-1748-10 ",.01)
 ;;00781-1748-10
 ;;9002226.02101,"686,00781-1748-10 ",.02)
 ;;00781-1748-10
 ;;9002226.02101,"686,00781-1749-01 ",.01)
 ;;00781-1749-01
 ;;9002226.02101,"686,00781-1749-01 ",.02)
 ;;00781-1749-01
 ;;9002226.02101,"686,00781-1749-10 ",.01)
 ;;00781-1749-10
 ;;9002226.02101,"686,00781-1749-10 ",.02)
 ;;00781-1749-10
 ;;9002226.02101,"686,00781-1753-01 ",.01)
 ;;00781-1753-01
 ;;9002226.02101,"686,00781-1753-01 ",.02)
 ;;00781-1753-01
 ;;9002226.02101,"686,00781-1753-10 ",.01)
 ;;00781-1753-10
 ;;9002226.02101,"686,00781-1753-10 ",.02)
 ;;00781-1753-10
 ;;9002226.02101,"686,00781-1754-01 ",.01)
 ;;00781-1754-01
 ;;9002226.02101,"686,00781-1754-01 ",.02)
 ;;00781-1754-01
 ;;9002226.02101,"686,00781-1754-10 ",.01)
 ;;00781-1754-10
 ;;9002226.02101,"686,00781-1754-10 ",.02)
 ;;00781-1754-10
 ;;9002226.02101,"686,00781-5748-01 ",.01)
 ;;00781-5748-01
 ;;9002226.02101,"686,00781-5748-01 ",.02)
 ;;00781-5748-01
 ;;9002226.02101,"686,00781-5749-01 ",.01)
 ;;00781-5749-01
 ;;9002226.02101,"686,00781-5749-01 ",.02)
 ;;00781-5749-01
 ;;9002226.02101,"686,00781-5753-01 ",.01)
 ;;00781-5753-01
 ;;9002226.02101,"686,00781-5753-01 ",.02)
 ;;00781-5753-01
 ;;9002226.02101,"686,00781-5754-01 ",.01)
 ;;00781-5754-01
 ;;9002226.02101,"686,00781-5754-01 ",.02)
 ;;00781-5754-01
 ;;9002226.02101,"686,00781-8840-01 ",.01)
 ;;00781-8840-01
 ;;9002226.02101,"686,00781-8840-01 ",.02)
 ;;00781-8840-01
 ;;9002226.02101,"686,00781-8841-01 ",.01)
 ;;00781-8841-01
 ;;9002226.02101,"686,00781-8841-01 ",.02)
 ;;00781-8841-01
 ;;9002226.02101,"686,00781-8842-01 ",.01)
 ;;00781-8842-01
 ;;9002226.02101,"686,00781-8842-01 ",.02)
 ;;00781-8842-01
 ;;9002226.02101,"686,00781-8842-10 ",.01)
 ;;00781-8842-10
 ;;9002226.02101,"686,00781-8842-10 ",.02)
 ;;00781-8842-10
 ;;9002226.02101,"686,00781-8843-01 ",.01)
 ;;00781-8843-01
 ;;9002226.02101,"686,00781-8843-01 ",.02)
 ;;00781-8843-01
 ;;9002226.02101,"686,00904-0614-60 ",.01)
 ;;00904-0614-60
 ;;9002226.02101,"686,00904-0614-60 ",.02)
 ;;00904-0614-60
 ;;9002226.02101,"686,00904-0614-80 ",.01)
 ;;00904-0614-80
 ;;9002226.02101,"686,00904-0614-80 ",.02)
 ;;00904-0614-80
 ;;9002226.02101,"686,00904-0618-60 ",.01)
 ;;00904-0618-60
 ;;9002226.02101,"686,00904-0618-60 ",.02)
 ;;00904-0618-60
 ;;9002226.02101,"686,00904-0618-70 ",.01)
 ;;00904-0618-70
 ;;9002226.02101,"686,00904-0618-70 ",.02)
 ;;00904-0618-70
 ;;9002226.02101,"686,00904-2768-60 ",.01)
 ;;00904-2768-60
 ;;9002226.02101,"686,00904-2768-60 ",.02)
 ;;00904-2768-60
 ;;9002226.02101,"686,00904-2768-80 ",.01)
 ;;00904-2768-80
 ;;9002226.02101,"686,00904-2768-80 ",.02)
 ;;00904-2768-80
 ;;9002226.02101,"686,00904-2769-60 ",.01)
 ;;00904-2769-60
 ;;9002226.02101,"686,00904-2769-60 ",.02)
 ;;00904-2769-60
 ;;9002226.02101,"686,00904-2769-80 ",.01)
 ;;00904-2769-80
 ;;9002226.02101,"686,00904-2769-80 ",.02)
 ;;00904-2769-80
 ;;9002226.02101,"686,00904-2770-60 ",.01)
 ;;00904-2770-60
 ;;9002226.02101,"686,00904-2770-60 ",.02)
 ;;00904-2770-60
 ;;9002226.02101,"686,00904-2770-80 ",.01)
 ;;00904-2770-80
 ;;9002226.02101,"686,00904-2770-80 ",.02)
 ;;00904-2770-80
 ;;9002226.02101,"686,00904-2773-60 ",.01)
 ;;00904-2773-60
 ;;9002226.02101,"686,00904-2773-60 ",.02)
 ;;00904-2773-60
 ;;9002226.02101,"686,00904-3921-60 ",.01)
 ;;00904-3921-60
 ;;9002226.02101,"686,00904-3921-60 ",.02)
 ;;00904-3921-60
 ;;9002226.02101,"686,00904-3921-80 ",.01)
 ;;00904-3921-80
 ;;9002226.02101,"686,00904-3921-80 ",.02)
 ;;00904-3921-80
 ;;9002226.02101,"686,00904-4270-80 ",.01)
 ;;00904-4270-80
 ;;9002226.02101,"686,00904-4270-80 ",.02)
 ;;00904-4270-80
 ;;9002226.02101,"686,10702-0025-01 ",.01)
 ;;10702-0025-01
 ;;9002226.02101,"686,10702-0025-01 ",.02)
 ;;10702-0025-01
 ;;9002226.02101,"686,10702-0025-03 ",.01)
 ;;10702-0025-03
 ;;9002226.02101,"686,10702-0025-03 ",.02)
 ;;10702-0025-03
 ;;9002226.02101,"686,10702-0025-10 ",.01)
 ;;10702-0025-10
 ;;9002226.02101,"686,10702-0025-10 ",.02)
 ;;10702-0025-10
 ;;9002226.02101,"686,10702-0026-01 ",.01)
 ;;10702-0026-01
 ;;9002226.02101,"686,10702-0026-01 ",.02)
 ;;10702-0026-01
 ;;9002226.02101,"686,10702-0026-10 ",.01)
 ;;10702-0026-10
 ;;9002226.02101,"686,10702-0026-10 ",.02)
 ;;10702-0026-10
 ;;9002226.02101,"686,10702-0027-01 ",.01)
 ;;10702-0027-01
 ;;9002226.02101,"686,10702-0027-01 ",.02)
 ;;10702-0027-01
 ;;9002226.02101,"686,10702-0027-10 ",.01)
 ;;10702-0027-10
 ;;9002226.02101,"686,10702-0027-10 ",.02)
 ;;10702-0027-10
 ;;9002226.02101,"686,10702-0028-01 ",.01)
 ;;10702-0028-01
 ;;9002226.02101,"686,10702-0028-01 ",.02)
 ;;10702-0028-01
 ;;9002226.02101,"686,10702-0028-10 ",.01)
 ;;10702-0028-10
 ;;9002226.02101,"686,10702-0028-10 ",.02)
 ;;10702-0028-10
 ;;9002226.02101,"686,10702-0029-01 ",.01)
 ;;10702-0029-01
 ;;9002226.02101,"686,10702-0029-01 ",.02)
 ;;10702-0029-01
 ;;9002226.02101,"686,10702-0029-10 ",.01)
 ;;10702-0029-10
 ;;9002226.02101,"686,10702-0029-10 ",.02)
 ;;10702-0029-10
 ;;9002226.02101,"686,10702-0040-01 ",.01)
 ;;10702-0040-01
 ;;9002226.02101,"686,10702-0040-01 ",.02)
 ;;10702-0040-01
 ;;9002226.02101,"686,10702-0040-03 ",.01)
 ;;10702-0040-03
 ;;9002226.02101,"686,10702-0040-03 ",.02)
 ;;10702-0040-03
 ;;9002226.02101,"686,10702-0040-50 ",.01)
 ;;10702-0040-50
 ;;9002226.02101,"686,10702-0040-50 ",.02)
 ;;10702-0040-50
 ;;9002226.02101,"686,11808-0555-01 ",.01)
 ;;11808-0555-01
 ;;9002226.02101,"686,11808-0555-01 ",.02)
 ;;11808-0555-01
 ;;9002226.02101,"686,12280-0085-07 ",.01)
 ;;12280-0085-07
 ;;9002226.02101,"686,12280-0085-07 ",.02)
 ;;12280-0085-07
 ;;9002226.02101,"686,12280-0085-14 ",.01)
 ;;12280-0085-14
 ;;9002226.02101,"686,12280-0085-14 ",.02)
 ;;12280-0085-14
 ;;9002226.02101,"686,12280-0135-00 ",.01)
 ;;12280-0135-00
 ;;9002226.02101,"686,12280-0135-00 ",.02)
 ;;12280-0135-00
 ;;9002226.02101,"686,12280-0231-00 ",.01)
 ;;12280-0231-00
 ;;9002226.02101,"686,12280-0231-00 ",.02)
 ;;12280-0231-00
 ;;9002226.02101,"686,13551-0701-05 ",.01)
 ;;13551-0701-05
 ;;9002226.02101,"686,13551-0701-05 ",.02)
 ;;13551-0701-05
 ;;9002226.02101,"686,14629-0117-16 ",.01)
 ;;14629-0117-16
 ;;9002226.02101,"686,14629-0117-16 ",.02)
 ;;14629-0117-16
 ;;9002226.02101,"686,16590-0185-30 ",.01)
 ;;16590-0185-30
 ;;9002226.02101,"686,16590-0185-30 ",.02)
 ;;16590-0185-30
 ;;9002226.02101,"686,16590-0185-60 ",.01)
 ;;16590-0185-60
 ;;9002226.02101,"686,16590-0185-60 ",.02)
 ;;16590-0185-60
 ;;9002226.02101,"686,16590-0186-30 ",.01)
 ;;16590-0186-30
 ;;9002226.02101,"686,16590-0186-30 ",.02)
 ;;16590-0186-30
 ;;9002226.02101,"686,16590-0186-60 ",.01)
 ;;16590-0186-60
 ;;9002226.02101,"686,16590-0186-60 ",.02)
 ;;16590-0186-60
 ;;9002226.02101,"686,17314-5850-02 ",.01)
 ;;17314-5850-02
 ;;9002226.02101,"686,17314-5850-02 ",.02)
 ;;17314-5850-02
 ;;9002226.02101,"686,17314-5851-02 ",.01)
 ;;17314-5851-02
 ;;9002226.02101,"686,17314-5851-02 ",.02)
 ;;17314-5851-02
 ;;9002226.02101,"686,17314-5852-02 ",.01)
 ;;17314-5852-02
 ;;9002226.02101,"686,17314-5852-02 ",.02)
 ;;17314-5852-02
 ;;9002226.02101,"686,17314-5853-02 ",.01)
 ;;17314-5853-02
 ;;9002226.02101,"686,17314-5853-02 ",.02)
 ;;17314-5853-02
 ;;9002226.02101,"686,21695-0509-00 ",.01)
 ;;21695-0509-00
 ;;9002226.02101,"686,21695-0509-00 ",.02)
 ;;21695-0509-00
 ;;9002226.02101,"686,21695-0510-30 ",.01)
 ;;21695-0510-30
 ;;9002226.02101,"686,21695-0510-30 ",.02)
 ;;21695-0510-30
 ;;9002226.02101,"686,21695-0513-00 ",.01)
 ;;21695-0513-00
 ;;9002226.02101,"686,21695-0513-00 ",.02)
 ;;21695-0513-00
 ;;9002226.02101,"686,21695-0597-07 ",.01)
 ;;21695-0597-07
 ;;9002226.02101,"686,21695-0597-07 ",.02)
 ;;21695-0597-07
 ;;9002226.02101,"686,21695-0597-60 ",.01)
 ;;21695-0597-60
 ;;9002226.02101,"686,21695-0597-60 ",.02)
 ;;21695-0597-60
 ;;9002226.02101,"686,21695-0876-30 ",.01)
 ;;21695-0876-30
 ;;9002226.02101,"686,21695-0876-30 ",.02)
 ;;21695-0876-30
 ;;9002226.02101,"686,23490-5133-01 ",.01)
 ;;23490-5133-01
 ;;9002226.02101,"686,23490-5133-01 ",.02)
 ;;23490-5133-01
 ;;9002226.02101,"686,23490-5133-02 ",.01)
 ;;23490-5133-02
 ;;9002226.02101,"686,23490-5133-02 ",.02)
 ;;23490-5133-02
 ;;9002226.02101,"686,23490-5133-03 ",.01)
 ;;23490-5133-03
 ;;9002226.02101,"686,23490-5133-03 ",.02)
 ;;23490-5133-03
 ;;9002226.02101,"686,23490-5434-01 ",.01)
 ;;23490-5434-01
 ;;9002226.02101,"686,23490-5434-01 ",.02)
 ;;23490-5434-01
 ;;9002226.02101,"686,23490-5434-02 ",.01)
 ;;23490-5434-02