Routine: RABTCH3

Information

RABTCH3 ;HISC/GJC-Delete Batch Reports ;8/2/94 10:08

Package	Total	Call Graph
Radiology Nuclear Medicine	2	EN1^RASELCT $$EOS^RAUTL5
VA Fileman	2	^DIK ^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA BTCHDEL

Name	Comments	DBIA/ICR reference
KILL	; Kill and quit
DEL	; Does this user have data to delete?
HDR	; Header
DICW	; Display data

Name	Line Occurrences
Function Call: WRITE	Prompt: !,C_"]",?5,A Line Location: DEL+16
Function Call: WRITE	Prompt: ! Line Location: DEL+23
Function Call: WRITE	Prompt: !!?5,"Beginning the interactive deletion process." Line Location: DEL+28
Function Call: WRITE	Prompt: !?5,"<Deleting>" Line Location: DEL+29
Function Call: WRITE	Prompt: !?5,"Deletion process has successfully completed." Line Location: DEL+36
Function Call: WRITE	Prompt: ?40,"<Batch Created>: ",RABTCHC,!?40,"<Batch Printed>: ",RABTCHP Line Location: DICW+7
Function Call: WRITE	Prompt: @IOF,!?$S(IOM=132:104,1:63),"Date: ",RATDAY Line Location: HDR+2
Function Call: WRITE	Prompt: !?$S(IOM=132:104,1:63),"Page: ",RAPAGE Line Location: HDR+3
Function Call: WRITE	Prompt: !?(IOM-$L(RAHEAD)\2),RAHEAD,!,RALINE Line Location: HDR+4
Routine Call	DIR Line Location: DEL+26

FileNo	Call Tags
^RABTCH(74.2 - [#74.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DEL+3, DICW+5, DICW+6
^RABTCH(74.2 - [#74.2]	DEL+1, DICW+3
^TMP($J	DEL+4!, DEL+9, DEL+13, DEL+14, DEL+31, DEL+32

Name	Field # of Occurrence
%	KILL+1!
A	DEL+2~, DEL+13, DEL+14, DEL+16, DEL+30, DEL+31*, DEL+32
B	DEL+2~, DEL+32*, DEL+33
C	DEL+2~, DEL+15*, DEL+16
DA	DEL+30!, DEL+33*, KILL+1!
DDH	KILL+1!
DIC	KILL+1!
DIK	DEL+30!*, KILL+1!
DIR	DEL+23!, DEL+26!, KILL+1!
DIR("?"	DEL+25, DEL+26
DIR("A"	DEL+24*
DIR(0	DEL+23*
DIROUT	KILL+1!
DIRUT	KILL+1!
DT	DEL+3
DTOUT	KILL+1!
DUOUT	KILL+1!
DUZ	DEL+1
I	DEL+2~
IOF	HDR+2
IOM	DEL+10, HDR+2, HDR+3, HDR+4
IOSL	DEL+18
POP	KILL+1!
RA	DICW+2~, DICW+3*, DICW+4
RABTCHC	DICW+2~, DICW+4, DICW+5, DICW+7
RABTCHP	DICW+2~, DICW+4, DICW+6, DICW+7
RADIC	DEL+2~, DEL+5*, DEL+8
RADIC("A"	DEL+6*
RADIC("S"	DEL+6*
RADIC("W"	DEL+7*
RADIC(0	DEL+5*
RAHEAD	DEL+2~, DEL+11*, HDR+4
RALINE	DEL+2~, DEL+10*, HDR+4
RAOUT	DEL+2~, DEL+3, DEL+19, DEL+20
RAPAGE	DEL+2~, DEL+3, HDR+1, HDR+3
RAQUIT	DEL+9, KILL+1!
RATDAY	DEL+2~, DEL+3*, HDR+2
RAUTIL	DEL+5*, DEL+8, KILL+1!
RAY	DICW+1~*, DICW+3
U	DICW+4
X	KILL+1!
Y	DEL+3, DEL+14, DEL+27, KILL+1!, DICW+1, DICW+2~, DICW+5, DICW+6