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

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1DINIT00V ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99 10:41:48
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
5Q Q
6 ;;^UTILITY(U,$J,.84,9233,2,4,0)
7 ;;=
8 ;;^UTILITY(U,$J,.84,9233,2,5,0)
9 ;;=Command Shortcut Description
10 ;;^UTILITY(U,$J,.84,9233,2,6,0)
11 ;;=------- -------- -----------
12 ;;^UTILITY(U,$J,.84,9233,2,7,0)
13 ;;=EXIT see below Exit form (asks whether changes should be saved)
14 ;;^UTILITY(U,$J,.84,9233,2,8,0)
15 ;;=CLOSE <PF1>C Close window and return to previous level
16 ;;^UTILITY(U,$J,.84,9233,2,9,0)
17 ;;=SAVE <PF1>S Save changes
18 ;;^UTILITY(U,$J,.84,9233,2,10,0)
19 ;;=NEXT PAGE <PF1><Down> Go to next page
20 ;;^UTILITY(U,$J,.84,9233,2,11,0)
21 ;;=REFRESH <PF1>R Repaint screen
22 ;;^UTILITY(U,$J,.84,9233,2,12,0)
23 ;;=
24 ;;^UTILITY(U,$J,.84,9233,2,13,0)
25 ;;=
26 ;;^UTILITY(U,$J,.84,9233,2,14,0)
27 ;;=\BOther Shortcut Keys\n
28 ;;^UTILITY(U,$J,.84,9233,2,15,0)
29 ;;=
30 ;;^UTILITY(U,$J,.84,9233,2,16,0)
31 ;;=Exit form and save changes <PF1>E
32 ;;^UTILITY(U,$J,.84,9233,2,17,0)
33 ;;=Quit form without saving changes <PF1>Q
34 ;;^UTILITY(U,$J,.84,9233,2,18,0)
35 ;;=Invoke Record Selection Page <PF1>L
36 ;;^UTILITY(U,$J,.84,9251,0)
37 ;;=9251^3^^5
38 ;;^UTILITY(U,$J,.84,9251,1,0)
39 ;;=^^1^1^2940707^^
40 ;;^UTILITY(U,$J,.84,9251,1,1,0)
41 ;;=Help Screen 1 of Form Editor help.
42 ;;^UTILITY(U,$J,.84,9251,2,0)
43 ;;=^^22^22^2940707^
44 ;;^UTILITY(U,$J,.84,9251,2,1,0)
45 ;;= \BHelp Screen 1 of 9\n
46 ;;^UTILITY(U,$J,.84,9251,2,2,0)
47 ;;=\BNAVIGATIONAL KEYS\n
48 ;;^UTILITY(U,$J,.84,9251,2,3,0)
49 ;;=
50 ;;^UTILITY(U,$J,.84,9251,2,4,0)
51 ;;=Press To move | Press To move
52 ;;^UTILITY(U,$J,.84,9251,2,5,0)
53 ;;=-------------------------------------------------------------------
54 ;;^UTILITY(U,$J,.84,9251,2,6,0)
55 ;;=<Up> Up one line | <PF1><Up> To top of screen
56 ;;^UTILITY(U,$J,.84,9251,2,7,0)
57 ;;=<Down> Down one line | <PF1><Down> To bottom of screen
58 ;;^UTILITY(U,$J,.84,9251,2,8,0)
59 ;;=<Right> Right one character | <PF1><Right> To right edge of screen
60 ;;^UTILITY(U,$J,.84,9251,2,9,0)
61 ;;=<Left> Left one character | <PF1><Left> To left edge of screen
62 ;;^UTILITY(U,$J,.84,9251,2,10,0)
63 ;;=<Tab> To next element
64 ;;^UTILITY(U,$J,.84,9251,2,11,0)
65 ;;=Q To previous element
66 ;;^UTILITY(U,$J,.84,9251,2,12,0)
67 ;;=S Right 5 characters
68 ;;^UTILITY(U,$J,.84,9251,2,13,0)
69 ;;=A Left 5 characters
70 ;;^UTILITY(U,$J,.84,9251,2,14,0)
71 ;;=
72 ;;^UTILITY(U,$J,.84,9251,2,15,0)
73 ;;=
74 ;;^UTILITY(U,$J,.84,9251,2,16,0)
75 ;;=\BSAVING AND EXITING\n
76 ;;^UTILITY(U,$J,.84,9251,2,17,0)
77 ;;=
78 ;;^UTILITY(U,$J,.84,9251,2,18,0)
79 ;;=Press To
80 ;;^UTILITY(U,$J,.84,9251,2,19,0)
81 ;;=----------------------------------------------------
82 ;;^UTILITY(U,$J,.84,9251,2,20,0)
83 ;;=<PF1>S Save changes
84 ;;^UTILITY(U,$J,.84,9251,2,21,0)
85 ;;=<PF1>E Save changes and exit the Form Editor
86 ;;^UTILITY(U,$J,.84,9251,2,22,0)
87 ;;=<PF1>Q Quit the Form Editor without saving changes
88 ;;^UTILITY(U,$J,.84,9252,0)
89 ;;=9252^3^^5
90 ;;^UTILITY(U,$J,.84,9252,1,0)
91 ;;=^^1^1^2941116^^^
92 ;;^UTILITY(U,$J,.84,9252,1,1,0)
93 ;;=Help Screen 2 of Form Editor.
94 ;;^UTILITY(U,$J,.84,9252,2,0)
95 ;;=^^19^19^2941116^
96 ;;^UTILITY(U,$J,.84,9252,2,1,0)
97 ;;= \BHelp Screen 2 of 9\n
98 ;;^UTILITY(U,$J,.84,9252,2,2,0)
99 ;;=\BSELECTING SCREEN ELEMENTS\n
100 ;;^UTILITY(U,$J,.84,9252,2,3,0)
101 ;;=
102 ;;^UTILITY(U,$J,.84,9252,2,4,0)
103 ;;=To "select" a screen element, position the cursor over the element and
104 ;;^UTILITY(U,$J,.84,9252,2,5,0)
105 ;;=press <SpaceBar> or <Enter>. This process is abbreviated <SelectElement>.
106 ;;^UTILITY(U,$J,.84,9252,2,6,0)
107 ;;=
108 ;;^UTILITY(U,$J,.84,9252,2,7,0)
109 ;;=Press To
110 ;;^UTILITY(U,$J,.84,9252,2,8,0)
111 ;;=----------------------------------------
112 ;;^UTILITY(U,$J,.84,9252,2,9,0)
113 ;;=<SelectElement> Select a screen element
114 ;;^UTILITY(U,$J,.84,9252,2,10,0)
115 ;;=
116 ;;^UTILITY(U,$J,.84,9252,2,11,0)
117 ;;=Once an element is selected, you can drag it around the screen by using
118 ;;^UTILITY(U,$J,.84,9252,2,12,0)
119 ;;=the navigational keys. You cannot drag an element beyond the boundaries
120 ;;^UTILITY(U,$J,.84,9252,2,13,0)
121 ;;=of the block on which it is defined.
122 ;;^UTILITY(U,$J,.84,9252,2,14,0)
123 ;;=
124 ;;^UTILITY(U,$J,.84,9252,2,15,0)
125 ;;=If you press <SpaceBar> or <Enter> over the caption of an element, both
126 ;;^UTILITY(U,$J,.84,9252,2,16,0)
127 ;;=the caption and data portion of the element, if one exists, are selected.
128 ;;^UTILITY(U,$J,.84,9252,2,17,0)
129 ;;=If you press <SpaceBar> or <Enter> over the data portion of an element,
130 ;;^UTILITY(U,$J,.84,9252,2,18,0)
131 ;;=only the data portion is selected and can be dragged independently of the
132 ;;^UTILITY(U,$J,.84,9252,2,19,0)
133 ;;=caption. Press <SpaceBar> or <Enter> again to deselect the element.
134 ;;^UTILITY(U,$J,.84,9253,0)
135 ;;=9253^3^^5
136 ;;^UTILITY(U,$J,.84,9253,1,0)
137 ;;=^^1^1^2940707^
138 ;;^UTILITY(U,$J,.84,9253,1,1,0)
139 ;;=Help Screen 3 of Form Editor.
140 ;;^UTILITY(U,$J,.84,9253,2,0)
141 ;;=^^15^15^2940707^
142 ;;^UTILITY(U,$J,.84,9253,2,1,0)
143 ;;= \BHelp Screen 3 of 9\n
144 ;;^UTILITY(U,$J,.84,9253,2,2,0)
145 ;;=\BEDITING ELEMENT PROPERTIES\n
146 ;;^UTILITY(U,$J,.84,9253,2,3,0)
147 ;;=
148 ;;^UTILITY(U,$J,.84,9253,2,4,0)
149 ;;=Press To
150 ;;^UTILITY(U,$J,.84,9253,2,5,0)
151 ;;=---------------------------------------------
152 ;;^UTILITY(U,$J,.84,9253,2,6,0)
153 ;;=<SelectElement><PF4> Edit element properties
154 ;;^UTILITY(U,$J,.84,9253,2,7,0)
155 ;;=
156 ;;^UTILITY(U,$J,.84,9253,2,8,0)
157 ;;=You will then be taken into a ScreenMan form where the properties of the
158 ;;^UTILITY(U,$J,.84,9253,2,9,0)
159 ;;=element can be edited.
160 ;;^UTILITY(U,$J,.84,9253,2,10,0)
161 ;;=
162 ;;^UTILITY(U,$J,.84,9253,2,11,0)
163 ;;=The Form Editor uses ScreenMan forms as a kind of modal dialog box. The
164 ;;^UTILITY(U,$J,.84,9253,2,12,0)
165 ;;=changes you make within the forms are permanent; that is, if from a
166 ;;^UTILITY(U,$J,.84,9253,2,13,0)
167 ;;=ScreenMan form you edit the properties of an element, use <PF1>E to save
168 ;;^UTILITY(U,$J,.84,9253,2,14,0)
169 ;;=and exit the form, and then use <PF1>Q to quit the Form Editor, the
170 ;;^UTILITY(U,$J,.84,9253,2,15,0)
171 ;;=changes you made to the properties of the element will remain.
172 ;;^UTILITY(U,$J,.84,9254,0)
173 ;;=9254^3^^5
174 ;;^UTILITY(U,$J,.84,9254,1,0)
175 ;;=^^1^1^2940707^
176 ;;^UTILITY(U,$J,.84,9254,1,1,0)
177 ;;=Help Screen 4 of Form Editor.
178 ;;^UTILITY(U,$J,.84,9254,2,0)
179 ;;=^^18^18^2940707^
Note: See TracBrowser for help on using the repository browser.