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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 9 LIST^DDSU  $$EZBLD^DIALOG  $$GETP^DIC0  GETFA^DIC1  Q^DIC2  ERR^DICF4  INDEX^DICUIX  ($$CREF,$$IENS,$$OREF)^DILF  
($$FILENUM,$$FNO)^DILIBF  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
VA FileMan 9 DIC  DIC0  DIC1  DIC2  DIC3  DICF  DICM  DICN0  
DICQ  

Entry Points

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

External References

Name Field # of Occurrence
LIST^DDSU CHKVAL2+12
$$EZBLD^DIALOG CHKVAL1+11, CHKVAL2+10, CHKVAL2+11
$$GETP^DIC0 INIT+2
GETFA^DIC1 INIT+3
Q^DIC2 INIT+2
ERR^DICF4 CHKVAL1+10
INDEX^DICUIX D+4, INIT+5
$$CREF^DILF GETFILE+2, GETFILE+16
$$IENS^DILF SETIEN+7
$$OREF^DILF GETFILE+2
$$FILENUM^DILIBF GETFILE+11
$$FNO^DILIBF SETIEN+2

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
Routine Call
  • DIALOG
  • Line Location:
    • CHKVAL1+11
    • CHKVAL2+10
    • CHKVAL2+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( GETP+1, GETP+2, GETP+3
^DD("KEY" - [#.31] GETFILE+17, GETFILE+19
^DIC - [#1] GETFILE+5, SETIEN+3

Label References

Name Line Occurrences
CHKVAL SETVAL+1
CHKVAL1 SETVAL+2
GETFILE INIT+1
SETIEN GETFILE+14

Naked Globals

Name Field # of Occurrence
^( GETFILE+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D D+1*, INIT+4
DA GETFILE+3~
>> DDC CHKVAL2+12*
>> DDD CHKVAL2+12*
DDH CHKVAL2+11~*
DDH(1 CHKVAL2+11*
DDS CHKVAL2~, CHKVAL2+10
DIALLVAL SETVAL+1!, SETVAL+2, CHKVAL1~, CHKVAL1+1*, CHKVAL1+7*, KILL2!
>> DIASKOK INIT+6*
DIC INIT+1, INIT+2, INIT+3, GETFILE~, GETFILE+1, GETFILE+2~*, GETFILE+4, GETFILE+5*, GETFILE+6*, GETFILE+8
, GETFILE+11, GETFILE+14, GETFILE+15, GETFILE+16, SETIEN~, SETIEN+4, DSPH+4
DIC("P" INIT+2*, GETFILE+9
DIC(0 D+3, SETVAL+2, INIT+6, INIT+7, CHKVAL2+9, GETFILE+14
DIC0 CHKVAL1~, CHKVAL1+2, CHKVAL1+10, CHKVAL1+11, CHKVAL2~, CHKVAL2+8
>> DICR DSPH+2, DSPH+4
>> DID(1 D+2*
DIDA SETIEN+1~, SETIEN+6*, SETIEN+7
DIDA( SETIEN+6*
DIDIC GETFILE+2~*!
DIENS INIT+1, KILL1!, GETFILE~, GETFILE+13*, GETFILE+14, GETFILE+18, SETIEN~, SETIEN+7*
DIER CHKVAL2+1~*, CHKVAL2+2, CHKVAL2+3*, CHKVAL2+4*, CHKVAL2+5*, CHKVAL2+7, CHKVAL2+10, CHKVAL2+11
DIERROR CHKVAL1+1~, CHKVAL1+2, CHKVAL1+3*, CHKVAL1+4*, CHKVAL1+6*, CHKVAL1+9, CHKVAL1+10, CHKVAL1+11
DIFIELD GETP+2~*, GETP+3
DIFILE GETFILE~, GETFILE+1*, GETFILE+5*, GETFILE+6*, GETFILE+8*, GETFILE+9*, GETFILE+11*, GETFILE+12, GETFILE+14, GETFILE+15
, GETFILE+16, GETFILE+17, GETFILE+18, GETFILE+20, SETIEN~, SETIEN+2*, SETIEN+3*, GETP+1~*, GETP+2, GETP+3
DIFILE( GETFILE+15*, GETFILE+16*, GETFILE+18*, GETFILE+20*
DIFILEI D+4, INIT+1, INIT+2, INIT+5, KILL1!, DSPH+1
DIFLAGS D+3~*, D+4, CHKVAL1~, CHKVAL1+2, CHKVAL1+4, CHKVAL1+6
DIMAXLEN KILL1!
DINDEX D+1!*, D+4, INIT+4*, INIT+5, KILL1!
DINDEX( DSPH+5
DINDEX("#" SETVAL+2, CHKVAL+2, CHKVAL+4, CHKVAL+5, DSPH+5
DINDEX("START" D+1*, INIT+4*
DINDEX("WAY" D+1*, INIT+4*
DIOUT CHKVAL+3~*, CHKVAL+4, CHKVAL+6*, CHKVAL+7*
DISUB GETP~, GETP+1, GETP+2
DIVAL D+4, SETVAL+1!, SETVAL+2, INIT+5, CHKVAL+7!, CHKVAL1~, CHKVAL1+11!, CHKVAL2~, CHKVAL2+14!, KILL2!
DIVAL( CHKVAL+2*, CHKVAL+4, CHKVAL1+5*, CHKVAL2+2
DIVAL(0 SETVAL+2, CHKVAL+2*, CHKVAL+6*, CHKVAL+7*, CHKVAL+8*, CHKVAL1+11*, CHKVAL2+14*
DIVAL(1 CHKVAL+2*
DIVAL(99999 CHKVAL1+3
DIXNO CHKVAL1~, CHKVAL1+3, CHKVAL1+4, CHKVAL1+5, CHKVAL2~, CHKVAL2+2
DO INIT+3!
>> DS(0 DSPH+1*
>> DUOUT CHKVAL+6*
F GETFILE+19~*, SETIEN+1~, SETIEN+2*, SETIEN+3, SETIEN+4*, SETIEN+5
G SETIEN+1~, SETIEN+3*, SETIEN+4
I CHKVAL+1~, CHKVAL+2*, CHKVAL+4*, CHKVAL+5, CHKVAL1+1~, CHKVAL1+3*, CHKVAL1+5*, CHKVAL2+1~, CHKVAL2+2*, GETFILE+17~*
, GETFILE+19, SETIEN+1~, SETIEN+5*, DSPH+2~*, DSPH+4*, DSPH+5*
J CHKVAL+3~, CHKVAL+4*, CHKVAL+5, CHKVAL+6, CHKVAL+7, CHKVAL2+1~, CHKVAL2+2*, CHKVAL2+3, CHKVAL2+4, CHKVAL2+5
, SETIEN+1~, SETIEN+5*, SETIEN+6*
J( SETIEN+5*, SETIEN+6
K SETIEN+1~, SETIEN+5*, SETIEN+6
U D+3, GETFILE+8, GETFILE+20, GETP+3, DSPH+4, DSPH+5
X CHKVAL+1*, CHKVAL+2, CHKVAL+7*, GETFILE+19~*, GETFILE+20
X( CHKVAL+2, CHKVAL+5*
X(1 CHKVAL+1
>> Y INIT+2*, INIT+7*
>> Y(0 INIT+7!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All