- 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 Feb 19, 2025@00:20:23 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 ;;