Routine: DVBAUDDIFD

Package	Total	Call Graph
Automated Medical Information Exchange	5	($$ASKNUM,$$ASKYESNO)^DVBAUDASK1 DIERR^DVBAUDDILG1 ($$DIC,$$DIU2)^DVBAUDNEW1 (CENTER,CONTINUE)^DVBAUDPRT1 SHOWOPT^DVBAUDPRT2
VA FileMan	3	^DIC $$GET1^DIQ EN^DIU2
Kernel	1	HOME^%ZIS

Entry Points

Name	Comments	DBIA/ICR reference
ENTER	; Primary entry point for this API utility routine
PROMPT	; Present user prompts
EXIT	; Exit the file deletion utility API
ASKMETH	; Prompt: 'Which deletion method do you prefer'
ASKOK(DVBFILE)	; Prompt: OK TO DELETE?
GETFILES	; Build DVBFILE(array)
GETFILE1	; Loop branching label for prompting for multiple files
GETFILEX	; Exit GETFILES
DELETE(DVBASK,DVBFILE)	; Delete files
TEMP	; Delete templates & data? ; ; ZEXCEPT: DIU,DVBASK,DVBQUIT

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ENTER+6
Function Call: WRITE	Prompt: !!,"Which deletion method do you prefer" Line Location: ASKMETH+2
Function Call: WRITE	Prompt: !?4,"1. Ask before deleting DATA & TEMPLATES" Line Location: ASKMETH+3
Function Call: WRITE	Prompt: !?4,"2. Delete DATA & TEMPLATES without asking" Line Location: ASKMETH+4
Function Call: WRITE	Prompt: ! Line Location: ASKMETH+5
Function Call: WRITE	Prompt: @IOF Line Location: ASKOK+5
Function Call: WRITE	Prompt: !,"WARNING! The following file(s) are selected for DELETION:",! Line Location: ASKOK+6
Function Call: WRITE	Prompt: !?2,$$GET1^DIQ(1,DVBFILENUM,.01) Line Location: ASKOK+10
Function Call: WRITE	Prompt: !?2,$P(^DIC(DVBFILENUM,0),U,1) Line Location: ASKOK+15
Function Call: WRITE	Prompt: ! Line Location: ASKOK+16
Function Call: WRITE	Prompt: !!,"Select file(s) you wish deleted:" Line Location: GETFILES+11
Function Call: WRITE	Prompt: ! Line Location: GETFILE1+2
Function Call: WRITE	Prompt: " Invalid File ??" Line Location: GETFILE1+4
Function Call: WRITE	Prompt: !! Line Location: DELETE+4
Function Call: WRITE	Prompt: !! Line Location: DELETE+9
Function Call: WRITE	Prompt: "FILE: ",$P($G(^DIC(DVBFILENUM,0)),"^",1) Line Location: DELETE+10
Routine Call	%ZIS Line Location: ENTER+4
Routine Call	DIC Line Location: GETFILE1+3

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	GETFILE1+4, DELETE+10

Name	Field # of Occurrence
DIC	GETFILES+3~, GETFILES+8*, DELETE+2~
DIC("A"	GETFILE1+1*
DIC("S"	GETFILES+10*
DIC(0	GETFILES+9*
DIERR	ASKOK+9~, ASKOK+11
>> DIU	DELETE+12*
>> DIU(0	TEMP+4, TEMP+8
DTIME	ENTER+4*
DUZ	ENTER+5
DUZ(0	ENTER+5
DVBASK	ENTER+1~, PROMPT+5, ASKMETH+6, ASKMETH+7, ASKOK+17, ASKOK+18, DELETE~, DELETE+4, DELETE+9, TEMP+4 , TEMP+5*, TEMP+6, TEMP+8
DVBCNT	GETFILES+3~, GETFILES+7, GETFILE1+1, GETFILE1+7
DVBFILE	ENTER+1~, PROMPT+5, ASKOK~, GETFILES+6!, GETFILE1+3, DELETE~
DVBFILE(	ASKOK+8, GETFILE1+6*, DELETE+6
DVBFILENUM	ASKOK+2~, ASKOK+7, ASKOK+8, ASKOK+10, DELETE+2~, DELETE+5, DELETE+6, DELETE+10, DELETE+12
DVBMETHOD	ENTER+1~
DVBOPTION	ENTER+1~, ENTER+9*, PROMPT+1
DVBQUIT	ENTER+1~, ENTER+10, PROMPT+3, PROMPT+4, PROMPT+5, ASKMETH+7, ASKOK+8, ASKOK+12, ASKOK+18, GETFILE1+3 , DELETE+11, TEMP+6
IOF	ENTER+4, ASKOK+5
X	ENTER+1~
Y	ENTER+1~, GETFILES+3~, GETFILE1+3, GETFILE1+4, GETFILE1+6

Name	Field # of Occurrence
$T(	ASKOK+11