The following code is an example of updating related, dependant data, after the current instance has been updated successfully.

     SUBROUTINE CIS_COURSE_After(Command,RawData,Instance,Instance_Key,ErrorMessage,Occurrence,DatabaseeClassList,KeyList,InstanceList,ErrorMessageList,SequenceList,NoUpdateFlagList,CurrentSelect,CascadeRecurse,Cascade_Cascade_KeyList,Cascade_CascadeToKeyList,PreviousDatabaseeClassList,PreviousKeyList,PreviousDateTimeWrittenList,PreviousNoUpdateFlagList,User,MetaErrorFlag)

$INCLUDE FB_BP Freedombase_Definition
$INCLUDE Process_BP CIS_CALENDAR_Definition
$INCLUDE Process_BP CIS_COURSE_Definition

     IF (Command = 'Save' OR Command = 'Load') AND ErrorMessage = '' THEN
        CALENDAR_Instance = ''
        CALENDAR_Instance<CIS_CALENDAR_COURSE> = Instance<CIS_COURSE_COURSE>
        CALENDAR_Instance<CIS_CALENDAR_DAY> = 1
        CALL CIS_CALENDAR_Process('Get','',CALENDAR_Instance,'','','','','','','','','','','','','','','','','',User,MetaErrorFlag)
        IF (MetaErrorFlag) THEN
           RETURN
        END
        CALENDAR_Instance<CIS_CALENDAR_DATE> = Instance<CIS_COURSE_STARTDATE>
        CALENDAR_ErrorMessage = ''
        CALL CIS_CALENDAR_Process(Command,'',CALENDAR_Instance,'',CALENDAR_ErrorMessage,'','','','','','','','','','','','','','','',User,MetaErrorFlag)
        IF (MetaErrorFlag) THEN
           RETURN
        END

     END

     RETURN

  END