PROCEDURE (HIDDEN) rap$validate_packing_list_name (
  packing_list_name, pln: string 0..$max_name = $required
  require_user_acknowledgement, rua: boolean = $required
  packing_list_name_valid, plnv: (VAR) boolean = $required
  )

*IF $variable(rav$proc_doc,declared)<>'UNKNOWN'

" PURPOSE:
"   This procedure validates that the packing list name given is non blank.
" NOTES:
*IFEND

  "$FORMAT=OFF
  VAR
    ignore_status: status
  VAREND
"$FORMAT=ON

  packing_list_name_valid = true
validate_block: ..
  BLOCK

    IF packing_list_name = '' THEN
      packing_list_name_valid = false
      rap$display_message mm=initiation_messages mn=no_setit_command t=$response status=ignore_status
      IF require_user_acknowledgement THEN
        rap$press_next
      IFEND
      EXIT validate_block
    IFEND

  BLOCKEND validate_block

PROCEND rap$validate_packing_list_name
