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

Package: VA FileMan

Routine: DIC0


Information

DIC0 ;SFISC/TKW-Lookup routine utilities called by DIC ;16JAN2011

Source Information

Source file <DIC0.m>

Entry Points

Name Comments DBIA/ICR reference
D ; Reset back to starting index for lookup.
SETVAL ; If custom lookup routine (like MTLU) comes in to entry point after ASK, we need to set up the lookup values.
INIT ; Initialize variables at all entry points in ^DIC.
CHKVAL ; Check lookup values input by user.
CHKVAL1(DIXNO,DIVAL,DIFLAGS,DIC0,DIALLVAL) ; Check for errors with values, flags,index.
CHKVAL2(DIXNO,DIVAL,DIC0,DDS) ; Check lookup values for control characters or too long.
KILL2
KILL1
GETFILE(DIC,DIFILE,DIENS) ; Return file number, global references, IEN string and KEY fields data.
SETIEN(DIC,DIFILE,DIENS) ; Set DIENS from global root
GETP(DISUB) ; Return DIC("P") for a subfile DIFILE.
DSPH ; Display name of indexed fields when DIC(0)["T" (called from DIC1 & DIC2)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,$$EZBLD^DIALOG(DIERROR)
  • Line Location: CHKVAL1+11
Function Call: WRITE
  • Prompt: !,$$EZBLD^DIALOG(DIER)
  • Line Location: CHKVAL2+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPH+2
Function Call: WRITE
  • Prompt: ?I
  • Condition for execution: I
  • Line Location: DSPH+2
Function Call: WRITE
  • Prompt: " Lookup: "
  • Line Location: DSPH+3
Function Call: WRITE
  • Prompt: $P(I,U)_" "
  • Line Location: DSPH+4
Function Call: WRITE
  • Prompt: DINDEX(I,"PROMPT")_$P(", ^",U,I<DINDEX("#"))
  • Line Location: DSPH+5
Info |  Source |  Entry Points |  Interaction Calls