Return to DITC0.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DITC0.m, revision 1.1.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:        ;;