source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIFROMH1.m@ 1042

Last change on this file since 1042 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.7 KB
Line 
1DIFROMH1 ;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.
4REP ;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
9CHG ;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
14TEMP ;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
18AG ;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
24PKG ;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
31L ;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
36CUR ;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
41DD ;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
46DTA ;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
54VER ;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
58PNM ;HELP FOR PACKAGE NAME
59 W !!?5,"Enter the Package Name to go on the second line of the INIT routines." Q
60VDT ;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
Note: See TracBrowser for help on using the repository browser.