| 1 | CWMAIL3 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;03-Jun-1999 13:24;PS
|
|---|
| 2 | ;;2.1;CWMA GuiMail;;Jan 06, 1999
|
|---|
| 3 | Q ;ROUTINE CAN'T BE CALLED DIRECTLY
|
|---|
| 4 | ;
|
|---|
| 5 | GRPINFO(CWDAT,CWPARAM) ;Mail Group Information
|
|---|
| 6 | ;CWPARAM = Mail Group IEN
|
|---|
| 7 | N CWFILE,IO,IOP,POP,DIC,DA,X,Y,CWFLG,CWNXT,IOSL,CWDEFDIR,CWDATFIL
|
|---|
| 8 | S CWFILE="CWMAILGRP"_$J_".TXT"
|
|---|
| 9 | S CWDEFDIR=$$PWD^%ZISH
|
|---|
| 10 | D OPEN^%ZISH("CWDATFIL",CWDEFDIR,CWFILE,"W")
|
|---|
| 11 | G:POP GRPINFOE
|
|---|
| 12 | U IO S IOSL=99999
|
|---|
| 13 | D DISPLAY^XMHIG(+CWPARAM)
|
|---|
| 14 | D CLOSE^%ZISH("CWDATFIL")
|
|---|
| 15 | I $$FTG^%ZISH(CWDEFDIR,CWFILE,$NA(CWDAT(2)),1) D
|
|---|
| 16 | .S CWFILE(CWFILE)=""
|
|---|
| 17 | .S X=$$DEL^%ZISH(CWDEFDIR,$NA(CWFILE))
|
|---|
| 18 | .I $O(CWDAT(0))>0 D
|
|---|
| 19 | ..S CWFLG=0,CWNXT=1
|
|---|
| 20 | ..F S CWNXT=$O(CWDAT(CWNXT)) Q:CWNXT<1!(CWFLG) D
|
|---|
| 21 | ...I '$L(CWDAT(CWNXT)),'CWFLG K CWDAT(CWNXT)
|
|---|
| 22 | ...E I $A(CWDAT(CWNXT))=12 K CWDAT(CWNXT)
|
|---|
| 23 | ...E S CWDAT(CWNXT)=$$CTRL^XMXUTIL1(CWDAT(CWNXT)),CWFLG=1 ;remove control characters
|
|---|
| 24 | .S CWDAT(-9900)=$O(CWDAT(9999999),-1)+1
|
|---|
| 25 | E S CWDAT(-9900)=2
|
|---|
| 26 | GRPINFOE D CLOSE^%ZISH("CWDATFIL")
|
|---|
| 27 | Q $O(CWDAT(1))
|
|---|
| 28 | USRINFO(CWDAT,CWPARAM) ;Mail User Information
|
|---|
| 29 | ;CWPARAM = Mail User IEN
|
|---|
| 30 | N CWFILE,%ZIS,IOP,POP,IO,Y,X,CWDEFDIR,CWDATFIL,IOSL
|
|---|
| 31 | N CWFLG,CWNXT
|
|---|
| 32 | S CWFILE="CWMAILUSR"_$J_".TXT"
|
|---|
| 33 | S CWDEFDIR=$$PWD^%ZISH
|
|---|
| 34 | D OPEN^%ZISH("CWDATFIL",CWDEFDIR,CWFILE,"W")
|
|---|
| 35 | G:POP USRINFOE
|
|---|
| 36 | U IO S IOSL=99999
|
|---|
| 37 | D DISPUSER^XMHIU(+CWPARAM)
|
|---|
| 38 | D CLOSE^%ZISH("CWDATFIL")
|
|---|
| 39 | FLG I $$FTG^%ZISH(CWDEFDIR,CWFILE,$NA(CWDAT(2)),1) D
|
|---|
| 40 | .S CWFILE(CWFILE)=""
|
|---|
| 41 | .S X=$$DEL^%ZISH(CWDEFDIR,$NA(CWFILE))
|
|---|
| 42 | .I $O(CWDAT(0))>0 D
|
|---|
| 43 | ..S CWFLG=0,CWNXT=1
|
|---|
| 44 | ..F S CWNXT=$O(CWDAT(CWNXT)) Q:CWNXT<1!(CWFLG) D
|
|---|
| 45 | ...I '$L(CWDAT(CWNXT)),'CWFLG K CWDAT(CWNXT)
|
|---|
| 46 | ...E I $A(CWDAT(CWNXT))=12 K CWDAT(CWNXT)
|
|---|
| 47 | ...E S CWDAT(CWNXT)=$$CTRL^XMXUTIL1(CWDAT(CWNXT)),CWFLG=1 ;remove control characters
|
|---|
| 48 | .S CWDAT(-9900)=$O(CWDAT(9999999),-1)+1
|
|---|
| 49 | E S CWDAT(-9900)=2
|
|---|
| 50 | USRINFOE D CLOSE^%ZISH("CWDATFIL")
|
|---|
| 51 | Q $O(CWDAT(1))
|
|---|
