method LoadSystemSettings

Description

Load system settings (see class BSetting) and store them in variables available to all business classes.
Parameters

oiReturnStatus
output
integer
Return status of the method.
Internal usage

BLF
method business.InitInstance
program code (program1/business.p)

if viSessionID = 0
then return.

/* ================================================================= */
/* Load system settings : Drafts                                     */
/* ================================================================= */
if vlDraftsActiveCache = ?
then do:
    <Q-2 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-DRAFT}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlDraftsActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlDraftsActive = vlDraftsActiveCache.

/* ================================================================= */
/* Load system settings : Object Security                            */
/* ================================================================= */
if vlObjectSecurityActiveCache = ?
then do:
    <Q-9 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-OBJSEC}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlObjectSecurityActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlObjectSecurityActive = vlObjectSecurityActiveCache.

/* ================================================================= */
/* Load system settings : Event Publishing                           */
/* ================================================================= */
if vlEventPublishingActiveCache = ?
then do:
    <Q-10 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-EVTPUBLISH}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlEventPublishingActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlEventPublishingActive = vlEventPublishingActiveCache.

/* ================================================================= */
/* Load system settings : Custom Business Fields                     */
/* ================================================================= */
if vlCBFActiveCache = ?
then do:
    <Q-11 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-CBF}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlCBFActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlCBFActive = vlCBFActiveCache.

/* ================================================================= */
/* Load system settings : Workflow                                   */
/* ================================================================= */
if vlWorkFlowActiveCache = ?
then do:
    <Q-12 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-WORKFLOW}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlWorkFlowActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlWorkFlowActive = vlWorkFlowActiveCache.

/* ================================================================= */
/* Load system settings : Field Security                             */
/* ================================================================= */
if vlFieldSecurityActiveCache = ?
then do:
    <Q-14 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-FIELDSECURITY}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlFieldSecurityActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlFieldSecurityActive = vlFieldSecurityActiveCache.