Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: GECSUFMS

Package: Generic Code Sheet

Routine: GECSUFMS


Information

GECSUFMS ;WISC/RFJ/KLD-fms utilities ;10/13/98

Source Information

Source file <GECSUFMS.m>

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

    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
    Info |  Source |  Entry Points |  Interaction Calls