method MergeValidateLoadProfDataDivision

Parameters

iiMasterSharedSetId	input	integer
iiRedundantSharedSetId	input	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BSharedSetMerge.MergeValidateLoadProfData

program code (program6/bsharedsetmerge.p)

/* =================================================================================================== */
/* Method      : MergeValidateLoadProfDataDivision                                                     */
/* Desc        : This method reads referenced profile data from all elements of division shared sets.  */
/* --------------------------------------------------------------------------------------------------- */
/* Params:  (I)  MasterSharedSetId    Id of the master shared set                                      */
/*          (I)  RedundantSharedSetId If of the redundant shared set                                   */
/* =================================================================================================== */

assign oiReturnStatus = -98.


/* ================================================================================== */
/* Division Profile                                                                   */
/* ================================================================================== */
<Q-17 run DivisionForSSMProf (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiRedundantSharedSetId, (RedundantSharedSetId)
    input iiMasterSharedSetId, (MasterSharedSetId)
    output dataset tqDivisionForSSMProf) in BDivision >
 
for each tqDivisionForSSMProf:
    create tProfileSharedSetData.
    assign tProfileSharedSetData.tcKeyValue            = tqDivisionForSSMProf.tcRedundantDivisionCode
           tProfileSharedSetData.tcFieldName           = "Profile.ProfileCode":U
           tProfileSharedSetData.tcProfileCode         = tqDivisionForSSMProf.tcProfileCode
           tProfileSharedSetData.tcMasterFieldValue    = tqDivisionForSSMProf.tcMasterDivisionCode
           tProfileSharedSetData.tcRedundantFieldValue = tqDivisionForSSMProf.tcRedundantDivisionCode.
end.

/* ================================================================================== */
/* Return                                                                             */
/* ================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.