Re: Need help on radiology order checkin

[Vishal Harle]

Adding hardhats group.

On Fri, Mar 24, 2023 at 12:32 PM Vishal Harle <vis...@ohumhealthcare.com> wrote:

Hi Nancy,

I`m Vishal from Ohumhealthcare. We are using VistA in one of our setup. 

Currently we are facing the issue while checkin  the radiology orders.

Looking at the error , it looks like we radiology cases numbers have been utilized and needs purging.  

Do we have any job in VistA which takes care of this purging or any script we can write to take care of that ?

Any reference link or suggestion would be helpful.

error for reference..

Which error? >  1
Process ID:  2150  (2150)               MAR 17, 2023 08:28:52
UCI/VOL: [EHR:localhost]
$ZA:   0
Current $IO: 0                          Current $ZIO: ^965^1^0
$ZE= EXAMLOOP+9^OVRAREGVAL, Undefined local variable: RACNI,150373850,-%GTM-E-UN
DEF
Last Global Ref: ^TMP("DIE",2150)
        S ^TMP($J,"RAREG1",RACNICNT)=RADFN_U_RADTI_U_RACNI_U_RAOIFN

Which symbol? > ^L
$DEVICE=0
$ECODE=,M6,Z150373850,
$ESTACK=8
$ETRAP=D ^%ZTER D UNWIND^%ZTER S $EC=""
$QUIT=0
$STACK=9
$STACK(000)=-run GTMLNX^%webreq
$STACK(000,"ECODE")=
$STACK(000,"PLACE")=WAIT+44^%webreq
$STACK(000,"MCODE")= D RESPOND^%webrsp
$STACK(001)=DO
$STACK(001,"ECODE")=
$STACK(001,"PLACE")=RESPOND+97^%webrsp
$STACK(001,"MCODE")= I ROUTINE["$$" xecute "S LOCATION="_r
$STACK(002)=XECUTE
$STACK(002,"ECODE")=
$STACK(002,"PLACE")=@
$STACK(002,"MCODE")=S LOCATION=$$HL7PROCESS^OHMWSAPI(.HTTPARGS,.HTTPRSP)
$STACK(003)=$$
     Enter '^' to quit listing, <RETURN> to continue...:
$STACK(003,"ECODE")=
$STACK(003,"PLACE")=HL7PROCESS+2^OHMWSAPI
$STACK(003,"MCODE")=        S ok=$$HL7PROCESS^HLPARAPI(.inputs,.results)
$STACK(004)=$$
$STACK(004,"ECODE")=
$STACK(004,"PLACE")=HL7PROCESS+42^HLPARAPI
$STACK(004,"MCODE")=           I ($G(SENDAPP)="RAD ACK SENDER O01")&($P(MSGTYP,"
^",2)="O01") D EN^OVRAREGO01 Q ""
$STACK(005)=DO
$STACK(005,"ECODE")=
$STACK(005,"PLACE")=CHECKINDATE+5^OVRAREGO01
$STACK(005,"MCODE")=        D:($G(RAERTXT)="") ^OVRAREG
$STACK(006)=DO
$STACK(006,"ECODE")=
$STACK(006,"PLACE")=PROCESS+5^OVRAREG
$STACK(006,"MCODE")=        D EXAMLOOP^OVRAREGVAL
$STACK(007)=DO
$STACK(007,"ECODE")=,M6,Z150373850,
$STACK(007,"PLACE")=EXAMLOOP+9^OVRAREGVAL
$STACK(007,"MCODE")=        S ^TMP($J,"RAREG1",RACNICNT)=RADFN_U_RADTI_U_RACNI_U
_RAOIFN
$X $Y=965 1

 Save a tree. Please avoid printing this email unless necessary. 

***** Email confidentiality notice *****

This message is private and confidential. If you have received this message in error, please notify us and remove it from your system.