37:
38: ------------------------------------------------------------------------
39: -- procedure CHECK_ORDER_INT_RECS_EXIST
40: --
41: -- get the concurrent_process_id from the cs_orders_interface
42: -- if a row is not found return null for the concurrent_process_id
43: --
44: -- RETURNS
45: -- 1 -> success
56: BEGIN
57:
58: SELECT CONCURRENT_PROCESS_ID
59: INTO DUMMY
60: FROM CS_ORDERS_INTERFACE
61: WHERE LINE_ID = V_LINE_ID
62: AND TRANSACTION_CODE IN ('ORDER', 'RENEW');
63:
64: IF DUMMY IS NOT NULL THEN
129: AND SERVICE_MASS_TXN_TEMP_ID IS NOT NULL);
130:
131: IF DUMMY >= 1 THEN
132:
133: INSERT INTO CS_ORDERS_INTERFACE
134: (ORDER_INTERFACE_ID,
135: CREATED_BY,
136: CREATION_DATE,
137: SERVICE_ITEM_FLAG,
139: LINE_ID,
140: CP_SERVICE_ID,
141: MASS_RENEW_TXN_TEMP_ID)
142: VALUES
143: (CS_ORDERS_INTERFACE_S.NEXTVAL,
144: V_LAST_UPDATED_BY,
145: SYSDATE,
146: 'Y',
147: 'DELETE',
161: AND SERVICE_MASS_TXN_TEMP_ID IS NOT NULL);
162:
163: IF DUMMY2 >= 1 THEN
164:
165: INSERT INTO CS_ORDERS_INTERFACE
166: (ORDER_INTERFACE_ID,
167: CREATED_BY,
168: CREATION_DATE,
169: SERVICE_ITEM_FLAG,
171: LINE_ID,
172: CANCEL_CP_ID,
173: MASS_RENEW_TXN_TEMP_ID)
174: VALUES
175: (CS_ORDERS_INTERFACE_S.NEXTVAL,
176: V_LAST_UPDATED_BY,
177: SYSDATE,
178: 'N',
179: 'DELETE',
249: IF CHECK_ORDER_INT_RECS_RESULT = 1 THEN
250: OE_CANSRV.CHECK_ORDER_INT_NOT_IN_PROG(LOOP_LINE_ID, V_PRINT_ERR_MSG,
251: V_CONCURRENT_PROCESS_ID, CHECK_ORDER_INT_NOT_RESULT);
252: ELSE
253: INSERT INTO CS_ORDERS_INTERFACE
254: ( ORDER_INTERFACE_ID
255: , CREATED_BY
256: , SERVICE_ITEM_FLAG
257: , CREATION_DATE
260: , CANCEL_QUANTITY
261: , CANCEL_CP_ID
262: )
263: VALUES
264: ( CS_ORDERS_INTERFACE_S.NEXTVAL
265: , V_LAST_UPDATED_BY
266: , 'Y'
267: , SYSDATE
268: , 'CANCEL'
276: OE_CANSRV.MAKE_DELETE_INT_RECS(LOOP_LINE_ID,LOOP_CUSTOMER_PRODUCT_ID,
277: LOOP_CP_SERVICE_ID, V_LAST_UPDATED_BY, LOOP_SERVICE_MASS_TXN_TEMP_ID,
278: MAKE_DELETE_INT_RECS_RESULT);
279:
280: DELETE FROM CS_ORDERS_INTERFACE
281: WHERE LINE_ID = LOOP_LINE_ID
282: AND TRANSACTION_CODE IN ('ORDER', 'RENEW');
283: END IF;
284:
645: CHK_ORD_INT_RESULT
646: );
647: IF CHK_ORD_INT_RESULT = 0 THEN
648:
649: INSERT INTO CS_ORDERS_INTERFACE
650: ( ORDER_INTERFACE_ID
651: , CREATED_BY
652: , SERVICE_ITEM_FLAG
653: , CREATION_DATE
656: , CANCEL_QUANTITY
657: , CANCEL_CP_ID
658: )
659: VALUES
660: ( CS_ORDERS_INTERFACE_S.NEXTVAL
661: , V_LAST_UPDATED_BY
662: , 'Y'
663: , SYSDATE
664: , 'CANCEL'
683: V_SERVICE_MASS_TXN_TEMP_ID,
684: MAKE_DELETE_INT_RESULT
685: );
686:
687: DELETE FROM CS_ORDERS_INTERFACE
688: WHERE LINE_ID = V_LINE_ID
689: AND TRANSACTION_CODE IN ('ORDER', 'RENEW');
690:
691: GOTO cancel_line;