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

Package: VA FileMan

Routine: DIC1


Information

DIC1 ;SFISC/GFT/TKW-READ X, SHOW CHOICES ;29DEC2013

Source Information

Source file <DIC1.m>

Entry Points

Name Comments DBIA/ICR reference
B
PROMPT ; Prompt user for lookup values
GETFA(DIC,DO) ; Get file attributes
; DIC is open global reference, output same as documented in DO^DIC1.
DO ; GET FILE ATTR
  • ICR #10007
    • Status: Active
    • Usage: Supported
    EGP
    DO2
    P ; Add code to DIC("W") to display identifiers on pointed-to files
    W
    WOV
    RENUM ;
    DT
    Y ; Display a list of entries
    E
    BLDDSP(DS,DD,DINDXFL,DIYX,DIY,DICRS) ; Build display of index values
    GOT ; Set data for single entry selected by user.
    OK ;
    BAD
    MIX ;
  • ICR #10007
    • Status: Active
    • Usage: Supported

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: DST
    • Line Location: DT+1
    Function Call: WRITE
    • Prompt: !,$$EZBLD^DIALOG(8087,$S(DIC(0)["T":"'^^' to exit all lists,",1:""))
    • Line Location: Y+16
    Function Call: READ
    • Timeout: $S($D(DTIME):DTIME,1:300)
    • Line Location: Y+17
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: Y+18
    Function Call: WRITE
    • Prompt: !?4,$$EZBLD^DIALOG(8040),!
    • Line Location: OK+6
    Info |  Source |  Entry Points |  Interaction Calls