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: DICE1

Package: VA FileMan

Routine: DICE1


Information

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

Source Information

Source file <DICE1.m>

Entry Points

Name Comments DBIA/ICR reference
FIELD
CK
DA
DICOMP ;

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