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

Package: Engineering

Routine: ENARGR


Information

ENARGR ;(WIRMFO)/JED,SAB-RECALL ARCHIVED DATA ;2.14.97

Source Information

Source file <ENARGR.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Engineering 3 (D2,GS)^ENAR1  ID^ENAR2  (ARDEV,CLOSE,MTCHECK,MTSETUP)^ENARGO  
Kernel 1 $$REWIND^%ZIS  
VA FileMan 1 ^DIR  

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 ENAR1  

Entry Points

Name Comments DBIA/ICR reference
R ; Recall Global from archive media
; called from ENAR1
; input
; ENGBL - global subscript in ^ENAR to be recalled (e.g. 6919.1)
; ENRT - number associated with type of archive (e.g. 1 for W.O.)
; ENERR - error message text (should be 0 for no error)
; output
; ENDA - ien of ENG ARCHIVE LOG entry
; ENERR - error message text or 0 when no error
RINIT ; initialize data dictionary
; save variables
RALL ; recall all records
RONE ; recall one record
CLOUT ; Close Archive Media and Exit
OUT ; Exit

External References

Name Field # of Occurrence
$$REWIND^%ZIS RONE+25
^DIR R+28, R+37, RINIT+15, RONE+4, RONE+22
D2^ENAR1 RINIT+15
GS^ENAR1 RINIT+15
ID^ENAR2 R+25
ARDEV^ENARGO R+12, R+42, RONE+26
CLOSE^ENARGO R+17, R+47, RONE+26, CLOUT+1
MTCHECK^ENARGO R+14, R+43, RONE+27
MTSETUP^ENARGO R+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Expected: ","^ENAR("_ENGBL_",-1)"
  • Line Location: R+19
Function Call: WRITE
  • Prompt: !,"Found: ",ENHD(3)
  • Line Location: R+20
Function Call: WRITE
  • Prompt: !,"Sorry, this media is unacceptable!"
  • Line Location: R+21
Function Call: WRITE
  • Prompt: !,"Press <RETURN> to continue"
  • Line Location: R+22
Function Call: WRITE
  • Prompt: !!!!,"Media written on: ",ENHD(1),!,"with header: ",ENHD(2),!
  • Line Location: R+26
Function Call: WRITE
  • Prompt: !,"Please wait while I reopen the archive device."
  • Line Location: R+41
Function Call: READ
  • Variable: ENX
  • Timeout: 15,ENX(1):15
  • Line Location: R+44
Function Call: WRITE
  • Prompt: !,"Elapsed time: ",$J($P($H,",",2)-ENSTART/60,6,2)," minutes."
  • Line Location: R+48
Function Call: WRITE
  • Prompt: $C(7),!,"But your file is not initialized properly",!
  • Line Location: RINIT+10
Function Call: WRITE
  • Prompt: !!,"O.K. Archive file is ready"
  • Line Location: RINIT+18
Function Call: WRITE
  • Prompt: !,"Now fetching global"
  • Line Location: RALL+1
Function Call: READ
  • Variable: ENX
  • Timeout: 15,ENX(1):15
  • Line Location: RALL+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: RALL+6
Function Call: WRITE
  • Prompt: !!,"The global is now on the system disk"
  • Line Location: RALL+8
Function Call: WRITE
  • Prompt: !,"Enter the exact "_ENFN_" record name. Remember to include"
  • Line Location: RONE+1
Function Call: WRITE
  • Prompt: !,"your station number as a pre-fix! (e.g. 688-B970121-001)",!
  • Line Location: RONE+2
Function Call: READ
  • Variable: ENX
  • Timeout: 15,ENX(1):15
  • Line Location: RONE+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: RONE+14
Function Call: WRITE
  • Prompt: !,"Sorry, that record doesn't appear to be on this archive."
  • Line Location: RONE+20
Function Call: WRITE
  • Prompt: !,"Please wait while I rewind (or reopen) the archive device."
  • Line Location: RONE+24
Function Call: READ
  • Variable: ENX
  • Timeout: 15,ENX(1):15
  • Line Location: RONE+28
Function Call: WRITE
  • Prompt: !!,"Found record ",$P(ENX(1),U,1),!
  • Line Location: RONE+32
Function Call: READ
  • Variable: ENX
  • Timeout: 15,ENX(1):15
  • Line Location: RONE+40
Routine Call
  • %ZIS
  • Line Location:
    • RONE+25
Routine Call
  • DIR
  • Line Location:
    • R+28
    • R+37
    • RINIT+15
    • RONE+4
    • RONE+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENAR( RINIT+4, RINIT+17!, RONE+19!, RONE+36*, RONE+37*
^TMP("ENAR" RINIT+2*, RINIT+6, RINIT+7!

Label References

Name Line Occurrences
CLOUT R+13, R+14, R+43, R+45, R+46
OUT R+12, R+18, R+25, R+28, R+37, R+42, RINIT+9, RINIT+19
RALL R+45
RINIT RINIT+9
RONE R+46, RONE+17

Naked Globals

Name Field # of Occurrence
^("INIT" RINIT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DIFQ RINIT+9
DIR R+28!, R+37!, RINIT+15!, RONE+4!, RONE+22!
DIR("?" R+32*, R+33*, R+34*, R+35*, R+36*, RINIT+12*, RINIT+13*, RINIT+14*
DIR("A" R+27*, R+31*, RINIT+11*, RONE+3*, RONE+21*
DIR("B" R+27*, R+31*, RINIT+11*, RONE+21*
DIR(0 R+27*, R+30*, RINIT+11*, RONE+3*, RONE+21*
DIROUT OUT+3!
DIRUT R+37, RONE+4, OUT+3!
DTIME R+22
DTOUT OUT+3!
DUOUT OUT+3!
ENA OUT+1!
ENBOT OUT+1!
>> ENDA R+25*
ENEOT OUT+1!
>> ENERR R+12, R+13, R+14, R+23*, R+25, R+28*, R+37*, R+42, R+43, R+45
R+46, RINIT+9, RINIT+15*, RALL+9*, RONE+4*, RONE+17, RONE+22*, RONE+26, RONE+27
ENFN R+10*, RINIT+12, RONE+1, RONE+3, RONE+36, OUT+1!
>> ENGBL R+18, R+19, RINIT+4, RINIT+17, RONE+19, RONE+36, RONE+37
ENHD OUT+1!
ENHD(1 R+16*, R+26
ENHD(2 R+16*, R+26
ENHD(3 R+16*, R+18, R+20
ENHD(4 R+16*, R+25
ENHFSIO R+12*, OUT+1!
ENHFSM R+12*, R+42*, RONE+26*, OUT+1!
ENION R+42, RONE+26, OUT+1!
ENJ RALL+3*, RALL+5*, RALL+6, RONE+10*, RONE+13*, RONE+14, RONE+33*, RONE+36, RONE+37, RONE+40
OUT+1!
ENMTERR OUT+1!
ENONLINE OUT+2!
ENR R+22*, RONE+5*, RONE+11, RONE+17, OUT+2!
ENRCLT R+38*, R+45, R+46, OUT+2!
ENREW OUT+2!
>> ENRT R+10
ENSTART R+48, RALL+3*, RONE+8*, OUT+2!
ENWPROT OUT+2!
ENX R+44*, RINIT+2*, RINIT+6*, RALL+4*, RALL+5, RALL+8, RONE+11*, RONE+12, RONE+28*, RONE+33
RONE+35, RONE+40*, RONE+41, OUT+2!
ENX(1 R+44*, RALL+4*, RALL+5, RONE+11*, RONE+12, RONE+17, RONE+28*, RONE+32, RONE+35, RONE+37
RONE+40*, RONE+41
I OUT+3!
IO R+16, R+44, RALL+2, RALL+6, RONE+9, RONE+14, RONE+25, RONE+28, RONE+39
IO(0 R+44, RALL+6, RALL+7, RONE+14, RONE+15, RONE+29
>> IOP R+42*, RONE+26*
>> IOPAR RONE+25
>> IOT R+13, R+14, R+43, RONE+25, RONE+27
U RONE+11, RONE+17, RONE+25, RONE+32, RONE+36, RONE+37
X OUT+3!
Y R+28, R+38, RINIT+15, RONE+5, RONE+22, RONE+25*, RONE+26, OUT+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All