DITC0 ;SFISC/XAK-COMPARE FILE ENTRIES ;12/3/90 12:38
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
; 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'.
;;
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDITC0 2175 printed Dec 13, 2024@02:54:08 Page 2
DITC0 ;SFISC/XAK-COMPARE FILE ENTRIES ;12/3/90 12:38
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 ; Mandatory INPUT VARIABLES using entry point EN:
+8 ; DFF ...... File or subfile number
+9 ; DIT(1) ... Internal number of first entry
+10 ; DIT(2) ... Internal number of second entry
+11 ;
+12 ; Optional INPUT VARIABLES using entry point EN:
+13 ; DIMERGE ..... If defined, allows for merge; if not, does compare only
+14 ; DDSP ..... If defined, writes 'wait messages and dots' to the screen
+15 ; DDIF ..... If undefined displays all fields
+16 ; DDIF=1: displays discrepant only
+17 ; DDIF=2: displays discrepant and missing as well
+18 ; 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 ;;
