| 1 | DIFROMH1 ;SFISC/XAK-HELP FOR ANSWERING DIFROM PROMPTS ;03:15 PM 28 Nov 1994
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 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
|
|---|
