DVBA2748 ;GT-CAPRI FULL ;10/10/02
;;2.7;AMIE;**48**;Apr 10, 1995
;
;This pre-install routine set file 396.1 fields (.11 and 9) to 999.
; 999 represent the number of days to keep data.
START ;
N VAR S VAR=""
I $D(^DVB(396.1,0)) D
. F S VAR=$O(^DVB(396.1,VAR)) Q:VAR="B" D
. . S $P(^DVB(396.1,VAR,0),"^",10)=999
. . S $P(^DVB(396.1,VAR,0),"^",11)=999
K VAR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA2748 384 printed Sep 23, 2025@19:15:36 Page 2
DVBA2748 ;GT-CAPRI FULL ;10/10/02
+1 ;;2.7;AMIE;**48**;Apr 10, 1995
+2 ;
+3 ;This pre-install routine set file 396.1 fields (.11 and 9) to 999.
+4 ; 999 represent the number of days to keep data.
START ;
+1 NEW VAR
SET VAR=""
+2 IF $DATA(^DVB(396.1,0))
Begin DoDot:1
+3 FOR
SET VAR=$ORDER(^DVB(396.1,VAR))
if VAR="B"
QUIT
Begin DoDot:2
+4 SET $PIECE(^DVB(396.1,VAR,0),"^",10)=999
+5 SET $PIECE(^DVB(396.1,VAR,0),"^",11)=999
End DoDot:2
End DoDot:1
+6 KILL VAR
+7 QUIT
