102:
103: RETURN TRUE;
104:
105: EXCEPTION WHEN OTHERS THEN
106: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
107: FND_MESSAGE.Set_Token('PACKAGE','GMD_CUSTOMER_TESTS_PVT.INSERT_ROW');
108: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
109: FND_MESSAGE.Set_Token('POSITION','010' );
110: FND_MSG_PUB.ADD;
103: RETURN TRUE;
104:
105: EXCEPTION WHEN OTHERS THEN
106: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
107: FND_MESSAGE.Set_Token('PACKAGE','GMD_CUSTOMER_TESTS_PVT.INSERT_ROW');
108: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
109: FND_MESSAGE.Set_Token('POSITION','010' );
110: FND_MSG_PUB.ADD;
111: RETURN FALSE;
104:
105: EXCEPTION WHEN OTHERS THEN
106: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
107: FND_MESSAGE.Set_Token('PACKAGE','GMD_CUSTOMER_TESTS_PVT.INSERT_ROW');
108: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
109: FND_MESSAGE.Set_Token('POSITION','010' );
110: FND_MSG_PUB.ADD;
111: RETURN FALSE;
112: END INSERT_ROW;
105: EXCEPTION WHEN OTHERS THEN
106: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
107: FND_MESSAGE.Set_Token('PACKAGE','GMD_CUSTOMER_TESTS_PVT.INSERT_ROW');
108: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
109: FND_MESSAGE.Set_Token('POSITION','010' );
110: FND_MSG_PUB.ADD;
111: RETURN FALSE;
112: END INSERT_ROW;
113:
139: open c;
140: fetch c into recinfo;
141: if (c%notfound) then
142: close c;
143: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
144: app_exception.raise_exception;
145: end if;
146: close c;
147: if ( ((recinfo.REPORT_PRECISION = X_REPORT_PRECISION)
150: OR ((recinfo.TEXT_CODE is null) AND (X_TEXT_CODE is null)))
151: ) then
152: null;
153: else
154: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
155: app_exception.raise_exception;
156: end if;
157:
158: for tlinfo in c1 loop
160: if ( (tlinfo.CUST_TEST_DISPLAY = X_CUST_TEST_DISPLAY)
161: ) then
162: null;
163: else
164: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
165: app_exception.raise_exception;
166: end if;
167: end if;
168: end loop;