APPS.PA_AGREEMENTS_PKG dependencies on PA_AGREEMENTS

Line 1: PACKAGE BODY PA_AGREEMENTS_PKG as

1: PACKAGE BODY PA_AGREEMENTS_PKG as
2: /* $Header: PAINAGRB.pls 120.4 2007/02/07 10:46:05 rgandhi ship $ */
3:
4: PROCEDURE Insert_Row(
5: X_Rowid IN OUT NOCOPY VARCHAR2,/*file.sql.39*/

Line 63: CURSOR C IS SELECT rowid FROM PA_AGREEMENTS

59: X_attribute23 IN VARCHAR2 DEFAULT NULL,
60: X_attribute24 IN VARCHAR2 DEFAULT NULL,
61: X_attribute25 IN VARCHAR2 DEFAULT NULL
62: ) IS
63: CURSOR C IS SELECT rowid FROM PA_AGREEMENTS
64: WHERE agreement_id = X_Agreement_Id;
65: CURSOR C2 IS SELECT pa_agreements_s.nextval FROM sys.dual;
66:
67: l_Agreement_Id NUMBER := X_Agreement_Id; /*File.sql.39*/

Line 65: CURSOR C2 IS SELECT pa_agreements_s.nextval FROM sys.dual;

61: X_attribute25 IN VARCHAR2 DEFAULT NULL
62: ) IS
63: CURSOR C IS SELECT rowid FROM PA_AGREEMENTS
64: WHERE agreement_id = X_Agreement_Id;
65: CURSOR C2 IS SELECT pa_agreements_s.nextval FROM sys.dual;
66:
67: l_Agreement_Id NUMBER := X_Agreement_Id; /*File.sql.39*/
68: BEGIN
69: if (X_Agreement_Id is NULL) then

Line 75: INSERT INTO PA_AGREEMENTS_ALL(

71: FETCH C2 INTO X_Agreement_Id;
72: CLOSE C2;
73: end if;
74:
75: INSERT INTO PA_AGREEMENTS_ALL(
76: agreement_id,
77: customer_id,
78: agreement_num,
79: agreement_type,

Line 263: FROM PA_AGREEMENTS

259: X_attribute25 IN VARCHAR2 DEFAULT NULL
260: ) IS
261: CURSOR C IS
262: SELECT *
263: FROM PA_AGREEMENTS
264: WHERE rowid = X_Rowid
265: FOR UPDATE of Agreement_Id NOWAIT;
266: Recinfo C%ROWTYPE;
267:

Line 482: UPDATE PA_AGREEMENTS_ALL

478: l_char Varchar2(1) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
479: l_date Date := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE;
480:
481: BEGIN
482: UPDATE PA_AGREEMENTS_ALL
483: SET
484: agreement_id = decode(X_Agreement_Id,l_num,agreement_id,X_Agreement_Id),
485: customer_id = decode(X_Customer_Id,l_num,customer_id,X_Customer_Id),
486: agreement_num = decode(X_Agreement_Num,l_char,agreement_num,X_Agreement_Num),

Line 550: DELETE FROM PA_AGREEMENTS

546:
547:
548: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
549: BEGIN
550: DELETE FROM PA_AGREEMENTS
551: WHERE rowid = X_Rowid;
552:
553: if (SQL%NOTFOUND) then
554: Raise NO_DATA_FOUND;

Line 559: END PA_AGREEMENTS_PKG;

555: end if;
556: END Delete_Row;
557:
558:
559: END PA_AGREEMENTS_PKG;