372: BEGIN
373:
374: UTL_FILE.new_line (p_file);
375: Text (p_file,
376: 'IF '||p_variable||' = FND_API.G_RET_STS_UNEXP_ERROR THEN',p_level);
377: Text (p_file , 'RAISE FND_API.G_EXC_UNEXPECTED_ERROR;',p_level+1);
378: Text (p_file,
379: 'ELSIF '||p_variable||' = FND_API.G_RET_STS_ERROR THEN',p_level);
380: Text (p_file ,'RAISE FND_API.G_EXC_ERROR;',p_level+1);
373:
374: UTL_FILE.new_line (p_file);
375: Text (p_file,
376: 'IF '||p_variable||' = FND_API.G_RET_STS_UNEXP_ERROR THEN',p_level);
377: Text (p_file , 'RAISE FND_API.G_EXC_UNEXPECTED_ERROR;',p_level+1);
378: Text (p_file,
379: 'ELSIF '||p_variable||' = FND_API.G_RET_STS_ERROR THEN',p_level);
380: Text (p_file ,'RAISE FND_API.G_EXC_ERROR;',p_level+1);
381: Text (p_file ,'END IF;',p_level);
375: Text (p_file,
376: 'IF '||p_variable||' = FND_API.G_RET_STS_UNEXP_ERROR THEN',p_level);
377: Text (p_file , 'RAISE FND_API.G_EXC_UNEXPECTED_ERROR;',p_level+1);
378: Text (p_file,
379: 'ELSIF '||p_variable||' = FND_API.G_RET_STS_ERROR THEN',p_level);
380: Text (p_file ,'RAISE FND_API.G_EXC_ERROR;',p_level+1);
381: Text (p_file ,'END IF;',p_level);
382: UTL_FILE.new_line (p_file);
383:
376: 'IF '||p_variable||' = FND_API.G_RET_STS_UNEXP_ERROR THEN',p_level);
377: Text (p_file , 'RAISE FND_API.G_EXC_UNEXPECTED_ERROR;',p_level+1);
378: Text (p_file,
379: 'ELSIF '||p_variable||' = FND_API.G_RET_STS_ERROR THEN',p_level);
380: Text (p_file ,'RAISE FND_API.G_EXC_ERROR;',p_level+1);
381: Text (p_file ,'END IF;',p_level);
382: UTL_FILE.new_line (p_file);
383:
384: END Check_Status;
876: BEGIN
877:
878: Comment (p_file,'Standard call to check for call compatibility');
879:
880: Text (p_file,'IF NOT FND_API.Compatible_API_Call');
881: Text (p_file,' ( l_api_version_number');
882: Text (p_file,' , p_api_version_number');
883: Text (p_file,' , l_api_name');
884: Text (p_file,' , G_PKG_NAME');
883: Text (p_file,' , l_api_name');
884: Text (p_file,' , G_PKG_NAME');
885: Text (p_file,' )');
886: Text (p_file,'THEN');
887: Text (p_file,'RAISE FND_API.G_EXC_UNEXPECTED_ERROR;',2);
888: Text (p_file,'END IF;');
889:
890: END Comp_Check;
891:
900: UTL_FILE.new_line (p_file);
901: Text (p_file,'EXCEPTION',0);
902:
903: UTL_FILE.new_line (p_file);
904: Text (p_file,'WHEN FND_API.G_EXC_ERROR THEN',1);
905: UTL_FILE.new_line (p_file);
906: Text (p_file,'x_return_status := FND_API.G_RET_STS_ERROR;',2);
907: Get_Msg (p_file,2);
908: IF p_savepoint IS NOT NULL THEN
902:
903: UTL_FILE.new_line (p_file);
904: Text (p_file,'WHEN FND_API.G_EXC_ERROR THEN',1);
905: UTL_FILE.new_line (p_file);
906: Text (p_file,'x_return_status := FND_API.G_RET_STS_ERROR;',2);
907: Get_Msg (p_file,2);
908: IF p_savepoint IS NOT NULL THEN
909: Add_Rollback ( p_file , p_savepoint , 2 );
910: END IF;
908: IF p_savepoint IS NOT NULL THEN
909: Add_Rollback ( p_file , p_savepoint , 2 );
910: END IF;
911:
912: Text (p_file,'WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN',1);
913: UTL_FILE.new_line (p_file);
914: Text (p_file,'x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;',2);
915: Get_Msg (p_file,2);
916: IF p_savepoint IS NOT NULL THEN
910: END IF;
911:
912: Text (p_file,'WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN',1);
913: UTL_FILE.new_line (p_file);
914: Text (p_file,'x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;',2);
915: Get_Msg (p_file,2);
916: IF p_savepoint IS NOT NULL THEN
917: Add_Rollback ( p_file , p_savepoint , 2 );
918: END IF;
918: END IF;
919:
920: Text (p_file,'WHEN OTHERS THEN',1);
921: UTL_FILE.new_line (p_file);
922: Text (p_file,'x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;',2);
923: UTL_FILE.new_line (p_file);
924: Exc_Msg (p_file,p_name,NULL,2);
925: Get_Msg (p_file,2);
926: IF p_savepoint IS NOT NULL THEN
946: Exc_Msg (p_file,p_name,NULL,p_level+2);
947: UTL_FILE.new_line (p_file);
948:
949: IF p_raise_exc THEN
950: Text (p_file,'RAISE FND_API.G_EXC_UNEXPECTED_ERROR;',p_level+2);
951: ELSE
952: Assign
953: ( p_file
954: , 'x_return_status'
951: ELSE
952: Assign
953: ( p_file
954: , 'x_return_status'
955: , 'FND_API.G_RET_STS_UNEXP_ERROR'
956: , p_level+2
957: , -1
958: );
959:
1009: Text (p_file ,'PROCEDURE '||p_name,0);
1010: Parameter(p_file,'api_version_number','IN',
1011: G_TYPE_NUMBER,0,30,TRUE);
1012: Parameter(p_file,'init_msg_list','IN',
1013: 'VARCHAR2 := FND_API.G_FALSE',0);
1014:
1015: IF p_type = G_API_TYPE_PUB THEN
1016:
1017: Parameter(p_file,'return_values','IN',
1014:
1015: IF p_type = G_API_TYPE_PUB THEN
1016:
1017: Parameter(p_file,'return_values','IN',
1018: 'VARCHAR2 := FND_API.G_FALSE',0);
1019: END IF;
1020:
1021: IF NOT p_lock_api THEN
1022: Parameter(p_file,'commit','IN',
1019: END IF;
1020:
1021: IF NOT p_lock_api THEN
1022: Parameter(p_file,'commit','IN',
1023: 'VARCHAR2 := FND_API.G_FALSE',0);
1024:
1025: IF p_type = G_API_TYPE_PVT THEN
1026: Parameter(p_file,'validation_level','IN'
1027: ,'NUMBER := FND_API.G_VALID_LEVEL_FULL',0);
1023: 'VARCHAR2 := FND_API.G_FALSE',0);
1024:
1025: IF p_type = G_API_TYPE_PVT THEN
1026: Parameter(p_file,'validation_level','IN'
1027: ,'NUMBER := FND_API.G_VALID_LEVEL_FULL',0);
1028: Parameter
1029: ( p_file
1030: , 'control_rec'
1031: , 'IN'
1443:
1444: IF p_default_miss THEN
1445:
1446: IF l_attr_rec.TYPE = OE_GENERATE.G_TYPE_NUMBER THEN
1447: l_pk_attr_type := 'FND_API.G_MISS_NUM';
1448: ELSIF l_attr_rec.TYPE = OE_GENERATE.G_TYPE_CHAR THEN
1449: l_pk_attr_type := 'FND_API.G_MISS_CHAR';
1450: ELSIF l_attr_rec.TYPE = OE_GENERATE.G_TYPE_DATE THEN
1451: l_pk_attr_type := 'FND_API.G_MISS_DATE';
1445:
1446: IF l_attr_rec.TYPE = OE_GENERATE.G_TYPE_NUMBER THEN
1447: l_pk_attr_type := 'FND_API.G_MISS_NUM';
1448: ELSIF l_attr_rec.TYPE = OE_GENERATE.G_TYPE_CHAR THEN
1449: l_pk_attr_type := 'FND_API.G_MISS_CHAR';
1450: ELSIF l_attr_rec.TYPE = OE_GENERATE.G_TYPE_DATE THEN
1451: l_pk_attr_type := 'FND_API.G_MISS_DATE';
1452: END IF;
1453:
1447: l_pk_attr_type := 'FND_API.G_MISS_NUM';
1448: ELSIF l_attr_rec.TYPE = OE_GENERATE.G_TYPE_CHAR THEN
1449: l_pk_attr_type := 'FND_API.G_MISS_CHAR';
1450: ELSIF l_attr_rec.TYPE = OE_GENERATE.G_TYPE_DATE THEN
1451: l_pk_attr_type := 'FND_API.G_MISS_DATE';
1452: END IF;
1453:
1454: Text
1455: ( p_file
1487:
1488: IF p_default_miss THEN
1489:
1490: IF l_pk_value_tbl(j).type = OE_GENERATE.G_TYPE_NUMBER THEN
1491: l_pk_attr_type := 'FND_API.G_MISS_NUM';
1492: ELSIF l_pk_value_tbl(j).type = OE_GENERATE.G_TYPE_CHAR THEN
1493: l_pk_attr_type := 'FND_API.G_MISS_CHAR';
1494: ELSIF l_pk_value_tbl(j).type = OE_GENERATE.G_TYPE_DATE THEN
1495: l_pk_attr_type := 'FND_API.G_MISS_DATE';
1489:
1490: IF l_pk_value_tbl(j).type = OE_GENERATE.G_TYPE_NUMBER THEN
1491: l_pk_attr_type := 'FND_API.G_MISS_NUM';
1492: ELSIF l_pk_value_tbl(j).type = OE_GENERATE.G_TYPE_CHAR THEN
1493: l_pk_attr_type := 'FND_API.G_MISS_CHAR';
1494: ELSIF l_pk_value_tbl(j).type = OE_GENERATE.G_TYPE_DATE THEN
1495: l_pk_attr_type := 'FND_API.G_MISS_DATE';
1496: END IF;
1497:
1491: l_pk_attr_type := 'FND_API.G_MISS_NUM';
1492: ELSIF l_pk_value_tbl(j).type = OE_GENERATE.G_TYPE_CHAR THEN
1493: l_pk_attr_type := 'FND_API.G_MISS_CHAR';
1494: ELSIF l_pk_value_tbl(j).type = OE_GENERATE.G_TYPE_DATE THEN
1495: l_pk_attr_type := 'FND_API.G_MISS_DATE';
1496: END IF;
1497:
1498: Text
1499: ( p_file
2000:
2001: Parameter(p_file,'api_version_number','IN',
2002: G_TYPE_NUMBER,0,30,TRUE);
2003: Parameter(p_file,'init_msg_list','IN',
2004: 'VARCHAR2 := FND_API.G_FALSE',0);
2005:
2006: IF p_type = G_API_TYPE_PUB
2007: THEN
2008: Parameter(p_file,'return_values','IN',
2005:
2006: IF p_type = G_API_TYPE_PUB
2007: THEN
2008: Parameter(p_file,'return_values','IN',
2009: 'VARCHAR2 := FND_API.G_FALSE',0);
2010: END IF;
2011:
2012: Parameter(p_file,'return_status','OUT',
2013: G_TYPE_CHAR,0);
2117: BEGIN
2118:
2119:
2120: IF p_attribute.type = OE_GENERATE.G_TYPE_NUMBER THEN
2121: l_pk_attr_type := 'FND_API.G_MISS_NUM';
2122: ELSIF p_attribute.type = OE_GENERATE.G_TYPE_CHAR THEN
2123: l_pk_attr_type := 'FND_API.G_MISS_CHAR';
2124: ELSIF p_attribute.type = OE_GENERATE.G_TYPE_DATE THEN
2125: l_pk_attr_type := 'FND_API.G_MISS_DATE';
2119:
2120: IF p_attribute.type = OE_GENERATE.G_TYPE_NUMBER THEN
2121: l_pk_attr_type := 'FND_API.G_MISS_NUM';
2122: ELSIF p_attribute.type = OE_GENERATE.G_TYPE_CHAR THEN
2123: l_pk_attr_type := 'FND_API.G_MISS_CHAR';
2124: ELSIF p_attribute.type = OE_GENERATE.G_TYPE_DATE THEN
2125: l_pk_attr_type := 'FND_API.G_MISS_DATE';
2126: END IF;
2127:
2121: l_pk_attr_type := 'FND_API.G_MISS_NUM';
2122: ELSIF p_attribute.type = OE_GENERATE.G_TYPE_CHAR THEN
2123: l_pk_attr_type := 'FND_API.G_MISS_CHAR';
2124: ELSIF p_attribute.type = OE_GENERATE.G_TYPE_DATE THEN
2125: l_pk_attr_type := 'FND_API.G_MISS_DATE';
2126: END IF;
2127:
2128: l_buffer1 := p_prefix_text || p_attribute.code;
2129:
2191: l_result := DBMS_SQL.execute(l_attr_csr);
2192:
2193: IF l_result = 0 THEN
2194:
2195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2196:
2197: END IF;
2198:
2199: -- Close the cursor.
2233: l_result := DBMS_SQL.execute(l_attr_csr);
2234:
2235: IF l_result = 0 THEN
2236:
2237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2238:
2239: END IF;
2240:
2241: -- Close the cursor.
2278:
2279: END LOOP;
2280:
2281:
2282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2283:
2284: END Multiple_Branch;
2285:
2286: FUNCTION Convert_Entity_Rec_Type
2283:
2284: END Multiple_Branch;
2285:
2286: FUNCTION Convert_Entity_Rec_Type
2287: ( p_runtime_entity_rec IN FND_API.Entity_Rec_Type
2288: ) RETURN OE_GENERATE.Entity_Rec_Type
2289: IS
2290: l_entity_rec OE_GENERATE.Entity_Rec_Type;
2291: BEGIN
2304:
2305: END Convert_Entity_Rec_Type;
2306:
2307: FUNCTION Convert_Entity_Tbl_Type
2308: ( p_runtime_entity_tbl IN FND_API.Entity_Tbl_Type
2309: ) RETURN OE_GENERATE.Entity_Tbl_Type
2310: IS
2311: l_entity_tbl OE_GENERATE.Entity_Tbl_Type;
2312: BEGIN