?? RIGHT := 110 ??
?? NEWTITLE := 'PACKAGE_SOFTWARE Utility: QUIT Subcommand.' ??
MODULE ram$quit_pacs;

{ PURPOSE:
{   This module contains the procedure to end the package software
{   utility session.
{
{ DESIGN:
{   The compiled module resides in RAF$LIBRARY.
{
{ NOTES:
{

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc clp$end_scan_command_file
*copyc clp$scan_parameter_list
?? POP ??
*copyc rav$pacs_utility_name

?? TITLE := 'Global Declarations Declared by This Module', EJECT ??

?? TITLE := '[XDCL] rap$quit_pacs', EJECT ??

  PROCEDURE [XDCL] rap$quit_pacs
    (    parameter_list: clt$parameter_list;
     VAR status: ost$status);

{ pdt quit_pacs_pdt (
{   status : var of status = $optional
{   )

?? PUSH (LISTEXT := ON) ??

  VAR
    quit_pacs_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [^quit_pacs_pdt_names,
      ^quit_pacs_pdt_params];

  VAR
    quit_pacs_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 1] of
      clt$parameter_name_descriptor := [['STATUS', 1]];

  VAR
    quit_pacs_pdt_params: [STATIC, READ, cls$pdt_parameters] array [1 .. 1] of clt$parameter_descriptor := [

{ STATUS }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$variable_reference,
      clc$array_not_allowed, clc$status_value]]];

?? POP ??


    status.normal := TRUE;

    clp$scan_parameter_list (parameter_list, quit_pacs_pdt, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

    clp$end_scan_command_file (rav$pacs_utility_name, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

  PROCEND rap$quit_pacs;
MODEND ram$quit_pacs;
