Routine: SROATM4

Information

SROATM4 ;BIR/MAM - CREATE MESSAGES ;03/22/06

Source file <SROATM4.m>

Package	Total	Caller Graph
Surgery	2	SROATMIT SROATMNO

Name	Comments	DBIA/ICR reference
STATUS	; update status
MSG	; send message to G.SURGERY RISK at Hines
END
UPDATE	; Updating is done by the server SROASITE after acknowledgement message is received at the site from the National Database ; Notification message of assessments transmitted is built below

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	UPDATE+4
^TMP("SRA"	SROATM4+6, STATUS+2, END!, UPDATE+2
^TMP("SRAMSG"	STATUS+8, STATUS+9, END!, UPDATE+5*
^XMB("NETNAME"	STATUS+6, MSG+1, MSG+2

Name	Field # of Occurrence
>> %	STATUS+7
>> CURLEY	STATUS+2*
>> DFN	UPDATE+4*
DT	MSG+4
DUZ	STATUS+4, MSG+5
>> EMILY	UPDATE+2*, UPDATE+4, UPDATE+5
I	SROATM4+6*, STATUS+10~, MSG+6~
>> ISC	MSG+1*, MSG+2, MSG+3
>> MM	UPDATE+2*
>> NAME	MSG+1*
>> SHEMP	SROATM4+6, UPDATE+5
>> SRACNT	STATUS+2*, UPDATE+2
>> SRADT	UPDATE+4*, UPDATE+5
>> SRAMNUM	SROATM4+6, STATUS+1, STATUS+2*, MSG+6, UPDATE+2
>> SRANAME	UPDATE+4*, UPDATE+5
>> SRASS	STATUS+1, STATUS+3, STATUS+8, UPDATE+3
>> SRATDATE	MSG+4*, MSG+6
>> SRATIME	STATUS+7*, STATUS+8
>> SRATOTM	MSG+6
SRTN	END!
VADM	UPDATE+4!
VADM(1	UPDATE+4
>> X	STATUS+4, MSG+5, UPDATE+2, UPDATE+4
>> XMDUZ	STATUS+4, MSG+5
>> XMSUB	STATUS+5, MSG+6
>> XMTEXT	STATUS+10, MSG+6
>> XMY("G.RISK A	SSESSMENT@" , STATUS+6, MSG+2, SSESSMENT@FO-HINES.MED.VA.GOV" , MSG+3*
>> Y	STATUS+7*