Routine: XMAPHOST

Information

XMAPHOST ;ISC-SF/GMB-Print to Message (P-MESSAGE) ;07/29/2003 14:36

Name	Comments	DBIA/ICR reference
EN	; Entry from pre-open execute of P-MESSAGE entry in DEVICE file. ; If the user chooses to queue the print, we don't want this code ; (the pre-open execute of the DEVICE file entry) to execute when ; the task starts up.
SETUP(XMAPHOST,XMABORT)	; Entry during close-execute (called from READ^XMAPHOST)
INIT(XMDUZ,XMAPHOST,XMINSTR,XMABORT)	;
GETSUBJ(XMSUBJ,XMAPHOST,XMABORT)	;
CHKSUBJ(XMSUBJ)	;
FROMWHOM(XMDUZ,XMINSTR,XMABORT)	;	ICR #4036 Status: Active Usage: Private
ADDRMSG(XMDUZ,XMINSTR,XMABORT)	;
READ	; Entry from close-execute of P-MESSAGE entry in TERMINAL TYPE file. ; Read the host file into a message, send it, erase it. ; Read record from file. ; Each time <CR> is found in record it ends a message line.
GET()	; Read a record from the file
PUT(XMZZ,XMREC,XMI)	; Put data into message.
EOFERR	;
EOF	;
SENDMSG(XMDUZ,XMZ,XMINSTR)	; Here, send the message to recipient.	ICR #4036 Status: Active Usage: Private
CLEANUP	;
KSETS	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(34234) Line Location: READ+20
Function Call: WRITE	Prompt: !,"." Line Location: READ+21
Function Call: WRITE	Prompt: "." Line Location: PUT+2
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(34235,XMLIMIT),! Line Location: EOF+8
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(34236) Line Location: EOF+9
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(34217,XMZ) Line Location: SENDMSG+1
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(34213) Line Location: SENDMSG+8