RE: [External] [Hardhats] GT.M is Acquiring Locks while Creating Lab Order !!

111 views
Skip to first unread message
Message has been deleted

Thurber, Joseph H

unread,
Feb 24, 2023, 3:54:01 AM2/24/23
to hard...@googlegroups.com

First, I just want to mention that I hope the data you sent is for a fictitious patient as the name and ssn are in the listing.  I have deleted that section from my response and would encourage David or Nancy to remove that section from the server.

 

As for your locking problem, it looks like LRORD is never being set as it is not in the list of values so the code if freezing while trying to lock +^LRO(69,LRYR,2).  This line of code is trying to find the next available order number.  Data dictionary for this field is:

69,.5         CURRENT ORDER NUMBER   2;1 NUMBER

 

              INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X

              LAST EDITED:      MAY 3,1984

              HELP-PROMPT:      TYPE A WHOLE NUMBER BETWEEN 0 AND 9999999

              DESCRIPTION:

                                The count of the order number for the current year.

 

              DELETE TEST:      1,0)= I '$D(^XUSEC("LRLIASON",DUZ))

 

You may need to check your LOCK_SPACE using LKE.  As there is no timeout set on the lock, LOCK continues slow poll till space becomes available.  Or perhaps there is a hung lock on LRO(69,LRYR,2).  Unlocking that may be the key.  I’m not sure how you are getting a proper order number in file 69 for those orders that you are manually unlocking…

 

I don’t seem to have this routine name in our VistA environment, our routine is called LROW2, and the unlock you are doing manually is done in the code following the hung lock command:

S ^LRO(69,LRYR,2)=LRORD L -^LRO(69,LRYR,2)

 

 

From: hard...@googlegroups.com <hard...@googlegroups.com> On Behalf Of Jai Singh VistA
Sent: Thursday, February 23, 2023 11:35 PM
To: Hardhats <hard...@googlegroups.com>
Subject: [External] [Hardhats] GT.M is Acquiring Locks while Creating Lab Order !!

 

CAUTION: External email. Do not click links or open attachments unless you verify. Send all suspicious email as an attachment to Report Spam.

 

Hi Everyone,

 

From last two days, we are getting some issue in Integration of Laboratory.

The GT.M is acquiring lock on File Number 69 while Creating Laboratory Order.

 

Whenever the team is clearing the lock then the order is successfully processed. Same is again happening with New Laboratory Order HL7 Message.

 

Below is the ZJOB Status of the Process ID. 

 

Seeking your kind help.

 

JOB #: 100776                           Process Name:
Device: 0
Process State: hib
JOB Type: -direct        CPU Time: 00:00:55       Login time: 06:43:20

Routine line: <NEXT^MXLROW2>
NEXT L +^LRO(69,LRYR,2) S LRORD=1+^LRO(69,LRYR,2) F  Q:'$D(^LRO(69,"C",LRORD))  S LRORD=LRORD+1
Job Exam Action: L//??
Enter '^' to choose another JOB
Enter 'L' to display status information about other Job
Enter 'S' to display current System Status
Enter 'V' to display local variables of other job
Enter '*' to load other job's symbol table into current job and Q
Enter 'K' to send a Kill Job command to other job
Job Exam Action: L//V
Send intrp to job. Any error means you don't have the privilege to intrpt.
INTRPT issued to process 100776

JOB #: 100776                           Process Name:
Device: 0
Process State: hib
JOB Type: -direct        CPU Time: 00:00:55       Login time: 06:43:27

Routine line: <NEXT^MXLROW2>
NEXT L +^LRO(69,LRYR,2) S LRORD=1+^LRO(69,LRYR,2) F  Q:'$D(^LRO(69,"C",LRORD))  S LRORD=LRORD+1

Section Locks
MLG:828614,MLT:16
LOCK ^HLMA(1581448544) LEVEL=1
LOCK ^HLMA("AC","I",235) LEVEL=1
LOCK ^LRO(69,3230224,1) LEVEL=4

Section Devices
0 OPEN RMS STREAM NOWRAP
0-out OPEN RMS STREAM NOWRAP
SCK$13173 CLOSED
SCK$14364 CLOSED
SCK$14663 CLOSED
SCK$14893 CLOSED
SCK$17574 CLOSED
SCK$23222 CLOSED
SCK$24411 CLOSED
SCK$27624 CLOSED
SCK$31998 CLOSED
SCK$34548 CLOSED

Section Intrinsic Variables
$DEVICE=""
$ECODE=""
$ESTACK=8
$ETRAP="D ERROR^HLTP3"
$HOROLOG="66529,35244"
$IO=0
$JOB=100776
$KEY=""
$PRINCIPAL=0
$QUIT=1
$REFERENCE="^XUTL(""XUSYS"",100776,""JE"",""I"",10)"


--
--
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/96f19524-c9df-42db-9c20-188e56f1b58bn%40googlegroups.com.




Email correspondence to and from this address is subject to the North Carolina Public Records Law and may be disclosed to third parties by an authorized State official. Unauthorized disclosure of juvenile, health, legally privileged, or otherwise confidential information, including confidential information relating to an ongoing State procurement effort, is prohibited by law. If you have received this email in error, please notify the sender immediately and delete all records of this email.

Sam Habiel

unread,
Feb 24, 2023, 6:33:45 AM2/24/23
to hard...@googlegroups.com
I deleted the original message from the hardhats mailing list.

--Sam

Jai Singh VistA

unread,
Feb 25, 2023, 1:08:14 AM2/25/23
to Hardhats
Hi Joseph,

As per your guidance, we checked the Current Order Number value was out of Range then the defined range.
Now we have upgraded the Max Length of the Current Order Number Fields.

But still, the locks are acquiring and we need to manually clear those locks then the queue is getting cleared.

Can you please help us in this regard? Please.


^DD(69,.5,0)="CURRENT ORDER NUMBER^NJ8,0^^2;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(69,.5,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(69,.5,21,0)="^^1^1^2841129^"
^DD(69,.5,21,1,0)="The count of the order number for the current year."
^DD(69,.5,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(69,.5,"DT")=3230225



prd-max> D ^ZJOB

Examine Another JOB Utility
Enter JOB number: 116342

Send intrp to job. Any error means you don't have the privilege to intrpt.
INTRPT issued to process 116342

JOB #: 116342                           Process Name: BTask 4307931

Device: 0
Process State: hib
JOB Type: -direct        CPU Time: 00:00:37       Login time: 01:36:39


Routine line: <NEXT^MXLROW2>
NEXT L +^LRO(69,LRYR,2) S LRORD=1+^LRO(69,LRYR,2) F  Q:'$D(^LRO(69,"C",LRORD))  S LRORD=LRORD+1
Job Exam Action: L//V
Send intrp to job. Any error means you don't have the privilege to intrpt.
INTRPT issued to process 116342

JOB #: 116342                           Process Name: BTask 4307931

Device: 0
Process State: hib
JOB Type: -direct        CPU Time: 00:00:37       Login time: 01:36:41


Routine line: <NEXT^MXLROW2>
NEXT L +^LRO(69,LRYR,2) S LRORD=1+^LRO(69,LRYR,2) F  Q:'$D(^LRO(69,"C",LRORD))  S LRORD=LRORD+1

Section Locks
MLG:1499844,MLT:12
LOCK ^HLMA(1582268380) LEVEL=1

LOCK ^HLMA("AC","I",235) LEVEL=1
LOCK ^LRO(69,3230225,1) LEVEL=4


Section Devices
0 OPEN RMS STREAM NOWRAP
0-out OPEN RMS STREAM NOWRAP
SCK$37889 CLOSED
SCK$40056 CLOSED
SCK$41034 CLOSED


Section Intrinsic Variables
$DEVICE=""
$ECODE=""
$ESTACK=8
$ETRAP="D ERROR^HLTP3"
$HOROLOG="66530,41433"
$IO=0
$JOB=116342
$KEY=""
$PRINCIPAL=0
$QUIT=1
$REFERENCE="^XUTL(""XUSYS"",116342,""JE"",""I"",10)"
$STACK=17
$STORAGE=2147483647
$SYSTEM="47,gtm_sysid"
$TEST=1
$TLEVEL=0
$TRESTART=0
$X=57
$Y=40
$ZA=0
$ZALLOCSTOR=8409142
$ZB=""
$ZCHSET="M"
$ZCLOSE=0
$ZCMDLINE=""
$ZCOMPILE=""
$ZCSTATUS=0
$ZDATEFORM=0
$ZDIRECTORY="/opt/worldvista/prd/san/"
$ZEDITOR=0
$ZEOF=0
$ZERROR=""
$ZGBLDIR="/opt/worldvista/prd/san/globals/mumps.gld"
$ZHOROLOG="66530,41433,575355,-19800"
$ZININTERRUPT=1
$ZINTERRUPT="I $$JOBEXAM^ZU($ZPOSITION)"
$ZIO=0
$ZJOB=0
$ZKEY=""
$ZLEVEL=18
$ZsanTPTIME=0
$ZMODE="OTHER"
$ZONLNRLBK=0
$ZPATNUMERIC="M"
$ZPIN="0< /"
$ZPOSITION="JOBEXAM+6^ZU"
$ZPOUT="0> /"
$ZPROCESS=""
$ZPROMPT="prd-san> "
$ZQUIT=0
$ZREALSTOR=8593742
$ZROUTINES="/opt/worldvista/prd/san/objects(/opt/worldvista/prd/san/routines) /opt/worldvista/prd/san/bin/gtm"
$ZSOURCE=""
$ZSTATUS="150379506,UNWIND+1^%ZTER,%GTM-E-SETECODE, Non-empty value assigned to $ECODE (user-defined error trap)"
$ZSTEP="B"
$ZSYSTEM=0
$ZTNAME=""
$ZTDATA=0
$ZTDELIM=""
$ZTEXIT=""
$ZTLEVEL=0
$ZTOLDVAL=""
$ZTRAP=""
$ZTRIGGEROP=""
$ZTSLATE=""
$ZTUPDATE=""
$ZTVALUE=""
$ZTWORMHOLE=""
$ZUSEDSTOR=8409142
$ZUT=1677304833575563
$ZVERSION="GT.M V6.2-002A Linux x86_64"
$ZYERROR=""

Section Variables
%T=0
%Y=1
%ZPOS="NEXT^MXLROW2"
%reference="^LRO(69,3230000,2)"
D=0
DA=""
DILOCKTM=3
DISYS=19
DOB=2740610
DOD=""
DT=3230225
DTIME=3600
DUZ=2807
DUZ(0)=""
DUZ(1)=""
DUZ(2)=69
DUZ("AG")="O"
DUZ("AUTO")=1
DUZ("BUF")=1
DUZ("LANG")=""
HL("APAT")="NE"
HL("CC")="IND"
HL("DTM")=202302251128
HL("ECH")="^~\&"
HL("EID")=4276
HL("EIDS")=4277
HL("ETN")="O01"
HL("ETP")=38
HL("FS")="|"
HL("LL")=235
HL("MID")=281774925
HL("MTIENS")=""
HL("MTN")="ORM"
HL("MTP")=5
HL("PID")="P"
HL("PMOD")=""
HL("Q")=""""""
HL("RAN")="LRMXHL RECEIVER O01"
HL("RAP")=204
HL("RFN")="VISTA LAB"
HL("SAN")="LRMXHL SENDER O01"
HL("SAP")=203
HL("SFN")="LAB ORDER"
HL("VER")="2.3.1"
HLCS="^"
HLDP=235
HLEXIT=0 ;*
HLEXIT("LASTCHK")="66530,41264"
HLEXROU=""
HLFLG=1 ;*
HLHDRO(0)="^^1^1^3230225^"
HLMTIEN=1583278677
HLMTIENS=1582268380
HLN(15)=""
HLN(20)=""
HLN(771)="D EN^LRZMXHLLABO01"
HLNEXT="D HLNEXT^HLCSUTL"
HLNODE=""
HLORNOD="4277;ORD(101,"
HLPCT=3
HLPROU="D EN^LRZMXHLLABO01"
HLPTRFLR=4307931 ;*
HLPTRFLR("$J")=116342
HLPTRFLR("LASTDEL")="66530,41206"
HLPTRFLR("LASTUP")="66530,41310"
HLQUIT=""
HLTCP=""
I="B"
IEN101="7077;99LRT"
IEN60=7077
IO=""
IO(0)=""
IOF=""
IOM=""
ION=""
IOS=""
IOSL=""
IOST=""
IOT=""
ISAVAILABLE=1
ISETID=0
J=1
LRAD=3230225
LRBLOOD=70
LRCAPLOC=55524867485155
LRCS(1)=120
LRCSN=1
LRCT=3230225.112841
LRDFN=3100659
LRDPF=2
LRDT0="25/2/23"
LRECT=0
LREND=0
LRFIRST=1
LRINTFG="YES"
LRINTOR(.01)=""
LRINTOR(1)=2807
LRINTOR(1.3,0)=120
LRINTOR(3.1,0)=7077
LRINTOR(3.4)=""
LRINTOR(6)=459
LRINTOR(61)=1
LRINTOR(99)="LAB TEST: ORDER FROM HIS"
LRINTOR("AS")="YES"
LRINTOR("CS")=""
LRINTOR("DATE")=3230225.112841
LRINTOR("DFN")=8280744
LRINTOR("MC")="Y"
LRINTOR("NT")=1
LRINTOR("OID")=""
LRINTOR("OT")="NO"
LRINTOR("S")="Y"
LRINTOR("SS")="NO"
LRLABKY="1^1^^1"
LRLLOC="PU"
LRLWC="SP"
LRsanID=120557258
LRNATORD="WRITTEN"
LRODT=3230225
LROLLOC=459
LRORDCTRL="NW"
LRORDR="SP"
LRORDTIM=112841
LROUTINE=9
LRPARAM="1^1^1^0^1^0^30^0^90^0^B^30^^^1^1^1^1^4^9^^"
LRPARAM("ASITE",69)=""
LRPARAM("VR")="5.2^3.0^5.3"
LRPATLOC=459
LRPCEVSO=1
LRPLASMA=73
LRPNAM=3761
LRPRAC=2807
LRRB=""
LRSAMP=120
LRSERUM=72
LRSETID=1
LRSPEC=8821
LRTREA=""
LRTSTS=7077
LRUNKNOW=999
LRUNQ=0
LRURG=""
LRURGENT=9
LRURINE=71
LRVAUSER=2807
LRVIDO="$C(91)"
LRVIDOF="$C(93),$C(7)"
LRWP=1
LRWPC=1
LRWPD=1
LRWRD=""
LRWRD(1)=0
LRY=7077
LRYR=3230000
M=1
MPII=6
NOTAVAIL("NA")=""
PSLRSMPC=120
S=72

T(271,12649)=71
T(873,12639)=70
T(1176,12641)=72
T(5086,12645)=139
T(6959,12650)=72
T(6964,12632)=72
T(6985,12640)=72
T(7012,12652)=70
T(7037,12653)=72
T(7071,12647)=72
T(7077,12637)=8821
T(7282,12638)=73
T(7553,12651)=72
T(7569,12643)=72
T(7570,12642)=72
TIUCS=" "
TIUES="\"
TIUFS="|"
TIURS="~"
TIUSS="&"
TT(271,71)=1
TT(873,70)=1
TT(1176,72)=1
TT(5086,139)=1
TT(6959,72)=1
TT(6964,72)=1
TT(6985,72)=1
TT(7012,70)=1
TT(7037,72)=1
TT(7071,72)=1
TT(7077,8821)=1
TT(7282,73)=1
TT(7553,72)=1
TT(7569,72)=1
TT(7570,72)=1
U="^"
VA200=""
VAIN(1)=""
VAIN(2)=""
VAIN(3)=""
VAIN(4)=""
VAIN(5)=""
VAIN(6)=""
VAIN(7)=""
VAIN(8)=""
VAIN(9)=""
VAIN(10)=""
VAIN(11)=""
X=7037
XQXFLG="0^0"
XQY=8412
XQY0="HL TASK RESTART^Restart/Start All Links and Filers^^R^^^^^^^^33"
Y=2807
Y(0)="USER,PIMS^PU^55524867485155^^^y^^^^^^^"
Y("XUS")="^10^100^1^0^1^^^Y^3600^^^^AR^90^^68^d^25"
ZTQUEUED=4307931
ZTREQ="@"

Job Exam Action: L//^

Examine Another JOB Utility
Enter JOB number:

Jai Singh VistA

unread,
Feb 25, 2023, 1:14:44 AM2/25/23
to Hardhats
Hi Everyone,

Also, while checking the logs of /var/log/messages files, we found the below continuous message. Its keeps on filling the messages file.
 
Feb 25 11:39:11 localhost xinetd[82273]: START: mgwsi-rpcproc-san pid=101095 from=::ffff:127.0.0.1
Feb 25 11:39:11 localhost xinetd[82273]: EXIT: mgwsi-rpcproc-san status=0 pid=101095 duration=0(sec)
Feb 25 11:39:12 localhost xinetd[82273]: START: vistahl7_2 pid=101144 from=::ffff:192.168.0.78
Feb 25 11:39:12 localhost GTM-MUMPS-san-dr[101147]: %GTM-F-NOPRINCIO, Unable to write to principal device -- generated from 0x00007FEE4A0A27E8.
Feb 25 11:39:12 localhost xinetd[82273]: EXIT: vistahl7_2 status=0 pid=101144 duration=0(sec)
Feb 25 11:39:13 localhost xinetd[82273]: START: mgwsi-rpcproc-san pid=101148 from=::ffff:127.0.0.1
Feb 25 11:39:13 localhost xinetd[82273]: START: vista-rpcport-9230 pid=101158 from=::ffff:192.22.15.81
Feb 25 11:39:13 localhost su: (to root) prd-san on pts/11
Feb 25 11:39:13 localhost dbus[1962]: [system] Activating service name='org.freedesktop.problems' (using servicehelper)
Feb 25 11:39:13 localhost dbus[1962]: [system] Successfully activated service 'org.freedesktop.problems'
Feb 25 11:39:16 localhost xinetd[82273]: START: vistahl7_2 pid=101304 from=::ffff:192.168.0.78
Feb 25 11:39:16 localhost GTM-MUMPS-san-dr[101307]: %GTM-F-NOPRINCIO, Unable to write to principal device -- generated from 0x00007F8A2D7B37E8.
Feb 25 11:39:16 localhost xinetd[82273]: EXIT: vistahl7_2 status=0 pid=101304 duration=0(sec)
Feb 25 11:39:16 localhost xinetd[82273]: START: vistahl7_2 pid=101352 from=::ffff:192.168.0.78
Feb 25 11:39:16 localhost GTM-MUMPS-san-dr[101355]: %GTM-F-NOPRINCIO, Unable to write to principal device -- generated from 0x00007FE273C677E8.
Feb 25 11:39:16 localhost xinetd[82273]: EXIT: vistahl7_2 status=0 pid=101352 duration=0(sec)
Feb 25 11:39:16 localhost xinetd[82273]: START: vistahl7_2 pid=101356 from=::ffff:192.168.0.78
Feb 25 11:39:16 localhost GTM-MUMPS-san-dr[101361]: %GTM-F-NOPRINCIO, Unable to write to principal device -- generated from 0x00007F22610607E8. 

Thurber, Joseph H

unread,
Feb 25, 2023, 12:26:20 PM2/25/23
to hard...@googlegroups.com
  1. It seems to me that you must have another process that is locking ^LRO(69,LRYR,2) or you have a problem with not enough lock space.  Have you used LKE to try to figure it out?

Jai Singh VistA

unread,
Feb 26, 2023, 11:21:21 AM2/26/23
to hard...@googlegroups.com
Hi Joseph,

We have gone through the other process as well which are related to HLCS and taken ZJOB. But didn't find any solution.

I am still hopeful to receive a reply from other users if they have gone through the same situation.

Jai Singh VistA

unread,
Feb 27, 2023, 3:36:48 AM2/27/23
to Hardhats
Hi Joseph,

As per my findings, the issue is happening only during the Picklist Execution Time. In the Non - Picklist Execution time (5 PM to 8 AM) we are not getting lock issues.

Please find the LKE Details when the lock is acquired in the database.

^%ZTSCH("TASK",4559485) Owned by PID= 67339 which is an existing process
^%ZTSCH("TASK",4559487) Owned by PID= 91635 which is an existing process
^HLCS("HLCSLM") Owned by PID= 91603 which is an existing process
^HLCS("HLCSLSM",255) Owned by PID= 67339 which is an existing process
^HLCS("HLCSLSM",257) Owned by PID= 91635 which is an existing process
^HLCS("HLTCPLINK",255) Owned by PID= 67339 which is an existing process
^HLCS("HLTCPLINK",257) Owned by PID= 91635 which is an existing process
^HLMA(1583402839) Owned by PID= 35416 which is an existing process
^HLMA("AC","I",235) Owned by PID= 35407 which is an existing process
^LRO(69,3230000,2) Owned by PID= 31549 which is an existing process
^LRO(69,3230227,1) Owned by PID= 35416 which is an existing process

Thurber, Joseph H

unread,
Feb 27, 2023, 8:53:24 AM2/27/23
to hard...@googlegroups.com

Are you talking about Pharmacy picklist?  That should have nothing to do with file 69.  But it could be using quite a bit of lock space in the region that your lab code also runs in.  This still points to a lock space issue to me.  I don’t see in your below comments the complete output of the LKE SHOW command where it shows the available percentage of free lock space.  You could have a problem with locks that have been abandoned over time which would require a cleanup.  But like you said, maybe someone else with more targeted experience than me can better help you!

Jai Singh VistA

unread,
Feb 28, 2023, 1:18:49 AM2/28/23
to Hardhats
Hi Joseph,

Yes, I had mentioned Pharmacy Picklist, because we are facing issues in the daytime between 8 AM to 5 PM.

1. Also, please find the LKE Output.

LKE> SHOW

TEMP
^%zewdSession("lock",17685208)
                         Owned by PID= 90239 which is an existing process
^%zewdSession("lock",17685526)
                         Owned by PID= 129813 which is an existing process
^%zewdSession("lock",17685931)
                         Owned by PID= 26407 which is an existing process
^%zewdSession("lock",17686585)
                         Owned by PID= 26446 which is an existing process
^%zewdSession("lock",17686606)
                         Owned by PID= 11567 which is an existing process
^XTMP("ORPTLK-1769961") Owned by PID= 106037 which is an existing process
^XTMP("ORPTLK-3640965") Owned by PID= 88872 which is an existing process
^XTMP("ORPTLK-3861486") Owned by PID= 121569 which is an existing process
^XTMP("ORPTLK-4366561") Owned by PID= 128257 which is an existing process
^XTMP("ORPTLK-440014") Owned by PID= 4900 which is an existing process
%GTM-I-LOCKSPACEUSE, Estimated free lock space: 99% of 2000 pages

VISTA
^%ZTSCH("SUBLK","EHR:SAN-CPRS",106031)
                         Owned by PID= 106031 which is an existing process
^%ZTSCH("SUBLK","EHR:SAN-CPRS",13177)
                         Owned by PID= 13177 which is an existing process
^%ZTSCH("SUBLK","EHR:SAN-CPRS",25568)
                         Owned by PID= 25568 which is an existing process
^%ZTSCH("SUBLK","EHR:SAN-CPRS",96470)
                         Owned by PID= 96470 which is an existing process
^%ZTSCH("SUBLK","EHR:SAN-CPRS",97288)
                         Owned by PID= 97288 which is an existing process
^%ZTSCH("TASK",4002274) Owned by PID= 76811 which is an existing process
^%ZTSCH("TASK",4002275) Owned by PID= 76818 which is an existing process
^%ZTSCH("TASK",4503623) Owned by PID= 69140 which is an existing process
^%ZTSCH("TASK",4721089) Owned by PID= 25596 which is an existing process
^%ZTSCH("TASK",4724223) Owned by PID= 75102 which is an existing process
^%ZTSCH("TASK",4724224) Owned by PID= 75346 which is an existing process
^HLMA(1584152745) Owned by PID= 75102 which is an existing process
^HLMA("AC","I",235) Owned by PID= 75102 which is an existing process
^LRO(69,3230000,2) Owned by PID= 128257 which is an existing process
^LRO(69,3230228,1) Owned by PID= 75102 which is an existing process
^OR(100,127136791) Owned by PID= 88872 which is an existing process
^OR(100,127167002) Owned by PID= 15708 which is an existing process
^PS(53.45,24621) Owned by PID= 15708 which is an existing process
^TIU(8925,67907151) Owned by PID= 12625 which is an existing process
^TIU(8925,67907152) Owned by PID= 83884 which is an existing process
^XMBPOST("M",1) Owned by PID= 69140 which is an existing process
^XMBPOST("POST_Mover") Owned by PID= 76811 which is an existing process
^XMBPOST("POST_Tickler") Owned by PID= 76818 which is an existing process
^XUTL("XQORM","2584;ORD(101,","XQORM PROTECT",15528)
                         Owned by PID= 15528 which is an existing process
^XUTL("XQORM","2584;ORD(101,","XQORM PROTECT",56821)
                         Owned by PID= 56821 which is an existing process
%GTM-I-LOCKSPACEUSE, Estimated free lock space: 97% of 2000 pages

2. When we come out from FILER we noticed below error many times

Logged out at Feb 28, 2023 11:28 am
%GTM-E-NULSUBSC, Null subscripts are not allowed for region: VISTA
%GTM-I-GVIS,            Global variable: ^XUSEC(0,"AS1","",3230228.112822)
prd-san>

3. Also please find the /vat/log/messages file content

Feb 28 11:38:00 SAN-CPRS GTM-MUMPS-SAN-dr[9292]: %GTM-F-NOPRINCIO, Unable to write to principal device -- generated from 0x00007F61691BA7E8.
Feb 28 11:38:00 SAN-CPRS xinetd[82273]: EXIT: vistahl7_2 status=0 pid=9289 duration=0(sec)
Feb 28 11:38:00 SAN-CPRS xinetd[82273]: START: vistahl7_2 pid=9296 from=::ffff:172.30.0.78
Feb 28 11:38:01 SAN-CPRS GTM-MUMPS-SAN-dr[9299]: %GTM-F-NOPRINCIO, Unable to write to principal device -- generated from 0x00007F0B8B5F57E8.
Feb 28 11:38:01 SAN-CPRS xinetd[82273]: EXIT: vistahl7_2 status=0 pid=9296 duration=1(sec)

Thurber, Joseph H

unread,
Feb 28, 2023, 1:14:00 PM2/28/23
to hard...@googlegroups.com
  1. So not running out of lock space.  You’ll have to try to figure out what is locking “^LRO(69,3230000,2) Owned by PID= 128257 which is an existing process”.  It is definitely a lab ordering or a lab quality control process.  Have you set up QI or anything new lately?  Could this be related to number 3 issue – are your lab orders coming in HL7?  You could try tracing this issue by running an order through in the foreground rather than tasked.  It would be good to figure out the process stack when the offending lock is being set.

 

2.  This error is happening when the system is trying to write to the sign-on log, file 3.081.  It is trying to use an empty IP address which causes the null subscripts error.  You can get more data if you use ^XTER to look at the stack and variables at the time including who the user is.

 

3.  I don’t know your system at all, but from the text it looks like the NOPRINCIO is related to HL7 message processing.  From the manual:

The most common causes for the principal device to cease to exist involve terminal sessions or socket connections (including those from processes started by inetd/xinetd). When the remote client terminates the connection, the underlying PRINCIPAL device becomes inaccessible making any subsequent attempt to READ from, or WRITE to, it hopeless. In the case of terminals, a user closing the window of a session without cleanly exiting from the process sets up the case that can drive this error. 

Kevin Toppenberg

unread,
Mar 2, 2023, 7:02:58 PM3/2/23
to Hardhats
I tried scanning this thread, but didn't really understand the issues at play. 

I just want to point out that in the post:

2. When we come out from FILER we noticed below error many times

Logged out at Feb 28, 2023 11:28 am
%GTM-E-NULSUBSC, Null subscripts are not allowed for region: VISTA
%GTM-I-GVIS,            Global variable: ^XUSEC(0,"AS1","",3230228.112822)
prd-san>

This is complaining about a null subscript, not about a lock.  The node after "AS1" should not be ""

I don't know if that helps or not.

Kevin T

Thurber, Joseph H

unread,
Mar 2, 2023, 9:42:08 PM3/2/23
to hard...@googlegroups.com
Right, that was one of several issues being discussed.  The empty subscript is supposed to be an IP address in the sign on log.

On Mar 2, 2023, at 7:03 PM, Kevin Toppenberg <kdt...@gmail.com> wrote:



Jai Singh VistA

unread,
Mar 3, 2023, 4:36:13 AM3/3/23
to Hardhats
Hi Kevin & Joseph,

Can you please share any documents if available?
We tried to identify the solution for this but unfortunately, no solution was found.

Also, the Lock on LRO(69 file is still not fixed. We are using SEND^ORWDX RPC to sign the Order for CPRS & Web CPRS Application and LROW2 routine for Accessioning.

Kevin Toppenberg

unread,
Mar 3, 2023, 11:33:54 AM3/3/23
to Hardhats
Jai,

This sounds like a complex issue and I know very little about the pharmacy package.  The way I would approach this problem is to debug through the code step by step, and try to catch the error.  We do this by using the TMG debugging environment (made for YottaDB or GT.M).  https://github.com/kdtop/TMGLIB is all our code.   I have a RPC utility program, launched by DO ASKBRRPC^TMGRPCUT, which will ask for the inputs for the RPC (which can be obtained from CPRS if that is where you normally run it from), and then allow one to go step by step through the code, showing each line.  The debugger has the ability to watch variables etc.  If you decide to try this, I can give further instruction if desired.

I don't know if any of that is within the ability of your site or if that would help you.  That is just how I would go about trying to find the problem

Kevin
Reply all
Reply to author
Forward
0 new messages