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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DICA

Package: VA FileMan

Routine: DICA


Information

DICA ;SEA/TOAD-VA FileMan, Updater, Engine ;18APR2009

Source Information

Source file <DICA.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 10 $$FIND1^DIC  CHECK^DICA1  (CREATE,ERR)^DICA3  FILE^DIEF  ($$VMINUS9,CALLOUT,INIZE)^DIEFU  $$CHECK^DIEVK  $$GETTMP^DIKC1  DA^DILF  
$$FNO^DILIBF  $$ROOT^DIQGU  

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

Package Total Caller Graph
Kernel 1 XPDR  
VA FileMan 1 DIE  

Entry Points

Name Comments DBIA/ICR reference
PRE ;
FILES
LAYGO(DIFILE,DIEN,DIKEY) ;
; ADDING--return if LAYGO permitted
; function, all by value
SEQ ;
FILER ; file the data for the new records
GETKVALS(DIVALUE,DIINDEX) ; Get primary key values and uniq index
ADDING ;
CLOSE
ADDX ; Branch in from UPDATE^DIE
; ENTRY POINT--add a new entry to a file
; subroutine, DIEN passed by reference
A1
SAVEK ; Remove primary key field from FDA; save in ^TMP first if necessary
ADDLF ; Check key integrity
ENTRIES
FINDING
INPUT ;
; initialize input parameters & check
IEN1
SAVE
ADD(DIFLAGS,DIFDA,DIEN,DIMSGA) ;
IEN(DIENTRY,DIENF,DIRULE) ;
; ADDING/FINDING--return translated IEN String
; function, DIENTRY passed by value

External References

Name Field # of Occurrence
$$FIND1^DIC FINDING+11
CHECK^DICA1 PRE+1
CREATE^DICA3 A1+10
ERR^DICA3 INPUT+6, INPUT+8, PRE+3, FILES+3, FINDING+22, ADDING+4, A1+2, A1+5, A1+9
FILE^DIEF FILER+3
$$VMINUS9^DIEFU ADDING+2
CALLOUT^DIEFU CLOSE+2
INIZE^DIEFU ADDX+4
$$CHECK^DIEVK ADDLF+1
$$GETTMP^DIKC1 INPUT+2
DA^DILF ADDING+6
$$FNO^DILIBF FILES+1
$$ROOT^DIQGU ADDING+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( FILES+1, LAYGO+5, LAYGO+7, LAYGO+9
^TMP("DIKK" FINDING+8, FINDING+26, FILER+3!, SAVEK+3, SAVEK+4, CLOSE+3!, GETKVALS+3, GETKVALS+7, GETKVALS+8, ADDLF+1

Label References

Name Line Occurrences
$$IEN ENTRIES+3, FINDING+29, A1, ADDLF+9
$$LAYGO A1+3
ADDING FINDING+30, ADDLF+12
ADDLF FINDING+29, FILER+2
CLOSE INPUT+6, INPUT+8, PRE+2, PRE+3, FILER+7
GETKVALS FINDING+9
SAVE FINDING+27, A1+17
SAVEK FINDING+26

Naked Globals

Name Field # of Occurrence
^( GETKVALS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA LAYGO+3~, LAYGO+8*
DI1 A1+8~*, A1+9
DIC IEN+3~, IEN+6*, IEN+7, IEN1, IEN1+4
DICHECK SEQ+1~, FINDING+29*, FILER+2
DICLERR ADDX+5~*, CLOSE, CLOSE+1
DIDA ENTRIES+1~, ENTRIES+2*, ENTRIES+4, ENTRIES+5
DIDUMMY INPUT+10~
DIEN ADD~, INPUT+10*, PRE+1, FINDING+23, FINDING+24, FILER+3, A1, A1+14, A1+15, LAYGO~
, LAYGO+8, ADDLF+1
DIENEW ADDING+1~, ADDING+6, A1*, A1+3, A1+7, A1+10, A1+11*, A1+12, A1+14, A1+16
, IEN+3~, IEN+4*, IEN1+4*, IEN1+5*, IEN1+6
DIENF IEN~, IEN+5*, IEN1
DIENP ENTRIES+1~, ENTRIES+3*, FINDING+3, FINDING+11, FINDING+29*, ADDING+2, ADDING+4, ADDING+5, ADDLF+7~, ADDLF+9*
DIENS A1+6~*, A1+7*, A1+9
DIENTRY SEQ+1~, ENTRIES+2, ENTRIES+3, FINDING+10, FINDING+22, FINDING+29, ADDING+6, A1, A1+1, SAVE+1
, SAVE+2, SAVEK+5, SAVEK+6, SAVEK+7, IEN~, IEN+7, GETKVALS+9, GETKVALS+10, ADDLF+7~, ADDLF+9
, ADDLF+11
DIERR ADDX+5!, PRE+2, FINDING+12, FINDING+29, FILER+1, FILER+2, FILER+4, FILER+5, A1+5, LAYGO+9
, CLOSE, CLOSE+1*
DIFDA ADD~, INPUT+7*, INPUT+9, PRE+1, FINDING+6, FILER+1, FILER+2, FILER+3, FILER+6, A1+1
, SAVE+1, SAVE+2, SAVEK+6, SAVEK+7, ADDLF+1
DIFDAO INPUT+3~, INPUT+9*, FINDING+7, FILER+4
DIFILE SEQ+1~, FILES+1, FILES+3, FINDING+8, FINDING+10, FINDING+11, FINDING+22, FINDING+26, ADDING+2, ADDING+4
, ADDING+5, A1+1, A1+3, A1+5, A1+9, A1+10, LAYGO~, LAYGO+5, LAYGO+7, LAYGO+9
, SAVE+1, SAVE+2, SAVEK+3, SAVEK+4, SAVEK+5, SAVEK+6, SAVEK+7, GETKVALS+3, GETKVALS+7, GETKVALS+8
, GETKVALS+9, GETKVALS+10, ADDLF+7~
DIFIND FINDING+4~, FINDING+11*, FINDING+13, FINDING+14, FINDING+23, FINDING+25
DIFLAGS ADD~, INPUT+4*, INPUT+5, INPUT+6, PRE+1, FILES+2, FINDING+5, FINDING+7, FINDING+8, FINDING+26
, FILER+3, FILER+4, FILER+5, SAVE, SAVEK+6, ADDLF+1
DIFLD SAVEK+1~, SAVEK+2*, SAVEK+3*, SAVEK+4, SAVEK+5, SAVEK+6, SAVEK+7, GETKVALS+1~, GETKVALS+6*, GETKVALS+7*
, GETKVALS+8, GETKVALS+9, GETKVALS+10
DIFM ADDX+4~*
DIFORMAT FINDING+4~, FINDING+5*, FINDING+11
DIGET FINDING+4~, FINDING+6*, FINDING+7*, FINDING+10, SAVEK+5, GETKVALS+9, GETKVALS+10
DIINDEX FINDING+4~, FINDING+9, FINDING+11, GETKVALS~, GETKVALS+3*, GETKVALS+4
DIKEY ADDING+1~, A1+1*, A1+3, A1+8, A1+10, LAYGO~, LAYGO+8, GETKVALS+1~, GETKVALS+3*, GETKVALS+4
DIMSGA ADD~, CLOSE+2
DINEXT SEQ+1~, SEQ+2*, SEQ+3*, SEQ+4, FINDING+3, FINDING+13, ADDLF+4~, ADDLF+5*, ADDLF+6*, ADDLF+8
DINODE LAYGO+3~, LAYGO+4*, LAYGO+5*, LAYGO+6, LAYGO+7, LAYGO+9
DIOK PRE+1~*, PRE+3, ADDING+2*, A1+3*, A1+4, LAYGO+3~, LAYGO+4*, LAYGO+9*, LAYGO+10
DIOP ENTRIES+1~, ENTRIES+4*, ENTRIES+5, FINDING+2, FINDING+3, FINDING+5, FINDING+7, FINDING+13, FINDING+24, A1+15
, IEN+3~, IEN1+1*, IEN1+2, ADDLF+7~, ADDLF+10*, ADDLF+11
DIOUT1 SEQ+1~, SEQ+2*, SEQ+3*, FILES+1, FILES+2*, FILES+3, FINDING+12*, FINDING+14*, FINDING+29*, ADDING+3*
, A1+2*, A1+4*, A1+12*, ADDLF+5*, ADDLF+6
DIOUTS LAYGO+3~, LAYGO+4*, LAYGO+6*
>> DIOVRD FILES+2
DIP IEN+3~, IEN+6*, IEN+7*, IEN+9, IEN1+1, IEN1+2
DIPNEW IEN+3~, IEN+9*, IEN1*, IEN1+3*, IEN1+4
DIQUIET ADDX+3~*
DIROOT ENTRIES+1~, ADDING+5*, A1+10, A1+13, ADDLF+7~
DIRULE INPUT+2~*, PRE+1, SEQ+3, SEQ+4, ENTRIES+3, FINDING+3, FINDING+13, FINDING+25, FINDING+29, FILER+6
, A1, A1+16, SAVE+1, SAVEK+6, IEN~, IEN1+3, CLOSE+3, ADDLF+6, ADDLF+8, ADDLF+9
DISEQ ENTRIES+1~, ENTRIES+5*, FINDING+23, FINDING+24, FINDING+25, A1, A1+14, A1+15, A1+16, IEN+3~
, IEN1+2*, IEN1+3, ADDLF+7~, ADDLF+11*
DISQ GETKVALS+1~, GETKVALS+8*, GETKVALS+10
DIVALUE FINDING+4~, FINDING+9, FINDING+10*, FINDING+11, FINDING+15*, FINDING+17*, FINDING+18, FINDING+19*, FINDING+21*, FINDING+22
, GETKVALS~, GETKVALS+2!
DIVALUE( FINDING+15, FINDING+16, FINDING+18, FINDING+19, FINDING+21, GETKVALS+10*
I FINDING+15~*, FINDING+16, FINDING+18, FINDING+19, FINDING+21
Q FINDING+15~*, FINDING+20*
U FILES+1, CLOSE+1, GETKVALS+3
X LAYGO+3~, LAYGO+8*
Y LAYGO+3~, LAYGO+8*
Y1 LAYGO+3~, LAYGO+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All