Routine: SRTPTMIT

Information

SRTPTMIT ;BIR/SJA - TRANSMIT ASSESSMENT ;04/29/08

Package	Total	Call Graph
Surgery	4	$$SITE^SROVAR ^SRSKILL ^SRTPTM1 $$TR^SRTPUTL
VA Fileman	2	NOW^%DTC D^DIQ
Kernel	1	$$ACTIVE^XUSER
MailMan	1	^XMD
Registration	1	DEM^VADPT

Name	Comments	DBIA/ICR reference
STATUS	; update status
END
UPDATE	; Updating is done by the server SRTPSITE after acknowledgement message is received at the site from the National Database ; Notification message of assessments transmitted is built below
ONE	; tranmit single entry
START
STUFF	; stuff entries into TMP("SRA"
PTM2
NIGHT	; called by nightly background task
MSG	; send message to Denver and Hines
ORG

Name	Line Occurrences (* Changed, ! Killed)
^SRT - [#139.5]	ONE+2, NIGHT+4, UPDATE+4
^SRT("AF"	NIGHT+2, NIGHT+3
^XMB("NETNAME"	STATUS+6, MSG+1, MSG+2

Name	Field # of Occurrence
>> %	STATUS+7
>> DFN	UPDATE+4*
DT	MSG+7
DUZ	STATUS+4, MSG+8
I	PTM2*, STATUS+10~, MSG+9~
>> ISC	MSG+1*, MSG+2, MSG+3, MSG+5
>> MM	UPDATE+2*
>> NAME	MSG+1*
>> SR("RA"	ONE+2, NIGHT+4
SRA	STUFF+3!
>> SRACNT	START, NIGHT+4, STUFF+1, STATUS+2, UPDATE+2
>> SRADFN	ONE+2, NIGHT+3
>> SRADT	UPDATE+4*, UPDATE+5
>> SRAMNUM	START, NIGHT+4, STUFF+1, STUFF+4, PTM2, STATUS+1, STATUS+2, MSG+9, UPDATE+2, ORG
>> SRANAME	UPDATE+4*, UPDATE+5
>> SRASITE	START*
>> SRASS	STATUS+1, STATUS+3, UPDATE+3
>> SRAST	NIGHT+2*, NIGHT+3
>> SRATDATE	MSG+7*, MSG+9
>> SRATIME	STATUS+7*, STATUS+8
>> SRATOT	START, STUFF+2
>> SRATOTM	STUFF+4*
>> SRATP	NIGHT+2*, NIGHT+3
>> SRCURL	STATUS+2*
>> SREMIL	UPDATE+2*, UPDATE+4, UPDATE+5
>> SRORG	MSG+3, MSG+5, MSG+9, ORG*
SRSHEMP	STUFF+3!, PTM2, UPDATE+5
SRTPP	ONE+2, ONE+3!, NIGHT+3*, NIGHT+4, NIGHT+5!
>> TMP("SRA"	START!, ONE+3!, NIGHT+5!, PTM2, STATUS+2, UPDATE+2, ORG
>> TMP("SRAMSG"	START!, ONE+3!, NIGHT+5!, STATUS+8, STATUS+9, UPDATE+5*
VADM	STUFF+3!, UPDATE+4!
VADM(1	UPDATE+4
>> X	STATUS+4, MSG+8, UPDATE+2, UPDATE+4
>> XMDUZ	STATUS+4, MSG+8
>> XMSUB	STATUS+5, MSG+9
>> XMTEXT	STATUS+10, MSG+9
>> XMY("G.CARDIA	C RISK ASSESSMENTS@DENVER.VA.GOV" , MSG+4*
>> XMY("G.SR TRA	NSPLANT@" , STATUS+6, MSG+2
>> XMY("G.SRTRANSPLANT@FO-HINES.MED.VA.GOV"	MSG+4, MSG+6
>> XX	ORG*
>> Y	STATUS+7*
>> ZTQUEUED	STUFF+5
>> ZTREQ	STUFF+5*