--- freem/mlib/%ZMAINT.m 2025/03/09 15:20:18 1.2 +++ freem/mlib/%ZMAINT.m 2025/03/10 00:38:15 1.3 @@ -1,25 +1,13 @@ %ZMAINT ;VCL/JPW-SSV MAINTENANCE ROUTINE; 10/23/2020 6:55 PM ;0.0;FreeM;****FREEM**;Serena Willis @2020 ; - ; * - ; * * - ; * * - ; *************** - ; * * * * - ; * MUMPS * - ; * * * * - ; *************** - ; * * - ; * * - ; * - ; - ; %ZMAINT.m + ; $Id: %ZMAINT.m,v 1.3 2025/03/10 00:38:15 snw Exp $ ; FreeM SSV Maintenance Routine ; ; ; Author: Serena Willis ; Copyright (C) 1998 MUG Deutschland - ; Copyright (C) 2020 Coherent Logic Development LLC + ; Copyright (C) 2020, 2025 Coherent Logic Development LLC ; ; ; This file is part of FreeM. @@ -37,6 +25,12 @@ ; You should have received a copy of the GNU Affero Public License ; along with FreeM. If not, see . ; + ; $Log: %ZMAINT.m,v $ + ; Revision 1.3 2025/03/10 00:38:15 snw + ; Phase 3 of REUSE compliance and header reformatting + ; ; + ; SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC + ; SPDX-License-Identifier: AGPL-3.0-or-later N PID,PD S (PID,PD)="" F S PID=$O(^$JOB(PID)) Q:PID="" I '^$ZPROCESS(PID,"EXISTS") K ^$JOB(PID) Q