Routine: DICA

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

Package	Total	Caller Graph
Kernel	1	XPDR
VA Fileman	1	DIE

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

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

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

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

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*

Customize PDF page

Package: VA Fileman

Routine: DICA

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: