Return to DITC0.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DITC0.m, revision 1.1

1.1     ! snw         1: DITC0  ;SFISC/XAK-COMPARE FILE ENTRIES ;12/3/90  12:38
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        ;
        !             5:        ; Mandatory INPUT VARIABLES using entry point EN:
        !             6:        ; DFF ...... File or subfile number
        !             7:        ; DIT(1) ... Internal number of first entry
        !             8:        ; DIT(2) ... Internal number of second entry
        !             9:        ;
        !            10:        ; Optional INPUT VARIABLES using entry point EN:
        !            11:        ; DIMERGE ..... If defined, allows for merge; if not, does compare only
        !            12:        ; DDSP ..... If defined, writes 'wait messages and dots' to the screen
        !            13:        ; DDIF ..... If undefined displays all fields
        !            14:        ; DDIF=1: displays discrepant only
        !            15:        ; DDIF=2: displays discrepant and missing as well
        !            16:        ; DDEF ..... Entry # (1 or 2) from which to take default values.
        !            17: ERREND ;
        !            18:        S DMSG=$P($T(ERRTXT+DMSG),";; ",2)_": "_DMSG(1) W !,DMSG
        !            19:        G END^DITC
        !            20:        Q
        !            21: ERRTXT ;;
        !            22:        ;; Undefined INPUT VARIABLE
        !            23:        ;; Null INPUT VARIABLE
        !            24:        ;; Nonexistent FILE
        !            25:        ;; Incorrect INPUT VARIABLE specification
        !            26: HELP   ;;
        !            27:        W ! F I=1:1 S J=$P($T(@("HTXT"_DMSG)+I),";; ",2) Q:'$L(J)  W !,J
        !            28:        Q
        !            29: HTXT1  ;;
        !            30:        ;; Enter a 'N' if you wish only to compare and display the two
        !            31:        ;; entries.  Enter a 'Y' if you wish to choose valid fields from each
        !            32:        ;; entry and eventually do a merge into record selected for default.
        !            33: HTXT2  ;;
        !            34:        ;; Enter a 'N' if you wish to display all of the fields in each entry.
        !            35:        ;; Enter a 'Y' if you wish to display only those fields which differ.
        !            36: HTXT3  ;;
        !            37:        ;; On merging, the default field value can be taken from entry #1 or #2.
        !            38:        ;; You will later have the opportunity to modify this default selection
        !            39:        ;; on a field by field basis.  Please note that the two records will
        !            40:        ;; always be merged into the record selected as the default selection.
        !            41: HTXT4  ;;
        !            42:        ;; When the two entries are compared, all top level fields are displayed
        !            43:        ;; and a summary for multiple level fields are displayed. If you also wish to
        !            44:        ;; see a detailed comparison on the multiple level fields, enter 'Y'.
        !            45:        ;;
        !            46:        ;;