Routine: DIFG4A

Information

DIFG4A ;SFISC/DG(OHPRD)-CONDITIONALS ; [ 08/21/91 5:15 PM ]

Source file <DIFG4A.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ERROR^DIFG

Package	Total	Caller Graph
VA Fileman	1	DIFG4

Name	Comments	DBIA/ICR reference
GETVAL	; Save field numbers and values
CHECK	; Check for existence of higher level conds, if exist quit this level ; and continue processing
START	;
COND	; Execute conditions
X1
SETY	; Sets Y to value of "D" node or value from execution of "C" node

Name	Field # of Occurrence
^DIC	START+4
ERROR^DIFG	START+10

Name	Line Occurrences (* Changed, ! Killed)
^DD(	START+4, COND+2, COND+3, SETY+1, SETY+2
^DIC - [#1]	SETY+4
^UTILITY("DIFGFLD"	START+5, START+11!, GETVAL+1, COND+4
^UTILITY("DIFGX"	GETVAL+1

Name	Field # of Occurrence
%	CHECK+2~*
CNUM	COND+1~, COND+2*, COND+3, SETY+1, SETY+2
DIC	START+4~*
DIC(0	START+4*
>> DIFG	START+2, CHECK+2
>> DIFG("CONDSET"	START+9*
>> DIFG("UNRESOLVED"	START+2*
>> DIFGCOND(	CHECK+2
>> DIFGDIC	START+3, START+4, COND+2, COND+3, SETY+1, SETY+2, SETY+4
>> DIFGDIC(	START+3
DIFGDIGT	START+3*, START+11!, GETVAL+1
DIFGDRCT	START+3*, START+11!
>> DIFGER	START+10*
>> DIFGI	START+3*
>> DIFGNUMF(	START+3, GETVAL+1
>> DIFGSAVE(	START+2
DIFGSTP	START+2!, CHECK+2*
>> DIFGY	START+10
FLD	COND+1~, COND+3*, COND+4
NUM	COND+1~, COND+2*, COND+3
OP	COND+1~, COND+3*, COND+5
ORDR	COND+1~, COND+2*
STP	COND+1~, COND+2!, COND+4, COND+6
>> TYPE	COND+2*, SETY+1, SETY+2
U	START+4, START+10, COND+2, COND+3
VAL	COND+1~, COND+3*
>> X	START+4*, START+5
Y	START+4, START+6!, START+8, START+9, START+10, COND+2, SETY+2, SETY+3!, SETY+4!
Y(0	START+4