Routine: XMRPCTS1

Information

XMRPCTS1 ;(KC-VAMC)/XXX-Simple PCTS front end to MailMan ;02/06/99 10:32

Name	Comments	DBIA/ICR reference
INIT(XMDUZ,XMUS,XMSTR,XMRI,XMTO,XMABORT)	;
RI(XMRI,XMABORT)	;
TO(XMTO,XMABORT)	;
PROCESS(XMDUZ,XMSTR,XMFM,XMRI,XMTO,XMZ,XMABORT)	;
XMIT(XMDUZ,XMZ,XMINSTR,XMABORT)	;
E	; Edit Text
NCHECK(XMZ)	; If "NNNN" found in text, issue error
T	; Transmit
Q
READY(XMDUZ,XMINSTR,XMRESTR,XMABORT)	;
EXIT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"TWIX Send aborted !",$C(7) Line Location: XMRPCTS1+17
Function Call: WRITE	Prompt: !!,"DUZ not defined..." Line Location: INIT+3
Function Call: WRITE	Prompt: !!,"Create PCTS/AMS message.",! Line Location: INIT+6
Function Call: WRITE	Prompt: "<blank>" Line Location: RI+6
Function Call: WRITE	Prompt: !,"You may add recipients to this message." Line Location: PROCESS+20
Function Call: WRITE	Prompt: !!,"<< 4 CONSECUTIVE N's ARE NOT ALLOWED IN THE MSG TEXT !!! >>",!!,$C(7) Line Location: NCHECK+5
Function Call: WRITE	Prompt: !,"Answer: ",! Line Location: Q+0
Function Call: WRITE	Prompt: !,"T (or just return) to PERMANENTLY transmit the message." Line Location: Q+1
Function Call: WRITE	Prompt: !,"E to Edit the text of the message." Line Location: Q+2
Function Call: WRITE	Prompt: !,"'^' to cancel the message." Line Location: Q+3
Function Call: WRITE	Prompt: !,"Send to: XXX@VHA.DMIA" Line Location: READY+8