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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ENARY21

Package: Engineering

Routine: ENARY21


Information

ENARX21 ;(WASH ISC)/SAW/DH-2162 Archive ;3-28-93

Source Information

Source file <ENARY21.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 YN^DICN  Q^DIFROM0  IXALL^DIK  (N,VERSION)^DINIT  
Engineering 3 ^ENARX22  ^ENARX23  ^ENARX24  

Entry Points

Name Comments DBIA/ICR reference
GO
1
OV
Q
IXF ;;ENRX2

External References

Name Field # of Occurrence
YN^DICN 1+4, OV
Q^DIFROM0 GO+3
IXALL^DIK GO+1
N^DINIT ENARX21+5
VERSION^DINIT ENARX21+2
^ENARX22 GO
^ENARX23 GO+2
^ENARX24 GO+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "THIS VERSION OF 'ENARX21' WAS CREATED ON OCT 26,1988",!
  • Line Location: ENARY21+2
Function Call: WRITE
  • Prompt: "BUT I NEED VERSION 17 OF THE VA FILEMAN!"
  • Line Location: ENARY21+2
Function Call: WRITE
  • Prompt: ?9,"(","AT AEMS Development"," BY VA FileMan V.17.32)",!,"TO SET UP FOR YOU THE FOLLOWING FILE:",!
  • Line Location: ENARY21+3
Function Call: WRITE
  • Prompt: !,"BUT I'M OBSOLETE!!"
  • Line Location: ENARY21+4
Function Call: WRITE
  • Prompt: !,"FIRST, I'LL FRESHEN UP YOUR VA FILEMAN...."
  • Line Location: ENARY21+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: GO+1
Function Call: WRITE
  • Prompt: !,*7,"OK, I'M DONE.",!,"NO"_$P("TE THAT FILE",U,DSEC)_" SECURITY-CODE PROTECTION HAS BEEN MADE"
  • Line Location: GO+3
Function Call: WRITE
  • Prompt: !?3,N,?13,N(N),$P(" (PARTIAL DEFINITION)",U,$P(X,";",7)),$P(" (INCLUDING DATA)",I,D)
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: *7,!,"***BUT YOU'VE ALREADY GOT '",$P(Z,"^",1),"' AS FILE #",N,"!***"
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: *7,!,"NOTE -- YOU ALREADY HAVE '",$P(Z,"^",1),"' FILE"
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: " WITH DATA",!?9,"WANT MY DATA ADDED IN TO YOURS"
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !?9,*7,"I WILL **REPLACE** YOUR DATA WITH MINE, OK"
  • Line Location: OV+0
Function Call: WRITE
  • Prompt: *7,!!,"NO UPDATING HAS OCCURRED!"
  • Line Location: Q+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("VERSION" ENARX21+4
^DIC - [#1] GO+1, 1+1
^DIC(9.4 - [#9.4] GO+3*

Label References

Name Line Occurrences
1 ENARX21+3
GO ENARX21+4
OV 1+4
Q ENARX21+2, ENARX21+4, GO

Naked Globals

Name Field # of Occurrence
^("VERSION" ENARX21+4
^(0 GO+1*, 1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GO+1*, 1+2*, 1+4*, OV
>> D GO+1*, 1*, 1+4
>> DIF GO+1*
>> DIFQ ENARX21+2*, ENARX21+4, GO, 1+1*, 1+4*
>> DIFQ( GO+1, 1+4*
>> DIFQ(0 1+3*
>> DIFQR( OV*
>> DIFROM GO+2*, GO+3
>> DIFROM(0 GO+3
>> DIK GO+1*
>> DIK(0 GO*
>> DSEC GO+3
>> DW 1+2*
>> I ENARX21+3*, 1
>> N GO+1*, 1*, 1+1, 1+4, OV
>> N( 1*, 1+1
>> S 1*, 1+2, 1+4
U GO+1, GO+3, 1*
>> VERSION ENARX21+2
>> X GO+1*, 1*
>> Z 1+1*, 1+3

Marked Items

Name Field # of Occurrence
$T(IXF+DIF GO+1
$T(IXF+I 1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All