iSharkFly-Open
/
VistA-BMXNET_RPMS_dotNET_UTILITIES-BMX
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added check for UTF-8 encoding

This commit is contained in:
sam 2010-09-07 08:55:56 +00:00
parent 89a2e4f4c1
commit eb17631f10
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
m/BMXRPC.m
View File

@ -1,4 +1,4 @@
BMXRPC ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; BMXRPC ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 9/7/10 5:04am
;;2.1;BMX;;Jul 26, 2009 ;;2.1;BMX;;Jul 26, 2009
;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER * ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; GENERIC LOOKUP UTILITY FOR RETURNING MATCHING RECORDS ;; GENERIC LOOKUP UTILITY FOR RETURNING MATCHING RECORDS
@ -11,6 +11,9 @@ BMXRPC ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ;
; before being used as an RPC. ; before being used as an RPC.
; ;
;---------- ;----------
; Change Log:
; UJO/SMH on 7 Sep 2010 -- added RPC for determining UTF-8 support
; Tag: UTF-8
LOOKUP(BMXGBL,BMXFL,BMXFLDS,BMXFLG,BMXIN,BMXMX,BMXIX,BMXSCR,BMXMC) ;EP LOOKUP(BMXGBL,BMXFL,BMXFLDS,BMXFLG,BMXIN,BMXMX,BMXIX,BMXSCR,BMXMC) ;EP
;---> Places matching records from requested file into a ;---> Places matching records from requested file into a
;---> result global, ^BMXTEMP($J). The exact global name ;---> result global, ^BMXTEMP($J). The exact global name
@ -165,3 +168,11 @@ PASSERR(BMXGBL,BMXERR) ;EP
S BMXGBL="^BMXTEMP("_$J_")" S BMXGBL="^BMXTEMP("_$J_")"
S ^BMXTEMP($J,1)=BMX31_BMXERR S ^BMXTEMP($J,1)=BMX31_BMXERR
Q Q
UTF8(BMXRET)
; RPC: BMX UTF-8
; UJO/SMH - tests if this database supports UTF-8 encoding
; 0 for FALSE for 1 for TRUE.
I ^%ZOSF("OS")'["GT.M" S BMXRET=0 QUIT
I $ZCHSET="M" S BMXRET=0 QUIT
I $ZCHSET="UTF-8" S BMXRET=1 QUIT
S BMXRET=0 QUIT ;default

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 5.7 KiB

After

Width:  |  Height:  |  Size: 6.1 KiB