Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DITC0

DITC0.m

Go to the documentation of this file.
  1. DITC0 ;SFISC/XAK-COMPARE FILE ENTRIES ;12/3/90 12:38
  1. ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1. ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1. ;;Licensed under the terms of the Apache License, Version 2.0.
  1. ;
  1. ; Mandatory INPUT VARIABLES using entry point EN:
  1. ; DFF ...... File or subfile number
  1. ; DIT(1) ... Internal number of first entry
  1. ; DIT(2) ... Internal number of second entry
  1. ;
  1. ; Optional INPUT VARIABLES using entry point EN:
  1. ; DIMERGE ..... If defined, allows for merge; if not, does compare only
  1. ; DDSP ..... If defined, writes 'wait messages and dots' to the screen
  1. ; DDIF ..... If undefined displays all fields
  1. ; DDIF=1: displays discrepant only
  1. ; DDIF=2: displays discrepant and missing as well
  1. ; DDEF ..... Entry # (1 or 2) from which to take default values.
  1. ERREND ;
  1. S DMSG=$P($T(ERRTXT+DMSG),";; ",2)_": "_DMSG(1) W !,DMSG
  1. G END^DITC
  1. Q
  1. ERRTXT ;;
  1. ;; Undefined INPUT VARIABLE
  1. ;; Null INPUT VARIABLE
  1. ;; Nonexistent FILE
  1. ;; Incorrect INPUT VARIABLE specification
  1. HELP ;;
  1. W ! F I=1:1 S J=$P($T(@("HTXT"_DMSG)+I),";; ",2) Q:'$L(J) W !,J
  1. Q
  1. HTXT1 ;;
  1. ;; Enter a 'N' if you wish only to compare and display the two
  1. ;; entries. Enter a 'Y' if you wish to choose valid fields from each
  1. ;; entry and eventually do a merge into record selected for default.
  1. HTXT2 ;;
  1. ;; Enter a 'N' if you wish to display all of the fields in each entry.
  1. ;; Enter a 'Y' if you wish to display only those fields which differ.
  1. HTXT3 ;;
  1. ;; On merging, the default field value can be taken from entry #1 or #2.
  1. ;; You will later have the opportunity to modify this default selection
  1. ;; on a field by field basis. Please note that the two records will
  1. ;; always be merged into the record selected as the default selection.
  1. HTXT4 ;;
  1. ;; When the two entries are compared, all top level fields are displayed
  1. ;; and a summary for multiple level fields are displayed. If you also wish to
  1. ;; see a detailed comparison on the multiple level fields, enter 'Y'.
  1. ;;
  1. ;;