[Home] [Help]
1: PACKAGE BODY AHL_PART_CHANGES_PKG AS
2: /* $Header: AHLLPCKB.pls 120.1 2008/02/06 14:51:40 sracha ship $ */
3: -- Purpose: Briefly explain the functionality of the package body
4: -- Contains common table handler procedures update, insert to be used by parts change.
5: -- Person Date Comments
49: X_LAST_UPDATED_BY in NUMBER,
50: X_LAST_UPDATE_LOGIN in NUMBER,
51: X_QUANTITY in NUMBER
52: ) is
53: cursor C is select ROWID from AHL_PART_CHANGES
54: where part_change_id = X_PART_CHANGE_ID
55: ;
56:
57:
55: ;
56:
57:
58: begin
59: insert into AHL_PART_CHANGES (
60: part_change_id,
61: UNIT_CONFIG_HEADER_ID,
62: REMOVED_INSTANCE_ID,
63: MC_RELATIONSHIP_ID,
97: LAST_UPDATED_BY,
98: LAST_UPDATE_LOGIN,
99: QUANTITY
100: ) values (
101: ahl.ahl_part_changes_s.nextval,
102: X_UNIT_CONFIG_HEADER_ID,
103: X_REMOVED_INSTANCE_ID,
104: X_MC_RELATIONSHIP_ID,
105: X_REMOVAL_CODE,
212: INSTALLATION_DATE,
213: ISSUE_MTL_TXN_ID,
214: RETURN_MTL_TXN_ID,
215: PART_CHANGE_TYPE
216: from AHL_PART_CHANGES
217: where PART_CHANGE_ID = X_PART_CHANGE_ID
218: for update of PART_CHANGE_ID nowait;
219: recinfo c%rowtype;
220:
342: X_LAST_UPDATE_LOGIN in NUMBER,
343: X_QUANTITY in NUMBER
344: ) is
345: begin
346: update AHL_PART_CHANGES set
347: UNIT_CONFIG_HEADER_ID = X_UNIT_CONFIG_HEADER_ID,
348: REMOVED_INSTANCE_ID = X_REMOVED_INSTANCE_ID,
349: MC_RELATIONSHIP_ID = X_MC_RELATIONSHIP_ID,
350: REMOVAL_CODE = X_REMOVAL_CODE,
393: X_PART_CHANGE_ID in NUMBER
394: ) is
395: begin
396:
397: delete from AHL_PART_CHANGES
398: where PART_CHANGE_ID = X_PART_CHANGE_ID;
399:
400: if (sql%notfound) then
401: raise no_data_found;
408: begin
409: null;
410: end;
411:
412: end AHL_PART_CHANGES_PKG;
413:
414:
415: