! appl_create.scp
!	A.D. Hull - DEC -   16-JUN-1988
!

.label get_record

	form appl_sel arg/reset/clear/highlight/fields=FLD1,FLD2,FLD3
	.if oa$form_dispose == 0 then .goto finis
	get #FLD1_tmp = FLD1 
	get #FLD2_tmp = FLD2
	get #FLD3_tmp = FLD3
	get #THEkey = FLD1:N FLD2:N FLD3:N
	.if appl_ENTRY.%key[#THEkey] == '' then get #CREATE_MODE = 'ADD' -
		else get  #CREATE_MODE = 'CHANGE'

	close prior
	.if #CREATE_MODE eqs 'ADD' then .goto add
	.if #CREATE_MODE eqs 'CHANGE' then .goto change

.label add

	
	FORM appl_ENTRY /mode=ADD/SAVE_START="#FLD1_tmp,#FLD2_tmp,#FLD3_tmp"

	IFEXIT -
	\GET $THEKEY = $APPL_FLD1:n $APPL_FLD2:n $APPL_FLD3:n -
	\GET $APPL_FLD4 = appl_ENTRY.FLD4[$THEKEY] 

	.goto finis


.label change

	FORM appl_ENTRY/mode=CHANGE/SAVE_START="#FLD1_tmp,#FLD2_tmp,#FLD3_tmp"

	IFEXIT -
	\GET $THEKEY = $APPL_FLD1:n $APPL_FLD2:n $APPL_FLD3:n -
	\GET $APPL_FLD4 = appl_ENTRY.FLD4[$THEKEY] 

	.goto finis


.label finis
	.exit