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

Package: Engineering

Routine: ENARGR


Information

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

Source Information

Source file <ENARGR.m>

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

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