Routine: RABTCH2

Information

RABTCH2 ;HISC/GJC-Batch Report Option, delete by date ;2/6/97 09:34

Source Information

Source file <RABTCH2.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIK ^DIR
Kernel	2	^%ZTLOAD $$NOW^XLFDT
Radiology Nuclear Medicine	1	($$EOS,$$XTERNAL)^RAUTL5

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA BTCHDEL DATE

Entry Points

Name	Comments	DBIA/ICR reference
KILL1
SETMP	; Set ^TMP($J,"RA BTCHDEL DT"). If only printed batches are selected, ; (RAUPRT=0) then just hit the 'E' xref. If both printed and unprinted ; batches are selected (RAUPRT=1) hit the Date/Time Batch Created 'F' ; xref.
DELDT	; Delete a batch within a specified date range.
DEL	; $O through the ^TMP global to delete entries in 74.2!
YN(RADT)	; Yes/No prompt asking the user if unprinted batches are to be ; included as criteria for our batch deletion. ; Returns: 1 if yes, 0 if no, -1 if '^' or timeout
KILL	; Kill and quit
DISPLAY	; Display selected Report Batches data

Name	Field # of Occurrence
^%DT	DELDT+21
^%ZTLOAD	DELDT+56
^DIK	DEL+2
^DIR	DELDT+35, DELDT+49, YN+7
$$EOS^RAUTL5	DISPLAY+10
$$XTERNAL^RAUTL5	DISPLAY+7, DISPLAY+8, DISPLAY+9
$$NOW^XLFDT	DELDT+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"This option can only be used by those Radiology/Nuclear" Line Location: DELDT+7
Function Call: WRITE	Prompt: " Medicine users that" Line Location: DELDT+8
Function Call: WRITE	Prompt: !?5,"have access to the Radiology/Nuclear Medicine Manager's" Line Location: DELDT+9
Function Call: WRITE	Prompt: " (RA MGR) key.",$C(7) Line Location: DELDT+10
Function Call: WRITE	Prompt: !!?5,"All batches up to the date you enter will be purged" Line Location: DELDT+19
Function Call: WRITE	Prompt: !?5,"from the Report Batches file #74.2.",$C(7),! Line Location: DELDT+20
Function Call: WRITE	Prompt: ! Line Location: DELDT+25
Function Call: WRITE	Prompt: !!?5,"No "_$S(RAUPRT=1:"unprinted or ",1:"")_"printed batches exist before: ",RA("DTX"),"!" Line Location: DELDT+28
Function Call: WRITE	Prompt: !!?5,"'",RA("DTX"),"', are you sure?",! Line Location: DELDT+31
Function Call: WRITE	Prompt: !!?5,"There"_$S(+$G(RA("CNT"))>1:" are ",1:" is ") Line Location: DELDT+40
Function Call: WRITE	Prompt: +$G(RA("CNT"))," batch" Line Location: DELDT+41
Function Call: WRITE	Prompt: $S(+$G(RA("CNT"))>1:"es ",1:" ") Line Location: DELDT+42
Function Call: WRITE	Prompt: "selected to be deleted." Line Location: DELDT+43
Function Call: WRITE	Prompt: !?5,"Do you wish to task this job off to be completed" Line Location: DELDT+44
Function Call: WRITE	Prompt: !?5,"at a later time?",! Line Location: DELDT+45
Function Call: WRITE	Prompt: !?5,$C(7),"Beginning the interactive deletion process.",! Line Location: DELDT+59
Function Call: WRITE	Prompt: !?5,"The deletion process has successfully completed!" Line Location: DELDT+61
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+10
Function Call: WRITE	Prompt: !?3,"Batch: ",$P(RA(0),"^") Line Location: DISPLAY+11
Function Call: WRITE	Prompt: ?39,"Date Created: ",$S(RADTC]"":RADTC,1:"Unknown") Line Location: DISPLAY+12
Function Call: WRITE	Prompt: !?3,"User: ",$S(RAUSER]"":RAUSER,1:"Unknown") Line Location: DISPLAY+13
Function Call: WRITE	Prompt: ?39,"Date Printed: ",$S(RADTP]"":RADTP,1:""),! Line Location: DISPLAY+14
Routine Call	DIR Line Location: DELDT+35 DELDT+49 YN+7

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DELDT+17, DELDT+24
^DD(74.2	DISPLAY+7, DISPLAY+8, DISPLAY+9
^RABTCH(74.2 - [#74.2]	DISPLAY+5, SETMP+5, SETMP+7
^TMP($J	DELDT+14!, KILL1!, DEL+2, DISPLAY+4, SETMP+9*
^XUSEC("RA MGR"	DELDT+6

Name	Line Occurrences
$$YN	DELDT+25
DEL	DELDT+60
DISPLAY	DELDT+30
KILL1	DELDT+39, DELDT+50
SETMP	DELDT+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DELDT+15!*, DELDT+21!
%DT("A"	DELDT+16*
%DT("B"	DELDT+18*
%DT(0	DELDT+15*
DA	DEL+1~, DEL+2
DDH	KILL1+1!
DIC	DEL+1~
DIK	DEL+1~*
DIR	DELDT+32!, DELDT+35!, DELDT+46!, DELDT+49!, YN+3~
DIR("?"	DELDT+33, DELDT+34, DELDT+47, DELDT+48, YN+5, YN+6
DIR("A"	YN+4*
DIR("B"	YN+3*
DIR(0	DELDT+32, DELDT+46, YN+3*
DIROUT	DELDT+4~, YN+3~
DIRUT	DELDT+4~, DELDT+36, DELDT+37, DELDT+50, YN+3~, YN+7
DT	DELDT+17
DTOUT	DELDT+4~, YN+3~
DUOUT	DELDT+4~, YN+3~
DUZ	DELDT+5
I	KILL1+1!, DISPLAY+1~, DISPLAY+6*
IOF	DISPLAY+3, DISPLAY+10
IOSL	DISPLAY+10
POP	KILL1+1!
RA	DELDT+4~, DISPLAY+1~, DISPLAY+4, DISPLAY+5, SETMP+4, SETMP+5, SETMP+7
RA(	DISPLAY+6*
RA("%"	DELDT+12, DELDT+13, DELDT+22, DELDT+23, DELDT+37*
RA("CNT"	DELDT+14!, DELDT+27, DELDT+40, DELDT+41, DELDT+42, SETMP+8*
RA("DT"	DELDT+12, DELDT+22, DELDT+36*, DELDT+39
RA("DTI"	DELDT+23*, SETMP+5
RA("DTX"	DELDT+24*, DELDT+25, DELDT+28, DELDT+31, DELDT+54
RA(0	DISPLAY+5*, DISPLAY+6, DISPLAY+11
RA(1	SETMP+6, SETMP+7, SETMP+9
RA(2	DISPLAY+7
RA(3	DISPLAY+8
RA(4	DISPLAY+9
RABTCH	DISPLAY+1~
RADT	YN~, YN+4, YN+5, YN+6
RADTC	DISPLAY+1~, DISPLAY+7*, DISPLAY+12
RADTP	DISPLAY+1~, DISPLAY+9*, DISPLAY+14
RADUZ	DELDT+4~, DELDT+5*, DELDT+6
RATXT	DISPLAY+1~, DISPLAY+2*, DISPLAY+3, DISPLAY+10
RAUPRT	DELDT+4~, DELDT+12, DELDT+13, DELDT+25, DELDT+28, DELDT+39, SETMP+4
RAUSER	DISPLAY+1~, DISPLAY+8*, DISPLAY+13
RAXIT	DELDT+4~, DELDT+14, DELDT+30, DISPLAY+4, DISPLAY+10
RAXREF	SETMP+4~*, SETMP+5, SETMP+7
X	DELDT+4~, YN+3~
Y	DELDT+4~, DELDT+17, DELDT+18, DELDT+22, DELDT+23, DELDT+24, DELDT+37, DELDT+51, YN+3~, YN+7 , YN+8
ZTDESC	DELDT+53, DELDT+54, KILL+1!
ZTIO	DELDT+52*, KILL+1!
ZTRTN	DELDT+52*, KILL+1!
ZTSAVE	KILL+1!
ZTSAVE("^TMP(	$J, ""RA BTCHDEL DT"", " , DELDT+55*
ZTSK	KILL+1!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RABTCH2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: