Summary Table

Categories Total Count
PII 0
URL 0
DNS 0
EKL 0
IP 0
PORT 0
VsID 0
CF 0
AI 0
VPD 0
PL 0
Other 0

File Content

<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25">
<Class name="EDIGW.FileService">
<IncludeCode>EDIGW</IncludeCode>
<Super>EnsLib.EDI.X12.Service.FileService</Super>
<TimeCreated>64967,53863.646247</TimeCreated>

<Parameter name="SETTINGS">
<Default>DuplicateISACheckHours</Default>
</Parameter>

<Property name="DuplicateISACheckHours">
<Description><![CDATA[
Parameter for Checking for Duplicate ISA. <br/>
No Value, 0, non-numeric values are handled with Default Value. <br/>
Default Value is 24 for 24 hours. <br/>
Set to -1 to disable this check. <br/>]]></Description>
<Type>%String</Type>
</Property>

<Method name="OnInit">
<ReturnType>%Status</ReturnType>
<Implementation><![CDATA[
Kill ^TEST
Do ##class(EDIGW.Utility).DEBUG($$$DebugFileService,"FileService_OnInit: "_$ZDateTime($Horolog,8)_", $Horolog is "_$Horolog)
Do ##class(EDIGW.Utility).DEBUG($$$DebugFileService,"FileService_DuplicateISACheckHours: "_..DuplicateISACheckHours)
If (+..DuplicateISACheckHours = 0) Set ..DuplicateISACheckHours = 24 // Default value is 24 hours if not set
Quit ##super()
]]></Implementation>
</Method>

<Method name="OnProcessInput">
<FormalSpec>pFileStream:%CharacterStream,*pOutput:%RegisteredObject</FormalSpec>
<ReturnType>%Status</ReturnType>
<Implementation><![CDATA[
Do ##class(EDIGW.Utility).DEBUG($$$DebugFileService,"FileService_OnProcessInput: "_$ZDateTime($Horolog,8))
Do ##class(EDIGW.Utility).DEBUG($$$DebugFileService,"FileService_OnProcessInput: $Horolog is "_$Horolog)
Do ##class(EDIGW.Utility).DEBUG($$$DebugFileService,"FileService_OnProcessInput: $ZTIMESTAMP is "_$ZTIMESTAMP)
Set tInputFilename=pFileStream.Filename // path+name.ext
Set tFilename=##class(%File).GetFilename(tInputFilename) // name.ext
Set keepterm=1 // keep terminating slash
Set tPath=##class(%File).GetDirectory(tInputFilename,keepterm) //path
Set tSC=##class(EDIGW.FileServiceHelper).FileServiceHelper(tFilename,tPath,..DuplicateISACheckHours)
If $$$ISERR(tSC) {
Set tReason = $system.Status.GetOneErrorText(tSC)
// If CREPOS.SYSCOUNTERS table is not set up, we want to ERROR
$$$LOGERROR("File "_tInputFilename_" discarded due to "_tReason_".")
Quit tSC // Do not process this file, quit with ERROR
Quit $$$OK // Do not process this file, quit OK to keep it "green"
}
$$$LOGINFO("File received "_tInputFilename)
Do ##class(EDIGW.Utility).DEBUG($$$DebugFileService,"FileService_OnProcessInput Before ##super: "_$ZDateTime($Horolog,8))
Set tSC = ##super(pFileStream)
Do ##class(EDIGW.Utility).DEBUG($$$DebugFileService,"FileService_OnProcessInput After ##super: "_$ZDateTime($Horolog,8))
Do ##class(EDIGW.Utility).DEBUG($$$DebugFileService,"FileService_OnProcessInput %Status: "_tSC)
Quit tSC
]]></Implementation>
</Method>

<Method name="SendReply">
<FormalSpec>pReplyDocument:EnsLib.EDI.Document,pOriginalDoc:EnsLib.EDI.Document=""</FormalSpec>
<ReturnType>%Status</ReturnType>
<Implementation><![CDATA[
Do ##class(EDIGW.Utility).DEBUG($$$DebugFileService,"FileService_SendReply: "_$Get(pOriginalDoc))
Set sc=##super(pReplyDocument,pOriginalDoc)
Quit sc
]]></Implementation>
</Method>
</Class>
</Export>