DITC0.m

DITC0 ;SFISC/XAK-COMPARE FILE ENTRIES ;12/3/90  12:38

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

 ; Mandatory INPUT VARIABLES using entry point EN:

 ; DFF ...... File or subfile number

 ; DIT(1) ... Internal number of first entry

 ; DIT(2) ... Internal number of second entry

 ;

 ; Optional INPUT VARIABLES using entry point EN:

 ; DIMERGE ..... If defined, allows for merge; if not, does compare only

 ; DDSP ..... If defined, writes 'wait messages and dots' to the screen

 ; DDIF ..... If undefined displays all fields

 ; DDIF=1: displays discrepant only

 ; DDIF=2: displays discrepant and missing as well

 ; DDEF ..... Entry # (1 or 2) from which to take default values.

ERREND ;

 S DMSG=$P($T(ERRTXT+DMSG),";; ",2)_": "_DMSG(1) W !,DMSG

 G END^DITC

 Q

ERRTXT ;;

 ;; Undefined INPUT VARIABLE

 ;; Null INPUT VARIABLE

 ;; Nonexistent FILE

 ;; Incorrect INPUT VARIABLE specification

HELP ;;

 W ! F I=1:1 S J=$P($T(@("HTXT"_DMSG)+I),";; ",2) Q:'$L(J)  W !,J

 Q

HTXT1 ;;

 ;; Enter a 'N' if you wish only to compare and display the two

 ;; entries.  Enter a 'Y' if you wish to choose valid fields from each

 ;; entry and eventually do a merge into record selected for default.

HTXT2 ;;

 ;; Enter a 'N' if you wish to display all of the fields in each entry.

 ;; Enter a 'Y' if you wish to display only those fields which differ.

HTXT3 ;;

 ;; On merging, the default field value can be taken from entry #1 or #2.

 ;; You will later have the opportunity to modify this default selection

 ;; on a field by field basis.  Please note that the two records will

 ;; always be merged into the record selected as the default selection.

HTXT4 ;;

 ;; When the two entries are compared, all top level fields are displayed

 ;; and a summary for multiple level fields are displayed. If you also wish to

 ;; see a detailed comparison on the multiple level fields, enter 'Y'.

 ;;

 ;;

DITC0     ;SFISC/XAK-COMPARE FILE ENTRIES ;12/3/90  12:38

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ; Mandatory INPUT VARIABLES using entry point EN:

 +5       ; DFF ...... File or subfile number

 +6       ; DIT(1) ... Internal number of first entry

 +7       ; DIT(2) ... Internal number of second entry

 +8       ;

 +9       ; Optional INPUT VARIABLES using entry point EN:

 +10      ; DIMERGE ..... If defined, allows for merge; if not, does compare only

 +11      ; DDSP ..... If defined, writes 'wait messages and dots' to the screen

 +12      ; DDIF ..... If undefined displays all fields

 +13      ; DDIF=1: displays discrepant only

 +14      ; DDIF=2: displays discrepant and missing as well

 +15      ; DDEF ..... Entry # (1 or 2) from which to take default values.

ERREND    ;

 +1        SET DMSG=$PIECE($TEXT(ERRTXT+DMSG),";; ",2)_": "_DMSG(1)

           WRITE !,DMSG

 +2        GOTO END^DITC

 +3        QUIT 

ERRTXT    ;;

 +1       ;; Undefined INPUT VARIABLE

 +2       ;; Null INPUT VARIABLE

 +3       ;; Nonexistent FILE

 +4       ;; Incorrect INPUT VARIABLE specification

HELP      ;;

 +1        WRITE !

           FOR I=1:1

               SET J=$PIECE($TEXT(@("HTXT"_DMSG)+I),";; ",2)

               IF '$LENGTH(J)

                   QUIT 

               WRITE !,J

 +2        QUIT 

HTXT1     ;;

 +1       ;; Enter a 'N' if you wish only to compare and display the two

 +2       ;; entries.  Enter a 'Y' if you wish to choose valid fields from each

 +3       ;; entry and eventually do a merge into record selected for default.

HTXT2     ;;

 +1       ;; Enter a 'N' if you wish to display all of the fields in each entry.

 +2       ;; Enter a 'Y' if you wish to display only those fields which differ.

HTXT3     ;;

 +1       ;; On merging, the default field value can be taken from entry #1 or #2.

 +2       ;; You will later have the opportunity to modify this default selection

 +3       ;; on a field by field basis.  Please note that the two records will

 +4       ;; always be merged into the record selected as the default selection.

HTXT4     ;;

 +1       ;; When the two entries are compared, all top level fields are displayed

 +2       ;; and a summary for multiple level fields are displayed. If you also wish to

 +3       ;; see a detailed comparison on the multiple level fields, enter 'Y'.

 +4       ;;

 +5       ;;