Routine: SROASWP0

Information

SROASWP0 ;B'HAM ISC/MAM - DELETE NO ASSESSMENTS ; 22 APR 1992 12:00 pm

Source file <SROASWP0.m>

Package	Total	Caller Graph
Surgery	1	SROASWAP

Name	Comments	DBIA/ICR reference
SENDMSG	; send mail message
DESTROY	; destroy SROA CONVERT option
CHECK	; determine if assessment should be deleted
MSGLINE	; store info for mail message
DELETE	; delete assessment from 139

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Risk Assessment Pre-Conversion: " Line Location: SROASWP0+3
Function Call: WRITE	Prompt: !!,"Deleting all entries from the SURGERY RISK ASSESSMENT file (139) which do not",!,"contain assessment information or have an operation date prior to the ",!,"selected start date." Line Location: SROASWP0+4
Function Call: WRITE	Prompt: "." Line Location: SROASWP0+8
Function Call: WRITE	Prompt: "." Line Location: SROASWP0+9

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	DESTROY+1
^SRA(	SROASWP0+8, SROASWP0+9, CHECK+1, CHECK+2, MSGLINE+1
^SRA(0	SROASWP0+2
^TMP("CONVERT"	SROASWP0+5!, SROASWP0+6, SROASWP0+7, SROASWP0+10, SROASWP0+11!, MSGLINE+2
^XMB("NETNAME"	SENDMSG+1

Name	Field # of Occurrence
DA	DELETE+1, DESTROY+2!
>> DATE	MSGLINE+1*, MSGLINE+2
>> DFN	MSGLINE+1*
DIK	DELETE+1, DESTROY+2!
I	SENDMSG+3~
>> SRA("S"	SROASWP0+8, CHECK+2
>> SRA(0	MSGLINE+1*
>> SRADEL	SROASWP0+9, CHECK+1, CHECK+2
>> SRAN	SROASWP0+8, SROASWP0+9, CHECK+1, CHECK+2, DELETE+1, MSGLINE+1
>> SRANAME	MSGLINE+1*, MSGLINE+2
>> SRCNT	SROASWP0+8, SROASWP0+9, MSGLINE+2*
>> SRCONV	DESTROY+1*, DESTROY+2
>> SRDATE	CHECK+1
>> SRTYPE	SROASWP0+8, CHECK+2
>> STATUS	SROASWP0+8, CHECK+2
>> VA("PID"	MSGLINE+1
>> VADM(1	MSGLINE+1
XMDUZ	SENDMSG+2*, SENDMSG+3!
XMSUB	SENDMSG+2*, SENDMSG+3!
XMTEXT	SENDMSG+2*, SENDMSG+3!
XMY	SENDMSG+3!
XMY("G.RISK A	SSESSMENT@" , SENDMSG+1*