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

Package: Generic Code Sheet

Routine: GECSTRAN


Information

GECSTRAN ;WISC/RFJ/KLD-transmit a batch ;01 Nov 93

Source Information

Source file <GECSTRAN.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Generic Code Sheet 4 ^GECSSITE  ($$LOCKSYS,UNLOCK)^GECSULOC  ($$BATCHSEL,BATNOFMS)^GECSUSEL  $$YN^GECSUTIL  
VA FileMan 3 DD^%DT  FILE^DICN  ^DIE  
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: 5

Package Total Caller Graph
Generic Code Sheet 2 GECS TRANSMIT  GECSCALL  
Kernel 1 ^DIC(19  
Prosthetics 1 RMPR GECS TRANSMIT  
Registration 1 DG GECS TRANSMIT  

Entry Points

Name Comments DBIA/ICR reference
RETRY ; if locked, come here to retry transmission
MAILMSG(BATCHNME,BATCHNUM,RECUSERS,MSGNUMBR,TOTALMSG)
UPDATE(DA)
SETMSG(DA,XMZ)

External References

Name Field # of Occurrence
DD^%DT RETRY+34
FILE^DICN SETMSG+4
^DIE UPDATE+2
^GECSSITE GECSTRAN+3
$$LOCKSYS^GECSULOC RETRY+4
UNLOCK^GECSULOC RETRY+8
$$BATCHSEL^GECSUSEL GECSTRAN+7
BATNOFMS^GECSUSEL GECSTRAN+4
$$YN^GECSUTIL RETRY+1
^XMD MAILMSG+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"CANNOT FIND BATCH NUMBER IN FILE 2101.3."
  • Line Location: GECSTRAN+8
Function Call: WRITE
  • Prompt: !,"RECEIVING USERS FOR THIS BATCH TYPE HAVE NOT BEEN ENTERED."
  • Line Location: GECSTRAN+15
Function Call: WRITE
  • Prompt: !!,"Transmission will be to the following:"
  • Line Location: GECSTRAN+16
Function Call: WRITE
  • Prompt: !?5,%
  • Line Location: GECSTRAN+17
Function Call: WRITE
  • Prompt: !!,"ANOTHER USER IS TRANSMITTING THE CODE SHEETS, TRY AGAIN IN A MINUTE"
  • Line Location: RETRY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RETRY+41
Function Call: WRITE
  • Prompt: !,"MESSAGE NUMBER: "
  • Line Location: RETRY+44
Function Call: WRITE
  • Prompt: GECSXMZ
  • Line Location: RETRY+46
Routine Call
  • DIE
  • Line Location:
    • UPDATE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GECS(2101.3 - [#2101.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4.2 - [#4.2] GECSTRAN+13
^GECS(2100 - [#2100] RETRY+15, RETRY+25*!, RETRY+35, RETRY+36
^GECS(2101.1 - [#2101.1] GECSTRAN+12, RETRY+11
^GECS(2101.3 - [#2101.3] GECSTRAN+8, RETRY+8, SETMSG+2, SETMSG+3
^TMP($J RETRY+14!, RETRY+17*, RETRY+20!, RETRY+22, RETRY+35*, RETRY+37*, RETRY+42

Label References

Name Line Occurrences
$$MAILMSG RETRY+45
RETRY RETRY+5
SETMSG RETRY+50
UPDATE RETRY+53

Naked Globals

Name Field # of Occurrence
^( GECSTRAN+12, RETRY+36
^(0 SETMSG+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GECSTRAN+2~, GECSTRAN+12*, GECSTRAN+17*, RETRY+32*, RETRY+35, RETRY+36*, MAILMSG+7~, MAILMSG+10*, SETMSG+1~
%DT UPDATE+1~
%X GECSTRAN+2~
BATCHNME MAILMSG~, MAILMSG+13
BATCHNUM MAILMSG~, MAILMSG+13
CODE GECSTRAN+2~, RETRY+36*, RETRY+37
D GECSTRAN+2~, GECSTRAN+12*, GECSTRAN+13, GECSTRAN+14, RETRY+15*, RETRY+16, UPDATE+1~
D0 UPDATE+1~, SETMSG+1~
DA GECSTRAN+2~, RETRY+15*, RETRY+17, RETRY+22*, RETRY+25, RETRY+35, RETRY+36, UPDATE~, SETMSG~, SETMSG+2
, SETMSG+3, SETMSG+4
DD SETMSG+1~
DI UPDATE+1~
DIC MAILMSG+7~, UPDATE+1~, UPDATE+2*, SETMSG+1~, SETMSG+4*
DIC(0 SETMSG+4*
DIE UPDATE+1~, UPDATE+2*
DLAYGO SETMSG+1~, SETMSG+4*
DOMAIN GECSTRAN+2~, GECSTRAN+13*, GECSTRAN+14
DQ UPDATE+1~
DR UPDATE+1~, UPDATE+2*
DT RETRY+34, RETRY+35
DUZ MAILMSG+11, UPDATE+2
GECS GECSTRAN+2~
GECS("BATCH" RETRY+45
GECS("BATDA" GECSTRAN+4, GECSTRAN+12, RETRY+11
GECS("SITE" GECSTRAN+3, GECSTRAN+5, RETRY+4
GECS("SITE1" GECSTRAN+5
GECS("SITECOM" GECSTRAN+5*
GECS("SYSID" RETRY+4
GECSBADA GECSTRAN+2~, GECSTRAN+7*, GECSTRAN+8, RETRY+8, RETRY+50, RETRY+53
GECSBATC GECSTRAN+2~, GECSTRAN+8*, RETRY+15, RETRY+31, RETRY+32, RETRY+35, RETRY+45
GECSCODE GECSTRAN+2~, RETRY+22*, RETRY+27*, RETRY+28*
GECSDICS GECSTRAN+2~, GECSTRAN+6*, GECSTRAN+7
GECSLINE GECSTRAN+2~, RETRY+21*, RETRY+28*, RETRY+31, RETRY+35*, RETRY+37*
GECSMAX GECSTRAN+2~, RETRY+11*, RETRY+28
GECSMSG GECSTRAN+2~, RETRY+21*, RETRY+28*, RETRY+35, RETRY+37, RETRY+39, RETRY+42*, RETRY+45
GECSSYDA GECSTRAN+2~, RETRY+4*, RETRY+5, RETRY+8
GECSTOTL GECSTRAN+2~, RETRY+39*, RETRY+45
GECSXMY GECSTRAN+2~, GECSTRAN+11!, GECSTRAN+15, RETRY+45
GECSXMY( GECSTRAN+14*, GECSTRAN+17
GECSXMZ GECSTRAN+2~, RETRY+45*, RETRY+46, RETRY+47, RETRY+50
MSGNUMBR MAILMSG~, MAILMSG+13
PRIORITY GECSTRAN+2~, RETRY+16*, RETRY+17, RETRY+22*
RECUSERS MAILMSG~
RECUSERS( MAILMSG+10
TOTALMSG MAILMSG~, MAILMSG+13
X GECSTRAN+2~, RETRY+33~, UPDATE+1~, SETMSG+1~, SETMSG+4*
XCNP MAILMSG+7~
>> XH RETRY+1*
XMDISPI MAILMSG+7~
XMDUZ MAILMSG+7~, MAILMSG+11*
>> XMSUB MAILMSG+13*
XMTEXT MAILMSG+7~, MAILMSG+13*
XMY MAILMSG+7~
XMY( MAILMSG+10*, MAILMSG+11*
XMZ MAILMSG+7~, MAILMSG+14!, MAILMSG+15, SETMSG~, SETMSG+4
>> XP RETRY+1*
Y GECSTRAN+2~, RETRY+33~, RETRY+34*, UPDATE+1~, SETMSG+1~
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