added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_NOTES.txt

@@ -0,0 +1,54 @@
+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