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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZISC  $$FMTE^XLFDT  $$DIV4^XUSER  EN^XUTMDEVQ  
VA FileMan 3 NOW^%DTC  EN^DIQ1  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
DSS Extracts 1 ECXPURG  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC PRT+1
^%ZISC QUIT+3
EN^DIQ1 PRT+11
^DIR ASK1+3, ASK2+7, ASK2+16, ASK3+9, QUIT+1, HDR+2, DATES+13, DATES+15, ASK4+7, CBOCCHK+9
$$FMTE^XLFDT ASK3+3, PRT+4, PRT+5, PRT+6, PRT+8, DATES+12, ASK4+1
$$DIV4^XUSER ASK2+4
EN^XUTMDEVQ ASK1+7

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
Routine Call
  • DIR
  • Line Location:
    • ASK1+3
    • ASK2+7
    • ASK2+16
    • ASK3+9
    • QUIT+1
    • HDR+2
    • DATES+13
    • DATES+15
    • ASK4+7
    • CBOCCHK+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRT+1
^ECX(727 - [#727] GET+3, PRT+3, PRT+8, PRT+9, DIVCHK+4, CBOCCHK+4, CBOCCHK+6
^ECX(728 - [#728] CBOCCHK+7
^ECX(728.113 - [#728.113] DATES+3, DATES+4
^ECX(728.904 - [#728.904] DATES+6, DATES+7
^TMP("ECXPURG" GET+1!, GET+4*, GET+5, DONE!, PRT+2, PRT+3
^VBEC(6002.03 - [#6002.03] DATES+9, DATES+10

Label References

Name Line Occurrences
ASK2 ASK1+4, ASK1+7
CBOCCHK ASK2+19
DATES ASK4+8
DIVCHK ASK2+20
DONE GET+5, ASK1+3, ASK2+10, ASK2+16, ASK3+9, ASK3+12
GET ASK2+18, ASK2+19, ASK2+21, ASK3+10
HDR PRT+1, PRT+2, PRT+12
QUIT PRT+14

Naked Globals

Name Field # of Occurrence
^(0 GET+3, PRT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRT+1
DA PRT+10*, PRT+11!
DA(1 CBOCCHK+5*, CBOCCHK+7
DIC PRT+10*, PRT+11!
DIQ PRT+10*, PRT+11!
DIQ(0 PRT+10*
DIR ASK1+2!, ASK1+3!, ASK2+7!, ASK2+16!, ASK3+4!, ASK3+9!, QUIT+1!, HDR+2!, DATES+13!, DATES+15!
, ASK4+2!, ASK4+7!, CBOCCHK+8!, CBOCCHK+9!
DIR("?" ASK2+15*, ASK3+5*, ASK3+6*, ASK3+7*, ASK3+8*, ASK4+3*, ASK4+4*, ASK4+5*, ASK4+6*
DIR("A" ASK1+2*, ASK2+7*, ASK2+14*, ASK3+4*, DATES+13*, DATES+15*, ASK4+2*, CBOCCHK+8*
DIR("B" ASK1+2*, ASK3+4*, ASK4+2*, CBOCCHK+8*
DIR(0 ASK1+2*, ASK2+7*, ASK2+14*, ASK3+4*, QUIT+1*, HDR+2*, DATES+13*, DATES+15*, ASK4+2*, CBOCCHK+8*
>> DIRUT ASK1+3, ASK2+16, ASK3+9, DATES+13, DATES+15, ASK4+7
DR PRT+10*, PRT+11!
DUZ ASK2+4
>> EC GET+3*, GET+4, PRT+3*, PRT+4, PRT+5, PRT+6, PRT+7
ECBDT GET+1!, DATES+1!, DATES+14*, DATES+15!, ASK4+1, ASK4+7!
ECCHK ASK2+3~, ASK2+4*, ASK2+5, ASK2+10
>> ECDT PRT+4*, PRT+13
ECEDT GET+1!, DATES+1!, DATES+16*, ASK4+1, ASK4+7!
>> ECEX GET+3*, GET+4, PRT+3*, PRT+8, PRT+9, PRT+13
>> ECFR PRT+5*, PRT+13
ECLOC GET+1!, ASK1+3!, ASK2+8!, ASK2+16!, ASK2+18, ASK2+19, ASK2+20, ASK2+21, ASK3+9!, DIVCHK~
, CBOCCHK~
ECLOC( GET+4*, ASK2+17!, ASK3+1, ASK3+2, ASK3+3, DIVCHK+3, DIVCHK+4!, CBOCCHK+3, CBOCCHK+9!
ECLOC(" " ASK2+13
ECLOC(0 ASK2+13
ECLPDA DIVCHK+1~, DIVCHK+2*, DIVCHK+3*, DIVCHK+4
>> ECRC PRT+7*, PRT+13
ECTMP ASK2+3~, ASK2+4, ASK2+20, DIVCHK~
ECTMP( DIVCHK+4
>> ECTO PRT+6*, PRT+13
>> ECTRN PRT+8*, PRT+13
>> ECTYP PRT+2*, PRT+3
ECXDIC PRT+10!, PRT+11!
ECXDIC(4 PRT+11
>> ECXDIV PRT+9*, PRT+10, PRT+11*, PRT+13
>> ECY DATES+2, DATES+5, DATES+8, DATES+12, ASK4+1
>> HDT PRT+1*, HDR+3
HI GET+1!, ASK2+13*, ASK2+14, DATES+1!, DATES+4*, DATES+7*, DATES+10*, DATES+12, DATES+13!, DATES+15!
IOF QUIT+3, HDR+3, DATES+12
IOSL PRT+2, PRT+12
IOST QUIT+1, QUIT+3, HDR+1, HDR+2, HDR+3
>> JJ ASK2+17*, ASK3+1*, ASK3+2, ASK3+3, QUIT+2*, HDR+1*
JZ ASK2+3~, ASK2+17*
>> LN PRT+1*, HDR+4
LO GET+1!, ASK2+13*, ASK2+14, DATES+1!, DATES+4*, DATES+7*, DATES+10*, DATES+11, DATES+12, DATES+13!
, DATES+15!
LOOPDA CBOCCHK+1~, CBOCCHK+2*, CBOCCHK+3*, CBOCCHK+4, CBOCCHK+6, CBOCCHK+7, CBOCCHK+9
>> PG PRT+1*, HDR+2, HDR+3*
>> POP ASK1+7
>> QFLG GET+2*, QUIT+1, PRT+1*, PRT+2, PRT+3, PRT+12, HDR+2*
>> SS QUIT+2*, HDR+1*
U GET+4, ASK3+2, ASK3+3, PRT+4, PRT+5, PRT+6, PRT+7, PRT+9, DIVCHK+4, CBOCCHK+6
X ASK2+7!
Y ASK1+4, ASK2+7!, ASK2+17*, ASK3+10, PRT+1*, HDR+2, DATES+14, DATES+16, ASK4+8, CBOCCHK+9
YYYMMDD CBOCCHK+1~, CBOCCHK+6*, CBOCCHK+7
>> ZTQUEUED QUIT+3
>> ZTREQ QUIT+3*
ZTSAVE ASK1+6!, ASK1+7
ZTSAVE("^TMP(""ECXPURG"",$J," ASK1+6*
ZTSK DONE!
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 |  Naked Globals |  Local Variables |  All