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

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 4 $$FIND1^DIC  ($$KEYVAL,FILE,UPDATE)^DIE  CLEAN^DILF  ^DIR  
Communications Service Library 1 VENQ^CSLVQ  

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

Package Total Caller Graph
Beneficiary Travel 1 DGBT LOCAL VENDOR ADD  
Incomplete Records Tracking 1 DGJCSL  

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

    External References

    Name Field # of Occurrence
    VENQ^CSLVQ ASK+1
    $$FIND1^DIC EDIT+5
    $$KEYVAL^DIE ASK+9
    FILE^DIE EDIT+9, ASK2+19
    UPDATE^DIE NEW+4
    CLEAN^DILF ASK+12, BAD+2
    ^DIR CSLASK+5

    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
    Routine Call
    • DIC
    • Line Location:
      • EDIT+5
    Routine Call
    • DIE
    • Line Location:
      • ASK+9
    Routine Call
    • DIE
    • Line Location:
      • EDIT+9
      • ASK2+19
    Routine Call
    • DIE
    • Line Location:
      • NEW+4
    Routine Call
    • DIR
    • Line Location:
      • CSLASK+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DGBT(392.31 - [#392.31] FIND1^DIC

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" STAND+2
    ^DG(43 - [#43] ADD+1
    ^DGBT(392.31 - [#392.31] PREV+5, PREV+6

    Label References

    Name Line Occurrences
    $$CSLASK ASK2
    $$CSLIEN ASKS, ASK2+6
    ASK ASK+3
    ASK2 ASK2+6
    ASKS ASKS+2
    BAD ASK+4, ASK+11, NEW+1, EDIT+6, EDIT+10
    FLDBLD ASK+5
    STAND ADD+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DGBTFLD CSLIEN+2~
    DGBTFLD( ASK+8, NEW+2, NEW+3, EDIT+7, EDIT+8, FLDBLD+2*
    DGBTI CSLIEN+2~, ASK+7*, ASK+8, NEW+2*, NEW+3, EDIT+7*, EDIT+8, FLDBLD+1*
    DGBTLINE CSLIEN+2~, FLDBLD+1*, FLDBLD+2
    DGBTV PREV+4~, PREV+6*, PREV+7, AFTER~, AFTER+6, ASK2+1
    DGBTX AFTER~, AFTER+6, ASK2+1
    DIERR CSLIEN+2~, NEW+1, EDIT+10, AFTER+7~, ASK2+20
    DIERR("DIERR" ASK+11
    DIR CSLASK+2~, AFTER+7~
    DIR("A" CSLASK+3*
    DIR("B" CSLASK+4*
    DIR(0 CSLASK+4*
    >> DIRUT CSLASK+5
    FDA ASK+7~
    FDA( ASK+8*, NEW+3*, EDIT+3, EDIT+4
    FDAIEN ASK+7~
    FDAIEN(1 NEW+1
    FDATA AFTER+7~
    FDATA( ASK2+16*
    FDATA(392 ASK2+12*
    FDATA(680 ASK2+14*
    FDATA(681 ASK2+18*
    FILE AFTER~, ASK2+11, ASK2+13, ASK2+15, ASK2+17
    IEN AFTER~, ASK2+12, ASK2+14, ASK2+16, ASK2+18
    OUT CSLIEN+2~, ASK*, ASK+1, ASK+2, ASK+3!
    OUT( ASK+8, NEW+3, EDIT+8
    OUT("" ASK+2
    OUT("ERROR" ASK+3
    OUT("NAME" ASK+4
    OUT("NUMBER" ASK+4
    OUT("SITE_CODE" ASK+4
    U PREV+6
    VAL EDIT+1~, EDIT+5, EDIT+7!
    VAL( EDIT+8*
    VAL(1 EDIT+3*
    VAL(2 EDIT+4*
    X STAND+1~, STAND+2*, AFTER+7~
    Y CSLASK+2~, CSLASK+6, ASK+9*, ASK+11, NEW+1, EDIT+5*, EDIT+6, EDIT+8, EDIT+11, STAND+1~
    , ASKS*, ASKS+1, PREV~, PREV+5, PREV+6*, AFTER+7~, ASK2*, ASK2+1, ASK2+2, ASK2+6*
    , ASK2+7, ASK2+12, ASK2+14, ASK2+16, ASK2+18, ASK2+20

    Marked Items

    Name Field # of Occurrence
    $T(FLDS+DGBTI FLDBLD+1
    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