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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DICE1

Package: VA FileMan

Routine: DICE1


Information

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

Source Information

Source file <DICE1.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
VA FileMan 2 DICE0  DICE3  

Entry Points

Name Comments DBIA/ICR reference
FIELD
CK
DA
DICOMP ;

External References

Name Field # of Occurrence
^DIAC CK+2
^DIC FIELD+2
^DICOMP DICOMP+1
WR^DIDH FIELD

Interaction Calls

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All