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

Package: Lab Service

Routine: LRAR01


Information

LRAR01 ;DAL/HOAK EXTENSION OF LRAR00 ; 12/12/96 10:16 ;

Source Information

Source file <LRAR01.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ;
EN02 ;
CLEAN ;
; REMOVE ^LAR FOR READ TAPE IN
EN03 ;
PURGE ;
; PURGE DATA FROM ^LR THAT IS IN ^LAR
DQ2 ;
FLAG ;
; Whats happening in 69.9....
DEV ;
DEV1
KILL ;
PRT ;
QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"I will now CLEAR out the global"
  • Line Location: CLEAN+3
Function Call: WRITE
  • Prompt: !,"Search pass has not completed. "
  • Line Location: CLEAN+7
Function Call: WRITE
  • Prompt: !!,"Now read the tape back in to make sure we have a good tape."
  • Line Location: CLEAN+15
Function Call: WRITE
  • Prompt: !,"Then do the PURGE pass."
  • Line Location: CLEAN+16
Function Call: WRITE
  • Prompt: !," Please clear and reload the archive global.",$C(7)
  • Line Location: PURGE+4
Function Call: WRITE
  • Prompt: !,"PURGE in progress, or completed. Please let it finish."
  • Line Location: PURGE+6
Function Call: WRITE
  • Prompt: !!,"Not in the right state.",!!
  • Line Location: DQ2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: KILL+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: KILL+1
Info |  Source |  Entry Points |  Interaction Calls