查找 | InterSystems Developer Community

RUN(CALL,DRVNAME)
S $EC=""
S ^TMP($J,"RMPV","DRVNAME")=DRVNAME
N TMPFILE,OLDIO
S OLDIO=$IO
I $G(^TMP("RMPV","SILENT"),1) S IOP="NULL",%ZIS=0 D ^%ZIS I '$G(POP,1) U IO
D INIT^@DRVNAME
D ; scope variables
.N (DUZ,CALL) ; Protect %response
.S IOF="""""",IOM=80,U="^"
.D @CALL
U OLDIO
Q

I attempted to replace Exclusive NEW with a ClassMethod in a procedure block as follows:

RUN(CALL,DRVNAME) ;primary entry point
Set ^OLIVER(0-$I(^OLIVER)) = $ZDateTime($NOW(),8,1,3)_" : "_$JOB_"/"_$STACK_" : RUN1^RMPVDRV"
Set ^OLIVER(0-$G(^OLIVER),"CALL")=CALL
Set ^OLIVER(0-$G(^OLIVER),"DRVNAME")=DRVNAME
Merge ^OLIVER(0-$G(^OLIVER),"DUZ")=DUZ
If '$Data(DUZ) Set DUZ=$Get(^OLIVER)
If '$D(^OLIVER) S $EC=""
S ^TMP($J,"RMPV","DRVNAME")=DRVNAME
N TMPFILE,OLDIO
S OLDIO543=$IO
I $G(^TMP("RMPV","SILENT"),1) S IOP="NULL",%ZIS=0 D ^%ZIS I '$G(POP,1) U IO
Set ^OLIVER(0-$G(^OLIVER),"SILENT")=$G(^TMP("RMPV","SILENT"),1)
D INIT^@DRVNAME
Set ^OLIVER(0-$I(^OLIVER),"OLDIO1")=OLDIO543
//D ; scope variables
//.;N (DUZ,CALL) ; Protect %response
//.S IOF="""""",IOM=80,U="^"
//.Do @CALL
Do ##class(VALIP.REST.Implementation.Generic).doCall(CALL,DUZ)
Set ^OLIVER(0-$I(^OLIVER)) = $ZDateTime($NOW(),8,1,3)_" : "_$JOB_"/"_$STACK_" : RUN2^RMPVDRV"
Set ^OLIVER(0-$I(^OLIVER),"OLDIO2 in RMPVDRV")=$Get(OLDIO543)
U OLDIO543
Q

I see <UNDEFINED> error when I try to U OLDIO543. All my variables have gone. What happened? Or how can I replace Exclusive NEW?

Here is the class with my new ClassMethod:

Class VALIP.REST.Implementation.Generic [ ProcedureBlock ]
{

/// Protect %response
ClassMethod doCall(CALL, DUZ) [ PublicList = (CALL, DUZ) ]
{
Try {
Set IOF="""""",IOM=80,U="^"
Do @CALL
Quit
} Catch exp {
Set ^OLIVER(0-$I(^OLIVER)) = $ZDateTime($NOW(),8,1,3)_" : "_$JOB_" : Catch in VALIP.REST.Implementation.Generic"
Set ^OLIVER(0-$G(^OLIVER),"$ZERROR") = $ZERROR
Set ^OLIVER(0-$G(^OLIVER),"exp") = exp
}
Quit
}

}

3 comentarios

Comentarios (3)1

Inicie sesión o regístrese para continuar

Pregunta

Lucas Galdino · 19 ene, 2025

#Gestión de errores #Caché #HealthShare

Hi experts, please, do you know cause this errors in cconsole?
I'd like know what can I investigate.

01/16/25-18:25:40:081 (11368) 0 Job failed in StartDeepSeeAgents^%SYS.DeepSee: tPriority=H, n=117, pAgentCount=128, pCount=116, $zu(56,3)=<UNKNOWN ERROR>, $zu(56,5)=JOB^%ZSTART, $zu(56,6)=
01/16/25-18:26:45:922 (10800) 2 ROLLFAIL: <STORE>rbbulk+27^ROLLBACK
01/16/25-18:26:45:922 (10800) 2 Process halts and system might hang when CLNDMN retries the rollback
01/16/25-18:26:45:922 (10800) 2 JOBEND_LOCKCLR: not all locks released in TRANSCB job#125, tid=125, h,t=0xbf0d4318,0xbf01b618
01/16/25-18:26:45:922 (14752) 2 Process terminated abnormally (pid 10800, jobid 0xada9007d) (Halted with an open transaction)
01/16/25-18:26:45:922 (14752) 0 Clean daemon has rolled back open transaction for job 125
01/16/25-18:26:45:922 (14752) 2 Process terminated abnormally (pid 10800, jobid 0xada9007d) (Halted with an open transaction)
01/16/25-18:26:45:922 (14752) 0 cleaned dead job, pid: 10800, jobid 0xada9007d

Thank you.

1 Comentario

Comentarios (1)1

Inicie sesión o regístrese para continuar

Artículo

Tani Frankel · 19 ene, 2025 Lectura de 1 min

#Autenticación #Operación empresarial #Interoperabilidad #OAuth2 #API REST #InterSystems IRIS #InterSystems IRIS for Health #Health Connect

In your Interoperability Production you could always have a Business Operation that is an HTTP client, that uses OAuth 2.0 for authentication, but you had to customize the Operation for this authentication methodology. Since v2024.3, which was lately released, there is a new capability, providing new settings, to handle this more easily.

In your Business Operation that uses the HTTP Outbound Adapter, you will find new Settings, under the OAuth group.

For example:

Access Token Placement (Header | Body | Query)
Grant Type (Password | JWT Authorization | Client Credentials)

See all the new OAuth-related settings documentation here.

And here's a sample screen shot of a related Operation's settings:

Comentarios (0)1

Inicie sesión o regístrese para continuar

查找

【週間ダイジェスト】 1/13 ～ 1/19 の開発者コミュニティへの投稿

InterSystems 开发者出版物，一月 13 - 19, 2025，摘要

Where did my variables go? Without Exclusive NEW, now I get <UNDEFINED>

cconsole alarm: ROLLFAIL: <STORE>rbbulk+27^ROLLBACK

2024.3 HTTP Interoperability Highlight - New Outbound OAuth 2.0 Settings