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

Package: Lab Service

Routine: LRAR03


Information

LRAR03 ;DAL/HOAK NEW ARCHIVE PURGERSET ; 12/12/96 10:16 ;

Source Information

Source file <LRAR03.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ; Building block from...\/
; LRCHIVK SLC/RWF - REMOVE OLD LAB DATA ; 12/14/87 15:46 ;
EN ;from LRCHIV
DFN ;
LAB ;
UPDT
END
SET ;
JOBTIME ;
SCRNON ;
FLASH ;
SCRNOFF ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"START OF PURGE PASS"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: DFN+1
Function Call: WRITE
  • Prompt: !,"Data not found."
  • Line Location: LAB+3
Function Call: WRITE
  • Prompt: !,"^LAR and ^LR don't match, Data not purged.",!
  • Line Location: LAB+10
Function Call: WRITE
  • Prompt: " LRDFN = ",LRDFN_" Sub Script = "_LRSS_" LRIDT = "_LRIDT
  • Line Location: LAB+11
Function Call: WRITE
  • Prompt: !?4,"^LR("_LRDFN_","_LRSS_","_LRIDT_",0) = ",^LR(LRDFN,LRSS,LRIDT,0)
  • Line Location: LAB+12
Function Call: WRITE
  • Prompt: !,"^LAR(""Z"","_LRDFN_","_LRSS_","_LRIDT_",0) = ",^LAR("Z",LRDFN,LRSS,LRIDT,0)
  • Line Location: LAB+13
Function Call: WRITE
  • Prompt: !!,"**PURGE PASS DONE ** "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: IORVON
  • Line Location: JOBTIME+8
Function Call: WRITE
  • Prompt: ">"
  • Line Location: JOBTIME+9
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: JOBTIME+10
Function Call: WRITE
  • Prompt: IODHLT,$E((LRIN/LRJT0)*100,1,4),"% of ^LR"
  • Line Location: JOBTIME+12
Function Call: WRITE
  • Prompt: IODHLB,$E((LRIN/LRJT0)*100,1,4),"% of ^LR"
  • Line Location: JOBTIME+14
Info |  Source |  Entry Points |  Interaction Calls