Routine: GECSUFMS

Package	Total	Call Graph
Generic Code Sheet	4	DATA^GECSSGET ($$ADD,SETCS,SETSTAT)^GECSSTAA REBUILD^GECSUFM1 $$ACOUNTER^GECSUNUM
VA FileMan	2	DD^%DT NOW^%DTC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 27

Package	Total	Caller Graph
IFCAP	14	PRCB8A PRCB8A1 PRCB8A2 PRCB8B PRCFDA2 PRCFFU PRCFFU8 PRCH8A PRCOVRQ PRCOVRQ1 PRCOVTST PRCPSFIV PRCPSFSV PRCUFCE
Accounts Receivable	11	PRCACPV PRCAFBD PRCAFBDM PRCAFWO PRCARFD1 RCXFMSCR RCXFMSSV RCXFMST1 RCXFMSTX RCXFMSW1 RCXFMSWR
Engineering	1	ENFAXMT2
Generic Code Sheet	1	GECSXBL1

Entry Points

Name	Comments	DBIA/ICR reference
CONTROL(SYSTEM,STATION,DOCUMENT,TRANCODE,SECCODE,MODFLAG,FCPFLAG,DESCRIPT,COMMDATE)	; return fms control segment ; system = "A" for ar, "I" for ifcap, "E" for eng, "C" for create doc ; station = 3 digit station number ; document = source document [sta-po####xx] where xx=partial (opt) ; trancode = MO, SV, etc for class = DOC ; = VR for vendor requests ; seccode = security 1 code (usually '10 ') ; modflag = 1 for modification document (batch number auto gen) ; fcpflag = Y if transaction has updated ifcap fcp balance ; use only for tran-code AR, CR, IV, MO, SA, ST ; descript = description of event ; return gecsfms("ctl"), gecsfms("bat"), gecsfms("doc")	ICR #1108 Status: Active Usage: Controlled Subscription
GCOMDT
TRANSMIT	; transmit fms document from file 2100 immediately without batching ; called from gecsxbl1 routine

Name

Comments

DBIA/ICR reference

CONTROL(SYSTEM,STATION,DOCUMENT,TRANCODE,SECCODE,MODFLAG,FCPFLAG,DESCRIPT,COMMDATE)

; return fms control segment
; system = "A" for ar, "I" for ifcap, "E" for eng, "C" for create doc
; station = 3 digit station number
; document = source document [sta-po####xx] where xx=partial (opt)
; trancode = MO, SV, etc for class = DOC
; = VR for vendor requests
; seccode = security 1 code (usually '10 ')
; modflag = 1 for modification document (batch number auto gen)
; fcpflag = Y if transaction has updated ifcap fcp balance
; use only for tran-code AR, CR, IV, MO, SA, ST
; descript = description of event
; return gecsfms("ctl"), gecsfms("bat"), gecsfms("doc")

ICR #1108

Status: Active

Usage: Controlled Subscription

GCOMDT

TRANSMIT

; transmit fms document from file 2100 immediately without batching
; called from gecsxbl1 routine

External References

Name	Field # of Occurrence
DD^%DT	GCOMDT
NOW^%DTC	GCOMDT
DATA^GECSSGET	GCOMDT+11
$$ADD^GECSSTAA	GCOMDT+25, GCOMDT+49
SETCS^GECSSTAA	TRANSMIT+6
SETSTAT^GECSSTAA	TRANSMIT+8
REBUILD^GECSUFM1	GCOMDT+14
$$ACOUNTER^GECSUNUM	GCOMDT+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"STACK FILE ENTRY: ",STACK,?53,"QUEUED FOR TRANSMISSION" Line Location: TRANSMIT+12
Function Call: WRITE	Prompt: !?5,"document header automatically created:",!,GECSFMS("CTL") Line Location: TRANSMIT+13
Function Call: WRITE	Prompt: !,GECSFMS("BAT") Line Location: TRANSMIT+14
Function Call: WRITE	Prompt: !,$G(GECSFMS("DOC")) Line Location: TRANSMIT+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	GCOMDT+3
^GECS(2100 - [#2100]	TRANSMIT+3, TRANSMIT+6, TRANSMIT+11*
^GECS(2100.1 - [#2100.1]	GCOMDT+18, GCOMDT+26, GCOMDT+50, TRANSMIT+10

Label References

Name	Line Occurrences
CONTROL	TRANSMIT+5

Naked Globals

Name	Field # of Occurrence
^(	TRANSMIT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CONTROL+12~, GCOMDT, GCOMDT+2, GCOMDT+18, TRANSMIT+2~, TRANSMIT+6*
%H	CONTROL+12~
%I	CONTROL+12~
BATNUMB	CONTROL+12~, GCOMDT+19*, GCOMDT+21, GCOMDT+39
COMMDATE	CONTROL~, GCOMDT+1
CTLDATA	TRANSMIT+2~, TRANSMIT+3*, TRANSMIT+5
DA	GCOMDT+15, TRANSMIT+2~, TRANSMIT+6
DATE	CONTROL+12~, GCOMDT*, GCOMDT+3, GCOMDT+5
DESCRIPT	CONTROL~, GCOMDT+14, GCOMDT+25, GCOMDT+49
DOCUMENT	CONTROL~, CONTROL+17*, GCOMDT+8, GCOMDT+21, GCOMDT+47
FCPFLAG	CONTROL~, GCOMDT+14, GCOMDT+41*, GCOMDT+47
FY	CONTROL+12~, GCOMDT+3, GCOMDT+4, GCOMDT+5, GCOMDT+6, GCOMDT+7, GCOMDT+18
GECOMDT	CONTROL+12~, GCOMDT, GCOMDT+1, GCOMDT+3, GCOMDT+5, GCOMDT+6, GCOMDT+7, GCOMDT+21
>> GECS("CSDA"	TRANSMIT+3, TRANSMIT+6, TRANSMIT+11
>> GECS("SITE"	TRANSMIT+5
GECSDATA	GCOMDT+10!, GCOMDT+12, GCOMDT+14, GCOMDT+16!
GECSFMS	CONTROL+13!, TRANSMIT+2~
GECSFMS("BAT"	GCOMDT+39*, GCOMDT+49, TRANSMIT+14
GECSFMS("CTL"	GCOMDT+21*, GCOMDT+25, GCOMDT+49, TRANSMIT+13
GECSFMS("DA"	GCOMDT+15, GCOMDT+25, GCOMDT+49*, TRANSMIT+6, TRANSMIT+8, TRANSMIT+10
GECSFMS("DOC"	GCOMDT+45, GCOMDT+47, GCOMDT+49, TRANSMIT+15
GECSTEST	GCOMDT+12*, GCOMDT+15, GCOMDT+16!
H	CONTROL+12~, GCOMDT+2*
M	CONTROL+12~, GCOMDT+2*
MODFLAG	CONTROL~, GCOMDT+12, GCOMDT+18, GCOMDT+39
S	CONTROL+12~, GCOMDT+2*
SECCODE	CONTROL~, CONTROL+19, GCOMDT+14, GCOMDT+21, GCOMDT+43, GCOMDT+44*, GCOMDT+47
SEGMENT	CONTROL+12~, GCOMDT+29, GCOMDT+30, GCOMDT+31, GCOMDT+32, GCOMDT+33, GCOMDT+34, GCOMDT+35, GCOMDT+36, GCOMDT+37* , GCOMDT+39, GCOMDT+41, GCOMDT+44, GCOMDT+47
STACK	CONTROL+12~, GCOMDT+8, GCOMDT+11, GCOMDT+18, GCOMDT+19, GCOMDT+26, GCOMDT+50, TRANSMIT+2~, TRANSMIT+10*, TRANSMIT+11 , TRANSMIT+12
STATION	CONTROL~, CONTROL+16*, GCOMDT+18, GCOMDT+21
SYSTEM	CONTROL~, CONTROL+14, CONTROL+15*, GCOMDT+21, GCOMDT+47
SYSTEMI	CONTROL+12~, CONTROL+14*, GCOMDT+14
TIME	CONTROL+12~, GCOMDT+1, GCOMDT+2, GCOMDT+21
TRANCLAS	CONTROL+12~, GCOMDT+20*, GCOMDT+21, GCOMDT+24
TRANCODE	CONTROL~, CONTROL+18, GCOMDT+8, GCOMDT+20, GCOMDT+21, GCOMDT+29, GCOMDT+30, GCOMDT+31, GCOMDT+32, GCOMDT+33 , GCOMDT+34, GCOMDT+35, GCOMDT+36, GCOMDT+37, GCOMDT+47, GCOMDT+49
X	CONTROL+12~, GCOMDT, GCOMDT+3, GCOMDT+18*
Y	CONTROL+12~, GCOMDT, GCOMDT+2, GCOMDT+3

Customize PDF page

Package: Generic Code Sheet