[Home] [Help]
1: PACKAGE BODY GMS_SUMM_FUNDING_PKG AS
2: --$Header: gmsmfsfb.pls 120.1.12010000.2 2008/10/30 12:44:09 rrambati ship $
3:
4: FUNCTION ROW_EXISTS_IN_GMS_SUMM_FUNDING(X_Installment_Id IN NUMBER,
5: X_Project_Id IN NUMBER,
32: X_Err_Stage := 'There is more than one row for the Installment '||to_char(X_Installment_Id)||' and the Project '||to_char(X_Project_Id);
33: FND_MESSAGE.SET_NAME('GMS','GMS_MULT_ROW_FOR_INST');
34: FND_MESSAGE.SET_TOKEN('INSTALLMENT_ID',to_char(X_Installment_Id) );
35: FND_MESSAGE.SET_TOKEN('PROJECT_ID',to_char(X_Project_Id) );
36: FND_MESSAGE.SET_TOKEN('PROGRAM_NAME','GMS_SUMM_FUNDING_PKG : ROW_EXISTS_IN_GMS_SUMM_FUNDING');
37: FND_MSG_PUB.add;
38: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count,
39: p_data => X_Err_Stage);
40: RETURN FALSE;
41: WHEN OTHERS THEN
42: X_Err_Code := 'U';
43: X_Err_Stage := (SQLCODE||' '||SQLERRM);
44: FND_MESSAGE.SET_NAME('GMS','GMS_UNEXPECTED_ERROR');
45: FND_MESSAGE.SET_TOKEN('PROGRAM_NAME','GMS_SUMM_FUNDING_PKG : ROW_EXISTS_IN_GMS_SUMM_FUNDING');
46: FND_MESSAGE.SET_TOKEN('OERRNO',SQLCODE);
47: FND_MESSAGE.SET_TOKEN('OERRM',SQLERRM);
48: FND_MSG_PUB.add;
49: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count,
88: X_Total_Funding_Amount := -99;
89: X_Total_Billed_Amount := -99;
90: X_Total_Revenue_Amount := -99;
91: FND_MESSAGE.SET_NAME('GMS','GMS_NO_ACT_PRJ_TSK_IN_SF');
92: FND_MESSAGE.SET_TOKEN('PROGRAM_NAME','GMS_SUMM_FUNDING_PKG : GET_GMS_SUMM_FUNDING');
93: FND_MSG_PUB.add;
94: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count,
95: p_data => X_Err_Stage );
96: WHEN OTHERS THEN
96: WHEN OTHERS THEN
97: X_Err_Code := 'U';
98: X_Err_Stage := SQLCODE||' '||SQLERRM;
99: FND_MESSAGE.SET_NAME('GMS','GMS_UNEXPECTED_ERROR');
100: FND_MESSAGE.SET_TOKEN('PROGRAM_NAME','GMS_SUMM_FUNDING_PKG : GET_GMS_SUMM_FUNDING');
101: FND_MESSAGE.SET_TOKEN('OERRNO',SQLCODE);
102: FND_MESSAGE.SET_TOKEN('OERRM',SQLERRM);
103: FND_MSG_PUB.add;
104: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count,
132: If SQL%NOTFOUND THEN
133: X_Err_Code := 'E';
134: X_Err_Stage := 'No Row to update for Installment '||to_char(X_Installment_Id)||' and Project '||to_char(X_Project_Id);
135: FND_MESSAGE.SET_NAME('GMS','GMS_NO_ROW_FOR_PRJ_TSK_SF');
136: FND_MESSAGE.SET_TOKEN('PROGRAM_NAME','GMS_SUMM_FUNDING_PKG : UPDATE_GMS_SUMM_PROJ_FUNDING');
137: FND_MESSAGE.SET_TOKEN('INSTALLMENT_ID',to_char(X_Installment_Id) );
138: FND_MESSAGE.SET_TOKEN('PROJECT_ID', to_char(X_Project_Id) );
139: FND_MSG_PUB.add;
140: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count,
177:
178: WHEN OTHERS THEN
179: X_Err_Code := 'U';
180: FND_MESSAGE.SET_NAME('GMS','GMS_UNEXPECTED_ERROR');
181: FND_MESSAGE.SET_TOKEN('PROGRAM_NAME','GMS_SUMM_FUNDING_PKG : INSERT_GMS_SUMM_PROJ_FUNDING');
182: FND_MESSAGE.SET_TOKEN('OERRNO',SQLCODE);
183: FND_MESSAGE.SET_TOKEN('OERRM',SQLERRM);
184: FND_MSG_PUB.add;
185: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count,
389: X_Err_Code := 'E';
390: X_Err_Stage := 'No Row to delete for Installment '||to_char(X_Installment_Id)||' and Project '||to_char(X_Project_Id);
391:
392: FND_MESSAGE.SET_NAME('GMS','GMS_NO_ROW_FOR_PRJ_TSK_SF');
393: FND_MESSAGE.SET_TOKEN('PROGRAM_NAME','GMS_SUMM_FUNDING_PKG : DELETE_GMS_SUMM_PROJ_FUNDING');
394: FND_MESSAGE.SET_TOKEN('INSTALLMENT_ID',to_char(X_Installment_Id) );
395: FND_MESSAGE.SET_TOKEN('PROJECT_ID', to_char(X_Project_Id) );
396: FND_MSG_PUB.add;
397: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count,
508: ERRBUF := X_Err_Stage;
509:
510: End UPDATE_GMS_SUMMARY_FUNDING;
511:
512: End GMS_SUMM_FUNDING_PKG;