Changeset 930


Ignore:
Timestamp:
Sep 7, 2010, 4:55:56 AM (14 years ago)
Author:
Sam Habiel
Message:

Added check for UTF-8 encoding

File:
1 edited

Legend:

Unmodified
Added
Removed
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC.m

    r645 r930  
    1 BMXRPC  ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
     1BMXRPC  ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 9/7/10 5:04am
    22        ;;2.1;BMX;;Jul 26, 2009
    33        ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
     
    1212        ;
    1313        ;----------
     14    ; Change Log:
     15    ; UJO/SMH on 7 Sep 2010 -- added RPC for determining UTF-8 support
     16    ; Tag: UTF-8
    1417LOOKUP(BMXGBL,BMXFL,BMXFLDS,BMXFLG,BMXIN,BMXMX,BMXIX,BMXSCR,BMXMC)      ;EP
    1518        ;---> Places matching records from requested file into a
     
    166169        S ^BMXTEMP($J,1)=BMX31_BMXERR
    167170        Q
     171UTF8(BMXRET)
     172    ; RPC: BMX UTF-8
     173    ; UJO/SMH - tests if this database supports UTF-8 encoding
     174    ; 0 for FALSE for 1 for TRUE.
     175    I ^%ZOSF("OS")'["GT.M" S BMXRET=0 QUIT
     176    I $ZCHSET="M" S BMXRET=0 QUIT
     177    I $ZCHSET="UTF-8" S BMXRET=1 QUIT
     178    S BMXRET=0 QUIT  ;default
Note: See TracChangeset for help on using the changeset viewer.