Changeset 931 for BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC.m

Timestamp:

Sep 7, 2010, 7:38:31 AM (14 years ago)

Author:

Sam Habiel

Message:

Changes in BMXMON to add process name and fix timeouts; change in version number to 2.2

File:

• BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC.m (modified) (3 diffs)

BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXRPC.m

@@ -1 +1 @@
 BMXRPC  ; IHS/OIT/HMW - BMX REMOTE PROCEDURE CALLS ; 9/7/10 5:04am
-        ;;2.1;BMX;;Jul 26, 2009
+        ;;2.2;BMX;;Sep 07, 2010
         ;;Stolen from:* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
         ;;  GENERIC LOOKUP UTILITY FOR RETURNING MATCHING RECORDS
@@ -12 +12 @@
         ;
         ;----------
-    ; Change Log:
-    ; UJO/SMH on 7 Sep 2010 -- added RPC for determining UTF-8 support
-    ; Tag: UTF-8
+           ; 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
         ;---> Places matching records from requested file into a
@@ -169 +169 @@
         S ^BMXTEMP($J,1)=BMX31_BMXERR
         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
+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