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

BGP05X5.m

Go to the documentation of this file.
BGP05X5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,00406-1122-10 ",.02)
 ;;00406-1122-10
 ;;9002226.02101,"686,00406-1124-01 ",.01)
 ;;00406-1124-01
 ;;9002226.02101,"686,00406-1124-01 ",.02)
 ;;00406-1124-01
 ;;9002226.02101,"686,00406-1124-10 ",.01)
 ;;00406-1124-10
 ;;9002226.02101,"686,00406-1124-10 ",.02)
 ;;00406-1124-10
 ;;9002226.02101,"686,00406-1423-01 ",.01)
 ;;00406-1423-01
 ;;9002226.02101,"686,00406-1423-01 ",.02)
 ;;00406-1423-01
 ;;9002226.02101,"686,00406-1451-01 ",.01)
 ;;00406-1451-01
 ;;9002226.02101,"686,00406-1451-01 ",.02)
 ;;00406-1451-01
 ;;9002226.02101,"686,00406-8884-01 ",.01)
 ;;00406-8884-01
 ;;9002226.02101,"686,00406-8884-01 ",.02)
 ;;00406-8884-01
 ;;9002226.02101,"686,00406-8885-01 ",.01)
 ;;00406-8885-01
 ;;9002226.02101,"686,00406-8885-01 ",.02)
 ;;00406-8885-01
 ;;9002226.02101,"686,00406-8886-01 ",.01)
 ;;00406-8886-01
 ;;9002226.02101,"686,00406-8886-01 ",.02)
 ;;00406-8886-01
 ;;9002226.02101,"686,00406-8891-01 ",.01)
 ;;00406-8891-01
 ;;9002226.02101,"686,00406-8891-01 ",.02)
 ;;00406-8891-01
 ;;9002226.02101,"686,00406-8892-01 ",.01)
 ;;00406-8892-01
 ;;9002226.02101,"686,00406-8892-01 ",.02)
 ;;00406-8892-01
 ;;9002226.02101,"686,00406-8893-01 ",.01)
 ;;00406-8893-01
 ;;9002226.02101,"686,00406-8893-01 ",.02)
 ;;00406-8893-01
 ;;9002226.02101,"686,00406-8894-01 ",.01)
 ;;00406-8894-01
 ;;9002226.02101,"686,00406-8894-01 ",.02)
 ;;00406-8894-01
 ;;9002226.02101,"686,00406-8958-01 ",.01)
 ;;00406-8958-01
 ;;9002226.02101,"686,00406-8958-01 ",.02)
 ;;00406-8958-01
 ;;9002226.02101,"686,00406-8959-01 ",.01)
 ;;00406-8959-01
 ;;9002226.02101,"686,00406-8959-01 ",.02)
 ;;00406-8959-01
 ;;9002226.02101,"686,00406-8960-01 ",.01)
 ;;00406-8960-01
 ;;9002226.02101,"686,00406-8960-01 ",.02)
 ;;00406-8960-01
 ;;9002226.02101,"686,00406-8961-01 ",.01)
 ;;00406-8961-01
 ;;9002226.02101,"686,00406-8961-01 ",.02)
 ;;00406-8961-01
 ;;9002226.02101,"686,00406-8962-01 ",.01)
 ;;00406-8962-01
 ;;9002226.02101,"686,00406-8962-01 ",.02)
 ;;00406-8962-01
 ;;9002226.02101,"686,00463-2043-10 ",.01)
 ;;00463-2043-10
 ;;9002226.02101,"686,00463-2043-10 ",.02)
 ;;00463-2043-10
 ;;9002226.02101,"686,00463-3025-10 ",.01)
 ;;00463-3025-10
 ;;9002226.02101,"686,00463-3025-10 ",.02)
 ;;00463-3025-10
 ;;9002226.02101,"686,00463-3029-10 ",.01)
 ;;00463-3029-10
 ;;9002226.02101,"686,00463-3029-10 ",.02)
 ;;00463-3029-10
 ;;9002226.02101,"686,00463-3032-10 ",.01)
 ;;00463-3032-10
 ;;9002226.02101,"686,00463-3032-10 ",.02)
 ;;00463-3032-10
 ;;9002226.02101,"686,00463-3036-10 ",.01)
 ;;00463-3036-10
 ;;9002226.02101,"686,00463-3036-10 ",.02)
 ;;00463-3036-10
 ;;9002226.02101,"686,00463-6266-10 ",.01)
 ;;00463-6266-10
 ;;9002226.02101,"686,00463-6266-10 ",.02)
 ;;00463-6266-10
 ;;9002226.02101,"686,00463-6273-10 ",.01)
 ;;00463-6273-10
 ;;9002226.02101,"686,00463-6273-10 ",.02)
 ;;00463-6273-10
 ;;9002226.02101,"686,00463-6308-10 ",.01)
 ;;00463-6308-10
 ;;9002226.02101,"686,00463-6308-10 ",.02)
 ;;00463-6308-10
 ;;9002226.02101,"686,00463-6338-10 ",.01)
 ;;00463-6338-10
 ;;9002226.02101,"686,00463-6338-10 ",.02)
 ;;00463-6338-10
 ;;9002226.02101,"686,00463-7500-01 ",.01)
 ;;00463-7500-01
 ;;9002226.02101,"686,00463-7500-01 ",.02)
 ;;00463-7500-01
 ;;9002226.02101,"686,00463-7500-10 ",.01)
 ;;00463-7500-10
 ;;9002226.02101,"686,00463-7500-10 ",.02)
 ;;00463-7500-10
 ;;9002226.02101,"686,00463-8000-01 ",.01)
 ;;00463-8000-01
 ;;9002226.02101,"686,00463-8000-01 ",.02)
 ;;00463-8000-01
 ;;9002226.02101,"686,00463-8000-10 ",.01)
 ;;00463-8000-10
 ;;9002226.02101,"686,00463-8000-10 ",.02)
 ;;00463-8000-10
 ;;9002226.02101,"686,00527-0597-01 ",.01)
 ;;00527-0597-01
 ;;9002226.02101,"686,00527-0597-01 ",.02)
 ;;00527-0597-01
 ;;9002226.02101,"686,00527-0597-10 ",.01)
 ;;00527-0597-10
 ;;9002226.02101,"686,00527-0597-10 ",.02)
 ;;00527-0597-10
 ;;9002226.02101,"686,00527-1143-01 ",.01)
 ;;00527-1143-01
 ;;9002226.02101,"686,00527-1143-01 ",.02)
 ;;00527-1143-01
 ;;9002226.02101,"686,00527-1219-01 ",.01)
 ;;00527-1219-01
 ;;9002226.02101,"686,00527-1219-01 ",.02)
 ;;00527-1219-01
 ;;9002226.02101,"686,00527-1308-01 ",.01)
 ;;00527-1308-01
 ;;9002226.02101,"686,00527-1308-01 ",.02)
 ;;00527-1308-01
 ;;9002226.02101,"686,00527-1308-10 ",.01)
 ;;00527-1308-10
 ;;9002226.02101,"686,00527-1308-10 ",.02)
 ;;00527-1308-10
 ;;9002226.02101,"686,00527-1310-01 ",.01)
 ;;00527-1310-01
 ;;9002226.02101,"686,00527-1310-01 ",.02)
 ;;00527-1310-01
 ;;9002226.02101,"686,00527-1310-10 ",.01)
 ;;00527-1310-10
 ;;9002226.02101,"686,00527-1310-10 ",.02)
 ;;00527-1310-10
 ;;9002226.02101,"686,00527-1317-01 ",.01)
 ;;00527-1317-01
 ;;9002226.02101,"686,00527-1317-01 ",.02)
 ;;00527-1317-01
 ;;9002226.02101,"686,00527-1317-10 ",.01)
 ;;00527-1317-10
 ;;9002226.02101,"686,00527-1317-10 ",.02)
 ;;00527-1317-10
 ;;9002226.02101,"686,00527-1445-01 ",.01)
 ;;00527-1445-01
 ;;9002226.02101,"686,00527-1445-01 ",.02)
 ;;00527-1445-01
 ;;9002226.02101,"686,00527-1445-10 ",.01)
 ;;00527-1445-10
 ;;9002226.02101,"686,00527-1445-10 ",.02)
 ;;00527-1445-10
 ;;9002226.02101,"686,00536-4236-01 ",.01)
 ;;00536-4236-01
 ;;9002226.02101,"686,00536-4236-01 ",.02)
 ;;00536-4236-01
 ;;9002226.02101,"686,00536-5925-01 ",.01)
 ;;00536-5925-01
 ;;9002226.02101,"686,00536-5925-01 ",.02)
 ;;00536-5925-01
 ;;9002226.02101,"686,00555-0762-02 ",.01)
 ;;00555-0762-02
 ;;9002226.02101,"686,00555-0762-02 ",.02)
 ;;00555-0762-02
 ;;9002226.02101,"686,00555-0763-02 ",.01)
 ;;00555-0763-02
 ;;9002226.02101,"686,00555-0763-02 ",.02)
 ;;00555-0763-02
 ;;9002226.02101,"686,00555-0764-02 ",.01)
 ;;00555-0764-02
 ;;9002226.02101,"686,00555-0764-02 ",.02)
 ;;00555-0764-02
 ;;9002226.02101,"686,00555-0765-02 ",.01)
 ;;00555-0765-02
 ;;9002226.02101,"686,00555-0765-02 ",.02)
 ;;00555-0765-02
 ;;9002226.02101,"686,00555-0766-02 ",.01)
 ;;00555-0766-02
 ;;9002226.02101,"686,00555-0766-02 ",.02)
 ;;00555-0766-02
 ;;9002226.02101,"686,00555-0767-02 ",.01)
 ;;00555-0767-02
 ;;9002226.02101,"686,00555-0767-02 ",.02)
 ;;00555-0767-02
 ;;9002226.02101,"686,00555-0768-02 ",.01)
 ;;00555-0768-02
 ;;9002226.02101,"686,00555-0768-02 ",.02)
 ;;00555-0768-02
 ;;9002226.02101,"686,00555-0775-02 ",.01)
 ;;00555-0775-02
 ;;9002226.02101,"686,00555-0775-02 ",.02)
 ;;00555-0775-02
 ;;9002226.02101,"686,00555-0776-02 ",.01)
 ;;00555-0776-02
 ;;9002226.02101,"686,00555-0776-02 ",.02)
 ;;00555-0776-02
 ;;9002226.02101,"686,00555-0777-02 ",.01)
 ;;00555-0777-02
 ;;9002226.02101,"686,00555-0777-02 ",.02)
 ;;00555-0777-02
 ;;9002226.02101,"686,00555-0787-02 ",.01)
 ;;00555-0787-02
 ;;9002226.02101,"686,00555-0787-02 ",.02)
 ;;00555-0787-02
 ;;9002226.02101,"686,00555-0788-02 ",.01)
 ;;00555-0788-02
 ;;9002226.02101,"686,00555-0788-02 ",.02)
 ;;00555-0788-02
 ;;9002226.02101,"686,00555-0789-02 ",.01)
 ;;00555-0789-02
 ;;9002226.02101,"686,00555-0789-02 ",.02)
 ;;00555-0789-02
 ;;9002226.02101,"686,00555-0790-02 ",.01)
 ;;00555-0790-02
 ;;9002226.02101,"686,00555-0790-02 ",.02)
 ;;00555-0790-02
 ;;9002226.02101,"686,00555-0791-02 ",.01)
 ;;00555-0791-02
 ;;9002226.02101,"686,00555-0791-02 ",.02)
 ;;00555-0791-02
 ;;9002226.02101,"686,00555-0792-02 ",.01)
 ;;00555-0792-02
 ;;9002226.02101,"686,00555-0792-02 ",.02)
 ;;00555-0792-02
 ;;9002226.02101,"686,00555-0952-02 ",.01)
 ;;00555-0952-02
 ;;9002226.02101,"686,00555-0952-02 ",.02)
 ;;00555-0952-02
 ;;9002226.02101,"686,00555-0953-02 ",.01)
 ;;00555-0953-02
 ;;9002226.02101,"686,00555-0953-02 ",.02)
 ;;00555-0953-02
 ;;9002226.02101,"686,00555-0954-02 ",.01)
 ;;00555-0954-02
 ;;9002226.02101,"686,00555-0954-02 ",.02)
 ;;00555-0954-02
 ;;9002226.02101,"686,00555-0955-02 ",.01)
 ;;00555-0955-02
 ;;9002226.02101,"686,00555-0955-02 ",.02)
 ;;00555-0955-02
 ;;9002226.02101,"686,00555-0956-02 ",.01)
 ;;00555-0956-02
 ;;9002226.02101,"686,00555-0956-02 ",.02)
 ;;00555-0956-02
 ;;9002226.02101,"686,00555-0971-02 ",.01)
 ;;00555-0971-02
 ;;9002226.02101,"686,00555-0971-02 ",.02)
 ;;00555-0971-02
 ;;9002226.02101,"686,00555-0972-02 ",.01)
 ;;00555-0972-02
 ;;9002226.02101,"686,00555-0972-02 ",.02)
 ;;00555-0972-02
 ;;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-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