Routine: SCAPMSG

Information

SCAPMSG ;ALB/SCK - PCMM MESSAGE GENERATOR ; 22 SEP 95

Source file <SCAPMSG.m>

Package	Total	Call Graph
MailMan	2	XMZ^XMA2 ^XMD
Scheduling	1	(CHK,TMP)^SCUTBK

Name	Comments	DBIA/ICR reference
BLDMSG(SCROOT,SCSUBJ,SCDUZ)	;
MAILC(SCOK,SCROOT)	;
PARSE(SC)	; ; -- array parsing for messages ; SCDUZ - DUZ of user triggering the message ; SCIENS - The Internal entry number of the team, position, or ; patient, etc. ; SCDATE - The date and/or time of the change or incident that ; triggered the notification in external format. ; SCSUBJ - The subject for the message ; SCMSG - The message type ; SCTEXT - text line to be added to the message
MAILQ

Name	Line Occurrences
BLDMSG	MAILC+8
MAILQ	MAILC+13

Name	Field # of Occurrence
I	BLDMSG+2~, BLDMSG+6, BLDMSG+7
SC	PARSE~
SC("DATE"	PARSE+13
SC("DUZ"	PARSE+11
SC("IENS"	PARSE+12
SC("MESSAGE"	PARSE+15
SC("SUBJECT"	PARSE+14
SC("TEXT"	PARSE+16
>> SCDATE	PARSE+13*
SCDUZ	PARSE+11, MAILC+2~, MAILC+8, MAILC+10, BLDMSG~, BLDMSG+3
>> SCIENS	PARSE+12*
>> SCMSG	PARSE+15*
SCOK	MAILC~, MAILC+6, MAILC+18
SCROOT	MAILC~, MAILC+8, BLDMSG~
SCROOT(1	BLDMSG+3, BLDMSG+4, BLDMSG+7
SCSUBJ	PARSE+14, MAILC+2~, MAILC+8, MAILC+11, BLDMSG~, BLDMSG+4
SCTEXT	PARSE+16*, MAILC+2~
SCTEXT(	BLDMSG+7*
U	BLDMSG+3, BLDMSG+4
>> XMDUZ	MAILC+10*
>> XMSUB	MAILC+11*
>> XMTEXT	MAILC+14*
>> XMY("G.PCM ME	SSAGING@DEVFEX.ISC-ALBANY.VA.GOV" , MAILC+15*
>> XMZ	MAILC+13, MAILC+18