PROMPT Creating API Package Specification for Table 'CUSTOMERS' -------------------------------------------------------------------------------- -- Name: cg$CUSTOMERS -- Description: CUSTOMERS table API package declarations -------------------------------------------------------------------------------- CREATE OR REPLACE PACKAGE cg$CUSTOMERS IS called_from_package BOOLEAN := FALSE; -- Repository User-Defined Error Messages CUST_PK CONSTANT VARCHAR2(240) := ''; CUST_NAME_UK CONSTANT VARCHAR2(240) := ''; CUST_CODE_UK CONSTANT VARCHAR2(240) := ''; CUST_CUTY_FK CONSTANT VARCHAR2(240) := ''; CUST_SYUS_FK CONSTANT VARCHAR2(240) := ''; -- Column default prompts. Format PSEQNO_COL P100CREATED_BY CONSTANT VARCHAR2(240) := 'Created By'; P10CUST_ID CONSTANT VARCHAR2(240) := 'Cust Id'; P20CODE CONSTANT VARCHAR2(240) := 'Code'; P30NAME CONSTANT VARCHAR2(240) := 'Name'; P40PERIOD_START CONSTANT VARCHAR2(240) := 'Period Start'; P50DESCRIPTION CONSTANT VARCHAR2(240) := 'Description'; P60PERIOD_END CONSTANT VARCHAR2(240) := 'Period End'; P70EMAIL_ADDRESS CONSTANT VARCHAR2(240) := 'Email Address'; P80TELEPHONE CONSTANT VARCHAR2(240) := 'Telephone'; P90FAX CONSTANT VARCHAR2(240) := 'Fax'; P110CREATED_ON CONSTANT VARCHAR2(240) := 'Created On'; P120UPDATED_BY CONSTANT VARCHAR2(240) := 'Updated By'; P130UPDATED_ON CONSTANT VARCHAR2(240) := 'Updated On'; P140CUTY_ID CONSTANT VARCHAR2(240) := 'Cuty Id'; P150PRIMARY_CONTACT CONSTANT VARCHAR2(240) := 'Primary Contact'; P160PRIMARY_CONTACT_TEL CONSTANT VARCHAR2(240) := 'Primary Contact Tel'; P170KAM_MANAGER_SYUS_ID CONSTANT VARCHAR2(240) := 'Kam Manager'; P180KAM_TELEPHONE CONSTANT VARCHAR2(240) := 'Kam Telephone'; P190STATUS CONSTANT VARCHAR2(240) := 'Status'; P200NOM_CONF_SUBJECT CONSTANT VARCHAR2(240) := 'Letter Subject'; P210NOM_CONF_CONTENT CONSTANT VARCHAR2(240) := 'Letter Content'; P220COM_CONF_SUBJECT CONSTANT VARCHAR2(240) := 'Confirmation Header'; P230COM_CONF_CONTENT CONSTANT VARCHAR2(240) := 'Confirmation Address'; P250AUTO_GEN_CONF_AM CONSTANT VARCHAR2(240) := 'Auto Gen Conf Am'; P260AUTO_GEN_CONF_PM CONSTANT VARCHAR2(240) := 'Auto Gen Conf Pm'; P270IND_DEADLINE_FOR_NOM_SUBMI CONSTANT VARCHAR2(240) := 'Ind Deadline For Nom Submit'; cg$row CUSTOMERS%ROWTYPE; -- CUSTOMERS row type variable TYPE cg$row_type IS RECORD (CREATED_BY cg$row.CREATED_BY%TYPE ,CUST_ID cg$row.CUST_ID%TYPE ,CODE cg$row.CODE%TYPE ,NAME cg$row.NAME%TYPE ,PERIOD_START cg$row.PERIOD_START%TYPE ,DESCRIPTION cg$row.DESCRIPTION%TYPE ,PERIOD_END cg$row.PERIOD_END%TYPE ,EMAIL_ADDRESS cg$row.EMAIL_ADDRESS%TYPE ,TELEPHONE cg$row.TELEPHONE%TYPE ,FAX cg$row.FAX%TYPE ,CREATED_ON cg$row.CREATED_ON%TYPE ,UPDATED_BY cg$row.UPDATED_BY%TYPE ,UPDATED_ON cg$row.UPDATED_ON%TYPE ,CUTY_ID cg$row.CUTY_ID%TYPE ,PRIMARY_CONTACT cg$row.PRIMARY_CONTACT%TYPE ,PRIMARY_CONTACT_TEL cg$row.PRIMARY_CONTACT_TEL%TYPE ,KAM_MANAGER_SYUS_ID cg$row.KAM_MANAGER_SYUS_ID%TYPE ,KAM_TELEPHONE cg$row.KAM_TELEPHONE%TYPE ,STATUS cg$row.STATUS%TYPE ,NOM_CONF_SUBJECT cg$row.NOM_CONF_SUBJECT%TYPE ,NOM_CONF_CONTENT cg$row.NOM_CONF_CONTENT%TYPE ,COM_CONF_SUBJECT cg$row.COM_CONF_SUBJECT%TYPE ,COM_CONF_CONTENT cg$row.COM_CONF_CONTENT%TYPE ,AUTO_GEN_CONF_AM cg$row.AUTO_GEN_CONF_AM%TYPE ,AUTO_GEN_CONF_PM cg$row.AUTO_GEN_CONF_PM%TYPE ,IND_DEADLINE_FOR_NOM_SUBMIT cg$row.IND_DEADLINE_FOR_NOM_SUBMIT%TYPE ,the_rowid ROWID) ; -- CUSTOMERS indicator type variable TYPE cg$ind_type IS RECORD (CREATED_BY BOOLEAN DEFAULT FALSE ,CUST_ID BOOLEAN DEFAULT FALSE ,CODE BOOLEAN DEFAULT FALSE ,NAME BOOLEAN DEFAULT FALSE ,PERIOD_START BOOLEAN DEFAULT FALSE ,DESCRIPTION BOOLEAN DEFAULT FALSE ,PERIOD_END BOOLEAN DEFAULT FALSE ,EMAIL_ADDRESS BOOLEAN DEFAULT FALSE ,TELEPHONE BOOLEAN DEFAULT FALSE ,FAX BOOLEAN DEFAULT FALSE ,CREATED_ON BOOLEAN DEFAULT FALSE ,UPDATED_BY BOOLEAN DEFAULT FALSE ,UPDATED_ON BOOLEAN DEFAULT FALSE ,CUTY_ID BOOLEAN DEFAULT FALSE ,PRIMARY_CONTACT BOOLEAN DEFAULT FALSE ,PRIMARY_CONTACT_TEL BOOLEAN DEFAULT FALSE ,KAM_MANAGER_SYUS_ID BOOLEAN DEFAULT FALSE ,KAM_TELEPHONE BOOLEAN DEFAULT FALSE ,STATUS BOOLEAN DEFAULT FALSE ,NOM_CONF_SUBJECT BOOLEAN DEFAULT FALSE ,NOM_CONF_CONTENT BOOLEAN DEFAULT FALSE ,COM_CONF_SUBJECT BOOLEAN DEFAULT FALSE ,COM_CONF_CONTENT BOOLEAN DEFAULT FALSE ,AUTO_GEN_CONF_AM BOOLEAN DEFAULT FALSE ,AUTO_GEN_CONF_PM BOOLEAN DEFAULT FALSE ,IND_DEADLINE_FOR_NOM_SUBMIT BOOLEAN DEFAULT FALSE); cg$ind_true cg$ind_type; -- CUSTOMERS primary key type variable TYPE cg$pk_type IS RECORD (CUST_ID cg$row.CUST_ID%TYPE ,the_rowid ROWID) ; -- PL/SQL Table Type variable for triggers TYPE cg$table_type IS TABLE OF CUSTOMERS%ROWTYPE INDEX BY BINARY_INTEGER; cg$table cg$table_type; TYPE cg$tableind_type IS TABLE OF cg$ind_type INDEX BY BINARY_INTEGER; cg$tableind cg$tableind_type; idx BINARY_INTEGER := 1; PROCEDURE ins(cg$rec IN OUT cg$row_type, cg$ind IN OUT cg$ind_type, do_ins IN BOOLEAN DEFAULT TRUE ); PROCEDURE upd(cg$rec IN OUT cg$row_type, cg$ind IN OUT cg$ind_type, do_upd IN BOOLEAN DEFAULT TRUE, cg$pk IN cg$row_type DEFAULT NULL ); PROCEDURE del(cg$pk IN cg$pk_type, do_del IN BOOLEAN DEFAULT TRUE ); PROCEDURE lck(cg$old_rec IN cg$row_type, cg$old_ind IN cg$ind_type, nowait_flag IN BOOLEAN DEFAULT TRUE ); PROCEDURE slct(cg$sel_rec IN OUT cg$row_type); PROCEDURE validate_arc(cg$rec IN OUT cg$row_type); PROCEDURE validate_domain(cg$rec IN OUT cg$row_type, cg$ind IN cg$ind_type DEFAULT cg$ind_true); PROCEDURE validate_foreign_keys_ins(cg$rec IN cg$row_type); PROCEDURE validate_foreign_keys_upd(cg$rec IN cg$row_type, cg$old_rec IN cg$row_type, cg$ind IN cg$ind_type); PROCEDURE validate_foreign_keys_del(cg$rec IN cg$row_type); PROCEDURE validate_domain_cascade_delete(cg$old_rec IN cg$row_type); PROCEDURE validate_domain_cascade_update(cg$old_rec IN cg$row_type); PROCEDURE cascade_update(cg$new_rec IN OUT cg$row_type, cg$old_rec IN cg$row_type ); PROCEDURE domain_cascade_update(cg$new_rec IN OUT cg$row_type, cg$new_ind IN OUT cg$ind_type, cg$old_rec IN cg$row_type); PROCEDURE domain_cascade_upd( cg$rec IN OUT cg$row_type, cg$ind IN OUT cg$ind_type, cg$old_rec IN cg$row_type); PROCEDURE cascade_delete(cg$old_rec IN OUT cg$row_type); PROCEDURE domain_cascade_delete(cg$old_rec IN cg$row_type); PROCEDURE upd_denorm2( cg$rec IN cg$row_type, cg$ind IN cg$ind_type ); PROCEDURE upd_oper_denorm2( cg$rec IN cg$row_type, cg$old_rec IN cg$row_type, cg$ind IN cg$ind_type, operation IN VARCHAR2 DEFAULT 'UPD' ); END cg$CUSTOMERS; /