Return to DITC0.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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: 	;;