source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DITC0.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1DITC0 ;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.
17ERREND ;
18 S DMSG=$P($T(ERRTXT+DMSG),";; ",2)_": "_DMSG(1) W !,DMSG
19 G END^DITC
20 Q
21ERRTXT ;;
22 ;; Undefined INPUT VARIABLE
23 ;; Null INPUT VARIABLE
24 ;; Nonexistent FILE
25 ;; Incorrect INPUT VARIABLE specification
26HELP ;;
27 W ! F I=1:1 S J=$P($T(@("HTXT"_DMSG)+I),";; ",2) Q:'$L(J) W !,J
28 Q
29HTXT1 ;;
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.
33HTXT2 ;;
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.
36HTXT3 ;;
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.
41HTXT4 ;;
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 ;;
Note: See TracBrowser for help on using the repository browser.