freem/mlib/%ZMAINT.m - diff

Return to %ZMAINT.m CVS log

Up to [Coherent Logic Development] / freem / mlib

version 1.1.1.1, 2025/01/19 02:04:04	version 1.3, 2025/03/10 00:38:15
Line 1	Line 1
%ZMAINT ;VCL/JPW-SSV MAINTENANCE ROUTINE; 10/23/2020 6:55 PM	%ZMAINT ;VCL/JPW-SSV MAINTENANCE ROUTINE; 10/23/2020 6:55 PM
;0.0;FreeM;**FREEM;John P Willis @2020	;0.0;FreeM;**FREEM;Serena Willis @2020
;	;
; *	; $Id$
; * *
; * *
; ***************
; * * * *
; * MUMPS *
; * * * *
; ***************
; * *
; * *
; *
;
; %ZMAINT.m
; FreeM SSV Maintenance Routine	; FreeM SSV Maintenance Routine
;	;
;	;
; Author: John P. Willis <jpw@coherent-logic.com>	; Author: Serena Willis <jpw@coherent-logic.com>
; Copyright (C) 1998 MUG Deutschland	; 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.	; This file is part of FreeM.
Line 37	Line 25
; You should have received a copy of the GNU Affero Public License	; You should have received a copy of the GNU Affero Public License
; along with FreeM. If not, see <https://www.gnu.org/licenses/>.	; along with FreeM. If not, see <https://www.gnu.org/licenses/>.
;	;
	; $Log$
	; 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)	N PID,PD S (PID,PD)="" F S PID=$O(^$JOB(PID)) Q:PID="" I '^$ZPROCESS(PID,"EXISTS") K ^$JOB(PID)
Q	Q