CPRS error after login

[Matthew R. Wilson]

Hello,

I've been following along with James Featherstone's thread about
installing VistA and Sam's responses with the links to various
modifications necessary to make it work in YottaDB.

For fun, I thought I'd try to get the system up and running locally here
as well.

I'm using the https://github.com/WorldVistA/VistA-M/tree/foia
repository, and have applied the virgin_install.zip updates from
https://github.com/shabiel/Kernel-GTM and the
https://raw.githubusercontent.com/WorldVistA/VistA-VEHU-M/master/Packages/Kernel/Routines/XUPROD.m
routine that Sam also pointed to.

With all of that in place, I've successfully gotten through the setup
steps in https://hardhats.org/projects/New/InitializeVistA.html and am
at the "Downloading CPRS and Running It" step. (The earlier RPC Broker
test step using the BrokerExample.exe file worked successfully.) The
version of CPRS I need appears to be 1.32.221.1:

Select OPTION NAME: OR CPRS GUI CHART CPRSChart version 1.32.221.1

I found that at:
https://code.worldvista.org/files/clients/OSEHRA_VistA/CPRS/1_32_221_1/

When I set up the shortcut to launch it pointing to my VistA/YDB server,
I get the sign-on screen and banner text, and it accepts my login (the
CPRS1234 user the instructions had me create), but immediately after it
accepts my access and verify codes I get an error dialog. The error
information is:

Date/Time : 10/12/2023 15:29:22
Unit : Trpcb
Class : EBrokerError
Message : Error encountered.
Function was: M ERROR=CAPI+16^XWBPRS, Label referenced but not defined: JSYSPARM,15037 3194,-%YDB-E-LABELMISSING
LAST REF=^%ZTSCH("LOGRSRC")^D
Error was: M Error - Use ^XTER


I'm just doing this for fun (was previously in the Health IT industry
and in general like to see how big software systems are built and set
up), so no need for anyone to take a lot of time out of their real work
to dive deep into this, but if someone *does* have any ideas about how I
can proceed, I'd appreciate any help.

Thanks,
Matthew

[Sam Habiel]

Looks familiar. I think resource logging is turned on in the VistA Kernel and you need to turn it off. I will tell you more tomorrow. 

--
--
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 on the web visit https://groups.google.com/d/msgid/hardhats/pntmwseqpjdi5wixas6byrglf4pvhd3djh476ao5w7zkqdek6c%40pnptkgus7nz4.

[Nancy Anthracite]

Please consider joining the WorldVistA Support Call Saturday AM here if you don't get an answer sooner.

https://meet.goto.com/530169149 

 

 You can also dial in using your phone. 

United States: +1 (646) 749-3122 

 

 Access Code: 530-169-149 

--

Nancy Anthracite

[Nancy Anthracite]

I forgot to mention it is at 10:30 Eastern.

--
Nancy Anthracite

On Thursday, October 12, 2023 7:07:46 PM EDT Nancy Anthracite wrote:
> Please consider joining the WorldVistA Support Call Saturday AM here if you
> don't get an answer sooner.
>
> https://meet.goto.com/530169149
>
> You can also dial in using your phone.
> United States: +1 (646) 749-3122
>
> Access Code: 530-169-149
>

[Sam Habiel]

Go to menu option Enter/Edit Kernel Site Parameters [XUSITEPARM], and make sure that Log RT on page 2 is No or empty, and Log Resource Usage on page 5 is No or empty. See screenshots below.

--
--
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 on the web visit https://groups.google.com/d/msgid/hardhats/4814981.DLMNgBsaNR%40owl.

[Matthew R. Wilson]

On 10.13.2023 10:27, Sam Habiel wrote:
>Go to menu option Enter/Edit Kernel Site Parameters [XUSITEPARM], and make
>sure that Log RT on page 2 is No or empty, and Log Resource Usage on page 5
>is No or empty.

Hi Sam,

Thanks for the tips. Log RT was already blank, and Log Resource Usage
was already No. I set Log RT to No just in case, but I still get that
error after logging in, so it appears the problem is something else.

Thanks,
Matthew

[Sam Habiel]

Matthew,

There is a catch-22 in this set-up. So your Kernel set-up is correct, but the state is wrong, as this field has an M xref that sets and kills ^%ZTSCH("LOGRSRC"). The solution is to kill this global manually. I believe after that you will be set.

--Sam

--
--
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 on the web visit https://groups.google.com/d/msgid/hardhats/ojesybojh7hwml372u7gsseberdtqa7byrlsaldvcaxb24qpio%4023kwbigu6sph.

[Matthew R. Wilson]

On 10.13.2023 16:30, Sam Habiel wrote:
>There is a catch-22 in this set-up. So your Kernel set-up is correct, but
>the state is wrong, as this field has an M xref that sets and kills
>^%ZTSCH("LOGRSRC"). The solution is to kill this global manually. I believe
>after that you will be set.

If I'm understanding correctly, I don't think that global is set for me:

VISTA> w ^%ZTSCH("LOGRSRC")
%YDB-E-GVUNDEF, Global variable undefined: ^%ZTSCH("LOGRSRC")

But I killed it anyway...

VISTA> K ^%ZTSCH("LOGRSRC")

And still get the same error in CPRS.

Thanks,
Matthew

[Sam Habiel]

Okay. I will stop guessing. DO ^XTER, and send us the error trap.

--
--
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 on the web visit https://groups.google.com/d/msgid/hardhats/77r2slv2ycjiyqfjzz5c73r7frueeu5eygsdm562f572q3ru7c%40nz6ujg4ata3u.

[Matthew R. Wilson]

On 10.13.2023 17:07, Sam Habiel wrote:
>Okay. I will stop guessing. DO ^XTER, and send us the error trap.

3 errors logged on 10/13/2023
3) <(LABELMISSING)>CAPI+16^XWBPRS 21:10:19 ROU:VISTA 182114 /dev/null
2) <(LABELMISSING)>CAPI+16^XWBPRS 20:50:30 ROU:VISTA 182063 /dev/null
1) <(LABELMISSING)>CAPI+16^XWBPRS 20:24:29 ROU:VISTA 182000 /dev/null

No screened error

Enter '^' to quit listing, <RETURN> to continue...:

Which error? > 3
Process ID: 182114 (182114) OCT 13, 2023 21:10:19
UCI/VOL: [ROU:VISTA]
$ZA: 0
Current $IO: /dev/null Current $ZIO: /dev/null^0^0^0
$ZE= CAPI+16^XWBPRS, Label referenced but not defined: JSYSPARM,150373194,-%YDB-
E-LABELMISSING
Last Global Ref: ^%ZTSCH("LOGRSRC")
D @XWBCALL S XWBCALL2=XWBCALL ;Save call for debug

Which symbol? >

...so it is indeed tring to do something related to the
^%ZTSCH("LOGRSRC") global you mentioned? Or maybe that was fine and it's
whatever it was trying to do next?

Thanks,
Matthew

[Sam Habiel]

Can you type “XWBCALL” in response to the “which symbol” prompt? Also the ^L output from the trap would be great. 

--
--
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 on the web visit https://groups.google.com/d/msgid/hardhats/iyacatk5b6nupozyhqva5eyxgazszpks2y3lwnggwhgpv4f7av%40rmjspsxekftq.

[Matthew R. Wilson]

On 10.13.2023 18:49, Sam Habiel wrote:
>Can you type “XWBCALL” in response to the “which symbol” prompt? Also the
>^L output from the trap would be great.

Yep:

Which symbol? > XWBCALL
XWBCALL=JSYSPARM^ORWU(.XWBY,XWB(5,"P",0))
XWBCALL2=

$ZE= CAPI+16^XWBPRS, Label referenced but not defined: JSYSPARM,150373194,-%YDB-
E-LABELMISSING
Last Global Ref: ^%ZTSCH("LOGRSRC")
D @XWBCALL S XWBCALL2=XWBCALL ;Save call for debug

Which symbol? > ^L
$DEVICE=
$ECODE=,M13,Z150373194,
$ESTACK=8
$ETRAP=D ^%ZTER,ETRAP^XWBTCPM(1)
$QUIT=0
$STACK=9
$STACK(000)=-direct
$STACK(000,"ECODE")=
$STACK(000,"PLACE")=GTMLNCH+6^%ZISTCPS
$STACK(000,"MCODE")= D VAR,@RTN
$STACK(001)=DO
$STACK(001,"ECODE")=
$STACK(001,"PLACE")=RESTART+3^XWBTCPM
$STACK(001,"MCODE")= U XWBTDEV D MAIN
$STACK(002)=DO
$STACK(002,"ECODE")=
$STACK(002,"PLACE")=MAIN+1^XWBTCPM
$STACK(002,"MCODE")= F D Q:XWBTBUF="#BYE#"
$STACK(003)=DO
$STACK(003,"ECODE")=
$STACK(003,"PLACE")=MAIN+14^XWBTCPM
$STACK(003,"MCODE")= . D CALLP^XWBPRS(.XWBR,$G(XWBDEBUG)) ;Read the NEW Msg para
meters and call RPC
$STACK(004)=DO
$STACK(004,"ECODE")=
$STACK(004,"PLACE")=CALLP+10^XWBPRS
$STACK(004,"MCODE")= I '+ERR D
$STACK(005)=DO
$STACK(005,"ECODE")=
$STACK(005,"PLACE")=CALLP+11^XWBPRS
$STACK(005,"MCODE")= . D CAPI(.XWBP,XWB("PARAM"))
$STACK(006)=DO
$STACK(006,"ECODE")=,M13,Z150373194,
$STACK(006,"PLACE")=CAPI+16^XWBPRS
$STACK(006,"MCODE")= D @XWBCALL S XWBCALL2=XWBCALL ;Save call for debug
$STACK(007)=DO
$STACK(007,"ECODE")=
$STACK(007,"PLACE")=ETRAP+6^XWBTCPM
$STACK(007,"MCODE")= D ^%ZTER ;%ZTER clears $ZE and $ZCODE
$X $Y=0 0
$ZV=GT.M V6.3-014 Linux x86_64
%DT=T
%ZT("^XUTL(""XQ"",$J)")=
DILOCKTM=3
DISYS=19
DT=3231013
DTIME=3600
DUZ=95
DUZ(0)=
DUZ(1)=
DUZ(2)=4524
DUZ("AG")=E
DUZ("AUTHENTICATION")=AVCODES
DUZ("AUTO")=1
DUZ("BUF")=1
DUZ("LANG")=
DUZ("LOA")=2
ERR=0
EXIT=0
I=0
IO=/dev/null
IO(0)=/dev/null
IO(1,0)=
IO(1,"/dev/null")=
IO("CLNM")=192.168.42.164
IO("ERROR")=
IO("HOME")=39^/dev/null
IO("IP")=192.168.42.8
IO("ZIO")=/dev/null
IOBS=$C(8)
IOF=#
IOHG=
IOM=132
ION=
IOPAR=
IOS=0
IOSL=64
IOST=P-OTHER
IOST(0)=16
IOT=TRM
IOUPAR=
IOXY=
J=
ORWCLVER=1.32.221.1
POP=1
RTN=NT^XWBTCPM
TYPE=1
U=^
X= This is my test system.
XPARSYS=137;DIC(4.2,
XQCY0=OR CPRS GUI CHART^CPRSChart version 1.32.221.1^^B^89^^^^^^^
XQMES=1
XQVOL=ROU
XQXFLG=0^0
XQXFLG("ASO")=1
XQXFLG("LLOG")=3231013.205027
XQY=8552
XQY0=OR CPRS GUI CHART
XR=[XWB]
XUCI=VAH
XUDEV=0
XUENV=VAH^ROU^VISTA^ROU:VISTA
XUF=0
XUF(.3)=95
XUFAC=0
XUIOP=
XUOSVER=6.3-014
XUVOL=ROU^^30^^^n
XWB(0,"LENV")=5
XWB(0,"RT")=0
XWB(0,"TYPE")=1
XWB(0,"VER")=1
XWB(2,"RNAM")=ORWU
XWB(2,"RPC")=ORWU SYSPARAM
XWB(2,"RTAG")=JSYSPARM
XWB(2,"VER")=0
XWB(5,"P",0)=95
XWB("PARAM")=XWB(5,"P",0)
XWBAPVER=0
XWBCALL=JSYSPARM^ORWU(.XWBY,XWB(5,"P",0))
XWBCALL2=
XWBCLMAN=192.168.42.164
XWBDEBUG=
XWBENVL=5
XWBERC=CAPI+16^XWBPRS, Label referenced but not defined: JSYSPARM,150373194,-%YD
B-E-LABELMISSING
XWBERR=M ERROR=CAPI+16^XWBPRS, Label referenced but not defined: JSYSPARM,15037
3194,-%YDB-E-LABELMISSING\013\010LAST REF=^%ZTSCH("LOGRSRC")
XWBERROR=
XWBNULL=/dev/null
XWBOS=GT.M
XWBPRT=0
XWBPTYPE=4
XWBRBUF=
XWBSEC=
XWBT("BF")=#
XWBT("PCNT")=1
XWBTBUF=
XWBTCMD=
XWBTDEV=0
XWBTIME=180
XWBTIME(1)=5
XWBTIP=192.168.42.8
XWBTSKT=0
XWBVER=1.108
XWBWRAP=0
Y=D ^ENTIRN
^XUTL("XQ",$J,0)=3231013.211016
^XUTL("XQ",$J,"DUZ")=95
^XUTL("XQ",$J,"DUZ(0)")=
^XUTL("XQ",$J,"DUZ(1)")=
^XUTL("XQ",$J,"DUZ(2)")=4524
^XUTL("XQ",$J,"DUZ(AG)")=E
^XUTL("XQ",$J,"DUZ(AUTHENTICATION)")=AVCODES
^XUTL("XQ",$J,"DUZ(AUTO)")=1
^XUTL("XQ",$J,"DUZ(BUF)")=1
^XUTL("XQ",$J,"DUZ(LANG)")=
^XUTL("XQ",$J,"DUZ(LOA)")=2
^XUTL("XQ",$J,"IO")=/dev/null
^XUTL("XQ",$J,"IO(""CLNM"")")=192.168.42.164
^XUTL("XQ",$J,"IO(""IP"")")=192.168.42.8
^XUTL("XQ",$J,"IOBS")=$C(8)
^XUTL("XQ",$J,"IOF")=#
^XUTL("XQ",$J,"IOM")=132
^XUTL("XQ",$J,"ION")=
^XUTL("XQ",$J,"IOPAR")=
^XUTL("XQ",$J,"IOS")=0
^XUTL("XQ",$J,"IOSL")=64
^XUTL("XQ",$J,"IOST")=P-OTHER
^XUTL("XQ",$J,"IOST(0)")=16
^XUTL("XQ",$J,"IOT")=TRM
^XUTL("XQ",$J,"IOUPAR")=
^XUTL("XQ",$J,"IOXY")=
^XUTL("XQ",$J,"XQVOL")=ROU

Thanks,
Matthew

[Sam Habiel]

https://vivian.worldvista.org/dox/Routine_ORWU_source.html#JSYSPARM

I think you have an old copy of ORWU. The current copy on Vivian has the missing label. Can you check the first two lines for the patch level and compare that to Vivian’s?

--
--
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 on the web visit https://groups.google.com/d/msgid/hardhats/a342ruscho3itamhdlw2tzfffjp24ibarivyjp6xrxdvb45fht%40lcysvhtgjb3t.

[Matthew R. Wilson]

On 10.13.2023 20:16, Sam Habiel wrote:
>https://vivian.worldvista.org/dox/Routine_ORWU_source.html#JSYSPARM
>
>I think you have an old copy of ORWU. The current copy on Vivian has the
>missing label. Can you check the first two lines for the patch level and
>compare that to Vivian’s?

Ah. I see what has happened. It's entirely a problem of my own making,
of course...

Indeed, my ORWU didn't have JSYSPARM. I added that, but it was
referencing another function in another file that didn't exist. So I
grabbed that from the Vivian web site, and of course that then
referenced another function that didn't exist... in an entire file that
didn't exist!

Long story short... I didn't realize that the master branch of
https://github.com/WorldVistA/VistA-M wasn't where the latest version of
everything was, and that instead it's the foia branch where updates are
being applied. So all of my routines were the version on the master
branch. But somewhere along the way I had also downloaded the zip
archive of everything from the guide on hardhats, using the link
https://github.com/OSEHRA/VistA-M/archive/foia.zip (which now redirects
over to the WorldVistA repo on the foia branch).

I think what happened is I had loaded all the routines from the master
branch of WorldVistA/VistA-M that I had cloned from git, but... you
guessed it... loaded the globals from the foia.zip file when I got to
that step.

Hence, my globals were set to need CPRS 1.32.221.1 while, in fact, I had
much older versions of the routines.

So I'm going to start over and make sure I'm actually using the foia
branch for everything this time and I'm sure it will work as expected
this time around.

Thank you for your help!

Thanks,
Matthew

[David Whitten]

How are things working now ?

Dave

--
--
http://groups.google.com/group/Hardhats
To unsubscribe, send email to Hardhats+unsubscribe@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+unsubscribe@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/hardhats/k5abuebvyq7v6w2gvab47nwexqly6qfuk4s543hzn37b6bsedi%40nbdzqzoejy6s.

[Matthew R. Wilson]

On 10.26.2023 21:53, David Whitten wrote:
>How are things working now ?

Not surprisingly, when I used the globals and routines from the *same*
version of the repository, many of my major problems went away :-)

There were still some problems I needed to investigate and work around...
CPRS wasn't accepting any access+verify codes, but after reading about the
"infamous XUSRB1.m problem" I figured it was happening in the "opposite"
direction of when the instructions were written and I was able to drop in an
older version of the XUSRB1.m routine to fix that problem. Creating a new
patient ends up failing; in the MPIFXMLP routine I installed "PATIENT" was
already renamed "ZPATIENT" but I think some additional functionality was
added in the current code to try to look up insurance information or
something, and I recall that was failing (I don't have the environment
around anymore and wasn't taking any good notes at that point). And I don't
remember what exactly, but doing some other things in CPRS caused errors,
but that may have been because I didn't have any properly-initialized
patients since the patient registration didn't finish correctly. And under
the "Setup Clinics" instructions, it refers to there being a "Set up a
Clinic" option under the Scheduling Manager's Menu -> Supervisor Menu, but
that isn't there anymore and I couldn't find an equivalent option to set up
a clinic, so I couldn't try to go any farther with my (potentially
"broken"...) test patients.

I figured I'd try one of the pre-built Docker environments, which did start
right up and seem to be working, but no matter what I did or what user I
logged in as, there was no ADT Manager Menu so I couldn't register my own
test patients in that system and that's when I decided I'd had enough fun
trying to get a system working and turned my attention back to what I could
do with standalone FileMan.

Thanks,
Matthew

[Sam Habiel]

> but I think some additional functionality was added in the current code to try to look up insurance information or something, and I recall that was failing

I think that's an Address Standardization lookup tool, added some time in the last year.

--Sam

--
--
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 on the web visit https://groups.google.com/d/msgid/hardhats/7qb7k4m5i6jkygqbd3hjmxwg2i32f2cm2xhhk574svdubufboc%40rfzwn7cojri5.