! APPL_delete.scp
! written 2-4-88 A.D. Hull - DEC

	.IF $THEKEY EQS "" THEN .GOTO NO_CURRENT_ITEM

	 YESNO_PROMPT\OA$FLD_STAY
	.IF OA$PROMPT_TEXT EQS 'Y' THEN -
	 FORM appl_entry/MODE=DELETE/ONE_ENTRY/SAVE_START="$APPL_FLD1,$APPL_FLD2,$APPL_FLD3" -
	\IFEXIT\GET $APPL_FLD1=$APPL_FLD2=$APPL_FLD3=$APPL_FLD4=$THEKEY="" -
	\display APPL Item has been deleted
	.exit

.label no_current_item

 	DISPLAY APPL Item must be SELected to delete it\FORCE 
	.exit