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: ECXPURG1

Package: DSS Extracts

Routine: ECXPURG1


Information

ECXPURG1 ;BIR/CML-Purge of DSS Extract Files (CONTINUED) ;8/20/13 11:04

Source Information

Source file <ECXPURG1.m>

Entry Points

Name Comments DBIA/ICR reference
GET ;compile list of deletable extracts 144
ASK1 ;ask for print
ASK2 ;ask for extract range
ASK3
QUIT ;
DONE
PRT ;print list of extracts
HDR ;HEADER
DATES ;ask for date range for purge of holding files
ASK4 ; ask to confirm date range
DIVCHK(ECLOC,ECTMP) ;**Remove extracts from ECLOC that are for user's div.
CBOCCHK(ECLOC) ;**Check that CBOC report has been viewed prior to deleting

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"...one moment please"
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !!,"There are no extracts that can be deleted at this time."
  • Line Location: GET+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!!
  • Line Location: ASK1+5
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
  • Line Location: ASK1+8
Function Call: WRITE
  • Prompt: !,"You will not be able to select an extract that is not from your division.",!
  • Line Location: ASK2+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK2+16
Function Call: WRITE
  • Prompt: !!,"You have not chosen a valid extract number. Try again."
  • Line Location: ASK2+18
Function Call: WRITE
  • Prompt: !!,"You have not chosen a valid extract number. Try again."
  • Line Location: ASK2+21
Function Call: WRITE
  • Prompt: !!,"I will delete the following extract(s):"
  • Line Location: ASK3+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK3+4
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+2
Function Call: WRITE
  • Prompt: !!,ECTYP
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y!($E(IOST)="C")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"DELETABLE EXTRACTS",?72,"Page: ",PG,!,"Printed on ",HDT,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"FEEDER SYS",?12,"EXTRACT,",!,"EXTRACT #",?12,"DATE",?33,"FROM-TO",?48,"RECORD CNT",?60,"TRANSMIT DATE",?75,"DIV",!,LN
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"You have no data in the IVP holding file (file #728.113) to purge."
  • Line Location: DATES+3
Function Call: WRITE
  • Prompt: !!,"You have no data in the UDP holding file (file #728.904) to purge."
  • Line Location: DATES+6
Function Call: WRITE
  • Prompt: !!,"You have no data in the VBECS holding file (file #6002.03) to purge."
  • Line Location: DATES+9
Function Call: WRITE
  • Prompt: @IOF,!!,"This file currently holds ",$S(ECY="I":"IVP",ECY="U":"UDP",1:"VBECS")," data from <",$$FMTE^XLFDT(LO,"D"),"> to <",$$FMTE^XLFDT(HI,"D"),">."
  • Line Location: DATES+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+13
Function Call: WRITE
  • Prompt: !!,"I will purge the ",$S(ECY="I":"IVP",ECY="U":"UDP",1:"VBECS")," holding file from <",$$FMTE^XLFDT(ECBDT,"D"),"> to <",$$FMTE^XLFDT(ECEDT,"D"),">."
  • Line Location: ASK4+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK4+2

FileMan Files Accessed Via FileMan Db Call

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