[Home] [Help]
517: IF P_DEBUG_MODE = 'Y' THEN
518: log_message('In When Others Exception FORLOOP '||SQLERRM, 'paap_release_hold');
519: END IF;
520:
521: Update PA_PWP_AP_INV_HDR Set RELHOLD_REJ_REASON = SubStr(l_err_msg,1,2000)
522: Where invoice_id = p_inv_tbl(Inv_RelHOld_rec);
523:
524: x_msg_count := 1;
525: x_return_status :='E';
548: IF P_DEBUG_MODE = 'Y' THEN
549: log_message('In When Others Exception FORLOOP '||SQLERRM, 'paap_release_hold');
550: END IF;
551:
552: Update PA_PWP_AP_INV_HDR Set RELHOLD_REJ_REASON = SubStr(l_err_msg,1,2000)
553: Where invoice_id = p_inv_tbl(Inv_RelHOld_rec);
554:
555: x_msg_count := 1;
556: x_return_status :='E';
585: log_message('Setting hold reason to null for Invoice_Id:'
586: ||'[Invoice_Id : '||p_inv_tbl(Inv_RelHOld_rec)||' ]', 'paap_release_hold');
587: END IF;
588:
589: Update PA_PWP_AP_INV_HDR Set HOLD_REASON = l_hold_reason1,
590: PWP_HOLD_FLAG = l_inv_pwp_hold,
591: DLV_HOLD_FLAG = l_inv_dlv_hold,
592: HOLD_FLAG = l_inv_hold,
593: HOLD_APPLIED_YN = l_hold_applied_yn
619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
620: END paap_release_hold;
621:
622: /*---------------------------------------------------------------------------------------------------------
623: -- This procedure populates pa_pwp_ap_inv_hdr, pa_pwp_ap_inv_dtl tables by processing all the supplier
624: -- invoices pertaining to the project_id being passed. Returns Success/Failure to the calling module.
625: -- Input parameters
626: -- Parameters Type Required Description
627: -- p_project_id NUMBER YES It stores the project_id
1023: 'Process_SuppInv_Dtls1');
1024: END IF;
1025:
1026: IF P_DEBUG_MODE = 'Y' THEN
1027: log_message('Before deleting data from PA_PWP_AP_INV_HDR and PA_PWP_AP_INV_DTL for'||
1028: '[P_Project_Id : '||P_Project_Id||' ]',
1029: 'Process_SuppInv_Dtls1');
1030: END IF;
1031:
1029: 'Process_SuppInv_Dtls1');
1030: END IF;
1031:
1032: IF G_Draft_Inv_Num IS NULL THEN
1033: Delete from PA_PWP_AP_INV_HDR where project_id = P_Project_Id;
1034: Delete from PA_PWP_AP_INV_DTL where project_id = P_Project_Id;
1035: END IF;
1036: IF G_Draft_Inv_Num IS NOT NULL THEN
1037: OPEN C6(G_Draft_Inv_Num);
1044: IF C6%NOTFOUND THEN
1045: CLOSE C6;
1046: EXIT;
1047: ELSE
1048: Delete from PA_PWP_AP_INV_HDR where project_id = P_Project_Id And Invoice_Id = G_Invoice_Id;
1049: Delete from PA_PWP_AP_INV_DTL where project_id = P_Project_Id And Invoice_Id = G_Invoice_Id;
1050: END IF;
1051: END IF;
1052:
1236: inv_prepay_amt:=inv_prepay_rec.prepaid_amount;
1237: END LOOP;
1238: /* sosharma end changes*/
1239:
1240: -- L_PA_PWP_AP_HDR_ID:= PA_PWP_AP_INV_HDR_S.nextval; Changed for backward compatibility : Bug 7666516
1241: SELECT PA_PWP_AP_INV_HDR_S.nextval
1242: INTO L_PA_PWP_AP_HDR_ID
1243: FROM dual;
1244:
1237: END LOOP;
1238: /* sosharma end changes*/
1239:
1240: -- L_PA_PWP_AP_HDR_ID:= PA_PWP_AP_INV_HDR_S.nextval; Changed for backward compatibility : Bug 7666516
1241: SELECT PA_PWP_AP_INV_HDR_S.nextval
1242: INTO L_PA_PWP_AP_HDR_ID
1243: FROM dual;
1244:
1245: IF P_DEBUG_MODE = 'Y' THEN
1242: INTO L_PA_PWP_AP_HDR_ID
1243: FROM dual;
1244:
1245: IF P_DEBUG_MODE = 'Y' THEN
1246: log_message('Before inserting record in PA_PWP_AP_INV_HDR'||
1247: '[INVREC.INVOICE_ID : '||INVREC.INVOICE_ID||'] '||
1248: '[l_stage : '||l_stage||'] '||
1249: '[L_PA_PWP_AP_HDR_ID : '||L_PA_PWP_AP_HDR_ID||'] ',
1250: 'Process_SuppInv_Dtls1');
1249: '[L_PA_PWP_AP_HDR_ID : '||L_PA_PWP_AP_HDR_ID||'] ',
1250: 'Process_SuppInv_Dtls1');
1251: END IF;
1252:
1253: Insert Into PA_PWP_AP_INV_HDR(PA_PWP_AP_HDR_ID
1254: ,PROJECT_ID
1255: ,INVOICE_ID
1256: ,INVOICE_NUM
1257: ,vendOR_ID
1643: '[l_stage : '||l_stage||'] ',
1644: 'Process_SuppInv_Dtls1');
1645: END IF;
1646:
1647: Update PA_PWP_AP_INV_HDR
1648: Set po_number = l_po_number
1649: Where pa_pwp_ap_hdr_id = l_pa_pwp_ap_hdr_id;
1650:
1651: END LOOP;
1706: X_msg_data := SQLERRM;
1707: END Process_SuppInv_Dtls1;
1708:
1709: ---------------------------------------------------------------------------------------------------------
1710: -- This procedure in turn calls Process_SuppInv_Dtls1, to populate pa_pwp_ap_inv_hdr, pa_pwp_ap_inv_dtl
1711: -- tables by processing all the supplier invoices pertaining to the project_id being passed.
1712: -- This is being called from the Summary Page of Subcontractor tab.
1713: -- Input parameters
1714: -- Parameters Type Required Description
1815: l_hold_applied_yn := 'Y';
1816: End If;
1817: END LOOP;
1818:
1819: Update PA_PWP_AP_INV_HDR Set HOLD_REASON = l_hold_reason1,
1820: PWP_HOLD_FLAG = l_inv_pwp_hold,
1821: DLV_HOLD_FLAG = l_inv_dlv_hold,
1822: HOLD_FLAG = l_inv_hold,
1823: HOLD_APPLIED_YN = l_hold_applied_yn