| 1 | DITC0 ;SFISC/XAK-COMPARE FILE ENTRIES ;12/3/90 12:38
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 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 | ;;
|
|---|
