Certifications et badges Credly:
![InterSystems Certification Subject Matter Expert - Specialist Level](https://images.credly.com/images/e5545e34-3aa0-4bef-abf0-232bf618fb84/image.png)
![InterSystems HL7® Interface Specialist](https://images.credly.com/images/d235c8cf-2d11-49b8-86f5-a6a3e3481bcc/image.png)
Badges Global Masters:
![DC Commenter](https://community.intersystems.com/sites/default/files/badges/dc_commenter_1.png)
![DC Problem Solver](https://community.intersystems.com/sites/default/files/badges/dc_problem_solver_1.png)
![DC Recruiter](https://community.intersystems.com/sites/default/files/badges/dc_recruiter_0.png)
![Master of Answers](https://community.intersystems.com/sites/default/files/badges/master_of_answers.png)
![InterSystems Certified Specialist](https://community.intersystems.com/sites/default/files/badges/certified_specialist_small_0.png)
![Great Start](https://community.intersystems.com/sites/default/files/badges/great_start.png)
Abonnés:
Shamus n'a pas encore d'abonnés.
Abonnements:
Shamus ne s'est encore abonné à personne.
Connectez-vous ou créez un nouveau compte pour continuer
Connectez-vous ou créez un nouveau compte pour continuer
Connectez-vous ou créez un nouveau compte pour continuer
Connectez-vous ou créez un nouveau compte pour continuer
Vous pouvez remplacer la méthode OnConstructReply de EnsLib.HL7.Service.Standard. La méthode suivante a fonctionné pour moi.
Class DC.CustomACKBS Extends EnsLib.HL7.Service.TCPService { Method OnConstructReply(Output pReplyDoc As EnsLib.EDI.Document, pOriginalDoc As EnsLib.EDI.Document, ByRef pReplyCode As %String, ByRef pSC As %Status, pEarlyAck As %Boolean) As %Status { Set pReplyDoc=##class(EnsLib.HL7.Message).%New() Set pReplyDoc.DocType="2.4:ACK" Set MSHStr="MSH|^~\&|EnsembleHL7|ISC|ARiM Server|ROWA|"_$REPLACE($REPLACE($ZDATETIME($HOROLOG,8,1),":",""), " ","")_"||ACK|"_pOriginalDoc.GetValueAt("MSH:10")_"|P|2.3" Set MSHSeg=##class(EnsLib.HL7.Segment).ImportFromString(MSHStr,.tSC,pOriginalDoc.Separators) Set MSAStr="MSA|AA|"_pOriginalDoc.GetValueAt("MSH:10") Set MSASeg=##class(EnsLib.HL7.Segment).ImportFromString(MSAStr,.tSC,pOriginalDoc.Separators) Set tSC=pReplyDoc.SetSegmentAt(MSHSeg,1) Set tSC=pReplyDoc.AppendSegment(MSASeg) Quit tSC } }