Return to DITC3.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DITC3.m, revision 1.1

1.1     ! snw         1: DITC3  ;SFISC/XAK-COMPARE FILE ENTRIES ;9/17/91  3:12 PM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        F I=1:1:(IOSL-$Y-1) W !
        !             5:        W "Enter RETURN to continue: " R X:DTIME S:'$T DTOUT=1
        !             6: ASK    Q:$D(DTOUT)  K DUOUT,DIRUT W @IOF,!,"OK.  I'M READY TO DO THE MERGE."
        !             7:        S DIR(0)="S^P:PROCEED to merge the data;S:SUMMARIZE the modifications before proceeding;E:EDIT the data again before proceeding"
        !             8:        S DIR("A")="ACTION" D ^DIR K DIR
        !             9:        Q:$D(DIRUT)  I Y="E" D ^DITC2 Q:$D(DTOUT)  G ASK:X=U,DITC3:$D(^UTILITY($J,"DIT",U)),ASK
        !            10:        S DIACT=Y,DNUM=0 D ACT Q:DIACT="P"  G:$D(DIRUT) ASK G DITC3
        !            11: ACT    ;
        !            12:        I DIACT="S" D SUMHD
        !            13:        S DIT1="" F K=0:0 Q:$D(DTOUT)  S DIT1=$O(^UTILITY($J,"DIT",DIT1)) Q:DIT1=""  S DIT2="" F K=0:0 Q:$D(DTOUT)  S DIT2=$O(^UTILITY($J,"DIT",DIT1,DIT2)) Q:DIT2=""  S X(0)=^(DIT2,0),%=$P(X(0),U,3) I %,DDEF'=% D EACH
        !            14:        W !!,?2,"NOTE: Multiples will be merged into the target record"
        !            15:        K DIT1,DIT2 Q
        !            16: EACH   ;
        !            17:        I DIACT="S" G SUMEACH
        !            18:        S DIE=DFF(1),DA=$P(DIT(DDEF),","),X2=$S($D(^UTILITY($J,"DITI",DIT1,DIT2,%)):^(%),'$D(^UTILITY($J,"DIT",DIT1,DIT2,%)):"@",1:^(%))
        !            19:        S DR=+X(0)_"///"_X2 D ^DIE W "."
        !            20:        K DR,DIE Q
        !            21: SUMHD  ;
        !            22:        W @IOF,!,"SUMMARY OF MODIFICATIONS TO ",$P(DHD(DFL),U,DDEF),!,"FIELD",?DV,$S(DDEF=1:"OLD",1:"NEW")," VALUE",?(DV*2),$S(DDEF=1:"NEW",1:"OLD")," VALUE",!,DDSH
        !            23:        Q
        !            24: SUMEACH        ;
        !            25:        I $Y+5>IOSL K DIR S DIR(0)="E" D ^DIR K DIR Q:$D(DIRUT)  D SUMHD
        !            26:        K D S X2="",X(0)=$P(X(0),U,2) F I=1:1:2 S X(I)=$S($D(^UTILITY($J,"DIT",DIT1,DIT2,I)):^(I),1:"")
        !            27:        D D20^DITC2
        !            28:        Q