MEMBER('lmsreceipts.clw')

HoldPosition         STRING(512),AUTO


!--------------------------------------------------
RISnap:BLDetails    PROCEDURE
  CODE

!--------------------------------------------------
RIUpdate:BLDetails   FUNCTION(BYTE FromForm)
  CODE
  LOGOUT(2,BLDetails)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:LogoutError,'Update','BLDetails')
    DO RICloseFiles
    RETURN(1)
  END
  HoldPosition = POSITION(BLDetails)
  PUT(BLDetails)
  IF ERRORCODE()
    RISaveError
    IF SaveErrorCode = RecordChangedErr THEN
      IF FromForm THEN
        StandardWarning(Warn:RIFormUpdateError)
      ELSE
        StandardWarning(Warn:RIUpdateError,'Record Changed by Another Station')
      END
      WATCH(BLDetails)
      REGET(BLDetails,HoldPosition)
      DO RICloseFiles
      RETURN(2)
    ELSE
      StandardWarning(Warn:RIUpdateError,'BLDetails')
      DO RICloseFiles
      RETURN(1)
    END
  END
  COMMIT
  DO RICloseFiles
  RETURN(0)
!----------------------------------------------------------------------
RICloseFiles ROUTINE
!|
!| This routine is called to close any files opened durint RI processing
!|
  EXIT

!--------------------------------------------------
RISnap:ChargesDetail  PROCEDURE
  CODE

!--------------------------------------------------
RIUpdate:ChargesDetail FUNCTION(BYTE FromForm)
  CODE
  LOGOUT(2,ChargesDetail)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:LogoutError,'Update','ChargesDetail')
    DO RICloseFiles
    RETURN(1)
  END
  HoldPosition = POSITION(ChargesDetail)
  PUT(ChargesDetail)
  IF ERRORCODE()
    RISaveError
    IF SaveErrorCode = RecordChangedErr THEN
      IF FromForm THEN
        StandardWarning(Warn:RIFormUpdateError)
      ELSE
        StandardWarning(Warn:RIUpdateError,'Record Changed by Another Station')
      END
      WATCH(ChargesDetail)
      REGET(ChargesDetail,HoldPosition)
      DO RICloseFiles
      RETURN(2)
    ELSE
      StandardWarning(Warn:RIUpdateError,'ChargesDetail')
      DO RICloseFiles
      RETURN(1)
    END
  END
  COMMIT
  DO RICloseFiles
  RETURN(0)
!----------------------------------------------------------------------
RICloseFiles ROUTINE
!|
!| This routine is called to close any files opened durint RI processing
!|
  EXIT

!--------------------------------------------------
RISnap:ContainerDetail  PROCEDURE
  CODE

!--------------------------------------------------
RIUpdate:ContainerDetail FUNCTION(BYTE FromForm)
  CODE
  LOGOUT(2,ContainerDetail)
  IF ERRORCODE()
    RISaveError
    StandardWarning(Warn:LogoutError,'Update','ContainerDetail')
    DO RICloseFiles
    RETURN(1)
  END
  HoldPosition = POSITION(ContainerDetail)
  PUT(ContainerDetail)
  IF ERRORCODE()
    RISaveError
    IF SaveErrorCode = RecordChangedErr THEN
      IF FromForm THEN
        StandardWarning(Warn:RIFormUpdateError)
      ELSE
        StandardWarning(Warn:RIUpdateError,'Record Changed by Another Station')
      END
      WATCH(ContainerDetail)
      REGET(ContainerDetail,HoldPosition)
      DO RICloseFiles
      RETURN(2)
    ELSE
      StandardWarning(Warn:RIUpdateError,'ContainerDetail')
      DO RICloseFiles
      RETURN(1)
    END
  END
  COMMIT
  DO RICloseFiles
  RETURN(0)
!----------------------------------------------------------------------
RICloseFiles ROUTINE
!|
!| This routine is called to close any files opened durint RI processing
!|
  EXIT

!--------------------------------------------------
RISnap:RcpData      PROCEDURE
  CODE

!--------------------------------------------------
RIUpdate:RcpData     FUNCTION(BYTE FromForm)
  CODE
  HoldPosition = POSITION(RcpData)
  PUT(RcpData)
  IF ERRORCODE()
    RISaveError
    IF SaveErrorCode = RecordChangedErr THEN
      IF FromForm THEN
        StandardWarning(Warn:RIFormUpdateError)
      ELSE
        StandardWarning(Warn:RIUpdateError,'Record Changed by Another Station')
      END
      WATCH(RcpData)
      REGET(RcpData,HoldPosition)
      DO RICloseFiles
      RETURN(2)
    ELSE
      StandardWarning(Warn:RIUpdateError,'RcpData')
      DO RICloseFiles
      RETURN(1)
    END
  END
  DO RICloseFiles
  RETURN(0)
!----------------------------------------------------------------------
RICloseFiles ROUTINE
!|
!| This routine is called to close any files opened durint RI processing
!|
  EXIT