[Home] [Help]
1046: | PROCEDURE Check_Ps_Date
1047: |
1048: | DESCRIPTION
1049: | This Procedure checks if the gl_date_closed and actual_date_closed
1050: | are stamped correctly in ar_payment_schedules when the payment schedule
1051: | is closed. It returns the correct values which can can then be sent to the
1052: | Fix_Ps_Date procedure to correct the data corruption
1053: |
1054: | PARAMETERS
1057: | p_gl_date_closed OUT New Value for GL Closed Date
1058: | p_actual_date_closed OUT New Value for Actual Closed Date
1059: * ======================================================================*/
1060: PROCEDURE CHECK_PS_DATE(
1061: p_ps_rec IN ar_payment_schedules%ROWTYPE,
1062: p_corrupt_type OUT NOCOPY VARCHAR2,
1063: p_gl_date_closed OUT NOCOPY DATE,
1064: p_actual_date_closed OUT NOCOPY DATE) IS
1065:
1194: | PROCEDURE Fix_Ps_Date
1195: |
1196: | DESCRIPTION
1197: | This procedure corrects the data for the fields gl_date_closed and actual_date_closed
1198: | in ar_payment_schedules. The correct values need to be fetched from the procedure
1199: | CHECK_PS_DATE
1200: |
1201: |
1202: | PARAMETERS
1208: PROCEDURE FIX_PS_DATE( p_ps_id IN NUMBER,
1209: p_corrupt_type IN VARCHAR2,
1210: p_gl_date_closed IN DATE,
1211: p_actual_date_closed IN DATE) IS
1212: l_ps_rec ar_payment_schedules%ROWTYPE;
1213: BEGIN
1214:
1215: IF PG_DEBUG in ('Y', 'C') THEN
1216: arp_standard.debug('ARP_BALANCE_CHK.FIX_PS_DATE (+)');
1306: p_called_from_api IN VARCHAR2 default 'N') IS
1307:
1308: CURSOR C1(p_cust_trx_id NUMBER) IS
1309: select 'X'
1310: from ar_payment_schedules ps,
1311: ra_cust_trx_line_gl_dist gld,
1312: ra_customer_trx ct,
1313: (select customer_trx_id,
1314: sum(amount_due_remaining + nvl(chrg_amount_remaining, 0) + nvl(frt_adj_remaining, 0)) amount_due_remaining,