service cprs-gui
{
port = 9297
disable = no
socket_type = stream
wait = no
user = gtmuser
server = /opt/VISTAEHR/cprs_direct
passenv = REMOTE_HOST
type = UNLISTED
}
#!/bin/sh
if [ -z "$USER" ] ; then export USER=`whoami` ; fi
if [ -z "$HOME" ] ; then export HOME=/home/$USER ; fi
. /opt/VISTAEHR/env
timestamp=`date -u +%Y%m%d%H%M%S`"UTC"
cd `dirname $ydb_gbldir` ; \
$ydb_dist/mupip journal -recover -backward "*" 2>$ydb_tmp/"$timestamp"_1_$USER"_mupip_recover" && \
$ydb_dist/mupip set -journal="on,before" -region "*" 2>$ydb_tmp/"$timestamp"_2_$USER"_mupip_set" && \
find $HOME \( -name \*.mjl_\* -o -name \*.mjo -o -name \*.mje \) -mtime +$ydb_retention -exec rm -vf {} \; 2>$ydb_tmp/"$timestamp"_3_$USER"_find_rm_jnl"
if [ 0 = $# ] ; then
$ydb_dist/mumps -direct
else
$ydb_dist/mumps $*
fi
cd `dirname $ydb_gbldir` ; \
$ydb_dist/mupip rundown -region "*" 2>$ydb_tmp/"$timestamp"_4_$USER"-"`date -u +%Y%m%d%H%M%S`"UTC_mupip_rundown"
find $ydb_tmp -user $USER -mtime +$ydb_retention -exec rm -f {} \; 2>$ydb_tmp/"$timestamp"_5_$USER"_find_rm_tmp"
export ydb_dist=/usr/local/lib/yottadb/r206
export ydb_gbldir=/opt/VISTAEHR/g/gtm.gld
export gtmgbldir=$ydb_gbldir
export ydb_log=/var/tmp/yottadb/r206 ; mkdir -p $ydb_log
#note the GT.M editing feature below conflicts with the VistA screen editor, so do not enable
#export gtm_principal_editing=EDITING
export ydb_repl_instance=/opt/VISTAEHR/gtm_repl
export ydb_repl_instname=dummy
export ydb_retention=10
#ADDED 2/2/2026 AMN - Adjust QUIT behavior to accommodate bug/feature of C style function/procedure unification rather than M/Pascal style function/procedure dichotomy
export ydb_zquit_anyway=1
export ydb_routines="/opt/VISTAEHR/o(/opt/VISTAEHR/r) $ydb_dist/plugin/o/_ydbposix.so $ydb_dist/plugin/o/_ydbgui.so $ydb_dist/plugin/o/_ydbmwebserver.so $ydb_dist/libyottadbutil.so $>
export gtmroutines="$ydb_routines"
#export gtm_principal_editing="EDITING"
export ydb_tmp=/var/tmp/yottadb/r206 ; mkdir -p $ydb_tmp
alias mumps=$ydb_dist/mumps
alias mupip=$ydb_dist/mupip
#for YottaDB Web GUI
ydb_xc_ydbposix=$ydb_dist/plugin/ydbposix.xc
GTMXC_ydbposix=$ydb_dist/plugin/ydbposix.xc
--
--
http://groups.google.com/group/Hardhats
To unsubscribe, send email to Hardhats+u...@googlegroups.com
---
You received this message because you are subscribed to the Google Groups "Hardhats" group.
To unsubscribe from this group and stop receiving emails from it, send an email to hardhats+u...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/hardhats/2cf17ec8-332c-41a9-a059-8eac820d5e2bn%40googlegroups.com.
gtmuser@vistaworkshop:~$ ss -tnlp
State Recv-Q Send-Q Local Address:Port Peer Address:Port Process
LISTEN 0 4096 127.0.0.53%lo:53 0.0.0.0:*
LISTEN 0 4096 0.0.0.0:22 0.0.0.0:*
LISTEN 0 4096 127.0.0.54:53 0.0.0.0:*
LISTEN 0 64 *:9297 *:*
LISTEN 0 4096 [::]:22 [::]:*
gtmuser@vistaworkshop:~$ nc -v localhost 9297
Connection to localhost (127.0.0.1) 9297 port [tcp/cprs-gui] succeeded!
^C
gtmuser@vistaworkshop:~$ ydb
YDB>D CALL^XWBTCPMT
Interactive Broker Test
IP ADDRESS: 127.0.0.1
PORT: 9297
Success, response:
To view this discussion visit https://groups.google.com/d/msgid/hardhats/7fa17759-e7c4-4e63-822e-670712309c24n%40googlegroups.com.
Connection to 10.1.2.122 port 9297 [tcp/*] succeeded!
Should I try to migrate to Systemd and see if that shows any success?
Process ID: 1574 (1574) AUG 10, 2026 12:26:55
UCI/VOL: [ROU:vistaworkshop]
$ZA: 0
Current $IO: 0 Current $ZIO: ^0^0^0
$ZE= ESET+2^XWBTCPM, Label expected in this context,150373186,-%YDB-E-LABELEXPEC
TED
S X="",@^%ZOSF("TRAP") ;Clear old trap
Last Global Ref: ^%ZOSF("TRAP")
CPRS and other GUI apps were not able to connect to new Server running on YottaDB x64 Architecture…
It was presenting in YDB>D ^XTER as:
Process ID: 1773 (1773) AUG 10, 2026 12:37:50
UCI/VOL: [ROU:vistaworkshop]
$ZA: 0
Current $IO: 0 Current $ZIO: ^0^0^0
$ZE= ESET+2^XWBTCPM, Equal sign expected but not found,150372722,-%YDB-E-EQUAL
S X="",@^%ZOSF("TRAP") ;Clear old trap
Last Global Ref: ^%ZOSF("TRAP")
Solution:
^%ZOSF("TRAP") must start directly with $ETRAP= (without the leading S or SET ), so that the comma cleanly chains into setting $ETRAP.
Step 1: Update ^%ZOSF("TRAP")
Run this exact command at your YDB> prompt:
Step 2: Verify the Global Value
Run:
Expected Output: $ETRAP=$S($L(X):"G "_X,1:"Q") (Note: No leading S or SET)
Step 3: Test standard indirection
Execute the exact line from XWBTCPM:
This now expands cleanly to S X="",$ETRAP=$S($L(X):"G "_X,1:"Q"), which is valid MUMPS syntax. It will return to the YDB> prompt silently with no error.
To view this discussion visit https://groups.google.com/d/msgid/hardhats/d14f2c1d-7597-4def-ae4c-b75bb71393c3n%40googlegroups.com.