Index: WS/TBX/SFS/OrderServiceInternal.cls.xml =================================================================== diff -u -r10 -r16 --- WS/TBX/SFS/OrderServiceInternal.cls.xml (.../OrderServiceInternal.cls.xml) (revision 10) +++ WS/TBX/SFS/OrderServiceInternal.cls.xml (.../OrderServiceInternal.cls.xml) (revision 16) @@ -34,6 +34,9 @@ If SecureKey'=$P($H,",",1) Do Do ..ReturnFault(##class(WS.WSServerFault).%New("Not Authorized call", ..#SERVICENAME, "CO")) . Do oLogger.ErrorMail("CHK_KEY_wsORD","Invalid securekey provided : "_SecureKey) + if '$length(EDINr) Do Do ..ReturnFault(##class(WS.WSServerFault).%New("EDI not provided", ..#SERVICENAME, "CO")) + . Do oLogger.Error("CHK_EDI","EDI not provided") + Set wsID = ##class(WS.TBX.Order).IDViaEDINr(EDInr) Set wsOrd = ##class(WS.TBX.Order).%OpenId(wsID)