New post

Find

Question
· Dec 10, 2024

Issue calling methods in jar

#Java #InterSystems IRIS for Health

s connection = ##class(%Net.Remote.Java.JavaGateway).%New()
s sc = connection.%Connect("127.0.0.1",53274)
s classpath="C:\Users\ME9Y1PM\Downloads\wrapper_jar\wrapper-drools-1.0.0-20241127.071529-1.jar"
if (sc=$$$OK) {
s SCJavaDroolsObj.connection=connection
s sc = SCJavaDroolsObj.connection.%Import("com.lca.smc.drools.DroolsRules")
s SCJavaDroolsObj.drools = ##class(com.lca.smc.drools.DroolsRules).%New()
d SCJavaDroolsObj.drools.applyRules(patientjson)

Class com.lca.smc.drools.DroolsRules Extends %Net.Remote.Base [ ProcedureBlock ]
{ Parameter IMPORTTIMESTAMP As STRING = "2024-11-29 09:14:27.992"; Method applyRules(ByRef args... As %ObjectHandle) As %ObjectHandle
{
    quit:$quit ..%dispatch(,$this,"applyRules",..%gateway,args...)
    do ..%dispatch(,$this,"applyRules",..%gateway,args...)
} }

I m getting the below exception

<INVALID OREF>%dispatch+1^%Net.Remote.Base.1

Discussion (0)1
Log in or sign up to continue
Question
· Dec 10, 2024

ERROR #5821: Cannot instantiate query: 'SQLCODE = -146, %msg = Error: '' is an invalid DISPLAY Date value'

#InterSystems IRIS for Health

We have error - ERROR #5821: Cannot instantiate query: 'SQLCODE = -146, %msg = Error: '' is an invalid DISPLAY Date value' not able to see what is causing:

CASE When P.PatReltoGuar->Name = 'SELF' then  P.Lnm  Else  Substring(P.GuarNmIfNotPat, 1,Charindex(',',P.GuarNmIfNotPat)-1) End  as DemoGuarLastName,

CASE When P.PatReltoGuar->Name = 'SELF' then  P.Fnm  Else Substring(P.GuarNmIfNotPat,Charindex(',',P.GuarNmIfNotPat)+1,LEN(P.GuarNmIfNotPat)) End  AS DemoGUARFIRSTNAME,

CASE When P.PatReltoGuar->Name = 'SELF' then P.StreetAddrL1 Else P.GuarStreetAddrL1 End as DemoGuarAddresslineOne,

CASE When P.PatReltoGuar->Name = 'SELF' then P.StreetAddrL2 Else P.GuarStreetAddrL2  End as DemoGuarAddressLineTwo,

CASE When P.PatReltoGuar->Name = 'SELF' then Substring(P.CtySt, 1,Charindex(',',P.CtySt)-1) Else Substring(P.GuarCtyst, 1,Charindex(',',P.GuarCtyst)-1) End  as DemoGuarCity ,

CASE When P.PatReltoGuar->Name = 'SELF' then Substring(P.CtySt,Charindex(',',P.CtySt)+1,LEN(P.CtySt))  Else Substring(P.GuarCtyst,Charindex(',',P.GuarCtyst)+1,LEN(P.GuarCtyst)) End  as DemoGuarState ,

CASE When P.PatReltoGuar->Name = 'SELF' then P.Zip Else P.GuarZip End  AS DemoGUARZIP,

CASE When P.PatReltoGuar->Name = 'SELF' then P.Tel  Else P.GuarTel End as DemoGtel ,
CASE When P.PatReltoGuar->Name = 'SELF' then P.Ssn Else P.GuarSsn End as DemoGSSN ,
CASE When P.PatReltoGuar->Name = 'SELF' then P.PatEmployerFtxt  Else P.GuarEmp end as DemoGEmployer ,

CASE When P.PatReltoGuar->Name = 'SELF' then P.EmpTel Else P.GuarEmpTel End as DemoGEmpTel ,

CASE When P.PatReltoGuar->Name = 'SELF' then P.EmailAddress Else P.GuarEmail  end  as DemoGGEmail ,

CASE When P.PatReltoGuar->Name = 'SELF' then P.Dob Else P.GuarDob end  as DemoGDOB ,

V.GuarId->PatRelToGuar->Name as VisitlevelPatientReltoGuarantor,

V.GuarId as VisitGuarID,

V.GuarId->Mrn as VisitGUARMRN,

CASE When P.PatReltoGuar->Name = 'SELF' then  P.Lnm  Else  Substring(V.GuarId->GuarNmIfNotPat, 1,Charindex(',',V.GuarId->GuarNmIfNotPat)-1) End  as VisitGUARlastname ,

CASE When P.PatReltoGuar->Name = 'SELF' then  P.Fnm  Else Substring(V.GuarId->GuarNmIfNotPat,Charindex(',',V.GuarId->GuarNmIfNotPat)+1,LEN(V.GuarId->GuarNmIfNotPat)) End  as VisitGuarfirstname,

CASE When V.GuarId->PatRelToGuar->Name = 'SELF' then P.StreetAddrL1 Else V.GuarId->GuarStreetAddrL1 End  as visitguaradresslineone,

CASE When V.GuarId->PatRelToGuar->Name = 'SELF' then P.StreetAddrL2 Else V.GuarId->GuarStreetAddrL2 End as visitguaraddresslinetwo,

CASE When V.GuarId->PatRelToGuar->Name = 'SELF' then Substring(P.CtySt, 1,Charindex(',',P.CtySt)-1) Else Substring(V.GuarId->GuarCtyst, 1,Charindex(',',V.GuarId->GuarCtyst)-1) End  as visitguarcity ,

CASE When V.GuarId->PatRelToGuar->Name = 'SELF' then Substring(P.CtySt,Charindex(',',P.CtySt)+1,LEN(P.CtySt))  Else Substring(V.GuarId->GuarCtyst,Charindex(',',V.GuarId->GuarCtyst)+1,LEN(V.GuarId->GuarCtyst)) End  as visitguarstate ,

CASE When  V.GuarId->PatRelToGuar->Name = 'SELF' then P.Zip Else V.GuarId->GuarZip End as visitguarzipcode,

CASE When V.GuarId->PatRelToGuar->Name = 'SELF' then P.Tel  Else V.GuarId->GuarTel End as visitguartel,

CASE When V.GuarId->PatRelToGuar->Name = 'SELF' then P.Ssn Else V.GuarId->GuarSsn End as visitguarssn,

CASE When V.GuarId->PatRelToGuar->Name = 'SELF' then P.PatEmployerFtxt Else V.GuarId->GuarEmpDict End as visitguaremployer,

CASE When V.GuarId->PatRelToGuar->Name = 'SELF' then P.EmpTel Else V.GuarId->GuarEmpTel End as visitguaremplytel,

CASE When V.GuarId->PatRelToGuar->Name = 'SELF' then P.EmailAddress Else V.GuarId->GuarEmail End as visitguaremail,

CASE When V.GuarId->PatRelToGuar->Name = 'SELF' then P.Dob Else V.GuarId->GuarDob End as visitguardob,

P.Lnm as PatientLastName,
 P.Fnm   as PatientFirstName,
P.StreetAddrL1 as PatientAddrLineOne,
P.StreetAddrL2 as PatientAddrLineTwo,
Substring(P.CtySt, 1,Charindex(',',P.CtySt)-1) as PatientCity,
Substring(P.CtySt,Charindex(',',P.CtySt)+1,LEN(P.CtySt)) as PatientState,
P.Zip as PatientZip,
P.Tel as PatientTel,
P.Ssn as PatientSSN,
P.PatEmployerFtxt as PatientEPlaceofEmployment,
P.PtEmploymentStatus->Name as PatientEmployementStatus,
P.EmpTel as PatientEmpTel,
P.EmailAddress as PatientEmailAddr,
P.Dob as PatientDOB,

V.Number as VisitNumber,

Convert(Varchar(80),P.Mrn) as PatientMRN,

VC.Charges,

(Coalesce(VC.Charges, 0) - Coalesce(VC.TotProfChg, 0))/100 as TotHospCharges ,

VC.TotProfChg,

AC.TotalPayments,

AC.TotProfPayments, 

AC.TotSelfPayPayments ,

AC.TotProfSelfPayPayments,

AC.TotalAdjustments,

(Coalesce(AC.TotalPayments, 0) - Coalesce(AC.TotSelfPayPayments, 0))/100 AS INSPAYMENTS,

(Coalesce(AC.TotalPayments,0) - Coalesce(AC.TotSelfPayPayments,0)- Coalesce( AC.TotProfPayments,0))/100 AS HOSPPYT,

(Coalesce(AC.TotalPayments,0) - Coalesce(AC.TotSelfPayPayments,0)- Coalesce( AC.TotProfPayments,0)+ Coalesce(AC.TotProfSelfPayPayments,0))/100 AS HOSPINSPYT,

(Coalesce(AC.TotProfPayments,0) - Coalesce(AC.TotProfSelfPayPayments,0))/100 AS PROFINSPYT ,

(Coalesce(V.AcctReceivable->TotalAdjustments,0) - Coalesce(V.AcctReceivable->TotProfAdj,0))/100 AS HOSPADJ  ,

(Coalesce(V.AcctReceivable->TotalAdjustments,0) - Coalesce(V.AcctReceivable->TotProfAdj,0) - Coalesce(V.AcctReceivable->TotSelfPayAdj,0) + Coalesce(V.AcctReceivable->TotProfSelfPayAdj,0))/100  AS HOSPINSADJ,

(Coalesce(V.AcctReceivable->TotSelfPayAdj,0) - Coalesce(V.AcctReceivable->TotProfSelfPayAdj,0))/100  AS HOSPSELFPAYADJ,

(Coalesce(V.AcctReceivable->TotProfAdj,0) - Coalesce(V.AcctReceivable->TotSelfPayAdj,0))/100 AS PROFINSADJ ,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Billing Adjustment'
AND RT.Code->RestrictPostToHospOrProf = 'H') AS Hosp_Bill_Adj,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Credit Adjustment'
  AND RT.Code->RestrictPostToHospOrProf = 'H'
) AS HOSP_Credit_Adj,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Transfer Balance Adjustment' AND RT.Code->RestrictPostToHospOrProf = 'H'
   AND Amount<0) AS HOSP_Txfr_Adj,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Billing Adjustment'
AND RT.Code->RestrictPostToHospOrProf = 'P') AS PROF_Bill_Adj,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Credit Adjustment'
  AND RT.Code->RestrictPostToHospOrProf = 'P'
) AS PROF_Credit_Adj,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Transfer Balance Adjustment' AND RT.Code->RestrictPostToHospOrProf = 'P'
   AND Amount<0) AS PROF_Txfr_Adj,

(Coalesce(AC.TotalPayments, 0) - Coalesce(AC.TotProfPayments, 0))/100 AS TotalHospitalPayments,
(Coalesce(AC.TotalPayments, 0) -  Coalesce(AC.TotProfPayments, 0) - Coalesce(AC.TotSelfPayPayments, 0) + Coalesce(AC.TotProfSelfPayPayments,0))/100  AS HospitalInsurancePayments,

(Coalesce(AC.TotSelfPayPayments, 0) - Coalesce(AC.TotProfSelfPayPayments, 0))/100 AS TotalHospitalSelfPayPayments,

(Coalesce(Ac.ArAccountBalance, 0) - Coalesce(AC.ArSelfPayBalance, 0))/100 AS CurrentInsuranceBalance,
COALESCE(AC.ArSelfPayBalance, 0) AS CurrentSelfpayBalance,
COALESCE(Ac.ArAccountBalance, 0) AS VisitBalance,

(Coalesce(Ac.ArAccountBalance, 0) - Coalesce(AC.ProfBal, 0 ))/100 AS CurrentHospitalBalance,

((Coalesce(V.AcctReceivable->ArAccountBalance,  0)  -  Coalesce(V.AcctReceivable->ArSelfPayBalance, 0))/100 -  (Coalesce(V.AcctReceivable->ProfBal, 0) - Coalesce(V.AcctReceivable->ArSelfPayBalanceProf, 0))/100)
AS CurrentHospitalInsBalance,
(Coalesce(AC.ArSelfPayBalance, 0) - Coalesce(AC.ArSelfPayBalanceProf, 0))/100 AS CurrentHospitalSelfPayBalance,

V.AcctReceivable->ProfBal AS ProfesionalVisitBalance,
 (Coalesce(V.AcctReceivable->ProfBal, 0) - Coalesce(V.AcctReceivable->ArSelfPayBalanceProf, 0))/100  as ProfessionalInsuranceVisitBalance,
V.AcctReceivable->ArSelfPayBalanceProf as ProfessionalSelfPayBalance,
AC.ArSelfPayBalance,
V.AcctReceivable->FirstStatementDate,
V.AcctReceivable->LastStatementDate,
V.AcctReceivable->PaymentLastStmt,
V.AcctReceivable->SelfPayPymtLastStmt,
V.AcctReceivable->PymtThisCycle,
V.AcctReceivable->SelfPayPymtThisCyc,
V.AcctReceivable->ProfLastPymtDt,
V.AcctReceivable->ProfBalLastStmt,
V.AcctReceivable->ProfSelfPayBalLastStmt,

(SELECT MAX(RT.PostingDate)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Payments' 
AND RT.Code->RestrictPostToHospOrProf = 'H') AS Last_Hosp_Payment_Date,
 

(SELECT MAX(RT.PostingDate)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
  AND RT.Code->TransactionType='Payments' 
AND RT.Code->RestrictPostToHospOrProf = 'P') AS Last_Prof_Payment_Date,

V.AdmDt as DateofAdmission,
V.DischDt as DateofDischarge,

 VD.PlanDescr as PrimaryInsurancePlanName ,
IM.CertNum as PrimaryPlanInsuranceCertNum,

 SVD.PlanDescr as SecondaryInsurancePlanName ,
SIM.CertNum as SecondaryInsurancePlanCert,

 TVD.PlanDescr as TertiaryInsurancePlanName ,
TIM.CertNum as TertiaryInsurancePlanCert,

V.PRIMFSC->HpaFscCategory->Name as PrimaryInsFSCCategory,
P.VIPcode->Name as VIPName,
P.Deceased as IsPatientDeceased,
P.DtOfDeath as DateofDeath,
V.PatientType->Name as VisittypeName,
P.UBadAddress as BadAddress,
P.UHomelessFlag,
Max(Fin.Appl.ApprDate) as LastDateofFinancialAssistanceApplication,
Max(Case when Fin.Appl.ApprDate is not null then Fin.Appl.Status->Name Else '' End) as FINStatus,
V.AcctReceivable->CurrentArFsc->Number as CurrentARFSCNum,
V.AcctReceivable->CurrentArFsc->Name as CurrentARFSCName,

(SELECT SUM(VM.Visit.AcctReceivable->ArSelfPayBalance)
 FROM VM.Visit

 WHERE  VM.Visit.Aid =  ACC.Aid    AND VM.Visit.AcctReceivable->ArSelfPayBalance <> 0
) AS Account_Balance,
AC.TotalBilledDollars,
AC.TotProfBilledDollars,
 (Coalesce(AC.TotalBilledDollars, 0) - Coalesce(AC.TotProfBilledDollars, 0))/100 AS HospitalBilledCharges,

(Coalesce(VC.TotProfChg, 0) - Coalesce(AC.TotProfBilledDollars, 0))/100 AS ProfessionalUnBilledDollars,

((Coalesce(VC.Charges, 0)  -  Coalesce(VC.TotProfChg, 0))/100 -  (Coalesce(AC.TotalBilledDollars, 0) - Coalesce(AC.TotProfBilledDollars, 0))/100) AS HospitalUnbilledCharges,

VC.TotalLateCharges,
VC.TotProfLateChg,

(VC.TotalLateCharges) - (VC.TotProfLateChg) AS HospitalLateCharges,
V.Vid AS VisitNumberInternalID,
Case When TX.FromVid  <> ' ' Then 'CombinedVisit' Else '' End as CombinedVisit,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Payments'
AND RT.Code->RestrictPostToHospOrProf = 'P') AS Professional_Total_Payments,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Payments'
AND RT.Code->RestrictPostToHospOrProf = 'P'
AND RT.Code->Number  IN ('18984','11968','17100','17144','17154','11965','11969','18989','11914','11915','11984','17100','18990')
) AS Professional_SelfPay_Payments,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Payments'
AND RT.Code->RestrictPostToHospOrProf = 'P'
AND RT.Code->Number  NOT IN ('18984','11968','17100','17144','17154','11965','11969','18989','11914','11915','11984','17100','18990')
) AS Professional_Insurance_Payments,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Payments'
AND RT.Code->RestrictPostToHospOrProf = 'H') AS Hospital_Total_Payments,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Payments'
AND RT.Code->RestrictPostToHospOrProf = 'H'
AND RT.Code->Number  IN ('8984','1968','7100','7144','7154','1965','1969','8989','1914','1915','1984','7100','8990')
) AS Hospital_SelfPay_Payments,

(SELECT SUM(RT.Amount)
 FROM HPA.AccountReceivableTx RT
 WHERE RT.AccountReceivable='2||'||V.Vid
   AND RT.Code->TransactionType='Payments'
AND RT.Code->RestrictPostToHospOrProf = 'H'
AND RT.Code->Number  NOT IN ('8984','1968','7100','7144','7154','1965','1969','8989','1914','1915','1984','7100','8990')
) AS Hospital_Insurance_Payments,

P.ULegAbdh ,
P.ULegAcct ,
P.ULegMva ,
P.ULegWcc 

From
Registration.Patient P
JOIN VM.Visit V On P.Id = V.Id 

Left Join  HPA.Account ACC On ACC.Aid = V.Aid
LEFT JOIN  HPA.VisitCharge VC on (VC.GRP = V.Grp and VC.Vid = V.Vid)
LEFT JOIN HPA.AccountReceivable AC ON ( Ac.Grp = V.Grp and AC.Vid = V.Vid)
Left Join HPA.AccountReceivableTX TX On V.Visit = TX.Visit
Left Join Fin.Appl ON(P.%Id = Fin.Appl.Patient)
LEFT Join VM.VisitPlan VP on (V.%Id=VP.Visit) and VP.PN = '1 '
LEFT Join VM.VisitPlanDetail VD on VP.Id=VD.VisitPlan
LEFT Join VM.VisitPlanDetailImsData IM on ( IM.VisitPlanDetail = VD.%Id)
LEFT Join VM.VisitPlan SVP on (V.%Id=SVP.Visit) and SVP.PN = '2 '
LEFT Join VM.VisitPlanDetail SVD on SVP.Id=SVD.VisitPlan
LEFT Join VM.VisitPlanDetailImsData SIM on ( SIM.VisitPlanDetail = SVD.%Id)
LEFT Join VM.VisitPlan TVP on (V.%Id=TVP.Visit) and TVP.PN = '3 '
LEFT Join VM.VisitPlanDetail TVD on TVP.Id=TVD.VisitPlan
LEFT Join VM.VisitPlanDetailImsData TIM on ( TIM.VisitPlanDetail = TVD.%Id)

Where
 TX.AccountReceivable->Vid = V.Vid  
and AC.ArSelfPayBalance > 0
and (Ac.ArAccountBalance) - (AC.ArSelfPayBalance) = 0
and  (VC.Charges)  -  (AC.TotalBilledDollars)  = 0
and V.GuarId->PatRelToGuar->Name <> 'VENDOR' 
AND V.AcctReceivable->CurrentArFsc->Number NOT IN ('650', '655', '657', '859', '879', '858', '869', '857', '856', '860', '652', '653' , '863', '864', '865', '866', '867', '635', '855', '861', '862', '868', '203', '625', '628')
AND  TX.PostingDate <> ''

AND 
((P.ULegAcct  is null) or
(P.ULegMva is null) or
(P.ULegWcc is null))

AND P.MRN NOT IN
('3925171',
'3935651',
'3925169',
'3928634',
'3981558',
'3981642',
'3925173',
'3928797',
'3925175',
'3934223',
'3933656',
'3970177',
'3970178',
'3925178',
'3925162',
'3925164',
'3925194',
'3932423',
'3925196',
'3925201',
'3970176',
'3933502',
'3994881',
'934855',
'941033',
'934857',
'2060513',
'8097980',
'8097979',
'660108968',
'3940069',
'3977063',
'3924744',
'3983194',
'1020572',
'3983191',
'2060485',
'2060194',
'2016146',
'887157',
'3924561',
'811381',
'877583',
'948206',
'861546',
'922473',
'845500',
'934029',
'940255',
'805655',
'855914',
'930741',
'2054362',
'930937',
'3939397',
'861540',
'968147',
'8097913',
'1021353',
'8142393',
'967198',
'8144486',
'853383',
'3933255',
'660097937',
'953296',
'955119',
'953650',
'845189',
'832618',
'765169',
'870833',
'910859',
'003924681',
'003998793',
'003931015',
'003924682',
'4007442',
'003938862',
'003924683',
'3932179',
'003937032',
'003924684',
'003960410',
'003986794',
'003924685',
'003994510',
'003924686',
'743128',
'3974817',
'4007860',
'3972915',
'3924687',
'665246',
'3969179',
'3932283',
'3925224',
'3924665',
'3924710',
'3960411',
'3936194',
'003924711',
'003924689',
'003931443',
'3924680',
'3932766',
'8108131',
'003924690',
'003924691',
'003924692',
'003924693',
'003924694',
'003938949',
'003933636',
'3924695',
'3969214',
'003938860',
'003950463',
'003924696',
'003924697',
'3998956',
'3924698',
'3924699',
'3924700',
'3924701',
'3924702',
'3948813',
'3924703',
'3924705',
'3924706',
'3932174',
'3924707',
'3927055',
'3924709',
'3931489',
'3983132',
'3988017',
'3924713',
'3924714',
'3938858',
'3938855',
'8082729',
'3924739',
'3924715',
'3924729',
'3924716',
'3924717',
'3924730',
'915490',
'3924718',
'3924719',
'3925239',
'3924720',
'3924721',
'3924722',
'3939024',
'3938856',
'3924723',
'3984464',
'3924724',
'3924725',
'3987736',
'3924726',
'3924727',
'3924735',
'3924728',
'2025928')

Group By

V.Number

1 Comment
Discussion (1)0
Log in or sign up to continue
Question
· Dec 10, 2024

HL7 ORCgrp() to XML subtransform

#DTL #HL7 #Interoperability #XML #Ensemble #Health Connect

We are building a data transformation from HL7 to custom XML. We've got an XML schema, and are using virtual documents (EnsLib.EDI.XML.Document).

We can:

  • build our transform as a single transform
  • build our transform using subtransforms where the source data for the subtransform is all in a single HL7 segment and all the output data goes into a single (complex) element of the XML, so the input type on the subtransform is the segment from the HL7 schema and the output type on the subtransform is the relevant element picked out of the XML schema:
  • but we can't (so far!) build a subtransform whose input is a group of segments from the HL7.

Specifically, we are working with HL7 2.3 RDS_001, containing drugs and allergy data. Each drug comes through as a group of 4 segments (ORC, RXD, RXR and OBX). There may be many groups, each with a drug. So the obvious strategy in transforming those is to have the group of 4 segments as the input to a subtransform. And while we can loop over these groups readily enough in the outer transform (as in screenshot below), we can't see how to specify the ORCgrp() as a whole as the input to any subtransform.

Is this possible?

2 Comments
Discussion (2)1
Log in or sign up to continue
Announcement
· Dec 10, 2024

Participad en el Advent of Code 2024

#Events #ObjectScript #IRIS contest

Hola Comunidad,

Se acercan las fiestas de fin de año, ¡y es hora de prepararse para ellas! ¡Únete al Advent of Code 2024 con InterSystems y participa en nuestro desafío ObjectScript!


🏆 Nuestro Ranking 🏆

👉🏼 Únete al ranking privado de ObjectScript con este código: 130669-ab1f69bf.

Nota: Necesitáis iniciar sesión en Advent of Code (por ejemplo, con vuestra cuenta de GitHub, Google, X o Reddit) para ver el ranking y participar en el concurso.

El ganador recibirá 2000 puntos en Global Masters para pedir lo que desee y un distintivo de alto nivel en Global Masters.

Todos los participantes recibirán un distintivo especial de Global Masters.

Condiciones para ganar

1. Para ganar nuestro premio, debéis estar en la cima del ObjectScript Leaderboard, subir todas las soluciones en un repositorio público en GitHub y presentar el código en InterSystems ObjectScript en formato UDL, tal como se muestra en la plantilla de abajo:

⬇️ La plantilla de Advent of Code ObjectScript

2. No debe haber errores en el ObjectScript quality scanner para vuestro proyecto.

3. Todos los participantes tenéis dos días (26 y 27 de diciembre) para hacer públicos vuestros repositorios. El ganador se anunciará después del 28 de diciembre.

4. Todos los participantes debéis estar registrados en la InterSystems Developer Community.

El primer acertijo se desbloqueará el 1 de diciembre a la medianoche EST (UTC -5).

¡Nos vemos entonces y buena suerte a todos vosotros!

Discussion (0)1
Log in or sign up to continue
Article
· Dec 10, 2024 3m read

Celebrando un Viaje de Dedicación

#Developer Community Official

Hoy dedicamos un momento para destacar a uno de los verdaderos pilares de la Comunidad de Desarrolladores de InterSystems, @Alberto Fuentes. Su compromiso, experiencia y entusiasmo han dejado una huella imborrable en la Comunidad de Desarrolladores, y no podríamos estar más agradecidos.

Alberto ha sido parte del ecosistema de InterSystems durante más de 15 años, comenzando su viaje con la tecnología de InterSystems en 2008. Desde entonces, ha desempeñado muchos roles, desde integrar Ensemble en su empleo anterior hasta unirse oficialmente a InterSystems en 2011, donde ahora ocupa el cargo de Sales Engineer

A lo largo de los años, ha sido testigo—y partícipe—de algunos de los hitos más importantes en la historia de la compañía.

🤩 ¡Exploremos su increíble trayectoria!

Desde el nacimiento de InterSystems IRIS hasta la adopción de FHIR, la expansión de la familia HealthShare y el auge de las tecnologías en la nube y contenedores, Alberto ha estado a la vanguardia de estos cambios transformadores. "Ha sido un viaje largo y gratificante, lleno de innumerables horas de proyectos, demostraciones y reuniones con clientes", reflexiona.

Su crecimiento profesional ha estado moldeado por una variedad de proyectos y desafíos memorables. Entre ellos destacan la implementación de Health Connect como motor de integración corporativa en diversas regiones de España, el apoyo a socios para optimizar el rendimiento en escenarios críticos y la colaboración con startups en el programa Caelestinus.

Algunas de sus contribuciones más impactantes se han convertido en recursos invaluables para la Comunidad de Desarrolladores:

  • Healthcare HL7 XML Package: Cumpliendo con los requisitos de interoperabilidad en las regiones de España mediante la extensión de las funciones de interoperabilidad de InterSystems.
  • DataPipe Package + UI: Mejorando las capacidades de ingestión de datos de IRIS para proyectos de Data Fabric, ofreciendo herramientas listas para usar a los socios.

 

Desde el principio, Alberto ha sido un miembro activo y entusiasta de la Comunidad de Desarrolladores, con un enfoque especial en la Comunidad de Desarrolladores en español. Sus contribuciones incluyen la publicación de artículos, el desarrollo de proyectos en Open Exchange, la participación en concursos y la organización de webinars. "¡Los webinars en español son tan divertidos...!" nos cuenta.

Valora profundamente las conexiones que ha hecho dentro de la comunidad. Los meetups son momentos particularmente inspiradores para él: compartir ideas, pizzas y risas mientras juegan al Kahoot. Son estas conexiones humanas las que hacen que la Comunidad de Desarrolladores se sienta como una familia.

Entusiasmado por el futuro, Alberto está sumergiéndose en temas innovadores como la Búsqueda Vectorial y Retrieval Augmented Generation (RAG). Tras haber organizado recientemente un exitoso webinar en español sobre el tema, está ansioso por seguir aprendiendo y compartiendo su conocimiento con la comunidad en general. A los recién llegados les ofrece este consejo: "Explorad la increíble colección de artículos, probad los ejemplos y siempre publicad vuestras preguntas. La comunidad está llena de personas increíbles dispuestas a ayudar".

Fuera del trabajo, Alberto tiene una vibrante variedad de pasiones. Desde cocinar y viajar hasta construir maquetas, nadar y ver deportes (¿alguien dijo Fórmula 1 y NFL?), sus intereses son tan diversos como inspiradores. Recientemente, ha asumido el desafío de aprender francés y mejorar sus habilidades de navegación, todo mientras hace tiempo para aventuras en familia.

Agradecemos sinceramente a @Alberto Fuentes por su incansable dedicación, creatividad y generosidad. Tus contribuciones han inspirado a innumerables desarrolladores y han enriquecido la Comunidad de Desarrolladores más allá de toda medida. ¡Por muchos años más de innovación y colaboración! 🥂

Discussion (0)1
Log in or sign up to continue