6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_QP_Form_Seg';
7:
8: -- Global variables holding cached record.
9:
10: g_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
11: g_db_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
7:
8: -- Global variables holding cached record.
9:
10: g_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
11: g_db_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
15: PROCEDURE Write_SEG
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
15: PROCEDURE Write_SEG
16: ( p_SEG_rec IN QP_Attributes_PUB.Seg_Rec_Type
17: , p_db_record IN BOOLEAN := FALSE
18: );
19:
20: FUNCTION Get_SEG
20: FUNCTION Get_SEG
21: ( p_db_record IN BOOLEAN := FALSE
22: , p_segment_id IN NUMBER
23: )
24: RETURN QP_Attributes_PUB.Seg_Rec_Type;
25:
26: PROCEDURE Clear_SEG;
27:
28: -- Global variable holding performed operations.
26: PROCEDURE Clear_SEG;
27:
28: -- Global variable holding performed operations.
29:
30: g_opr__tbl QP_Attributes_PUB.Seg_Tbl_Type;
31:
32: -- Procedure : Default_Attributes
33: --
34:
77: , x_required_flag OUT NOCOPY /* file.sql.39 change */ VARCHAR2
78: , x_party_hierarchy_enabled_flag OUT NOCOPY VARCHAR2 -- Added for TCA
79: )
80: IS
81: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
82: l_SEG_val_rec QP_Attributes_PUB.Seg_Val_Rec_Type;
83: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
84: l_control_rec QP_GLOBALS.Control_Rec_Type;
85: l_return_status VARCHAR2(1);
78: , x_party_hierarchy_enabled_flag OUT NOCOPY VARCHAR2 -- Added for TCA
79: )
80: IS
81: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
82: l_SEG_val_rec QP_Attributes_PUB.Seg_Val_Rec_Type;
83: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
84: l_control_rec QP_GLOBALS.Control_Rec_Type;
85: l_return_status VARCHAR2(1);
86: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
79: )
80: IS
81: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
82: l_SEG_val_rec QP_Attributes_PUB.Seg_Val_Rec_Type;
83: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
84: l_control_rec QP_GLOBALS.Control_Rec_Type;
85: l_return_status VARCHAR2(1);
86: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
87: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
82: l_SEG_val_rec QP_Attributes_PUB.Seg_Val_Rec_Type;
83: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
84: l_control_rec QP_GLOBALS.Control_Rec_Type;
85: l_return_status VARCHAR2(1);
86: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
87: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
88: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
89: BEGIN
90:
83: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
84: l_control_rec QP_GLOBALS.Control_Rec_Type;
85: l_return_status VARCHAR2(1);
86: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
87: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
88: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
89: BEGIN
90:
91: -- Set control flags.
84: l_control_rec QP_GLOBALS.Control_Rec_Type;
85: l_return_status VARCHAR2(1);
86: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
87: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
88: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
89: BEGIN
90:
91: -- Set control flags.
92:
341: , x_required_flag OUT NOCOPY /* file.sql.39 change */ VARCHAR2
342: , x_party_hierarchy_enabled_flag OUT NOCOPY VARCHAR2 --Added for TCA
343: )
344: IS
345: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
346: l_old_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
347: l_SEG_val_rec QP_Attributes_PUB.Seg_Val_Rec_Type;
348: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
349: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
342: , x_party_hierarchy_enabled_flag OUT NOCOPY VARCHAR2 --Added for TCA
343: )
344: IS
345: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
346: l_old_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
347: l_SEG_val_rec QP_Attributes_PUB.Seg_Val_Rec_Type;
348: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
349: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
350: l_control_rec QP_GLOBALS.Control_Rec_Type;
343: )
344: IS
345: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
346: l_old_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
347: l_SEG_val_rec QP_Attributes_PUB.Seg_Val_Rec_Type;
348: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
349: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
350: l_control_rec QP_GLOBALS.Control_Rec_Type;
351: l_return_status VARCHAR2(1);
344: IS
345: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
346: l_old_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
347: l_SEG_val_rec QP_Attributes_PUB.Seg_Val_Rec_Type;
348: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
349: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
350: l_control_rec QP_GLOBALS.Control_Rec_Type;
351: l_return_status VARCHAR2(1);
352: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
345: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
346: l_old_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
347: l_SEG_val_rec QP_Attributes_PUB.Seg_Val_Rec_Type;
348: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
349: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
350: l_control_rec QP_GLOBALS.Control_Rec_Type;
351: l_return_status VARCHAR2(1);
352: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
353: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
348: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
349: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
350: l_control_rec QP_GLOBALS.Control_Rec_Type;
351: l_return_status VARCHAR2(1);
352: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
353: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
354: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
355: BEGIN
356:
349: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
350: l_control_rec QP_GLOBALS.Control_Rec_Type;
351: l_return_status VARCHAR2(1);
352: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
353: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
354: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
355: BEGIN
356:
357: -- Set control flags.
350: l_control_rec QP_GLOBALS.Control_Rec_Type;
351: l_return_status VARCHAR2(1);
352: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
353: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
354: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
355: BEGIN
356:
357: -- Set control flags.
358:
854: , x_last_updated_by OUT NOCOPY /* file.sql.39 change */ NUMBER
855: , x_last_update_login OUT NOCOPY /* file.sql.39 change */ NUMBER
856: )
857: IS
858: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
859: l_old_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
860: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
861: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
862: l_control_rec QP_GLOBALS.Control_Rec_Type;
855: , x_last_update_login OUT NOCOPY /* file.sql.39 change */ NUMBER
856: )
857: IS
858: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
859: l_old_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
860: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
861: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
862: l_control_rec QP_GLOBALS.Control_Rec_Type;
863: l_return_status VARCHAR2(1);
856: )
857: IS
858: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
859: l_old_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
860: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
861: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
862: l_control_rec QP_GLOBALS.Control_Rec_Type;
863: l_return_status VARCHAR2(1);
864: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
857: IS
858: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
859: l_old_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
860: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
861: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
862: l_control_rec QP_GLOBALS.Control_Rec_Type;
863: l_return_status VARCHAR2(1);
864: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
865: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
860: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
861: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
862: l_control_rec QP_GLOBALS.Control_Rec_Type;
863: l_return_status VARCHAR2(1);
864: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
865: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
866: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
867: dummy_seg_id varchar2(25);
868: dummy_app_id varchar2(25);
861: l_old_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
862: l_control_rec QP_GLOBALS.Control_Rec_Type;
863: l_return_status VARCHAR2(1);
864: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
865: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
866: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
867: dummy_seg_id varchar2(25);
868: dummy_app_id varchar2(25);
869: BEGIN
862: l_control_rec QP_GLOBALS.Control_Rec_Type;
863: l_return_status VARCHAR2(1);
864: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
865: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
866: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
867: dummy_seg_id varchar2(25);
868: dummy_app_id varchar2(25);
869: BEGIN
870:
1040: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1041: , p_segment_id IN NUMBER
1042: )
1043: IS
1044: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1045: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1046: l_control_rec QP_GLOBALS.Control_Rec_Type;
1047: l_return_status VARCHAR2(1);
1048: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1041: , p_segment_id IN NUMBER
1042: )
1043: IS
1044: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1045: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1046: l_control_rec QP_GLOBALS.Control_Rec_Type;
1047: l_return_status VARCHAR2(1);
1048: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1049: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1044: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1045: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1046: l_control_rec QP_GLOBALS.Control_Rec_Type;
1047: l_return_status VARCHAR2(1);
1048: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1049: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1050: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1051: BEGIN
1052:
1045: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1046: l_control_rec QP_GLOBALS.Control_Rec_Type;
1047: l_return_status VARCHAR2(1);
1048: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1049: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1050: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1051: BEGIN
1052:
1053: -- Set control flags.
1046: l_control_rec QP_GLOBALS.Control_Rec_Type;
1047: l_return_status VARCHAR2(1);
1048: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1049: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1050: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1051: BEGIN
1052:
1053: -- Set control flags.
1054:
1172: )
1173: IS
1174: l_control_rec QP_GLOBALS.Control_Rec_Type;
1175: l_return_status VARCHAR2(1);
1176: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1177: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1178: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1179: BEGIN
1180:
1173: IS
1174: l_control_rec QP_GLOBALS.Control_Rec_Type;
1175: l_return_status VARCHAR2(1);
1176: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1177: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1178: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1179: BEGIN
1180:
1181: -- Set control flags.
1174: l_control_rec QP_GLOBALS.Control_Rec_Type;
1175: l_return_status VARCHAR2(1);
1176: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1177: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1178: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1179: BEGIN
1180:
1181: -- Set control flags.
1182:
1323: , p_party_hierarchy_enabled_flag IN VARCHAR2 -- Added for TCA
1324: )
1325: IS
1326: l_return_status VARCHAR2(1);
1327: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1328: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1329: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1330: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1331: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1324: )
1325: IS
1326: l_return_status VARCHAR2(1);
1327: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1328: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1329: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1330: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1331: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1332: BEGIN
1325: IS
1326: l_return_status VARCHAR2(1);
1327: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1328: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1329: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1330: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1331: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1332: BEGIN
1333:
1326: l_return_status VARCHAR2(1);
1327: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1328: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1329: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1330: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1331: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1332: BEGIN
1333:
1334: -- Load SEG record
1327: l_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1328: l_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1329: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1330: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1331: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1332: BEGIN
1333:
1334: -- Load SEG record
1335:
1445:
1446: -- Procedures maintaining SEG record cache.
1447:
1448: PROCEDURE Write_SEG
1449: ( p_SEG_rec IN QP_Attributes_PUB.Seg_Rec_Type
1450: , p_db_record IN BOOLEAN := FALSE
1451: )
1452: IS
1453: BEGIN
1465: FUNCTION Get_SEG
1466: ( p_db_record IN BOOLEAN := FALSE
1467: , p_segment_id IN NUMBER
1468: )
1469: RETURN QP_Attributes_PUB.Seg_Rec_Type
1470: IS
1471: BEGIN
1472:
1473: IF p_segment_id <> g_SEG_rec.segment_id
1502: PROCEDURE Clear_Seg
1503: IS
1504: BEGIN
1505:
1506: g_SEG_rec := QP_Attributes_PUB.G_MISS_SEG_REC;
1507: g_db_SEG_rec := QP_Attributes_PUB.G_MISS_SEG_REC;
1508:
1509: END Clear_Seg;
1510:
1503: IS
1504: BEGIN
1505:
1506: g_SEG_rec := QP_Attributes_PUB.G_MISS_SEG_REC;
1507: g_db_SEG_rec := QP_Attributes_PUB.G_MISS_SEG_REC;
1508:
1509: END Clear_Seg;
1510:
1511: END QP_QP_Form_Seg;