1: PACKAGE BODY AP_HOLD_CODES_PKG as
2: /* $Header: apihdcob.pls 120.5.12010000.2 2009/11/30 05:20:27 asansari ship $ */
3:
4:
5:
13: debug_info VARCHAR2(100);
14: BEGIN
15: -- Update the calling sequence
16: --
17: current_calling_sequence := 'AP_HOLD_CODES_PKG.CHECK_UNIQUE<-' ||
18: X_calling_sequence;
19:
20: -- Check if hold_lookup_code is unique
21: --
22: debug_info := 'Checking hold_lookup_code uniqueness';
23:
24: SELECT count(1)
25: INTO Dummy
26: FROM ap_hold_codes
27: WHERE upper(hold_lookup_code) = upper(X_Hold_Lookup_Code)
28: AND ((X_Rowid IS NULL) OR (rowid <> X_Rowid));
29:
30: IF (Dummy >= 1) then
67: X_Reminder_Days NUMBER DEFAULT NULL,
68: X_Hold_Instruction VARCHAR2 DEFAULT NULL,
69: X_calling_sequence IN VARCHAR2
70: ) IS
71: CURSOR C IS SELECT rowid FROM ap_hold_codes
72: WHERE hold_lookup_code = X_Hold_Lookup_Code;
73: current_calling_sequence VARCHAR2(2000);
74: debug_info VARCHAR2(100);
75: BEGIN
75: BEGIN
76:
77: -- Update the calling sequence
78: --
79: current_calling_sequence := 'AP_HOLD_CODES_PKG.INSERT_ROW<-' ||
80: X_calling_sequence;
81:
82: -- Check if unique values
83: AP_HOLD_CODES_PKG.check_unique(X_Rowid, X_Hold_Lookup_Code, current_calling_sequence);
79: current_calling_sequence := 'AP_HOLD_CODES_PKG.INSERT_ROW<-' ||
80: X_calling_sequence;
81:
82: -- Check if unique values
83: AP_HOLD_CODES_PKG.check_unique(X_Rowid, X_Hold_Lookup_Code, current_calling_sequence);
84:
85: -- Insert values into ap_hold_codes
86: --
87: debug_info := 'Inserting in ap_hold_codes';
81:
82: -- Check if unique values
83: AP_HOLD_CODES_PKG.check_unique(X_Rowid, X_Hold_Lookup_Code, current_calling_sequence);
84:
85: -- Insert values into ap_hold_codes
86: --
87: debug_info := 'Inserting in ap_hold_codes';
88:
89: INSERT INTO ap_hold_codes(
83: AP_HOLD_CODES_PKG.check_unique(X_Rowid, X_Hold_Lookup_Code, current_calling_sequence);
84:
85: -- Insert values into ap_hold_codes
86: --
87: debug_info := 'Inserting in ap_hold_codes';
88:
89: INSERT INTO ap_hold_codes(
90: hold_type,
91: hold_lookup_code,
85: -- Insert values into ap_hold_codes
86: --
87: debug_info := 'Inserting in ap_hold_codes';
88:
89: INSERT INTO ap_hold_codes(
90: hold_type,
91: hold_lookup_code,
92: description,
93: last_update_date,
201: and FLV.lookup_code = X_Hold_Lookup_Code
202: and FLV.language = L.LANGUAGE_CODE);
203:
204:
205: -- Open cursor to check existence of hold_lookup_code in ap_hold_codes
206: --
207: debug_info := 'Open cursor C on ap_hold_codes';
208:
209: OPEN C;
203:
204:
205: -- Open cursor to check existence of hold_lookup_code in ap_hold_codes
206: --
207: debug_info := 'Open cursor C on ap_hold_codes';
208:
209: OPEN C;
210:
211: debug_info := 'Fetch cursor C';
261: , AHC.INITIATE_WORKFLOW_FLAG INITIATE_WORKFLOW_FLAG
262: , AHC.WAIT_BEFORE_NOTIFY_DAYS WAIT_BEFORE_NOTIFY_DAYS
263: , AHC.REMINDER_DAYS REMINDER_DAYS
264: , AHC.HOLD_INSTRUCTION HOLD_INSTRUCTION
265: FROM ap_hold_codes ahc,
266: ap_lookup_codes alc
267: WHERE ahc.rowid = X_Rowid
268: and ahc.hold_lookup_code = alc.lookup_code
269: and alc.LOOKUP_TYPE = 'HOLD CODE'
274:
275: BEGIN
276: -- Update the calling sequence
277: --
278: current_calling_sequence := 'AP_HOLD_CODES_PKG.LOCK_ROW<-' ||
279: X_calling_sequence;
280:
281: -- Open cursor on ap_hold_codes
282: --
277: --
278: current_calling_sequence := 'AP_HOLD_CODES_PKG.LOCK_ROW<-' ||
279: X_calling_sequence;
280:
281: -- Open cursor on ap_hold_codes
282: --
283: debug_info := 'Open cursor C on ap_hold_codes';
284:
285: OPEN C;
279: X_calling_sequence;
280:
281: -- Open cursor on ap_hold_codes
282: --
283: debug_info := 'Open cursor C on ap_hold_codes';
284:
285: OPEN C;
286:
287: debug_info := 'Fetch cursor C';
379:
380: BEGIN
381: -- Update the calling sequence
382: --
383: current_calling_sequence := 'AP_HOLD_CODES_PKG.UPDATE_ROW<-' ||
384: X_calling_sequence;
385:
386: -- Updating ap_hold_codes
387: --
382: --
383: current_calling_sequence := 'AP_HOLD_CODES_PKG.UPDATE_ROW<-' ||
384: X_calling_sequence;
385:
386: -- Updating ap_hold_codes
387: --
388: debug_info := 'Updating ap_hold_codes';
389:
390: UPDATE ap_hold_codes
384: X_calling_sequence;
385:
386: -- Updating ap_hold_codes
387: --
388: debug_info := 'Updating ap_hold_codes';
389:
390: UPDATE ap_hold_codes
391: SET
392: hold_type = X_Hold_Type,
386: -- Updating ap_hold_codes
387: --
388: debug_info := 'Updating ap_hold_codes';
389:
390: UPDATE ap_hold_codes
391: SET
392: hold_type = X_Hold_Type,
393: hold_lookup_code = X_Hold_Lookup_Code,
394: description = X_Description,
446:
447: /*
448: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
449: BEGIN
450: DELETE FROM ap_hold_codes
451: WHERE rowid = X_Rowid;
452:
453: if (SQL%NOTFOUND) then
454: Raise NO_DATA_FOUND;
455: end if;
456: END Delete_Row;
457: */
458:
459: END AP_HOLD_CODES_PKG;