Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SD(404.91 - [#404.91] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call