Routine: DIEVK1

Package	Total	Call Graph
VA Fileman	4	BLD^DIALOG $$FLDNM^DIEFU XRINFO^DIKCU2 LOADKEY^DIKK1

Package	Total	Caller Graph
VA Fileman	4	DICA1 DIEF1 DIEV DIEVK

Entry Points

Name	Comments	DBIA/ICR reference
FINDCONV(DIVKIENS,DIVKFIEN)	;Replace ?n in DIVKIENS with actual ien's
BLDFLD(DIVKFIL,DIVKIENS,DIVKFLD)	;Build key/index info on a given field ; ^TMP("DIKK",$J,"L",key) = rfile^ui^priority ; ... ,file,iens) = "" ; ... ,"UIR") = uir ; ... ,"SS",n) = file^field^maxlen
ERR740(FILE,KEY,IENS)	;New values are invalid because they create a duplicate
ERR744(FILE,FIELD,KEY,IENS)	;Field \|1\| is part of Key '\|2\|', but the
KFLD(KFIL,IENS,FDA)	;Check that at least one primary key field is in FDA
ERR742(FILE,FIELD,KEY,IENS)	; The value of field \|1\| in the \|2\| file
GETPKEY(KFIL)	;Get fields in primary key for file KFIL ; ^TMP("DIKK",$J,"P",kfile) = key^ui#^uifile^uiname ; ... ,file,field) = seq#
BUILD(DIVKFDA,DIVKFLAG)	;Loop thru FDA and load key info
ERR746(FILE,KEY,IENS)	;At least one field in Primary Key '\|1\|' must be

External References

Name	Field # of Occurrence
BLD^DIALOG	ERR740+6, ERR742+7, ERR744+6, ERR746+7
$$FLDNM^DIEFU	ERR742+3, ERR744+3
XRINFO^DIKCU2	BLDFLD+16
LOADKEY^DIKK1	BLDFLD+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ERR740+4, ERR742+4, ERR746+4
^DD("IX" - [#.11]	GETPKEY+12
^DD("KEY" - [#.31]	BUILD+5, BLDFLD+8, BLDFLD+13, GETPKEY+5, GETPKEY+6, GETPKEY+7, GETPKEY+11, ERR740+3, ERR742+5, ERR744+4 , ERR746+3
^TMP("DIKK"	BLDFLD+9, BLDFLD+10, BLDFLD+14, BLDFLD+17, BLDFLD+18, GETPKEY+9, GETPKEY+10, GETPKEY+12*, KFLD+2, KFLD+4 , KFLD+5

Label References

Name	Line Occurrences
$$KFLD	BUILD+9
BLDFLD	BUILD+11
ERR746	KFLD+7
GETPKEY	BUILD+6

Naked Globals

Name	Field # of Occurrence
^(	BLDFLD+9*
^(0	BLDFLD+13, GETPKEY+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIVKEY	BLDFLD+5~, BLDFLD+7, BLDFLD+8, BLDFLD+9, BLDFLD+10, BLDFLD+12, BLDFLD+13, BLDFLD+14, BLDFLD+17, BLDFLD+18
DIVKEYOK	BUILD+1~, BUILD+3, BUILD+9, BUILD+12
DIVKFDA	BUILD~, BUILD+4, BUILD+8, BUILD+9, BUILD+11
DIVKFIEN	FINDCONV~, FINDCONV+4, FINDCONV+5
DIVKFIL	BUILD+1~, BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+8, BUILD+9, BUILD+11, BLDFLD~, BLDFLD+8 , BLDFLD+9
DIVKFLAG	BUILD~, BUILD+6, BUILD+9
DIVKFLD	BUILD+1~, BUILD+10, BUILD+11, BLDFLD~, BLDFLD+8
DIVKIENS	BUILD+1~, BUILD+7, BUILD+8, BUILD+9, BUILD+11, BLDFLD~, BLDFLD+9, FINDCONV~, FINDCONV+2, FINDCONV+3 , FINDCONV+5*, FINDCONV+6
DIVKPRI	BLDFLD+5~, BLDFLD+13*, BLDFLD+14
DIVKQUIT	BUILD+1~, BUILD+4, BUILD+8, BUILD+9*
DIVKRFIL	BLDFLD+5~, BLDFLD+13*, BLDFLD+14, BLDFLD+15
DIVKSS	BLDFLD+5~, BLDFLD+16, BLDFLD+18
DIVKUI	BLDFLD+5~, BLDFLD+13*, BLDFLD+14, BLDFLD+15, BLDFLD+16
DIVKUIR	BLDFLD+5~, BLDFLD+16, BLDFLD+17
FDA	KFLD~, KFLD+6
FIELD	ERR742~, ERR742+3, ERR742+6, ERR744~, ERR744+3, ERR744+5
FIL	GETPKEY+4~, GETPKEY+7, GETPKEY+8, GETPKEY+9, KFLD+1~, KFLD+4, KFLD+5, KFLD+6
FILE	ERR740~, ERR740+4, ERR740+5, ERR742~, ERR742+3, ERR742+4, ERR742+6, ERR744~, ERR744+3, ERR744+5 , ERR746~, ERR746+4, ERR746+6
FLD	GETPKEY+4~, GETPKEY+7, GETPKEY+8, GETPKEY+9, KFLD+1~, KFLD+5, KFLD+6
I	GETPKEY+4~, GETPKEY+6, GETPKEY+7, FINDCONV+1~, FINDCONV+2, FINDCONV+3, FINDCONV+5
IENS	KFLD~, KFLD+6, KFLD+7, ERR740~, ERR740+5, ERR742~, ERR742+6, ERR744~, ERR744+5, ERR746~ , ERR746+5, ERR746+6
KEY	GETPKEY+4~, GETPKEY+5, GETPKEY+6, GETPKEY+7, GETPKEY+11, GETPKEY+12, KFLD+1~, KFLD+2, KFLD+7, ERR740~ , ERR740+3, ERR740+5, ERR742~, ERR742+5, ERR744~, ERR744+4, ERR746~, ERR746+3, ERR746+6
KFIL	GETPKEY~, GETPKEY+5, GETPKEY+9, GETPKEY+10, GETPKEY+12, KFLD~, KFLD+2, KFLD+4, KFLD+5, KFLD+7
N	FINDCONV+1~, FINDCONV+4*
OK	KFLD+1~, KFLD+3, KFLD+4, KFLD+5, KFLD+6, KFLD+7, KFLD+8
P	FINDCONV+1~, FINDCONV+3*, FINDCONV+4, FINDCONV+5, ERR740+2~, ERR740+6, ERR742+2~, ERR742+7, ERR744+2~, ERR744+6 , ERR746+2~, ERR746+7
P("IENS"	ERR746+5*
P(1	ERR740+3, ERR742+3, ERR744+3, ERR746+3
P(2	ERR740+4, ERR742+4, ERR744+4, ERR746+4
P(3	ERR742+5*
PEXT	ERR740+2~, ERR740+6, ERR742+2~, ERR742+7, ERR744+2~, ERR744+6, ERR746+2~, ERR746+7
PEXT("FIELD"	ERR742+6, ERR744+5
PEXT("FILE"	ERR740+5, ERR742+6, ERR744+5, ERR746+6
PEXT("IENS"	ERR740+5, ERR742+6, ERR744+5, ERR746+6
PEXT("KEY"	ERR740+5, ERR746+6
SEQ	GETPKEY+4~, GETPKEY+7*, GETPKEY+8, GETPKEY+9, KFLD+1~
U	BLDFLD+13, BLDFLD+14, GETPKEY+7, GETPKEY+11, GETPKEY+12, ERR740+3, ERR742+5, ERR744+4, ERR746+3
UI	GETPKEY+4~, GETPKEY+11*, GETPKEY+12

Customize PDF page

Package: VA Fileman

Routine: DIEVK1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: