Return to DIFROMH1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIFROMH1.m, revision 1.1.1.1

1.1       snw         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