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  | All
Print Page as PDF
Routine: GECSEDIT

Package: Generic Code Sheet

Routine: GECSEDIT


Information

GECSEDIT ;WISC/RFJ/KLD-create and edit code sheets ;13 Oct 98

Source Information

Source file <GECSEDIT.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Generic Code Sheet 9 ($$ASKREBAT,$$MARKBAT)^GECSMUT1  KILLCS^GECSPUR1  ^GECSSITE  $$COUNTER^GECSUNUM  ($$CODESHET,BATTYPE,TRANTYPE)^GECSUSEL  $$STATUS^GECSUSTA  (DELASK,ERROR,VARIABLE)^GECSUTIL  ASKTOBAT^GECSXBL1  
$$MAPDATA^GECSXBLD  
VA FileMan 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  

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 GECS CODE EDIT  GECS CREATE  GECS KEYPUNCH  GECSA  GECSCALL  GECSE1  GECSENTR  GECSXBL1  

Entry Points

Name Comments DBIA/ICR reference
NEWCS ; get new code sheet number
; return gecs("csname"),gecs("csda")
CSEDIT() ; edit code sheet gecs(csda)
; return -1 if code sheet not edit (for fms docs)
; return 0 if ^ entered
EDIT ; edit selected code sheet
AMIS ; ask amis month-year if system id = AMS
KEY ; keypunch a code sheet
; set variable gecsfkp=[input template]

External References

Name Field # of Occurrence
^DIC NEWCS+8
^DIE NEWCS+17, CSEDIT+8, CSEDIT+12, AMIS+2
$$GET1^DIQ EDIT+9, EDIT+10
^DIR EDIT+13
$$ASKREBAT^GECSMUT1 EDIT+23
$$MARKBAT^GECSMUT1 EDIT+23
KILLCS^GECSPUR1 GECSEDIT+12
^GECSSITE GECSEDIT+4, EDIT+2
$$COUNTER^GECSUNUM NEWCS+4
$$CODESHET^GECSUSEL EDIT+5
BATTYPE^GECSUSEL GECSEDIT+6, EDIT+3
TRANTYPE^GECSUSEL GECSEDIT+7
$$STATUS^GECSUSTA EDIT+16
DELASK^GECSUTIL GECSEDIT+13
ERROR^GECSUTIL EDIT+24
VARIABLE^GECSUTIL EDIT+6
ASKTOBAT^GECSXBL1 GECSEDIT+15, EDIT+21, EDIT+22
$$MAPDATA^GECSXBLD GECSEDIT+14, EDIT+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GECSEDIT+7
Function Call: WRITE
  • Prompt: " << CODE SHEET DELETED >>"
  • Line Location: GECSEDIT+12
Function Call: WRITE
  • Prompt: !!,"This code sheet has been assigned IDENTIFICATION NUMBER: ",$P(Y(0),"^")
  • Line Location: NEWCS+13
Function Call: WRITE
  • Prompt: !,"UNABLE TO CREATE CODE SHEET!"
  • Line Location: NEWCS+17
Function Call: WRITE
  • Prompt: !
  • Line Location: CSEDIT+5
Function Call: WRITE
  • Prompt: !!?5,"-- FMS Control Segment Data --"
  • Line Location: CSEDIT+8
Function Call: WRITE
  • Prompt: !!?5,"-- FMS Document Data --"
  • Line Location: CSEDIT+10
Function Call: WRITE
  • Prompt: !?4
  • Line Location: CSEDIT+11
Function Call: WRITE
  • Prompt: $S(%#10=0:$E(%),%#5=0:"+",1:".")
  • Line Location: CSEDIT+11
Function Call: WRITE
  • Prompt: !!,"Current Status: Warning - "_$$GET1^DIQ(2100.1,GECS("TRANSFMSDA"),3,"E"),!
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+16
Routine Call
  • DIC
  • Line Location:
    • NEWCS+8
Routine Call
  • DIE
  • Line Location:
    • NEWCS+17
    • CSEDIT+8
    • CSEDIT+12
    • AMIS+2
Routine Call
  • DIR
  • Line Location:
    • EDIT+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GECS(2100 - [#2100] Classic Fileman Calls
^GECS(2100.1 - [#2100.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GECS(2100 - [#2100] GECSEDIT+13, NEWCS+7

Label References

Name Line Occurrences
$$CSEDIT GECSEDIT+11, EDIT+18
AMIS GECSEDIT+10, EDIT+17
GECSEDIT KEY+3
NEWCS GECSEDIT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GECSEDIT+3~, GECSEDIT+11*, GECSEDIT+12, GECSEDIT+13, NEWCS+2~, CSEDIT+3~, CSEDIT+11*, EDIT+1~, EDIT+18*, EDIT+19
, EDIT+23*, AMIS+1~
%DT NEWCS+2~
%X CSEDIT+3~
%Y NEWCS+2~, CSEDIT+3~
ABORT EDIT+1~, EDIT+4*, EDIT+8, EDIT+9, EDIT+11*
COUNTER NEWCS+2~, NEWCS+4*, NEWCS+5, NEWCS+7*, NEWCS+8*, NEWCS+10*, NEWCS+11
D CSEDIT+3~, AMIS+1~
D0 NEWCS+2~, CSEDIT+3~, AMIS+1~
DA NEWCS+2~, NEWCS+15*, NEWCS+18, CSEDIT+3~, CSEDIT+6*, AMIS+1~, AMIS+2*
DI NEWCS+2~, CSEDIT+3~, AMIS+1~
DIC NEWCS+2~, NEWCS+8*, CSEDIT+3~, CSEDIT+6*, AMIS+1~, AMIS+2*
DIC(0 NEWCS+8*
DIE NEWCS+2~, NEWCS+15*, CSEDIT+3~, CSEDIT+6*, AMIS+1~, AMIS+2*
DIR EDIT+1~
DIR("A" EDIT+12*
DIR(0 EDIT+12*
DLAYGO NEWCS+2~, NEWCS+8*!
DONTASK GECSEDIT+3~, GECSEDIT+5*, GECSEDIT+6
DQ NEWCS+2~, CSEDIT+3~, AMIS+1~
DR NEWCS+2~, NEWCS+16*, CSEDIT+3~, CSEDIT+8*, CSEDIT+9*, AMIS+1~, AMIS+2*
GECS GECSEDIT+3~, EDIT+1~
GECS("BATCH" EDIT+4
GECS("BATDA" GECSEDIT+6, NEWCS+16, EDIT+3
GECS("CSDA" GECSEDIT+9, GECSEDIT+10, GECSEDIT+12, GECSEDIT+13, GECSEDIT+14, GECSEDIT+15, NEWCS+3!, NEWCS+18*, CSEDIT+6, EDIT+15
, EDIT+16, EDIT+17, EDIT+20, EDIT+21, EDIT+22, EDIT+23, AMIS+2, AMIS+3!
GECS("CSNAME" NEWCS+3!, NEWCS+18*
GECS("EDIT" GECSEDIT+8*, NEWCS+16, CSEDIT+9, CSEDIT+11
GECS("FY" NEWCS+4, NEWCS+5
GECS("PER" NEWCS+16
GECS("SITE" GECSEDIT+4, NEWCS+4, NEWCS+16, EDIT+2
GECS("SITE1" NEWCS+16
GECS("SYSID" GECSEDIT+10, NEWCS+4, NEWCS+16, CSEDIT+8, CSEDIT+10, EDIT+17, EDIT+22
GECS("TRANSFMSDA" EDIT+8, EDIT+9, EDIT+10
GECS("TT" NEWCS+16
GECS("TTDA" GECSEDIT+7
GECSBTYP EDIT+1~, EDIT+4*, EDIT+5
GECSDA EDIT+1~, EDIT+5*, EDIT+6, EDIT+24
GECSFKP GECSEDIT+8, KEY+2~, KEY+3*
GECSFLAG GECSEDIT+3~, GECSEDIT+7
GECSFXIT GECSEDIT+3~, GECSEDIT+13, CSEDIT+4!, EDIT+1~, EDIT+19
GECSNAME NEWCS+2~, NEWCS+14*, NEWCS+18
>> GECSSEGM GECSEDIT+7
GECSSTAT EDIT+1~, EDIT+16*, EDIT+21, EDIT+22, EDIT+23
>> GECSSYS GECSEDIT+5, GECSEDIT+6, EDIT+3
>> SITEM EDIT+7
X NEWCS+2~, NEWCS+5*, NEWCS+7, CSEDIT+3~, AMIS+1~
Y NEWCS+2~, NEWCS+8, NEWCS+10, NEWCS+15, NEWCS+17, CSEDIT+3~, CSEDIT+8, CSEDIT+13, AMIS+1~, AMIS+3
Y(0 NEWCS+13, NEWCS+14
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  | All