Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SCCVDEL

Package: Scheduling

Routine: SCCVDEL


Information

SCCVDEL ;ALB/TMP - OLD SCHED VISITS FILE DELETE; [ 03/04/98 09:39 AM ]

Source Information

Source file <SCCVDEL.m>

Call Graph

Call Graph

Call Graph Total: 10

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Scheduling 5 SCCV CONV DELETE FILE DISPLAY  SCCV CONV DELETE FILE MENU  SCCV CONV DELETE FILES  SCCVDEL1  SCCVPAR  
Kernel 1 ^ORD(101  

Entry Points

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

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
  • DIE
  • Line Location:
    • LOG+32
Routine Call
  • DIR
  • Line Location:
    • DELDD+16
    • DELDD+23
    • DELFIL+9
    • DELFIL+17
Routine Call
  • VALM
  • Line Location:
    • EN+8

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All