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 |  Local Variables |  All
Print Page as PDF
Routine: LRAR05

Package: Lab Service

Routine: LRAR05


Information

LRAR05 ; IHS/DIR/AAB - NEW ARCHIVE PURGER 12/12/96 10:16 ; [ 07/22/2002 1:05 PM ]

Source Information

Source file <LRAR05.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 (ENS,KILL)^%ZISS  $$FMTE^XLFDT  $$CJ^XLFSTR  
Lab Service 1 STAMP^LRX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAR01  

Entry Points

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

External References

Name Field # of Occurrence
ENS^%ZISS SCRNON+2
KILL^%ZISS SCRNOFF+2
STAMP^LRX EN+1, END
$$FMTE^XLFDT FLASH+5, FLASH+7
$$CJ^XLFSTR FLASH+5, FLASH+7

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: @IOF
  • Line Location: SET+2
Function Call: WRITE
  • Prompt: IORVON
  • Line Location: JOBTIME+7
Function Call: WRITE
  • Prompt: ">"
  • Line Location: JOBTIME+8
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: JOBTIME+9
Function Call: WRITE
  • Prompt: IODHLT,$E((LRIN/LRJT0)*100,1,4),"% of ^LR"
  • Line Location: JOBTIME+11
Function Call: WRITE
  • Prompt: IODHLB,$E((LRIN/LRJT0)*100,1,4),"% of ^LR"
  • Line Location: JOBTIME+13
Function Call: WRITE
  • Prompt: IOG1
  • Line Location: SCRNON+1
Function Call: WRITE
  • Prompt: IODHLT,$$CJ^XLFSTR($$FMTE^XLFDT(LRDT7,"D"),IOM)
  • Line Location: FLASH+5
Function Call: WRITE
  • Prompt: IODHLB,$$CJ^XLFSTR($$FMTE^XLFDT(LRDT7,"D"),IOM)
  • Line Location: FLASH+7
Function Call: WRITE
  • Prompt: IOBOFF
  • Line Location: SCRNOFF+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(69.9 - [#69.9] DFN+3*
^LAR("Z" - [#63.9999] DFN+1, DFN+2, LAB+1, LAB+7, LAB+8!, LAB+13, LAB+14!
^LR - [#63] LAB+3, LAB+7, LAB+8!, LAB+9*, LAB+12, UPDT+1, UPDT+2*, UPDT+3*

Label References

Name Line Occurrences
DFN DFN+3
END DFN+1
FLASH JOBTIME+14, SCRNON+3
LAB DFN+2, LAB+3, LAB+7, LAB+15
SCRNOFF JOBTIME+15
SCRNON SET+2
UPDT DFN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS SCRNON+2*
>> C1 DFN+2*
>> DX SET+2*, JOBTIME+3*, JOBTIME+6*, JOBTIME+10*, JOBTIME+12*, FLASH+3*
>> DY SET+2*, JOBTIME+3*, JOBTIME+6*, JOBTIME+10*, JOBTIME+12*, FLASH+3*, FLASH+6*
>> I UPDT+1*
IO EN+1
>> IOBOFF SCRNOFF+1
>> IODHLB JOBTIME+13, FLASH+7
>> IODHLT JOBTIME+11, FLASH+5
IOF EN+1, SET+2
IOM FLASH+5, FLASH+7
>> IORVOFF JOBTIME+9
>> IORVON JOBTIME+7
IOST SET+1, JOBTIME+1
>> IOXY SET+2, JOBTIME+3, JOBTIME+6, JOBTIME+10, JOBTIME+12, FLASH+3, FLASH+6
>> LR(1 FLASH+2
>> LRCNT UPDT*, UPDT+1*, UPDT+2, UPDT+3
>> LRDFN EN+2*, DFN+1*, DFN+2, DFN+3, LAB+1, LAB+3, LAB+7, LAB+8, LAB+9, LAB+11
, LAB+12, LAB+13, LAB+14, UPDT+1, UPDT+2, UPDT+3
>> LRDT7 FLASH+2*, FLASH+5, FLASH+7
>> LRI SET+2*, JOBTIME+3, JOBTIME+5
>> LRIDT DFN+2*, LAB+1*, LAB+3, LAB+7, LAB+8, LAB+11, LAB+12, LAB+13, LAB+14
>> LRIN SET+2*, JOBTIME+5*, JOBTIME+6, JOBTIME+11, JOBTIME+13
>> LRJT0 JOBTIME+4, JOBTIME+5, JOBTIME+11, JOBTIME+13
>> LRSS DFN+2*, LAB+1, LAB+3, LAB+7, LAB+8, LAB+11, LAB+12, LAB+13, LAB+14, UPDT+1
, UPDT+2, UPDT+3
LRTIC SET+2!, JOBTIME+4*, JOBTIME+5*
>> OK SET+2*, JOBTIME+2*, JOBTIME+15
>> P1 LAB+9
U UPDT+3
>> X UPDT*, UPDT+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All