XOBESIG ;Oakland/mko-ELECTRONIC SIGNATURE CODES ;9:29 AM 14 Jul 2006
Source file <XOBESIG.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ISDEF(RESULT) | ; -- Returns whether the user has an Electronic Signature Code defined.
; Returns: ; 0 : if the user has no esig defined ; 1 : if the user does have an esig defined ; -2 : if DUZ doesn't refer to a valid user |
|
| GETCODE(RESULT) | ; -- Get user's Electronic Signature Code
; Return: ; Electronic signature code ; -2 : if DUZ doesn't refer to a valid user |
|
| SETCODE(RESULT,XOBESIG) | ; -- Save user's Electronic Signature Code
; Return: ; 1 : if new ESig was correctly filed ; 0 : if new ESig code is not valid ; -1 : if new ESig is the same as the old one ; -2 : if DUZ doesn't refer to a valid user |
|
| GETDATA(RESULT) | ; -- Return electronic signature block-related data
; Return: ; Electronic signature block-related data ; -2 : if DUZ doesn't refer to a valid user |
|
| VALUE(X) | ; -- Return X or if X is "", return @
|
|
| SETDATA(RESULT,XOBEVALS) | ; -- Save electronic signature block-related data
; Return: ; 1 : if successfully filed ; -2 : if DUZ doesn't refer to a valid user ; error text : if Filer call failed |
|
| ADDHELP(XOBEMSG,ERR,RESULT) | ;
|
|
| ADDTEXT(TEXT,RESULT) | ;Add TEXT to RESULT array
|
|
| VALIDATE(RESULT,XOBESIG) | ; -- Return whether passed ESig is valid
; Return: ; 1 if ESig is valid ; 0 if ESig is invalid ; -1 if ESig is null ; -2 if DUZ doesn't refer to a valid user ; This entry point is not currently used. |
| RPC Name | Call Tags |
|---|---|
| XOBE ESIG GET CODE | GETCODE |
| XOBE ESIG SET CODE | SETCODE |
| XOBE ESIG GET DATA | GETDATA |
| XOBE ESIG SET DATA | SETDATA |
| XOBE ESIG IS DEFINED | ISDEF |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ, GETS^DIQ |
