xp_comm_proj/rd_dicom/Papyrus3/PapyFiles3.c
/********************************************************************************/
/*										*/
/*	WriteGroup3 : writes the next group					*/
/*	return : 0 if OK							*/
/*		 else standard error message					*/
/*										*/
/********************************************************************************/
WriteGroup3 : writes the next group
return : 0 if OK
else standard error message
WriteGroup3 : writes the next group return : 0 if OK else standard error message
PapyShort
WriteGroup3 (PAPY_FILE inFp, unsigned char *inBuffP, PapyULong ioBytesToWrite)
{
  int		theErr;
  if (Papy3FWrite (inFp, &ioBytesToWrite, 1L, inBuffP) < 0)
  {
    theErr = Papy3FClose (&inFp);
    RETURN (papWriteFile)
  } 
  RETURN (papNoError);
}
PapyShort WriteGroup3 ( PAPY_FILE inFp , unsigned char * inBuffP , PapyULong ioBytesToWrite ) { int theErr ; if ( Papy3FWrite ( inFp , & ioBytesToWrite , 1L , inBuffP ) < 0 ) { theErr = Papy3FClose ( & inFp ) ; RETURN ( papWriteFile ) } RETURN ( papNoError ) ; }
WriteGroup3 : writes the next group
return : 0 if OK
else standard error message
WriteGroup3 : writes the next group return : 0 if OK else standard error message
/*PapyShort	inFp;			     the file to write to */ /*unsigned char	*inBuffP;			     the buffer to write from */ /*PapyULong	ioBytesToWrite		     the number of bytes to write */ /* if */