| MAKEADD(TIUDADD,TIUDA,TIUX,SUPPRESS) |
This call allows the creation of addenda to TIU
Documents. Beginning when TIU*1*184 is released, please call MAKEADD^TIUSRVP2
instead of MAKEADD^TIUSRVP when editing existing code or writing new code. It
will be more efficient.
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
TIUDA |
Input |
This is the record number of the parent document in
file 8925.
|
TIUX |
Input |
This is a local input array containing the data to be
filed for the addendum record, formatted as follows:
TIUX(.02)=45678 TIUX(1301)=2960703.104556
TIUX(1302)=293764 TIUX("TEXT",1,0)="The patient is a 70 year
old
WHITE MALE, who presented to the ONCOLOGY CLINIC" TIUX("TEXT",2,0)="On JULY
3, 1996@10:00 AM, with
the chief complaint of NECK PAIN..."
|
SUPPRESS |
Input |
BOOLEAN flag indicating whether or not to suppress
execution of the COMMIT ACTION for the document in question. This gives the
calling application control over the circumstances in which the COMMIT CODE
should be executed.
|
TIUDADD |
Both |
This is the record number of the resulting addendum.
NOTE: If no addendum record may be created, then the return variable will
look as follows: "-1^Could not create addendum."
|
|
SIGN(.ERR,TIUDA,TIUX) |
Validates and applies an electronic signature to a
document. Beginning when TIU*1*184 is released, please call SIGN^TIUSRVP2
instead of SIGN^TIUSRVP when editing or writing new code. Only the routine is
changed.
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
TIUDA |
Input |
IEN in TIU DOCUMENT file (#8925).
|
TIUX |
Input |
User's electronic signature code, assumed to be
encrypted by the Broker's ENCRYP^XUSRB1.
|
ERR |
Both |
Passed by reference to return #^text of error message
from Dialog file if the user is NOT authorized to sign the document or if the
ES code is invalid; if successful, ERR=0.
|
|
