- LRDIED ; IHS/DIR/FJE - EDIT 8/5/87 10:38 ;
- ;;5.2;LR;;NOV 01, 1997
- ;
- ;;5.2;LAB SERVICE;;Sep 27, 1994
- RW ;
- S DG=Y I $D(DTIME)[0 S DTIME=99999
- L W:$X>50 ! R " Replace ",X:DTIME G D:X="",Q:X?1"^".E,Q:X?."?",Q:X="@",E:X="END"!(X="end")
- I Y[X S D=X D H G D:'$T S Y=$P(Y,D,1)_X_$P(Y,D,2,999) G L
- S D=$P(X,"...",1),DH=$F(Y,D) I DH S X=$P(X,"...",2,99),X=$S(X="":999,1:$F(Y,X,DH)) I X S DH=DH-$L(D)-1,D=X D H I S Y=$E(Y,1,DH)_X_$E(Y,D,999) G L
- W $C(7)," ??" G L
- H R " With ",X:DTIME Q:X?.ANP W $C(7),"??" G H
- E D H I S Y=Y_X G L
- D W:'$T $C(7) I DG'=Y S X=Y W !?3 W X I X="" S X="@"
- Q Q
- LRDIED ; IHS/DIR/FJE - EDIT 8/5/87 10:38 ;
- +1 ;;5.2;LR;;NOV 01, 1997
- +2 ;
- +3 ;;5.2;LAB SERVICE;;Sep 27, 1994
- RW ;
- +1 SET DG=Y
- IF $DATA(DTIME)[0
- SET DTIME=99999
- L IF $X>50
- WRITE !
- READ " Replace ",X:DTIME
- IF X=""
- GOTO D
- IF X?1"^".E
- GOTO Q
- IF X?."?"
- GOTO Q
- IF X="@"
- GOTO Q
- IF X="END"!(X="end")
- GOTO E
- +1 IF Y[X
- SET D=X
- DO H
- IF '$TEST
- GOTO D
- SET Y=$PIECE(Y,D,1)_X_$PIECE(Y,D,2,999)
- GOTO L
- +2 SET D=$PIECE(X,"...",1)
- SET DH=$FIND(Y,D)
- IF DH
- SET X=$PIECE(X,"...",2,99)
- SET X=$SELECT(X="":999,1:$FIND(Y,X,DH))
- IF X
- SET DH=DH-$LENGTH(D)-1
- SET D=X
- DO H
- IF $TEST
- SET Y=$EXTRACT(Y,1,DH)_X_$EXTRACT(Y,D,999)
- GOTO L
- +3 WRITE $CHAR(7)," ??"
- GOTO L
- H READ " With ",X:DTIME
- IF X?.ANP
- QUIT
- WRITE $CHAR(7),"??"
- GOTO H
- E DO H
- IF $TEST
- SET Y=Y_X
- GOTO L
- D IF '$TEST
- WRITE $CHAR(7)
- IF DG'=Y
- SET X=Y
- WRITE !?3
- WRITE X
- IF X=""
- SET X="@"
- Q QUIT
