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

Package: DSS Extracts

Routine: ECXTRANS


Information

ECXTRANS ;ALB/GTS,JAP,BIR/DMA-Extract from Local Editing Files and Transmit ;3/29/17 15:15

Source Information

Source file <ECXTRANS.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Kernel 5 (,$$S,STAT)^%ZTLOAD  ($$FMTE,$$HTE)^XLFDT  ($$REPEAT,$$RJ)^XLFSTR  MES^XPDUTL  $$DIV4^XUSER  
VA FileMan 5 ^DIC  FILE^DICN  FIELD^DID  EN^DIQ1  ^DIR  
DSS Extracts 3 ^ECXKILL  $$ECXYM^ECXUTL  ($$FISCAL,$$PAD)^ECXUTL1  
MailMan 3 ^XMD  MOVEMSG^XMXAPI  (CRE8BSKT,LISTBSKT)^XMXAPIB  

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 ECXTRANS  ECXTREX  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
AGAIN
START
SEND(ECXXMZ) ;send individual messages
SENDLOC ; send message to mail group 'DSS-ECGRP'
CLEAN ;clean-up
PAUSE ;pause screen
FODMN(DOMAIN)

External References

Name Field # of Occurrence
^%ZTLOAD AGAIN+79
$$S^%ZTLOAD START+32, CLEAN+5
STAT^%ZTLOAD AGAIN+45
^DIC AGAIN+5
FILE^DICN SEND+17
FIELD^DID SEND+14
EN^DIQ1 EN+19, AGAIN+15, START+6
^DIR EN+13, AGAIN+31, PAUSE+4
^ECXKILL CLEAN+4
$$ECXYM^ECXUTL START+15
$$FISCAL^ECXUTL1 AGAIN+17, START+11
$$PAD^ECXUTL1 START+12
$$FMTE^XLFDT AGAIN+30
$$HTE^XLFDT SENDLOC+1
$$REPEAT^XLFSTR AGAIN+9, AGAIN+12
$$RJ^XLFSTR START+10, START+37
^XMD SEND+11, SENDLOC+13
MOVEMSG^XMXAPI SEND+21
CRE8BSKT^XMXAPIB AGAIN+63
LISTBSKT^XMXAPIB AGAIN+59
MES^XPDUTL AGAIN+38, AGAIN+39, AGAIN+40, AGAIN+41, AGAIN+42
$$DIV4^XUSER EN+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Your user setup will only allow you to transmit extracts from the"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"following divisions:",!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !," ",$G(ECXDIC(4,DA,.01,"I"))
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,"If you can't select an extract, it is probably from another division.",!
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: AGAIN+6
Function Call: WRITE
  • Prompt: !!,ECXDIQ(727,ECDA,6,"E")_" Extract (#"_ECDA_")",?42,"Records: ",ECXDIQ(727,ECDA,5,"E")
  • Line Location: AGAIN+21
Function Call: WRITE
  • Prompt: !,"Generated on: ",ECXDIQ(727,ECDA,1,"E"),?42,"Start date: ",ECXDIQ(727,ECDA,3,"E")
  • Line Location: AGAIN+22
Function Call: WRITE
  • Prompt: !,"Division: ",$E(ECXDIQ(727,ECDA,15,"E"),1,26),?42,"End date: ",ECXDIQ(727,ECDA,4,"E")
  • Line Location: AGAIN+23
Function Call: WRITE
  • Prompt: !!,"The data was extracted using "_X_"fiscal year "_$E(ECXDIQ(727,ECDA,14,"I"),1,4)_" logic."
  • Line Location: AGAIN+25
Function Call: WRITE
  • Prompt: !!,"MailMan transmission of the "_ECXDIQ(727,ECDA,2,"E")_" extract is set to a"
  • Line Location: AGAIN+26
Function Call: WRITE
  • Prompt: !,"limit of 131,000 bytes per message. Each extract record ends with a ^~."
  • Line Location: AGAIN+27
Function Call: WRITE
  • Prompt: !!
  • Line Location: AGAIN+79
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+6
Routine Call
  • DIC
  • Line Location:
    • AGAIN+5
Routine Call
  • DIR
  • Line Location:
    • EN+13
    • AGAIN+31
    • PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^ECX(727 - [#727] Classic Fileman Calls,  FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX( START+17, START+18, START+29
^ECX(727 - [#727] AGAIN+7, AGAIN+28, AGAIN+33!, AGAIN+35, AGAIN+44, AGAIN+82*, START+3, START+4, START+7, SENDLOC+14*
, CLEAN+2!
^ECX(727.1 - [#727.1] AGAIN+35, AGAIN+36
^ECX(728 - [#728] EN+3, AGAIN+37, START+3
^TMP("XMERR" AGAIN+64!, SEND+22!
^TMP($J START+14!, START+27*, START+38*, START+40*, SEND+3*, SENDLOC+4*, SENDLOC+5*, SENDLOC+6*, SENDLOC+7*, SENDLOC+8*
, SENDLOC+9*, SENDLOC+10*, SENDLOC+11*, CLEAN+2!
^XMB("NETNAME" SENDLOC+3, FODMN+7

Label References

Name Line Occurrences
$$FODMN AGAIN+49, SEND+6
CLEAN START+32, START+42
PAUSE EN+8, EN+21, AGAIN+43, AGAIN+48, AGAIN+83
SEND START+36
SENDLOC START+42

Naked Globals

Name Field # of Occurrence
^("DIV" START+4
^("GRP" START+7
^("HEAD" START+7
^("TR" AGAIN+28
^("VER" START+9
^(0 START+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EN+18*, EN+19!, AGAIN+15*, START~, START+5*, START+6, SEND+1~
DA(1 SEND+15*, SEND+16
DD SEND+17!
DIC EN+2~, EN+18*, EN+19!, AGAIN*, START~, START+5*, SEND+1~, SEND+16*
DIC("A" AGAIN+2*
DIC("P" SEND+15*
DIC("S" AGAIN+3*
DIC("W" AGAIN+4*
DIC(0 AGAIN*, SEND+15*
DIE SEND+1~
DINUM SEND+1~, SEND+16*
DIQ EN+18*, EN+19!, AGAIN+15*, START~, START+5*
DIQ(0 EN+18*, AGAIN+15*, START+5*
DIR EN+1~, EN+13!, AGAIN+31!, PAUSE+4!
DIR("A" EN+13*, AGAIN+31*
DIR(0 EN+13*, AGAIN+31*, PAUSE+4*
DIRUT EN+2~
DO SEND+17!
DOMAIN FODMN~, FODMN+6*, FODMN+7*, FODMN+9, FODMN+10
DR EN+18*, EN+19!, AGAIN+15*, START~, START+5*
DT SENDLOC+14
DTOUT EN+2~
DUOUT EN+1~
DUZ EN+10, AGAIN+59, AGAIN+63, SEND+9, SEND+21, SENDLOC+3
ECAR1 START~, START+18*, START+28!
ECAR1( START+19, START+20*, START+21
ECAR2 START~, START+18*, START+23*, START+28!
ECAR2( START+18*, START+21*, START+22, START+23*, START+24*, START+25*, START+26, START+27
ECC1 START~, START+18*, START+19*, START+20, START+21
ECC2 START~, START+18*, START+21, START+22, START+23, START+24*, START+25
ECCHK EN+1~, EN+10*, EN+11, CLEAN+3!
ECDA EN+1~, AGAIN+15*, AGAIN+16, AGAIN+17, AGAIN+18, AGAIN+19, AGAIN+20, AGAIN+21, AGAIN+22, AGAIN+23
, AGAIN+24, AGAIN+25, AGAIN+26, AGAIN+28, AGAIN+33, AGAIN+35, AGAIN+44, AGAIN+78, AGAIN+82, START+3
, START+4, START+7, START+17, START+29, SEND+15, SENDLOC+4, SENDLOC+14, CLEAN+2, CLEAN+3!
ECDIVVR EN+1~, EN+16*, EN+17*, EN+18, CLEAN+3!
ECED START~, START+8*, START+15
ECF START~, START+7*, START+17, START+18, START+29
ECGPR START~
ECGRP START~, START+7*, SEND+2, SENDLOC+3
>> ECHD(1 START+15*, SEND+3
ECHEAD START~, START+7*, START+15, SEND+2, SENDLOC+4
>> ECIEN AGAIN+35*, AGAIN+36
ECINST START~, START+3*, START+4*, START+5, START+6*, START+15, SEND+2, SENDLOC+2
>> ECLN START+16*, START+27*, START+30*
ECMAX START+1~, START+16*, START+29
ECMAXR START+1~, START+16*, START+21, START+22
>> ECMS START+35*, SEND+2, SEND+3
ECMSN START+1~, START+16*, START+27, START+30*, START+35, SEND+2, SENDLOC+10
ECPACK START+1~, START+8*, START+13, SENDLOC+2, SENDLOC+4
>> ECPIECE AGAIN+36*, AGAIN+37
ECRE EN+1~, AGAIN*, AGAIN+34*, SENDLOC+5, CLEAN+3!
>> ECRN START+16*, START+25*, SENDLOC+9
ECSD EN+2~, AGAIN+20*, START+2~, START+8*, START+11
ECSIZ START+1~, START+16*, START+27*, START+29, START+30*
ECTMP EN+1~, EN+10, CLEAN+3!
ECTMP( EN+17
ECTYPE AGAIN+1~, AGAIN+35*, AGAIN+39
ECVER START+1~, START+9*, START+10*, START+15
ECX AGAIN+28*, AGAIN+30, AGAIN+31!
ECXDD SEND+1~
ECXDD("SPECIFIER" SEND+15
ECXDIC EN+18!, EN+19!, START+1~
ECXDIC(4 EN+19, START+6
ECXDIQ EN+1~, CLEAN+3!
ECXDIQ(727 AGAIN+16, AGAIN+17*, AGAIN+18*, AGAIN+19, AGAIN+20, AGAIN+21, AGAIN+22, AGAIN+23, AGAIN+24, AGAIN+25
, AGAIN+26
>> ECXLNCNT START+34*, START+38*, START+40
ECXLOGIC EN+2~, AGAIN+19*, START+2~, START+9*, START+11*, START+12*, START+15
ECXMAX CLEAN+3!
ECXMSG CLEAN+3!
>> ECXQUEUE EN+3*, EN+4, START+13*, SEND+4
ECXTREC EN+1~, AGAIN+7*, AGAIN+8, AGAIN+10, AGAIN+11
ECXXMZ START+34*, START+36, START+37, SEND~, SEND+12*
EXDT START+1~
FODMN EN+2~, AGAIN+49*, AGAIN+51, SEND+1~, SEND+6*, SEND+7, SEND+19
I START+1~, START+22*, START+23, START+24
IEN AGAIN+62~, AGAIN+63
IOST PAUSE+2
J START+1~, START+16*, START+17*, START+18, START+29
JJ EN+1~, PAUSE+3*
OUT EN+1~, EN+21, AGAIN+28, AGAIN+29*, AGAIN+32*, PAUSE+1*, PAUSE+5*, FODMN+5~, FODMN+8*, FODMN+9
, FODMN+11*, FODMN+12
SS EN+1~, PAUSE+3*
STR START+2~, START+34*, START+37*, START+38, START+39*, START+40
STRCNT START+2~, START+34*, START+37*, START+39*
SUB FODMN+5~, FODMN+10*, FODMN+11
>> TIME SENDLOC+1*, SENDLOC+5
TMPARR AGAIN+58~
TMPARR("XMLIST" AGAIN+60
U AGAIN+7, AGAIN+35, AGAIN+36, AGAIN+37, START+3, START+4, START+8
X EN+2~, EN+13!, AGAIN+24*, AGAIN+25, START+2~, START+8*, START+9*, START+23*, START+24, START+25*
, START+26*, START+27, SEND+1~, SEND+16*, SEND+21, FODMN+5~, FODMN+9*, FODMN+10
XMDUZ SEND+1~, SEND+3*, SENDLOC+2*, CLEAN+2!
XMERR AGAIN+62~, SEND+20~
XMSUB SEND+1~, SEND+2*, SENDLOC+2*, CLEAN+2!
XMTEXT SEND+1~, SEND+10*, SENDLOC+12*, CLEAN+2!
XMY SEND+1~, SEND+8!, SENDLOC+3!, CLEAN+2!
XMY( SEND+9*, SENDLOC+3*
XMY("G.DSS-" SENDLOC+3*
XMY("XXX@Q-" SEND+4*
XMZ SEND+1~, SEND+12, SEND+16, SEND+21, CLEAN+2!
Y EN+2~, EN+13!, AGAIN+6, AGAIN+7, AGAIN+15, AGAIN+32, SEND+1~, PAUSE+5
Z SEND+1~
>> ZTDESC AGAIN+78*
>> ZTIO AGAIN+77*
ZTREQ CLEAN+1*, CLEAN+5!
>> ZTRTN AGAIN+77*
>> ZTSAVE("ECDA" AGAIN+76*
>> ZTSAVE("ECRE" AGAIN+76*
>> ZTSAVE("ECXQUEUE" AGAIN+76*
ZTSK AGAIN+44*, AGAIN+45, AGAIN+46, AGAIN+47!, AGAIN+80, AGAIN+81, AGAIN+82!
ZTSK(0 AGAIN+45
ZTSK(1 AGAIN+45
>> ZTSTOP CLEAN+5*
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