DECLARE CLIENT_CURS CURSOR FOR SELECT CLIENT_NUMBER, STREET_ADDRESS, STREET_ADDRESS2, CITY, ZIP_CODE, STATE, CLIENT_NAME, PRIMARY_CONTACT, ALTERNATE_CONTACT, PRODUCT_ID, PRODUCT_VERSION, BRANCH_MANAGER, ACCOUNT_REP, COUNTRY, PHONE, FAX FROM CLIENT_INFORMATION WHERE PRODUCT_ID LIKE :szClientProduct AND BRANCH_MANAGER LIKE :szBranch AND ZIP_CODE LIKE :szZip AND COUNTRY LIKE :szCountry AND STATE LIKE :szState AND CITY LIKE :szCity AND ACCOUNT_REP LIKE :szRep AND ALTERNATE_CONTACT LIKE :szAltContact AND PRIMARY_CONTACT LIKE :szPrimContact AND CLIENT_NAME LIKE :szClientName AND CLIENT_NUMBER LIKE :szClientNbr AND PRODUCT_VERSION LIKE :szVersion ORDER BY CLIENT_NUMBER
DECLARE TRACKER_CURS CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM FROM TRACKER_INFO WHERE (SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND COMMENTS LIKE :szComments AND PRODUCT_CODE = :szProduct) ORDER BY SI_TYPE, SI_NUMBER
DECLARE TRACKER_CURS2 CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM FROM TRACKER_INFO WHERE (SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND COMMENTS LIKE :szComments AND ECD >= :szECD_Begin AND ECD <= :szECD_End AND PRODUCT_CODE = :szProduct) ORDER BY SI_TYPE, SI_NUMBER
DECLARE TRACKER_CURS3 CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM FROM TRACKER_INFO WHERE (SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND COMMENTS LIKE :szComments AND CLOSE_DATE >= :szClose_Begin AND CLOSE_DATE <= :szClose_End AND PRODUCT_CODE = :szProduct) ORDER BY SI_TYPE, SI_NUMBER
DECLARE TRACKER_CURS4 CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM FROM TRACKER_INFO WHERE (SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND COMMENTS LIKE :szComments AND ASN_DATE >= :szASN_Begin AND ASN_DATE <= :szASN_End AND PRODUCT_CODE = :szProduct) ORDER BY SI_TYPE, SI_NUMBER
DECLARE TRACKER_CURS5 CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM FROM TRACKER_INFO WHERE (SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND COMMENTS LIKE :szComments AND ECD >= :szECD_Begin AND ECD <= :szECD_End AND CLOSE_DATE >= :szClose_Begin AND CLOSE_DATE <= :szClose_End AND PRODUCT_CODE = :szProduct) ORDER BY SI_TYPE, SI_NUMBER
DECLARE TRACKER_CURS6 CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM FROM TRACKER_INFO WHERE (SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND COMMENTS LIKE :szComments AND ECD >= :szECD_Begin AND ECD <= :szECD_End AND ASN_DATE >= :szASN_Begin AND ASN_DATE <= :szASN_End AND PRODUCT_CODE = :szProduct) ORDER BY SI_TYPE, SI_NUMBER
DECLARE TRACKER_CURS7 CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM FROM TRACKER_INFO WHERE (SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND COMMENTS LIKE :szComments AND CLOSE_DATE >= :szClose_Begin AND CLOSE_DATE <= :szClose_End AND ASN_DATE >= :szASN_Begin AND ASN_DATE <= :szASN_End AND PRODUCT_CODE = :szProduct) ORDER BY SI_TYPE, SI_NUMBER
DECLARE ASSIGN_SUM_CURS CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM, ASN_DATE, ECD FROM TRACKER_INFO WHERE (CLOSE_DATE = '01-01-0001' AND SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND PRODUCT_CODE = :szProduct) ORDER BY PROGRAMMER, LOB, SI_TYPE, SI_NUMBER, PRIORITY
DECLARE ASS_LOB_SUM_CURS CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM, ASN_DATE, ECD FROM TRACKER_INFO WHERE (CLOSE_DATE = '01-01-0001' AND SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND PRODUCT_CODE = :szProduct AND LOB LIKE :szLOB) ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
DECLARE CLOSURE_SUM_CURS CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM, CLOSE_DATE FROM TRACKER_INFO WHERE (CLOSE_DATE >= :szBegin_Date AND CLOSE_DATE <= :szEnd_Date AND SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND PRODUCT_CODE = :szProduct) ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
DECLARE OPEN_SUM_CURS CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM, CLOSE_DATE FROM TRACKER_INFO WHERE (CLOSE_DATE = '01-01-0001' AND SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PRODUCT_CODE = :szProduct) ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
SELECT MAX(MEMO_ITEM) INTO :sMemo_Item FROM TRACKER_MEMO WHERE ITEM = :sItem AND SI_TYPE = :szType AND SI_NUMBER = :szNumber AND PRODUCT_CODE = :szProduct
SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ECD, ASN_DATE, CLOSE_DATE INTO :szType, :szNumber, :szPriority, :szLOB, :szStatus, :szResource, :szComments, :szECD_Date:siECD_Date, :szASN_Date:siASN_Date, :szClose_Date:siClose_Date FROM TRACKER_INFO WHERE ITEM = :sItem AND PRODUCT_CODE = :szProduct
SELECT MAX(MEMO_ITEM) INTO :sMemoCounter FROM TRACKER_MEMO WHERE ITEM = :sItem AND SI_TYPE = :szType AND SI_NUMBER = :szNumber AND PRODUCT_CODE = :szProduct
DECLARE PRODUCT CURSOR FOR SELECT PRODUCT FROM PRODUCT_CODE ORDER BY PRODUCT
DECLARE TYPE CURSOR FOR SELECT TYPE_TXT FROM TYPE ORDER BY TYPE_TXT
DECLARE LOB CURSOR FOR SELECT LOB_TXT FROM LOB ORDER BY LOB_TXT
DECLARE STATUS CURSOR FOR SELECT STATUS_TXT FROM STATUS ORDER BY STATUS_TXT
OPEN TYPE
OPEN LOB
OPEN STATUS
OPEN PRODUCT
FETCH PRODUCT INTO :szData
FETCH TYPE INTO :szData
FETCH LOB INTO :szData
FETCH STATUS INTO :szData
CLOSE TYPE
CLOSE LOB
CLOSE STATUS
CLOSE PRODUCT
DECLARE ASSIGN_CURS CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM, ASN_DATE, ECD FROM TRACKER_INFO WHERE (CLOSE_DATE = '01-01-0001' AND SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND PRODUCT_CODE = :szProduct) ORDER BY PROGRAMMER, SI_TYPE, SI_NUMBER, LOB, PRIORITY
DECLARE ASSIGN_LOB_CURS CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM, ASN_DATE, ECD FROM TRACKER_INFO WHERE (CLOSE_DATE = '01-01-0001' AND SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND PRODUCT_CODE = :szProduct AND LOB LIKE :szLOB) ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
SELECT LOB_NAME INTO :szLOB_Name FROM LOB WHERE LOB_TXT = :szLOB_Tmp AND PRODUCT_CODE = :szProduct
SELECT LOB_NAME INTO :szLOB_Name FROM LOB WHERE LOB_TXT = :szLOB_Tmp AND PRODUCT_CODE = :szProduct
CLOSE ASSIGN_LOB_CURS
DECLARE CLOSURE_CURS CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM, CLOSE_DATE FROM TRACKER_INFO WHERE (CLOSE_DATE >= :szBegin_Date AND CLOSE_DATE <= :szEnd_Date AND SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PROGRAMMER LIKE :szResource AND PRODUCT_CODE = :szProduct) ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
SELECT LOB_NAME INTO :szLOB_Name FROM LOB WHERE LOB_TXT = :szLOB_Tmp AND PRODUCT_CODE = :szProduct
SELECT LOB_NAME INTO :szLOB_Name FROM LOB WHERE LOB_TXT = :szLOB_Tmp AND PRODUCT_CODE = :szProduct
CLOSE CLOSURE_CURS
DECLARE OPEN_CURS CURSOR FOR SELECT SI_TYPE, SI_NUMBER, PRIORITY, LOB, STATUS, PROGRAMMER, COMMENTS, ITEM, CLOSE_DATE FROM TRACKER_INFO WHERE (CLOSE_DATE = '01-01-0001' AND SI_TYPE LIKE :szType AND SI_NUMBER LIKE :szNumber AND PRIORITY LIKE :szPriority AND LOB LIKE :szLOB AND STATUS LIKE :szStatus AND PRODUCT_CODE = :szProduct) ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
SELECT LOB_NAME INTO :szLOB_Name FROM LOB WHERE LOB_TXT = :szLOB_Tmp AND PRODUCT_CODE = :szProduct
SELECT LOB_NAME INTO :szLOB_Name FROM LOB WHERE LOB_TXT = :szLOB_Tmp AND PRODUCT_CODE = :szProduct
CLOSE OPEN_CURS
DECLARE MEMO_CURS CURSOR FOR SELECT MEMO_ITEM, NAME_TO, MEMO_DATE, SUBJECT FROM TRACKER_MEMO WHERE ITEM = :sItem AND SI_TYPE = :szType AND SI_NUMBER = :szNumber AND PRODUCT_CODE = :szProduct ORDER BY MEMO_ITEM
OPEN MEMO_CURS
FETCH MEMO_CURS INTO :sMemo_Item, :szMemo_To, :szMemo_Date, :szMemo_Subject
CLOSE MEMO_CURS
SELECT SI_TYPE, SI_NUMBER, ITEM, NAME_TO, NAME_FROM, SUBJECT, MEMO_TEXT, MEMO_DATE, MEMO_ITEM, PRODUCT_CODE INTO :szType, :szNumber, :sItem, :szMemo_To, :szMemo_From, :szMemo_Subject, :szMemo_Text, :szMemo_Date, :sMemo_Item, :szProduct FROM TRACKER_MEMO WHERE ITEM = :sItem AND SI_TYPE = :szType AND SI_NUMBER = :szNumber AND PRODUCT_CODE = :szProduct AND MEMO_ITEM = :sMemo_Item
UPDATE TRACKER_MEMO SET SI_TYPE = :szType, SI_NUMBER = :szNumber, NAME_TO = :szMemo_To, NAME_FROM = :szMemo_From, SUBJECT = :szMemo_Subject, MEMO_TEXT = :szMemo_Text, MEMO_DATE = :szMemo_Date, PRODUCT_CODE = :szProduct WHERE ITEM = :sItem AND SI_TYPE = :szType AND SI_NUMBER = :szNumber AND MEMO_ITEM = :sMemo_Item AND PRODUCT_CODE = :szProduct
COMMIT
DELETE FROM TRACKER_MEMO WHERE ITEM = :sItem AND SI_TYPE = :szType AND SI_NUMBER = :szNumber AND MEMO_ITEM = :sMemo_Item AND PRODUCT_CODE = :szProduct
COMMIT
SELECT MEMO_DATE INTO :szMemo_Date FROM TRACKER_MEMO WHERE ITEM = :sItem AND SI_TYPE = :szType AND SI_NUMBER = :szNumber AND PRODUCT_CODE = :szProduct AND MEMO_ITEM = :sMemo_Item