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

DIFROMH1.m

Go to the documentation of this file. 
  1. DIFROMH1 ;SFISC/XAK-HELP FOR ANSWERING DIFROM PROMPTS ;03:15 PM  28 Nov 1994
  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. REP ;CHANGING YOUR FILE NAME
  1.  W !!?5,"If YES, this will change the existing file name"
  1.  W !?5,"to the incoming file name."
  1.  W !?5,"If NO, it then will go on to the next Question.",!
  1.  Q
  1. CHG ;KEEPING YOUR OLD DATA
  1.  W !!?5,"This allows you to keep your old data if you wish."
  1.  W !?5,"I suggest if you get to this"
  1.  W !?5,"question Just Default to the Question.",!
  1.  Q
  1. TEMP ;DELETING THE TEMPLATES
  1.  W !!,"This will allow you to Delete or Keep the"
  1.  W !,"(Sort,Print,Input) Templates if you wish.",!
  1.  Q
  1. AG ;DELETING FILES THAT ARE THE SAME
  1.  W !!?5,"Enter Yes if you wish to Delete your file"
  1.  W !?5,"This will overwrite your file with my file"
  1.  W !?5,"If you wish to save your file please say"
  1.  W !?5,"NO.  It will then Quit the INIT Process.",!
  1.  Q
  1. PKG ;ACCEPT DEFAULT DEFINITION
  1.  W !!?5,"YES means that the information currently in the Package"
  1.  W !?5,"File will be used to generate the package.  You will not be"
  1.  W !?5,"to alter it."
  1.  W !?5,"NO means that you will be able to define the package as you"
  1.  W !?5,"proceed with the DIFROM."
  1.  Q
  1. L ;DISPLAY CURRENT PKG DEFN
  1.  N %A W ! D WAIT^DICD
  1.  S DIC=9.4,L=0,BY="@NUMBER",FR=DPK,TO=DPK,FLDS="[DI-PKG-DEFAULT-DEFINITION]",IOP="HOME" D EN1^DIP
  1.  K B,P,DP,DIJ,%9
  1.  Q
  1. CUR ;HELP FOR SEEING PACKAGE
  1.  W !!?5,"YES means that the package definition will be displayed to"
  1.  W !?5,"you on your current device."
  1.  W !?5,"NO means that you will continue generating the package.",!
  1.  Q
  1. DD ;HELP FOR OVERWRITING DD'S
  1.  W !!?5,"YES means that the current data definitions will be overwritten"
  1.  W !?5,"with the ones in these routines."
  1.  W !?5,"NO means that only new data fields will be added."
  1.  Q
  1. DTA ;HELP FOR ADDING DATA
  1.  W !!?5,"YES means that the data coming in with these inits will"
  1.  I DIF W !?5,"replace the data on file if a match is found."
  1.  E  W !?5,"only be added if there is no data on file."
  1.  W !!?5,"Entries will be added if they do not match exactly"
  1.  W !?5,"on Name and Identifiers."
  1.  W !!?5,"NO means that everything will be left as is."
  1.  Q
  1. VER ;HELP FOR VERSION NO.
  1.  W !!?5,"Package Version No. must be entered to put onto the second"
  1.  W !?5,"line of the INIT routines."
  1.  W !!?5,"Format can be either the old type of version no. nnn.nn",!,?5,"or the new type, nnnXnn where X is either T for test phase",!?5,"or V for verification phase." Q
  1. PNM ;HELP FOR PACKAGE NAME
  1.  W !!?5,"Enter the Package Name to go on the second line of the INIT routines." Q
  1. VDT ;HELP FOR VERSION DATE
  1.  W !!?5,"Enter the Distribution Date for this Package, to go on the second",!?5,"line of the INIT routines.  It should match the version date",!?5,"on the other routines being sent with this package." Q