Routine: ECXPURG1

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
DSS Extracts	1	ECXPURG

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

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!

Customize PDF page

Package: DSS Extracts