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

Package: Lab Service

Routine: LRAR03


Information

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

Source Information

Source file <LRAR03.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lab Service 1 STAMP^LRX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRARCHIV  

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
STAMP^LRX EN+1, END

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

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+15
LAB DFN+2, LAB+3, LAB+7, LAB+15
SCRNOFF JOBTIME+16
UPDT DFN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C1 DFN+2*
>> DX JOBTIME+4*, JOBTIME+7*, JOBTIME+11*, JOBTIME+13*
>> DY JOBTIME+4*, JOBTIME+7*, JOBTIME+11*, JOBTIME+13*
>> I UPDT+1*
IO EN+1
>> IODHLB JOBTIME+14
>> IODHLT JOBTIME+12
IOF EN+1
>> IORVOFF JOBTIME+10
>> IORVON JOBTIME+8
IOST JOBTIME+2
>> IOXY JOBTIME+4, JOBTIME+7, JOBTIME+11, JOBTIME+13
>> 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
>> LRI JOBTIME+4, JOBTIME+6
>> LRIDT DFN+2*, LAB+1*, LAB+3, LAB+7, LAB+8, LAB+11, LAB+12, LAB+13, LAB+14
>> LRIN JOBTIME+6*, JOBTIME+7, JOBTIME+12, JOBTIME+14
>> LRJT0 JOBTIME+5, JOBTIME+6, JOBTIME+12, JOBTIME+14
>> 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 JOBTIME+5*, JOBTIME+6*
>> OK JOBTIME+3*, JOBTIME+16
>> 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