Return to DIFROMH1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIFROMH1.m, revision 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