source: GuiMail/trunk/KIDS/CWMA_GuiMail_V2_1.KID@ 1138

Last change on this file since 1138 was 1138, checked in by George Lilly, 14 years ago

version 2.1 of GuiMail source code

File size: 125.1 KB
RevLine 
[1138]1KIDS Distribution saved on Sep 20, 1999@08:03:34
2GuiMail v2.1 Server Software
3**KIDS**:CW GUIMail 2.1^
4
5**INSTALL NAME**
6CW GUIMail 2.1
7"BLD",160,0)
8CW GUIMail 2.1^CW GUIMail^0^2990920^n
9"BLD",160,1,0)
10^^76^76^2990916.074259
11"BLD",160,1,1,0)
12This KIDS Build will install Version 2.1 of Vista GuiMail. This installation
13"BLD",160,1,2,0)
14makes the GuiMail Server software compatible with MailMan v7.1 after patch 50
15"BLD",160,1,3,0)
16has been installed. The version 2.1 GuiMail Client software was be installed
17"BLD",160,1,4,0)
18and used on the PC side. Please refer to the ReadMe.Txt file in the ZIP file
19"BLD",160,1,5,0)
20for instructions regarding installation. Also, refer to the GuiMail_Changes.Txt
21"BLD",160,1,6,0)
22file included in the ZIP file for a listing of major changes that can be found
23"BLD",160,1,7,0)
24in version 2.1.
25"BLD",160,1,8,0)
26
27"BLD",160,1,9,0)
28Here is a sample install dialog:
29"BLD",160,1,10,0)
30
31"BLD",160,1,11,0)
32
33"BLD",160,1,12,0)
34PACKAGE: CW GUIMail 2.1 Jun 03, 1999 1:58 pm PAGE 1
35"BLD",160,1,13,0)
36 COMPLETED ELAPSED
37"BLD",160,1,14,0)
38-----------------------------------------------------------------------------------------------------------------------------------
39"BLD",160,1,15,0)
40STATUS: Install Completed DATE LOADED: JUN 01, 1999@14:02:49
41"BLD",160,1,16,0)
42INSTALLED BY: SALMON,PHILLIP
43"BLD",160,1,17,0)
44NATIONAL PACKAGE: CW GUIMail
45"BLD",160,1,18,0)
46
47"BLD",160,1,19,0)
48INSTALL STARTED: JUN 01, 1999@14:03:03 14:03:13 0:00:10
49"BLD",160,1,20,0)
50
51"BLD",160,1,21,0)
52ROUTINES: 14:03:04 0:00:01
53"BLD",160,1,22,0)
54
55"BLD",160,1,23,0)
56FILES:
57"BLD",160,1,24,0)
58PARAMETER DEFINITION 14:03:04
59"BLD",160,1,25,0)
60PARAMETER TEMPLATE 14:03:05 0:00:01
61"BLD",160,1,26,0)
62
63"BLD",160,1,27,0)
64REMOTE PROCEDURE 14:03:08 0:00:03
65"BLD",160,1,28,0)
66OPTION 14:03:09 0:00:01
67"BLD",160,1,29,0)
68
69"BLD",160,1,30,0)
70POST-INIT CHECK POINTS:
71"BLD",160,1,31,0)
72XPD POSTINSTALL STARTED 14:03:12 0:00:03
73"BLD",160,1,32,0)
74XPD POSTINSTALL COMPLETED 14:03:12
75"BLD",160,1,33,0)
76
77"BLD",160,1,34,0)
78INSTALL QUESTION PROMPT ANSWER
79"BLD",160,1,35,0)
80
81"BLD",160,1,36,0)
82XPZ1
83"BLD",160,1,37,0)
84MESSAGES:
85"BLD",160,1,38,0)
86
87"BLD",160,1,39,0)
88 Install Started for CW GUIMail 2.1 :
89"BLD",160,1,40,0)
90 Jun 01, 1999@14:03:03
91"BLD",160,1,41,0)
92
93"BLD",160,1,42,0)
94 Installing Routines:
95"BLD",160,1,43,0)
96 Jun 01, 1999@14:03:04
97"BLD",160,1,44,0)
98
99"BLD",160,1,45,0)
100 Installing Data Dictionaries:
101"BLD",160,1,46,0)
102
103"BLD",160,1,47,0)
104Data Dictionary for File #8989.51 not installed.
105"BLD",160,1,48,0)
106
107"BLD",160,1,49,0)
108Data Dictionary for File #8989.52 not installed.
109"BLD",160,1,50,0)
110 Jun 01, 1999@14:03:05
111"BLD",160,1,51,0)
112
113"BLD",160,1,52,0)
114 Installing Data:
115"BLD",160,1,53,0)
116 Jun 01, 1999@14:03:08
117"BLD",160,1,54,0)
118
119"BLD",160,1,55,0)
120 Installing PACKAGE COMPONENTS:
121"BLD",160,1,56,0)
122
123"BLD",160,1,57,0)
124 Installing REMOTE PROCEDURE
125"BLD",160,1,58,0)
126
127"BLD",160,1,59,0)
128 Installing OPTION
129"BLD",160,1,60,0)
130 Jun 01, 1999@14:03:09
131"BLD",160,1,61,0)
132
133"BLD",160,1,62,0)
134 Running Post-Install Routine: EN^CWMAINI
135"BLD",160,1,63,0)
136
137"BLD",160,1,64,0)
138There are 8 user(s) to convert
139"BLD",160,1,65,0)
140Beginning conversion of preferences...
141"BLD",160,1,66,0)
142
143"BLD",160,1,67,0)
144Preference conversion is finished.
145"BLD",160,1,68,0)
146
147"BLD",160,1,69,0)
148Removing CW GUI VISTA MAIL USER (890) File ...
149"BLD",160,1,70,0)
150
151"BLD",160,1,71,0)
152 Updating Routine file...
153"BLD",160,1,72,0)
154
155"BLD",160,1,73,0)
156 Updating KIDS files...
157"BLD",160,1,74,0)
158
159"BLD",160,1,75,0)
160 CW GUIMail 2.1 Installed.
161"BLD",160,1,76,0)
162 Jun 01, 1999@14:03:13
163"BLD",160,4,0)
164^9.64PA^8989.52^2
165"BLD",160,4,8989.51,0)
1668989.51
167"BLD",160,4,8989.51,222)
168n^n^f^^y^^y^r^n
169"BLD",160,4,8989.51,224)
170I $E(^(0),1,4)="CWMA"
171"BLD",160,4,8989.52,0)
1728989.52
173"BLD",160,4,8989.52,222)
174n^n^f^^y^^y^o^n
175"BLD",160,4,8989.52,224)
176I $E($P(^XTV(8989.52,+Y,0),"^"),1,4)="CWMA"
177"BLD",160,4,"B",8989.51,8989.51)
178
179"BLD",160,4,"B",8989.52,8989.52)
180
181"BLD",160,"ABNS",0)
182^9.66A^1^1
183"BLD",160,"ABNS",1,0)
184CWMA
185"BLD",160,"ABNS",1,1,0)
186^9.661A^^
187"BLD",160,"ABNS","B","CWMA",1)
188
189"BLD",160,"ABPKG")
190n^y^G.CAIRO_TECH_SUPPORT@INDIANAPOLIS.VA.GOV
191"BLD",160,"INIT")
192EN^CWMAINI
193"BLD",160,"KRN",0)
194^9.67PA^19^18
195"BLD",160,"KRN",.4,0)
196.4
197"BLD",160,"KRN",.401,0)
198.401
199"BLD",160,"KRN",.402,0)
200.402
201"BLD",160,"KRN",.403,0)
202.403
203"BLD",160,"KRN",.5,0)
204.5
205"BLD",160,"KRN",.84,0)
206.84
207"BLD",160,"KRN",3.6,0)
2083.6
209"BLD",160,"KRN",3.8,0)
2103.8
211"BLD",160,"KRN",9.2,0)
2129.2
213"BLD",160,"KRN",9.8,0)
2149.8
215"BLD",160,"KRN",9.8,"NM",0)
216^9.68A^20^18
217"BLD",160,"KRN",9.8,"NM",1,0)
218CWMACPPI^^0^B4934611
219"BLD",160,"KRN",9.8,"NM",2,0)
220CWMAIL^^0^B16733706
221"BLD",160,"KRN",9.8,"NM",3,0)
222CWMAIL0^^0^B20950040
223"BLD",160,"KRN",9.8,"NM",4,0)
224CWMAIL1^^0^B14471507
225"BLD",160,"KRN",9.8,"NM",5,0)
226CWMAIL2^^0^B22772090
227"BLD",160,"KRN",9.8,"NM",6,0)
228CWMAIL3^^0^B5161423
229"BLD",160,"KRN",9.8,"NM",7,0)
230CWMAIL4^^0^B1346202
231"BLD",160,"KRN",9.8,"NM",8,0)
232CWMAILA^^0^B23618442
233"BLD",160,"KRN",9.8,"NM",9,0)
234CWMAILB^^0^B21615660
235"BLD",160,"KRN",9.8,"NM",10,0)
236CWMAILC^^0^B12646738
237"BLD",160,"KRN",9.8,"NM",11,0)
238CWMAILD^^0^B18697748
239"BLD",160,"KRN",9.8,"NM",12,0)
240CWMAILE^^0^B13183521
241"BLD",160,"KRN",9.8,"NM",15,0)
242CWMAINI^^0^B8244845
243"BLD",160,"KRN",9.8,"NM",16,0)
244CWMAPP^^0^B806108
245"BLD",160,"KRN",9.8,"NM",17,0)
246CWMAPP01^^0^B2776736
247"BLD",160,"KRN",9.8,"NM",18,0)
248CWMAILF^^0^B6688838
249"BLD",160,"KRN",9.8,"NM",19)
250^^^
251"BLD",160,"KRN",9.8,"NM",19,0)
252CWMAILSN^^1^
253"BLD",160,"KRN",9.8,"NM",20)
254^^^
255"BLD",160,"KRN",9.8,"NM",20,0)
256CWMAILSU^^1^
257"BLD",160,"KRN",9.8,"NM","B","CWMACPPI",1)
258
259"BLD",160,"KRN",9.8,"NM","B","CWMAIL",2)
260
261"BLD",160,"KRN",9.8,"NM","B","CWMAIL0",3)
262
263"BLD",160,"KRN",9.8,"NM","B","CWMAIL1",4)
264
265"BLD",160,"KRN",9.8,"NM","B","CWMAIL2",5)
266
267"BLD",160,"KRN",9.8,"NM","B","CWMAIL3",6)
268
269"BLD",160,"KRN",9.8,"NM","B","CWMAIL4",7)
270
271"BLD",160,"KRN",9.8,"NM","B","CWMAILA",8)
272
273"BLD",160,"KRN",9.8,"NM","B","CWMAILB",9)
274
275"BLD",160,"KRN",9.8,"NM","B","CWMAILC",10)
276
277"BLD",160,"KRN",9.8,"NM","B","CWMAILD",11)
278
279"BLD",160,"KRN",9.8,"NM","B","CWMAILE",12)
280
281"BLD",160,"KRN",9.8,"NM","B","CWMAILF",18)
282
283"BLD",160,"KRN",9.8,"NM","B","CWMAILSN",19)
284
285"BLD",160,"KRN",9.8,"NM","B","CWMAILSU",20)
286
287"BLD",160,"KRN",9.8,"NM","B","CWMAINI",15)
288
289"BLD",160,"KRN",9.8,"NM","B","CWMAPP",16)
290
291"BLD",160,"KRN",9.8,"NM","B","CWMAPP01",17)
292
293"BLD",160,"KRN",19,0)
29419
295"BLD",160,"KRN",19,"NM",0)
296^9.68A^1^1
297"BLD",160,"KRN",19,"NM",1,0)
298CW MAIL^^0
299"BLD",160,"KRN",19,"NM","B","CW MAIL",1)
300
301"BLD",160,"KRN",19.1,0)
30219.1
303"BLD",160,"KRN",101,0)
304101
305"BLD",160,"KRN",409.61,0)
306409.61
307"BLD",160,"KRN",771,0)
308771
309"BLD",160,"KRN",869.2,0)
310869.2
311"BLD",160,"KRN",870,0)
312870
313"BLD",160,"KRN",8994,0)
3148994
315"BLD",160,"KRN",8994,"NM",0)
316^9.68A^1^1
317"BLD",160,"KRN",8994,"NM",1,0)
318CW MAIL API^^0
319"BLD",160,"KRN",8994,"NM","B","CW MAIL API",1)
320
321"BLD",160,"KRN","B",.4,.4)
322
323"BLD",160,"KRN","B",.401,.401)
324
325"BLD",160,"KRN","B",.402,.402)
326
327"BLD",160,"KRN","B",.403,.403)
328
329"BLD",160,"KRN","B",.5,.5)
330
331"BLD",160,"KRN","B",.84,.84)
332
333"BLD",160,"KRN","B",3.6,3.6)
334
335"BLD",160,"KRN","B",3.8,3.8)
336
337"BLD",160,"KRN","B",9.2,9.2)
338
339"BLD",160,"KRN","B",9.8,9.8)
340
341"BLD",160,"KRN","B",19,19)
342
343"BLD",160,"KRN","B",19.1,19.1)
344
345"BLD",160,"KRN","B",101,101)
346
347"BLD",160,"KRN","B",409.61,409.61)
348
349"BLD",160,"KRN","B",771,771)
350
351"BLD",160,"KRN","B",869.2,869.2)
352
353"BLD",160,"KRN","B",870,870)
354
355"BLD",160,"KRN","B",8994,8994)
356
357"BLD",160,"PRE")
358CWMAINI
359"BLD",160,"QUES",0)
360^9.62^^0
361"BLD",160,"REQB",0)
362^9.611^^
363"DATA",8989.51,1,0)
364CWMA SOUND MESSAGE OPEN^GUIMAIL MESSAGE OPEN SOUND^0^^Open Message Sound File Location
365"DATA",8989.51,1,1)
366F^^Enter the full path to the wav sound file
367"DATA",8989.51,1,20,0)
368^^4^4^2990423.100233
369"DATA",8989.51,1,20,1,0)
370This parameter holds the full resolved path to the wav file that will be
371"DATA",8989.51,1,20,2,0)
372played on the client system when a message is opened.
373"DATA",8989.51,1,20,3,0)
374
375"DATA",8989.51,1,20,4,0)
376Client attribute: [Sound]Message Open
377"DATA",8989.51,1,30,0)
378^8989.513I^2^2
379"DATA",8989.51,1,30,1,0)
3801^200
381"DATA",8989.51,1,30,2,0)
3829^9.4
383"DATA",8989.51,2,0)
384CWMA SOUND MESSAGE CLOSE^GUIMAIL MESSAGE CLOSE SOUND^0^^Close Message Sound File Location
385"DATA",8989.51,2,1)
386F^^Enter the full path to the wav sound file
387"DATA",8989.51,2,20,0)
388^^4^4^2990423.100321
389"DATA",8989.51,2,20,1,0)
390This parameter holds the full resolved path to the wav file that will be
391"DATA",8989.51,2,20,2,0)
392played on the client system when a message is closed.
393"DATA",8989.51,2,20,3,0)
394
395"DATA",8989.51,2,20,4,0)
396Client attribute: [Sound]Message Close
397"DATA",8989.51,2,30,0)
398^8989.513I^2^2
399"DATA",8989.51,2,30,1,0)
4001^200
401"DATA",8989.51,2,30,2,0)
4029^9.4
403"DATA",8989.51,3,0)
404CWMA SOUND NEW MAIL^GUIMAIL NEW MAIL SOUND^0^^New Mail Sound File Location
405"DATA",8989.51,3,1)
406F^^Enter the full path to the wav sound file
407"DATA",8989.51,3,20,0)
408^^4^4^2990423^
409"DATA",8989.51,3,20,1,0)
410This parameter holds the full resolved path to the wav file that will be
411"DATA",8989.51,3,20,2,0)
412played on the client system when new mail is received.
413"DATA",8989.51,3,20,3,0)
414
415"DATA",8989.51,3,20,4,0)
416Client attribute: [Sound]New Mail
417"DATA",8989.51,3,30,0)
418^8989.513I^2^2
419"DATA",8989.51,3,30,1,0)
4201^200
421"DATA",8989.51,3,30,2,0)
4229^9.4
423"DATA",8989.51,4,0)
424CWMA STARTUP NEW MAIL^GUIMAIL STARTUP RETRIEVE NEW MAIL^0^^Retrieve New Mail at Startup
425"DATA",8989.51,4,1)
426S^0:False;1:True^Enter 'True' or 'False'
427"DATA",8989.51,4,2)
428
429"DATA",8989.51,4,20,0)
430^^4^4^2981228^
431"DATA",8989.51,4,20,1,0)
432This parameter holds a boolean value of 'True' or 'False' and is used by
433"DATA",8989.51,4,20,2,0)
434the client system to determine if New Mail will be displayed on Startup.
435"DATA",8989.51,4,20,3,0)
436
437"DATA",8989.51,4,20,4,0)
438Client attribute: [StartUp]StartUpNewMail=
439"DATA",8989.51,4,30,0)
440^8989.513I^2^2
441"DATA",8989.51,4,30,1,0)
4421^200
443"DATA",8989.51,4,30,2,0)
4449^9.4
445"DATA",8989.51,5,0)
446CWMA STARTUP OPEN MAIL BOX^GUIMAIL OPEN MAIL BOX^0^^Open a Mail Box at Startup
447"DATA",8989.51,5,1)
448S^0:False;1:True^Enter 'True' or 'False'
449"DATA",8989.51,5,20,0)
450^^4^4^2990423.100148
451"DATA",8989.51,5,20,1,0)
452This parameter holds the setting for mail box opening at start-up of the
453"DATA",8989.51,5,20,2,0)
454client application.
455"DATA",8989.51,5,20,3,0)
456
457"DATA",8989.51,5,20,4,0)
458Client attribute: [StartUp]StartUpOpenMailBoxName
459"DATA",8989.51,5,30,0)
460^8989.513I^2^2
461"DATA",8989.51,5,30,1,0)
4621^200
463"DATA",8989.51,5,30,2,0)
4649^9.4
465"DATA",8989.51,6,0)
466CWMA STARTUP MAIL BOX NAME^GUIMAIL OPEN MAIL BOX NAME^0^^Mail Box Name to Open
467"DATA",8989.51,6,1)
468F^^Enter mail box name to open Name is case sensitive
469"DATA",8989.51,6,20,0)
470^^5^5^2990423^
471"DATA",8989.51,6,20,1,0)
472This parameters holds the name of the Mail Box that will be opened at
473"DATA",8989.51,6,20,2,0)
474client application startup if the CWMA STARTUP OPEN MAIL BOX parameter is
475"DATA",8989.51,6,20,3,0)
476set to 1. This value is case sensitive.
477"DATA",8989.51,6,20,4,0)
478
479"DATA",8989.51,6,20,5,0)
480Client attribute: [StartUp]StartUpOpenMailBoxName
481"DATA",8989.51,6,30,0)
482^8989.513I^2^2
483"DATA",8989.51,6,30,1,0)
4841^200
485"DATA",8989.51,6,30,2,0)
4869^9.4
487"DATA",8989.51,7,0)
488CWMA GENERAL CMA STYLE^GUIMAIL CMA STYLE DEFAULT^0^^Msg Attrib Style
489"DATA",8989.51,7,1)
490S^0:Use Menu;1:Show Checkboxes^Enter the display style on Create Message Form
491"DATA",8989.51,7,20,0)
492^^4^4^2981228.143111
493"DATA",8989.51,7,20,1,0)
494This parameter holds the style that the Create Message Form will use to
495"DATA",8989.51,7,20,2,0)
496display Message Attributes.
497"DATA",8989.51,7,20,3,0)
498
499"DATA",8989.51,7,20,4,0)
500Client attribute: [General]CreateMessageAttributes
501"DATA",8989.51,7,30,0)
502^8989.513I^2^2
503"DATA",8989.51,7,30,1,0)
5041^200
505"DATA",8989.51,7,30,2,0)
5069^9.4
507"DATA",8989.51,8,0)
508CWMA GENERAL MPD TAB^GUIMAIL MSG PROPERTIES DEFAULT TAB^0^^MSG Properties Default Tab
509"DATA",8989.51,8,1)
510S^0:Recipients;1:Message Info;2:Addressed To^Enter the default tab
511"DATA",8989.51,8,20,0)
512^^4^4^2981228.145529
513"DATA",8989.51,8,20,1,0)
514This parameter holds the default Message Properties Tab that will display
515"DATA",8989.51,8,20,2,0)
516when viewing the message attributes.
517"DATA",8989.51,8,20,3,0)
518
519"DATA",8989.51,8,20,4,0)
520Client attribute: [General]MessagePropertiesDefaultTab
521"DATA",8989.51,8,30,0)
522^8989.513I^2^2
523"DATA",8989.51,8,30,1,0)
5241^200
525"DATA",8989.51,8,30,2,0)
5269^9.4
527"DATA",8989.51,9,0)
528CWMA GENERAL NMP FREQ^GUIMAIL NEW MAIL POLLING FREQUENCY^0^^New Mail Polling Freq.
529"DATA",8989.51,9,1)
530N^1:360:0^Enter number of minutes for polling frequency
531"DATA",8989.51,9,20,0)
532^^4^4^2981228.145551
533"DATA",8989.51,9,20,1,0)
534This parameter holds the number of minutes that the application will poll
535"DATA",8989.51,9,20,2,0)
536the VISTA mail server for new mail.
537"DATA",8989.51,9,20,3,0)
538
539"DATA",8989.51,9,20,4,0)
540Client attribute: [General]NewMailPollingFrequency
541"DATA",8989.51,9,30,0)
542^8989.513I^2^2
543"DATA",8989.51,9,30,1,0)
5441^200
545"DATA",8989.51,9,30,2,0)
5469^9.4
547"DATA",8989.51,10,0)
548CWMA GENERAL MD COUNT^GUIMAIL # OF MSG DISPLAY COUNT^0^^Message Display Count
549"DATA",8989.51,10,1)
550N^1:49^Enter the number of messages to display
551"DATA",8989.51,10,20,0)
552^^4^4^2981228.145151
553"DATA",8989.51,10,20,1,0)
554This parameter holds the number of messages to display in main message
555"DATA",8989.51,10,20,2,0)
556viewer.
557"DATA",8989.51,10,20,3,0)
558
559"DATA",8989.51,10,20,4,0)
560Client attribute: [General]MessageDisplayCount
561"DATA",8989.51,10,30,0)
562^8989.513I^2^2
563"DATA",8989.51,10,30,1,0)
5641^200
565"DATA",8989.51,10,30,2,0)
5669^9.4
567"DATA",8989.51,11,0)
568CWMA GENERAL VISTA PRT^GUIMAIL DEFAULT VISTA PRINTER^0^^VISTA Printer Name
569"DATA",8989.51,11,1)
570F^^Enter the Vista printer name as defined in the Device File
571"DATA",8989.51,11,20,0)
572^^3^3^2981228.145625
573"DATA",8989.51,11,20,1,0)
574This parameter holds the default Vista printer name.
575"DATA",8989.51,11,20,2,0)
576
577"DATA",8989.51,11,20,3,0)
578Client attribute: [General]DefaultVistaPrinter
579"DATA",8989.51,11,30,0)
580^8989.513I^2^2
581"DATA",8989.51,11,30,1,0)
5821^200
583"DATA",8989.51,11,30,2,0)
5849^9.4
585"DATA",8989.51,12,0)
586CWMA SOUND PRIORITY MAIL^GUIMAIL PRIORITY MAIL SOUND^0^^Priority Message Sound File Location
587"DATA",8989.51,12,1)
588F^^Enter the full path to the wav sound file
589"DATA",8989.51,12,20,0)
590^^4^4^2990423.100209
591"DATA",8989.51,12,20,1,0)
592This parameter holds the full resolved path to the wav file that will be
593"DATA",8989.51,12,20,2,0)
594played on the client system when a message is of type Priority.
595"DATA",8989.51,12,20,3,0)
596
597"DATA",8989.51,12,20,4,0)
598Client attribute: [Sound]Message Priority
599"DATA",8989.51,12,30,0)
600^8989.513I^2^2
601"DATA",8989.51,12,30,1,0)
6021^200
603"DATA",8989.51,12,30,2,0)
6049^9.4
605"DATA",8989.51,13,0)
606CWMA GENERAL PRINTMODE^GUIMAIL DEFAULT PRINT MODE^0^^Print Mode
607"DATA",8989.51,13,1)
608S^0:Vista;1:Windows^Enter mode of default printing
609"DATA",8989.51,13,20,0)
610^^3^3^2990423^
611"DATA",8989.51,13,20,1,0)
612This parameter holds the default mode of printing for the Print button.
613"DATA",8989.51,13,20,2,0)
614
615"DATA",8989.51,13,20,3,0)
616Client attribute: [General]DefaultPrintMode
617"DATA",8989.51,13,30,0)
618^8989.513I^2^2
619"DATA",8989.51,13,30,1,0)
6201^200
621"DATA",8989.51,13,30,2,0)
6229^9.4
623"DATA",8989.51,14,0)
624CWMA GENERAL MD COL^GUIMAIL MSG DISPLAY COLUMN SETTINGS^1^Column Display Sequence^Column,Width
625"DATA",8989.51,14,1)
626F^^Example: 3,50 (Column Number (zero based), pixel width)(Pattern: 1.2N1","1.N)
627"DATA",8989.51,14,2)
628K:X'?1.2N1","1.N X
629"DATA",8989.51,14,6)
630N^1:7^Enter the sequence in which the columns will display
631"DATA",8989.51,14,20,0)
632^^7^7^2990422^^
633"DATA",8989.51,14,20,1,0)
634This parameter holds the ordering of the columns and the column/width value
635"DATA",8989.51,14,20,2,0)
636pair. The value of each sequence instance will be in the following format:
637"DATA",8989.51,14,20,3,0)
638
639"DATA",8989.51,14,20,4,0)
640Column Number, a comma, and column width in pixels. The column number is
641"DATA",8989.51,14,20,5,0)
642zero based.
643"DATA",8989.51,14,20,6,0)
644
645"DATA",8989.51,14,20,7,0)
646Client attribute: [General]MessageDisplayColumns
647"DATA",8989.51,14,30,0)
648^8989.513I^2^2
649"DATA",8989.51,14,30,1,0)
6501^200
651"DATA",8989.51,14,30,2,0)
6529^9.4
653"DATA",8989.51,15,0)
654CWMA SOUND ENABLED^GUIMAIL SOUND ENABLED^0^^Enable Sound
655"DATA",8989.51,15,1)
656S^0:False;1:True^Enter '1' to play sound, '0' to disable sound
657"DATA",8989.51,15,20,0)
658^^3^3^2990423.100335
659"DATA",8989.51,15,20,1,0)
660This parameter holds the value of whether or not sound will be played.
661"DATA",8989.51,15,20,2,0)
662
663"DATA",8989.51,15,20,3,0)
664Client attribute: [Sound]Sound
665"DATA",8989.51,15,30,0)
666^8989.513I^2^2
667"DATA",8989.51,15,30,1,0)
6681^200
669"DATA",8989.51,15,30,2,0)
6709^9.4
671"DATA",8989.51,16,0)
672CWMA ALLOW ATTACHMENTS^GUIMAIL ALLOW ATTACHMENTS^0^^Allow attachments to be added to message
673"DATA",8989.51,16,1)
674S^0:False;1:True^Enter 'True' or 'False'
675"DATA",8989.51,16,20,0)
676^^4^4^2990907^
677"DATA",8989.51,16,20,1,0)
678This parameter holds a boolean value of 'True' or 'False' and is used by
679"DATA",8989.51,16,20,2,0)
680the client system to determine if a user can add attachments to messages.
681"DATA",8989.51,16,20,3,0)
682
683"DATA",8989.51,16,20,4,0)
684Client attribute: [General]AllowAttachments=
685"DATA",8989.51,16,30,0)
686^8989.513I^2^2
687"DATA",8989.51,16,30,1,0)
6881^200
689"DATA",8989.51,16,30,2,0)
6909^9.4
691"DATA",8989.52,1,0)
692CWMA PACKAGE PARAMETERS^GUI Mail Package Parameters^9.4
693"DATA",8989.52,1,10,0)
694^8989.521IA^16^16
695"DATA",8989.52,1,10,1,0)
6961^4
697"DATA",8989.52,1,10,2,0)
6982^5
699"DATA",8989.52,1,10,3,0)
7003^6
701"DATA",8989.52,1,10,4,0)
7024^7
703"DATA",8989.52,1,10,5,0)
7045^8
705"DATA",8989.52,1,10,6,0)
7066^9
707"DATA",8989.52,1,10,7,0)
7087^10
709"DATA",8989.52,1,10,8,0)
7108^13
711"DATA",8989.52,1,10,9,0)
7129^11
713"DATA",8989.52,1,10,10,0)
71410^14
715"DATA",8989.52,1,10,11,0)
71620^1
717"DATA",8989.52,1,10,12,0)
71821^2
719"DATA",8989.52,1,10,13,0)
72022^12
721"DATA",8989.52,1,10,14,0)
72223^3
723"DATA",8989.52,1,10,15,0)
72415^15
725"DATA",8989.52,1,10,16,0)
72630^16
727"DATA",8989.52,2,0)
728CWMA USER PARAMETERS^GUI Mail Package Parameters^200
729"DATA",8989.52,2,10,0)
730^8989.521IA^16^16
731"DATA",8989.52,2,10,1,0)
7321^4
733"DATA",8989.52,2,10,2,0)
7342^5
735"DATA",8989.52,2,10,3,0)
7363^6
737"DATA",8989.52,2,10,4,0)
7384^7
739"DATA",8989.52,2,10,5,0)
7405^8
741"DATA",8989.52,2,10,6,0)
7426^9
743"DATA",8989.52,2,10,7,0)
7447^10
745"DATA",8989.52,2,10,8,0)
7468^13
747"DATA",8989.52,2,10,9,0)
7489^11
749"DATA",8989.52,2,10,10,0)
75010^14
751"DATA",8989.52,2,10,11,0)
75220^1
753"DATA",8989.52,2,10,12,0)
75421^2
755"DATA",8989.52,2,10,13,0)
75622^12
757"DATA",8989.52,2,10,14,0)
75823^3
759"DATA",8989.52,2,10,15,0)
76015^15
761"DATA",8989.52,2,10,16,0)
76260^16
763"FIA",8989.51)
764PARAMETER DEFINITION
765"FIA",8989.51,0)
766^XTV(8989.51,
767"FIA",8989.51,0,0)
7688989.51I
769"FIA",8989.51,0,1)
770n^n^f^^y^^y^r^n
771"FIA",8989.51,0,10)
772
773"FIA",8989.51,0,11)
774I $E(^(0),1,4)="CWMA"
775"FIA",8989.51,0,"RLRO")
776
777"FIA",8989.51,0,"VR")
7782.1^CW GUIMail
779"FIA",8989.51,8989.51)
7800
781"FIA",8989.51,8989.512)
7820
783"FIA",8989.51,8989.513)
7840
785"FIA",8989.52)
786PARAMETER TEMPLATE
787"FIA",8989.52,0)
788^XTV(8989.52,
789"FIA",8989.52,0,0)
7908989.52I
791"FIA",8989.52,0,1)
792n^n^f^^y^^y^o^n
793"FIA",8989.52,0,10)
794
795"FIA",8989.52,0,11)
796I $E($P(^XTV(8989.52,+Y,0),"^"),1,4)="CWMA"
797"FIA",8989.52,0,"RLRO")
798
799"FIA",8989.52,0,"VR")
8002.1^CW GUIMail
801"FIA",8989.52,8989.52)
8020
803"FIA",8989.52,8989.521)
8040
805"FRV1",8989.52,"1,0",3)
806PACKAGE
807"FRV1",8989.52,"1,0",3,"F")
808;DIC(
809"FRV1",8989.52,"1,10,1,0",2)
810CWMA STARTUP NEW MAIL
811"FRV1",8989.52,"1,10,1,0",2,"F")
812;XTV(8989.51,
813"FRV1",8989.52,"1,10,10,0",2)
814CWMA GENERAL MD COL
815"FRV1",8989.52,"1,10,10,0",2,"F")
816;XTV(8989.51,
817"FRV1",8989.52,"1,10,11,0",2)
818CWMA SOUND MESSAGE OPEN
819"FRV1",8989.52,"1,10,11,0",2,"F")
820;XTV(8989.51,
821"FRV1",8989.52,"1,10,12,0",2)
822CWMA SOUND MESSAGE CLOSE
823"FRV1",8989.52,"1,10,12,0",2,"F")
824;XTV(8989.51,
825"FRV1",8989.52,"1,10,13,0",2)
826CWMA SOUND PRIORITY MAIL
827"FRV1",8989.52,"1,10,13,0",2,"F")
828;XTV(8989.51,
829"FRV1",8989.52,"1,10,14,0",2)
830CWMA SOUND NEW MAIL
831"FRV1",8989.52,"1,10,14,0",2,"F")
832;XTV(8989.51,
833"FRV1",8989.52,"1,10,15,0",2)
834CWMA SOUND ENABLED
835"FRV1",8989.52,"1,10,15,0",2,"F")
836;XTV(8989.51,
837"FRV1",8989.52,"1,10,16,0",2)
838CWMA ALLOW ATTACHMENTS
839"FRV1",8989.52,"1,10,16,0",2,"F")
840;XTV(8989.51,
841"FRV1",8989.52,"1,10,2,0",2)
842CWMA STARTUP OPEN MAIL BOX
843"FRV1",8989.52,"1,10,2,0",2,"F")
844;XTV(8989.51,
845"FRV1",8989.52,"1,10,3,0",2)
846CWMA STARTUP MAIL BOX NAME
847"FRV1",8989.52,"1,10,3,0",2,"F")
848;XTV(8989.51,
849"FRV1",8989.52,"1,10,4,0",2)
850CWMA GENERAL CMA STYLE
851"FRV1",8989.52,"1,10,4,0",2,"F")
852;XTV(8989.51,
853"FRV1",8989.52,"1,10,5,0",2)
854CWMA GENERAL MPD TAB
855"FRV1",8989.52,"1,10,5,0",2,"F")
856;XTV(8989.51,
857"FRV1",8989.52,"1,10,6,0",2)
858CWMA GENERAL NMP FREQ
859"FRV1",8989.52,"1,10,6,0",2,"F")
860;XTV(8989.51,
861"FRV1",8989.52,"1,10,7,0",2)
862CWMA GENERAL MD COUNT
863"FRV1",8989.52,"1,10,7,0",2,"F")
864;XTV(8989.51,
865"FRV1",8989.52,"1,10,8,0",2)
866CWMA GENERAL PRINTMODE
867"FRV1",8989.52,"1,10,8,0",2,"F")
868;XTV(8989.51,
869"FRV1",8989.52,"1,10,9,0",2)
870CWMA GENERAL VISTA PRT
871"FRV1",8989.52,"1,10,9,0",2,"F")
872;XTV(8989.51,
873"FRV1",8989.52,"2,0",3)
874NEW PERSON
875"FRV1",8989.52,"2,0",3,"F")
876;DIC(
877"FRV1",8989.52,"2,10,1,0",2)
878CWMA STARTUP NEW MAIL
879"FRV1",8989.52,"2,10,1,0",2,"F")
880;XTV(8989.51,
881"FRV1",8989.52,"2,10,10,0",2)
882CWMA GENERAL MD COL
883"FRV1",8989.52,"2,10,10,0",2,"F")
884;XTV(8989.51,
885"FRV1",8989.52,"2,10,11,0",2)
886CWMA SOUND MESSAGE OPEN
887"FRV1",8989.52,"2,10,11,0",2,"F")
888;XTV(8989.51,
889"FRV1",8989.52,"2,10,12,0",2)
890CWMA SOUND MESSAGE CLOSE
891"FRV1",8989.52,"2,10,12,0",2,"F")
892;XTV(8989.51,
893"FRV1",8989.52,"2,10,13,0",2)
894CWMA SOUND PRIORITY MAIL
895"FRV1",8989.52,"2,10,13,0",2,"F")
896;XTV(8989.51,
897"FRV1",8989.52,"2,10,14,0",2)
898CWMA SOUND NEW MAIL
899"FRV1",8989.52,"2,10,14,0",2,"F")
900;XTV(8989.51,
901"FRV1",8989.52,"2,10,15,0",2)
902CWMA SOUND ENABLED
903"FRV1",8989.52,"2,10,15,0",2,"F")
904;XTV(8989.51,
905"FRV1",8989.52,"2,10,16,0",2)
906CWMA ALLOW ATTACHMENTS
907"FRV1",8989.52,"2,10,16,0",2,"F")
908;XTV(8989.51,
909"FRV1",8989.52,"2,10,2,0",2)
910CWMA STARTUP OPEN MAIL BOX
911"FRV1",8989.52,"2,10,2,0",2,"F")
912;XTV(8989.51,
913"FRV1",8989.52,"2,10,3,0",2)
914CWMA STARTUP MAIL BOX NAME
915"FRV1",8989.52,"2,10,3,0",2,"F")
916;XTV(8989.51,
917"FRV1",8989.52,"2,10,4,0",2)
918CWMA GENERAL CMA STYLE
919"FRV1",8989.52,"2,10,4,0",2,"F")
920;XTV(8989.51,
921"FRV1",8989.52,"2,10,5,0",2)
922CWMA GENERAL MPD TAB
923"FRV1",8989.52,"2,10,5,0",2,"F")
924;XTV(8989.51,
925"FRV1",8989.52,"2,10,6,0",2)
926CWMA GENERAL NMP FREQ
927"FRV1",8989.52,"2,10,6,0",2,"F")
928;XTV(8989.51,
929"FRV1",8989.52,"2,10,7,0",2)
930CWMA GENERAL MD COUNT
931"FRV1",8989.52,"2,10,7,0",2,"F")
932;XTV(8989.51,
933"FRV1",8989.52,"2,10,8,0",2)
934CWMA GENERAL PRINTMODE
935"FRV1",8989.52,"2,10,8,0",2,"F")
936;XTV(8989.51,
937"FRV1",8989.52,"2,10,9,0",2)
938CWMA GENERAL VISTA PRT
939"FRV1",8989.52,"2,10,9,0",2,"F")
940;XTV(8989.51,
941"INIT")
942EN^CWMAINI
943"KRN",19,11198,-1)
9440^1
945"KRN",19,11198,0)
946CW MAIL^CW MAIL^^B^^^^^^^^
947"KRN",19,11198,1,0)
948^^1^1^2980925^
949"KRN",19,11198,1,1,0)
950This menu option is used to validate the Broker Context of a user.
951"KRN",19,11198,99)
95257216,70477
953"KRN",19,11198,99.1)
95456869,83450
955"KRN",19,11198,"RPC",0)
956^19.05P^103^103
957"KRN",19,11198,"RPC",11,0)
958DDR LISTER
959"KRN",19,11198,"RPC",12,0)
960DDR FILER
961"KRN",19,11198,"RPC",13,0)
962DDR GETS ENTRY DATA
963"KRN",19,11198,"RPC",14,0)
964DDR VALIDATOR
965"KRN",19,11198,"RPC",15,0)
966XWB GET VARIABLE VALUE
967"KRN",19,11198,"RPC",52,0)
968CW MAIL API
969"KRN",19,11198,"RPC",92,0)
970DDR FINDER
971"KRN",19,11198,"RPC",100,0)
972DDR DELETE ENTRY
973"KRN",19,11198,"RPC",101,0)
974DDR FIND1
975"KRN",19,11198,"RPC",102,0)
976DDR GET DD HELP
977"KRN",19,11198,"RPC",103,0)
978DDR LOCK/UNLOCK NODE
979"KRN",19,11198,"U")
980CW MAIL
981"KRN",8994,126,-1)
9820^1
983"KRN",8994,126,0)
984CW MAIL API^ENTRY^CWMAIL^4^P^^^1
985"KRN",8994,126,1,0)
986^^2^2^2990805^^^^
987"KRN",8994,126,1,1,0)
988The RPC Call is used by the Clinical Workstation GUI Vista Mail
989"KRN",8994,126,1,2,0)
990 application.
991"KRN",8994,126,2,0)
992^8994.02A^2^2
993"KRN",8994,126,2,1,0)
994PARAMETER^1^512
995"KRN",8994,126,2,2,0)
996TEXT ARRAY^2
997"KRN",8994,126,2,"B","PARAMETER",1)
998
999"KRN",8994,126,2,"B","TEXT ARRAY",2)
1000
1001"MBREQ")
10020
1003"ORD",0,9.8)
10049.8;;1;RTNF^XPDTA;RTNE^XPDTA
1005"ORD",0,9.8,0)
1006ROUTINE
1007"ORD",16,8994)
10088994;16;1;;;;;;;RPCDEL^XPDIA1
1009"ORD",16,8994,0)
1010REMOTE PROCEDURE
1011"ORD",18,19)
101219;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
1013"ORD",18,19,0)
1014OPTION
1015"PGL",8989.52,0,3,.03)
1016USE ENTITY FROM^*P1'^DIC(^0;3^S DIC("S")="I $$ALLOW^XPARDD1(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
1017"PGL",8989.52,0,4,.04)
1018USE INSTANCE FROM^P8989.51'^XTV(8989.51,^0;4^Q
1019"PGL",8989.521,0,2,.02)
1020PARAMETER^P8989.51'^XTV(8989.51,^0;2^Q
1021"PKG",439,-1)
10221^1
1023"PKG",439,0)
1024CW GUIMail^CWMA^CW GUIMail
1025"PKG",439,1,0)
1026^^2^2^2990805^^^^
1027"PKG",439,1,1,0)
1028This package holds the Clinical Workstation GUIMail files and
1029"PKG",439,1,2,0)
1030specifications.
1031"PKG",439,5)
1032INDPLS
1033"PKG",439,7)
1034^^III
1035"PKG",439,20,0)
1036^9.402P^^
1037"PKG",439,22,0)
1038^9.49I^1^1
1039"PKG",439,22,1,0)
10402.1^2990920
1041"PKG",439,22,1,1,0)
1042^^76^76^2990920
1043"PKG",439,22,1,1,1,0)
1044This KIDS Build will install Version 2.1 of Vista GuiMail. This installation
1045"PKG",439,22,1,1,2,0)
1046makes the GuiMail Server software compatible with MailMan v7.1 after patch 50
1047"PKG",439,22,1,1,3,0)
1048has been installed. The version 2.1 GuiMail Client software was be installed
1049"PKG",439,22,1,1,4,0)
1050and used on the PC side. Please refer to the ReadMe.Txt file in the ZIP file
1051"PKG",439,22,1,1,5,0)
1052for instructions regarding installation. Also, refer to the GuiMail_Changes.Txt
1053"PKG",439,22,1,1,6,0)
1054file included in the ZIP file for a listing of major changes that can be found
1055"PKG",439,22,1,1,7,0)
1056in version 2.1.
1057"PKG",439,22,1,1,8,0)
1058
1059"PKG",439,22,1,1,9,0)
1060Here is a sample install dialog:
1061"PKG",439,22,1,1,10,0)
1062
1063"PKG",439,22,1,1,11,0)
1064
1065"PKG",439,22,1,1,12,0)
1066PACKAGE: CW GUIMail 2.1 Jun 03, 1999 1:58 pm PAGE 1
1067"PKG",439,22,1,1,13,0)
1068 COMPLETED ELAPSED
1069"PKG",439,22,1,1,14,0)
1070-----------------------------------------------------------------------------------------------------------------------------------
1071"PKG",439,22,1,1,15,0)
1072STATUS: Install Completed DATE LOADED: JUN 01, 1999@14:02:49
1073"PKG",439,22,1,1,16,0)
1074INSTALLED BY: SALMON,PHILLIP
1075"PKG",439,22,1,1,17,0)
1076NATIONAL PACKAGE: CW GUIMail
1077"PKG",439,22,1,1,18,0)
1078
1079"PKG",439,22,1,1,19,0)
1080INSTALL STARTED: JUN 01, 1999@14:03:03 14:03:13 0:00:10
1081"PKG",439,22,1,1,20,0)
1082
1083"PKG",439,22,1,1,21,0)
1084ROUTINES: 14:03:04 0:00:01
1085"PKG",439,22,1,1,22,0)
1086
1087"PKG",439,22,1,1,23,0)
1088FILES:
1089"PKG",439,22,1,1,24,0)
1090PARAMETER DEFINITION 14:03:04
1091"PKG",439,22,1,1,25,0)
1092PARAMETER TEMPLATE 14:03:05 0:00:01
1093"PKG",439,22,1,1,26,0)
1094
1095"PKG",439,22,1,1,27,0)
1096REMOTE PROCEDURE 14:03:08 0:00:03
1097"PKG",439,22,1,1,28,0)
1098OPTION 14:03:09 0:00:01
1099"PKG",439,22,1,1,29,0)
1100
1101"PKG",439,22,1,1,30,0)
1102POST-INIT CHECK POINTS:
1103"PKG",439,22,1,1,31,0)
1104XPD POSTINSTALL STARTED 14:03:12 0:00:03
1105"PKG",439,22,1,1,32,0)
1106XPD POSTINSTALL COMPLETED 14:03:12
1107"PKG",439,22,1,1,33,0)
1108
1109"PKG",439,22,1,1,34,0)
1110INSTALL QUESTION PROMPT ANSWER
1111"PKG",439,22,1,1,35,0)
1112
1113"PKG",439,22,1,1,36,0)
1114XPZ1
1115"PKG",439,22,1,1,37,0)
1116MESSAGES:
1117"PKG",439,22,1,1,38,0)
1118
1119"PKG",439,22,1,1,39,0)
1120 Install Started for CW GUIMail 2.1 :
1121"PKG",439,22,1,1,40,0)
1122 Jun 01, 1999@14:03:03
1123"PKG",439,22,1,1,41,0)
1124
1125"PKG",439,22,1,1,42,0)
1126 Installing Routines:
1127"PKG",439,22,1,1,43,0)
1128 Jun 01, 1999@14:03:04
1129"PKG",439,22,1,1,44,0)
1130
1131"PKG",439,22,1,1,45,0)
1132 Installing Data Dictionaries:
1133"PKG",439,22,1,1,46,0)
1134
1135"PKG",439,22,1,1,47,0)
1136Data Dictionary for File #8989.51 not installed.
1137"PKG",439,22,1,1,48,0)
1138
1139"PKG",439,22,1,1,49,0)
1140Data Dictionary for File #8989.52 not installed.
1141"PKG",439,22,1,1,50,0)
1142 Jun 01, 1999@14:03:05
1143"PKG",439,22,1,1,51,0)
1144
1145"PKG",439,22,1,1,52,0)
1146 Installing Data:
1147"PKG",439,22,1,1,53,0)
1148 Jun 01, 1999@14:03:08
1149"PKG",439,22,1,1,54,0)
1150
1151"PKG",439,22,1,1,55,0)
1152 Installing PACKAGE COMPONENTS:
1153"PKG",439,22,1,1,56,0)
1154
1155"PKG",439,22,1,1,57,0)
1156 Installing REMOTE PROCEDURE
1157"PKG",439,22,1,1,58,0)
1158
1159"PKG",439,22,1,1,59,0)
1160 Installing OPTION
1161"PKG",439,22,1,1,60,0)
1162 Jun 01, 1999@14:03:09
1163"PKG",439,22,1,1,61,0)
1164
1165"PKG",439,22,1,1,62,0)
1166 Running Post-Install Routine: EN^CWMAINI
1167"PKG",439,22,1,1,63,0)
1168
1169"PKG",439,22,1,1,64,0)
1170There are 8 user(s) to convert
1171"PKG",439,22,1,1,65,0)
1172Beginning conversion of preferences...
1173"PKG",439,22,1,1,66,0)
1174
1175"PKG",439,22,1,1,67,0)
1176Preference conversion is finished.
1177"PKG",439,22,1,1,68,0)
1178
1179"PKG",439,22,1,1,69,0)
1180Removing CW GUI VISTA MAIL USER (890) File ...
1181"PKG",439,22,1,1,70,0)
1182
1183"PKG",439,22,1,1,71,0)
1184 Updating Routine file...
1185"PKG",439,22,1,1,72,0)
1186
1187"PKG",439,22,1,1,73,0)
1188 Updating KIDS files...
1189"PKG",439,22,1,1,74,0)
1190
1191"PKG",439,22,1,1,75,0)
1192 CW GUIMail 2.1 Installed.
1193"PKG",439,22,1,1,76,0)
1194 Jun 01, 1999@14:03:13
1195"PKG",439,"DEV")
1196Phillip Salmon/Indianapolis VAMC
1197"PKG",439,"VERSION")
11982.1
1199"PRE")
1200CWMAINI
1201"QUES","XPF1",0)
1202Y
1203"QUES","XPF1","??")
1204^D REP^XPDH
1205"QUES","XPF1","A")
1206Shall I write over your |FLAG| File
1207"QUES","XPF1","B")
1208YES
1209"QUES","XPF1","M")
1210D XPF1^XPDIQ
1211"QUES","XPF2",0)
1212Y
1213"QUES","XPF2","??")
1214^D DTA^XPDH
1215"QUES","XPF2","A")
1216Want my data |FLAG| yours
1217"QUES","XPF2","B")
1218YES
1219"QUES","XPF2","M")
1220D XPF2^XPDIQ
1221"QUES","XPI1",0)
1222YO
1223"QUES","XPI1","??")
1224^D INHIBIT^XPDH
1225"QUES","XPI1","A")
1226Want KIDS to INHIBIT LOGONs during the install
1227"QUES","XPI1","B")
1228YES
1229"QUES","XPI1","M")
1230D XPI1^XPDIQ
1231"QUES","XPM1",0)
1232PO^VA(200,:EM
1233"QUES","XPM1","??")
1234^D MG^XPDH
1235"QUES","XPM1","A")
1236Enter the Coordinator for Mail Group '|FLAG|'
1237"QUES","XPM1","B")
1238
1239"QUES","XPM1","M")
1240D XPM1^XPDIQ
1241"QUES","XPO1",0)
1242Y
1243"QUES","XPO1","??")
1244^D MENU^XPDH
1245"QUES","XPO1","A")
1246Want KIDS to Rebuild Menu Trees Upon Completion of Install
1247"QUES","XPO1","B")
1248YES
1249"QUES","XPO1","M")
1250D XPO1^XPDIQ
1251"QUES","XPZ1",0)
1252Y
1253"QUES","XPZ1","??")
1254^D OPT^XPDH
1255"QUES","XPZ1","A")
1256Want to DISABLE Scheduled Options, Menu Options, and Protocols
1257"QUES","XPZ1","B")
1258YES
1259"QUES","XPZ1","M")
1260D XPZ1^XPDIQ
1261"QUES","XPZ2",0)
1262Y
1263"QUES","XPZ2","??")
1264^D RTN^XPDH
1265"QUES","XPZ2","A")
1266Want to MOVE routines to other CPUs
1267"QUES","XPZ2","B")
1268NO
1269"QUES","XPZ2","M")
1270D XPZ2^XPDIQ
1271"RTN")
127218
1273"RTN","CWMACPPI")
12740^1^B4934611
1275"RTN","CWMACPPI",1,0)
1276CWMACPPI ;RVAMC/PLS - Convert Personal Preferences to Parameters Utility;26-Aug-1999 12:44;PS
1277"RTN","CWMACPPI",2,0)
1278 ;;2.1;CWMA GuiMail;;Jan 06, 1999
1279"RTN","CWMACPPI",3,0)
1280 ;Call EN to convert Personal Preferences from File 890
1281"RTN","CWMACPPI",4,0)
1282 ;to the Kernel Toolkit Parameter File.
1283"RTN","CWMACPPI",5,0)
1284EN ;entry point
1285"RTN","CWMACPPI",6,0)
1286 N CWLP,CWCNT,DTOUT,DUOUT,DIR,X,Y
1287"RTN","CWMACPPI",7,0)
1288 ;check for existing CWMAIL1 global containing preferences
1289"RTN","CWMACPPI",8,0)
1290 I '$D(^CWMAIL1) D BMES^XPDUTL("CWMAIL1 Global doesn't exist! Conversion of preferences not needed.") Q
1291"RTN","CWMACPPI",9,0)
1292 S (CWCNT,CWLP)=0 F S CWLP=$O(^CWMAIL1(CWLP)) Q:CWLP<1 D
1293"RTN","CWMACPPI",10,0)
1294 . I $D(^CWMAIL1(CWLP,1,1,0)) S CWCNT=CWCNT+1
1295"RTN","CWMACPPI",11,0)
1296 D BMES^XPDUTL("There are "_CWCNT_" user(s) to convert")
1297"RTN","CWMACPPI",12,0)
1298 D UPDATE^XPDID(0) ;init progress bar
1299"RTN","CWMACPPI",13,0)
1300 D MES^XPDUTL("Beginning conversion of preferences...")
1301"RTN","CWMACPPI",14,0)
1302 D LOOP
1303"RTN","CWMACPPI",15,0)
1304 Q
1305"RTN","CWMACPPI",16,0)
1306LOOP ;loop thru users
1307"RTN","CWMACPPI",17,0)
1308 N CWUSR,CWLP,CWTXT,CWVAL,CWPREF,CWCNTC,XPDIDTOT
1309"RTN","CWMACPPI",18,0)
1310 S CWUSR=0
1311"RTN","CWMACPPI",19,0)
1312 S XPDIDTOT=CWCNT ;set total number
1313"RTN","CWMACPPI",20,0)
1314 F S CWUSR=$O(^CWMAIL1(CWUSR)) Q:CWUSR<1 D
1315"RTN","CWMACPPI",21,0)
1316 . S CWCNTC=+$G(CWCNTC)+1
1317"RTN","CWMACPPI",22,0)
1318 . I CWCNTC#10=0 D UPDATE^XPDID(CWCNTC)
1319"RTN","CWMACPPI",23,0)
1320 . S CWPREF=$O(^CWMAIL1(CWUSR,1,"B","PREFERENCES",0)) ;get node
1321"RTN","CWMACPPI",24,0)
1322 . Q:'CWPREF ;no preferences stored
1323"RTN","CWMACPPI",25,0)
1324 . S CWLP=0 F S CWLP=$O(^CWMAIL1(CWUSR,1,CWPREF,1,CWLP)) Q:CWLP<1 D
1325"RTN","CWMACPPI",26,0)
1326 . . S CWTXT=^CWMAIL1(CWUSR,1,CWPREF,1,CWLP,0) ;get node text
1327"RTN","CWMACPPI",27,0)
1328 . . I CWTXT'?1"[".E1"]" D
1329"RTN","CWMACPPI",28,0)
1330 . . . S CWPRM=$$GETPRM^CWMAILE($P(CWTXT,"=")) ;get parameter
1331"RTN","CWMACPPI",29,0)
1332 . . . I $L(CWPRM) D
1333"RTN","CWMACPPI",30,0)
1334 . . . . S CWVAL=$$STRIP^XLFSTR($P(CWTXT,"=",2)," ") ;get value
1335"RTN","CWMACPPI",31,0)
1336 . . . . I CWPRM="1|CWMA GENERAL MD COL" D
1337"RTN","CWMACPPI",32,0)
1338 . . . . . S CWVAL=CWVAL_$S($E(CWVAL,$L(CWVAL))=";":"6,38",1:";6,38") ;add data for new column
1339"RTN","CWMACPPI",33,0)
1340 . . . . S CWERR=$$SETPARM^CWMAILD(CWUSR,CWPRM,CWVAL) ;set value into parameter
1341"RTN","CWMACPPI",34,0)
1342 D BMES^XPDUTL("Preference conversion is finished.")
1343"RTN","CWMACPPI",35,0)
1344 Q
1345"RTN","CWMAIL")
13460^2^B16733706
1347"RTN","CWMAIL",1,0)
1348CWMAIL ;INDPLS/PLS- DELPHI VISTA MAIL SERVER ;16-Sep-1999 07:47;PS
1349"RTN","CWMAIL",2,0)
1350 ;;2.1;CWMA GuiMail;;Jan 06, 1999
1351"RTN","CWMAIL",3,0)
1352 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
1353"RTN","CWMAIL",4,0)
1354ENTRY(CWDATA,CWINPUT,CWTEXT) ;CALL WITH CWINPUT=CALL;DUZ;MSG;BASKET;NEW BASKET;NEWMAIL, TEXT=TEXT ARRAY
1355"RTN","CWMAIL",5,0)
1356 N CWCALL,X,DUZ,CWMHDR,CWMST,U,CWSVER
1357"RTN","CWMAIL",6,0)
1358 ;REMOVED XMDUZ FROM BEING NEW STATEMENT
1359"RTN","CWMAIL",7,0)
1360 I $$NEWERR^%ZTER N $ET S $ET=""
1361"RTN","CWMAIL",8,0)
1362 S U="^"
1363"RTN","CWMAIL",9,0)
1364 S $ZT="ERR^CWMAIL"
1365"RTN","CWMAIL",10,0)
1366 K CWDATA
1367"RTN","CWMAIL",11,0)
1368 S CWDATA(1)="0^^AN ERROR HAS OCCURRED"
1369"RTN","CWMAIL",12,0)
1370 S CWCALL="%"_$$UP^XLFSTR($P(CWINPUT,";")) ;HOLDS TAG
1371"RTN","CWMAIL",13,0)
1372 S DUZ=$P(CWINPUT,";",2)
1373"RTN","CWMAIL",14,0)
1374 D DUZ^XUP(DUZ) ;SETUP DUZ ARRAY
1375"RTN","CWMAIL",15,0)
1376 D INIT^XMVVITAE ;UPDATE MAILMAN STATUS
1377"RTN","CWMAIL",16,0)
1378 S CWINPUT=$P(CWINPUT,";",3,999)
1379"RTN","CWMAIL",17,0)
1380 D PURGNAM
1381"RTN","CWMAIL",18,0)
1382 I CWCALL?1"%"1.7A,$T(@CWCALL)'="" D @(CWCALL_"(.CWDATA,CWINPUT,.CWTEXT)")
1383"RTN","CWMAIL",19,0)
1384 Q
1385"RTN","CWMAIL",20,0)
1386ERR D @^%ZOSF("ERRTN")
1387"RTN","CWMAIL",21,0)
1388 D RETGNAM
1389"RTN","CWMAIL",22,0)
1390 Q ;
1391"RTN","CWMAIL",23,0)
1392%READ(CWDATA,CWINPUT,CWTEXT) ;
1393"RTN","CWMAIL",24,0)
1394 D %READ^CWMAILA(.CWDATA,CWINPUT)
1395"RTN","CWMAIL",25,0)
1396 Q
1397"RTN","CWMAIL",26,0)
1398%LIST(CWDATA,CWINPUT,CWTEXT) ;
1399"RTN","CWMAIL",27,0)
1400 ;CWINPUT = MAIL TYPE OR MAILBOX NUMBER;
1401"RTN","CWMAIL",28,0)
1402 D %LIST^CWMAILA(.CWDATA,CWINPUT),RETGNAM
1403"RTN","CWMAIL",29,0)
1404 Q
1405"RTN","CWMAIL",30,0)
1406%DELETE(CWDATA,CWINPUT,CWTEXT) ;
1407"RTN","CWMAIL",31,0)
1408 D %DELETE^CWMAILA(.CWDATA,CWINPUT),RETGNAM
1409"RTN","CWMAIL",32,0)
1410 Q
1411"RTN","CWMAIL",33,0)
1412%SAVE(CWDATA,CWINPUT,CWTEXT) ;
1413"RTN","CWMAIL",34,0)
1414 D %SAVE^CWMAILA(.CWDATA,CWINPUT),RETGNAM
1415"RTN","CWMAIL",35,0)
1416 Q
1417"RTN","CWMAIL",36,0)
1418%MAKNEW(CWDATA,CWINPUT,CWTEXT) ;
1419"RTN","CWMAIL",37,0)
1420 D %MAKNEW^CWMAILA(.CWDATA,CWINPUT),RETGNAM
1421"RTN","CWMAIL",38,0)
1422 Q
1423"RTN","CWMAIL",39,0)
1424%NEWBSK(CWDATA,CWINPUT,CWTEXT) ;CREATE A NEW MAIL BASKET
1425"RTN","CWMAIL",40,0)
1426 D %NEWBSK^CWMAILA(.CWDATA,CWINPUT),RETGNAM
1427"RTN","CWMAIL",41,0)
1428 Q
1429"RTN","CWMAIL",42,0)
1430%RESEQ(CWDATA,CWINPUT,CWTEXT) ;RESEQUENCE A VISTA MAIL BASKET
1431"RTN","CWMAIL",43,0)
1432 D %RESEQ^CWMAILA(.CWDATA,CWINPUT),RETGNAM
1433"RTN","CWMAIL",44,0)
1434 Q
1435"RTN","CWMAIL",45,0)
1436%REPLY(CWDATA,CWINPUT,CWTEXT) ;
1437"RTN","CWMAIL",46,0)
1438 D %REPLY^CWMAILB(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
1439"RTN","CWMAIL",47,0)
1440 Q
1441"RTN","CWMAIL",48,0)
1442%FORWARD(CWDATA,CWINPUT,CWTEXT) ;
1443"RTN","CWMAIL",49,0)
1444 ;M ^TMP("CWMAIL","FORWARD",$H)=CWTEXT
1445"RTN","CWMAIL",50,0)
1446 ;S ^TMP("CWMAIL","CWINPUT",$J)=CWINPUT
1447"RTN","CWMAIL",51,0)
1448 D %FORWARD^CWMAILB(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
1449"RTN","CWMAIL",52,0)
1450 Q
1451"RTN","CWMAIL",53,0)
1452%ANSWER(CWDATA,CWINPUT,CWTEXT) ;
1453"RTN","CWMAIL",54,0)
1454 D %ANSWER^CWMAILB(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
1455"RTN","CWMAIL",55,0)
1456 Q
1457"RTN","CWMAIL",56,0)
1458%TERMIN(CWDATA,CWINPUT,CWTEXT) ;TERMINATE A MESSAGE THREAD
1459"RTN","CWMAIL",57,0)
1460 D %TERMIN^CWMAILB(.CWDATA,CWINPUT),RETGNAM
1461"RTN","CWMAIL",58,0)
1462 Q
1463"RTN","CWMAIL",59,0)
1464%CREATE(CWDATA,CWINPUT,CWTEXT) ;CREATE A NEW MESSAGE
1465"RTN","CWMAIL",60,0)
1466 D %CREATE^CWMAIL2(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
1467"RTN","CWMAIL",61,0)
1468 Q
1469"RTN","CWMAIL",62,0)
1470%LATER(CWDATA,CWINPUT,CWTEXT) ;LATER A MESSAGE
1471"RTN","CWMAIL",63,0)
1472 D %LATER^CWMAILC(.CWDATA,CWINPUT),RETGNAM
1473"RTN","CWMAIL",64,0)
1474 Q
1475"RTN","CWMAIL",65,0)
1476 ;
1477"RTN","CWMAIL",66,0)
1478%MBOX(CWDATA,CWINPUT,CWTEXT) ;RETRIEVE MAILBOXES
1479"RTN","CWMAIL",67,0)
1480 D %MBOX^CWMAILC(.CWDATA,CWINPUT),RETGNAM
1481"RTN","CWMAIL",68,0)
1482 Q
1483"RTN","CWMAIL",69,0)
1484%PMBOX(CWDATA,CWINPUT,CWTEXT) ;PURGE ENTIRE MAIL BOX
1485"RTN","CWMAIL",70,0)
1486 D %PMBOX^CWMAILC(.CWDATA,CWINPUT),RETGNAM
1487"RTN","CWMAIL",71,0)
1488 Q
1489"RTN","CWMAIL",72,0)
1490%RNMBOX(CWDATA,CWINPUT,CWTEXT) ;RENAME EXISTING MAILBOX
1491"RTN","CWMAIL",73,0)
1492 D %RNMBOX^CWMAILC(.CWDATA,CWINPUT),RETGNAM
1493"RTN","CWMAIL",74,0)
1494 Q
1495"RTN","CWMAIL",75,0)
1496%MSGRCP(CWDATA,CWINPUT,CWTEXT) ; RETURNS A LIST OF MESSAGE RECIPIENTS
1497"RTN","CWMAIL",76,0)
1498 D %MSGRCP^CWMAILC(.CWDATA,CWINPUT) ;,RETGNAM
1499"RTN","CWMAIL",77,0)
1500 Q
1501"RTN","CWMAIL",78,0)
1502%NETINFO(CWDATA,CWINPUT,CWTEXT) ; RETURNS NETWORK TRANSMISSION INFO
1503"RTN","CWMAIL",79,0)
1504 D %NETINFO^CWMAILC(.CWDATA,CWINPUT) ;,RETGNAM
1505"RTN","CWMAIL",80,0)
1506 Q
1507"RTN","CWMAIL",81,0)
1508%ADRSTO(CWDATA,CWINPUT,CWTEXT) ;RETURNS ARRAY OF ADDRESSED TO
1509"RTN","CWMAIL",82,0)
1510 D %ADRSTO^CWMAILC(.CWDATA,CWINPUT) ;,RETGNAM
1511"RTN","CWMAIL",83,0)
1512 Q
1513"RTN","CWMAIL",84,0)
1514%GRPINF(CWDATA,CWINPUT,CWTEXT) ;MAIL GROUP INFO
1515"RTN","CWMAIL",85,0)
1516 D %GRPINF^CWMAILC(.CWDATA,CWINPUT),RETGNAM
1517"RTN","CWMAIL",86,0)
1518 Q
1519"RTN","CWMAIL",87,0)
1520%USRINF(CWDATA,CWINPUT,CWTEXT) ; MAIL USER INFO
1521"RTN","CWMAIL",88,0)
1522 ;CWINPUT = MAIL USER IEN
1523"RTN","CWMAIL",89,0)
1524 D %USRINF^CWMAILC(.CWDATA,CWINPUT),RETGNAM
1525"RTN","CWMAIL",90,0)
1526 Q
1527"RTN","CWMAIL",91,0)
1528%PERPREF(CWDATA,CWINPUT,CWTEXT) ;RETRIEVE PERSONAL PREFERENCES
1529"RTN","CWMAIL",92,0)
1530 ;CWINPUT = MAIL USER IEN;SAVE NAME
1531"RTN","CWMAIL",93,0)
1532 D %PERPREF^CWMAILD(.CWDATA,CWINPUT),RETGNAM
1533"RTN","CWMAIL",94,0)
1534 Q
1535"RTN","CWMAIL",95,0)
1536%USRLOG(CWDATA,CWINPUT,CWTEXT) ;LOG USER INTO GUI MAIL LOG
1537"RTN","CWMAIL",96,0)
1538 ;CWINPUT = DUZ
1539"RTN","CWMAIL",97,0)
1540 D %USRLOG^CWMAILD(.CWDATA,DUZ),RETGNAM
1541"RTN","CWMAIL",98,0)
1542 Q
1543"RTN","CWMAIL",99,0)
1544%BMSGD(CWDATA,CWINPUT,CWTEXT) ;BUILD MSG INFO INTO GLOBAL
1545"RTN","CWMAIL",100,0)
1546 ;
1547"RTN","CWMAIL",101,0)
1548 D %BMSGD^CWMAILD(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
1549"RTN","CWMAIL",102,0)
1550 Q
1551"RTN","CWMAIL",103,0)
1552%SUPREF(CWDATA,CWINPUT,CWTEXT) ;SET USER PREFERENCES
1553"RTN","CWMAIL",104,0)
1554 ;
1555"RTN","CWMAIL",105,0)
1556 D %SUPREF^CWMAILD(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
1557"RTN","CWMAIL",106,0)
1558 Q
1559"RTN","CWMAIL",107,0)
1560RETGNAM ;RETURNS A $NAME FOR GLOBAL AFTER MERGING
1561"RTN","CWMAIL",108,0)
1562 M ^TMP($J,"CWMAIL")=CWDATA
1563"RTN","CWMAIL",109,0)
1564 K CWDATA S CWDATA=$NA(^TMP($J,"CWMAIL"))
1565"RTN","CWMAIL",110,0)
1566 Q
1567"RTN","CWMAIL",111,0)
1568PURGNAM ;PURGE GLOBAL ARRAY USED FOR DATA RETURN
1569"RTN","CWMAIL",112,0)
1570 K ^TMP($J,"CWMAIL")
1571"RTN","CWMAIL",113,0)
1572 Q
1573"RTN","CWMAIL",114,0)
1574%CHKMAIL(CWDATA,CWINPUT,CWTEXT) ;CHECK FOR NEW MAIL
1575"RTN","CWMAIL",115,0)
1576 ;CWINPUT = DUZ
1577"RTN","CWMAIL",116,0)
1578 D %CHKMAIL^CWMAILD(.CWDATA,DUZ),RETGNAM
1579"RTN","CWMAIL",117,0)
1580 Q
1581"RTN","CWMAIL",118,0)
1582%PRINT(CWDATA,CWINPUT,CWTEXT) ;PRINT A MESSAGE
1583"RTN","CWMAIL",119,0)
1584 ;
1585"RTN","CWMAIL",120,0)
1586 D %PRTMSG^CWMAILD(.CWDATA,CWINPUT),RETGNAM
1587"RTN","CWMAIL",121,0)
1588 Q
1589"RTN","CWMAIL",122,0)
1590%GETSVER(CWDATA,CWINPUT,CWTEXT) ;GET SERVER VERSION
1591"RTN","CWMAIL",123,0)
1592 ;
1593"RTN","CWMAIL",124,0)
1594 D %GETSVER^CWMAILD(.CWDATA,CWINPUT),RETGNAM
1595"RTN","CWMAIL",125,0)
1596 Q
1597"RTN","CWMAIL",126,0)
1598%MSGSRC(CWDATA,CWINPUT,CWTEXT) ;SEARCH AND RETURN SELECTED MESSAGES
1599"RTN","CWMAIL",127,0)
1600 ;
1601"RTN","CWMAIL",128,0)
1602 D %MSGSRC^CWMAILA(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
1603"RTN","CWMAIL",129,0)
1604 Q
1605"RTN","CWMAIL",130,0)
1606%MSGISRC(CWDATA,CWINPUT,CWTEXT) ;SEARCH FOR A SPECIFIC MESSAGE NUMBER
1607"RTN","CWMAIL",131,0)
1608 ;
1609"RTN","CWMAIL",132,0)
1610 D %MSGISRC^CWMAILF(.CWDATA,CWINPUT),RETGNAM
1611"RTN","CWMAIL",133,0)
1612 Q
1613"RTN","CWMAIL",134,0)
1614 ;
1615"RTN","CWMAIL0")
16160^3^B20950040
1617"RTN","CWMAIL0",1,0)
1618CWMAIL0 ;INDPLS/PLS- DELPHI MAIL SERVER, CONT'D ;04-Jun-1999 14:54;PS
1619"RTN","CWMAIL0",2,0)
1620 ;;2.1;CWMA GuiMail;;Jan 06, 1999
1621"RTN","CWMAIL0",3,0)
1622 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
1623"RTN","CWMAIL0",4,0)
1624 ;
1625"RTN","CWMAIL0",5,0)
1626PROCMS(CWDATA,CWMSGN,CWNMFLG) ;PROCESS MAIL MESSAGE THREAD
1627"RTN","CWMAIL0",6,0)
1628 N CWRE,CWCNT,CWRSP,CWNWMSG,CWDATT,CWLCNT,CWLP,CWCONFRM,CW
1629"RTN","CWMAIL0",7,0)
1630 N CWIM,CWIU,CWINSTR,CWFLAGS,CWIR
1631"RTN","CWMAIL0",8,0)
1632 D INMSG^XMXUTIL2(XMDUZ,$$BSKT^XMXUTIL2(XMDUZ,CWMSGN),CWMSGN,,"F",.CWIM,.CWINSTR,.CWIU) ;SET-UP MESSAGE INFO
1633"RTN","CWMAIL0",9,0)
1634 S CWDATA=$NA(^TMP($J,"CWMAIL"))
1635"RTN","CWMAIL0",10,0)
1636 S CWNWMSG=$G(CWIM("FROM"))["@" ;NETWORK MESSAGE
1637"RTN","CWMAIL0",11,0)
1638 S CWCNT=2,CWLCNT=0
1639"RTN","CWMAIL0",12,0)
1640 S @CWDATA@(CWCNT)="Mail Message From: "_$G(CWIM("FROM NAME"))_" "_"Dated: "_$$FMDTE^CWMAIL4(CWIM("DATE FM"),"5MZ")
1641"RTN","CWMAIL0",13,0)
1642 S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)="Subject: "_$G(CWIM("SUBJ"))
1643"RTN","CWMAIL0",14,0)
1644 S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)=""
1645"RTN","CWMAIL0",15,0)
1646 ;I 'CWNMFLG!(CWNMFLG&($G(CWIM("RESP"))<1))!(CWNMFLG&(+$G(CWIM("RESP"))=+$G(CWIM("RESPS"))))
1647"RTN","CWMAIL0",16,0)
1648 I 'CWNMFLG!(CWNMFLG&(+$G(CWIU("RESP"))<1))!(CWNMFLG&(+$G(CWIU("RESP"))=+$G(CWIM("RESPS")))) D READM(.CWDATA,CWMSGN,.CWCNT)
1649"RTN","CWMAIL0",17,0)
1650 S CWCONFRM=""
1651"RTN","CWMAIL0",18,0)
1652 D LASTACC(CWMSGN,$$BSKT^XMXUTIL2(XMDUZ,CWMSGN),0,.CWCONFRM) ;UPDATE LAST ACCESS DATE/TIME
1653"RTN","CWMAIL0",19,0)
1654 ;PROCESS RESPONSES
1655"RTN","CWMAIL0",20,0)
1656 I $G(CWIM("RESPS"))>0 D
1657"RTN","CWMAIL0",21,0)
1658 . S CWLP=$S(+$G(CWIU("RESP"))=+$G(CWIM("RESPS")):1,+$G(CWIU("RESP"))<1:1,CWNMFLG:+$G(CWIU("RESP")),1:1) F CWLP=CWLP:1:CWIM("RESPS") D
1659"RTN","CWMAIL0",22,0)
1660 . . D INRESP^XMXUTIL2(CWMSGN,CWLP,"F",.CWIR) ;gather details on specific response
1661"RTN","CWMAIL0",23,0)
1662 . . S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)=""
1663"RTN","CWMAIL0",24,0)
1664 . . S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)="Response: "_CWLP_") "_$G(CWIR("FROM NAME"))_" "_$$FMDTE^CWMAIL4($G(CWIR("DATE FM")),"5MZ")
1665"RTN","CWMAIL0",25,0)
1666 . . S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)=""
1667"RTN","CWMAIL0",26,0)
1668 . . D READM(.CWDATA,CWIR("XMZ"),.CWCNT)
1669"RTN","CWMAIL0",27,0)
1670 . . D LASTACC(CWMSGN,$$BSKT^XMXUTIL2(XMDUZ,CWMSGN),CWLP) ;UPDATES LAST RESPONSE READ
1671"RTN","CWMAIL0",28,0)
1672 D NONEW^XMXUTIL(XMDUZ,$$BSKT^XMXUTIL2(XMDUZ,CWMSGN),CWMSGN,1) ;UNNEW MESSAGE
1673"RTN","CWMAIL0",29,0)
1674 I +CWCONFRM D ;SEND CONFIRMATION IF NEEDED
1675"RTN","CWMAIL0",30,0)
1676 . S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)=""
1677"RTN","CWMAIL0",31,0)
1678 . S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)=">>Confirmation Message Sent to Sender.<<"
1679"RTN","CWMAIL0",32,0)
1680 I $O(@CWDATA@(1)) D
1681"RTN","CWMAIL0",33,0)
1682 . S @CWDATA@(1)="1^^DATA HAS BEEN FOUND"
1683"RTN","CWMAIL0",34,0)
1684 E S @CWDATA@(1)="1^^Message text could not be found."
1685"RTN","CWMAIL0",35,0)
1686 S $P(@CWDATA@(1),U,2)=CWCNT-2
1687"RTN","CWMAIL0",36,0)
1688 Q
1689"RTN","CWMAIL0",37,0)
1690 ;
1691"RTN","CWMAIL0",38,0)
1692LASTACC(XMZ,CWBIEN,CWLRSP,XMCONFRM) ;UPDATE LAST RESPONSE READ DATE
1693"RTN","CWMAIL0",39,0)
1694 ;INPUT XMZ = MESSAGE NUMBER
1695"RTN","CWMAIL0",40,0)
1696 ; CWBIEN = BASKET IEN
1697"RTN","CWMAIL0",41,0)
1698 ; CWLRSP = LAST RESPONSE READ
1699"RTN","CWMAIL0",42,0)
1700 ;
1701"RTN","CWMAIL0",43,0)
1702 N CWIM,CWIU,CWINSTR,CWXINSTR,CWFLAGS
1703"RTN","CWMAIL0",44,0)
1704 D INMSG1^XMXUTIL2(XMDUZ,XMZ,,.CWFLAGS,.CWIM,.CWIU) ;SET-UP FOR CALL
1705"RTN","CWMAIL0",45,0)
1706 D INMSG2^XMXUTIL2(XMDUZ,XMZ,,.CWIM,.CWXINSTR,.CWIU)
1707"RTN","CWMAIL0",46,0)
1708 S CWINSTR("FLAGS")=$S($G(CWXINSTR("FLAGS"))["R":"R",1:"")
1709"RTN","CWMAIL0",47,0)
1710 D LASTACC^XMXUTIL(XMDUZ,CWBIEN,XMZ,CWLRSP,.CWIM,.CWINSTR,.CWIU,.XMCONFRM)
1711"RTN","CWMAIL0",48,0)
1712 Q
1713"RTN","CWMAIL0",49,0)
1714 ;
1715"RTN","CWMAIL0",50,0)
1716READM(CWDATA,CWINPUT,CWCNT) ;OUTPUT MAIL MESSAGE IN ARRAY
1717"RTN","CWMAIL0",51,0)
1718 S $ZT="READMER^CWMAIL"
1719"RTN","CWMAIL0",52,0)
1720 N CWRDATA,XMZ,CWMTYPE,CWTFLG,XMER,XMPOS
1721"RTN","CWMAIL0",53,0)
1722 S XMZ=+$G(CWINPUT),CWTFLG=0,CWMTYPE=$G(CWINSTR("TYPE"))
1723"RTN","CWMAIL0",54,0)
1724 F S CWRDATA=$$READ^XMGAPI1() Q:XMER<0!(CWTFLG) S CWCNT=CWCNT+1,@CWDATA@(CWCNT)=CWRDATA I CWMTYPE="K"!(CWMTYPE="X") S:CWRDATA["$END TXT" CWTFLG=1
1725"RTN","CWMAIL0",55,0)
1726 ;
1727"RTN","CWMAIL0",56,0)
1728READMER Q
1729"RTN","CWMAIL0",57,0)
1730 ;
1731"RTN","CWMAIL0",58,0)
1732INCNT(CWCNT) ;INCREMENT COUNTER
1733"RTN","CWMAIL0",59,0)
1734 Q CWCNT+1
1735"RTN","CWMAIL0",60,0)
1736 ;
1737"RTN","CWMAIL0",61,0)
1738ADDMP(CWXMZ,CWVAL) ;set data into DAT based on subscripted CWVAL
1739"RTN","CWMAIL0",62,0)
1740 ;INPUT - CWXMZ = message ien
1741"RTN","CWMAIL0",63,0)
1742 ; CWVAL = input array (i.e. CWVAL(1)=first piece...CWVAL(n)=last piece
1743"RTN","CWMAIL0",64,0)
1744 ;OUTPUT - data string holding delimited ('^') data
1745"RTN","CWMAIL0",65,0)
1746 S CWXMZ=$G(CWXMZ,0)
1747"RTN","CWMAIL0",66,0)
1748 I +$G(CWXMZ) D
1749"RTN","CWMAIL0",67,0)
1750 . N X,CWCONFRM,CWTYPE,CWCLOSED,CWINFO,CWCONFID,CWSDRDUZ,CWBRDCAS,CWSDRNAM,CWTRECPT,CWTREPLY
1751"RTN","CWMAIL0",68,0)
1752 . N CWIM,CWIU,CWINSTR,CWPMSG,CWLP,CWDAT
1753"RTN","CWMAIL0",69,0)
1754 . D INMSG^XMXUTIL2(XMDUZ,$$BSKT^XMXUTIL2(XMDUZ,CWXMZ),CWXMZ,,"F",.CWIM,.CWINSTR,.CWIU) ;SET-UP MESSAGE INFO
1755"RTN","CWMAIL0",70,0)
1756 . S CWVAL(6)=$$UP^XLFSTR($G(CWINSTR("TYPE"))) ;message type(s)
1757"RTN","CWMAIL0",71,0)
1758 . S:$G(CWINSTR("FLAGS"))["P" CWVAL(6)="P"_CWVAL(6) ;add priority flag as a type
1759"RTN","CWMAIL0",72,0)
1760 . S CWVAL(7)=$G(CWINSTR("FLAGS"))["R" ;confirmation flag
1761"RTN","CWMAIL0",73,0)
1762 . S CWVAL(8)=$G(CWINSTR("FLAGS"))["X" ;closed flag
1763"RTN","CWMAIL0",74,0)
1764 . S CWVAL(9)=$G(CWINSTR("FLAGS"))["I" ;informational flag
1765"RTN","CWMAIL0",75,0)
1766 . S CWVAL(10)=$G(CWINSTR("FLAGS"))["C" ;confidential flag
1767"RTN","CWMAIL0",76,0)
1768 . S CWVAL(11)=$G(CWIM("FROM DUZ")) ;sender ien
1769"RTN","CWMAIL0",77,0)
1770 . S CWVAL(13)=$G(CWIM("FROM NAME")) ;sender full name
1771"RTN","CWMAIL0",78,0)
1772 . S CWVAL(12)=$$BCAST^XMXSEC(CWXMZ) ;broadcast flag
1773"RTN","CWMAIL0",79,0)
1774 . S CWVAL(14)=$G(CWIM("RECIPS")) ;total # of recipients
1775"RTN","CWMAIL0",80,0)
1776 . S CWVAL(15)=$G(CWIM("RESPS")) ;total # of replies
1777"RTN","CWMAIL0",81,0)
1778 . S CWVAL(16)=$G(CWINSTR("FLAGS"))["P" ;priority flag
1779"RTN","CWMAIL0",82,0)
1780 . S CWVAL(17)=+$G(CWIU("RESP")) ;# of last response read
1781"RTN","CWMAIL0",83,0)
1782 . S CWVAL(20)=+$$ANSWER^XMXSEC(XMDUZ,CWXMZ,$$ZNODE^XMXUTIL2(CWXMZ)) ;can user answer message
1783"RTN","CWMAIL0",84,0)
1784 ;set data into node
1785"RTN","CWMAIL0",85,0)
1786 S CWLP="" F S CWLP=$O(CWVAL(CWLP)) Q:CWLP<1 D
1787"RTN","CWMAIL0",86,0)
1788 . S $P(CWDAT,U,CWLP)=CWVAL(CWLP)
1789"RTN","CWMAIL0",87,0)
1790 Q CWDAT
1791"RTN","CWMAIL1")
17920^4^B14471507
1793"RTN","CWMAIL1",1,0)
1794CWMAIL1 ;INDPLS/PLS- GUI MAIL UTILITIES ;30-Jul-1999 09:30;PS
1795"RTN","CWMAIL1",2,0)
1796 ;;2.1;CWMA GuiMail;;Jan 06, 1999
1797"RTN","CWMAIL1",3,0)
1798 ;MODIFIED FOR XM*7.1*50
1799"RTN","CWMAIL1",4,0)
1800LATER(CWXMZ,CWXMA) ;LATER A MESSAGE
1801"RTN","CWMAIL1",5,0)
1802 S $ZT="LATERE^CWMAIL1"
1803"RTN","CWMAIL1",6,0)
1804 N CWFLG,X,Y,%H,NOW,CWINSTR,CWXMMSG,CWTMDF
1805"RTN","CWMAIL1",7,0)
1806 S CWFLG=0
1807"RTN","CWMAIL1",8,0)
1808 G:'CWXMZ!('$G(CWXMA)) LATERE
1809"RTN","CWMAIL1",9,0)
1810 ;S CWTMDF=$G(^XMB("TIMEDIFF")) ;get time diff for site
1811"RTN","CWMAIL1",10,0)
1812 ;I CWXMA[":" D
1813"RTN","CWMAIL1",11,0)
1814 ;. I '$L(CWTMDF) S CWXMA=$P(CWXMA," ") ;use date and not date/time
1815"RTN","CWMAIL1",12,0)
1816 ;. E S CWXMA=CWXMA_" "_CWTMDF ;append time zone diff
1817"RTN","CWMAIL1",13,0)
1818 S CWXMA=$$CONVERT^XMXUTIL1(CWXMA,$S(CWXMA[":":1,1:0)) ;convert to fileman date/time
1819"RTN","CWMAIL1",14,0)
1820CK S NOW=$$NOW^XLFDT S CWXMA=$S(CWXMA>NOW:CWXMA,1:(NOW+.0010)) ;DEFAULT TO 10 MINUTES IN FUTURE
1821"RTN","CWMAIL1",15,0)
1822 I CWXMA>0 D
1823"RTN","CWMAIL1",16,0)
1824 . S CWINSTR("LATER")=CWXMA
1825"RTN","CWMAIL1",17,0)
1826 . D LATERMSG^XMXAPI(XMDUZ,"",CWXMZ,.CWINSTR,.CWXMMSG)
1827"RTN","CWMAIL1",18,0)
1828 . I CWXMMSG S CWFLG=1
1829"RTN","CWMAIL1",19,0)
1830LATERE ;
1831"RTN","CWMAIL1",20,0)
1832 Q CWFLG
1833"RTN","CWMAIL1",21,0)
1834 ;
1835"RTN","CWMAIL1",22,0)
1836 ;
1837"RTN","CWMAIL1",23,0)
1838NETINFO(CWDAT,XMZ) ;RETRIEVE NETWORK TRANMISSION INFORMATION
1839"RTN","CWMAIL1",24,0)
1840 ;
1841"RTN","CWMAIL1",25,0)
1842 K CWDAT
1843"RTN","CWMAIL1",26,0)
1844 S CWDAT=$NA(^TMP($J,"CWMAIL"))
1845"RTN","CWMAIL1",27,0)
1846 S $ZT="NETINFOE^CWMAIL1"
1847"RTN","CWMAIL1",28,0)
1848 N CWLP,CWCNT
1849"RTN","CWMAIL1",29,0)
1850 S CWLP=0,CWCNT=2
1851"RTN","CWMAIL1",30,0)
1852 D QN^XMXUTIL3(XMZ,,,) ;DEFAULTS TO ALL LINES;START AT 0 AND SET TO ^TMP("XMLIST",$J)
1853"RTN","CWMAIL1",31,0)
1854 F S CWLP=$O(^TMP("XMLIST",$J,CWLP)) Q:CWLP<1 D
1855"RTN","CWMAIL1",32,0)
1856 . S @CWDAT@(CWCNT)=^TMP("XMLIST",$J,CWLP),CWCNT=CWCNT+1
1857"RTN","CWMAIL1",33,0)
1858NETINFOE ;
1859"RTN","CWMAIL1",34,0)
1860 I $O(@CWDAT@(1)) D
1861"RTN","CWMAIL1",35,0)
1862 . S @CWDAT@(1)="1^^DATA HAS BEEN FOUND"
1863"RTN","CWMAIL1",36,0)
1864 E S @CWDAT@(1)="1^^There was no Transmission Information available."
1865"RTN","CWMAIL1",37,0)
1866 S $P(@CWDAT@(1),U,2)=CWCNT-2
1867"RTN","CWMAIL1",38,0)
1868 Q
1869"RTN","CWMAIL1",39,0)
1870 ;
1871"RTN","CWMAIL1",40,0)
1872ADRSTO(CWDAT,XMZ) ;RETRIEVE ADDRESSED TO INFO
1873"RTN","CWMAIL1",41,0)
1874 ;
1875"RTN","CWMAIL1",42,0)
1876 K CWDAT
1877"RTN","CWMAIL1",43,0)
1878 S CWDAT=$NA(^TMP($J,"CWMAIL"))
1879"RTN","CWMAIL1",44,0)
1880 N CWLP,CWCNT
1881"RTN","CWMAIL1",45,0)
1882 S CWLP=0,CWCNT=2
1883"RTN","CWMAIL1",46,0)
1884 D Q^XMXUTIL3(XMZ) ;DEFAULTS TO ALL LINES;START AT 0 AND SET TO ^TMP("XMLIST",$J)
1885"RTN","CWMAIL1",47,0)
1886 F S CWLP=$O(^TMP("XMLIST",$J,CWLP)) Q:CWLP<1 D
1887"RTN","CWMAIL1",48,0)
1888 . S @CWDAT@(CWCNT)=$G(^TMP("XMLIST",$J,CWLP,"TO NAME")),CWCNT=CWCNT+1
1889"RTN","CWMAIL1",49,0)
1890 I $O(@CWDAT@(1)) D
1891"RTN","CWMAIL1",50,0)
1892 . S @CWDAT@(1)="1^^DATA HAS BEEN FOUND"
1893"RTN","CWMAIL1",51,0)
1894 E S @CWDAT@(1)="1^^There was no ADDRESSED TO recipients found."
1895"RTN","CWMAIL1",52,0)
1896 S $P(@CWDAT@(1),U,2)=CWCNT-2
1897"RTN","CWMAIL1",53,0)
1898ADRSTOE Q
1899"RTN","CWMAIL1",54,0)
1900 ;
1901"RTN","CWMAIL1",55,0)
1902RECPT(CWDAT,XMZ) ;BUILD RECIPIENT LIST
1903"RTN","CWMAIL1",56,0)
1904 K CWDAT
1905"RTN","CWMAIL1",57,0)
1906 S CWDAT=$NA(^TMP($J,"CWMAIL"))
1907"RTN","CWMAIL1",58,0)
1908 N CWLP,CWCNT,CWIM,CWIU,CWINSTR
1909"RTN","CWMAIL1",59,0)
1910 N CWRECPT,CWLR,CWLRSPRD,CWFR,CWFWD,CWTERM,CWRMI,CWNTT,CWSNT
1911"RTN","CWMAIL1",60,0)
1912 S CWLP=0,CWCNT=2
1913"RTN","CWMAIL1",61,0)
1914 D QD^XMXUTIL3(XMZ) ;
1915"RTN","CWMAIL1",62,0)
1916 F S CWLP=$O(^TMP("XMLIST",$J,CWLP)) Q:CWLP<1 D
1917"RTN","CWMAIL1",63,0)
1918 . S CWRECPT=$G(^TMP("XMLIST",$J,CWLP,"TO NAME")) ;recipient name
1919"RTN","CWMAIL1",64,0)
1920 . S CWLR=$$FMDTE^CWMAIL4($G(^("LREAD")),"5MZ") ;last read date/time
1921"RTN","CWMAIL1",65,0)
1922 . S CWLRSPRD=$G(^("RESP")) ;last response read
1923"RTN","CWMAIL1",66,0)
1924 . S CWFR=$$FMDTE^CWMAIL4($G(^("FREAD")),"5MZ") ;first read date/time
1925"RTN","CWMAIL1",67,0)
1926 . S CWFWD=$S($D(^("FWD ON")):"*",1:"") ;forwarded message
1927"RTN","CWMAIL1",68,0)
1928 . S CWTERM=$S($D(^("TERM")):"*",1:"") ;terminated message
1929"RTN","CWMAIL1",69,0)
1930 . S CWRMI=$G(^("ID")) ;remote message id
1931"RTN","CWMAIL1",70,0)
1932 . S CWNTT=$G(^("SECS")) ;network trans time
1933"RTN","CWMAIL1",71,0)
1934 . S CWSNT=$$FMDTE^CWMAIL4($G(^("XDATE")),"5MZ") ;network sent date/time
1935"RTN","CWMAIL1",72,0)
1936 . S @CWDAT@(CWCNT)=U_CWRECPT_U_CWLR_U_CWFR_U_CWFWD_U_CWTERM_U_CWRMI_U_CWNTT_U_CWSNT_U_CWLRSPRD_U
1937"RTN","CWMAIL1",73,0)
1938 . S CWCNT=CWCNT+1
1939"RTN","CWMAIL1",74,0)
1940 D INMSG1^XMXUTIL2(XMDUZ,XMZ,,"F",.CWIM,.CWIU) ;retrieve total recipients
1941"RTN","CWMAIL1",75,0)
1942 D INMSG2^XMXUTIL2(XMDUZ,XMZ,,.CWIM,.CWINSTR,.CWIU) ;and responses.
1943"RTN","CWMAIL1",76,0)
1944RECPTE I $O(@CWDAT@(1)) D
1945"RTN","CWMAIL1",77,0)
1946 . S @CWDAT@(1)="1^^DATA HAS BEEN FOUND"_U_+$G(CWIM("RECIPS"))_U_+$G(CWIM("RESPS"))
1947"RTN","CWMAIL1",78,0)
1948 E S @CWDAT@(1)="1^^There were no recipients found."_U_0_U_0
1949"RTN","CWMAIL1",79,0)
1950 S $P(@CWDAT@(1),U,2)=CWCNT-2
1951"RTN","CWMAIL1",80,0)
1952 Q
1953"RTN","CWMAIL2")
19540^5^B22772090
1955"RTN","CWMAIL2",1,0)
1956CWMAIL2 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CONT'D ;20-Sep-1999 08:00;PS
1957"RTN","CWMAIL2",2,0)
1958 ;;2.1;CWMA GuiMail;;Jan 06, 1999
1959"RTN","CWMAIL2",3,0)
1960 ;Input - CWINPUT : 1 - Subject
1961"RTN","CWMAIL2",4,0)
1962 ; : 2 - Flags
1963"RTN","CWMAIL2",5,0)
1964 ; : 3 - Attachment Flag
1965"RTN","CWMAIL2",6,0)
1966 ;
1967"RTN","CWMAIL2",7,0)
1968 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
1969"RTN","CWMAIL2",8,0)
1970%CREATE(CWDATA,CWINPUT,CWTEXT) ;CREATE A NEW MESSAGE
1971"RTN","CWMAIL2",9,0)
1972 N CWSDATA,CWSEDATA,CWLP,CWTXTARY,DA,DIE,DR,Y,XMTEXT,CWMSGABS,CWTMP,CWFILE,CWIEN,CWNAM
1973"RTN","CWMAIL2",10,0)
1974 N XMBODY,XMSUBJ,XMY,XMINSTR,XMZ
1975"RTN","CWMAIL2",11,0)
1976 S CWDATA(1)="0^99- UNDEFINED ERROR"
1977"RTN","CWMAIL2",12,0)
1978 ;INPUT CONTAINS SUBJECT;PARAMETER ARRAY (IE. TESTING API;PCSI
1979"RTN","CWMAIL2",13,0)
1980 ;P=PRIORITY, X=CLOSED, C=CONFIDENTIAL, I=INFORMATIONAL, R=CONFIRMATION
1981"RTN","CWMAIL2",14,0)
1982 ;TEXT ARRAY CONTAINS RECIPIENT LIST AND MESSAGE TEXT LOADED FROM BMSGD call
1983"RTN","CWMAIL2",15,0)
1984 ;BUILD XMY ARRAY
1985"RTN","CWMAIL2",16,0)
1986 S CWTEXT=$NA(^TMP($J,"CWMAILLOAD"))
1987"RTN","CWMAIL2",17,0)
1988 S CWSDATA=$G(@CWTEXT@(-9902),"[START XMY]"),CWSEDATA=$G(@CWTEXT@(-9903),"[END XMY]")
1989"RTN","CWMAIL2",18,0)
1990 S CWLP=-1 D GFNDLP^CWMAILB(.CWLP,CWSDATA)
1991"RTN","CWMAIL2",19,0)
1992 I $G(CWLP)="" S CWDATA(1)="0^1- NO RECIPIENTS LISTED" G CRTEND
1993"RTN","CWMAIL2",20,0)
1994 ;RETRIEVE RECIPIENTS
1995"RTN","CWMAIL2",21,0)
1996 F S CWLP=$O(@CWTEXT@(CWLP)) Q:CWLP="" Q:@CWTEXT@(CWLP)=CWSEDATA D
1997"RTN","CWMAIL2",22,0)
1998 .S CWTMP=$G(@CWTEXT@(CWLP)) Q:CWTMP=""
1999"RTN","CWMAIL2",23,0)
2000 .S CWFILE=+$P(CWTMP,"^"),CWIEN=+$P(CWTMP,"^",2),CWNAM=$P(CWTMP,"^",3)
2001"RTN","CWMAIL2",24,0)
2002 .I CWFILE=200 S XMY(CWIEN)=""
2003"RTN","CWMAIL2",25,0)
2004 .E I CWFILE=3.8 S XMY("G."_CWNAM)=""
2005"RTN","CWMAIL2",26,0)
2006 .E S XMY(CWNAM)=""
2007"RTN","CWMAIL2",27,0)
2008 I '$D(XMY) S CWDATA(1)="0^1- NO RECIPIENTS LISTED" G CRTEND ; NO RECIPIENTS LISTED
2009"RTN","CWMAIL2",28,0)
2010 ;BUILD MESSAGE @TEXT@ ARRAY
2011"RTN","CWMAIL2",29,0)
2012 S CWSDATA=$G(@CWTEXT@(-9900),"[START DATA]"),CWSEDATA=$G(@CWTEXT@(-9901),"[END DATA]")
2013"RTN","CWMAIL2",30,0)
2014 S CWLP=-1 D GFNDLP^CWMAILB(.CWLP,CWSDATA)
2015"RTN","CWMAIL2",31,0)
2016 I $G(CWLP)="" S CWDATA(1)="0^3- NO MESSAGE TEXT" G CRTEND
2017"RTN","CWMAIL2",32,0)
2018 F S CWLP=$O(@CWTEXT@(CWLP)) Q:CWLP="" Q:@CWTEXT@(CWLP)=CWSEDATA D
2019"RTN","CWMAIL2",33,0)
2020 .S ^TMP($J,"CWMAILOUT",CWLP)=$G(@CWTEXT@(CWLP))
2021"RTN","CWMAIL2",34,0)
2022 I '$D(^TMP($J,"CWMAILOUT")) S CWDATA(1)="0^3- NO MESSAGE TEXT" G CRTEND ;NO MESSAGE @CWTEXT@
2023"RTN","CWMAIL2",35,0)
2024 ;I '$L($P($G(CWINPUT),";")) S CWDATA(1)="0^4- MESSAGE SUBJECT NOT GIVEN" G CRTEND
2025"RTN","CWMAIL2",36,0)
2026 ;E
2027"RTN","CWMAIL2",37,0)
2028 S XMSUBJ=$P($G(CWINPUT),";")
2029"RTN","CWMAIL2",38,0)
2030 ;subject can be null or between 3-65 characters. Length is handled on client side.
2031"RTN","CWMAIL2",39,0)
2032 I $L(XMSUBJ),$L(XMSUBJ)<3 S XMSUBJ=XMSUBJ_$E("__",1,3-$L(XMSUBJ))
2033"RTN","CWMAIL2",40,0)
2034 ;PROCESS MESSAGE
2035"RTN","CWMAIL2",41,0)
2036 S XMBODY=$NA(^TMP($J,"CWMAILOUT"))
2037"RTN","CWMAIL2",42,0)
2038 D CNVTAB(XMBODY) ;convert tabs to spaces
2039"RTN","CWMAIL2",43,0)
2040 S XMINSTR("FLAGS")=$P(CWINPUT,";",2) ;GET MESSAGE ATTRIBUTES
2041"RTN","CWMAIL2",44,0)
2042 I '$P($G(CWINPUT),";",3) D
2043"RTN","CWMAIL2",45,0)
2044 . D SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMY,.XMINSTR,.XMZ)
2045"RTN","CWMAIL2",46,0)
2046 E D
2047"RTN","CWMAIL2",47,0)
2048 . D CRE8XMZ^XMXAPI(XMSUBJ,.XMZ) ;create message stub
2049"RTN","CWMAIL2",48,0)
2050 . I +$G(XMZ) D
2051"RTN","CWMAIL2",49,0)
2052 . . D TEXT^XMXEDIT(XMZ,XMBODY) ;stuff message text
2053"RTN","CWMAIL2",50,0)
2054 . . D BLDNETI(XMZ,XMSUBJ) ;stuff network header information
2055"RTN","CWMAIL2",51,0)
2056 . . D ADDRNSND^XMXAPI(XMDUZ,XMZ,.XMY,.XMINSTR) ;send message
2057"RTN","CWMAIL2",52,0)
2058 I +$G(XMZ)<1 S CWDATA(1)="0^5- MESSAGE CREATION FAILED" G CRTEND
2059"RTN","CWMAIL2",53,0)
2060 I +$G(XMZ)>0 S CWDATA(1)="1^^"_$G(XMZ)
2061"RTN","CWMAIL2",54,0)
2062CRTEND K ^TMP($J,"CWMAILOUT"),^TMP($J,"CWMAILLOAD")
2063"RTN","CWMAIL2",55,0)
2064 Q
2065"RTN","CWMAIL2",56,0)
2066CNVTAB(CWSRC) ;Convert TABS to spaces (use 6 char per tab)
2067"RTN","CWMAIL2",57,0)
2068 ;PASS $NA() VARIABLE NAME CONTAINING DATA
2069"RTN","CWMAIL2",58,0)
2070 N CWLP,CWLINE
2071"RTN","CWMAIL2",59,0)
2072 S CWLP=+$G(CWLP)
2073"RTN","CWMAIL2",60,0)
2074 F S CWLP=$O(@CWSRC@(CWLP)) Q:CWLP="" D
2075"RTN","CWMAIL2",61,0)
2076 . S CWLINE=@CWSRC@(CWLP)
2077"RTN","CWMAIL2",62,0)
2078 . S @CWSRC@(CWLP)=$$LNCNV(CWLINE)
2079"RTN","CWMAIL2",63,0)
2080 Q
2081"RTN","CWMAIL2",64,0)
2082LNCNV(CWL) ; data line tab extracter
2083"RTN","CWMAIL2",65,0)
2084 N CWTMP,CWTMPL,CWP,CWPR,CWPADL
2085"RTN","CWMAIL2",66,0)
2086 Q:'$F(CWL,$C(9)) CWL ; no tabs to convert
2087"RTN","CWMAIL2",67,0)
2088 S CWTMP=CWL,CWTMPL=""
2089"RTN","CWMAIL2",68,0)
2090 F D Q:CWTMP'[$C(9)
2091"RTN","CWMAIL2",69,0)
2092 . S CWP=$P(CWTMP,$C(9)) ; left portion of string
2093"RTN","CWMAIL2",70,0)
2094 . S CWPR=$P(CWTMP,$C(9),2,999) ; remainder of string
2095"RTN","CWMAIL2",71,0)
2096 . S CWPADL=6-($L(CWP)#6) ; pad length
2097"RTN","CWMAIL2",72,0)
2098 . I ($L(CWP)+CWPADL+$L(CWPR))>250 Q ;line is to long
2099"RTN","CWMAIL2",73,0)
2100 . S CWTMP=CWP_$$REPEAT^XLFSTR(" ",CWPADL)_CWPR
2101"RTN","CWMAIL2",74,0)
2102 Q CWTMP
2103"RTN","CWMAIL2",75,0)
2104 ;
2105"RTN","CWMAIL2",76,0)
2106BLDNETI(CWXMZ,CWSUBJ) ;build network header information
2107"RTN","CWMAIL2",77,0)
2108 ;From: <user@domain>
2109"RTN","CWMAIL2",78,0)
2110 ;Subject:
2111"RTN","CWMAIL2",79,0)
2112 ;Date: 9 Jul 1999 09:02:27 -0500 (EST)
2113"RTN","CWMAIL2",80,0)
2114 ;X-Mailer: VISTA Mail
2115"RTN","CWMAIL2",81,0)
2116 N CWCNT
2117"RTN","CWMAIL2",82,0)
2118 I $L($$ZNODE^XMXUTIL2(CWXMZ)) D
2119"RTN","CWMAIL2",83,0)
2120 . S ^XMB(3.9,CWXMZ,2,.001,0)="From: "_$$LOW^XLFSTR($G(XMV("NETNAME")))
2121"RTN","CWMAIL2",84,0)
2122 . ;S ^XMB(3.9,CWXMZ,2,.002,0)="To:" ;refet to bldnetit api
2123"RTN","CWMAIL2",85,0)
2124 . S ^XMB(3.9,CWXMZ,2,.003,0)="Subject: "_$G(CWSUBJ)
2125"RTN","CWMAIL2",86,0)
2126 . S ^XMB(3.9,CWXMZ,2,.004,0)="Date:"_$$INDT^XMXUTIL1($$NOW^XLFDT)
2127"RTN","CWMAIL2",87,0)
2128 . S ^XMB(3.9,CWXMZ,2,.005,0)="X-Mailer: Vista GuiMail" ;VISTA MAIL"
2129"RTN","CWMAIL2",88,0)
2130 . S ^XMB(3.9,CWXMZ,2,.006,0)="Encoding: x-uuencode" ;X-UUENCODE"
2131"RTN","CWMAIL2",89,0)
2132 . S CWCNT=.007
2133"RTN","CWMAIL2",90,0)
2134 . D BLDNETIT(CWXMZ,.XMY,.CWCNT)
2135"RTN","CWMAIL2",91,0)
2136 Q
2137"RTN","CWMAIL2",92,0)
2138BLDNETIT(CWXMZ,CWXMY,CWCTN) ; build To: section
2139"RTN","CWMAIL2",93,0)
2140 ;Input - CWXMZ - Message Number
2141"RTN","CWMAIL2",94,0)
2142 ; CWXMY - Array of Recipients
2143"RTN","CWMAIL2",95,0)
2144 ; CWCTN - Counter
2145"RTN","CWMAIL2",96,0)
2146 ;
2147"RTN","CWMAIL2",97,0)
2148 N LP,CWINSTR,CWFULL,CWSET,CWTO,CWTO1,CWRHDR
2149"RTN","CWMAIL2",98,0)
2150 K ^TMP($J,"CWNETH")
2151"RTN","CWMAIL2",99,0)
2152 S CWINSTR("ADDR FLAGS")="RX"
2153"RTN","CWMAIL2",100,0)
2154 S CWFLG=0,CWTO="To: ",CWTO1=" ",CWRHDR=""
2155"RTN","CWMAIL2",101,0)
2156 S LP="" F S LP=$O(CWXMY(LP)) Q:LP="" D
2157"RTN","CWMAIL2",102,0)
2158 . D TOWHOM^XMXAPI(XMDUZ,,"S",LP,.CWINSTR,.CWFULL)
2159"RTN","CWMAIL2",103,0)
2160 . I $L($G(CWFULL)) D
2161"RTN","CWMAIL2",104,0)
2162 . . I CWFULL'["@" D
2163"RTN","CWMAIL2",105,0)
2164 . . .S CWFULL=$TR(CWFULL,", .","._+") ; set internet naming convention
2165"RTN","CWMAIL2",106,0)
2166 . . .S CWFULL=CWFULL_"@"_$G(^XMB("NETNAME"))
2167"RTN","CWMAIL2",107,0)
2168 . . I ($L(CWRHDR)+$L(CWFULL)+1)<140 D ;line not full
2169"RTN","CWMAIL2",108,0)
2170 . . . S CWRHDR=CWRHDR_$S($L(CWRHDR)>0&($E(CWRHDR,$L(CWRHDR))'=","):",",1:"")_CWFULL
2171"RTN","CWMAIL2",109,0)
2172 . . E D
2173"RTN","CWMAIL2",110,0)
2174 . . . S ^TMP($J,"CWNETH",CWCTN)=CWRHDR
2175"RTN","CWMAIL2",111,0)
2176 . . . S CWCTN=CWCTN+.001
2177"RTN","CWMAIL2",112,0)
2178 . . . S CWRHDR=CWFULL
2179"RTN","CWMAIL2",113,0)
2180 I $L(CWRHDR) S ^TMP($J,"CWNETH",CWCTN)=CWRHDR ;set remaining data
2181"RTN","CWMAIL2",114,0)
2182 S LP=0 F S LP=$O(^TMP($J,"CWNETH",LP)) Q:LP<.001 D
2183"RTN","CWMAIL2",115,0)
2184 . S ^XMB(3.9,CWXMZ,2,LP,0)=$S(CWFLG:" "_^TMP($J,"CWNETH",LP),1:"To: "_^TMP($J,"CWNETH",LP))
2185"RTN","CWMAIL2",116,0)
2186 K ^TMP($J,"CWNETH") ;KILL TEMP GLOBAL BUFFER
2187"RTN","CWMAIL2",117,0)
2188 Q
2189"RTN","CWMAIL3")
21900^6^B5161423
2191"RTN","CWMAIL3",1,0)
2192CWMAIL3 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;03-Jun-1999 13:24;PS
2193"RTN","CWMAIL3",2,0)
2194 ;;2.1;CWMA GuiMail;;Jan 06, 1999
2195"RTN","CWMAIL3",3,0)
2196 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
2197"RTN","CWMAIL3",4,0)
2198 ;
2199"RTN","CWMAIL3",5,0)
2200GRPINFO(CWDAT,CWPARAM) ;Mail Group Information
2201"RTN","CWMAIL3",6,0)
2202 ;CWPARAM = Mail Group IEN
2203"RTN","CWMAIL3",7,0)
2204 N CWFILE,IO,IOP,POP,DIC,DA,X,Y,CWFLG,CWNXT,IOSL,CWDEFDIR,CWDATFIL
2205"RTN","CWMAIL3",8,0)
2206 S CWFILE="CWMAILGRP"_$J_".TXT"
2207"RTN","CWMAIL3",9,0)
2208 S CWDEFDIR=$$PWD^%ZISH
2209"RTN","CWMAIL3",10,0)
2210 D OPEN^%ZISH("CWDATFIL",CWDEFDIR,CWFILE,"W")
2211"RTN","CWMAIL3",11,0)
2212 G:POP GRPINFOE
2213"RTN","CWMAIL3",12,0)
2214 U IO S IOSL=99999
2215"RTN","CWMAIL3",13,0)
2216 D DISPLAY^XMHIG(+CWPARAM)
2217"RTN","CWMAIL3",14,0)
2218 D CLOSE^%ZISH("CWDATFIL")
2219"RTN","CWMAIL3",15,0)
2220 I $$FTG^%ZISH(CWDEFDIR,CWFILE,$NA(CWDAT(2)),1) D
2221"RTN","CWMAIL3",16,0)
2222 .S CWFILE(CWFILE)=""
2223"RTN","CWMAIL3",17,0)
2224 .S X=$$DEL^%ZISH(CWDEFDIR,$NA(CWFILE))
2225"RTN","CWMAIL3",18,0)
2226 .I $O(CWDAT(0))>0 D
2227"RTN","CWMAIL3",19,0)
2228 ..S CWFLG=0,CWNXT=1
2229"RTN","CWMAIL3",20,0)
2230 ..F S CWNXT=$O(CWDAT(CWNXT)) Q:CWNXT<1!(CWFLG) D
2231"RTN","CWMAIL3",21,0)
2232 ...I '$L(CWDAT(CWNXT)),'CWFLG K CWDAT(CWNXT)
2233"RTN","CWMAIL3",22,0)
2234 ...E I $A(CWDAT(CWNXT))=12 K CWDAT(CWNXT)
2235"RTN","CWMAIL3",23,0)
2236 ...E S CWDAT(CWNXT)=$$CTRL^XMXUTIL1(CWDAT(CWNXT)),CWFLG=1 ;remove control characters
2237"RTN","CWMAIL3",24,0)
2238 .S CWDAT(-9900)=$O(CWDAT(9999999),-1)+1
2239"RTN","CWMAIL3",25,0)
2240 E S CWDAT(-9900)=2
2241"RTN","CWMAIL3",26,0)
2242GRPINFOE D CLOSE^%ZISH("CWDATFIL")
2243"RTN","CWMAIL3",27,0)
2244 Q $O(CWDAT(1))
2245"RTN","CWMAIL3",28,0)
2246USRINFO(CWDAT,CWPARAM) ;Mail User Information
2247"RTN","CWMAIL3",29,0)
2248 ;CWPARAM = Mail User IEN
2249"RTN","CWMAIL3",30,0)
2250 N CWFILE,%ZIS,IOP,POP,IO,Y,X,CWDEFDIR,CWDATFIL,IOSL
2251"RTN","CWMAIL3",31,0)
2252 N CWFLG,CWNXT
2253"RTN","CWMAIL3",32,0)
2254 S CWFILE="CWMAILUSR"_$J_".TXT"
2255"RTN","CWMAIL3",33,0)
2256 S CWDEFDIR=$$PWD^%ZISH
2257"RTN","CWMAIL3",34,0)
2258 D OPEN^%ZISH("CWDATFIL",CWDEFDIR,CWFILE,"W")
2259"RTN","CWMAIL3",35,0)
2260 G:POP USRINFOE
2261"RTN","CWMAIL3",36,0)
2262 U IO S IOSL=99999
2263"RTN","CWMAIL3",37,0)
2264 D DISPUSER^XMHIU(+CWPARAM)
2265"RTN","CWMAIL3",38,0)
2266 D CLOSE^%ZISH("CWDATFIL")
2267"RTN","CWMAIL3",39,0)
2268FLG I $$FTG^%ZISH(CWDEFDIR,CWFILE,$NA(CWDAT(2)),1) D
2269"RTN","CWMAIL3",40,0)
2270 .S CWFILE(CWFILE)=""
2271"RTN","CWMAIL3",41,0)
2272 .S X=$$DEL^%ZISH(CWDEFDIR,$NA(CWFILE))
2273"RTN","CWMAIL3",42,0)
2274 .I $O(CWDAT(0))>0 D
2275"RTN","CWMAIL3",43,0)
2276 ..S CWFLG=0,CWNXT=1
2277"RTN","CWMAIL3",44,0)
2278 ..F S CWNXT=$O(CWDAT(CWNXT)) Q:CWNXT<1!(CWFLG) D
2279"RTN","CWMAIL3",45,0)
2280 ...I '$L(CWDAT(CWNXT)),'CWFLG K CWDAT(CWNXT)
2281"RTN","CWMAIL3",46,0)
2282 ...E I $A(CWDAT(CWNXT))=12 K CWDAT(CWNXT)
2283"RTN","CWMAIL3",47,0)
2284 ...E S CWDAT(CWNXT)=$$CTRL^XMXUTIL1(CWDAT(CWNXT)),CWFLG=1 ;remove control characters
2285"RTN","CWMAIL3",48,0)
2286 .S CWDAT(-9900)=$O(CWDAT(9999999),-1)+1
2287"RTN","CWMAIL3",49,0)
2288 E S CWDAT(-9900)=2
2289"RTN","CWMAIL3",50,0)
2290USRINFOE D CLOSE^%ZISH("CWDATFIL")
2291"RTN","CWMAIL3",51,0)
2292 Q $O(CWDAT(1))
2293"RTN","CWMAIL4")
22940^7^B1346202
2295"RTN","CWMAIL4",1,0)
2296CWMAIL4 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;05-May-1999 14:03;PS
2297"RTN","CWMAIL4",2,0)
2298 ;;2.1;CWMA GuiMail;;Jan 06, 1999
2299"RTN","CWMAIL4",3,0)
2300 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
2301"RTN","CWMAIL4",4,0)
2302 ;
2303"RTN","CWMAIL4",5,0)
2304GETMSGL(DAT,CWDUZ,CWBSK,CWSRC) ;
2305"RTN","CWMAIL4",6,0)
2306 ;API NOT CURRENTLY USED
2307"RTN","CWMAIL4",7,0)
2308 ;INPUT
2309"RTN","CWMAIL4",8,0)
2310 ; DAT : RETURN ARRAY
2311"RTN","CWMAIL4",9,0)
2312 ;CWDUZ : USER
2313"RTN","CWMAIL4",10,0)
2314 ;CWBSK : BASKET IEN OR NAME
2315"RTN","CWMAIL4",11,0)
2316 ;CWSRC : LOOKUP TYPE 0(IEN); 1("C" X-REF) ; DEFAULT TO ZERO
2317"RTN","CWMAIL4",12,0)
2318 Q:'CWDUZ 0
2319"RTN","CWMAIL4",13,0)
2320 I +CWBSK'=CWBSK D
2321"RTN","CWMAIL4",14,0)
2322 . S CWBSK=+$O(^XMB(3.7,CWDUZ,2,"B",CWBSK,0))
2323"RTN","CWMAIL4",15,0)
2324 S CWSRC=+$G(CWSRC,0)
2325"RTN","CWMAIL4",16,0)
2326 N CWMSG,CWSEQ
2327"RTN","CWMAIL4",17,0)
2328 S (CWSEQ,CWMSG)=0
2329"RTN","CWMAIL4",18,0)
2330 I 'CWSRC D
2331"RTN","CWMAIL4",19,0)
2332 . F S CWMSG=$O(^XMB(3.7,CWDUZ,2,CWBSK,1,CWMSG)) Q:CWMSG<1 S DAT(CWMSG)=""
2333"RTN","CWMAIL4",20,0)
2334ELSE E D
2335"RTN","CWMAIL4",21,0)
2336 . F S CWSEQ=$O(^XMB(3.7,CWDUZ,2,CWBSK,1,"C",CWSEQ)) Q:CWSEQ<1 D
2337"RTN","CWMAIL4",22,0)
2338 . . F S CWMSG=$O(^XMB(3.7,CWDUZ,2,CWBSK,1,"C",CWSEQ,CWMSG)) Q:CWMSG<1 D
2339"RTN","CWMAIL4",23,0)
2340 . . . S DAT(CWMSG)=""
2341"RTN","CWMAIL4",24,0)
2342 Q $O(DAT(0))>0
2343"RTN","CWMAIL4",25,0)
2344 ;
2345"RTN","CWMAIL4",26,0)
2346FMDTE(CWDT,CWPRM) ;API TO RETURN A FORMATTED DATE
2347"RTN","CWMAIL4",27,0)
2348 ;replaces '@' with " " between date and time
2349"RTN","CWMAIL4",28,0)
2350 Q $TR($$FMTE^XLFDT(CWDT,CWPRM),"@"," ")
2351"RTN","CWMAILA")
23520^8^B23618442
2353"RTN","CWMAILA",1,0)
2354CWMAILA ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;02-Jul-1999 14:45;PS
2355"RTN","CWMAILA",2,0)
2356 ;;2.1;CWMA GuiMail;;Jan 06, 1999
2357"RTN","CWMAILA",3,0)
2358 ;MODIFIED FOR XM*7.1*50
2359"RTN","CWMAILA",4,0)
2360 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
2361"RTN","CWMAILA",5,0)
2362%READ(CWDATA,CWINPUT) ;
2363"RTN","CWMAILA",6,0)
2364 ;CWINPUT FORMAT - DELIMITER ';'
2365"RTN","CWMAILA",7,0)
2366 ; 1st - IEN of message
2367"RTN","CWMAILA",8,0)
2368 ; 4th - New message (value >0 indicates new messages only)
2369"RTN","CWMAILA",9,0)
2370 K CWDATA
2371"RTN","CWMAILA",10,0)
2372 N CWMSGN,CWNMFLG
2373"RTN","CWMAILA",11,0)
2374 S CWMSGN=$P(CWINPUT,";")
2375"RTN","CWMAILA",12,0)
2376 S CWNMFLG=+$P(CWINPUT,";",4)
2377"RTN","CWMAILA",13,0)
2378 D:CWMSGN PROCMS^CWMAIL0(.CWDATA,CWMSGN,CWNMFLG)
2379"RTN","CWMAILA",14,0)
2380 Q
2381"RTN","CWMAILA",15,0)
2382%LIST(CWDATA,CWINPUT) ;
2383"RTN","CWMAILA",16,0)
2384 ;CWINPUT - MAIL TYPE OR MAILBOX NUMBER - DELIMITER ';'
2385"RTN","CWMAILA",17,0)
2386 ; 2nd - IEN of MailBasket or non-numeric for new mail
2387"RTN","CWMAILA",18,0)
2388 ;CWARY format: piece value
2389"RTN","CWMAILA",19,0)
2390 ; 1 message basket
2391"RTN","CWMAILA",20,0)
2392 ; 2 message ien
2393"RTN","CWMAILA",21,0)
2394 ; 3 message subject
2395"RTN","CWMAILA",22,0)
2396 ; 4 message date sent
2397"RTN","CWMAILA",23,0)
2398 ; 5 not used
2399"RTN","CWMAILA",24,0)
2400 ; 6 message type
2401"RTN","CWMAILA",25,0)
2402 ; 7 confirmation flag
2403"RTN","CWMAILA",26,0)
2404 ; 8 closed flag
2405"RTN","CWMAILA",27,0)
2406 ; 9 info flag
2407"RTN","CWMAILA",28,0)
2408 ; 10 confidential flag
2409"RTN","CWMAILA",29,0)
2410 ; 11 sender ien
2411"RTN","CWMAILA",30,0)
2412 ; 12 broadcast flag
2413"RTN","CWMAILA",31,0)
2414 ; 13 sender name
2415"RTN","CWMAILA",32,0)
2416 ; 14 total # of recipients
2417"RTN","CWMAILA",33,0)
2418 ; 15 total # of replies
2419"RTN","CWMAILA",34,0)
2420 ; 16 priority flag
2421"RTN","CWMAILA",35,0)
2422 ; 17 last response read
2423"RTN","CWMAILA",36,0)
2424 ; 18 message basket sequence number
2425"RTN","CWMAILA",37,0)
2426 ; 19 new message flag
2427"RTN","CWMAILA",38,0)
2428 ; 20 answer message flag
2429"RTN","CWMAILA",39,0)
2430 ;
2431"RTN","CWMAILA",40,0)
2432 S CWDATA(1)="0^AN ERROR HAS OCCURRED"
2433"RTN","CWMAILA",41,0)
2434 N CWVAL,CWMSG,CWMSGSUB,CWMSGDT,CWDCNT,CWMAIB,CWMSGBX,CWMSGLP
2435"RTN","CWMAILA",42,0)
2436 N CWARY
2437"RTN","CWMAILA",43,0)
2438 S CWVAL=$P(CWINPUT,";",2)
2439"RTN","CWMAILA",44,0)
2440 S CWMSG=0,CWDCNT=2,CWMSGLP=0
2441"RTN","CWMAILA",45,0)
2442 S CWMAIB=CWVAL
2443"RTN","CWMAILA",46,0)
2444 ;CALL API TO RETRIEVE MESSAGES
2445"RTN","CWMAILA",47,0)
2446 I CWVAL=+CWVAL D
2447"RTN","CWMAILA",48,0)
2448 . D LISTMSGS^XMXAPIB(XMDUZ,+CWMAIB,"BSKT;SUBJ;DATE;SEQN;NEW") ; data put in ^TMP("XMLIST",$J
2449"RTN","CWMAILA",49,0)
2450 . Q:'+$P($G(^TMP("XMLIST",$J,0)),U,1) ;NO DATA FOUND
2451"RTN","CWMAILA",50,0)
2452 . D BLDLST^CWMAILF(.CWDATA,$NA(^TMP("XMLIST",$J)),.CWDCNT)
2453"RTN","CWMAILA",51,0)
2454 E D ;PROCESS NEW MESSAGE REQUEST
2455"RTN","CWMAILA",52,0)
2456 . D LISTMSGS^XMXAPIB(XMDUZ,"*","BSKT;SUBJ;DATE;NEW","N") ;SEQN;NEW","N")
2457"RTN","CWMAILA",53,0)
2458 . Q:'+$P($G(^TMP("XMLIST",$J,0)),U,1) ;NO DATA FOUND
2459"RTN","CWMAILA",54,0)
2460 . D BLDLST^CWMAILF(.CWDATA,$NA(^TMP("XMLIST",$J)),.CWDCNT)
2461"RTN","CWMAILA",55,0)
2462 I $O(CWDATA(1)) S CWDATA(1)="1^^DATA HAS BEEN FOUND"
2463"RTN","CWMAILA",56,0)
2464 E S CWDATA(1)=$S(+CWVAL:"1^^No Messages Found in Specified Mail Box",1:"1^^"_"You have no NEW Messages")
2465"RTN","CWMAILA",57,0)
2466 S $P(CWDATA(1),U,2)=CWDCNT-2
2467"RTN","CWMAILA",58,0)
2468 Q
2469"RTN","CWMAILA",59,0)
2470 ;
2471"RTN","CWMAILA",60,0)
2472%DELETE(CWDATA,CWINPUT) ;
2473"RTN","CWMAILA",61,0)
2474 ;CWINPUT - DELIMITER ';'
2475"RTN","CWMAILA",62,0)
2476 ; 1st - IEN of message
2477"RTN","CWMAILA",63,0)
2478 ; 2nd - IEN of mail basket
2479"RTN","CWMAILA",64,0)
2480 N XMZ,XMDUZ,XMK,XMKZA,XMMSG
2481"RTN","CWMAILA",65,0)
2482 S XMZ=$P(CWINPUT,";")
2483"RTN","CWMAILA",66,0)
2484 S XMDUZ=DUZ
2485"RTN","CWMAILA",67,0)
2486 S XMK=$P(CWINPUT,";",2)
2487"RTN","CWMAILA",68,0)
2488 S XMKZA(XMZ)=""
2489"RTN","CWMAILA",69,0)
2490 D DELMSG^XMXAPI(XMDUZ,"",.XMKZA,.XMMSG)
2491"RTN","CWMAILA",70,0)
2492 I +$G(XMMSG) D
2493"RTN","CWMAILA",71,0)
2494 . S CWDATA(1)="1^0^Message Deleted"
2495"RTN","CWMAILA",72,0)
2496 E S CWDATA(1)="0^0^Unable to delete message"
2497"RTN","CWMAILA",73,0)
2498 Q
2499"RTN","CWMAILA",74,0)
2500%SAVE(CWDATA,CWINPUT) ;
2501"RTN","CWMAILA",75,0)
2502 ;CWINPUT - DELIMITER ';'
2503"RTN","CWMAILA",76,0)
2504 ; 1st - IEN of message
2505"RTN","CWMAILA",77,0)
2506 ; 2nd - IEN of mail basket
2507"RTN","CWMAILA",78,0)
2508 ; 3rd - IEN of new mail basket
2509"RTN","CWMAILA",79,0)
2510 N XMZ,XMK,XMKM,XMMSG,XMKZA
2511"RTN","CWMAILA",80,0)
2512 S XMZ=$P(CWINPUT,";"),XMK=$P(CWINPUT,";",2)
2513"RTN","CWMAILA",81,0)
2514 S XMKZA(XMZ)=""
2515"RTN","CWMAILA",82,0)
2516 S XMKM=$P(CWINPUT,";",3)
2517"RTN","CWMAILA",83,0)
2518 D MOVEMSG^XMXAPI(XMDUZ,"",.XMKZA,XMKM,.XMMSG)
2519"RTN","CWMAILA",84,0)
2520 S CWDATA(1)=+$G(XMMSG) ;Return Status
2521"RTN","CWMAILA",85,0)
2522 Q
2523"RTN","CWMAILA",86,0)
2524%MAKNEW(CWDATA,CWINPUT) ;
2525"RTN","CWMAILA",87,0)
2526 ;CWINPUT - DELIMITER ';'
2527"RTN","CWMAILA",88,0)
2528 ; 1st - IEN of message
2529"RTN","CWMAILA",89,0)
2530 ; 2nd - IEN of mail basket
2531"RTN","CWMAILA",90,0)
2532 N XMZ,XMK,XMKZA,XMMSG
2533"RTN","CWMAILA",91,0)
2534 S CWDATA(1)=0
2535"RTN","CWMAILA",92,0)
2536 S XMZ=$P(CWINPUT,";")
2537"RTN","CWMAILA",93,0)
2538 S XMK=+$P(CWINPUT,";",2)
2539"RTN","CWMAILA",94,0)
2540 D MAKENEW^XMXUTIL(XMDUZ,XMK,XMZ,1)
2541"RTN","CWMAILA",95,0)
2542 I XMK<.6 D ;MUST MOVE MESSAGE FROM WASTE BASKET TO IN BASKET
2543"RTN","CWMAILA",96,0)
2544 . S XMKZA(XMZ)=""
2545"RTN","CWMAILA",97,0)
2546 . D MOVEMSG^XMXAPI(XMDUZ,"",.XMKZA,1,.XMMSG)
2547"RTN","CWMAILA",98,0)
2548 S CWDATA(1)="1^1" ;FORCE TO SUCCESS
2549"RTN","CWMAILA",99,0)
2550 Q
2551"RTN","CWMAILA",100,0)
2552%NEWBSK(CWDATA,CWINPUT) ;CREATE A NEW MAIL BASKET
2553"RTN","CWMAILA",101,0)
2554 ;CWINPUT - DELIMITER ';'
2555"RTN","CWMAILA",102,0)
2556 ; 1st Piece - New basket name
2557"RTN","CWMAILA",103,0)
2558 N CWBASKET,CWBSKN,CWMSG
2559"RTN","CWMAILA",104,0)
2560 S CWBASKET=$$UP^XLFSTR($P(CWINPUT,";")) ;FORCE TO UPPER CASE
2561"RTN","CWMAILA",105,0)
2562 D CRE8BSKT^XMXAPIB(XMDUZ,CWBASKET,.CWBSKN)
2563"RTN","CWMAILA",106,0)
2564 I +$G(CWBSKN)>0 D
2565"RTN","CWMAILA",107,0)
2566 . D QBSKT^XMXAPIB(XMDUZ,+CWBSKN,.CWMSG)
2567"RTN","CWMAILA",108,0)
2568 . S CWDATA(1)="1"_U_CWBSKN_U_$P($G(CWMSG),U,2)
2569"RTN","CWMAILA",109,0)
2570 E S CWDATA(1)=0_U_"Error-unable to create basket."
2571"RTN","CWMAILA",110,0)
2572 Q
2573"RTN","CWMAILA",111,0)
2574%RESEQ(CWDATA,CWINPUT) ;RESEQUENCE A VISTA MAIL BASKET
2575"RTN","CWMAILA",112,0)
2576 ;CWINPUT - DELIMITER ';'
2577"RTN","CWMAILA",113,0)
2578 ; 2nd - IEN of mail basket
2579"RTN","CWMAILA",114,0)
2580 N CWBASKET,CWDATT
2581"RTN","CWMAILA",115,0)
2582 S CWBASKET=$P(CWINPUT,";",2)
2583"RTN","CWMAILA",116,0)
2584 G:'CWBASKET RESEQE
2585"RTN","CWMAILA",117,0)
2586 D RSEQBSKT^XMXAPIB(XMDUZ,CWBASKET,.CWDATT)
2587"RTN","CWMAILA",118,0)
2588 I $L(CWDATT) S CWDATA(1)="1^1"
2589"RTN","CWMAILA",119,0)
2590 E S CWDATA(1)="0^0^Error-unable to resequence messages."
2591"RTN","CWMAILA",120,0)
2592RESEQE Q
2593"RTN","CWMAILA",121,0)
2594 ;
2595"RTN","CWMAILA",122,0)
2596%MSGSRC(CWDATA,CWINPUT,CWTEXT) ;MESSAGE SEARCH
2597"RTN","CWMAILA",123,0)
2598 ;INPUT - CWINPUT AND CWTEXT ARRAY HOLD CRITERIA
2599"RTN","CWMAILA",124,0)
2600 ;OUTPUT - REFER TO %LIST
2601"RTN","CWMAILA",125,0)
2602 S CWDATA(1)="0^AN ERROR HAS OCCURRED"
2603"RTN","CWMAILA",126,0)
2604 N CWVAL,CWMSG,CWMSGSUB,CWMSGDT,CWDCNT,CWMAIB,CWMSGBX,CWMSGLP
2605"RTN","CWMAILA",127,0)
2606 N CWARY,CWFLAGS
2607"RTN","CWMAILA",128,0)
2608 S CWFLAGS=$P(CWINPUT,";") ;Processing Flags
2609"RTN","CWMAILA",129,0)
2610 S CWMAIB=$P(CWINPUT,";",2) ;MailBasket
2611"RTN","CWMAILA",130,0)
2612 S CWMSG=0,CWDCNT=2,CWMSGLP=0
2613"RTN","CWMAILA",131,0)
2614 S CWMAIB=$S($L(CWMAIB):CWMAIB,1:"*")
2615"RTN","CWMAILA",132,0)
2616 ;Convert External dates to FM Dates
2617"RTN","CWMAILA",133,0)
2618 I $G(CWTEXT("FDATE")) D
2619"RTN","CWMAILA",134,0)
2620 . S CWTEXT("FDATE")=$$CONVERT^XMXUTIL1(CWTEXT("FDATE"))
2621"RTN","CWMAILA",135,0)
2622 I $G(CWTEXT("TDATE")) D
2623"RTN","CWMAILA",136,0)
2624 . S CWTEXT("TDATE")=$$CONVERT^XMXUTIL1(CWTEXT("TDATE"))
2625"RTN","CWMAILA",137,0)
2626 ;CALL API TO RETRIEVE MESSAGES
2627"RTN","CWMAILA",138,0)
2628 D LISTMSGS^XMXAPIB(XMDUZ,CWMAIB,"BSKT;SUBJ;DATE;NEW",CWFLAGS,,,.CWTEXT) ; data put in ^TMP("XMLIST",$J
2629"RTN","CWMAILA",139,0)
2630 I +$P($G(^TMP("XMLIST",$J,0)),U,1) D ;
2631"RTN","CWMAILA",140,0)
2632 . D BLDLST^CWMAILF(.CWDATA,$NA(^TMP("XMLIST",$J)),.CWDCNT)
2633"RTN","CWMAILA",141,0)
2634 I $O(CWDATA(1)) S CWDATA(1)="1^^DATA HAS BEEN FOUND"
2635"RTN","CWMAILA",142,0)
2636 E S CWDATA(1)="1^^No Messages Found In Search"
2637"RTN","CWMAILA",143,0)
2638 S $P(CWDATA(1),U,2)=CWDCNT-2
2639"RTN","CWMAILA",144,0)
2640MSGSRCE Q
2641"RTN","CWMAILB")
26420^9^B21615660
2643"RTN","CWMAILB",1,0)
2644CWMAILB ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CON'T ;03-Jun-1999 13:29;PS
2645"RTN","CWMAILB",2,0)
2646 ;;2.1;CWMA GuiMail;;Jan 06, 1999
2647"RTN","CWMAILB",3,0)
2648%FORWARD(CWDATA,CWINPUT,CWTEXT) ;
2649"RTN","CWMAILB",4,0)
2650 ;Input: 1st Piece of CWINPUT holds IEN of Message
2651"RTN","CWMAILB",5,0)
2652 ; CWTEXT holds recipient list
2653"RTN","CWMAILB",6,0)
2654 ;
2655"RTN","CWMAILB",7,0)
2656 N XMZ,XMY,CWLP,CWSDATA,CWSEDATA,CWTMP,CWFILE,CWIEN,CWNAM,XMINSTR,CWMSG
2657"RTN","CWMAILB",8,0)
2658 N XMKZA
2659"RTN","CWMAILB",9,0)
2660 S XMZ=$P(CWINPUT,";")
2661"RTN","CWMAILB",10,0)
2662 S CWDATA(1)="0^^AN ERROR HAS OCCURRED"
2663"RTN","CWMAILB",11,0)
2664 G:'$G(XMZ) FOREND
2665"RTN","CWMAILB",12,0)
2666 S CWSDATA=$G(CWTEXT(-9902),"[START DATA]"),CWSEDATA=$G(CWTEXT(-9903),"[END DATA]")
2667"RTN","CWMAILB",13,0)
2668 S CWLP=-1 D FNDLP(.CWLP,CWSDATA)
2669"RTN","CWMAILB",14,0)
2670 G:$G(CWLP)="" FOREND
2671"RTN","CWMAILB",15,0)
2672 F S CWLP=$O(CWTEXT(CWLP)) Q:CWLP="" Q:CWTEXT(CWLP)=CWSEDATA D
2673"RTN","CWMAILB",16,0)
2674 .S CWTMP=$G(CWTEXT(CWLP)) Q:CWTMP=""
2675"RTN","CWMAILB",17,0)
2676 .S CWFILE=+$P(CWTMP,"^"),CWIEN=+$P(CWTMP,"^",2),CWNAM=$P(CWTMP,"^",3)
2677"RTN","CWMAILB",18,0)
2678 .I CWFILE=200 S XMY(CWIEN)=""
2679"RTN","CWMAILB",19,0)
2680 .E I CWFILE=3.8 S XMY("G."_CWNAM)=""
2681"RTN","CWMAILB",20,0)
2682 .E S XMY(CWNAM)=""
2683"RTN","CWMAILB",21,0)
2684 I $D(XMY) D
2685"RTN","CWMAILB",22,0)
2686 . S XMKZA(XMZ)=""
2687"RTN","CWMAILB",23,0)
2688 . D FWDMSG^XMXAPI(XMDUZ,"",.XMKZA,.XMY,.XMINSTR,.CWMSG)
2689"RTN","CWMAILB",24,0)
2690 ;RETURNS <number of messages> forwarded.
2691"RTN","CWMAILB",25,0)
2692 S CWDATA(1)=+CWMSG_U_U_XMZ ;FORCE TO SUCCESS
2693"RTN","CWMAILB",26,0)
2694FOREND Q
2695"RTN","CWMAILB",27,0)
2696 ;
2697"RTN","CWMAILB",28,0)
2698%TERMIN(CWDATA,CWINPUT) ;TERMINATE A MESSAGE THREAD
2699"RTN","CWMAILB",29,0)
2700 ;Input: 1st piece = IEN of Message
2701"RTN","CWMAILB",30,0)
2702 ; 2nd piece = IEN of Mail Basket
2703"RTN","CWMAILB",31,0)
2704 ;
2705"RTN","CWMAILB",32,0)
2706 N XMRC,XMZ,XMK,Y,CWMSGNM,CWMSGR
2707"RTN","CWMAILB",33,0)
2708 S CWDATA(1)="0^^AN ERROR HAS OCCURRED"
2709"RTN","CWMAILB",34,0)
2710 S XMZ=$P($G(CWINPUT),";"),XMK=$P($G(CWINPUT),";",2)
2711"RTN","CWMAILB",35,0)
2712 S CWMSGNM(XMZ)=""
2713"RTN","CWMAILB",36,0)
2714 D TERMMSG^XMXAPI(XMDUZ,"",.CWMSGNM,.CWMSGR)
2715"RTN","CWMAILB",37,0)
2716 ;RETURNS <number of messages> terminated.
2717"RTN","CWMAILB",38,0)
2718 S CWDATA(1)=+CWMSGR_U_U ;return 1 for success or 0
2719"RTN","CWMAILB",39,0)
2720 Q
2721"RTN","CWMAILB",40,0)
2722FNDLP(CWLP,X) ;FIND A CHARACTER STRING ENTRY
2723"RTN","CWMAILB",41,0)
2724 F S CWLP=$O(CWTEXT(CWLP)) Q:CWLP="" Q:CWTEXT(CWLP)=X
2725"RTN","CWMAILB",42,0)
2726 Q
2727"RTN","CWMAILB",43,0)
2728 ;
2729"RTN","CWMAILB",44,0)
2730INCNT(CWCNT) ;INCREMENT COUNTER
2731"RTN","CWMAILB",45,0)
2732 Q CWCNT+1
2733"RTN","CWMAILB",46,0)
2734 ;
2735"RTN","CWMAILB",47,0)
2736%CREATE(DATA,INPUT,TEXT) ;CREATE A NEW MESSAGE
2737"RTN","CWMAILB",48,0)
2738 ;BUILD RETURN CODES FOR ERROR MESSAGING
2739"RTN","CWMAILB",49,0)
2740 D %CREATE^CWMAIL2
2741"RTN","CWMAILB",50,0)
2742 Q
2743"RTN","CWMAILB",51,0)
2744 ;
2745"RTN","CWMAILB",52,0)
2746%REPLY(CWDATA,CWINPUT,CWTEXT) ; This API uses global array for text
2747"RTN","CWMAILB",53,0)
2748 ;INPUT - Piece 1 : Message Number
2749"RTN","CWMAILB",54,0)
2750 ; Piece 2-4 : Not Used
2751"RTN","CWMAILB",55,0)
2752 ; Piece 5 : Network Reply Flag (0 = no; 1 = yes)
2753"RTN","CWMAILB",56,0)
2754 ;
2755"RTN","CWMAILB",57,0)
2756 N CWMSGN,CWRESULT,CWSDATA,CWSEDATA,CWTMP,CWNWCHK,CWDATT
2757"RTN","CWMAILB",58,0)
2758 N CWMSGT,XMZR,CWLP,XMINSTR
2759"RTN","CWMAILB",59,0)
2760 S CWMSGN=$P(CWINPUT,";")
2761"RTN","CWMAILB",60,0)
2762 S CWNWCHK=$P(CWINPUT,";",5)
2763"RTN","CWMAILB",61,0)
2764 S CWDATA(1)="0^UNDEFINED ERROR"
2765"RTN","CWMAILB",62,0)
2766 S CWTEXT=$NA(^TMP($J,"CWMAILLOAD"))
2767"RTN","CWMAILB",63,0)
2768 G:'$G(CWMSGN) REPEND
2769"RTN","CWMAILB",64,0)
2770 S CWSDATA=$G(@CWTEXT@(-9900),"[START DATA]"),CWSEDATA=$G(@CWTEXT@(-9901),"[END DATA]")
2771"RTN","CWMAILB",65,0)
2772 S CWLP=-1 D GFNDLP(.CWLP,CWSDATA)
2773"RTN","CWMAILB",66,0)
2774 G:$G(CWLP)="" REPEND
2775"RTN","CWMAILB",67,0)
2776 F S CWLP=$O(@CWTEXT@(CWLP)) Q:CWLP="" Q:@CWTEXT@(CWLP)=CWSEDATA D
2777"RTN","CWMAILB",68,0)
2778 .S ^TMP($J,"CWMAILOUT",CWLP)=$G(@CWTEXT@(CWLP))
2779"RTN","CWMAILB",69,0)
2780 G:'$D(^TMP($J,"CWMAILOUT")) REPEND
2781"RTN","CWMAILB",70,0)
2782 S CWMSGT=$NA(^TMP($J,"CWMAILOUT"))
2783"RTN","CWMAILB",71,0)
2784 S XMINSTR("NET REPLY")=$S(+$G(CWNWCHK):1,1:0)
2785"RTN","CWMAILB",72,0)
2786 D REPLYMSG^XMXAPI(XMDUZ,"",CWMSGN,CWMSGT,.XMINSTR,.XMZR)
2787"RTN","CWMAILB",73,0)
2788 I +$G(XMZR)>0 S CWDATA(1)=$S(CWNWCHK:2,1:1)_"^NO ERRORS"_U_CWMSGN ;SUCCESS
2789"RTN","CWMAILB",74,0)
2790 E S CWDATA(1)="0^"_$G(CWDATA)_U_CWMSGN ;RETURN ERROR MESSAGE
2791"RTN","CWMAILB",75,0)
2792REPEND K ^TMP($J,"CWMAILLOAD"),^TMP($J,"CWMAILOUT")
2793"RTN","CWMAILB",76,0)
2794 Q
2795"RTN","CWMAILB",77,0)
2796GFNDLP(CWLP,X) ;FIND A CHARACTER STRING ENTRY IN GLOBAL
2797"RTN","CWMAILB",78,0)
2798 F S CWLP=$O(@CWTEXT@(CWLP)) Q:CWLP="" Q:@CWTEXT@(CWLP)=X
2799"RTN","CWMAILB",79,0)
2800 Q
2801"RTN","CWMAILB",80,0)
2802 ;
2803"RTN","CWMAILB",81,0)
2804%ANSWER(CWDATA,CWINPUT,CWTEXT) ; This API uses global array for text to answer a message
2805"RTN","CWMAILB",82,0)
2806 ;INPUT - CWINPUT : Piece 1 : Message Number
2807"RTN","CWMAILB",83,0)
2808 ; Piece 2 : Not Used
2809"RTN","CWMAILB",84,0)
2810 ; Piece 3 : Message Attributes
2811"RTN","CWMAILB",85,0)
2812 ; Pieces 4-5 : Not Used
2813"RTN","CWMAILB",86,0)
2814 ; CWTEXT : Holds list of additional recipients
2815"RTN","CWMAILB",87,0)
2816 ;
2817"RTN","CWMAILB",88,0)
2818 N CWSDATA,CWSEDATA,CWLP,CWTXTARY,DA,DIE,DR,Y,XMTEXT
2819"RTN","CWMAILB",89,0)
2820 N CWMSGABS,CWTMP,CWFILE,CWIEN,CWNAM
2821"RTN","CWMAILB",90,0)
2822 N XMBODY,CWMSGN,XMY,XMZ,XMINSTR
2823"RTN","CWMAILB",91,0)
2824 S CWMSGN=$P(CWINPUT,";") ;MESSAGE NUMBER
2825"RTN","CWMAILB",92,0)
2826 I $G(CWMSGN)<1 S CWDATA(1)="0^98- No message number given" G ANSEND
2827"RTN","CWMAILB",93,0)
2828 S CWDATA(1)="0^99- UNDEFINED ERROR"
2829"RTN","CWMAILB",94,0)
2830 ;TEXT ARRAY CONTAINS RECIPIENT LIST AND MESSAGE TEXT LOADED FROM BMSGD call
2831"RTN","CWMAILB",95,0)
2832 ;BUILD XMY ARRAY
2833"RTN","CWMAILB",96,0)
2834 S CWTEXT=$NA(^TMP($J,"CWMAILLOAD"))
2835"RTN","CWMAILB",97,0)
2836 S CWSDATA=$G(@CWTEXT@(-9902),"[START XMY]"),CWSEDATA=$G(@CWTEXT@(-9903),"[END XMY]")
2837"RTN","CWMAILB",98,0)
2838 S CWLP=-1 D GFNDLP^CWMAILB(.CWLP,CWSDATA)
2839"RTN","CWMAILB",99,0)
2840 ;RETRIEVE RECIPIENTS
2841"RTN","CWMAILB",100,0)
2842 I $G(CWLP)'="" D
2843"RTN","CWMAILB",101,0)
2844 . F S CWLP=$O(@CWTEXT@(CWLP)) Q:CWLP="" Q:@CWTEXT@(CWLP)=CWSEDATA D
2845"RTN","CWMAILB",102,0)
2846 . . S CWTMP=$G(@CWTEXT@(CWLP)) Q:CWTMP=""
2847"RTN","CWMAILB",103,0)
2848 . . S CWFILE=+$P(CWTMP,"^"),CWIEN=+$P(CWTMP,"^",2),CWNAM=$P(CWTMP,"^",3)
2849"RTN","CWMAILB",104,0)
2850 . . I CWFILE=200 S XMY(CWIEN)=""
2851"RTN","CWMAILB",105,0)
2852 . . E I CWFILE=3.8 S XMY("G."_CWNAM)=""
2853"RTN","CWMAILB",106,0)
2854 . . E S XMY(CWNAM)="" ;treat address as internet address
2855"RTN","CWMAILB",107,0)
2856 ;BUILD MESSAGE @TEXT@ ARRAY
2857"RTN","CWMAILB",108,0)
2858 S CWSDATA=$G(@CWTEXT@(-9900),"[START DATA]"),CWSEDATA=$G(@CWTEXT@(-9901),"[END DATA]")
2859"RTN","CWMAILB",109,0)
2860 S CWLP=-1 D GFNDLP^CWMAILB(.CWLP,CWSDATA)
2861"RTN","CWMAILB",110,0)
2862 I $G(CWLP)="" S CWDATA(1)="0^3- NO MESSAGE TEXT" G ANSEND
2863"RTN","CWMAILB",111,0)
2864 F S CWLP=$O(@CWTEXT@(CWLP)) Q:CWLP="" Q:@CWTEXT@(CWLP)=CWSEDATA D
2865"RTN","CWMAILB",112,0)
2866 .S ^TMP($J,"CWMAILOUT",CWLP)=$G(@CWTEXT@(CWLP))
2867"RTN","CWMAILB",113,0)
2868 ;I '$D(^TMP($J,"CWMAILOUT")) S CWDATA(1)="0^3- NO MESSAGE TEXT" G ANSEND ;NO MESSAGE @CWTEXT@
2869"RTN","CWMAILB",114,0)
2870 ;I '$L($P($G(CWINPUT),";")) S CWDATA(1)="0^4- MESSAGE SUBJECT NOT GIVEN" G ANSEND
2871"RTN","CWMAILB",115,0)
2872 ;E S XMSUBJ=$P($G(CWINPUT),";")
2873"RTN","CWMAILB",116,0)
2874 ;PROCESS MESSAGE
2875"RTN","CWMAILB",117,0)
2876 S XMBODY=$NA(^TMP($J,"CWMAILOUT"))
2877"RTN","CWMAILB",118,0)
2878 S XMINSTR("FLAGS")=$P(CWINPUT,";",3) ;GET MESSAGE ATTRIBUTES
2879"RTN","CWMAILB",119,0)
2880 D ANSRMSG^XMXAPI(XMDUZ,"",CWMSGN,"",XMBODY,.XMY,.XMINSTR,.XMZ)
2881"RTN","CWMAILB",120,0)
2882 I $G(XMZ)<1 S CWDATA(1)="0^5- MESSAGE ANSWER FAILED" G ANSEND
2883"RTN","CWMAILB",121,0)
2884 I +$G(XMZ)>0 S CWDATA(1)="1^^"_$G(XMZ)
2885"RTN","CWMAILB",122,0)
2886ANSEND K ^TMP($J,"CWMAILOUT"),^TMP($J,"CWMAILLOAD")
2887"RTN","CWMAILB",123,0)
2888 Q
2889"RTN","CWMAILC")
28900^10^B12646738
2891"RTN","CWMAILC",1,0)
2892CWMAILC ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;03-Jun-1999 13:29;PS
2893"RTN","CWMAILC",2,0)
2894 ;;2.1;CWMA GuiMail;;Jan 06, 1999
2895"RTN","CWMAILC",3,0)
2896 ;MODIFIED FOR XM*7.1*50
2897"RTN","CWMAILC",4,0)
2898 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
2899"RTN","CWMAILC",5,0)
2900 ;
2901"RTN","CWMAILC",6,0)
2902%LATER(CWDATA,CWINPUT) ;LATER A MESSAGE
2903"RTN","CWMAILC",7,0)
2904 ;CWINPUT - HOLDS MESSAGE NUMBER AND LATER DATE/TIME - DELIMITER ';'
2905"RTN","CWMAILC",8,0)
2906 ; 1st - IEN of message
2907"RTN","CWMAILC",9,0)
2908 ; 2nd - Later date
2909"RTN","CWMAILC",10,0)
2910 N XMZ,XMDUZ,XMA
2911"RTN","CWMAILC",11,0)
2912 S CWDATA(1)="0^^AN ERROR HAS OCCURRED"
2913"RTN","CWMAILC",12,0)
2914 S XMZ=$P(CWINPUT,";")
2915"RTN","CWMAILC",13,0)
2916 S XMDUZ=DUZ
2917"RTN","CWMAILC",14,0)
2918 S XMA=$P(CWINPUT,";",2)
2919"RTN","CWMAILC",15,0)
2920 G:'XMZ!('$G(XMA)) LATERE
2921"RTN","CWMAILC",16,0)
2922 I $$LATER^CWMAIL1(XMZ,XMA) D
2923"RTN","CWMAILC",17,0)
2924 .S CWDATA(1)="1^1^Message has been latered"
2925"RTN","CWMAILC",18,0)
2926 E S CWDATA(1)="0^0^Unable to Later Message Number: "_XMZ
2927"RTN","CWMAILC",19,0)
2928LATERE Q
2929"RTN","CWMAILC",20,0)
2930 ;
2931"RTN","CWMAILC",21,0)
2932%MBOX(CWDATA,CWINPUT) ;RETRIEVE MAILBOXES
2933"RTN","CWMAILC",22,0)
2934 ;CWINPUT NOT USED
2935"RTN","CWMAILC",23,0)
2936 ;VARIABLES : CWNMSG = NEW MESSAGES
2937"RTN","CWMAILC",24,0)
2938 ; CWTMSG = TOTAL MESSAGE COUNT
2939"RTN","CWMAILC",25,0)
2940 K ^TMP($J,"CWMBSKT")
2941"RTN","CWMAILC",26,0)
2942 D LISTBSKT^XMXAPIB(XMDUZ,,,,,"^TMP($J,""CWMBSKT"")")
2943"RTN","CWMAILC",27,0)
2944 N CWLP,CWLP1,CWCNT,CWNMSG,CWTMSG,CWFPES,CWHSN,CWBNAME,CWBIEN
2945"RTN","CWMAILC",28,0)
2946 S CWDATA(1)="0^^AN ERROR HAS OCCURRED",CWCNT=2
2947"RTN","CWMAILC",29,0)
2948 S CWLP=0 F S CWLP=$O(^TMP($J,"CWMBSKT","XMLIST",CWLP)) Q:CWLP="" D
2949"RTN","CWMAILC",30,0)
2950 . S CWBIEN=+$G(^TMP($J,"CWMBSKT","XMLIST",CWLP))
2951"RTN","CWMAILC",31,0)
2952 . I CWBIEN D
2953"RTN","CWMAILC",32,0)
2954 . . S CWDATA(CWCNT)=$G(^TMP($J,"CWMBSKT","XMLIST",CWLP))
2955"RTN","CWMAILC",33,0)
2956 . . S CWCNT=CWCNT+1
2957"RTN","CWMAILC",34,0)
2958 I $O(CWDATA(1)) S CWDATA(1)="1^^DATA HAS BEEN FOUND"
2959"RTN","CWMAILC",35,0)
2960 E S CWDATA(1)="1^^No Mail Boxes could be found"
2961"RTN","CWMAILC",36,0)
2962 S $P(CWDATA(1),U,2)=CWCNT-2
2963"RTN","CWMAILC",37,0)
2964MBOXE K ^TMP($J,"CWMBSKT")
2965"RTN","CWMAILC",38,0)
2966 Q
2967"RTN","CWMAILC",39,0)
2968%PMBOX(CWDATA,CWINPUT) ;PURGE ENTIRE MAIL BOX
2969"RTN","CWMAILC",40,0)
2970 ;CWINPUT = MAIL BOX IEN
2971"RTN","CWMAILC",41,0)
2972 N CWLP,XMZ,XMK,CWX,CWY,XMKZA,XMMSG,CWCNT
2973"RTN","CWMAILC",42,0)
2974 S XMK=$P(CWINPUT,";",2)
2975"RTN","CWMAILC",43,0)
2976 G PMBOXE:'XMK
2977"RTN","CWMAILC",44,0)
2978 S CWDATA(1)="0^^AN ERROR HAS OCCURRED",CWCNT=2
2979"RTN","CWMAILC",45,0)
2980 ;delete basket regardless of content
2981"RTN","CWMAILC",46,0)
2982 D DELBSKT^XMXAPIB(XMDUZ,XMK,"D")
2983"RTN","CWMAILC",47,0)
2984 S CWDATA(1)="1^1"
2985"RTN","CWMAILC",48,0)
2986 ;E S CWDATA(1)="0^0"
2987"RTN","CWMAILC",49,0)
2988PMBOXE Q
2989"RTN","CWMAILC",50,0)
2990%RNMBOX(CWDATA,CWINPUT) ;RENAME EXISTING MAILBOX
2991"RTN","CWMAILC",51,0)
2992 ;CWINPUT - DELIMITER ';'
2993"RTN","CWMAILC",52,0)
2994 ; 1st - IEN of mailbox
2995"RTN","CWMAILC",53,0)
2996 ; 2nd - New name of mailbox
2997"RTN","CWMAILC",54,0)
2998 D NAMEBSKT^XMXAPIB(XMDUZ,$P(CWINPUT,";"),$P(CWINPUT,";",2))
2999"RTN","CWMAILC",55,0)
3000 S CWDATA(1)="1^1^MAILBOX NAME WAS CHANGED" ;FORCE TO SUCCESS
3001"RTN","CWMAILC",56,0)
3002RNMBOXE Q
3003"RTN","CWMAILC",57,0)
3004%MSGRCP(CWDATA,CWINPUT) ; RETURNS A LIST OF MESSAGE RECIPIENTS
3005"RTN","CWMAILC",58,0)
3006 ;CWINPUT = IEN of message
3007"RTN","CWMAILC",59,0)
3008 N CWDAT,CWI,XMZ
3009"RTN","CWMAILC",60,0)
3010 K CWDATA
3011"RTN","CWMAILC",61,0)
3012 S XMZ=+$P($G(CWINPUT),";",2)
3013"RTN","CWMAILC",62,0)
3014 D RECPT^CWMAIL1(.CWDATA,XMZ)
3015"RTN","CWMAILC",63,0)
3016MSGRCPE Q
3017"RTN","CWMAILC",64,0)
3018%NETINFO(CWDATA,CWINPUT) ; RETURNS NETWORK TRANSMISSION INFO
3019"RTN","CWMAILC",65,0)
3020 ;INPUT - IEN of message
3021"RTN","CWMAILC",66,0)
3022 N CWDAT,CWI,XMZ
3023"RTN","CWMAILC",67,0)
3024 K CWDATA
3025"RTN","CWMAILC",68,0)
3026 S XMZ=+$P($G(CWINPUT),";",2)
3027"RTN","CWMAILC",69,0)
3028 D NETINFO^CWMAIL1(.CWDATA,XMZ)
3029"RTN","CWMAILC",70,0)
3030NETINFOE Q
3031"RTN","CWMAILC",71,0)
3032 ;
3033"RTN","CWMAILC",72,0)
3034%ADRSTO(CWDATA,CWINPUT) ;RETURNS ARRAY OF ADDRESSED TO
3035"RTN","CWMAILC",73,0)
3036 ;CWINPUT - IEN of message
3037"RTN","CWMAILC",74,0)
3038 N CWDAT,CWI,XMZ
3039"RTN","CWMAILC",75,0)
3040 K CWDATA
3041"RTN","CWMAILC",76,0)
3042 S XMZ=+$P($G(CWINPUT),";",2)
3043"RTN","CWMAILC",77,0)
3044 D ADRSTO^CWMAIL1(.CWDATA,XMZ)
3045"RTN","CWMAILC",78,0)
3046ADRSTOE Q
3047"RTN","CWMAILC",79,0)
3048%GRPINF(CWDATA,CWINPUT) ;MAIL GROUP INFO
3049"RTN","CWMAILC",80,0)
3050 ;CWINPUT - IEN of mail group
3051"RTN","CWMAILC",81,0)
3052 N CWDAT,CWI,XMZ
3053"RTN","CWMAILC",82,0)
3054 K CWDATA
3055"RTN","CWMAILC",83,0)
3056 S CWI=2
3057"RTN","CWMAILC",84,0)
3058 S CWIEN=+$P($G(CWINPUT),";",2)
3059"RTN","CWMAILC",85,0)
3060 I $$GRPINFO^CWMAIL3(.CWDAT,CWIEN) D
3061"RTN","CWMAILC",86,0)
3062 .S CWI=+$G(CWDAT(-9900)) K CWDAT(-9900)
3063"RTN","CWMAILC",87,0)
3064 .M CWDATA=CWDAT
3065"RTN","CWMAILC",88,0)
3066 .S CWDATA(1)="1^^DATA HAS BEEN FOUND"
3067"RTN","CWMAILC",89,0)
3068 E S CWDATA(1)="1^^There was no Mail Group information found."
3069"RTN","CWMAILC",90,0)
3070 S $P(CWDATA(1),U,2)=CWI-2
3071"RTN","CWMAILC",91,0)
3072GRPINFE Q
3073"RTN","CWMAILC",92,0)
3074%USRINF(CWDATA,CWINPUT) ;MAIL USER INFO
3075"RTN","CWMAILC",93,0)
3076 ;CWINPUT - IEN of mail user
3077"RTN","CWMAILC",94,0)
3078 N CWDAT,CWI,CWIEN
3079"RTN","CWMAILC",95,0)
3080 K CWDATA
3081"RTN","CWMAILC",96,0)
3082 S CWI=2
3083"RTN","CWMAILC",97,0)
3084 S CWIEN=+$P($G(CWINPUT),";",2)
3085"RTN","CWMAILC",98,0)
3086 ;G:'CWIEN USRINFE
3087"RTN","CWMAILC",99,0)
3088 I $$USRINFO^CWMAIL3(.CWDAT,CWIEN) D
3089"RTN","CWMAILC",100,0)
3090 .S CWI=+$G(CWDAT(-9900)) K CWDAT(-9900)
3091"RTN","CWMAILC",101,0)
3092 .M CWDATA=CWDAT
3093"RTN","CWMAILC",102,0)
3094 .S CWDATA(1)="1^^DATA HAS BEEN FOUND"
3095"RTN","CWMAILC",103,0)
3096 E S CWDATA(1)="1^^There was no Mail User information found."
3097"RTN","CWMAILC",104,0)
3098 S $P(CWDATA(1),U,2)=CWI-2
3099"RTN","CWMAILC",105,0)
3100USRINFE Q
3101"RTN","CWMAILC",106,0)
3102MBOXD(CWDAT,CWUSR,CWIEN) ;RETURN DATA FOR MAILBOX
3103"RTN","CWMAILC",107,0)
3104 ;API NOT CURRENTLY USED
3105"RTN","CWMAILC",108,0)
3106 ;INPUT CWDAT = RETURN ARRAY
3107"RTN","CWMAILC",109,0)
3108 ; CWIEN = MAILBASKET IEN TO 3.7 FOR USER
3109"RTN","CWMAILC",110,0)
3110 ;OUTPUT CWDAT("NAME")
3111"RTN","CWMAILC",111,0)
3112 ; CWDAT("TMSG")
3113"RTN","CWMAILC",112,0)
3114 ; CWDAT("NMSG")
3115"RTN","CWMAILC",113,0)
3116 ; CWDAT("IEN")
3117"RTN","CWMAILC",114,0)
3118 N CWDATT
3119"RTN","CWMAILC",115,0)
3120 D QBSKT^XMXAPIB(CWUSR,CWIEN,.CWDATT)
3121"RTN","CWMAILC",116,0)
3122 S CWDAT("IEN")=$P(CWDATT,U)
3123"RTN","CWMAILC",117,0)
3124 S CWDAT("NAME")=$P(CWDATT,U,2)
3125"RTN","CWMAILC",118,0)
3126 S CWDAT("TMSG")=+$P(CWDATT,U,3)
3127"RTN","CWMAILC",119,0)
3128 S CWDAT("NMSG")=+$P(CWDATT,U,4)
3129"RTN","CWMAILC",120,0)
3130 Q
3131"RTN","CWMAILD")
31320^11^B18697748
3133"RTN","CWMAILD",1,0)
3134CWMAILD ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;16-Jul-1999 11:13;PS
3135"RTN","CWMAILD",2,0)
3136 ;;2.1;CWMA GuiMail;;Jan 06, 1999
3137"RTN","CWMAILD",3,0)
3138 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
3139"RTN","CWMAILD",4,0)
3140 ;
3141"RTN","CWMAILD",5,0)
3142%BMSGD(CWDATA,CWINPUT,CWTEXT) ;BUILD MESSAGE DATA INTO GLOBAL
3143"RTN","CWMAILD",6,0)
3144 ;USE CREATE OR REPLY TO SEND ACTUAL MESSAGE OR REPLY
3145"RTN","CWMAILD",7,0)
3146 M ^TMP($J,"CWMAILLOAD")=CWTEXT
3147"RTN","CWMAILD",8,0)
3148 S CWDATA(1)="1^1^DATA SET"
3149"RTN","CWMAILD",9,0)
3150BMSGDE Q
3151"RTN","CWMAILD",10,0)
3152 ;
3153"RTN","CWMAILD",11,0)
3154%PERPREF(CWDATA,CWPARAM) ;retrieve personal preferences
3155"RTN","CWMAILD",12,0)
3156 ;CWPARAM is not used
3157"RTN","CWMAILD",13,0)
3158 N CWNAME,CWCNT
3159"RTN","CWMAILD",14,0)
3160 S CWCNT=2
3161"RTN","CWMAILD",15,0)
3162 S CWDATA(1)="0^^AN ERROR HAS OCCURRED"
3163"RTN","CWMAILD",16,0)
3164 I $$GETPKPM^CWMAILE(.CWDATA) D
3165"RTN","CWMAILD",17,0)
3166 .S CWCNT=$G(CWDATA(-9900))
3167"RTN","CWMAILD",18,0)
3168 .K CWDATA(-9900)
3169"RTN","CWMAILD",19,0)
3170 .S CWDATA(1)="1^1^Preferences have been retrieved"
3171"RTN","CWMAILD",20,0)
3172 E S CWDATA(1)="0^0^Unable to retrieve preferences"
3173"RTN","CWMAILD",21,0)
3174 S $P(CWDATA(1),U,2)=CWCNT-2
3175"RTN","CWMAILD",22,0)
3176PERPREFE Q
3177"RTN","CWMAILD",23,0)
3178 ;
3179"RTN","CWMAILD",24,0)
3180%USRLOG(CWDATA,DUZ) ;SET-UP USER PARTITION
3181"RTN","CWMAILD",25,0)
3182 ;
3183"RTN","CWMAILD",26,0)
3184 I +DUZ>0 D
3185"RTN","CWMAILD",27,0)
3186 . N XMDISPI,XMDUN,XMDUZ,CWNAME,CWNKNM,CWNMAIL,CWPMAIL
3187"RTN","CWMAILD",28,0)
3188 . S CWNKNM=$P($G(^VA(200,DUZ,.1)),U,4)
3189"RTN","CWMAILD",29,0)
3190 . D INIT^XMVVITAE
3191"RTN","CWMAILD",30,0)
3192 . S CWNMAIL=+$P($G(^XMB(3.7,DUZ,0)),U,6)
3193"RTN","CWMAILD",31,0)
3194 . S CWDATA(1)="1^"
3195"RTN","CWMAILD",32,0)
3196 . S $P(CWDATA(1),U,2)=XMV("DUZ NAME") ; SET USER NAME
3197"RTN","CWMAILD",33,0)
3198 . S $P(CWDATA(1),U,3)=CWNKNM ;SET USER NICKNAME
3199"RTN","CWMAILD",34,0)
3200 . S $P(CWDATA(1),U,4)=XMV("NEW MSGS") ;SET # OF NEW MSGS
3201"RTN","CWMAILD",35,0)
3202 . S $P(CWDATA(1),U,5)=$G(XMV("WARNING",1))="Priority Mail" ;SET PRIORITY MAIL FLAG
3203"RTN","CWMAILD",36,0)
3204 . S $P(CWDATA(1),U,6)=$P($G(XMV("NETNAME")),"@",2) ;get domain name for mail server
3205"RTN","CWMAILD",37,0)
3206 ;$G(^XMB("NETNAME")) ;get domain name for mail server
3207"RTN","CWMAILD",38,0)
3208 E S CWDATA(1)="0^USER NOT FOUND"
3209"RTN","CWMAILD",39,0)
3210USRLOGE Q
3211"RTN","CWMAILD",40,0)
3212%CHKMAIL(CWDATA,DUZ) ;CHECK FOR NEW MAIL
3213"RTN","CWMAILD",41,0)
3214 ;
3215"RTN","CWMAILD",42,0)
3216 N CWPMAIL,CWNMAIL,CWDAT
3217"RTN","CWMAILD",43,0)
3218 I +DUZ>0 D
3219"RTN","CWMAILD",44,0)
3220 . S CWDAT=$$NEWS^XMXUTIL(DUZ) ;FORMAT #NEWMSGS^PRIORITY^#NMSGIN^DT LAST MSG^
3221"RTN","CWMAILD",45,0)
3222 . S CWDATA(1)="1^"_U_U_+CWDAT_U_+$P(CWDAT,U,2)
3223"RTN","CWMAILD",46,0)
3224 E S CWDATA(1)="0^USER NOT FOUND"
3225"RTN","CWMAILD",47,0)
3226CHKMAILE Q
3227"RTN","CWMAILD",48,0)
3228 ;
3229"RTN","CWMAILD",49,0)
3230%PRTMSG(CWDATA,CWINPUT) ;PRINT A MESSAGE
3231"RTN","CWMAILD",50,0)
3232 ; CWINPUT - 1st piece: XMZ message number
3233"RTN","CWMAILD",51,0)
3234 ; 2nd piece: XMK message basket number
3235"RTN","CWMAILD",52,0)
3236 ; 3rd piece: Print from response number 0=all
3237"RTN","CWMAILD",53,0)
3238 ; 4th piece: null = no recpts 0=summary; 1=detail
3239"RTN","CWMAILD",54,0)
3240 ; 5th piece: printer name
3241"RTN","CWMAILD",55,0)
3242 ; 6th piece: 1=header, 0=headerless
3243"RTN","CWMAILD",56,0)
3244 N XMZ,XMK,XMKN
3245"RTN","CWMAILD",57,0)
3246 N XMINSTR,CWDAT1,CWDAT2,CWRESP,CWRECP,CWPRTN,XMMSG,XMTASK
3247"RTN","CWMAILD",58,0)
3248 S XMZ=+$P(CWINPUT,";")
3249"RTN","CWMAILD",59,0)
3250 S CWRESP=$P(CWINPUT,";",3)
3251"RTN","CWMAILD",60,0)
3252 S CWRECP=$P(CWINPUT,";",4),CWRECP=$S($L(CWRECP):+CWRECP,1:-1)
3253"RTN","CWMAILD",61,0)
3254 S CWPRTN=$P(CWINPUT,";",5)
3255"RTN","CWMAILD",62,0)
3256 ;D INMSG1^XMXUTIL2(XMDUZ,XMZ,,.CWDAT1,.CWDAT2) ;GET # OF RESPONSES - NOT CURRENTLY NEEDED
3257"RTN","CWMAILD",63,0)
3258 S XMINSTR("HDR")=$S('$L($P(CWINPUT,";",6)):1,1:+$P(CWINPUT,";",6)) ;DEFAULT TO PRINTING HEADER
3259"RTN","CWMAILD",64,0)
3260 S XMINSTR("RESPS")=$S(+CWRESP:+CWRESP_"-",1:"*") ;DEFINE RANGE TO PRINT +$G((CWDAT("RESPS"))) HOLDS TOTAL # OF RESPONSES
3261"RTN","CWMAILD",65,0)
3262 I CWRECP>-1 D
3263"RTN","CWMAILD",66,0)
3264 . S XMINSTR("RECIPS")=$S(+CWRECP:2,1:1) ;CONVERT CWMA TO XM NOMENCLATURE
3265"RTN","CWMAILD",67,0)
3266 E S XMINSTR("RECIPS")=0 ;Don't print recipient list
3267"RTN","CWMAILD",68,0)
3268 D:$L($G(CWPRTN)) PRTMSG^XMXAPI(XMDUZ,,XMZ,CWPRTN,.XMINSTR,,.XMTASK)
3269"RTN","CWMAILD",69,0)
3270 I +$G(XMTASK) S CWDATA(1)="1^1^"_$G(XMTASK)
3271"RTN","CWMAILD",70,0)
3272 E S CWDATA(1)="1^0^Message could not be printed"
3273"RTN","CWMAILD",71,0)
3274PRTMSGE Q
3275"RTN","CWMAILD",72,0)
3276 ;
3277"RTN","CWMAILD",73,0)
3278%SUPREF(CWDATA,CWINPUT,CWTEXT) ;Set user preferences
3279"RTN","CWMAILD",74,0)
3280 ;
3281"RTN","CWMAILD",75,0)
3282 N CWSDATA,CWSEDATA,CWLP
3283"RTN","CWMAILD",76,0)
3284 N CWPRM,CWVAL,CWLP1,CWERR
3285"RTN","CWMAILD",77,0)
3286 S CWDATA(1)="0^^AN ERROR HAS OCCURRED"
3287"RTN","CWMAILD",78,0)
3288 S CWSDATA=$G(CWTEXT(-9902),"[START DATA]"),CWSEDATA=$G(CWTEXT(-9903),"[END DATA]")
3289"RTN","CWMAILD",79,0)
3290 S CWLP=-1 D FNDLP^CWMAILB(.CWLP,CWSDATA)
3291"RTN","CWMAILD",80,0)
3292 G:$G(CWLP)="" SUPREND
3293"RTN","CWMAILD",81,0)
3294 F S CWLP=$O(CWTEXT(CWLP)) Q:CWLP="" Q:CWTEXT(CWLP)=CWSEDATA D
3295"RTN","CWMAILD",82,0)
3296 . I CWTEXT(CWLP)'?1"[".E1"]" D
3297"RTN","CWMAILD",83,0)
3298 . . S CWPRM=$$GETPRM^CWMAILE($P(CWTEXT(CWLP),"=")) ;get parameter
3299"RTN","CWMAILD",84,0)
3300 . . I $L(CWPRM) D
3301"RTN","CWMAILD",85,0)
3302 . . . S CWVAL=$P(CWTEXT(CWLP),"=",2) ;get value
3303"RTN","CWMAILD",86,0)
3304 . . . S CWERR=$$SETPARM(XMDUZ,CWPRM,CWVAL) ;set value into parameter
3305"RTN","CWMAILD",87,0)
3306 S CWDATA(1)="1^1^Preferences have been stored"
3307"RTN","CWMAILD",88,0)
3308SUPREND Q
3309"RTN","CWMAILD",89,0)
3310 ;
3311"RTN","CWMAILD",90,0)
3312SETPARM(CWDUZ,CWPARM,CWVALUE) ;Set value into parameter instance
3313"RTN","CWMAILD",91,0)
3314 ;Input: CWPARM - holds the return value of $$GETPRM^CWMAILE
3315"RTN","CWMAILD",92,0)
3316 ; CWVALUE - value to stuff (single value or comma delimited string)
3317"RTN","CWMAILD",93,0)
3318 ; CWDUZ - user
3319"RTN","CWMAILD",94,0)
3320 Q:'CWDUZ 1 ;must have a valid user
3321"RTN","CWMAILD",95,0)
3322 K CWERR
3323"RTN","CWMAILD",96,0)
3324 I 'CWPARM D ;single instance
3325"RTN","CWMAILD",97,0)
3326 . D EN^XPAR("USR.`"_CWDUZ,$P(CWPARM,"|",2),1,CWVALUE,.CWERR)
3327"RTN","CWMAILD",98,0)
3328 E D ;multiple instances
3329"RTN","CWMAILD",99,0)
3330 . N CWLP,CWX,CWXA
3331"RTN","CWMAILD",100,0)
3332 . S CWX=CWVALUE,CWLP=0
3333"RTN","CWMAILD",101,0)
3334 . F Q:$L(CWX,";")<(CWLP+1) D
3335"RTN","CWMAILD",102,0)
3336 . . S CWLP=CWLP+1
3337"RTN","CWMAILD",103,0)
3338 . . S CWXA=$P(CWX,";",CWLP) ;CWXA holds the column,width pair
3339"RTN","CWMAILD",104,0)
3340 . . D EN^XPAR("USR.`"_CWDUZ,$P(CWPARM,"|",2),CWLP,CWXA,.CWERR) ;stuff value
3341"RTN","CWMAILD",105,0)
3342 Q CWERR
3343"RTN","CWMAILD",106,0)
3344 ;
3345"RTN","CWMAILD",107,0)
3346%GETSVER(CWDATA,CWPARAM) ;GET SERVER VERSION
3347"RTN","CWMAILD",108,0)
3348 S CWDATA(1)="1^1^"_+$$VERSION^XPDUTL("CWMA")
3349"RTN","CWMAILD",109,0)
3350 Q
3351"RTN","CWMAILE")
33520^12^B13183521
3353"RTN","CWMAILE",1,0)
3354CWMAILE ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;07-Sep-1999 14:08;PS
3355"RTN","CWMAILE",2,0)
3356 ;;2.1;CWMA GuiMail;;Jan 06, 1999
3357"RTN","CWMAILE",3,0)
3358 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
3359"RTN","CWMAILE",4,0)
3360 ;
3361"RTN","CWMAILE",5,0)
3362GETPKPM(CWDAT) ;get package parameters and return in CWDAT
3363"RTN","CWMAILE",6,0)
3364 ;called by CWMAILD
3365"RTN","CWMAILE",7,0)
3366 ;This API uses the PRECEDENCE field of each parameter
3367"RTN","CWMAILE",8,0)
3368 N CWCNT,CWLP
3369"RTN","CWMAILE",9,0)
3370 S CWCNT=2
3371"RTN","CWMAILE",10,0)
3372 S CWDAT(CWCNT)="[Sound]",CWCNT=CWCNT+1
3373"RTN","CWMAILE",11,0)
3374 S CWDAT(CWCNT)="Sound="_+$$GET^XPAR("ALL","CWMA SOUND ENABLED"),CWCNT=CWCNT+1
3375"RTN","CWMAILE",12,0)
3376 S CWDAT(CWCNT)="Message Open="_$$GET^XPAR("ALL","CWMA SOUND MESSAGE OPEN"),CWCNT=CWCNT+1
3377"RTN","CWMAILE",13,0)
3378 S CWDAT(CWCNT)="Message Close="_$$GET^XPAR("ALL","CWMA SOUND MESSAGE CLOSE"),CWCNT=CWCNT+1
3379"RTN","CWMAILE",14,0)
3380 S CWDAT(CWCNT)="New Mail="_$$GET^XPAR("ALL","CWMA SOUND NEW MAIL"),CWCNT=CWCNT+1
3381"RTN","CWMAILE",15,0)
3382 S CWDAT(CWCNT)="Priority Mail="_$$GET^XPAR("ALL","CWMA SOUND PRIORITY MAIL"),CWCNT=CWCNT+1
3383"RTN","CWMAILE",16,0)
3384 S CWDAT(CWCNT)="[StartUp]",CWCNT=CWCNT+1
3385"RTN","CWMAILE",17,0)
3386 S CWDAT(CWCNT)="StartUpNewMail="_$$GET^XPAR("ALL","CWMA STARTUP NEW MAIL",1,"E"),CWCNT=CWCNT+1
3387"RTN","CWMAILE",18,0)
3388 S CWDAT(CWCNT)="StartUpOpenMailBox="_$$GET^XPAR("ALL","CWMA STARTUP OPEN MAIL BOX",1,"E"),CWCNT=CWCNT+1
3389"RTN","CWMAILE",19,0)
3390 S CWDAT(CWCNT)="StartUpOpenMailBoxName="_$$GET^XPAR("ALL","CWMA STARTUP MAIL BOX NAME"),CWCNT=CWCNT+1
3391"RTN","CWMAILE",20,0)
3392 S CWDAT(CWCNT)="[General]",CWCNT=CWCNT+1
3393"RTN","CWMAILE",21,0)
3394 S CWDAT(CWCNT)="CreateMessageAttributes="_$$GET^XPAR("ALL","CWMA GENERAL CMA STYLE"),CWCNT=CWCNT+1
3395"RTN","CWMAILE",22,0)
3396 S CWDAT(CWCNT)="MessagePropertiesDefaultTab="_$$GET^XPAR("ALL","CWMA GENERAL MPD TAB"),CWCNT=CWCNT+1
3397"RTN","CWMAILE",23,0)
3398 S CWDAT(CWCNT)="NewMailPollingFrequency="_$$GET^XPAR("ALL","CWMA GENERAL NMP FREQ"),CWCNT=CWCNT+1
3399"RTN","CWMAILE",24,0)
3400 S CWDAT(CWCNT)="MessageDisplayCount="_$$GET^XPAR("ALL","CWMA GENERAL MD COUNT"),CWCNT=CWCNT+1
3401"RTN","CWMAILE",25,0)
3402 S CWDAT(CWCNT)="DefaultVistaPrinter="_$$GET^XPAR("ALL","CWMA GENERAL VISTA PRT"),CWCNT=CWCNT+1
3403"RTN","CWMAILE",26,0)
3404 S CWDAT(CWCNT)="DefaultPrintMode="_+$$GET^XPAR("ALL","CWMA GENERAL PRINTMODE"),CWCNT=CWCNT+1
3405"RTN","CWMAILE",27,0)
3406 S CWDAT(CWCNT)="MessageDisplayColumns="_$$GETCOL,CWCNT=CWCNT+1 ;get column information
3407"RTN","CWMAILE",28,0)
3408 S CWDAT(CWCNT)="AllowAttachments="_$$GET^XPAR("ALL","CWMA ALLOW ATTACHMENTS",1,"E"),CWCNT=CWCNT+1
3409"RTN","CWMAILE",29,0)
3410 S CWDAT(-9900)=CWCNT
3411"RTN","CWMAILE",30,0)
3412 Q $O(CWDAT(1))
3413"RTN","CWMAILE",31,0)
3414 ;
3415"RTN","CWMAILE",32,0)
3416GETCOL() ;retrieve column information for message display
3417"RTN","CWMAILE",33,0)
3418 N CWLP,CWDAA,CWTMP
3419"RTN","CWMAILE",34,0)
3420 S CWTMP=""
3421"RTN","CWMAILE",35,0)
3422 D GETLST^XPAR(.CWDAA,"ALL","CWMA GENERAL MD COL")
3423"RTN","CWMAILE",36,0)
3424 S CWLP=0 F S CWLP=$O(CWDAA(CWLP)) Q:CWLP<1 D
3425"RTN","CWMAILE",37,0)
3426 . S CWTMP=CWTMP_$P(CWDAA(CWLP),U,2)_";"
3427"RTN","CWMAILE",38,0)
3428 Q CWTMP
3429"RTN","CWMAILE",39,0)
3430 ;
3431"RTN","CWMAILE",40,0)
3432GETPRM(CWVAR) ;lookup parameter for a given variable
3433"RTN","CWMAILE",41,0)
3434 ;returns set procedure|parameter
3435"RTN","CWMAILE",42,0)
3436 ; set procedure: 0=single instance, 1=multiple instances
3437"RTN","CWMAILE",43,0)
3438 Q:CWVAR="Sound" "0|CWMA SOUND ENABLED"
3439"RTN","CWMAILE",44,0)
3440 Q:CWVAR="Message Open" "0|CWMA SOUND MESSAGE OPEN"
3441"RTN","CWMAILE",45,0)
3442 Q:CWVAR="Message Close" "0|CWMA SOUND MESSAGE CLOSE"
3443"RTN","CWMAILE",46,0)
3444 Q:CWVAR="Priority Mail" "0|CWMA SOUND PRIORITY MAIL"
3445"RTN","CWMAILE",47,0)
3446 Q:CWVAR="New Mail" "0|CWMA SOUND NEW MAIL"
3447"RTN","CWMAILE",48,0)
3448 Q:CWVAR="StartUpNewMail" "0|CWMA STARTUP NEW MAIL"
3449"RTN","CWMAILE",49,0)
3450 Q:CWVAR="StartUpOpenMailBox" "0|CWMA STARTUP OPEN MAIL BOX"
3451"RTN","CWMAILE",50,0)
3452 Q:CWVAR="StartUpOpenMailBoxName" "0|CWMA STARTUP MAIL BOX NAME"
3453"RTN","CWMAILE",51,0)
3454 Q:CWVAR="CreateMessageAttributes" "0|CWMA GENERAL CMA STYLE"
3455"RTN","CWMAILE",52,0)
3456 Q:CWVAR="MessagePropertiesDefaultTab" "0|CWMA GENERAL MPD TAB"
3457"RTN","CWMAILE",53,0)
3458 Q:CWVAR="NewMailPollingFrequency" "0|CWMA GENERAL NMP FREQ"
3459"RTN","CWMAILE",54,0)
3460 Q:CWVAR="MessageDisplayCount" "0|CWMA GENERAL MD COUNT"
3461"RTN","CWMAILE",55,0)
3462 Q:CWVAR="DefaultVistaPrinter" "0|CWMA GENERAL VISTA PRT"
3463"RTN","CWMAILE",56,0)
3464 Q:CWVAR="DefaultPrintMode" "0|CWMA GENERAL PRINTMODE"
3465"RTN","CWMAILE",57,0)
3466 Q:CWVAR="MessageDisplayColumns" "1|CWMA GENERAL MD COL"
3467"RTN","CWMAILE",58,0)
3468 Q ""
3469"RTN","CWMAILE",59,0)
3470 ;
3471"RTN","CWMAILF")
34720^18^B6688838
3473"RTN","CWMAILF",1,0)
3474CWMAILF ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;02-Jul-1999 15:53;PS
3475"RTN","CWMAILF",2,0)
3476 ;;2.1;CWMA GuiMail;;Jan 06, 1999
3477"RTN","CWMAILF",3,0)
3478 ;MODIFIED FOR XM*7.1*50
3479"RTN","CWMAILF",4,0)
3480 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
3481"RTN","CWMAILF",5,0)
3482BLDLST(CWDATA,CWDATSRC,CWDCNT) ; build list of messages - called by CWMAILA
3483"RTN","CWMAILF",6,0)
3484 ;Input: CWDATA - pass by reference
3485"RTN","CWMAILF",7,0)
3486 ; CWDATSRC - $NA containing data
3487"RTN","CWMAILF",8,0)
3488 ; CWDCNT - node counter
3489"RTN","CWMAILF",9,0)
3490 ;Return: CWDATA array
3491"RTN","CWMAILF",10,0)
3492 ;CWARY format: piece value
3493"RTN","CWMAILF",11,0)
3494 ; 1 message basket
3495"RTN","CWMAILF",12,0)
3496 ; 2 message ien
3497"RTN","CWMAILF",13,0)
3498 ; 3 message subject
3499"RTN","CWMAILF",14,0)
3500 ; 4 message date sent
3501"RTN","CWMAILF",15,0)
3502 ; 5 not used
3503"RTN","CWMAILF",16,0)
3504 ; 6 message type
3505"RTN","CWMAILF",17,0)
3506 ; 7 confirmation flag
3507"RTN","CWMAILF",18,0)
3508 ; 8 closed flag
3509"RTN","CWMAILF",19,0)
3510 ; 9 info flag
3511"RTN","CWMAILF",20,0)
3512 ; 10 confidential flag
3513"RTN","CWMAILF",21,0)
3514 ; 11 sender ien
3515"RTN","CWMAILF",22,0)
3516 ; 12 broadcast flag
3517"RTN","CWMAILF",23,0)
3518 ; 13 sender name
3519"RTN","CWMAILF",24,0)
3520 ; 14 total # of recipients
3521"RTN","CWMAILF",25,0)
3522 ; 15 total # of replies
3523"RTN","CWMAILF",26,0)
3524 ; 16 priority flag
3525"RTN","CWMAILF",27,0)
3526 ; 17 last response read
3527"RTN","CWMAILF",28,0)
3528 ; 18 message basket sequence number
3529"RTN","CWMAILF",29,0)
3530 ; 19 new message flag
3531"RTN","CWMAILF",30,0)
3532 ; 20 answer message flag
3533"RTN","CWMAILF",31,0)
3534 ;
3535"RTN","CWMAILF",32,0)
3536 S CWDATA(1)="0^AN ERROR HAS OCCURRED"
3537"RTN","CWMAILF",33,0)
3538 N CWVAL,CWMSG,CWMSGSUB,CWMSGDT,CWMAIB,CWMSGBX,CWMSGLP
3539"RTN","CWMAILF",34,0)
3540 N CWARY
3541"RTN","CWMAILF",35,0)
3542 S CWMSG=0,CWDCNT=2,CWMSGLP=0
3543"RTN","CWMAILF",36,0)
3544 ;CALL API TO RETRIEVE MESSAGES
3545"RTN","CWMAILF",37,0)
3546 F S CWMSGLP=$O(@CWDATSRC@(CWMSGLP)) Q:CWMSGLP<1 D
3547"RTN","CWMAILF",38,0)
3548 . S CWARY(1)=+$G(@CWDATSRC@(CWMSGLP,"BSKT"))
3549"RTN","CWMAILF",39,0)
3550 . S CWARY(2)=+$G(@CWDATSRC@(CWMSGLP))
3551"RTN","CWMAILF",40,0)
3552 . S CWARY(3)=$G(@CWDATSRC@(CWMSGLP,"SUBJ"))
3553"RTN","CWMAILF",41,0)
3554 . S CWARY(4)=$P($G(@CWDATSRC@(CWMSGLP,"DATE")),U)
3555"RTN","CWMAILF",42,0)
3556 . I CWARY(4)?1.N1".".N S CWARY(4)=$$FMDTE^CWMAIL4(CWARY(4),"5MZ")
3557"RTN","CWMAILF",43,0)
3558 . E S CWARY(4)=$$FMDTE^CWMAIL4($$CONVERT^XMXUTIL1(CWARY(4),1),"5MZ")
3559"RTN","CWMAILF",44,0)
3560 . S CWARY(18)=$G(@CWDATSRC@(CWMSGLP,"SEQN"))
3561"RTN","CWMAILF",45,0)
3562 . S CWARY(19)=+$G(@CWDATSRC@(CWMSGLP,"NEW"))
3563"RTN","CWMAILF",46,0)
3564 . S CWDATA(CWDCNT)=$$ADDMP^CWMAIL0(CWARY(2),.CWARY)
3565"RTN","CWMAILF",47,0)
3566 . S CWDCNT=CWDCNT+1
3567"RTN","CWMAILF",48,0)
3568 Q
3569"RTN","CWMAILF",49,0)
3570 ;
3571"RTN","CWMAILF",50,0)
3572%MSGISRC(CWDATA,CWINPUT) ;SEARCH FOR A PARTICULAR MESSAGE NUMBER
3573"RTN","CWMAILF",51,0)
3574 ;CWINPUT - IEN of Message
3575"RTN","CWMAILF",52,0)
3576 N CWI,CWMIEN,CWDATT,CWDCNT
3577"RTN","CWMAILF",53,0)
3578 K CWDATA
3579"RTN","CWMAILF",54,0)
3580 S CWDCNT=2
3581"RTN","CWMAILF",55,0)
3582 S CWMIEN=+$P($G(CWINPUT),";")
3583"RTN","CWMAILF",56,0)
3584 I $$ACCESS^XMXSEC(XMDUZ,CWMIEN) D
3585"RTN","CWMAILF",57,0)
3586 . D MSGINIT(CWMIEN,.CWDATT)
3587"RTN","CWMAILF",58,0)
3588 . D BLDLST(.CWDATA,$NA(CWDATT),.CWDCNT)
3589"RTN","CWMAILF",59,0)
3590 . ;S CWDATA(1)="1^^DATA HAS BEEN FOUND"
3591"RTN","CWMAILF",60,0)
3592 ;E S CWDATA(1)="1^^Message not found or you don't have access to it."
3593"RTN","CWMAILF",61,0)
3594 I $O(CWDATA(1)) S CWDATA(1)="1^^DATA HAS BEEN FOUND"
3595"RTN","CWMAILF",62,0)
3596 E S CWDATA(1)="1^^Message not found or you lack access to it."
3597"RTN","CWMAILF",63,0)
3598 S $P(CWDATA(1),U,2)=CWDCNT-2
3599"RTN","CWMAILF",64,0)
3600MSGISRCE Q
3601"RTN","CWMAILF",65,0)
3602 ;
3603"RTN","CWMAILF",66,0)
3604MSGINIT(CWMIEN,CWDATT) ;Individual Message Pre-processor
3605"RTN","CWMAILF",67,0)
3606 N CWIM,CWINSTR,CWIU
3607"RTN","CWMAILF",68,0)
3608 D INMSG^XMXUTIL2(XMDUZ,"",CWMIEN,,,.CWIM,.CWINSTR,.CWIU)
3609"RTN","CWMAILF",69,0)
3610 S CWDATT(1)=CWMIEN
3611"RTN","CWMAILF",70,0)
3612 S CWDATT(1,"DATE")=$G(CWIM("DATE"))
3613"RTN","CWMAILF",71,0)
3614 S CWDATT(1,"SUBJ")=$G(CWIM("SUBJ"))
3615"RTN","CWMAILF",72,0)
3616 S CWDATT(1,"SEQN")=""
3617"RTN","CWMAILF",73,0)
3618 S CWDATT(1,"BSKT")=$$BSKT^XMXUTIL2(XMDUZ,CWMIEN,1)
3619"RTN","CWMAILF",74,0)
3620 S CWDATT(1,"NEW")=$G(CWIU("NEW"))>0
3621"RTN","CWMAILF",75,0)
3622 Q
3623"RTN","CWMAILSN")
36241^19
3625"RTN","CWMAILSU")
36261^20
3627"RTN","CWMAINI")
36280^15^B8244845
3629"RTN","CWMAINI",1,0)
3630CWMAINI ;INDPLS/PLS - KIDS INITS FOR GUIMail INSTALL ;30-Jul-1999 10:42;PS;
3631"RTN","CWMAINI",2,0)
3632 ;;2.1;CWMA GuiMail;;Jan 06, 1999
3633"RTN","CWMAINI",3,0)
3634 ; Environment Check
3635"RTN","CWMAINI",4,0)
3636EC D VCHK("RPC BROKER",1.1) ;RPC Broker
3637"RTN","CWMAINI",5,0)
3638 D PCHK("DI*21.0*34") ;Fileman/Delphi Components
3639"RTN","CWMAINI",6,0)
3640 D PCHK("XM*7.1*50") ;MailMan Patch
3641"RTN","CWMAINI",7,0)
3642 D PCHK("XM*7.1*73") ;MailMan Patch to $$CONVERT^XMXUTIL1
3643"RTN","CWMAINI",8,0)
3644 D PCHK("XU*8.0*71") ;Kernel date formatting patch
3645"RTN","CWMAINI",9,0)
3646 D PCHK("XT*7.3*26") ;Kernel Tool-Kit Generic Parameters
3647"RTN","CWMAINI",10,0)
3648 S:$G(XPDENV) XPDDIQ("XPZ1")=0 ;force Disable Options/Protocols prompt to NO
3649"RTN","CWMAINI",11,0)
3650 Q
3651"RTN","CWMAINI",12,0)
3652VCHK(CWP,CWV) ;CHECK VERSION OF PASSED PACKAGE
3653"RTN","CWMAINI",13,0)
3654 D:$$VERSION^XPDUTL(CWP)<CWV MES("Requires at least version "_CWV_" of the "_CWP_".")
3655"RTN","CWMAINI",14,0)
3656 Q
3657"RTN","CWMAINI",15,0)
3658PCHK(CWPATCH) ;CHECK PATCH INSTALLATION
3659"RTN","CWMAINI",16,0)
3660 D:'$$PATCH^XPDUTL(CWPATCH) MES("Requires that patch "_CWPATCH_" be installed.")
3661"RTN","CWMAINI",17,0)
3662 Q
3663"RTN","CWMAINI",18,0)
3664MES(X) D BMES^XPDUTL(X)
3665"RTN","CWMAINI",19,0)
3666 S XPDQUIT=1
3667"RTN","CWMAINI",20,0)
3668 Q
3669"RTN","CWMAINI",21,0)
3670 ;Post Installation
3671"RTN","CWMAINI",22,0)
3672EN ;entry point for post installation functions
3673"RTN","CWMAINI",23,0)
3674 ;
3675"RTN","CWMAINI",24,0)
3676 D ^CWMAPP ;populate package parameters
3677"RTN","CWMAINI",25,0)
3678 D EN^CWMACPPI ;convert CWMAIL1 to Generic Parameter Utility
3679"RTN","CWMAINI",26,0)
3680 D PDEL890 ;prompt for deletion of File 890 CW GUI VISTA MAIL USER
3681"RTN","CWMAINI",27,0)
3682 D MMSG ;send mail message indicating package installation
3683"RTN","CWMAINI",28,0)
3684 Q
3685"RTN","CWMAINI",29,0)
3686MMSG ;send mail message to Indianapolis indicating CW GUIMail installation
3687"RTN","CWMAINI",30,0)
3688 ;
3689"RTN","CWMAINI",31,0)
3690 N CWSUBJ,CWRECP,CWBODY
3691"RTN","CWMAINI",32,0)
3692 S CWBODY=$NA(^TMP($J,"CWBODY"))
3693"RTN","CWMAINI",33,0)
3694 S CWSUBJ="GUIMail Installation at "_$G(^XMB("NETNAME"))
3695"RTN","CWMAINI",34,0)
3696 S ^TMP($J,"CWBODY",1)="GUIMail has just been installed at: "_$G(^XMB("NETNAME"))_"."
3697"RTN","CWMAINI",35,0)
3698 S ^TMP($J,"CWBODY",2)="Version #: 2.1" ;_$$VERSION^XPDUTL("CWMA") ;set version number
3699"RTN","CWMAINI",36,0)
3700 S ^TMP($J,"CWBODY",3)="Installer: "_$P($G(^VA(200,+$G(DUZ),0)),U)
3701"RTN","CWMAINI",37,0)
3702 S CWRECP("G.GUIMAIL@INDIANAPOLIS.VA.GOV")=""
3703"RTN","CWMAINI",38,0)
3704 D SENDMSG^XMXAPI(DUZ,CWSUBJ,CWBODY,.CWRECP)
3705"RTN","CWMAINI",39,0)
3706 K ^TMP($J,"CWBODY")
3707"RTN","CWMAINI",40,0)
3708 Q
3709"RTN","CWMAINI",41,0)
3710 ;
3711"RTN","CWMAINI",42,0)
3712PDEL890 ;I $$READY("Do you wish to remove the file at this time","NO") D
3713"RTN","CWMAINI",43,0)
3714 ;. N DIU
3715"RTN","CWMAINI",44,0)
3716 ;. S DIU="^CWMAIL1(",DIU(0)="DST" D EN^DIU2
3717"RTN","CWMAINI",45,0)
3718 ;E D
3719"RTN","CWMAINI",46,0)
3720 ;. W !,"OK. You may delete later by executing D PDEL890^CWMAINI."
3721"RTN","CWMAINI",47,0)
3722 D BMES^XPDUTL("Removing CW GUI VISTA MAIL USER (890) File ...")
3723"RTN","CWMAINI",48,0)
3724 N DIU
3725"RTN","CWMAINI",49,0)
3726 S DIU="^CWMAIL1(",DIU(0)="DST" D EN^DIU2
3727"RTN","CWMAINI",50,0)
3728 Q
3729"RTN","CWMAINI",51,0)
3730READY(CWPRMPT,CWDEF) ; Prompts user for input
3731"RTN","CWMAINI",52,0)
3732 ;Input - CWPRMPT - will set DIR("A" to this value
3733"RTN","CWMAINI",53,0)
3734 ; CWDEF - will set DIR("B" to this value
3735"RTN","CWMAINI",54,0)
3736 ;Output - returns a 1(yes) or 0(no)
3737"RTN","CWMAINI",55,0)
3738 N DIR,X,Y
3739"RTN","CWMAINI",56,0)
3740 W !!," * * * * WARNING * * * *"
3741"RTN","CWMAINI",57,0)
3742 W !!," You are about to remove file 890. This file held"
3743"RTN","CWMAINI",58,0)
3744 W !!," personal preferences for GUIMail v2.0. All of the settings"
3745"RTN","CWMAINI",59,0)
3746 W !!," should have been moved to the Generic Parameter File"
3747"RTN","CWMAINI",60,0)
3748 W !!," during installation.",!!
3749"RTN","CWMAINI",61,0)
3750 S DIR("B")=$G(CWDEF,"NO")
3751"RTN","CWMAINI",62,0)
3752 S DIR(0)="Y"
3753"RTN","CWMAINI",63,0)
3754 D ^DIR Q:Y 1 ; answered YES
3755"RTN","CWMAINI",64,0)
3756 Q 0 ; answered NO
3757"RTN","CWMAPP")
37580^16^B806108
3759"RTN","CWMAPP",1,0)
3760CWMAPP ; Export Package Level Parameters ; Sep 07, 1999@14:11:55
3761"RTN","CWMAPP",2,0)
3762 ;;2.1;CWMA GuiMail;;Jan 06, 1999
3763"RTN","CWMAPP",3,0)
3764 ;;
3765"RTN","CWMAPP",4,0)
3766MAIN ; main (initial) parameter transport routine
3767"RTN","CWMAPP",5,0)
3768 K ^TMP($J,"XPARRSTR")
3769"RTN","CWMAPP",6,0)
3770 N ENT,IDX,ROOT,REF,VAL,I
3771"RTN","CWMAPP",7,0)
3772 S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","
3773"RTN","CWMAPP",8,0)
3774 D ^CWMAPP01
3775"RTN","CWMAPP",9,0)
3776XX2 S IDX=0,ENT="PKG."_"CW GUIMail"
3777"RTN","CWMAPP",10,0)
3778 F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
3779"RTN","CWMAPP",11,0)
3780 . N PAR,INST,VAL,ERR
3781"RTN","CWMAPP",12,0)
3782 . S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
3783"RTN","CWMAPP",13,0)
3784 . M VAL=^TMP($J,"XPARRSTR",IDX,"VAL")
3785"RTN","CWMAPP",14,0)
3786 . D EN^XPAR(ENT,PAR,INST,.VAL,.ERR)
3787"RTN","CWMAPP",15,0)
3788 K ^TMP($J,"XPARRSTR")
3789"RTN","CWMAPP",16,0)
3790 Q
3791"RTN","CWMAPP01")
37920^17^B2776736
3793"RTN","CWMAPP01",1,0)
3794CWMAPP01 ; ; Sep 07, 1999@14:11:55
3795"RTN","CWMAPP01",2,0)
3796 ;;2.1;CWMA GuiMail;;Jan 06, 1999
3797"RTN","CWMAPP01",3,0)
3798 ;;
3799"RTN","CWMAPP01",4,0)
3800LOAD ; load data into ^TMP (expects ROOT to be defined)
3801"RTN","CWMAPP01",5,0)
3802 S I=1 F S REF=$T(DATA+I) Q:REF="" S VAL=$T(DATA+I+1) D
3803"RTN","CWMAPP01",6,0)
3804 . S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
3805"RTN","CWMAPP01",7,0)
3806 . S @(ROOT_REF)=VAL
3807"RTN","CWMAPP01",8,0)
3808 Q
3809"RTN","CWMAPP01",9,0)
3810DATA ; parameter data
3811"RTN","CWMAPP01",10,0)
3812 ;;2,"KEY")
3813"RTN","CWMAPP01",11,0)
3814 ;;CWMA STARTUP NEW MAIL^1
3815"RTN","CWMAPP01",12,0)
3816 ;;2,"VAL")
3817"RTN","CWMAPP01",13,0)
3818 ;;True
3819"RTN","CWMAPP01",14,0)
3820 ;;4,"KEY")
3821"RTN","CWMAPP01",15,0)
3822 ;;CWMA GENERAL MD COL^1
3823"RTN","CWMAPP01",16,0)
3824 ;;4,"VAL")
3825"RTN","CWMAPP01",17,0)
3826 ;;0,5
3827"RTN","CWMAPP01",18,0)
3828 ;;5,"KEY")
3829"RTN","CWMAPP01",19,0)
3830 ;;CWMA GENERAL MD COL^2
3831"RTN","CWMAPP01",20,0)
3832 ;;5,"VAL")
3833"RTN","CWMAPP01",21,0)
3834 ;;1,25
3835"RTN","CWMAPP01",22,0)
3836 ;;6,"KEY")
3837"RTN","CWMAPP01",23,0)
3838 ;;CWMA GENERAL MD COL^3
3839"RTN","CWMAPP01",24,0)
3840 ;;6,"VAL")
3841"RTN","CWMAPP01",25,0)
3842 ;;2,60
3843"RTN","CWMAPP01",26,0)
3844 ;;7,"KEY")
3845"RTN","CWMAPP01",27,0)
3846 ;;CWMA GENERAL MD COL^4
3847"RTN","CWMAPP01",28,0)
3848 ;;7,"VAL")
3849"RTN","CWMAPP01",29,0)
3850 ;;3,250
3851"RTN","CWMAPP01",30,0)
3852 ;;8,"KEY")
3853"RTN","CWMAPP01",31,0)
3854 ;;CWMA GENERAL MD COL^5
3855"RTN","CWMAPP01",32,0)
3856 ;;8,"VAL")
3857"RTN","CWMAPP01",33,0)
3858 ;;4,200
3859"RTN","CWMAPP01",34,0)
3860 ;;9,"KEY")
3861"RTN","CWMAPP01",35,0)
3862 ;;CWMA GENERAL MD COL^6
3863"RTN","CWMAPP01",36,0)
3864 ;;9,"VAL")
3865"RTN","CWMAPP01",37,0)
3866 ;;5,47
3867"RTN","CWMAPP01",38,0)
3868 ;;18,"KEY")
3869"RTN","CWMAPP01",39,0)
3870 ;;CWMA SOUND ENABLED^1
3871"RTN","CWMAPP01",40,0)
3872 ;;18,"VAL")
3873"RTN","CWMAPP01",41,0)
3874 ;;False
3875"RTN","CWMAPP01",42,0)
3876 ;;40,"KEY")
3877"RTN","CWMAPP01",43,0)
3878 ;;CWMA GENERAL MD COL^7
3879"RTN","CWMAPP01",44,0)
3880 ;;40,"VAL")
3881"RTN","CWMAPP01",45,0)
3882 ;;6,38
3883"RTN","CWMAPP01",46,0)
3884 ;;42,"KEY")
3885"RTN","CWMAPP01",47,0)
3886 ;;CWMA GENERAL CMA STYLE^1
3887"RTN","CWMAPP01",48,0)
3888 ;;42,"VAL")
3889"RTN","CWMAPP01",49,0)
3890 ;;Use Menu
3891"RTN","CWMAPP01",50,0)
3892 ;;43,"KEY")
3893"RTN","CWMAPP01",51,0)
3894 ;;CWMA GENERAL MPD TAB^1
3895"RTN","CWMAPP01",52,0)
3896 ;;43,"VAL")
3897"RTN","CWMAPP01",53,0)
3898 ;;Recipients
3899"RTN","CWMAPP01",54,0)
3900 ;;44,"KEY")
3901"RTN","CWMAPP01",55,0)
3902 ;;CWMA GENERAL NMP FREQ^1
3903"RTN","CWMAPP01",56,0)
3904 ;;44,"VAL")
3905"RTN","CWMAPP01",57,0)
3906 ;;5
3907"RTN","CWMAPP01",58,0)
3908 ;;45,"KEY")
3909"RTN","CWMAPP01",59,0)
3910 ;;CWMA GENERAL MD COUNT^1
3911"RTN","CWMAPP01",60,0)
3912 ;;45,"VAL")
3913"RTN","CWMAPP01",61,0)
3914 ;;8
3915"RTN","CWMAPP01",62,0)
3916 ;;46,"KEY")
3917"RTN","CWMAPP01",63,0)
3918 ;;CWMA GENERAL PRINTMODE^1
3919"RTN","CWMAPP01",64,0)
3920 ;;46,"VAL")
3921"RTN","CWMAPP01",65,0)
3922 ;;Vista
3923"RTN","CWMAPP01",66,0)
3924 ;;66,"KEY")
3925"RTN","CWMAPP01",67,0)
3926 ;;CWMA ALLOW ATTACHMENTS^1
3927"RTN","CWMAPP01",68,0)
3928 ;;66,"VAL")
3929"RTN","CWMAPP01",69,0)
3930 ;;True
3931"VER")
39328.0^21.0
3933"^DD",8989.51,8989.51,0)
3934FIELD^^30^18
3935"^DD",8989.51,8989.51,0,"DDA")
3936N
3937"^DD",8989.51,8989.51,0,"DT")
39382970621
3939"^DD",8989.51,8989.51,0,"ID","WRITE")
3940N X S X=^(0) D EN^DDIOL($P(X,U,2),"","?36")
3941"^DD",8989.51,8989.51,0,"IX","AG",8989.513,.02)
3942
3943"^DD",8989.51,8989.51,0,"IX","B",8989.51,.01)
3944
3945"^DD",8989.51,8989.51,0,"IX","C",8989.51,.02)
3946
3947"^DD",8989.51,8989.51,0,"NM","PARAMETER DEFINITION")
3948
3949"^DD",8989.51,8989.51,0,"PT",8989.5,.02)
3950
3951"^DD",8989.51,8989.51,0,"PT",8989.52,.04)
3952
3953"^DD",8989.51,8989.51,0,"PT",8989.521,.02)
3954
3955"^DD",8989.51,8989.51,0,"VRPK")
3956XT
3957"^DD",8989.51,8989.51,.01,0)
3958NAME^RFX^^0;1^D VALID01^XPARDD1
3959"^DD",8989.51,8989.51,.01,1,0)
3960^.1
3961"^DD",8989.51,8989.51,.01,1,1,0)
39628989.51^B
3963"^DD",8989.51,8989.51,.01,1,1,1)
3964S ^XTV(8989.51,"B",$E(X,1,30),DA)=""
3965"^DD",8989.51,8989.51,.01,1,1,2)
3966K ^XTV(8989.51,"B",$E(X,1,30),DA)
3967"^DD",8989.51,8989.51,.01,3)
3968Answer must be 3-30 characters in length. Name must be unique.
3969"^DD",8989.51,8989.51,.01,21,0)
3970^^2^2^2960207^
3971"^DD",8989.51,8989.51,.01,21,1,0)
3972This is the name of the parameter. It should be namespaced according to the
3973"^DD",8989.51,8989.51,.01,21,2,0)
3974package from which the parameter originated.
3975"^DD",8989.51,8989.51,.01,"DT")
39762960207
3977"^DD",8989.51,8989.51,.02,0)
3978DISPLAY TEXT^F^^0;2^K:$L(X)>40!($L(X)<1) X
3979"^DD",8989.51,8989.51,.02,1,0)
3980^.1
3981"^DD",8989.51,8989.51,.02,1,1,0)
39828989.51^C^MUMPS
3983"^DD",8989.51,8989.51,.02,1,1,1)
3984S ^XTV(8989.51,"C",$$UPPER^XPARDD1(X),DA)=""
3985"^DD",8989.51,8989.51,.02,1,1,2)
3986K ^XTV(8989.51,"C",$$UPPER^XPARDD1(X),DA)
3987"^DD",8989.51,8989.51,.02,1,1,"%D",0)
3988^^2^2^2970606^
3989"^DD",8989.51,8989.51,.02,1,1,"%D",1,0)
3990Cross references display text for lookup. Display text is put in upper
3991"^DD",8989.51,8989.51,.02,1,1,"%D",2,0)
3992case so lookup will be case insensitive.
3993"^DD",8989.51,8989.51,.02,1,1,"DT")
39942960409
3995"^DD",8989.51,8989.51,.02,3)
3996Answer must be 1-40 characters in length.
3997"^DD",8989.51,8989.51,.02,21,0)
3998^^2^2^2960207^
3999"^DD",8989.51,8989.51,.02,21,1,0)
4000This is the displayable name for the parameter (allows mixed case,
4001"^DD",8989.51,8989.51,.02,21,2,0)
4002non-namespaced names).
4003"^DD",8989.51,8989.51,.02,"DT")
40042960409
4005"^DD",8989.51,8989.51,.03,0)
4006MULTIPLE VALUED^S^1:Yes;0:No;^0;3^Q
4007"^DD",8989.51,8989.51,.03,3)
4008Enter 'Yes' if multiple instances of the parameter are allowed for any single entity.
4009"^DD",8989.51,8989.51,.03,21,0)
4010^^3^3^2980705^
4011"^DD",8989.51,8989.51,.03,21,1,0)
4012If this field is set to 'Yes', multiple instances of the parameter will be
4013"^DD",8989.51,8989.51,.03,21,2,0)
4014allowed for a single entity. Otherwise, the value of the instance field
4015"^DD",8989.51,8989.51,.03,21,3,0)
4016for a given Entity-Parameter combination will always be '1'.
4017"^DD",8989.51,8989.51,.03,"DT")
40182960207
4019"^DD",8989.51,8989.51,.04,0)
4020INSTANCE TERM^F^^0;4^K:$L(X)>40!($L(X)<1) X
4021"^DD",8989.51,8989.51,.04,3)
4022Answer must be 1-40 characters in length.
4023"^DD",8989.51,8989.51,.04,21,0)
4024^^3^3^2960207^
4025"^DD",8989.51,8989.51,.04,21,1,0)
4026This is a free text term that can be used when prompting for a new instance of
4027"^DD",8989.51,8989.51,.04,21,2,0)
4028the parameter (in the case where the parameter in multiple valued). If not
4029"^DD",8989.51,8989.51,.04,21,3,0)
4030entered, the word "Instance" will be used.
4031"^DD",8989.51,8989.51,.04,"DT")
40322960207
4033"^DD",8989.51,8989.51,.05,0)
4034VALUE TERM^F^^0;5^K:$L(X)>40!($L(X)<1) X
4035"^DD",8989.51,8989.51,.05,3)
4036Answer must be 1-40 characters in length.
4037"^DD",8989.51,8989.51,.05,21,0)
4038^^2^2^2970626^
4039"^DD",8989.51,8989.51,.05,21,1,0)
4040This contains text that is issued as a prompt for the value. If nothing
4041"^DD",8989.51,8989.51,.05,21,2,0)
4042is here, the prompt will be the word 'Value:'.
4043"^DD",8989.51,8989.51,.05,"DT")
40442960612
4045"^DD",8989.51,8989.51,.06,0)
4046PROHIBIT EDITING^S^1:Yes;0:No;^0;6^Q
4047"^DD",8989.51,8989.51,.06,3)
4048Choose 'Disallow Editing' if editing of this field should not be allowed.
4049"^DD",8989.51,8989.51,.06,21,0)
4050^^2^2^2970306^
4051"^DD",8989.51,8989.51,.06,21,1,0)
4052This field prevents the parameter value from being edited with Fileman or
4053"^DD",8989.51,8989.51,.06,21,2,0)
4054any Parameters tools.
4055"^DD",8989.51,8989.51,.06,"DT")
40562970317
4057"^DD",8989.51,8989.51,1.1,0)
4058VALUE DATA TYPE^S^D:date/time;F:free text;N:numeric;S:set of codes;Y:yes/no;P:pointer;W:word processing;M:M code;C:constant;^1;1^Q
4059"^DD",8989.51,8989.51,1.1,3)
4060Enter the type of data this parameter will contain.
4061"^DD",8989.51,8989.51,1.1,21,0)
4062^^2^2^2960207^
4063"^DD",8989.51,8989.51,1.1,21,1,0)
4064This is the type of data this parameter will contain. This field is used to
4065"^DD",8989.51,8989.51,1.1,21,2,0)
4066define a call to the reader (^DIR) in most cases.
4067"^DD",8989.51,8989.51,1.1,"DT")
40682960528
4069"^DD",8989.51,8989.51,1.2,0)
4070VALUE DOMAIN^F^^1;2^K:$L(X)>100!($L(X)<1) X
4071"^DD",8989.51,8989.51,1.2,3)
4072Enter up to 100 characters to further define the data type (used by ^DIR).
4073"^DD",8989.51,8989.51,1.2,21,0)
4074^^3^3^2960207^
4075"^DD",8989.51,8989.51,1.2,21,1,0)
4076This is a string that may be used to further specify the data type. The
4077"^DD",8989.51,8989.51,1.2,21,2,0)
4078string stored here should be appropriate for the second ^-piece of DIR(0)
4079"^DD",8989.51,8989.51,1.2,21,3,0)
4080when used with the data type field.
4081"^DD",8989.51,8989.51,1.2,"DT")
40822960207
4083"^DD",8989.51,8989.51,1.3,0)
4084VALUE HELP^F^^1;3^K:$L(X)>80!($L(X)<1) X
4085"^DD",8989.51,8989.51,1.3,3)
4086Enter a line of help text to be displayed when entering a parameter value.
4087"^DD",8989.51,8989.51,1.3,21,0)
4088^^3^3^2960207^
4089"^DD",8989.51,8989.51,1.3,21,1,0)
4090This field contains a line of help text that is displayed when the user
4091"^DD",8989.51,8989.51,1.3,21,2,0)
4092requests help or encounters an error while entering the VALUE field in the
4093"^DD",8989.51,8989.51,1.3,21,3,0)
4094PARAMETERS file.
4095"^DD",8989.51,8989.51,1.3,"DT")
40962960207
4097"^DD",8989.51,8989.51,2,0)
4098VALUE VALIDATION CODE^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
4099"^DD",8989.51,8989.51,2,3)
4100This is M code used by DIR (3rd piece of DIR(0)).
4101"^DD",8989.51,8989.51,2,9)
4102@
4103"^DD",8989.51,8989.51,2,21,0)
4104^^2^2^2980705^
4105"^DD",8989.51,8989.51,2,21,1,0)
4106This field contains the M code that is placed in the third piece of DIR(0)
4107"^DD",8989.51,8989.51,2,21,2,0)
4108when validating a value in the PARAMETERS file.
4109"^DD",8989.51,8989.51,2,"DT")
41102960207
4111"^DD",8989.51,8989.51,3,0)
4112VALUE SCREEN CODE^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
4113"^DD",8989.51,8989.51,3,3)
4114This is M code placed in DIR("S").
4115"^DD",8989.51,8989.51,3,9)
4116@
4117"^DD",8989.51,8989.51,3,21,0)
4118^^3^3^2960207^
4119"^DD",8989.51,8989.51,3,21,1,0)
4120This field contains M code that is used to screen allowable entries for the
4121"^DD",8989.51,8989.51,3,21,2,0)
4122VALUE field in the PARAMETERS file. The code is placed in DIR("S") when
4123"^DD",8989.51,8989.51,3,21,3,0)
4124validating the entry.
4125"^DD",8989.51,8989.51,3,"DT")
41262960207
4127"^DD",8989.51,8989.51,6.1,0)
4128INSTANCE DATA TYPE^S^D:date/time;F:free text;N:numeric;S:set of codes;Y:yes/no;P:pointer;^6;1^Q
4129"^DD",8989.51,8989.51,6.1,3)
4130Enter the type of data allowed for the INSTANCE field of the parameter.
4131"^DD",8989.51,8989.51,6.1,21,0)
4132^^3^3^2960207^
4133"^DD",8989.51,8989.51,6.1,21,1,0)
4134This is the type of data that is contained in the INSTANCE field of the
4135"^DD",8989.51,8989.51,6.1,21,2,0)
4136PARAMETERS file, if multiple parameter instances per entity are allowed.
4137"^DD",8989.51,8989.51,6.1,21,3,0)
4138This field is used to define a call to the reader.
4139"^DD",8989.51,8989.51,6.1,"DT")
41402960207
4141"^DD",8989.51,8989.51,6.2,0)
4142INSTANCE DOMAIN^F^^6;2^K:$L(X)>100!($L(X)<1) X
4143"^DD",8989.51,8989.51,6.2,3)
4144Enter up to 100 characters to further define the data type (used by ^DIR).
4145"^DD",8989.51,8989.51,6.2,21,0)
4146^^3^3^2960207^
4147"^DD",8989.51,8989.51,6.2,21,1,0)
4148This may be used to further define the data type for the INSTANCE field of
4149"^DD",8989.51,8989.51,6.2,21,2,0)
4150the parameter. The string stored here should be appropriate for the second
4151"^DD",8989.51,8989.51,6.2,21,3,0)
4152^-piece of DIR(0) when used with the data type field.
4153"^DD",8989.51,8989.51,6.2,"DT")
41542960207
4155"^DD",8989.51,8989.51,6.3,0)
4156INSTANCE HELP^F^^6;3^K:$L(X)>80!($L(X)<1) X
4157"^DD",8989.51,8989.51,6.3,3)
4158Enter a line of help text to be displayed when entering the parameter instance.
4159"^DD",8989.51,8989.51,6.3,21,0)
4160^^3^3^2960207^
4161"^DD",8989.51,8989.51,6.3,21,1,0)
4162This field contains a line of help text that is displayed when the user
4163"^DD",8989.51,8989.51,6.3,21,2,0)
4164requests help or encounters an error while entering the INSTANCE field of
4165"^DD",8989.51,8989.51,6.3,21,3,0)
4166the PARAMETERS file.
4167"^DD",8989.51,8989.51,6.3,"DT")
41682960207
4169"^DD",8989.51,8989.51,7,0)
4170INSTANCE VALIDATION CODE^K^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
4171"^DD",8989.51,8989.51,7,3)
4172This is M code used by DIR (3rd piece of DIR(0)).
4173"^DD",8989.51,8989.51,7,9)
4174@
4175"^DD",8989.51,8989.51,7,21,0)
4176^^2^2^2960207^
4177"^DD",8989.51,8989.51,7,21,1,0)
4178This field contains M code that is placed in the third piece of DIR(0) when
4179"^DD",8989.51,8989.51,7,21,2,0)
4180validating the INSTANCE field in the PARAMETERS file.
4181"^DD",8989.51,8989.51,7,"DT")
41822960207
4183"^DD",8989.51,8989.51,8,0)
4184INSTANCE SCREEN CODE^K^^8;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
4185"^DD",8989.51,8989.51,8,3)
4186This is M code placed in DIR("S").
4187"^DD",8989.51,8989.51,8,9)
4188@
4189"^DD",8989.51,8989.51,8,21,0)
4190^^3^3^2960207^
4191"^DD",8989.51,8989.51,8,21,1,0)
4192This field contains M code that is used to screen allowable entries for the
4193"^DD",8989.51,8989.51,8,21,2,0)
4194INSTANCE field in the PARAMETERS file. The code is placed in DIR("S") when
4195"^DD",8989.51,8989.51,8,21,3,0)
4196validating the entry.
4197"^DD",8989.51,8989.51,8,"DT")
41982960207
4199"^DD",8989.51,8989.51,20,0)
4200DESCRIPTION^8989.512^^20;0
4201"^DD",8989.51,8989.51,20,21,0)
4202^^1^1^2970626^
4203"^DD",8989.51,8989.51,20,21,1,0)
4204A description of the parameter may be entered here.
4205"^DD",8989.51,8989.51,30,0)
4206ALLOWABLE ENTITIES^8989.513I^^30;0
4207"^DD",8989.51,8989.51,30,21,0)
4208^^2^2^2960213^^
4209"^DD",8989.51,8989.51,30,21,1,0)
4210This multiple contains a list of entities (pointers to files) for which the
4211"^DD",8989.51,8989.51,30,21,2,0)
4212parameter may be validly set.
4213"^DD",8989.51,8989.512,0)
4214DESCRIPTION SUB-FIELD^^.01^1
4215"^DD",8989.51,8989.512,0,"DT")
42162960207
4217"^DD",8989.51,8989.512,0,"NM","DESCRIPTION")
4218
4219"^DD",8989.51,8989.512,0,"UP")
42208989.51
4221"^DD",8989.51,8989.512,.01,0)
4222DESCRIPTION^WL^^0;1^Q
4223"^DD",8989.51,8989.512,.01,3)
4224Enter a description of the parameter and how it is used.
4225"^DD",8989.51,8989.512,.01,21,0)
4226^^1^1^2960207^
4227"^DD",8989.51,8989.512,.01,21,1,0)
4228This is text that describes the purpose and use of the parameter.
4229"^DD",8989.51,8989.512,.01,"DT")
42302960207
4231"^DD",8989.51,8989.513,0)
4232ALLOWABLE ENTITIES SUB-FIELD^^.02^2
4233"^DD",8989.51,8989.513,0,"DT")
42342970621
4235"^DD",8989.51,8989.513,0,"ID",.02)
4236S %I=Y,Y=$S('$D(^(0)):"",$D(^DIC(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(1,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
4237"^DD",8989.51,8989.513,0,"IX","B",8989.513,.01)
4238
4239"^DD",8989.51,8989.513,0,"NM","ALLOWABLE ENTITIES")
4240
4241"^DD",8989.51,8989.513,0,"UP")
42428989.51
4243"^DD",8989.51,8989.513,.01,0)
4244PRECEDENCE^MRNJ6,2^^0;1^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
4245"^DD",8989.51,8989.513,.01,1,0)
4246^.1
4247"^DD",8989.51,8989.513,.01,1,1,0)
42488989.513^B
4249"^DD",8989.51,8989.513,.01,1,1,1)
4250S ^XTV(8989.51,DA(1),30,"B",$E(X,1,30),DA)=""
4251"^DD",8989.51,8989.513,.01,1,1,2)
4252K ^XTV(8989.51,DA(1),30,"B",$E(X,1,30),DA)
4253"^DD",8989.51,8989.513,.01,3)
4254Type a Number between 0 and 999.99, 2 Decimal Digits
4255"^DD",8989.51,8989.513,.01,21,0)
4256^^6^6^2960213^^^
4257"^DD",8989.51,8989.513,.01,21,1,0)
4258A single parameter may be set for several different types of entities. This
4259"^DD",8989.51,8989.513,.01,21,2,0)
4260lists the order in which entities are searched for a defined value. For
4261"^DD",8989.51,8989.513,.01,21,3,0)
4262example, if a parameter may be set for a package, a location, and a user,
4263"^DD",8989.51,8989.513,.01,21,4,0)
4264and the respective precedents are 3, 2, 1, the value of the user parameter
4265"^DD",8989.51,8989.513,.01,21,5,0)
4266would be returned. If it did not exist, the value of the location
4267"^DD",8989.51,8989.513,.01,21,6,0)
4268parameter. If that did not exist, then the value of the package parameter.
4269"^DD",8989.51,8989.513,.01,"DT")
42702960213
4271"^DD",8989.51,8989.513,.02,0)
4272ENTITY FILE^RP8989.518'^XTV(8989.518,^0;2^Q
4273"^DD",8989.51,8989.513,.02,1,0)
4274^.1
4275"^DD",8989.51,8989.513,.02,1,1,0)
42768989.51^AG^MUMPS
4277"^DD",8989.51,8989.513,.02,1,1,1)
4278D AGS^XPARDD1
4279"^DD",8989.51,8989.513,.02,1,1,2)
4280D AGK^XPARDD1
4281"^DD",8989.51,8989.513,.02,1,1,"%D",0)
4282^^5^5^2980422^
4283"^DD",8989.51,8989.513,.02,1,1,"%D",1,0)
4284The AG x-ref has the format ^XTV(8989.51,PARAM,30,"AG",GLOBAL REF,DA)="".
4285"^DD",8989.51,8989.513,.02,1,1,"%D",2,0)
4286
4287"^DD",8989.51,8989.513,.02,1,1,"%D",3,0)
4288It is used to screen the parameters that may be selected for a given entity
4289"^DD",8989.51,8989.513,.02,1,1,"%D",4,0)
4290in the PARAMETERS file. The global root is used because the entity is a
4291"^DD",8989.51,8989.513,.02,1,1,"%D",5,0)
4292variable pointer.
4293"^DD",8989.51,8989.513,.02,1,1,"DT")
42942960207
4295"^DD",8989.51,8989.513,.02,3)
4296Choose a file from which entities for this parameter are identified.
4297"^DD",8989.51,8989.513,.02,21,0)
4298^^3^3^2980422^
4299"^DD",8989.51,8989.513,.02,21,1,0)
4300This identifies an entity for which the parameter can be legally entered.
4301"^DD",8989.51,8989.513,.02,21,2,0)
4302Entities are simply variable pointers. The files which are eligible to be
4303"^DD",8989.51,8989.513,.02,21,3,0)
4304entities are listed in the PARAMETER ENTITY file.
4305"^DD",8989.51,8989.513,.02,"DT")
43062970621
4307"^DD",8989.52,8989.52,0)
4308FIELD^^10^5
4309"^DD",8989.52,8989.52,0,"DDA")
4310N
4311"^DD",8989.52,8989.52,0,"DT")
43122970619
4313"^DD",8989.52,8989.52,0,"ID","WRITE")
4314N X S X=^(0) D EN^DDIOL($P(X,U,2),"","?36")
4315"^DD",8989.52,8989.52,0,"IX","B",8989.52,.01)
4316
4317"^DD",8989.52,8989.52,0,"NM","PARAMETER TEMPLATE")
4318
4319"^DD",8989.52,8989.52,0,"VRPK")
4320XT
4321"^DD",8989.52,8989.52,.01,0)
4322NAME^RFX^^0;1^D VALID01^XPARDD2
4323"^DD",8989.52,8989.52,.01,1,0)
4324^.1
4325"^DD",8989.52,8989.52,.01,1,1,0)
43268989.52^B
4327"^DD",8989.52,8989.52,.01,1,1,1)
4328S ^XTV(8989.52,"B",$E(X,1,30),DA)=""
4329"^DD",8989.52,8989.52,.01,1,1,2)
4330K ^XTV(8989.52,"B",$E(X,1,30),DA)
4331"^DD",8989.52,8989.52,.01,3)
4332Name must be 3-30 characters, unique, and namespaced.
4333"^DD",8989.52,8989.52,.01,21,0)
4334^^2^2^2980705^
4335"^DD",8989.52,8989.52,.01,21,1,0)
4336This field contains the name of the parameter template. The template
4337"^DD",8989.52,8989.52,.01,21,2,0)
4338names must be namespaced.
4339"^DD",8989.52,8989.52,.01,"DT")
43402970318
4341"^DD",8989.52,8989.52,.02,0)
4342DISPLAY TEXT^F^^0;2^K:$L(X)>30!($L(X)<3) X
4343"^DD",8989.52,8989.52,.02,3)
4344Answer must be 3-30 characters in length.
4345"^DD",8989.52,8989.52,.02,12)
4346Only files defined as variable pointers in PARAMETERS (8989.5) are allowed.
4347"^DD",8989.52,8989.52,.02,12.1)
4348S DIC("S")="I $$ALLOW^XPARDD1(Y)"
4349"^DD",8989.52,8989.52,.02,21,0)
4350^^1^1^2970606^^^
4351"^DD",8989.52,8989.52,.02,21,1,0)
4352This is the display name (non-namespaced) for the template.
4353"^DD",8989.52,8989.52,.02,"DT")
43542970318
4355"^DD",8989.52,8989.52,.03,0)
4356USE ENTITY FROM^*P1'^DIC(^0;3^S DIC("S")="I $$ALLOW^XPARDD1(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
4357"^DD",8989.52,8989.52,.03,3)
4358Choose the file which identifies the entity for which parameters will be entered.
4359"^DD",8989.52,8989.52,.03,12)
4360Only files defined as variable pointer in PARAMETERS (8989.5) are allowed.
4361"^DD",8989.52,8989.52,.03,12.1)
4362S DIC("S")="I $$ALLOW^XPARDD1(Y)"
4363"^DD",8989.52,8989.52,.03,21,0)
4364^^2^2^2970318^
4365"^DD",8989.52,8989.52,.03,21,1,0)
4366This identifies the file from which an entity will be selected. The
4367"^DD",8989.52,8989.52,.03,21,2,0)
4368parameters in this template will apply to that entity.
4369"^DD",8989.52,8989.52,.03,"DT")
43702970318
4371"^DD",8989.52,8989.52,.04,0)
4372USE INSTANCE FROM^P8989.51'^XTV(8989.51,^0;4^Q
4373"^DD",8989.52,8989.52,.04,3)
4374The parameter identified here will be used to prompt for an instance which will be used for the multiple parameters in the template.
4375"^DD",8989.52,8989.52,.04,21,0)
4376^^3^3^2970619^
4377"^DD",8989.52,8989.52,.04,21,1,0)
4378This allows a parameter to be chosen which will be used to prompt for an
4379"^DD",8989.52,8989.52,.04,21,2,0)
4380instance value. This instance value will be used for all other parameters
4381"^DD",8989.52,8989.52,.04,21,3,0)
4382in the template that are a multiple type.
4383"^DD",8989.52,8989.52,.04,"DT")
43842970619
4385"^DD",8989.52,8989.52,10,0)
4386PARAMETERS^8989.521IA^^10;0
4387"^DD",8989.52,8989.52,10,21,0)
4388^^1^1^2970317^
4389"^DD",8989.52,8989.52,10,21,1,0)
4390This lists the parameters that make up the template.
4391"^DD",8989.52,8989.521,0)
4392PARAMETERS SUB-FIELD^^.02^2
4393"^DD",8989.52,8989.521,0,"DT")
43942970317
4395"^DD",8989.52,8989.521,0,"ID","WRITE")
4396N X S X=^(0) I $P(X,U,2) D EN^DDIOL($P(^XTV(8989.51,+$P(X,U,2),0),U),"","?10")
4397"^DD",8989.52,8989.521,0,"IX","B",8989.521,.01)
4398
4399"^DD",8989.52,8989.521,0,"NM","PARAMETERS")
4400
4401"^DD",8989.52,8989.521,0,"UP")
44028989.52
4403"^DD",8989.52,8989.521,.01,0)
4404SEQUENCE^MNJ7,3^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"."4N.N) X
4405"^DD",8989.52,8989.521,.01,1,0)
4406^.1
4407"^DD",8989.52,8989.521,.01,1,1,0)
44088989.521^B
4409"^DD",8989.52,8989.521,.01,1,1,1)
4410S ^XTV(8989.52,DA(1),10,"B",$E(X,1,30),DA)=""
4411"^DD",8989.52,8989.521,.01,1,1,2)
4412K ^XTV(8989.52,DA(1),10,"B",$E(X,1,30),DA)
4413"^DD",8989.52,8989.521,.01,3)
4414Type a Number between 1 and 999, 3 Decimal Digits
4415"^DD",8989.52,8989.521,.01,21,0)
4416^^2^2^2970317^
4417"^DD",8989.52,8989.521,.01,21,1,0)
4418This is the sequence in which the value(s) for this parameter should be
4419"^DD",8989.52,8989.521,.01,21,2,0)
4420prompted.
4421"^DD",8989.52,8989.521,.01,"DT")
44222970317
4423"^DD",8989.52,8989.521,.02,0)
4424PARAMETER^P8989.51'^XTV(8989.51,^0;2^Q
4425"^DD",8989.52,8989.521,.02,3)
4426Enter the parameter that should be prompted at this sequence number.
4427"^DD",8989.52,8989.521,.02,21,0)
4428^^2^2^2970317^
4429"^DD",8989.52,8989.521,.02,21,1,0)
4430This points to the parameter that should be prompted for at this sequence
4431"^DD",8989.52,8989.521,.02,21,2,0)
4432in the template.
4433"^DD",8989.52,8989.521,.02,"DT")
44342970317
4435"^DIC",8989.51,8989.51,0)
4436PARAMETER DEFINITION^8989.51
4437"^DIC",8989.51,8989.51,0,"GL")
4438^XTV(8989.51,
4439"^DIC",8989.51,8989.51,"%D",0)
4440^^3^3^2980920^
4441"^DIC",8989.51,8989.51,"%D",1,0)
4442This file contains the characteristics of parameters. Entries in this
4443"^DIC",8989.51,8989.51,"%D",2,0)
4444file must be namespaced and they are exported by the package which owns
4445"^DIC",8989.51,8989.51,"%D",3,0)
4446them.
4447"^DIC",8989.51,"B","PARAMETER DEFINITION",8989.51)
4448
4449"^DIC",8989.52,8989.52,0)
4450PARAMETER TEMPLATE^8989.52
4451"^DIC",8989.52,8989.52,0,"GL")
4452^XTV(8989.52,
4453"^DIC",8989.52,8989.52,"%",0)
4454^1.005^^0
4455"^DIC",8989.52,8989.52,"%D",0)
4456^^4^4^2980920^
4457"^DIC",8989.52,8989.52,"%D",1,0)
4458This file contains templates which allow developers to group entries in
4459"^DIC",8989.52,8989.52,"%D",2,0)
4460the PARAMETER DEFINITION file (#8989.51) together for editing. Entries in
4461"^DIC",8989.52,8989.52,"%D",3,0)
4462this file must be namespaced and they are exported by the package which
4463"^DIC",8989.52,8989.52,"%D",4,0)
4464owns them.
4465"^DIC",8989.52,"B","PARAMETER TEMPLATE",8989.52)
4466
4467**END**
4468**END**
Note: See TracBrowser for help on using the repository browser.