Routine: DICE1

Information

DICE1 ;SFISC/XAK-TRIGGER LOGIC ;10:24 AM 9 Jul 1999 [ 04/02/2003 8:25 AM ]

Package	Total	Call Graph
VA Fileman	4	^DIAC ^DIC ^DICOMP WR^DIDH

Package	Total	Caller Graph
VA Fileman	2	DICE0 DICE3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"WHEN THE " Line Location: FIELD+0
Function Call: READ	Timeout: DTIME Line Location: FIELD+1
Function Call: WRITE	Prompt: !," ...",I,$C(7),!,"YOU MUST IDENTIFY SOME FIELD, EITHER WITHIN THE",!,"'",@("$P("_DIU_"0),U)"),"' FILE OR IN SOME OTHER" Line Location: FIELD+8
Function Call: WRITE	Prompt: $C(7),!,"SORRY, I AM CONFUSED" Line Location: FIELD+11
Function Call: WRITE	Prompt: $C(7),!,"CAN'T UPDATE A 'NUMBER' FIELD!" Line Location: CK+0
Function Call: WRITE	Prompt: $C(7),!,"CAN'T HAVE A FIELD TRIGGERING ITSELF!!!" Line Location: CK+1
Function Call: WRITE	Prompt: $C(7),!,"YOU DON'T HAVE 'DATA DEFINITION' ACCESS TO",!," THE '",$O(^DD(J(X),0,"NM",0)),"' FILE!" Line Location: CK+2
Function Call: WRITE	Prompt: $C(7),!,"CAN'T TRIGGER A RESTRICTED"_$S($P(^("DI"),U)["Y":" (ARCHIVE)",1:"")_" FILE!" Line Location: CK+3
Function Call: WRITE	Prompt: !,$C(7),"CAN'T TRIGGER A COMPUTED FIELD!" Line Location: CK+6
Function Call: WRITE	Prompt: " ...OK" Line Location: CK+7
Routine Call	DIC Line Location: FIELD+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(	FIELD, CK+2, CK+3, CK+5
^UTILITY("DICE"	FIELD+7, CK+4

Name	Line Occurrences
CK	FIELD+10
DA	FIELD+5
DICOMP	FIELD+5, FIELD+6
FIELD	FIELD+2, FIELD+8, FIELD+11, CK, CK+1, CK+2, CK+3, CK+6

Name	Field # of Occurrence
^("DI"	CK+3
^(0	CK+5, CK+6

Name	Field # of Occurrence
>> %	FIELD, FIELD+3, FIELD+4, FIELD+5, FIELD+7, FIELD+10, CK+2, CK+4*
>> %F	FIELD*
>> A	CK+4*
>> DA	DA*
>> DCNEW	FIELD+5*, FIELD+6
>> DENEW	FIELD+9*, CK, CK+1, CK+5
>> DFLD	FIELD+9*
>> DI	FIELD, FIELD+2, CK+1, DA
DIAC	CK+2*, CK+7!
DIC	FIELD+2*!
DIC("S"	FIELD+2*
DIC("W"	FIELD+2*
DIC(0	FIELD+2*
>> DICOMP	FIELD+5, FIELD+6
>> DICOMPX	FIELD+8, FIELD+9, CK+4, DICOMP+1*
>> DICOMPX(0	CK+4, DICOMP+1*
DIFILE	CK+2*, CK+7!
>> DIN	FIELD+9*, FIELD+10, CK+1, CK+5
>> DIU	FIELD+8
>> DL	FIELD, CK+1, DA
>> DLAY	FIELD+9*
>> DLOC	CK+5*
>> DNEW	CK+5*
>> DOLD	FIELD*
>> DQ	DA
>> DQI	DICOMP+1*
>> DREF	FIELD+9, CK+4
>> DSUB	CK+5*
DTIME	FIELD+1
>> I	FIELD+8
>> I(	FIELD+4!, CK+4
>> J(	FIELD+4!, FIELD+10, CK+2, CK+3, CK+4
U	FIELD, FIELD+1, FIELD+9, CK+3, CK+5, CK+6
X	FIELD+1, FIELD+2, FIELD+3, FIELD+5, FIELD+6, FIELD+8, FIELD+9, FIELD+10!, CK+2, CK+3 , CK+4
X(	FIELD+7
>> Y	FIELD+9, FIELD+10