source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORXTABS1.m@ 1432

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

initial load of WorldVistAEHR

File size: 9.2 KB
Line 
1ORXTABS1 ; SLC/PKS - Edit tab parameters preferences. [9/11/00 1:40pm]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,47,84**;Dec 17, 1997
3 ;
4 ; Additional control code for Tab Preferences Editing - works in
5 ; conjunction with the main routine, ORXTABS.
6 ;
7 ; NOTE: Most ORX* variables used herein NEW'd in calling routine.
8 ;
9 Q
10 ;
11EDIT ; Display list of this tab's parameter values, allow edit selection.
12 ;
13 ; Variables used herein:
14 ;
15 ; ORXCNT2 = Loop counter for concantenated user input.
16 ; ORXHI = High end of hyphenated entry.
17 ; ORXINPUT = Input string (DIR's Y var) from user's entry.
18 ; ORXLO = Low end of hyphenated entry.
19 ; ORXNUM2 = Number of pieces in concantenated user input.
20 ; ORXTEMP = Temporary value holder.
21 ; ORXTOT = Total holder.
22 ;
23 N ORXCNT2,ORXHI,ORXINPUT,ORXLO,ORXNUM2,ORXTEMP,ORXTOT
24 ;
25 ; Create overall control loop:
26 K ORXPCS ; Clear each time.
27 S ORXANY=0 ; Set to check for changes.
28 F Q:ORXSTOP D
29 .;
30 .; Get matching prompt strings:
31 .K ORXPSTR,ORXPRO,ORXPDIS ; Prompts variables.
32 .S ORXTAG="PROMPTS+"_ORXTCNT_"^ORXTABS" ; Data tag for prompts.
33 .S ORXPSTR=$P($T(@ORXTAG),";;",2) ; Current prompts line.
34 .S ORXPDIR=$P(ORXPSTR,U) ; Get first prompt piece.
35 .I ORXPDIR'=ORXTNM D Q ; Check for mismatch.
36 ..W !!," Problem reading PROMPTS data!" ; On error, leave message.
37 ..S ORXSTOP=1 ; Set flag for abort.
38 .S ORXPSTR=$P(ORXPSTR,U,2) ; Get prompts list string.
39 .S ORXPCS=$P($G(ORXPARS(ORXTCNT)),U,3) ; Get "pieces" map string.
40 .;
41 .; Clear, reset DIR variables:
42 .K DIR,X,Y
43 .S DIR("T")=120 ; Two minute maximum timeout for response.
44 .S DIR("A")=" Select "_ORXPDIR_" value to edit"
45 .S DIR("?")=" Enter individual item number or comma-delimited string (within ranges listed)"
46 .;
47 .; Assign individual DIR display array items:
48 .S ORXVAL=""
49 .S ORXNUM=$L(ORXSETS,";") ; # pieces = loop end counter.
50 .F ORXCNT=1:1:ORXNUM D ; Each piece of param setting.
51 ..S ORXVAL=$P($G(ORXSETS),";",ORXCNT) ; Each setting.
52 ..S ORXVAL=$$LJ^XLFSTR(ORXVAL,9) ; Format for 9 characters.
53 ..S ORXPRO=$P(ORXPSTR,";",ORXCNT) ; Prompt for this piece.
54 ..S ORXPRO=$$LJ^XLFSTR(ORXPRO,24) ; Format for 24 characters.
55 ..;
56 ..; Assign DIR display values:
57 ..S ORXCDIS=ORXCNT ; Set display counter to same.
58 ..S ORXCDIS=$$RJ^XLFSTR(ORXCDIS,2) ; Right justify to 2 places.
59 ..S DIR("A",ORXCNT)=" "_ORXCDIS_" "_ORXVAL_" "_ORXPRO
60 .;
61 .; Add one additional choice for editing "ALL" items:
62 .I (ORXCNT>1) D
63 ..S ORXCNT=ORXCNT+1 ; Increment counter.
64 ..S ORXNUM=ORXCNT ; Keep totaller up to date.
65 ..S ORXCDIS=ORXCNT ; Set display counter to match.
66 ..S ORXCDIS=$$RJ^XLFSTR(ORXCDIS,2) ; Right justify to 2 places.
67 ..S DIR("A",ORXCNT)=" "_ORXCDIS_" ALL "_" Edit All Above Items"
68 .;
69 .; Define DIR input requirements:
70 .S DIR(0)="LO^1:"_ORXNUM ; List, from 1 to max choices.
71 .;
72 .; Call DIR for user choice:
73 .W !! ; Spacing for screen display.
74 .I ORXPDIR="REPORTS" D ; Special note for reports.
75 ..W !," NOTE: At present, the following settings affect only the list of"
76 ..W !," Imaging report selections shown under Reports:"
77 ..W !," ---------------------------------------------"
78 .D ^DIR
79 .;
80 .; Check user response:
81 .I '$L($G(Y)) S ORXSTOP=1 Q ; Punt if Y isn't assigned.
82 .I Y="" S ORXSTOP=1 Q ; Punt if Y is null.
83 .I Y="^" S ORXSTOP=1 Q ; Punt if Y is "^" character.
84 .;
85 .; Entry valid - assign ORXINPUT variable to user entry:
86 .K ORXINPUT ; Clean up each time through.
87 .S ORXINPUT=Y ; Now holds input string.
88 .K DIR,X,Y ; Clean up after call to DIR.
89 .;
90 .; If user made a concantenated entry, deal with it:
91 .I (($L($P(ORXINPUT,",",2)))!($L($P(ORXINPUT,"-",2)))) D Q
92 ..;
93 ..; Deal with an entry string:
94 ..S ORXTOT=1 ; Initial setting.
95 ..S ORXNUM2=($L(ORXINPUT,",")-1) ; Total pieces entered.
96 ..;
97 ..; Establish loop to tear the string apart:
98 ..F ORXCNT=1:1:ORXNUM2 D ; Each piece in entry.
99 ...I ORXCNT>ORXTOT S ORXTOT=ORXCNT ; Reset higher?
100 ...S ORXTEMP=$P(ORXINPUT,",",ORXCNT) ; Get each entry piece.
101 ...;
102 ...; Check for a hyphenated entry:
103 ...I $L($P(ORXTEMP,"-",2)) D Q ; To next piece after.
104 ....S ORXLO=$P(ORXTEMP,"-") ; Lower number.
105 ....S ORXHI=$P(ORXTEMP,"-",2) ; Higher number.
106 ....S ORXHI=+ORXHI ; Eliminate comma.
107 ....I ORXHI>ORXTOT S ORXTOT=ORXHI ; Reset higher?
108 ....;
109 ....; Use another loop to assign the range of hyphenated elements:
110 ....F ORXCNT2=ORXLO:1:ORXHI D
111 .....S ORXINPUT(ORXCNT2)=ORXCNT2 ; ORXCNT2 is default #.
112 ...;
113 ...; If piece isn't hyphenated, use it directly:
114 ...S ORXINPUT(+ORXTEMP)=+ORXTEMP
115 ...I +ORXTEMP>ORXTOT S ORXTOT=+ORXTEMP ; Reset higher?
116 ..;
117 ..; Check and eliminate "ALL" selection if necessary:
118 ..I ORXTOT=ORXNUM K ORXINPUT(ORXTOT) S ORXTOT=ORXTOT-1
119 ..;
120 ..; ORXTOT should now equal the highest-numbered user selection.
121 ..; Each assigned ORXINPUT(xx) element should resemble:
122 ..; ORXINPUT(5)=5
123 ..;
124 ..; Call tag to process the entries:
125 ..D SOME
126 .;
127 .; No more than one entry, so assign ORXCNT and proceed:
128 .S ORXCNT=+ORXINPUT
129 .;
130 .; Unless "ALL" was selected, assign current value variables:
131 .I ORXCNT<ORXNUM D
132 ..S ORXNOW=$P($G(ORXCUR),";",$P($G(ORXPCS),";",ORXCNT))
133 ..S ORXPDIS=$P(ORXPSTR,";",ORXCNT) ; Display prompt, this piece.
134 .;
135 .; Deal with "ALL" choice:
136 .I ORXCNT=ORXNUM S ORXSTOP=1 D ALL Q ; "ALL" choice.
137 .;
138 .; Process individual selections:
139 .S ORXVAL=$P($G(ORXSETS),";",ORXCNT) ; Any of individual choices.
140 .D EACH
141 ;
142 Q
143 ;
144ALL ; Process each value (piece) of selected parameter in turn.
145 ;
146 S ORXNEW="" ; Reset.
147 ;
148 ; Establish control loop:
149 F ORXCNT=1:1:(ORXNUM-1) Q:ORXNEW="^" D
150 .;
151 .; Set tag to match each value:
152 .S ORXVAL=$P($G(ORXSETS),";",ORXCNT)
153 .;
154 .; Assign current value and prompt variables each time:
155 .S ORXNOW=$P($G(ORXCUR),";",$P($G(ORXPCS),";",ORXCNT))
156 .S ORXPDIS=$P(ORXPSTR,";",ORXCNT)
157 .;
158 .; Process each value:
159 .W !!," (Entry of ^ will cancel entry process.)"
160 .D EACH
161 ;
162 Q
163 ;
164SOME ; Process specific values of selected parameter in turn.
165 ;
166 S ORXNEW="" ; Reset.
167 ;
168 ; Establish control loop:
169 S ORXCNT=0 ; Initialize.
170 F Q:((ORXCNT>(ORXTOT))!(ORXNEW="^")) D
171 .S ORXCNT=ORXCNT+1 ; Increment each time.
172 .I '$D(ORXINPUT(ORXCNT)) Q ; Non-existant entries.
173 .;
174 .; Set tag to match each value:
175 .S ORXVAL=$P($G(ORXSETS),";",ORXCNT) ; ORXCNT is # by default.
176 .;
177 .; Assign current value and prompt variables each time:
178 .S ORXNOW=$P($G(ORXCUR),";",$P($G(ORXPCS),";",ORXCNT))
179 .S ORXPDIS=$P(ORXPSTR,";",ORXCNT)
180 .;
181 .; Process each value:
182 .W !!," (Entry of ^ will cancel entry process.)"
183 .D EACH
184 ;
185 Q
186 ;
187EACH ; Process and update an edited value.
188 ;
189 ; Get tag name in ORXTABS2 to process the user's entry:
190 K DIR,X,Y
191 S ORXANY=ORXANY+1
192 ;
193 ; Assign command string with passed variable for execution:
194 S ORXNEW="S ORXNEW=$$"_ORXVAL_"^ORXTABS2("_""""_ORXNOW_""""_")"
195 ;
196 X ORXNEW ; Execute call to tag.
197 ;
198 ; Don't update value if user opted out with "^" entry:
199 I ORXNEW="^" S ORXANY=ORXANY-1 Q
200 ;
201 ; Stuff new value into current value string:
202 S $P(ORXCUR,";",$P($G(ORXPCS),";",ORXCNT))=ORXNEW
203 ;
204 Q
205 ;
206SAVE ; Obtain user input, then save or discard changes.
207 ;
208 S ORXANY=$$CONFIRM ; Re-use ORXANY variable.
209 I 'ORXANY W !!," No changes saved...." Q
210 ;
211 ; Write changes back to parameters file:
212 K ORXERR
213 D PUT^XPAR(DUZ_";VA(200,",ORXPNAM,,ORXCUR,.ORXERR)
214 ;
215 ; Check for an error in the write process:
216 I (+ORXERR'=0) D Q
217 .W !," ERROR: Parameter not updated!" ; Notify user of error.
218 .W !," ("_$P(ORXERR,U,2)_")" ; Display error message.
219 ;
220 W !!,"Tab parameter setting(s) updated/saved."
221 W !,"(GUI Users must close, re-start application to activate changes.)",!
222 ;
223 Q
224 ;
225CONFIRM() ; Confirm to save changes.
226 ;
227 ; Clear, reset DIR variables:
228 K DIR,X,Y
229 S DIR("T")=120 ; Two minute maximum timeout for response.
230 S DIR("A")=" Save changes"
231 S DIR("?")=" Write changes to parameter file? (Y/N)"
232 S DIR("A",1)=" YES"
233 S DIR("A",2)=" NO"
234 S DIR("B")="YES"
235 ;
236 ; Define DIR input requirements:
237 S DIR(0)="YO^1:2:0"
238 ;
239 ; Call DIR for user choice:
240 W !! ; Spacing for screen display.
241 D ^DIR
242 ;
243 ; Check user response:
244 I '$L($G(Y)) Q 0 ; Skip if Y isn't assigned.
245 I Y="" Q 0 ; Skip if Y is null.
246 I Y="^" Q 0 ; Skip if Y is "^" character.
247 I Y<1 Q 0 ; Skip if Y is less than one.
248 I Y>2 Q 0 ; "No" choice.
249 I Y=1 Q 1 ; "Yes" choice.
250 ;
251 Q 0 ; Default return of "No."
252 ;
Note: See TracBrowser for help on using the repository browser.