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

Package: DSS Extracts

Routine: ECXTRAC


Information

ECXTRAC ;ALB/GTS,JAP,BIR/DMA,CML-Package Extracts for DSS ;5/28/24 10:00

Source Information

Source file <ECXTRAC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
QUE ;queue extract
NOIVP ;cannot generate ivp message
START ; entry when queued
MSG ; send message to mail group 'DSS-ECGRP'
QMSG ; send abort message to mail group 'DSS-ECGRP'
QKILL ;delete records created for any extract stopped at user request
CHK2 ;iv extract check - all active iv rooms to have a division
EXIT
PAUSE ;pause screen
RUSURE(TYPE) ;Allow user to override running node or bypass last date run checks

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Extract ",ECPACK," Information for DSS",!!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(ECPACK)>10
  • Line Location: EN+48
Function Call: WRITE
  • Prompt: "through ",$$FMTE^XLFDT(ECLDT),"."
  • Line Location: EN+48
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+49
Function Call: WRITE
  • Prompt: !!,?5,"There does not appear to be any data in the IV EXTRACT DATA"
  • Line Location: NOIVP+1
Function Call: WRITE
  • Prompt: !,?5,"file (#728.113) for the selected date range."
  • Line Location: NOIVP+2
Function Call: WRITE
  • Prompt: !!,?5,"The IVP extract cannot be generated."
  • Line Location: NOIVP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RUSURE+5
Function Call: WRITE
  • Prompt: "Task deleted, no further information available."
  • Line Location: RUSURE+7
Function Call: WRITE
  • Prompt: "ACTIVE - Task is scheduled to start on ",QUE
  • Line Location: RUSURE+8
Function Call: WRITE
  • Prompt: "ACTIVE - Task is currently running and started on ",QUE
  • Line Location: RUSURE+9
Function Call: WRITE
  • Prompt: "INACTIVE - Task ended abnormally"
  • Line Location: RUSURE+10
Function Call: WRITE
  • Prompt: !!,"**Before continuing, the ",$G(ECHEAD)," extract should be ",$S(ZTSK(1)=1:"deleted",1:"stopped")," in TaskManager.",!,"Failure to do so may result in multiple ",$G(ECHEAD)," extracts running simultaneously**."
  • Line Location: RUSURE+11
Function Call: WRITE
  • Prompt: !!,"Be sure any errors or issues have been addressed before overriding this status",!,"and starting another ",$G(ECHEAD)," extract."
  • Line Location: RUSURE+12
Function Call: WRITE
  • Prompt: !
  • Line Location: RUSURE+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] Classic Fileman Calls
^ECX(727 - [#727] Classic Fileman Calls
^ECX(728 - [#728] FIELD^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call