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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGBTCSL

Package: Beneficiary Travel

Routine: DGBTCSL


Information

DGBTCSL ;ALB/MRY- Local Vendor additions (COREFLS) ; 07/15/02@0900 AM

Source Information

Source file <DGBTCSL.m>

Entry Points

Name Comments DBIA/ICR reference
CSLASK() ; ask CoreFLS query
; output: Y ( 1 := "YES", 0 := "NO", <1 := ABORT )
CSLIEN() ; make CoreFLS query call returning IEN
; output: Y ( <1 := invalid IEN, >0 := IEN )
ASK
NEW ; process new entries
EDIT ; edit existing entries
FLDBLD ; build helpful field array DGBTFLD(field name) = field number
STAND ; Standalone Query call
  • ICR #3865
    • Status: Active
    • Usage: Private
    ASKS
    FLDS ;
    BAD ; unsuccessful query
    PREV(Y) ; called from OUTPUT TRANSFORM
    ; input: Y := internal value
    ; output: Y ;= converted to external value
    ; DGBTV:= internal value
  • ICR #3865
    • Status: Active
    • Usage: Private
    AFTER(FILE,IEN,DGBTX,DGBTV) ; called from template, or DR string
    ; input: IEN := Dzero variable
    ; DGBTX := entered response (X) from call
    ; DGBTV := previous value of entry
    ; output: -1 := no success with entry
    ; >0 := vendor updated
  • ICR #3865
    • Status: Active
    • Usage: Private
    ASK2
    ADD ; Standalone query

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"** COMMUNICATIONS SERVICE LIBRARY (CSL) PACKAGE NOT INSTALLED **"
    • Line Location: STAND+3
    Function Call: WRITE
    • Prompt: !!,"** CoreFLS national database query **"
    • Line Location: STAND+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKS+0
    Function Call: WRITE
    • Prompt: !,"** LOCAL VENDOR (#392.31) File updated. **"
    • Line Location: ASKS+1
    Function Call: WRITE
    • Prompt: !,"Unsuccessful Query!"
    • Line Location: BAD+1
    Function Call: WRITE
    • Prompt: !,"** CoreFLS Query **"
    • Line Location: ASK2+5
    Function Call: WRITE
    • Prompt: !,"** LOCAL VENDOR (#392.31) File updated. **"
    • Line Location: ASK2+20
    Function Call: WRITE
    • Prompt: !,"**COREFLS Vendor interface is not active."
    • Line Location: ADD+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DGBT(392.31 - [#392.31] FIND1^DIC
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call