Routine: DIFG0

Package	Total	Call Graph
VA Fileman	2	^%DT ERROR^DIFG

Package	Total	Caller Graph
VA Fileman	4	DIFG0A DIFG0B DIFG2 DIFG3

Entry Points

Name	Comments	DBIA/ICR reference
GETVAL	;GETS VALUE TO RIGHT OF EQUAL SIGN
NDPC	;DETERMINE NODE,PIECE FOR DATA FOR THIS FIELD
SETCODES	;DETERMINE INTERNAL VALUE IF FIELD ATTRIBUTE IS SET OF CODES
BASE	;BASE FILE ENTRY LINE
DICS	;SET DIC("S")
FUNC	;CHECKS FUNCTION ON BASE ENTRY LINE
DATE	;GET INTERNAL FORM OF DATE
X1

Name	Field # of Occurrence
^%DT	DATE+1
ERROR^DIFG	DATE+2, BASE+5

Name	Line Occurrences (* Changed, ! Killed)
^DD(	NDPC+2, NDPC+3, NDPC+4, SETCODES+1
^DIC - [#1]	BASE+4
^DIC("B"	BASE+4
^UTILITY("DIFG"	FUNC+3*
^UTILITY("DIFG@"	GETVAL+2, BASE+2, BASE+3
^UTILITY("DIFGX"	GETVAL+1, GETVAL+2

Name	Field # of Occurrence
^(	GETVAL+2, BASE+3
^("MODE"	FUNC+3

Name	Field # of Occurrence
%	SETCODES+1, SETCODES+2!, FUNC+3, FUNC+4!
%A	SETCODES+1*, SETCODES+2!
>> %DT	DATE+1*
>> DIC	NDPC+2, NDPC+3, NDPC+4, DICS+3, DICS+4, DICS+5, SETCODES+1, BASE+4*, BASE+5, FUNC+3
>> DIFG("NOLKUP"	BASE+2*, BASE+3
>> DIFG("PARAM"	NDPC+2
>> DIFGALNK	BASE+2*
>> DIFGCT	NDPC+1*, NDPC+2, NDPC+3, NDPC+4, DICS+1, DICS+2, DICS+5, GETVAL+1, GETVAL+2, SETCODES+1 , DATE+1
>> DIFGDIC(	DICS+3, DICS+5*
>> DIFGDICS(	DICS+3, DICS+4, DICS+5
>> DIFGDIX	NDPC+2, NDPC+3, NDPC+4, GETVAL+1, GETVAL+2, DATE+1, BASE+2, BASE+3, BASE+4, BASE+6 , FUNC+3
>> DIFGDOL	DICS+1, DICS+2, DICS+5
>> DIFGER	DATE+2, BASE+5
>> DIFGFLUS	BASE+2*
>> DIFGHAT	NDPC+4*, GETVAL+1
>> DIFGINCR	FUNC+2*, FUNC+3
>> DIFGMO(	FUNC+3*
>> DIFGMULT	BASE+1, BASE+2, BASE+6, FUNC+3
>> DIFGNUMF(	NDPC+2, NDPC+3, NDPC+4, SETCODES+1
>> DIFGO	FUNC+1*, FUNC+2
>> DIFGPC(	NDPC+2, NDPC+3, DICS+1
>> DIFGPTER(	NDPC+4*, DICS+5
>> DIFGSAVX	DATE+1*
DIFGSET	SETCODES+1*, SETCODES+2!
>> DIFGSKIP(	BASE+2*
>> DIFGVAL(	GETVAL+1, GETVAL+2, SETCODES+1, DATE+1
>> DIFGXRF(	BASE+1!, BASE+6*
>> DIFGY	DATE+2, BASE+5, FUNC+3
U	NDPC+4, SETCODES+1, DATE+2, BASE+2, BASE+3, BASE+4, BASE+5, BASE+6, FUNC+3
>> X	DATE+1, BASE+3
>> Y	DATE+1, DATE+2, BASE+2*