[Home] [Help]
17: Main: Populate_Fin_Stmt_Cert_Sum:
18: 1)Populate_All_Cert_General_Sum
19: 2)Populate_All_Fin_Proc_Eval_Sum
20: 3)Populate_All_Fin_Org_Eval_Sum
21: 4)build_amw_fin_cert_eval_sum
22:
23: after AMW.D
24: this package is composed of 2 procedures. one is main procedure, which is the similar as the one
25: before amw.d. but this new main procedure only calls one procedure which is Populate_All_Fin_Proc_Eval_Sum.
1894: l_certification_id := p_certification_id;
1895:
1896: IF p_certification_id IS NOT NULL THEN
1897:
1898: -- AMW_FINSTMT_CERT_BES_PKG.reset_amw_fin_cert_eval_sum(p_certification_id => l_certification_id) ;
1899: --AMW_FINSTMT_CERT_BES_PKG.reset_amw_fin_proc_eval_sum(p_certification_id => l_certification_id);
1900: --AMW_FINSTMT_CERT_BES_PKG.reset_amw_fin_org_eval_sum(p_certification_id => l_certification_id);
1901: --AMW_FINSTMT_CERT_BES_PKG.reset_amw_cert_dashboard_sum(p_certification_id => l_certification_id);
1902: --AMW_FINSTMT_CERT_BES_PKG.reset_fin_all(p_certification_id => l_certification_id);
1911:
1912: ELSE
1913: FOR cert_rec IN c_cert LOOP
1914: exit when c_cert%notfound;
1915: --AMW_FINSTMT_CERT_BES_PKG.reset_amw_fin_cert_eval_sum(p_certification_id => cert_rec.certification_id) ;
1916: --AMW_FINSTMT_CERT_BES_PKG.reset_amw_fin_proc_eval_sum(p_certification_id => cert_rec.certification_id);
1917: --AMW_FINSTMT_CERT_BES_PKG.reset_amw_fin_org_eval_sum(p_certification_id => cert_rec.certification_id);
1918: --AMW_FINSTMT_CERT_BES_PKG.reset_amw_cert_dashboard_sum(p_certification_id => cert_rec.certification_id);
1919: --AMW_FINSTMT_CERT_BES_PKG.reset_fin_all(p_certification_id => cert_rec.certification_id);
3141:
3142:
3143: /**************************************OBSOLATED. USED IN THE CONCURRENT PROGRAM BEFORE BES AMW.D *******/
3144: /*****----------- Code Added by Krishnan --------------------------------------------------------
3145: PROCEDURE build_amw_fin_cert_eval_sum(errbuf OUT NOCOPY VARCHAR2,retcode OUT NOCOPY VARCHAR2, P_CERTIFICATION_ID in number)
3146: is
3147: begin
3148: declare
3149:
3228:
3229: g_errbuf := null;
3230: g_retcode := '0';
3231:
3232: reset_amw_fin_cert_eval_sum(p_certification_id => param_cert_id ); -- reset all existing computed values to 0
3233:
3234:
3235: if P_CERTIFICATION_ID is null then
3236: for certifications in Get_Cert_for_processing
3376: end;
3377: errbuf := g_errbuf ;
3378: retcode := g_retcode;
3379:
3380: END build_amw_fin_cert_eval_sum;
3381:
3382: ****************************************/
3383:
3384: ----------------------------- ********************************** ----------------------
3381:
3382: ****************************************/
3383:
3384: ----------------------------- ********************************** ----------------------
3385: PROCEDURE reset_amw_fin_cert_eval_sum(p_certification_id in number)
3386: is
3387: begin
3388: if p_certification_id is not null then
3389: update amw_fin_cert_eval_sum
3385: PROCEDURE reset_amw_fin_cert_eval_sum(p_certification_id in number)
3386: is
3387: begin
3388: if p_certification_id is not null then
3389: update amw_fin_cert_eval_sum
3390: set
3391: PROC_PENDING_CERTIFICATION = 0,
3392: TOTAL_NUMBER_OF_PROCESSES =0,
3393: PROC_CERTIFIED_WITH_ISSUES =0,
3414: total_number_of_ctrls = 0,
3415: total_number_of_orgs = 0
3416: WHERE fin_certification_id = p_certification_id;
3417: else
3418: update amw_fin_cert_eval_sum
3419: set
3420: PROC_PENDING_CERTIFICATION = 0,
3421: TOTAL_NUMBER_OF_PROCESSES =0,
3422: PROC_CERTIFIED_WITH_ISSUES =0,
3451: and certifcationVL.CERTIFICATION_STATUS in ('ACTIVE', 'DRAFT'));
3452:
3453: end if;
3454:
3455: END reset_amw_fin_cert_eval_sum;
3456:
3457: ----------------------------- ********************************** ----------------------
3458: Procedure compute_values_for_eval_sum(P_CERTIFICATION_ID IN NUMBER,
3459: P_FINANCIAL_STATEMENT_ID in number, P_STATEMENT_GROUP_ID in number,
4518:
4519: DECLARE
4520: M_COUNT NUMBER := 0;
4521: begin
4522: SELECT COUNT(1) INTO M_COUNT FROM amw_fin_cert_eval_sum
4523: WHERE FIN_CERTIFICATION_ID = X_FIN_CERTIFICATION_ID
4524: AND FINANCIAL_STATEMENT_ID = X_FINANCIAL_STATEMENT_ID
4525: AND NVL(FINANCIAL_ITEM_ID,0) = NVL(X_FINANCIAL_ITEM_ID,0)
4526: AND NVL(NATURAL_ACCOUNT_ID,0) = NVL(X_NATURAL_ACCOUNT_ID,0)
4528: AND OBJECT_TYPE = X_OBJECT_TYPE;
4529:
4530:
4531: IF (M_COUNT is null or M_COUNT = 0) then
4532: insert into amw_fin_cert_eval_sum(
4533: FIN_CERTIFICATION_ID ,
4534: FINANCIAL_STATEMENT_ID ,
4535: FINANCIAL_ITEM_ID ,
4536: NATURAL_ACCOUNT_ID ,
4609: );
4610:
4611: else -- update
4612:
4613: update amw_fin_cert_eval_sum set
4614: FIN_CERTIFICATION_ID
4615: = X_FIN_CERTIFICATION_ID,
4616: FINANCIAL_STATEMENT_ID
4617: = X_FINANCIAL_STATEMENT_ID,