COMPILE ROUTINE TEST_OBJ_NOTES(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, ErrMsg
DECLARE FUNCTION Get_Status, obj_Notes

$INSERT NOTIFICATION_EQU


Set_Status(0)

debug

OrderNo = 50298
ItemNo = 1


Recipients		= 'BRYCE_BARB':@VM:'DAVID_KL'
SentFrom		= 'DAVID_KL'
Subject			= 'Expected Wafers Quantity Change ':OrderNo:'*':ItemNo
Message			= 'Expected Wafer Quantity was changed on this order item.'

Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message
obj_Notes('EMail',Parms)

IF Get_Status(errCode) THEN
	ErrMsg(errCode)
END

GOTO Bail

/*
Recipients		= Parms[1,@RM]
SentFrom		= Parms[COL2()+1,@RM]
Subject			= Parms[COL2()+1,@RM]
Message			= Parms[COL2()+1,@RM]
AttachWindow	= Parms[COL2()+1,@RM]
AttachKeys		= Parms[COL2()+1,@RM]
SendToGroup		= Parms[COL2()+1,@RM]
*/

Parms = 'DAVID_KL':@RM:'TESTING':@RM:'Test Subject':@RM:'Yes the subject is testing'
obj_Notes('ForwardEMail','')

IF Get_Status(errCode) THEN debug




* * * * * * *
Bail:
* * * * * * *

RETURN

