Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DICE2

Package: VA FileMan

Routine: DICE2


Information

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

Source Information

Source file <DICE2.m>

Entry Points

Name Comments DBIA/ICR reference
C
Q
OLD ;
D01
DQ
GET ;

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls