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 |  Marked Items  | All
Print Page as PDF
Routine: ENARG1

Package: Engineering

Routine: ENARG1


Information

ENARG1 ;(WIRMFO)/JED/DH/SAB-ARCHIVE DATA DICTIONARY ;4.24.97

Source Information

Source file <ENARG1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^%DT  YN^DICN  ^DIE  
Engineering 2 G^ENARG2  EN^ENJ  

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

Package Total Caller Graph
Engineering 1 ENARG  

Entry Points

Name Comments DBIA/ICR reference
G
G1
G2
G3
G4
OUT
ROU ;;41

External References

Name Field # of Occurrence
^%DT G2+1
YN^DICN G1, G4
^DIE G4+2
G^ENARG2 G
EN^ENJ G4+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Now searching data base"
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !,J," Records were found meeting the archive criteria"
  • Line Location: G+1
Function Call: READ
  • Variable: ENR
  • Timeout: DTIME
  • Line Location: G+2
Function Call: WRITE
  • Prompt: !!,*7,"No data to archive!! <cr> to continue"
  • Line Location: G+2
Function Call: WRITE
  • Prompt: !!,"Is it O.K. to accept these data "
  • Line Location: G1+0
Function Call: WRITE
  • Prompt: !!,"ACCEPTING will assign a formal reference number used for transfer to the",!,"archival medium, build the archive global, and delete archived entries from",!,"the actual production file."
  • Line Location: G1+2
Function Call: WRITE
  • Prompt: !!,"Not ACCEPTING will delete the list of file entries to be archived that was",!,"just built and leave your data base unchanged."
  • Line Location: G1+3
Function Call: WRITE
  • Prompt: !!,"The identification reference, ",ENID," has been entered",!,"into the Engineering Archive File."
  • Line Location: G3+5
Function Call: WRITE
  • Prompt: !!,"Would you like to add a description of the archive medium and perhaps its",!,"location"
  • Line Location: G4+0
Function Call: WRITE
  • Prompt: !,"Please answer Yes or No.",*7
  • Line Location: G4+0
Function Call: WRITE
  • Prompt: !!,"Transferring data dictionary"
  • Line Location: G4+4
Function Call: WRITE
  • Prompt: !,"Now extracting data from your files, this could take a while..."
  • Line Location: G4+11
Function Call: WRITE
  • Prompt: !,"Elapsed time: ",$J($P($H,",",2)-ENSTART/60,6,2)," minutes."
  • Line Location: G4+14
Routine Call
  • DIE
  • Line Location:
    • G4+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LOAD" G4+3, G4+5
^%ZOSF("SAVE" G4+3, G4+8
^ENAR( G4+5*, G4+6*, G4+7*, G4+8*, G4+9*
^ENAR("6919." G2!*, G2+1*, G3+2*
^ENG(6919 - [#6919] G2+1, G3*, G3+2*, G3+3, G3+4*
^VA(200 - [#200] G3+3

Label References

Name Line Occurrences
@( G4+13
G1 G1, G1+1
G2 G+2, G4+3
G3 G3
G4 G4
OUT G2

Naked Globals

Name Field # of Occurrence
^(0 G3*
^(1 G3+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% G+2*, G1*, G1+1, G2, G4*, G4+1, G4+2, G4+3*, OUT!
>> %DT G2+1*
DA G4+2*!
DIC G4+2!
>> DIE G4+2*
>> DIF G4+5*
>> DJDN G4+1*
DJN OUT!
DJSC G4+1*, OUT!
DR G4+2*!
DTIME G+2
DUZ G3+3
ENA G4+5*, OUT!
ENB G3+2*, OUT!
>> ENDA G3+1*, G4+2
ENEMP G3+3*, G3+4, OUT!
>> ENERR G+2*, G4+3*
ENFR G3+1, OUT!
>> ENGBL G4+5, G4+6, G4+7, G4+8, G4+9
>> ENGL(1 G3+1*, G3+2
>> ENI G4+12*
ENID G2+1*, G3+2, G3+5, OUT!
>> ENJ G4+12*
ENPARAM G3+1, OUT!
>> ENR G+2*
>> ENRT G2, G2+1, G3+1, G3+2, G4+13
ENSHOP OUT!
>> ENSTA G2+1
ENSTART G4+12*, G4+14, G4+15!
ENTO G3+1, OUT!
>> I G4+12*
IOST G4+1, G4+2
J G+1, G+2, G2+1, G3+1, G4+5*, G4+12*, OUT!
K OUT!
U G3+3
X G2+1*, G4+5*, OUT!
>> XCNP G4+5*
Y G2+1, G3+4, G4+5*, OUT!
Z G2*, G2+1*, G3*, G3+1, G3+2, G3+4, G4+1, OUT!

Marked Items

Name Field # of Occurrence
$T(ROU+ENRT G4+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All