476: if (g_revb_acc_date_mode is null) then
477: begin
478: select parameter_value
479: into g_revb_acc_date_mode
480: from pay_action_parameters
481: where parameter_name = 'TGL_REVB_ACC_DATE';
482: exception
483: when others then
484: g_revb_acc_date_mode := 'P';
500: if (g_tgl_date_used is null) then
501: begin
502: select parameter_value
503: into g_tgl_date_used
504: from pay_action_parameters
505: where parameter_name = 'TGL_DATE_USED';
506: exception
507: when others then
508: g_tgl_date_used := 'P';
544: if (g_tgl_date_used is null) then
545: begin
546: select parameter_value
547: into g_tgl_date_used
548: from pay_action_parameters
549: where parameter_name = 'TGL_DATE_USED';
550: exception
551: when others then
552: g_tgl_date_used := 'P';