Routine: VDEFP11

VDEFP11 ;ALB/CJM - VDEF Patch Post Install ;01/26/2012

 ;;1.0;VDEF;**11**;Dec 28, 2004;Build 9

 ;Per VHA Directive 2004-038, this routine should not be modified.

POST ;

 N QUEUE,TIME

 S QUEUE=0

 S TIME=60*60*24*30 ;archive time in seconds = 30 days

 F  S QUEUE=$O(^VDEFHL7(579.3,QUEUE)) Q:'QUEUE  S:$P($G(^VDEFHL7(579.3,QUEUE,0)),"^",4)<TIME $P(^VDEFHL7(579.3,QUEUE,0),"^",4)=TIME

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVDEFP11   421     printed  Apr 23, 2025@18:58:25                                                                                                                                                                                                      Page 2

VDEFP11   ;ALB/CJM - VDEF Patch Post Install ;01/26/2012

 +1       ;;1.0;VDEF;**11**;Dec 28, 2004;Build 9

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

POST      ;

 +1        NEW QUEUE,TIME

 +2        SET QUEUE=0

 +3       ;archive time in seconds = 30 days

           SET TIME=60*60*24*30

 +4        FOR

               SET QUEUE=$ORDER(^VDEFHL7(579.3,QUEUE))

               if 'QUEUE

                   QUIT

               if $PIECE($GET(^VDEFHL7(579.3,QUEUE,0)),"^",4)<TIME

                   SET $PIECE(^VDEFHL7(579.3,QUEUE,0),"^",4)=TIME

 +5        QUIT

 +6       ;

 +7       ;

 +8       ;

 +9       ;

 +10      ;

 +11      ;

VDEFP11.m