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

Package: DSS Extracts

Routine: ECXPURG


Information

ECXPURG ;BIR/CML-Driver for Purge of DSS Data from Local Extract & Holding Files ; 10/8/08 4:25pm

Source Information

Source file <ECXPURG.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 ^DIK  ^DIR  
DSS Extracts 1 (,DATES)^ECXPURG1  
MailMan 1 ^XMD  

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

Package Total Caller Graph
DSS Extracts 2 ECXDELEF  ECXPURG  

Entry Points

Name Comments DBIA/ICR reference
ENDEL ;entry point from delete extract files option 144 CVW
EN ;entry point from the purge option
QUIT ;
QUE
PUR1 ; entry point for queued purge job of extract files
PUR2 ; entry point for queued purge job of IVP holding file (#728.113)
PUR3 ; entry point for queued purge job of UDP holding file (#728.904)
MAIL ;send mail message
MAIL1 ;send mail message
PUR4 ; entry point for queued purge job of VBECS holding file (#6002.03)

External References

Name Field # of Occurrence
^%ZTLOAD QUE+1
^DIK PUR1+7, PUR1+9, PUR1+12, PUR2+4, PUR3+3, PUR4+5
^DIR ENDEL+17, EN+15
^ECXPURG1 ENDEL+18
DATES^ECXPURG1 EN+17, EN+18, EN+19
$$FMTE^XLFDT MAIL+5
^XMD MAIL+8, MAIL1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"This option will allow you to delete an"
  • Line Location: ENDEL+1
Function Call: WRITE
  • Prompt: !,"individual or a range of DSS extracts files."
  • Line Location: ENDEL+2
Function Call: WRITE
  • Prompt: !!,"Care must be taken for several reasons:"
  • Line Location: ENDEL+3
Function Call: WRITE
  • Prompt: !!,"- You can delete ANY existing extract. This includes transmitted and non-"
  • Line Location: ENDEL+4
Function Call: WRITE
  • Prompt: !," transmitted extracts as well as extracts that did not run to completion"
  • Line Location: ENDEL+5
Function Call: WRITE
  • Prompt: !," due to errors or system problems."
  • Line Location: ENDEL+6
Function Call: WRITE
  • Prompt: !,"- Choosing a range of extracts could mean an excessively large number "
  • Line Location: ENDEL+7
Function Call: WRITE
  • Prompt: !," of records and be very CPU intensive. "
  • Line Location: ENDEL+8
Function Call: WRITE
  • Prompt: !," Please be sure to queue this deletion for off-hours and"
  • Line Location: ENDEL+9
Function Call: WRITE
  • Prompt: !," limit the number of extracts to be deleted per a single queued session."
  • Line Location: ENDEL+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDEL+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENDEL+13
Function Call: WRITE
  • Prompt: @IOF,!!,"This option will allow you to purge:"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"1. data that resides in the ""holding files"" for the IVP and UDP extracts."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"2. data that resides in the ""holding file"" for the VBECS extract"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"Care must be taken for several reasons:"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"- The IVP, UDP and VBECS ""holding"" files are intermediate files that"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !," are populated ""realtime"" by inpatient pharmacy and VBECS activity. "
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !," These files are then used to generate the IVP, UDP and VBECS extracts."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !," NOTE: The VBECS files CANNOT be regenerated."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !," Once it is purged for a date range, extracts can no longer be"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !," generated for that time period."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!?3,"<<This deletion should be queued to run during non-peak hours.>>",!
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !,"Request queued as Task #",ZTSK,".",!
  • Line Location: QUE+2
Routine Call
  • DIR
  • Line Location:
    • ENDEL+17
    • EN+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VBEC(6002.03 - [#6002.03] Classic Fileman Calls
^ECX(728.113 - [#728.113] Classic Fileman Calls
^ECX(728.904 - [#728.904] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX( PUR1+8, PUR1+11
^ECX(727 - [#727] PUR1+2, PUR1+13*
^ECX(728 - [#728] PUR1+5
^ECX(728.113 - [#728.113] PUR2+1, PUR2+2, PUR2+3
^ECX(728.904 - [#728.904] PUR3+1, PUR3+2
^VBEC(6002.03 - [#6002.03] PUR4+3, PUR4+4

Label References

Name Line Occurrences
MAIL PUR2+6, PUR3+5
MAIL1 PUR1+15, PUR4+7
QUE ENDEL+18, EN+17, EN+18, EN+19
QUIT ENDEL+17, EN+15, PUR1+15, PUR2+6, PUR3+5, PUR4+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X QUIT+1!
%Y QUIT+1!
DA PUR1+5*, PUR1+7!, PUR1+9*!, PUR1+12*!, PUR2+4*!, PUR3+3*!, PUR4+1~, PUR4+5*!
DA(1 PUR1+4*, PUR1+5, PUR1+6
DIK PUR1+6*, PUR1+7!, PUR1+9*!, PUR1+12*!, PUR2+4*!, PUR3+3*!, PUR4+1~, PUR4+5*!
DIR ENDEL+12!, ENDEL+13!, ENDEL+17!, EN+12!, EN+15!
DIR("A" ENDEL+13*, EN+14*
DIR("B" ENDEL+13*
DIR(0 ENDEL+13*, EN+13*
>> DIRUT ENDEL+17, EN+15
DT PUR1+13
DUZ PUR1+14, PUR4+6
EC QUIT+1!
ECBDT EN+17, EN+18, EN+19, QUIT+1!, PUR2+1, PUR3+1, MAIL+5, PUR4+2
>> ECDA PUR1+1*, PUR1+2, PUR1+5, PUR1+8, PUR1+11, PUR1+13
ECDATE QUIT+1!
ECDT QUIT+1!, PUR2+1*, PUR2+2, PUR2+3, PUR3+1*, PUR3+2, PUR4+1~, PUR4+2*, PUR4+3*, PUR4+4
ECEDT EN+17, EN+18, EN+19, QUIT+1!, PUR2+1, PUR3+1, MAIL+5, PUR4+2*, PUR4+3
ECEX QUIT+1!
>> ECFILE PUR1+2*, PUR1+3, PUR1+8, PUR1+9, PUR1+10*, PUR1+11, PUR1+12
ECFR QUIT+1!
>> ECJ PUR1+2*, PUR1+8*, PUR1+9, PUR1+10*, PUR1+11*, PUR1+12
ECLOC ENDEL+18, QUIT+1!
ECLOC( PUR1+1
ECMSG MAIL+1~, MAIL1+1~
ECMSG(1 MAIL+4*, MAIL1+4*
ECMSG(2 MAIL+5*, MAIL1+5*
ECMSG(3 MAIL+6*
>> ECOR PUR2+2*, PUR2+3
>> ECPT PUR2+1*, PUR2+2, PUR2+3
ECRC QUIT+1!
ECREC PUR2+3*, PUR2+4, PUR3+2*, PUR3+3, PUR4+1~, PUR4+4*, PUR4+5
ECTO QUIT+1!
ECTRN QUIT+1!
ECTYP QUIT+1!
ECXDIV QUIT+2!
ECY ENDEL+17*, EN+15*, EN+17, EN+18, EN+19, QUIT+1!
HDT QUIT+1!
HI QUIT+1!
IOF ENDEL+1, EN+1
JJ QUIT+1!
LN QUIT+1!
LO QUIT+1!
PG QUIT+1!
QFLG QUIT+1!
SS QUIT+1!
X QUIT+1!
XMDUZ MAIL+1~, MAIL+3*, MAIL1+1~, MAIL1+3*
XMSUB MAIL+1~, MAIL+2*, MAIL1+1~, MAIL1+2*
XMTEXT MAIL+1~, MAIL+7*, MAIL1+1~, MAIL1+6*
XMY PUR1+14!, PUR2+5!, PUR3+4!, PUR4+6!
XMY( PUR1+14*, PUR4+6*
XMY("G.DSS-IV" PUR2+5*
XMY("G.DSS-UD" PUR3+4*
Y ENDEL+17, ENDEL+18, EN+15, QUIT+1!
>> ZTDESC ENDEL+18*, EN+17*, EN+18*, EN+19*, MAIL+2, MAIL1+2
>> ZTIO ENDEL+18*, EN+17*, EN+18*, EN+19*
>> ZTQUEUED QUIT+3
>> ZTREQ QUIT+3*
>> ZTRTN ENDEL+18*, EN+17*, EN+18*, EN+19*
>> ZTSAVE("ECBDT" EN+17*, EN+18*, EN+19*
>> ZTSAVE("ECEDT" EN+17*, EN+18*, EN+19*
>> ZTSAVE("ECLOC(" ENDEL+18*
ZTSK QUIT+1!, QUE+2
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