Routine: DICE1

Information

DICE1 ;SFISC/XAK-TRIGGER LOGIC ;10:24 AM 9 Jul 1999

Source file <DICE1.m>

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