APPS.AS_CURRENT_ENVIRONMENT_PKG dependencies on AS_CURRENT_ENVIRONMENT

Line 1: PACKAGE BODY AS_CURRENT_ENVIRONMENT_PKG as

1: PACKAGE BODY AS_CURRENT_ENVIRONMENT_PKG as
2: /* $Header: asxcuceb.pls 115.5 2002/02/05 16:27:19 pkm ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out VARCHAR2,
5: X_CURRENT_ENVIRONMENT_ID in out NUMBER,

Line 52: cursor C is select ROWID from AS_CURRENT_ENVIRONMENT

48: X_CREATION_DATE DATE,
49: X_CREATED_BY NUMBER,
50: X_MODE in VARCHAR2 default 'R'
51: ) is
52: cursor C is select ROWID from AS_CURRENT_ENVIRONMENT
53: where CURRENT_ENVIRONMENT_ID = X_CURRENT_ENVIRONMENT_ID;
54:
55: CURSOR C_Curr_Env_Id IS
56: SELECT AS_Current_Environment_S.nextval

Line 56: SELECT AS_Current_Environment_S.nextval

52: cursor C is select ROWID from AS_CURRENT_ENVIRONMENT
53: where CURRENT_ENVIRONMENT_ID = X_CURRENT_ENVIRONMENT_ID;
54:
55: CURSOR C_Curr_Env_Id IS
56: SELECT AS_Current_Environment_S.nextval
57: FROM sys.dual;
58:
59:
60: begin

Line 69: insert into AS_CURRENT_ENVIRONMENT (

65: CLOSE C_Curr_Env_Id;
66:
67:
68:
69: insert into AS_CURRENT_ENVIRONMENT (
70:
71: CURRENT_ENVIRONMENT_ID,
72: ADDRESS_ID,
73: CUSTOMER_ID,

Line 268: from AS_CURRENT_ENVIRONMENT

264: LAST_UPDATED_BY,
265: LAST_UPDATE_LOGIN,
266: CREATION_DATE,
267: CREATED_BY
268: from AS_CURRENT_ENVIRONMENT
269: where CURRENT_ENVIRONMENT_ID = X_CURRENT_ENVIRONMENT_ID
270: for update nowait;
271: recinfo c%rowtype;
272:

Line 457: update AS_CURRENT_ENVIRONMENT set

453:
454: begin
455:
456:
457: update AS_CURRENT_ENVIRONMENT set
458: CURRENT_ENVIRONMENT_ID = X_CURRENT_ENVIRONMENT_ID,
459: ADDRESS_ID = X_ADDRESS_ID,
460: CUSTOMER_ID = X_CUSTOMER_ID,
461: ENABLED_FLAG = X_ENABLED_FLAG,

Line 512: delete from AS_CURRENT_ENVIRONMENT

508: procedure DELETE_ROW (
509: X_CURRENT_ENVIRONMENT_ID in NUMBER
510: ) is
511: begin
512: delete from AS_CURRENT_ENVIRONMENT
513: where CURRENT_ENVIRONMENT_ID = X_CURRENT_ENVIRONMENT_ID;
514:
515: if (sql%notfound) then
516: raise no_data_found;

Line 530: FROM AS_CURRENT_ENVIRONMENT

526:
527: BEGIN
528: SELECT NVL(SUM(Amount),0)
529: INTO X_TOTAL
530: FROM AS_CURRENT_ENVIRONMENT
531: WHERE X_CUSTOMER_ID = Customer_Id AND
532: X_ADDRESS_ID = Address_Id;
533:
534: X_TOTAL_RTOT_DB := X_TOTAL;

Line 547: FROM AS_CURRENT_ENVIRONMENT

543:
544: BEGIN
545: SELECT NVL(SUM(User_Def_Num1),0)
546: INTO X_TOTAL
547: FROM AS_CURRENT_ENVIRONMENT
548: WHERE X_CUSTOMER_ID = Customer_Id AND
549: X_ADDRESS_ID = Address_Id;
550:
551: X_TOTAL_RTOT_DB := X_TOTAL;

Line 556: end AS_CURRENT_ENVIRONMENT_PKG;

552:
553: END SELECT_TOTAL_USER_DEF_NUM1;
554:
555:
556: end AS_CURRENT_ENVIRONMENT_PKG;