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 |  Marked Items  | All
Print Page as PDF
Routine: GECSUSEL

Package: Generic Code Sheet

Routine: GECSUSEL


Information

GECSUSEL ;WISC/RFJ-utility selection ;01 Nov 93

Source Information

Source file <GECSUSEL.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
Generic Code Sheet 8 GECSBATC  GECSEDIT  GECSENTR  GECSMUT1  GECSMUT2  GECSPURG  GECSREP0  GECSTRAN  

Entry Points

Name Comments DBIA/ICR reference
CODESHET(BATCH) ; select an existing code sheet
; batch = only select code sheets for batch
BATTYPE(DEFAULT,DONTASK) ; select batch type parameters
; default set to batch default in lookup, if set to '- GECO' it
; will ask to select a batch name containing '- GECO'
; dontask set to lookup on batch without asking
; return gecs("batch")=batch name
; gecs("batda")=batch da number
; gecs("sysid")=system identidier (ams, etc)
BATNOFMS ; select batch except for fms
BATCHECK ; check selected batch and set up variables
; y=selected batch; y(0)=data for selected batch
TRANTYPE(DEFAULT,DONTASK) ; ask transaction type-segment
; default set to segment default in lookup
; dontask set to lookup on segment without asking
; gecs("batda")=batch da (from file 2101.1)
; gecs("sysid")=system id (AMS)
; return gecs("tt")=segment name
; gecs("ttda")=segment da number
; gecs("edit")=edit template name
; gecsflag=1 to exit application
TTCHECK ; check selected transaction type and set up variables
; y=selected entry; y(0)=data for selected entry
BATCHSEL(GECSDICS) ; select batch number from file 2101.3
; gecsdics=screen
SCRBAT(GBTIEN) ; GEC*2*42 - GECS Batch Type Screen Inactive Entries
GEC2P41B ;;$Text list of batch types to be discontinued for SSNR

External References

Name Field # of Occurrence
^DIC CODESHET+8, BATTYPE+14, BATTYPE+23, TRANTYPE+16, TRANTYPE+22, BATCHSEL+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"BATCH ",BATCH," CANNOT BE FOUND IN FILE 2101.1."
  • Line Location: CODESHET+3
Function Call: WRITE
  • Prompt: !!,$S($D(^XUSEC("GECS SUPER EDITOR",+$G(DUZ))):"-- You can select all code sheets created for this batch type --",1:"-- You may only select code sheets which you have created --")
  • Line Location: CODESHET+4
Function Call: WRITE
  • Prompt: !,"Batch Type: ",GECS("BATCH")
  • Line Location: BATTYPE+17
Function Call: WRITE
  • Prompt: !,"Batch Type: ",GECS("BATCH")
  • Line Location: BATTYPE+26
Function Call: WRITE
  • Prompt: !,"*** FMS DOCUMENTS CANNOT BE SELECTED ***"
  • Line Location: BATNOFMS+5
Function Call: WRITE
  • Prompt: !,"SYSTEM ID FOR BATCH TYPE ",$P(Y,"^",2)," HAS NOT BEEN ENTERED."
  • Line Location: BATCHECK+2
Function Call: WRITE
  • Prompt: !,"THE BATCH TYPE FOR THIS TRANSACTION TYPE ",$P(Y,"^",2)," HAS NOT BEEN ENTERED."
  • Line Location: TTCHECK+3
Function Call: WRITE
  • Prompt: !,"THE INPUT TEMPLATE FOR THIS TRANSACTION TYPE ",$P(Y,"^",2)," IS MISSING."
  • Line Location: TTCHECK+4
Routine Call
  • DIC
  • Line Location:
    • CODESHET+8
    • BATTYPE+14
    • BATTYPE+23
    • TRANTYPE+16
    • TRANTYPE+22
    • BATCHSEL+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GECS(2101.1 - [#2101.1] CODESHET+3, SCRBAT+4, SCRBAT+5
^XUSEC("GECS SUPER EDITOR" CODESHET+4, CODESHET+5

Label References

Name Line Occurrences
BATCHECK BATTYPE+15, BATTYPE+24
BATTYPE BATNOFMS+4
TTCHECK TRANTYPE+17, TRANTYPE+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CODESHET+2~, BATTYPE+7~, TRANTYPE+9~, BATCHSEL+2~
%Y CODESHET+2~, BATTYPE+7~, TRANTYPE+9~, BATCHSEL+2~
BATCH CODESHET~, CODESHET+3
DEFAULT BATTYPE~, BATTYPE+13, BATTYPE+14, BATTYPE+21*, BATTYPE+22, TRANTYPE~, TRANTYPE+15, TRANTYPE+16, TRANTYPE+21
DIC CODESHET+2~, CODESHET+8*, BATTYPE+7~, BATTYPE+10*, TRANTYPE+9~, TRANTYPE+12*, BATCHSEL+2~, BATCHSEL+3*
DIC("A" CODESHET+8*, BATCHSEL+3*
DIC("B" BATTYPE+22*, TRANTYPE+21*
DIC("S" CODESHET+6*, CODESHET+7*, BATTYPE+20*, BATTYPE+21*, TRANTYPE+12*, BATCHSEL+4*
DIC(0 CODESHET+8*, BATTYPE+14*, BATTYPE+23*, TRANTYPE+16*, TRANTYPE+22*, BATCHSEL+3*
DONTASK BATTYPE~, BATTYPE+13, BATNOFMS+1~, BATNOFMS+3*, BATNOFMS+4, TRANTYPE~, TRANTYPE+15
DUZ CODESHET+4, CODESHET+5, CODESHET+6
GBTIEN SCRBAT~, SCRBAT+3, SCRBAT+4, SCRBAT+5
GECB SCRBAT+1~, SCRBAT+2*
GECBL SCRBAT+1~, SCRBAT+2*
GECBL( SCRBAT+2*, SCRBAT+5
>> GECS("BATCH" BATTYPE+9!, BATTYPE+16!, BATTYPE+17, BATTYPE+25!, BATTYPE+26, BATNOFMS+2!, BATNOFMS+6!, BATCHECK+3*
>> GECS("BATDA" BATTYPE+9!, BATTYPE+16!, BATTYPE+25!, BATNOFMS+2!, BATNOFMS+4, BATNOFMS+5!, BATNOFMS+6!, BATCHECK+3*, TRANTYPE+12
>> GECS("EDIT" TRANTYPE+11!, TTCHECK+5*
>> GECS("SEGDA" TRANTYPE+18
>> GECS("SYSID" BATTYPE+9!, BATTYPE+16!, BATTYPE+25!, BATNOFMS+2!, BATNOFMS+5, BATNOFMS+6!, BATCHECK+3*, TRANTYPE+21
>> GECS("TT" TRANTYPE+11!, TTCHECK+5*
>> GECS("TTDA" TRANTYPE+11!, TTCHECK+5*
GECSBADA CODESHET+2~, CODESHET+3*, CODESHET+7
GECSDICS BATCHSEL~, BATCHSEL+4
GECSFLAG TRANTYPE+11!, TRANTYPE+16*, TRANTYPE+18*, TRANTYPE+22*
GECSSUPR CODESHET+2~, CODESHET+5*
>> GECSSYS BATNOFMS+3, BATNOFMS+4
I SCRBAT+1~, SCRBAT+2*
>> SEGMENT TRANTYPE+21
X CODESHET+2~, BATTYPE+7~, BATTYPE+14*, TRANTYPE+9~, TRANTYPE+16*, BATCHSEL+2~
Y CODESHET+2~, CODESHET+9, CODESHET+10, BATTYPE+7~, BATTYPE+14, BATTYPE+23, BATCHECK+2, BATCHECK+3, TRANTYPE+9~, TRANTYPE+16
, TRANTYPE+22, TTCHECK+2, TTCHECK+3, TTCHECK+4, TTCHECK+5, BATCHSEL+2~, BATCHSEL+5, BATCHSEL+6
Y(0 BATCHECK+2, BATCHECK+3, TTCHECK+2, TTCHECK+3, TTCHECK+4, TTCHECK+5

Marked Items

Name Field # of Occurrence
$T(GEC2P41B+I SCRBAT+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 |  Marked Items  | All