Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DICE2

Package: VA Fileman

Routine: DICE2


Information

DICE2 ;SFISC/GFT-TRIGGER LOGIC ;09:41 AM 10 Jul 1999 [ 04/02/2003 8:25 AM ]

Source Information

Source file <DICE2.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 5 (,DEL)^DICE3  (,F)^DICE4  ^DICOMP  WR^DIDH  DICE2^DIQQ  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
VA Fileman 4 DICE0  DICE4  DICE7  DIQQ  

Entry Points

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

External References

Name Field # of Occurrence
^DICE3 C+12
DEL^DICE3 C+7
^DICE4 C+7, C+12
F^DICE4 DQ+4
^DICOMP C+6
WR^DIDH C+3
DICE2^DIQQ C+4, C+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"---",$P("SET^KILL",U,DIK)," LOGIC---"
  • Line Location: DICE2+4
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: ": "
  • Timeout: DTIME
  • Variable: X
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: $C(7),"??"
  • Line Location: GET+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( C, C+8, OLD+1
^DIC - [#1] C+9
^UTILITY("DICE" C+6*, DQ+4*, GET+2*, GET+3*

Label References

Name Line Occurrences
D01 C+7
DQ DQ
GET C+4
OLD C+3
Q C+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % C+2*, C+6*, C+8*, C+9, C+11, D01*, DQ+2*, DQ+3*
>> %F C+3*
>> A DQ+3
>> DA DICE2+4*
DATE C!
>> DCOND C*, C+7*
>> DE C+7*, C+8*
>> DENEW C, C+3, C+7, C+8
>> DHI D01*, DQ+1*, DQ+3*, DQ+4
>> DI DICE2+4, C+2, OLD+1
>> DICOMP C+2*
DICOMPX C!, C+2*, C+9
DICOMPX( C*, C+7!, OLD+1*
DICOMPX(1 C+2*
>> DIK DICE2+4, C+2, C+6, OLD+1, GET+1, GET+2, GET+3
>> DIN C, C+2, C+7, C+8
>> DL DICE2+4, C+2, OLD+1
>> DNEW C*, C+1, C+7
>> DOLD C, OLD+1, GET+1
>> DQ DICE2+4
>> DREF D01
>> DTAG DQ+1*, DQ+2*
DTIME GET+2
>> DTOUT DICE2+4
>> J( C+7
>> N DQ+2
U DICE2+4, C, C+4, C+7, C+8, C+9, C+12, OLD+1, GET+1, GET+2
, GET+3
>> V C+9*, D01*, DQ*, DQ+1*, DQ+4
X C+4!, C+5*, C+6, C+7*, C+8, C+12, OLD+1*, D01*, DQ*, DQ+1*
, DQ+2*, DQ+4*, GET+2*
X( C+6
>> Y C+8, C+10, C+11, GET+2*, GET+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All