DBA Data[Home] [Help]

APPS.GML_GASNO dependencies on GML_GASNO

Line 1: PACKAGE BODY GML_GASNO as

1: PACKAGE BODY GML_GASNO as
2: /* $Header: GMLSNOB.pls 115.21 2002/11/08 16:08:16 gmangari ship $ */
3: /*============================= GML_GASNO =================================*/
4: /*============================================================================
5: PURPOSE: Creates procedures for exporting Ship Notice information

Line 3: /*============================= GML_GASNO =================================*/

1: PACKAGE BODY GML_GASNO as
2: /* $Header: GMLSNOB.pls 115.21 2002/11/08 16:08:16 gmangari ship $ */
3: /*============================= GML_GASNO =================================*/
4: /*============================================================================
5: PURPOSE: Creates procedures for exporting Ship Notice information
6: to a flat file, and the API called by Shipping to initiate
7: the extract process.

Line 52: p_SHP_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENTS';

48: p_RunID NUMBER := 0;
49: p_OutputWidth INTEGER := 4000;
50: p_TransactionType VARCHAR2(120) := 'GASNO';
51: p_CommunicationMethod VARCHAR2(120) := 'EDI';
52: p_SHP_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENTS';
53: p_STX_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENT_TEXT';
54: p_ORD_Interface VARCHAR2(120) := 'GML_GASNO_ORDERS';
55: p_OAC_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_CHARGES';
56: p_OTX_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_TEXT';

Line 53: p_STX_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENT_TEXT';

49: p_OutputWidth INTEGER := 4000;
50: p_TransactionType VARCHAR2(120) := 'GASNO';
51: p_CommunicationMethod VARCHAR2(120) := 'EDI';
52: p_SHP_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENTS';
53: p_STX_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENT_TEXT';
54: p_ORD_Interface VARCHAR2(120) := 'GML_GASNO_ORDERS';
55: p_OAC_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_CHARGES';
56: p_OTX_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_TEXT';
57: p_DTL_Interface VARCHAR2(120) := 'GML_GASNO_DETAILS';

Line 54: p_ORD_Interface VARCHAR2(120) := 'GML_GASNO_ORDERS';

50: p_TransactionType VARCHAR2(120) := 'GASNO';
51: p_CommunicationMethod VARCHAR2(120) := 'EDI';
52: p_SHP_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENTS';
53: p_STX_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENT_TEXT';
54: p_ORD_Interface VARCHAR2(120) := 'GML_GASNO_ORDERS';
55: p_OAC_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_CHARGES';
56: p_OTX_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_TEXT';
57: p_DTL_Interface VARCHAR2(120) := 'GML_GASNO_DETAILS';
58: p_DAC_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_CHARGES';

Line 55: p_OAC_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_CHARGES';

51: p_CommunicationMethod VARCHAR2(120) := 'EDI';
52: p_SHP_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENTS';
53: p_STX_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENT_TEXT';
54: p_ORD_Interface VARCHAR2(120) := 'GML_GASNO_ORDERS';
55: p_OAC_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_CHARGES';
56: p_OTX_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_TEXT';
57: p_DTL_Interface VARCHAR2(120) := 'GML_GASNO_DETAILS';
58: p_DAC_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_CHARGES';
59: p_DTX_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_TEXT';

Line 56: p_OTX_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_TEXT';

52: p_SHP_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENTS';
53: p_STX_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENT_TEXT';
54: p_ORD_Interface VARCHAR2(120) := 'GML_GASNO_ORDERS';
55: p_OAC_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_CHARGES';
56: p_OTX_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_TEXT';
57: p_DTL_Interface VARCHAR2(120) := 'GML_GASNO_DETAILS';
58: p_DAC_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_CHARGES';
59: p_DTX_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_TEXT';
60: p_ALL_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_ALLOCATIONS';

Line 57: p_DTL_Interface VARCHAR2(120) := 'GML_GASNO_DETAILS';

53: p_STX_Interface VARCHAR2(120) := 'GML_GASNO_SHIPMENT_TEXT';
54: p_ORD_Interface VARCHAR2(120) := 'GML_GASNO_ORDERS';
55: p_OAC_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_CHARGES';
56: p_OTX_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_TEXT';
57: p_DTL_Interface VARCHAR2(120) := 'GML_GASNO_DETAILS';
58: p_DAC_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_CHARGES';
59: p_DTX_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_TEXT';
60: p_ALL_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_ALLOCATIONS';
61: v_OutputFilePtr utl_file.file_type;

Line 58: p_DAC_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_CHARGES';

54: p_ORD_Interface VARCHAR2(120) := 'GML_GASNO_ORDERS';
55: p_OAC_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_CHARGES';
56: p_OTX_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_TEXT';
57: p_DTL_Interface VARCHAR2(120) := 'GML_GASNO_DETAILS';
58: p_DAC_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_CHARGES';
59: p_DTX_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_TEXT';
60: p_ALL_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_ALLOCATIONS';
61: v_OutputFilePtr utl_file.file_type;
62: v_OutputLine VARCHAR2(2000);

Line 59: p_DTX_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_TEXT';

55: p_OAC_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_CHARGES';
56: p_OTX_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_TEXT';
57: p_DTL_Interface VARCHAR2(120) := 'GML_GASNO_DETAILS';
58: p_DAC_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_CHARGES';
59: p_DTX_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_TEXT';
60: p_ALL_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_ALLOCATIONS';
61: v_OutputFilePtr utl_file.file_type;
62: v_OutputLine VARCHAR2(2000);
63: v_OutputRecordCount NUMBER;

Line 60: p_ALL_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_ALLOCATIONS';

56: p_OTX_Interface VARCHAR2(120) := 'GML_GASNO_ORDER_TEXT';
57: p_DTL_Interface VARCHAR2(120) := 'GML_GASNO_DETAILS';
58: p_DAC_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_CHARGES';
59: p_DTX_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_TEXT';
60: p_ALL_Interface VARCHAR2(120) := 'GML_GASNO_DETAIL_ALLOCATIONS';
61: v_OutputFilePtr utl_file.file_type;
62: v_OutputLine VARCHAR2(2000);
63: v_OutputRecordCount NUMBER;
64: v_industry VARCHAR2(240);

Line 77: ec_debug.push ( 'GML_GASNO.Extract_GASNO_Outbound' );

73:
74: BEGIN
75:
76: ec_debug.enable_debug ( p_debug_mode );
77: ec_debug.push ( 'GML_GASNO.Extract_GASNO_Outbound' );
78: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
79: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );
80: ec_debug.pl ( 3, 'p_BOL_No_To: ', p_BOL_No_To );
81: ec_debug.pl ( 3, 'p_Creation_Date_From: ', p_Creation_Date_From );

Line 106: ec_debug.pl ( 0, 'EC', 'GML_GASNO_START', NULL );

102: END;
103: ec_debug.pl(3, 'p_RunID: ',p_RunID);
104:
105: xProgress := 'GASNO-10-1015';
106: ec_debug.pl ( 0, 'EC', 'GML_GASNO_START', NULL );
107:
108: xProgress := 'GASNO-10-1020';
109: ec_debug.pl ( 0, 'EC', 'ECE_RUN_ID', 'RUN_ID', p_RunID );
110:

Line 112: GML_GASNO.Populate_Interface_Tables( p_CommunicationMethod,

108: xProgress := 'GASNO-10-1020';
109: ec_debug.pl ( 0, 'EC', 'ECE_RUN_ID', 'RUN_ID', p_RunID );
110:
111: xProgress := 'GASNO-10-1030';
112: GML_GASNO.Populate_Interface_Tables( p_CommunicationMethod,
113: p_TransactionType,
114: p_Orgn_Code,
115: p_BOL_No_From,
116: p_BOL_No_To,

Line 132: GML_GASNO.Put_Data_To_Output_Table( p_CommunicationMethod,

128: p_DTX_Interface,
129: p_ALL_Interface );
130:
131: xProgress := 'GASNO-10-1040';
132: GML_GASNO.Put_Data_To_Output_Table( p_CommunicationMethod,
133: p_TransactionType,
134: p_Orgn_Code,
135: p_BOL_No_From,
136: p_BOL_No_To,

Line 204: ec_debug.pl ( 0, 'EC', 'GML_GASNO_COMPLETE', NULL );

200:
201: END IF;
202:
203: xProgress := 'GASNO-10-1170';
204: ec_debug.pl ( 0, 'EC', 'GML_GASNO_COMPLETE', NULL );
205:
206: xProgress := 'GASNO-10-1180';
207: DELETE FROM ece_output
208: WHERE run_id = p_RunID;

Line 221: ec_debug.pop ( 'GML_GASNO.Extract_GASNO_Outbound' );

217: 'TABLE_NAME',
218: 'ECE_OUTPUT' );
219: END IF;
220:
221: ec_debug.pop ( 'GML_GASNO.Extract_GASNO_Outbound' );
222: ec_debug.disable_debug;
223: COMMIT;
224:
225: EXCEPTION

Line 476: ec_debug.push ( 'GML_GASNO.Populate_Interface_Tables' );

472: Debug statements for the parameter values.
473:
474: */
475:
476: ec_debug.push ( 'GML_GASNO.Populate_Interface_Tables' );
477: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
478: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
479: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
480: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );

Line 1247: SELECT GML_GASNO_SHIPMENTS_S.nextval

1243: /* */
1244:
1245: xProgress := 'GASNOB-10-1810';
1246: BEGIN
1247: SELECT GML_GASNO_SHIPMENTS_S.nextval
1248: INTO v_SHP_Key
1249: FROM sys.dual;
1250: EXCEPTION
1251: WHEN NO_DATA_FOUND THEN

Line 1258: 'GML_GASNO_SHIPMENTS_S' );

1254: 'ECE_GET_NEXT_SEQ_FAILED',
1255: 'PROGRESS_LEVEL',
1256: xProgress,
1257: 'SEQ',
1258: 'GML_GASNO_SHIPMENTS_S' );
1259: END;
1260: ec_debug.pl ( 3, 'v_SHP_Key: ', v_SHP_Key );
1261:
1262: xProgress := 'GASNOB-10-1820';

Line 1276: GML_GASNO_X.populate_SHP_ext ( v_SHP_Key, v_SHP_Table );

1272: /* extension table. */
1273: /* */
1274:
1275: xProgress := 'GASNOB-10-1830';
1276: GML_GASNO_X.populate_SHP_ext ( v_SHP_Key, v_SHP_Table );
1277:
1278: /* */
1279: /* Execute the Ship Text level SELECT statement. */
1280: /* */

Line 1346: GML_GASNO_X.populate_STX_ext ( v_STX_Key, v_STX_Table );

1342: /* extension table. */
1343: /* */
1344:
1345: xProgress := 'GASNOB-10-1891';
1346: GML_GASNO_X.populate_STX_ext ( v_STX_Key, v_STX_Table );
1347:
1348: END LOOP; /* while stx */
1349:
1350: xProgress := 'GASNOB-10-1690';

Line 1416: SELECT GML_GASNO_ORDERS_S.nextval

1412: /* */
1413:
1414: xProgress := 'GASNOB-10-1950';
1415: BEGIN
1416: SELECT GML_GASNO_ORDERS_S.nextval
1417: INTO v_ORD_Key
1418: FROM sys.dual;
1419: EXCEPTION
1420: WHEN NO_DATA_FOUND THEN

Line 1427: 'GML_GASNO_ORDERS_S' );

1423: 'ECE_GET_NEXT_SEQ_FAILED',
1424: 'PROGRESS_LEVEL',
1425: xProgress,
1426: 'SEQ',
1427: 'GML_GASNO_ORDERS_S' );
1428: END;
1429: ec_debug.pl ( 3, 'v_ORD_Key: ', v_ORD_Key );
1430:
1431: xProgress := 'GASNOB-10-1960';

Line 1445: GML_GASNO_X.populate_ORD_ext ( v_ORD_Key, v_ORD_Table );

1441: /* extension table. */
1442: /* */
1443:
1444: xProgress := 'GASNOB-10-1970';
1445: GML_GASNO_X.populate_ORD_ext ( v_ORD_Key, v_ORD_Table );
1446:
1447: /* */
1448: /* Execute the Charge/Allowance level SELECT statement. */
1449: /* */

Line 1512: GML_GASNO_X.populate_OAC_ext ( v_OAC_Key, v_OAC_Table );

1508: /* extension table. */
1509: /* */
1510:
1511: xProgress := 'GASNOB-10-2050';
1512: GML_GASNO_X.populate_OAC_ext ( v_OAC_Key, v_OAC_Table );
1513:
1514: END LOOP; /* while oac */
1515:
1516: xProgress := 'GASNOB-10-1730';

Line 1578: GML_GASNO_X.populate_OTX_ext ( v_OTX_Key, v_OTX_Table );

1574: /* extension table. */
1575: /* */
1576:
1577: xProgress := 'GASNOB-10-2130';
1578: GML_GASNO_X.populate_OTX_ext ( v_OTX_Key, v_OTX_Table );
1579:
1580: END LOOP; /* while otx */
1581:
1582:

Line 1648: SELECT GML_GASNO_DETAILS_S.nextval

1644: /* */
1645:
1646: xProgress := 'GASNOB-10-2190';
1647: BEGIN
1648: SELECT GML_GASNO_DETAILS_S.nextval
1649: INTO v_DTL_Key
1650: FROM sys.dual;
1651: EXCEPTION
1652: WHEN NO_DATA_FOUND THEN

Line 1659: 'GML_GASNO_DETAILS_S' );

1655: 'ECE_GET_NEXT_SEQ_FAILED',
1656: 'PROGRESS_LEVEL',
1657: xProgress,
1658: 'SEQ',
1659: 'GML_GASNO_DETAILS_S' );
1660: END;
1661: ec_debug.pl ( 3, 'v_DTL_Key: ', v_DTL_Key );
1662:
1663: xProgress := 'GASNOB-10-2200';

Line 1677: GML_GASNO_X.populate_DTL_ext ( v_DTL_Key, v_DTL_Table );

1673: /* extension table. */
1674: /* */
1675:
1676: xProgress := 'GASNOB-10-2210';
1677: GML_GASNO_X.populate_DTL_ext ( v_DTL_Key, v_DTL_Table );
1678:
1679: /* */
1680: /* Execute the Detail Charge/Allowance level SELECT statement. */
1681: /* */

Line 1747: GML_GASNO_X.populate_DAC_ext ( v_DAC_Key, v_DAC_Table );

1743: /* extension table. */
1744: /* */
1745:
1746: xProgress := 'GASNOB-10-2290';
1747: GML_GASNO_X.populate_DAC_ext ( v_DAC_Key, v_DAC_Table );
1748:
1749: END LOOP; /* while Dac */
1750:
1751: /* */

Line 1818: GML_GASNO_X.populate_DTX_ext ( v_DTX_Key, v_DTX_Table );

1814: /* extension table. */
1815: /* */
1816:
1817: xProgress := 'GASNOB-10-2370';
1818: GML_GASNO_X.populate_DTX_ext ( v_DTX_Key, v_DTX_Table );
1819:
1820: END LOOP; /* while dtx */
1821:
1822: /* */

Line 1890: GML_GASNO_X.populate_ALL_ext ( v_ALL_Key, v_ALL_Table );

1886: /* extension table. */
1887: /* */
1888:
1889: xProgress := 'GASNOB-10-2450';
1890: GML_GASNO_X.populate_ALL_ext ( v_ALL_Key, v_ALL_Table );
1891:
1892: END LOOP; /* while all */
1893:
1894: END LOOP; /* while dtl */

Line 1929: ec_debug.pop ( 'GML_GASNO.Populate_Interface_Tables' );

1925: dbms_sql.close_cursor ( v_DTX_Cursor );
1926: xProgress := 'GASNOB-10-2324';
1927: dbms_sql.close_cursor ( v_ALL_Cursor );
1928:
1929: ec_debug.pop ( 'GML_GASNO.Populate_Interface_Tables' );
1930:
1931: EXCEPTION
1932: WHEN OTHERS THEN
1933:

Line 2185: ec_debug.push ( 'GML_GASNO.Put_Data_To_Output_Table' );

2181: Debug statements for the parameter values.
2182:
2183: */
2184:
2185: ec_debug.push ( 'GML_GASNO.Put_Data_To_Output_Table' );
2186: ec_debug.pl ( 3, 'p_CommunicationMethod: ', p_CommunicationMethod );
2187: ec_debug.pl ( 3, 'p_TransactionType: ', p_TransactionType );
2188: ec_debug.pl ( 3, 'p_Orgn_Code: ', p_Orgn_Code );
2189: ec_debug.pl ( 3, 'p_BOL_No_From: ', p_BOL_No_From );

Line 4338: END GML_GASNO;

4334: app_exception.raise_exception;
4335:
4336: END Put_Data_To_Output_Table;
4337:
4338: END GML_GASNO;