DBA Data[Home] [Help]

APPS.BOM_SUBSTITUTE_COMPONENT_API dependencies on BOM_SUB_COMPS_INTERFACE

Line 11: | BOM_SUB_COMPS_INTERFACE table. |

7: | |
8: | File Name : BOMOISCB.pls |
9: | DESCRIPTION : This package contains functions used to assign, validate |
10: | and transact Substitute Component data in the |
11: | BOM_SUB_COMPS_INTERFACE table. |
12: | Parameters: org_id organization_id |
13: | all_org process all orgs or just current org |
14: | 1 - all orgs |
15: | 2 - only org_id |

Line 37: BOM_SUB_COMPS_INTERFACE

33: table
34: REQUIRES
35: err_text out buffer to return error message
36: MODIFIES
37: BOM_SUB_COMPS_INTERFACE
38: MTL_INTERFACE_ERRORS
39: RETURNS
40: 0 if successful
41: SQLCODE if unsuccessful

Line 74: FROM bom_sub_comps_interface

70: SELECT organization_id OI, substitute_comp_number SCN,
71: substitute_component_id SCI, transaction_id TI,
72: transaction_type A, new_sub_comp_id NSCI,
73: new_sub_comp_number NSCN
74: FROM bom_sub_comps_interface
75: WHERE process_flag = 1
76: AND ((transaction_type in (G_Insert, G_Update, G_Delete)
77: AND substitute_component_id is null)
78: OR

Line 99: FROM bom_sub_comps_interface

95: assembly_item_number AIN, alternate_bom_designator ABD,
96: component_item_id CII, component_item_number CIN,
97: operation_seq_num OSN, transaction_type A,
98: to_char(effectivity_date,'YYYY/MM/DD HH24:MI:SS') ED
99: FROM bom_sub_comps_interface
100: WHERE process_flag = 1
101: AND transaction_type in (G_Insert, G_Update, G_Delete)
102: AND component_sequence_id is null
103: AND (UPPER(interface_entity_type) = 'BILL'

Line 116: FROM bom_sub_comps_interface

112: CURSOR c2 IS
113: SELECT transaction_id TI, organization_id OI,
114: component_sequence_id CSI, substitute_item_quantity SIQ,
115: transaction_type A
116: FROM bom_sub_comps_interface
117: WHERE process_flag = 1
118: AND transaction_type in (G_Insert, G_Update, G_Delete)
119: AND component_sequence_id is not null
120: AND (UPPER(interface_entity_type) = 'BILL'

Line 131: FROM bom_sub_comps_interface

127: ** Record passed assignment
128: */
129: CURSOR c3 IS
130: SELECT component_sequence_id CSI
131: FROM bom_sub_comps_interface
132: WHERE process_flag = 99
133: AND transaction_type in (G_Insert, G_Update)
134: AND (UPPER(interface_entity_type) = 'BILL'
135: OR interface_entity_type is null)

Line 145: UPDATE bom_sub_comps_interface

141: BEGIN
142: /** G_INSERT is 'CREATE'. Update 'INSERT' to 'CREATE' **/
143: stmt_num := 0.5 ;
144: LOOP
145: UPDATE bom_sub_comps_interface
146: SET transaction_type = G_Insert
147: WHERE process_flag = 1
148: AND upper(transaction_type) = 'INSERT'
149: AND rownum < G_rows_to_commit;

Line 159: UPDATE bom_sub_comps_interface ori

155: ** ALL RECORDS - Assign Org Id
156: */
157: stmt_num := 1;
158: LOOP
159: UPDATE bom_sub_comps_interface ori
160: SET organization_id = (SELECT organization_id
161: FROM mtl_parameters a
162: WHERE a.organization_code = ori.organization_code)
163: WHERE process_flag = 1

Line 183: UPDATE bom_sub_comps_interface

179: ** ALL RECORDS - Assign transaction ids
180: */
181: stmt_num := 2;
182: LOOP
183: UPDATE bom_sub_comps_interface
184: SET transaction_id = mtl_system_items_interface_s.nextval,
185: transaction_type = upper(transaction_type)
186: WHERE transaction_id is null
187: AND process_flag = 1

Line 223: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

219: prog_id => prog_id,
220: req_id => req_id,
221: trans_id => c0rec.TI,
222: error_text => err_text,
223: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
224: msg_name => 'BOM_SUB_COMP_MISSING',
225: err_text => err_text);
226: UPDATE bom_sub_comps_interface
227: SET process_flag = 3

Line 226: UPDATE bom_sub_comps_interface

222: error_text => err_text,
223: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
224: msg_name => 'BOM_SUB_COMP_MISSING',
225: err_text => err_text);
226: UPDATE bom_sub_comps_interface
227: SET process_flag = 3
228: WHERE transaction_id = c0rec.TI;
229:
230: IF (ret_code <> 0) THEN

Line 257: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

253: prog_id => prog_id,
254: req_id => req_id,
255: trans_id => c0rec.TI,
256: error_text => err_text,
257: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
258: msg_name => 'BOM_NEW_SUB_COMP_MISSING',
259: err_text => err_text);
260: UPDATE bom_sub_comps_interface
261: SET process_flag = 3

Line 260: UPDATE bom_sub_comps_interface

256: error_text => err_text,
257: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
258: msg_name => 'BOM_NEW_SUB_COMP_MISSING',
259: err_text => err_text);
260: UPDATE bom_sub_comps_interface
261: SET process_flag = 3
262: WHERE transaction_id = c0rec.TI;
263:
264: IF (ret_code <> 0) THEN

Line 272: UPDATE bom_sub_comps_interface

268: END IF;
269: END IF;
270:
271: stmt_num := 5;
272: UPDATE bom_sub_comps_interface
273: SET substitute_component_id = c0rec.SCI,
274: new_sub_comp_id = c0rec.NSCI
275: WHERE transaction_id = c0rec.TI;
276:

Line 310: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

306: prog_id => prog_id,
307: req_id => req_id,
308: trans_id => c1rec.TI,
309: error_text => err_text,
310: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
311: msg_name => 'BOM_ORG_ID_MISSING',
312: err_text => err_text);
313: UPDATE bom_sub_comps_interface
314: SET process_flag = 3

Line 313: UPDATE bom_sub_comps_interface

309: error_text => err_text,
310: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
311: msg_name => 'BOM_ORG_ID_MISSING',
312: err_text => err_text);
313: UPDATE bom_sub_comps_interface
314: SET process_flag = 3
315: WHERE transaction_id = c1rec.TI;
316:
317: IF (ret_code <> 0) THEN

Line 345: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

341: prog_id => prog_id,
342: req_id => req_id,
343: trans_id => c1rec.TI,
344: error_text => err_text,
345: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
346: msg_name => 'BOM_ASSY_ITEM_MISSING',
347: err_text => err_text);
348: UPDATE bom_sub_comps_interface
349: SET process_flag = 3

Line 348: UPDATE bom_sub_comps_interface

344: error_text => err_text,
345: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
346: msg_name => 'BOM_ASSY_ITEM_MISSING',
347: err_text => err_text);
348: UPDATE bom_sub_comps_interface
349: SET process_flag = 3
350: WHERE transaction_id = c1rec.TI;
351:
352: IF (ret_code <> 0) THEN

Line 383: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

379: prog_id => prog_id,
380: req_id => req_id,
381: trans_id => c1rec.TI,
382: error_text => err_text,
383: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
384: msg_name => 'BOM_BILL_SEQ_MISSING',
385: err_text => err_text);
386: UPDATE bom_sub_comps_interface
387: SET process_flag = 3

Line 386: UPDATE bom_sub_comps_interface

382: error_text => err_text,
383: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
384: msg_name => 'BOM_BILL_SEQ_MISSING',
385: err_text => err_text);
386: UPDATE bom_sub_comps_interface
387: SET process_flag = 3
388: WHERE transaction_id = c1rec.TI;
389:
390: IF (ret_code <> 0) THEN

Line 419: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

415: prog_id => prog_id,
416: req_id => req_id,
417: trans_id => c1rec.TI,
418: error_text => err_text,
419: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
420: msg_name => 'BOM_COMP_ID_MISSING',
421: err_text => err_text);
422: UPDATE bom_sub_comps_interface
423: SET process_flag = 3

Line 422: UPDATE bom_sub_comps_interface

418: error_text => err_text,
419: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
420: msg_name => 'BOM_COMP_ID_MISSING',
421: err_text => err_text);
422: UPDATE bom_sub_comps_interface
423: SET process_flag = 3
424: WHERE transaction_id = c1rec.TI;
425:
426: IF (ret_code <> 0) THEN

Line 456: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

452: prog_id => prog_id,
453: req_id => req_id,
454: trans_id => c1rec.TI,
455: error_text => err_text,
456: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
457: msg_name => 'BOM_COMP_SEQ_MISSING',
458: err_text => err_text);
459: UPDATE bom_sub_comps_interface
460: SET process_flag = 3

Line 459: UPDATE bom_sub_comps_interface

455: error_text => err_text,
456: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
457: msg_name => 'BOM_COMP_SEQ_MISSING',
458: err_text => err_text);
459: UPDATE bom_sub_comps_interface
460: SET process_flag = 3
461: WHERE transaction_id = c1rec.TI;
462:
463: IF (ret_code <> 0) THEN

Line 470: UPDATE bom_sub_comps_interface

466: GOTO continue_loop;
467: END;
468:
469: stmt_num := 12;
470: UPDATE bom_sub_comps_interface
471: SET component_sequence_id = c1rec.CSI,
472: assembly_item_id = c1rec.AII,
473: component_item_id = c1rec.CII,
474: bill_sequence_id = c1rec.BSI

Line 517: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

513: prog_id => prog_id,
514: req_id => req_id,
515: trans_id => c2rec.TI,
516: error_text => err_text,
517: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
518: msg_name => 'BOM_SUB_COMP_QTY_MISSING',
519: err_text => err_text);
520: UPDATE bom_sub_comps_interface
521: SET process_flag = 3

Line 520: UPDATE bom_sub_comps_interface

516: error_text => err_text,
517: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
518: msg_name => 'BOM_SUB_COMP_QTY_MISSING',
519: err_text => err_text);
520: UPDATE bom_sub_comps_interface
521: SET process_flag = 3
522: WHERE transaction_id = c2rec.TI;
523:
524: IF (ret_code <> 0) THEN

Line 534: UPDATE bom_sub_comps_interface

530:
531: -- ACD TYPE must be null for implemented substitute components
532:
533: stmt_num := 15;
534: UPDATE bom_sub_comps_interface
535: SET process_flag = 99,
536: substitute_item_quantity = c2rec.SIQ,
537: acd_type = null,
538: last_update_date = nvl(last_update_date,sysdate),

Line 551: UPDATE bom_sub_comps_interface

547: program_update_date = nvl(program_update_date, sysdate)
548: WHERE transaction_id = c2rec.TI;
549: ELSIF (c2rec.A = G_Update) THEN
550: stmt_num := 16;
551: UPDATE bom_sub_comps_interface
552: SET process_flag = 99,
553: last_update_date = nvl(last_update_date,sysdate),
554: last_updated_by = nvl(last_updated_by,user_id),
555: last_update_login = nvl(last_update_login, user_id)

Line 565: UPDATE bom_sub_comps_interface

561: RETURN(SQLCODE);
562: END IF;
563: ELSIF (c2rec.A = G_Delete) THEN
564: stmt_num := 17;
565: UPDATE bom_sub_comps_interface
566: SET process_flag = 2
567: WHERE transaction_id = c2rec.TI;
568:
569: IF (SQL%NOTFOUND) THEN

Line 604: UPDATE bom_sub_comps_interface

600: INTO dummy_txn
601: FROM sys.dual;
602:
603: stmt_num := 21;
604: UPDATE bom_sub_comps_interface
605: SET transaction_id = dummy_txn,
606: process_flag = 2
607: WHERE component_sequence_id = c3rec.CSI
608: AND (UPPER(interface_entity_type) = 'BILL'

Line 664: FROM bom_substitute_components a, bom_sub_comps_interface b

660: stmt_num := 1;
661: BEGIN
662: SELECT 1
663: INTO dummy
664: FROM bom_substitute_components a, bom_sub_comps_interface b
665: WHERE b.transaction_id = trans_id
666: AND (UPPER(b.interface_entity_type) = 'BILL'
667: OR b.interface_entity_type is null)
668: AND (b.transaction_type = G_Insert

Line 688: FROM bom_sub_comps_interface a

684: */
685: stmt_num := 2;
686: SELECT count(*)
687: INTO dummy
688: FROM bom_sub_comps_interface a
689: WHERE transaction_id = trans_id
690: AND (transaction_type = G_Insert
691: OR (transaction_type= G_Update AND new_sub_comp_id is not null))
692: AND (UPPER(a.interface_entity_type) = 'BILL'

Line 696: FROM bom_sub_comps_interface b

692: AND (UPPER(a.interface_entity_type) = 'BILL'
693: OR a.interface_entity_type is null)
694: AND exists
695: (SELECT 'same substitute'
696: FROM bom_sub_comps_interface b
697: WHERE b.transaction_id = trans_id
698: AND b.rowid <> a.rowid
699: AND (b.transaction_type = G_Insert
700: OR (b.transaction_type = G_Update

Line 811: FROM bom_sub_comps_interface

807: attribute14 A14,attribute15 A15,
808: request_id RI, program_application_id PAI, program_id PI,
809: program_update_date PUD, acd_type ACD,
810: transaction_id TI, transaction_type A
811: FROM bom_sub_comps_interface
812: WHERE process_flag = 2
813: AND transaction_type in (G_Update, G_Delete)
814: AND (UPPER(interface_entity_type) = 'BILL'
815: OR interface_entity_type is null)

Line 824: FROM bom_sub_comps_interface

820: CURSOR c1 IS
821: SELECT component_sequence_id CSI, count(*) CNT,
822: transaction_id TI, assembly_item_id AII,
823: organization_id OI
824: FROM bom_sub_comps_interface
825: WHERE process_flag = 2
826: AND transaction_type in (G_Insert, G_Update)
827: AND (UPPER(interface_entity_type) = 'BILL'
828: OR interface_entity_type is null)

Line 845: bom_sub_comps_interface bsci

841: bic.component_item_id CII,
842: bsci.change_notice CN
843: FROM bom_inventory_components bic,
844: bom_bill_of_materials bbom,
845: bom_sub_comps_interface bsci
846: WHERE bsci.process_flag = 2
847: AND bsci.transaction_type in (G_Insert, G_Update)
848: AND (UPPER(bsci.interface_entity_type) = 'BILL'
849: OR bsci.interface_entity_type is null)

Line 907: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

903: prog_id => prog_id,
904: req_id => req_id,
905: trans_id => c2rec.TI,
906: error_text => err_text,
907: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
908: msg_name => 'BOM_SUB_COMP_RECORD_MISSING',
909: err_text => err_text);
910:
911: UPDATE bom_sub_comps_interface

Line 911: UPDATE bom_sub_comps_interface

907: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
908: msg_name => 'BOM_SUB_COMP_RECORD_MISSING',
909: err_text => err_text);
910:
911: UPDATE bom_sub_comps_interface
912: SET process_flag = 3
913: WHERE transaction_id = c2rec.TI;
914:
915: IF (ret_code <> 0) THEN

Line 941: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

937: prog_id => prog_id,
938: req_id => req_id,
939: trans_id => c2rec.TI,
940: error_text => err_text,
941: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
942: msg_name => 'BOM_COLUMN_NOT_UPDATABLE',
943: err_text => err_text);
944:
945: UPDATE bom_sub_comps_interface

Line 945: UPDATE bom_sub_comps_interface

941: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
942: msg_name => 'BOM_COLUMN_NOT_UPDATABLE',
943: err_text => err_text);
944:
945: UPDATE bom_sub_comps_interface
946: SET process_flag = 3
947: WHERE transaction_id = c2rec.TI;
948:
949: IF (ret_code <> 0) THEN

Line 958: UPDATE bom_sub_comps_interface

954: /*
955: ** Update interface record with production record's values
956: */
957: stmt_num := 3;
958: UPDATE bom_sub_comps_interface
959: SET creation_date = X_creation_date,
960: created_by = X_created_by,
961: substitute_item_quantity = nvl(c2rec.SIQ,
962: X_substitute_item_quantity),

Line 1013: UPDATE bom_sub_comps_interface

1009: /*
1010: ** Set Process Flag to 4 for "Deletes"
1011: */
1012: stmt_num := 4;
1013: UPDATE bom_sub_comps_interface
1014: SET process_flag = 4
1015: WHERE transaction_id = c2rec.TI;
1016: END IF;
1017: <>

Line 1065: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

1061: prog_id => prog_id,
1062: req_id => req_id,
1063: trans_id => c1rec.TI,
1064: error_text => err_text,
1065: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1066: msg_name => 'BOM_COMP_SEQ_ID_INVALID',
1067: err_text => err_text);
1068: UPDATE bom_sub_comps_interface
1069: SET process_flag = 3

Line 1068: UPDATE bom_sub_comps_interface

1064: error_text => err_text,
1065: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1066: msg_name => 'BOM_COMP_SEQ_ID_INVALID',
1067: err_text => err_text);
1068: UPDATE bom_sub_comps_interface
1069: SET process_flag = 3
1070: WHERE transaction_id = c1rec.TI;
1071:
1072: IF (ret_code <> 0) THEN

Line 1092: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

1088: prog_id => prog_id,
1089: req_id => req_id,
1090: trans_id => c1rec.TI,
1091: error_text => err_text,
1092: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1093: msg_name => 'BOM_NO_SUB_COMPS_ALLOWED',
1094: err_text => err_text);
1095: UPDATE bom_sub_comps_interface
1096: SET process_flag = 3

Line 1095: UPDATE bom_sub_comps_interface

1091: error_text => err_text,
1092: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1093: msg_name => 'BOM_NO_SUB_COMPS_ALLOWED',
1094: err_text => err_text);
1095: UPDATE bom_sub_comps_interface
1096: SET process_flag = 3
1097: WHERE transaction_id = c1rec.TI;
1098:
1099: IF (ret_code <> 0) THEN

Line 1121: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

1117: prog_id => prog_id,
1118: req_id => req_id,
1119: trans_id => c1rec.TI,
1120: error_text => err_text,
1121: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1122: msg_name => 'BOM_DUPLICATE_SUB_COMP',
1123: err_text => err_text);
1124: UPDATE bom_sub_comps_interface
1125: SET process_flag = 3

Line 1124: UPDATE bom_sub_comps_interface

1120: error_text => err_text,
1121: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1122: msg_name => 'BOM_DUPLICATE_SUB_COMP',
1123: err_text => err_text);
1124: UPDATE bom_sub_comps_interface
1125: SET process_flag = 3
1126: WHERE transaction_id = c1rec.TI;
1127:
1128: IF (ret_code <> 0) THEN

Line 1185: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

1181: prog_id => prog_id,
1182: req_id => req_id,
1183: trans_id => c3rec.TI,
1184: error_text => err_text,
1185: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1186: msg_name => 'BOM_SUB_COMP_ITEM_INVALID',
1187: err_text => err_text);
1188: UPDATE bom_sub_comps_interface
1189: SET process_flag = 3

Line 1188: UPDATE bom_sub_comps_interface

1184: error_text => err_text,
1185: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1186: msg_name => 'BOM_SUB_COMP_ITEM_INVALID',
1187: err_text => err_text);
1188: UPDATE bom_sub_comps_interface
1189: SET process_flag = 3
1190: WHERE transaction_id = c3rec.TI;
1191:
1192: IF (ret_code <> 0) THEN

Line 1231: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

1227: prog_id => prog_id,
1228: req_id => req_id,
1229: trans_id => c3rec.TI,
1230: error_text => err_text,
1231: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1232: msg_name => 'BOM_SUB_COMP_COMMON_INVALID',
1233: err_text => err_text);
1234: UPDATE bom_sub_comps_interface
1235: SET process_flag = 3

Line 1234: UPDATE bom_sub_comps_interface

1230: error_text => err_text,
1231: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1232: msg_name => 'BOM_SUB_COMP_COMMON_INVALID',
1233: err_text => err_text);
1234: UPDATE bom_sub_comps_interface
1235: SET process_flag = 3
1236: WHERE transaction_id = c3rec.TI;
1237:
1238: IF (ret_code <> 0) THEN

Line 1264: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

1260: prog_id => prog_id,
1261: req_id => req_id,
1262: trans_id => c3rec.TI,
1263: error_text => err_text,
1264: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1265: msg_name => 'BOM_SUB_COMP_ITEM_SAME',
1266: err_text => err_text);
1267: UPDATE bom_sub_comps_interface
1268: SET process_flag = 3

Line 1267: UPDATE bom_sub_comps_interface

1263: error_text => err_text,
1264: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1265: msg_name => 'BOM_SUB_COMP_ITEM_SAME',
1266: err_text => err_text);
1267: UPDATE bom_sub_comps_interface
1268: SET process_flag = 3
1269: WHERE transaction_id = c3rec.TI;
1270:
1271: IF (ret_code <> 0) THEN

Line 1301: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

1297: prog_id => prog_id,
1298: req_id => req_id,
1299: trans_id => c3rec.TI,
1300: error_text => err_text,
1301: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1302: msg_name => 'ENG_PARENTECO_NOT_EXIST',
1303: err_text => err_text);
1304: UPDATE bom_sub_comps_interface
1305: SET process_flag = 3

Line 1304: UPDATE bom_sub_comps_interface

1300: error_text => err_text,
1301: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1302: msg_name => 'ENG_PARENTECO_NOT_EXIST',
1303: err_text => err_text);
1304: UPDATE bom_sub_comps_interface
1305: SET process_flag = 3
1306: WHERE transaction_id = c3rec.TI;
1307:
1308: IF (ret_code <> 0) THEN

Line 1332: tbl_name => 'BOM_SUB_COMPS_INTERFACE',

1328: prog_id => prog_id,
1329: req_id => req_id,
1330: trans_id => c3rec.TI,
1331: error_text => err_text,
1332: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1333: msg_name => 'BOM_SUB_COMP_QTY_ZERO',
1334: err_text => err_text);
1335: UPDATE bom_sub_comps_interface
1336: SET process_flag = 3

Line 1335: UPDATE bom_sub_comps_interface

1331: error_text => err_text,
1332: tbl_name => 'BOM_SUB_COMPS_INTERFACE',
1333: msg_name => 'BOM_SUB_COMP_QTY_ZERO',
1334: err_text => err_text);
1335: UPDATE bom_sub_comps_interface
1336: SET process_flag = 3
1337: WHERE transaction_id = c3rec.TI;
1338:
1339: IF (ret_code <> 0) THEN

Line 1346: UPDATE bom_sub_comps_interface

1342: GOTO continue_loop2;
1343: END IF;
1344: */
1345: stmt_num := 16;
1346: UPDATE bom_sub_comps_interface
1347: SET process_flag = 4
1348: WHERE transaction_id = c3rec.TI;
1349:
1350: <>

Line 1377: table, BOM_SUB_COMPS_INTERFACE, into the production table,

1373: NAME
1374: Transact_Substitute_Component
1375: DESCRIPTION
1376: Insert, update and delete substitute component data from the interface
1377: table, BOM_SUB_COMPS_INTERFACE, into the production table,
1378: BOM_SUBSTITUTE_COMPONENTS.
1379: REQUIRES
1380: prog_appid Program application id
1381: prog_id Program id

Line 1387: BOM_SUB_COMPS_INTERFACE

1383: user_id User id
1384: login_id Login id
1385: MODIFIES
1386: BOM_SUBSTITITE_COMPONENTS
1387: BOM_SUB_COMPS_INTERFACE
1388: RETURNS
1389: 0 if successful
1390: SQLCODE if error
1391: NOTES

Line 1422: FROM bom_sub_comps_interface

1418: attribute11 A11, attribute12 A12, attribute13 A13,
1419: attribute14 A14, attribute15 A15, request_id RI,
1420: program_application_id PAI, program_id PI,
1421: program_update_date PUD, transaction_id TI
1422: FROM bom_sub_comps_interface
1423: WHERE process_flag = 4
1424: AND transaction_type = G_Update
1425: AND (UPPER(interface_entity_type) = 'BILL'
1426: OR interface_entity_type is null)

Line 1434: FROM bom_sub_comps_interface

1430: */
1431: CURSOR c2 IS
1432: SELECT component_sequence_id CSI, substitute_component_id SCI,
1433: transaction_id TI
1434: FROM bom_sub_comps_interface
1435: WHERE process_flag = 4
1436: AND transaction_type = G_Delete
1437: AND (UPPER(interface_entity_type) = 'BILL'
1438: OR interface_entity_type is null)

Line 1509: FROM bom_sub_comps_interface

1505: REQUEST_ID,
1506: PROGRAM_APPLICATION_ID,
1507: PROGRAM_ID ,
1508: PROGRAM_UPDATE_DATE
1509: FROM bom_sub_comps_interface
1510: WHERE process_flag = 4
1511: AND transaction_type = G_Insert
1512: AND (UPPER(interface_entity_type) = 'BILL'
1513: OR interface_entity_type is null)

Line 1519: UPDATE bom_sub_comps_interface bsi

1515:
1516: EXIT when SQL%NOTFOUND;
1517:
1518: stmt_num := 2;
1519: UPDATE bom_sub_comps_interface bsi
1520: SET process_flag = 7
1521: WHERE process_flag = 4
1522: AND transaction_type = G_Insert
1523: AND (UPPER(bsi.interface_entity_type) = 'BILL'

Line 1573: UPDATE bom_sub_comps_interface

1569: WHERE component_sequence_id = c1rec.CSI
1570: AND substitute_component_id = c1rec.SCI;
1571:
1572: stmt_num := 4;
1573: UPDATE bom_sub_comps_interface
1574: SET process_flag = 7
1575: WHERE transaction_id = c1rec.TI;
1576: END LOOP;
1577:

Line 1600: UPDATE bom_sub_comps_interface

1596: WHERE component_sequence_id = c2rec.CSI
1597: AND substitute_component_id = c2rec.SCI;
1598:
1599: stmt_num := 7;
1600: UPDATE bom_sub_comps_interface
1601: SET process_flag = 7
1602: WHERE transaction_id = c2rec.TI;
1603: END LOOP;
1604:

Line 1631: interface table, BOM_SUB_COMPS_INTERFACE.

1627: NAME
1628: Import_Substitute_Component
1629: DESCRIPTION
1630: Assign, Validate, and Transact the Substitute Component record in the
1631: interface table, BOM_SUB_COMPS_INTERFACE.
1632: REQUIRES
1633: err_text out buffer to return error message
1634: MODIFIES
1635: RETURNS

Line 1710: DELETE from bom_sub_comps_interface

1706:
1707: stmt_num := 4;
1708: IF (del_rec_flag = 1) THEN
1709: LOOP
1710: DELETE from bom_sub_comps_interface
1711: WHERE process_flag = 7
1712: AND (UPPER(interface_entity_type) = 'BILL'
1713: OR interface_entity_type is null)
1714: AND rownum < G_rows_to_commit;