Routine: SRSCRAP

Package	Total	Call Graph
VA Fileman	5	^%DT C^%DTC FILE^DICN ^DIE ^DIK
Surgery	4	DEL^SROERR ^SROERR0 $$SITE^SROUTL0 ^SRSKILL

Entry Points

Name	Comments	DBIA/ICR reference
CPTNOTE	; cleanup CPT COPYRIGHT NOTICE DATE multiple in file 133
END
CHK	; check start time
BEG
RETURNS	; check returns
DEL	; delete case
OR
MORE

FileNo	Call Tags
^SRF - [#130]	Classic Fileman Calls
^SRO(133 - [#133]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(133	CPTNOTE+2
^SRF - [#130]	BEG+4, BEG+5, RETURNS+1, RETURNS+2, RETURNS+3, RETURNS+4, RETURNS+5, CHK+1, CHK+3, CHK+4 , DEL+2
^SRF("AC"	BEG+3, BEG+4!
^SRF("AR"	BEG+1, MORE, CHK+1!
^SRO(133 - [#133]	CPTNOTE+1, CPTNOTE+2
^SRS - [#131.7]	OR+1!

Name	Field # of Occurrence
>> CAN	RETURNS+4*
DA	CPTNOTE+1!, RETURNS+6, CHK+4!, DEL+2!, DEL+4*
DA(1	CPTNOTE+1, CPTNOTE+2, RETURNS+6*
DD	CPTNOTE+2!
>> DIC	CPTNOTE+2*
>> DIC("P"	CPTNOTE+2*
>> DIC(0	CPTNOTE+2*
DIE	CPTNOTE+1!, CHK+4!, DEL+2!*
>> DIK	RETURNS+6, DEL+4
>> DINUM	CPTNOTE+2*
DO	CPTNOTE+2!
DR	CPTNOTE+1!, CHK+4!, DEL+2!*
DT	CPTNOTE+1, CPTNOTE+2
>> ENDATE	BEG, BEG+1, OR, OR+1
>> I	MORE*
>> RET	BEG+5*, RETURNS+1, RETURNS+6
>> SR(	CHK+3*, CHK+4
>> SRDFN	BEG+1*, MORE, CHK+1
SRDIV	CPTNOTE+1~, CPTNOTE+2
>> SRDPT(0	BEG+5*, RETURNS+2
SRDT	CPTNOTE+1~, RETURNS+5
>> SRET1	RETURNS+1*, RETURNS+2, RETURNS+3, RETURNS+4, RETURNS+5
>> SRKILL	DEL+2*, DEL+3
>> SROERR	CHK+4, DEL+2
>> SROK	RETURNS+1, RETURNS+2, RETURNS+3, RETURNS+4, RETURNS+5*, RETURNS+6
>> SROR	OR, OR+1
>> SRSDT	BEG, BEG+1, BEG+2, BEG+3, BEG+4, OR+1*, MORE, RETURNS+5, CHK+1, DEL+2
>> SRSITE	CHK+2, DEL+1
SRTN	BEG+3, BEG+4, BEG+5, END!, MORE, RETURNS+1, RETURNS+6, CHK+1, CHK+2, CHK+3 , CHK+4, DEL+1, DEL+2, DEL+4
>> START	MORE, CHK+1, CHK+4*
>> X	BEG, BEG+2, OR, CPTNOTE+2, RETURNS+5
>> X1	RETURNS+5*
>> X2	RETURNS+5*
>> Y	BEG, BEG+2, OR