XMJMS ;ISC-SF/GMB-Interactive Send ;08/24/2001 12:02
Source file <XMJMS.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SEND | ;
|
|
PAKMAN | ;
|
|
BLOB | ;
|
|
INIT(XMDUZ,XMABORT) | ; Clean up and initialize for Sending a message
|
|
CHKLOCK(XMDUZ,XMABORT) | ;
; FYI, The menu system releases all locks upon exit from an option. |
|
PROCESS(XMDUZ,XMZ,XMSUBJ,XMABORT) | ;
|
|
SUBJ(XMSUBJ,XMABORT) | ; ask subject
|
|
QSUBJ | ;
|
|
BODY(XMDUZ,XMZ,DIWESUB,XMRESTR,XMABORT) | ; Replaces ENT1^XMA2
|
|
PACKIT(XMDUZ,XMZ,XMSUBJ,XMABORT) | ;
|
|
EDITON(XMDUZ,XMZ,XMZR,XMBLOB) | ; Note that msg is being edited. Replaces D^XMA0A
|
|
EDITOFF(XMDUZ) | ; Note that msg is no longer being edited.
|
|
HALT(XMACTION) | ;
|
|
RECOVER(XMDUZ,XMZ,XMBLOB) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|