DVBAB91 ;GT-CAPRI FULL ;05/08/02
;;2.7;AMIE;**44**;Apr 10, 1995
;
;
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)=""
. . S $P(^DVB(396.1,VAR,0),"^",11)=""
K VAR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAB91 263 printed Nov 22, 2024@16:50:55 Page 2
DVBAB91 ;GT-CAPRI FULL ;05/08/02
+1 ;;2.7;AMIE;**44**;Apr 10, 1995
+2 ;
+3 ;
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)=""
+5 SET $PIECE(^DVB(396.1,VAR,0),"^",11)=""
End DoDot:2
End DoDot:1
+6 KILL VAR
+7 QUIT
