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

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 7 ^%DT  FILE^DICN  FIELD^DID  (,IX)^DIK  $$GET1^DIQ  EN^DIQ1  ^DIR  
DSS Extracts 4 CHK^ECXDIVIV  ^ECXKILL  $$ECXYM^ECXUTL  $$FISCAL^ECXUTL1  
Kernel 3 (,STAT)^%ZTLOAD  ($$FMADD,$$FMTE,$$HDIFF,$$HTE)^XLFDT  $$REPEAT^XLFSTR  
Inpatient Medications 1 ALL^PSJ59P5  
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: 26

Package Total Caller Graph
DSS Extracts 26 ECXADM  ECXBCM  ECXDENT  ECXEC  ECXLABN  ECXLABO  ECXLABR  ECXLBB  
ECXLBB1  ECXMOV  ECXMTL  ECXNURS  ECXNUT  ECXOPRX  ECXPAI  ECXPIVD  
ECXPIVDN  ECXPRO  ECXQSR  ECXRAD  ECXSCX  ECXSCXN  ECXSURG  ECXTRT  
ECXUD  ECXUTLA  

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

External References

Name Field # of Occurrence
^%DT EN+35, EN+38
^%ZTLOAD QUE+20
STAT^%ZTLOAD RUSURE+5
FILE^DICN EN+29
FIELD^DID EN+26
^DIK QKILL+5
IX^DIK START+10
$$GET1^DIQ RUSURE+4
EN^DIQ1 EN+12
^DIR PAUSE+5, RUSURE+14, RUSURE+19
CHK^ECXDIVIV QUE+8
^ECXKILL START+21
$$ECXYM^ECXUTL START+11
$$FISCAL^ECXUTL1 START+7
ALL^PSJ59P5 CHK2+2
$$FMADD^XLFDT QUE+23
$$FMTE^XLFDT EN+48, QUE+13, RUSURE+4
$$HDIFF^XLFDT MSG+9
$$HTE^XLFDT START+12, START+30, RUSURE+4
$$REPEAT^XLFSTR RUSURE+6
^XMD MSG+15, QMSG+11

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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+5
    • RUSURE+14
    • RUSURE+19

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" QUE+5
^ECX( START+33, QKILL+4
^ECX(727 - [#727] START+2, START+3*, START+4*, START+5*, START+6*, START+8*, START+9*, START+31*
^ECX(727.1 - [#727.1] QUE+26
^ECX(728 - [#728] EN+4, EN+9, EN+15, EN+20, EN+21, EN+22, EN+23, QUE+22*, START+17*, START+25*
, START+28, START+29*, START+35*
^ECX(728.113 - [#728.113] QUE+6, QUE+7
^TMP($J CHK2+3, CHK2+4, EXIT!
^XMB("NETNAME" MSG+2, QMSG+2
^XTMP("ECX EXTRACT" QUE+23*, QUE+24*, QUE+27*, START+18!, START+36!, RUSURE+3

Label References

Name Line Occurrences
$$RUSURE EN+6, EN+49
@( START+14
CHK2 QUE+9
EXIT CHK2+3
MSG START+34
NOIVP QUE+6, QUE+7
PAUSE QUE+29, NOIVP+4, CHK2+8
QKILL START+19
QMSG START+20
QUE EN+52

Naked Globals

Name Field # of Occurrence
^( EN+15, CHK2+3
^(0 START+2*, START+33*
^(19 CHK2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+35!*, EN+38!*
%DT("A" EN+35*, EN+38*
CHKFLG EN+1~, QUE+1~, QUE+3, QUE+4*, QUE+6*, QUE+7*, QUE+8, CHK2+3, CHK2+4*, CHK2+5
DA EN+11*, EN+12!, EN+30!, START+10*!, QKILL+1~, QKILL+5*
DA(1 EN+24*, EN+28
>> DATE QUE+7*
DD EN+29!
DIC EN+11*, EN+12!, EN+28*, EN+30!
DIC("P" EN+27*
DIC(0 EN+25*
DIK START+10*!, QKILL+1~, QKILL+5*
DINUM EN+28*, EN+30!
DIQ EN+11*, EN+12!
DIQ(0 EN+11*
DIR PAUSE+1~, PAUSE+5!, RUSURE+1~
DIR("A" RUSURE+13*, RUSURE+17*, RUSURE+18*
DIR("B" RUSURE+13*
DIR(0 PAUSE+5*, RUSURE+13*
DO EN+29!
DR EN+11*, EN+12!
DT QUE+23, START+3, CHK2+4
DUZ QUE+24, START+3
>> EC START+2*, START+3, START+4, START+5, START+6, START+8, START+9, START+10, START+11, CHK2+1*
, CHK2+3*, CHK2+4
>> EC23 START+11*, START+31, MSG+3, QMSG+3, QKILL+3
>> ECED EN+32*, EN+34*, EN+46*, EN+52, QUE+7, QUE+13, QUE+24, START+3, START+11, START+25
, START+29
>> ECEDN QUE+13*, QUE+19, MSG+4, QMSG+4
>> ECFILE QUE+3, START+5*, START+33, QMSG+8, QKILL+2, QKILL+4
>> ECGRP EN+14, EN+18, START+6, START+25, MSG+2, QMSG+2
>> ECHEAD EN+3*, QUE+12*, QUE+24, QUE+26, QUE+27, START+4, START+18, START+36, RUSURE+3, RUSURE+11
, RUSURE+12, RUSURE+13, RUSURE+17
>> ECINST EN+9*, EN+10, EN+11, EN+12*, MSG+1, QMSG+1
ECLAST START+33*!
>> ECLDT EN+15*, EN+16*, EN+22*, EN+31*, EN+47, EN+48
>> ECMSG(1 MSG+3*, QMSG+3*
>> ECMSG(10 MSG+13*
>> ECMSG(2 MSG+4*, QMSG+4*
>> ECMSG(3 MSG+5*, QMSG+5*
>> ECMSG(4 MSG+6*, QMSG+6*
>> ECMSG(5 MSG+7*, QMSG+7*
>> ECMSG(6 MSG+8*, QMSG+8*
>> ECMSG(7 MSG+9*, QMSG+9*
>> ECMSG(8 MSG+10*
>> ECMSG(9 MSG+12*
>> ECNODE EN+2*, EN+4, EN+15, QUE+11*, QUE+22, START+17, START+25, START+35
>> ECPACK EN+5, EN+8, EN+48, QUE+19, START+3, MSG+1, MSG+3, QMSG+1, QMSG+3
>> ECPIECE EN+4, EN+15, QUE+22, START+17, START+25, START+35
>> ECRN START+11*, START+31, START+33, MSG+7
>> ECRTN QUE+10*, START+14
>> ECSD EN+32*, EN+34*, EN+37*, EN+40, EN+43, EN+47, EN+52, QUE+7, QUE+13, QUE+24
, START+3, START+7
>> ECSD1 QUE+13*
>> ECSDN QUE+13*, QUE+19, MSG+3, QMSG+3
ECTOTAL START+33*!
>> ECVER QUE+10*, START+8
ECX QKILL+1~, QKILL+3*, QKILL+4
ECXDA1 EN+19~, EN+20*, EN+21, EN+22, EN+23, EN+24, START+27~, START+28*, START+29
>> ECXDATES EN+32, START+23
ECXDD EN+25!, EN+27!
ECXDD("SPECIFIER" EN+27
ECXDIC EN+11!, EN+12!
ECXDIC(4 EN+12
ECXIEN QUE+26~*, QUE+27
>> ECXINST EN+10*, EN+21, EN+22, EN+23, EN+28, START+9, START+29
>> ECXLOGIC START+7*, START+8, MSG+11, MSG+12
>> ECXNOW START+12*, MSG+9
>> ECXSTART START+12*, MSG+4, QMSG+4
>> ECXYM START+11*
EDDT RUSURE+1~, RUSURE+4*, RUSURE+6
FILE QKILL+1~, QKILL+2*, QKILL+5
IEN QKILL+1~, QKILL+4*, QKILL+5
IOF EN+8
IOST PAUSE+3
>> JJ PAUSE+4*
NODE RUSURE+1~, RUSURE+3*, RUSURE+4
OUT EN+1~, EN+33*, EN+34, EN+36*, EN+39*, EN+51*, PAUSE+2*, PAUSE+6*
>> QFLG START+1*, START+16
QUE RUSURE+1~, RUSURE+4*, RUSURE+8, RUSURE+9
RUN EN+1~, EN+4, EN+6*, EN+47, EN+49*
>> SS PAUSE+4*
STDT RUSURE+1~, RUSURE+4*, RUSURE+6
>> TIME START+30*, MSG+5
TYPE RUSURE~, RUSURE+2, RUSURE+18
U EN+4, EN+9, EN+15, EN+22, QUE+22, START+2, START+3, START+11, START+17, START+25
, START+29, START+31, START+33, START+35, MSG+3, QMSG+3, QKILL+3, QKILL+4, RUSURE+4
USER RUSURE+1~, RUSURE+4*, RUSURE+6
X EN+28*, EN+30!, EN+32*, QUE+5*, QUE+15*, QUE+16*, QUE+17*, QUE+18*, MSG+11*, MSG+12
, PAUSE+1~
>> XMDUZ MSG+1*, QMSG+1*
>> XMSUB MSG+1*, QMSG+1*
>> XMTEXT MSG+14*, QMSG+10*
XMY MSG+2!, QMSG+2!
XMY("G.DSS-" MSG+2*, QMSG+2*
Y EN+30!, EN+36, EN+37, EN+39, EN+40, EN+43, EN+46, PAUSE+1~, PAUSE+6, RUSURE+1~
, RUSURE+15, RUSURE+20
>> ZTDESC QUE+19*
>> ZTIO QUE+19*
>> ZTQUEUED START+37
>> ZTREQ START+37*
>> ZTRTN QUE+19*
ZTSAVE QUE+14!
ZTSAVE( QUE+15*, QUE+16*, QUE+17*, QUE+18*
ZTSK QUE+21, QUE+24, QUE+28, RUSURE+1~, RUSURE+4*, RUSURE+5, RUSURE+6
ZTSK("D" QUE+24
ZTSK(0 RUSURE+7
ZTSK(1 RUSURE+7, RUSURE+8, RUSURE+9, RUSURE+10, RUSURE+11, RUSURE+12
>> ZTSTOP START+17*
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