Routine: SCCVDEL

Package	Total	Call Graph
VA Fileman	4	DT^DICRW ^DIE ^DIR EN^DIU2
Registration	3	EN^VALM ($$SETFLD,FULL)^VALM1 EN^VALM2
Scheduling	2	($$COMPL,$$SEQGAP)^SCCVPAR PAUSE^SCCVU
Kernel	1	($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Scheduling	2	SCCVDEL1 SCCVPAR

Entry Points

Name	Comments	DBIA/ICR reference
DELDDQ
EN	; Main entry point - display scheduling files to delete
MSGQ
LOGQ
GAP()	; -- check to see if there gaps in conversion ; -- return: 1 - no gap \| 0 - gaps exist
LOG(FILE,USER,TYPE)	; -- log file deletion
DFQ
DELDD	; Delete DDs and templates for files
FDELDT(FNO)	; -- get date the site must convert back to in order to delete ; file dd and data
GAPQ
INIT	; -- set up initial variables
DELFIL(FNO,FNM)	;Delete dd and templates for the specified file #FNO ; FNM = the file name in ()
COMPL()	; -- check if conversion complete flag is set ; -- return: 1 - set \| 0 - not set
COMPLQ
FNAME(FNO)	; -- get file name
BLD	;Build parameter display
FNL	; Clean up
FGLB(FNO)	; -- get data global for file
MSG(FNO)	; -- display protect message

External References

Name	Field # of Occurrence
DT^DICRW	EN+2
^DIE	LOG+32
^DIR	DELDD+16, DELDD+23, DELFIL+9, DELFIL+17
EN^DIU2	DELFIL+34
$$COMPL^SCCVPAR	DELDD+9
$$SEQGAP^SCCVPAR	GAP+4
PAUSE^SCCVU	EN+7, DELDD+33, DELDD+38, GAP+11, COMPL+8, DFQ
EN^VALM	EN+8
$$SETFLD^VALM1	BLD+15, BLD+16, BLD+17, BLD+18, BLD+19
FULL^VALM1	EN+3, DELDD+2
EN^VALM2	DELDD+27
$$FMTE^XLFDT	DELDD+32, GAP+7
$$NOW^XLFDT	LOG+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,7," WARNING *" Line Location: EN+4
Function Call: WRITE	Prompt: !,"This action allows PERMANENT DELETION of old Scheduling files!" Line Location: EN+5
Function Call: WRITE	Prompt: !,"If you are at all uncertain about this option, DO NOT delete any files.",!! Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: DELDD+3
Function Call: WRITE	Prompt: ! Line Location: DELDD+26
Function Call: WRITE	Prompt: !!,"Deleting File # "_+SCCVFIL_" "_$P(SCCVFIL,U,3)," is not allowed." Line Location: DELDD+31
Function Call: WRITE	Prompt: !,"You did not convert back to '"_$$FMTE^XLFDT($$FDELDT(+SCCVFIL),"5Z")_"'." Line Location: DELDD+32
Function Call: WRITE	Prompt: !!,"DD and templates for File # "_+SCCVFIL_" "_$P(SCCVFIL,U,3) Line Location: DELDD+36
Function Call: WRITE	Prompt: !,"have already been deleted!" Line Location: DELDD+37
Function Call: WRITE	Prompt: !,"You have one or more gaps in conversion dates from your earliest" Line Location: GAP+8
Function Call: WRITE	Prompt: !,"You must finish converting before you can delete any of these files." Line Location: GAP+10
Function Call: WRITE	Prompt: !,"No file deletes can be performed until a date has been" Line Location: COMPL+5
Function Call: WRITE	Prompt: !,"recorded in the conversion site parameters indicating" Line Location: COMPL+6
Function Call: WRITE	Prompt: !,"that the conversion is complete." Line Location: COMPL+7
Function Call: WRITE	Prompt: !,"Cannot delete data dictionary and templates for file!" Line Location: DELFIL+26
Function Call: WRITE	Prompt: !,$P(Y,U,2) Line Location: DELFIL+27
Function Call: WRITE	Prompt: !!,"Data Dictionary and Template Deletion of" Line Location: DELFIL+30
Function Call: WRITE	Prompt: !,"file # "_FNO_" "_FNM_" is in process...",! Line Location: DELFIL+31
Function Call: WRITE	Prompt: !!,"Data Dictionary and Templates for File # "_FNO_" "_FNM Line Location: DELFIL+35
Function Call: WRITE	Prompt: !,"have been deleted." Line Location: DELFIL+36
Function Call: WRITE	Prompt: !,"Data Dictionary and Templates for File # "_FNO_" "_FNM Line Location: DELFIL+39
Function Call: WRITE	Prompt: !,"have NOT been deleted." Line Location: DELFIL+40
Function Call: WRITE	Prompt: ! Line Location: MSG+3
Function Call: WRITE	Prompt: !,"NOTE: Only the data dictionary and templates have been" Line Location: MSG+4
Function Call: WRITE	Prompt: !," deleted." Line Location: MSG+5
Function Call: WRITE	Prompt: ! Line Location: MSG+6
Function Call: WRITE	Prompt: !," In order to delete the data, execute the following action:" Line Location: MSG+7
Function Call: WRITE	Prompt: !," Data Global Deletion" Line Location: MSG+8
Function Call: WRITE	Prompt: ! Line Location: MSG+9
Function Call: WRITE	Prompt: !," However, you must first determine if KILLing at the global" Line Location: MSG+13
Function Call: WRITE	Prompt: !," root level is allowed for this global '",SCGLB,"' on your" Line Location: MSG+14
Function Call: WRITE	Prompt: !," system." Line Location: MSG+15
Function Call: WRITE	Prompt: ! Line Location: MSG+16
Function Call: WRITE	Prompt: !," Unfortunately, there is no programmer API to check this" Line Location: MSG+17
Function Call: WRITE	Prompt: !," global characteristic using Kernel tools." Line Location: MSG+18
Function Call: WRITE	Prompt: ! Line Location: MSG+19
Function Call: WRITE	Prompt: !," If you need help checking and setting this global parameter," Line Location: MSG+20
Function Call: WRITE	Prompt: !," please contact National VistA Support (NVS)." Line Location: MSG+21
Function Call: WRITE	Prompt: ! Line Location: MSG+22
Routine Call	VALM Line Location: EN+8
Routine Call	DIE Line Location: LOG+32
Routine Call	DIR Line Location: DELDD+16 DELDD+23 DELFIL+9 DELFIL+17

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SD(404.91 - [#404.91]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	BLD+14
^SD(404.91 - [#404.91]	BLD+2, GAP+6, COMPL+4, LOG+30, LOG+33
^SD(404.98 - [#404.98]	DELDD+9
^TMP("SCCV.DELETE"	FNL+1!, BLD+4!, BLD+21, BLD+22, BLD+23*
^TMP("SCCV.DELETE.DX"	FNL+1!, BLD+4!, DELDD+29

Label References

Name	Line Occurrences
$$COMPL	DELDD+7
$$FDELDT	BLD+10, DELDD+32
$$FGLB	BLD+9, MSG+2
$$FNAME	BLD+8
$$GAP	DELDD+5
$$LOG	DELFIL+23
BLD	INIT+3, DELDD+40
COMPLQ	COMPL+4
DELDDQ	DELDD+5, DELDD+7, DELDD+9, DELDD+24
DELFIL	DELDD+39
DFQ	DELFIL+29
FNL	INIT+1
GAPQ	GAP+4
LOGQ	LOG+9, LOG+19, LOG+26, LOG+31, LOG+34
MSG	DELFIL+37
MSGQ	MSG+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	LOG+1~, LOG+32*
DIE	LOG+1~, LOG+32*
DIR	DELDD+10~, DELDD+16!, DELDD+23!, GAP+5~, DELFIL+2~, DELFIL+10!, DELFIL+18!
DIR("A"	DELDD+13, DELDD+14, DELDD+15, DELDD+20, DELDD+21, DELFIL+7, DELFIL+8, DELFIL+16
DIR("B"	DELDD+11, DELDD+22, DELFIL+6, DELFIL+15
DIR(0	DELDD+12, DELDD+19, DELFIL+5, DELFIL+14
>> DIU	DELFIL+32*
>> DIU(0	DELFIL+33*
DR	LOG+1~, LOG+32*
DUZ	DELFIL+23
F	FNAME+1~, FGLB+1~, FDELDT+2~
F(	FNAME+2, FNAME+3, FNAME+4, FNAME+5, FNAME+6, FNAME+7, FGLB+2, FGLB+3, FGLB+4, FGLB+5* , FGLB+6, FGLB+7, FDELDT+3, FDELDT+4, FDELDT+5, FDELDT+6, FDELDT+7, FDELDT+8
FILE	LOG~, LOG+11, LOG+12, LOG+13
FNM	DELFIL~, DELFIL+7, DELFIL+31, DELFIL+35, DELFIL+39
FNO	DELFIL~, DELFIL+7, DELFIL+23, DELFIL+31, DELFIL+32, DELFIL+35, DELFIL+37, DELFIL+39, MSG~, MSG+2 , MSG+11, FNAME~, FNAME+7, FGLB~, FGLB+7, FDELDT~, FDELDT+8
SCCV	DELDD+1~, DELDD+28*, DELDD+29
SCCVDDT	BLD+1~, BLD+10*, BLD+12
SCCVEDT	BLD+1~, BLD+2*, BLD+12
SCCVFIL	FNL+2!, BLD+1~, BLD+6, BLD+8, BLD+9, BLD+10, BLD+14, BLD+16, BLD+23, DELDD+1~ , DELDD+29, DELDD+30, DELDD+31, DELDD+32, DELDD+35, DELDD+36, DELDD+39
SCCVFNM	BLD+1~, BLD+8*, BLD+17, BLD+23
SCCVGBL	BLD+1~, BLD+9*, BLD+13, BLD+18
SCCVST	BLD+1~, BLD+11, BLD+12, BLD+13, BLD+14, BLD+19, BLD+23
SCDEL	LOG+1~
SCDEL("DATE/TIME"	LOG+28*
SCDEL("FILE"	LOG+13*
SCDEL("TYPE"	LOG+5*
SCDEL("USER"	LOG+22*
SCDT1	GAP+5~, GAP+6, GAP+7, GAP+9
SCFIN	LOG+1~, LOG+34
SCGLB	MSG+1~, MSG+2*, MSG+14
SCOK	DELDD+9, DELDD+17, GAP+2~, GAP+3, GAP+12, GAPQ, COMPL+2~, COMPL+3, COMPL+9, COMPLQ , DELFIL+2~, DELFIL+3, DELFIL+11, DELFIL+13, DELFIL+19, DELFIL+22, DELFIL+24*, DELFIL+29
SCRET	LOG+1~, LOG+2, LOG+7, LOG+9, LOG+15, LOG+17, LOG+19, LOG+24, LOG+26, LOG+31 , LOG+34*, LOGQ
TYPE	LOG~, LOG+4, LOG+5
U	INIT+2*, BLD+23, DELDD+30, DELDD+31, DELDD+35, DELDD+36, DELDD+39, GAP+6, COMPL+4, DELFIL+27
USER	LOG~, LOG+21, LOG+22
>> VALMBCK	FNL+3, DELDDQ
>> VALMBG	INIT+2, BLD+3
>> VALMCNT	INIT+2, BLD+5, BLD+7*, BLD+15, BLD+21, BLD+22, BLD+23
VALMY	DELDD+1~
VALMY(	DELDD+28
X	BLD+7, BLD+15, BLD+16, BLD+17, BLD+18, BLD+19, BLD+21, LOG+1~
>> XQORNOD(0	DELDD+27
Y	DELDD+10~, DELDD+17, DELDD+24, GAP+5~, DELFIL+2~, DELFIL+11, DELFIL+19, DELFIL+23*, DELFIL+24, DELFIL+25 , DELFIL+27, LOG+1~
Z	EN+1~

Customize PDF page

Package: Scheduling

Routine: SCCVDEL

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: