Return to DIFROMH1.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DIFROMH1	;SFISC/XAK-HELP FOR ANSWERING DIFROM PROMPTS ;03:15 PM  28 Nov 1994
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: REP	;CHANGING YOUR FILE NAME
    5: 	W !!?5,"If YES, this will change the existing file name"
    6: 	W !?5,"to the incoming file name."
    7: 	W !?5,"If NO, it then will go on to the next Question.",!
    8: 	Q
    9: CHG	;KEEPING YOUR OLD DATA
   10: 	W !!?5,"This allows you to keep your old data if you wish."
   11: 	W !?5,"I suggest if you get to this"
   12: 	W !?5,"question Just Default to the Question.",!
   13: 	Q
   14: TEMP	;DELETING THE TEMPLATES
   15: 	W !!,"This will allow you to Delete or Keep the"
   16: 	W !,"(Sort,Print,Input) Templates if you wish.",!
   17: 	Q
   18: AG	;DELETING FILES THAT ARE THE SAME
   19: 	W !!?5,"Enter Yes if you wish to Delete your file"
   20: 	W !?5,"This will overwrite your file with my file"
   21: 	W !?5,"If you wish to save your file please say"
   22: 	W !?5,"NO.  It will then Quit the INIT Process.",!
   23: 	Q
   24: PKG	;ACCEPT DEFAULT DEFINITION
   25: 	W !!?5,"YES means that the information currently in the Package"
   26: 	W !?5,"File will be used to generate the package.  You will not be"
   27: 	W !?5,"to alter it."
   28: 	W !?5,"NO means that you will be able to define the package as you"
   29: 	W !?5,"proceed with the DIFROM."
   30: 	Q
   31: L	;DISPLAY CURRENT PKG DEFN
   32: 	N %A W ! D WAIT^DICD
   33: 	S DIC=9.4,L=0,BY="@NUMBER",FR=DPK,TO=DPK,FLDS="[DI-PKG-DEFAULT-DEFINITION]",IOP="HOME" D EN1^DIP
   34: 	K B,P,DP,DIJ,%9
   35: 	Q
   36: CUR	;HELP FOR SEEING PACKAGE
   37: 	W !!?5,"YES means that the package definition will be displayed to"
   38: 	W !?5,"you on your current device."
   39: 	W !?5,"NO means that you will continue generating the package.",!
   40: 	Q
   41: DD	;HELP FOR OVERWRITING DD'S
   42: 	W !!?5,"YES means that the current data definitions will be overwritten"
   43: 	W !?5,"with the ones in these routines."
   44: 	W !?5,"NO means that only new data fields will be added."
   45: 	Q
   46: DTA	;HELP FOR ADDING DATA
   47: 	W !!?5,"YES means that the data coming in with these inits will"
   48: 	I DIF W !?5,"replace the data on file if a match is found."
   49: 	E  W !?5,"only be added if there is no data on file."
   50: 	W !!?5,"Entries will be added if they do not match exactly"
   51: 	W !?5,"on Name and Identifiers."
   52: 	W !!?5,"NO means that everything will be left as is."
   53: 	Q
   54: VER	;HELP FOR VERSION NO.
   55: 	W !!?5,"Package Version No. must be entered to put onto the second"
   56: 	W !?5,"line of the INIT routines."
   57: 	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
   58: PNM	;HELP FOR PACKAGE NAME
   59: 	W !!?5,"Enter the Package Name to go on the second line of the INIT routines." Q
   60: VDT	;HELP FOR VERSION DATE
   61: 	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