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
Q
;
;
;
;
;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVDEFP11 421 printed Nov 22, 2024@17:53:48 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 ;
