Routine: DICE2

Information

DICE2 ;SFISC/GFT-TRIGGER LOGIC ;09:41 AM 10 Jul 1999

Source file <DICE2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"---",$P("SET^KILL",U,DIK)," LOGIC---" Line Location: DICE2+7
Function Call: WRITE	Prompt: !!,"IN ANSWERING THE FOLLOWING QUESTION, '"_DNEW_"'",!?2,"CAN BE USED TO REFER TO THE EXISTING TRIGGERED FIELD VALUE.",! Line Location: C+1
Function Call: WRITE	Prompt: "PLEASE ENTER AN EXPRESSION WHICH WILL BECOME THE VALUE OF THE",! Line Location: C+3
Function Call: WRITE	Prompt: $C(7),!,"BUT THE TRIGGERING FIELD DEPENDS ON THE TRIGGERED FIELD!" Line Location: C+7
Function Call: WRITE	Prompt: $C(7),!,"WARNING -- THIS SHOULD PRODUCE A DATE VALUE, AND IT MAY NOT!" Line Location: C+8
Function Call: WRITE	Prompt: !,$C(7),"WARNING -- THIS MUST BE '",$P(^DIC(+V,0),U)," NUMBER'!" Line Location: C+9
Function Call: WRITE	Prompt: $C(7),!,"WARNING--THIS TRUTH-VALUED EXPRESSION WILL PRODUCE ONLY VALUES OF '0' OR '1'" Line Location: C+10
Function Call: WRITE	Prompt: $C(7),!,"WARNING -- THIS MAY PRODUCE A 'DATE', AND IT SHOULDN'T!" Line Location: C+11
Function Call: WRITE	Prompt: ?2,"NOTE: '"_X_"' CAN BE USED TO REFER TO THE VALUE OF THE",!?2,DOLD_" FIELD BEFORE ITS CHANGE OR DELETION.",! Line Location: OLD+1
Function Call: WRITE	Prompt: !," WHENEVER THE '"_DOLD_"' FIELD IS "_$P("ENTERED OR CHANGED^CHANGED OR DELETED",U,DIK) Line Location: GET+1
Function Call: READ	Prompt: ": " Variable: X Timeout: DTIME Line Location: GET+2
Function Call: WRITE	Prompt: " ",Y Line Location: GET+2
Function Call: WRITE	Prompt: $C(7),"??" Line Location: GET+2