1 PACKAGE BODY IGS_ST_VAL_GSE AS
2 /* $Header: IGSST09B.pls 115.4 2002/11/29 04:12:14 nsidana ship $ */
3 --
4 -- Validate the government snapshot.
5 FUNCTION stap_val_govt_snpsht(
6 p_submission_yr IN NUMBER ,
7 p_submission_number IN NUMBER ,
8 p_transaction_type IN VARCHAR2 ,
9 p_message_name OUT NOCOPY VARCHAR2)
10 RETURN BOOLEAN AS
11 BEGIN
12 DECLARE
13 v_gsc_count NUMBER;
14 CURSOR c_gsc IS
15 SELECT count(*)
16 FROM IGS_ST_GVT_SPSHT_CTL gsc
17 WHERE gsc.submission_yr = p_submission_yr AND
18 gsc.submission_number = p_submission_number AND
19 gsc.completion_dt IS NOT NULL;
20 BEGIN
21 --Validate update, insert or delete of the government snapshot tables.
22 --This routine will be called from the triggers for the associated tables.
23 --Check the snapshot is complete.
24 OPEN c_gsc;
25 FETCH c_gsc INTO v_gsc_count;
26 CLOSE c_gsc;
27 IF v_gsc_count > 0 THEN
28 p_message_name := 'IGS_ST_GOVT_SNAP_DET_NOT_ALL';
29 RETURN FALSE;
30 END IF;
31 --- Set the default message number
32 p_message_name := NULL;
33 --- Return the default value
34 RETURN TRUE;
35 END;
36 EXCEPTION
37 WHEN OTHERS THEN
38 FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
39 FND_MESSAGE.SET_TOKEN('NAME','IGS_ST_VAL_GSE.stap_val_govt_snpsht');
40 IGS_GE_MSG_STACK.ADD;
41 App_Exception.Raise_Exception;
42 END stap_val_govt_snpsht;
43 END IGS_ST_VAL_GSE;