PACKAGE BODY: APPS.PA_PROJECT_STATUS_CONTROLS_PKG

Source

1 PACKAGE BODY PA_PROJECT_STATUS_CONTROLS_PKG as
2 /* $Header: PASTACTB.pls 120.1 2005/06/30 12:33:04 appldev noship $ */
3 -- Start of Comments
4 -- Package name     : PA_PROJECT_STATUS_CONTROLS_PKG
5 -- Purpose          : Table handler for PA_PROJECT_STATUS_CONTROLS
6 -- History          : 14-JUL-2000 Mohnish       Created
7 -- NOTE             :
8 -- End of Comments
9 
10 
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PA_PROJECT_STATUS_CONTROLS_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'PASTATCB.pls';
13 
14 PROCEDURE Delete_Row(
15     p_PROJECT_STATUS_CODE  VARCHAR2)
16  IS
17  BEGIN
18    DELETE FROM PA_PROJECT_STATUS_CONTROLS
19     WHERE PROJECT_STATUS_CODE = p_PROJECT_STATUS_CODE;
20    If (SQL%NOTFOUND) then
21        RAISE NO_DATA_FOUND;
22    End If;
23  EXCEPTION
24    When NO_DATA_FOUND then
25    null;
26  END Delete_Row;
27 
28 End PA_PROJECT_STATUS_CONTROLS_PKG;