| 1 | CWMAILE ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;21-Jun-2005 06:34;CLC
|
|---|
| 2 | ;;2.3;CWMAIL;;Jul 19, 2005
|
|---|
| 3 | Q ;ROUTINE CAN'T BE CALLED DIRECTLY
|
|---|
| 4 | ;
|
|---|
| 5 | GETPKPM(CWDAT) ;get package parameters and return in CWDAT
|
|---|
| 6 | ;called by CWMAILD
|
|---|
| 7 | ;This API uses the PRECEDENCE field of each parameter
|
|---|
| 8 | N CWCNT,CWLP
|
|---|
| 9 | S CWCNT=2
|
|---|
| 10 | S CWDAT(CWCNT)="[Sound]",CWCNT=CWCNT+1
|
|---|
| 11 | S CWDAT(CWCNT)="Sound="_+$$GET^XPAR("ALL","CWMA SOUND ENABLED"),CWCNT=CWCNT+1
|
|---|
| 12 | S CWDAT(CWCNT)="Message Open="_$$GET^XPAR("ALL","CWMA SOUND MESSAGE OPEN"),CWCNT=CWCNT+1
|
|---|
| 13 | S CWDAT(CWCNT)="Message Close="_$$GET^XPAR("ALL","CWMA SOUND MESSAGE CLOSE"),CWCNT=CWCNT+1
|
|---|
| 14 | S CWDAT(CWCNT)="New Mail="_$$GET^XPAR("ALL","CWMA SOUND NEW MAIL"),CWCNT=CWCNT+1
|
|---|
| 15 | S CWDAT(CWCNT)="Priority Mail="_$$GET^XPAR("ALL","CWMA SOUND PRIORITY MAIL"),CWCNT=CWCNT+1
|
|---|
| 16 | S CWDAT(CWCNT)="[StartUp]",CWCNT=CWCNT+1
|
|---|
| 17 | S CWDAT(CWCNT)="StartUpNewMail="_$$GET^XPAR("ALL","CWMA STARTUP NEW MAIL",1,"E"),CWCNT=CWCNT+1
|
|---|
| 18 | S CWDAT(CWCNT)="StartUpOpenMailBox="_$$GET^XPAR("ALL","CWMA STARTUP OPEN MAIL BOX",1,"E"),CWCNT=CWCNT+1
|
|---|
| 19 | S CWDAT(CWCNT)="StartUpOpenMailBoxName="_$$GET^XPAR("ALL","CWMA STARTUP MAIL BOX NAME"),CWCNT=CWCNT+1
|
|---|
| 20 | S CWDAT(CWCNT)="[General]",CWCNT=CWCNT+1
|
|---|
| 21 | S CWDAT(CWCNT)="CreateMessageAttributes="_$$GET^XPAR("ALL","CWMA GENERAL CMA STYLE"),CWCNT=CWCNT+1
|
|---|
| 22 | S CWDAT(CWCNT)="MessagePropertiesDefaultTab="_$$GET^XPAR("ALL","CWMA GENERAL MPD TAB"),CWCNT=CWCNT+1
|
|---|
| 23 | S CWDAT(CWCNT)="NewMailPollingFrequency="_$$GET^XPAR("ALL","CWMA GENERAL NMP FREQ"),CWCNT=CWCNT+1
|
|---|
| 24 | S CWDAT(CWCNT)="MessageDisplayCount="_$$GET^XPAR("ALL","CWMA GENERAL MD COUNT"),CWCNT=CWCNT+1
|
|---|
| 25 | S CWDAT(CWCNT)="DefaultVistaPrinter="_$$GET^XPAR("ALL","CWMA GENERAL VISTA PRT"),CWCNT=CWCNT+1
|
|---|
| 26 | S CWDAT(CWCNT)="DefaultPrintMode="_+$$GET^XPAR("ALL","CWMA GENERAL PRINTMODE"),CWCNT=CWCNT+1
|
|---|
| 27 | S CWDAT(CWCNT)="MessageDisplayColumns="_$$GETCOL,CWCNT=CWCNT+1 ;get column information
|
|---|
| 28 | S CWDAT(CWCNT)="AllowAttachments="_$$GET^XPAR("ALL","CWMA ALLOW ATTACHMENTS",1,"E"),CWCNT=CWCNT+1
|
|---|
| 29 | S CWDAT(-9900)=CWCNT
|
|---|
| 30 | Q $O(CWDAT(1))
|
|---|
| 31 | ;
|
|---|
| 32 | GETCOL() ;retrieve column information for message display
|
|---|
| 33 | N CWLP,CWDAA,CWTMP
|
|---|
| 34 | S CWTMP=""
|
|---|
| 35 | D GETLST^XPAR(.CWDAA,"ALL","CWMA GENERAL MD COL")
|
|---|
| 36 | S CWLP=0 F S CWLP=$O(CWDAA(CWLP)) Q:CWLP<1 D
|
|---|
| 37 | . S CWTMP=CWTMP_$P(CWDAA(CWLP),U,2)_";"
|
|---|
| 38 | Q CWTMP
|
|---|
| 39 | ;
|
|---|
| 40 | GETPRM(CWVAR) ;lookup parameter for a given variable
|
|---|
| 41 | ;returns set procedure|parameter
|
|---|
| 42 | ; set procedure: 0=single instance, 1=multiple instances
|
|---|
| 43 | Q:CWVAR="Sound" "0|CWMA SOUND ENABLED"
|
|---|
| 44 | Q:CWVAR="Message Open" "0|CWMA SOUND MESSAGE OPEN"
|
|---|
| 45 | Q:CWVAR="Message Close" "0|CWMA SOUND MESSAGE CLOSE"
|
|---|
| 46 | Q:CWVAR="Priority Mail" "0|CWMA SOUND PRIORITY MAIL"
|
|---|
| 47 | Q:CWVAR="New Mail" "0|CWMA SOUND NEW MAIL"
|
|---|
| 48 | Q:CWVAR="StartUpNewMail" "0|CWMA STARTUP NEW MAIL"
|
|---|
| 49 | Q:CWVAR="StartUpOpenMailBox" "0|CWMA STARTUP OPEN MAIL BOX"
|
|---|
| 50 | Q:CWVAR="StartUpOpenMailBoxName" "0|CWMA STARTUP MAIL BOX NAME"
|
|---|
| 51 | Q:CWVAR="CreateMessageAttributes" "0|CWMA GENERAL CMA STYLE"
|
|---|
| 52 | Q:CWVAR="MessagePropertiesDefaultTab" "0|CWMA GENERAL MPD TAB"
|
|---|
| 53 | Q:CWVAR="NewMailPollingFrequency" "0|CWMA GENERAL NMP FREQ"
|
|---|
| 54 | Q:CWVAR="MessageDisplayCount" "0|CWMA GENERAL MD COUNT"
|
|---|
| 55 | Q:CWVAR="DefaultVistaPrinter" "0|CWMA GENERAL VISTA PRT"
|
|---|
| 56 | Q:CWVAR="DefaultPrintMode" "0|CWMA GENERAL PRINTMODE"
|
|---|
| 57 | Q:CWVAR="MessageDisplayColumns" "1|CWMA GENERAL MD COL"
|
|---|
| 58 | Q ""
|
|---|
| 59 | ;
|
|---|
