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

Package: Lab Service

Routine: LRCHIVK


Information

LRCHIVK ;SLC/RWF - REMOVE OLD LAB DATA ; 12/14/87 15:46 ;

Source Information

Source file <LRCHIVK.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lab Service 1 STAMP^LRX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRCHIV  LRCHIVE  

Entry Points

Name Comments DBIA/ICR reference
EN ;from LRCHIV
DFN
LAB
UPDT
END

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+0
Function Call: WRITE
  • Prompt: !,"Data not found."
  • Line Location: LAB+1
Function Call: WRITE
  • Prompt: !,"^LAR and ^LR don't match, Data not purged.",!," LRDFN = ",LRDFN_" Sub Script = "_LRSS_" LRIDT = "_LRIDT
  • Line Location: LAB+3
Function Call: WRITE
  • Prompt: !?4,"^LR("_LRDFN_","_LRSS_","_LRIDT_",0) = ",^LR(LRDFN,LRSS,LRIDT,0)
  • Line Location: LAB+4
Function Call: WRITE
  • Prompt: !,"^LAR(""Z"","_LRDFN_","_LRSS_","_LRIDT_",0) = ",^LAR("Z",LRDFN,LRSS,LRIDT,0)
  • Line Location: LAB+5
Function Call: WRITE
  • Prompt: !!,"**PURGE PASS DONE ** "
  • Line Location: END+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(69.9 - [#69.9] DFN+2*
^LAR("Z" - [#63.9999] DFN, DFN+1, LAB, LAB+2!, LAB+5, LAB+6!
^LR - [#63] LAB+1, LAB+2!*, LAB+4, UPDT+1, UPDT+2*, UPDT+3*

Label References

Name Line Occurrences
DFN DFN+2
END DFN
LAB DFN+1, LAB+1, LAB+2, LAB+7
UPDT DFN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C1 DFN+1*
>> I UPDT+1*
IO EN+1
IOF EN+1
>> LRCNT UPDT*, UPDT+1*, UPDT+2, UPDT+3
>> LRDFN EN+2*, DFN*, DFN+1, DFN+2, LAB, LAB+1, LAB+2, LAB+3, LAB+4, LAB+5
, LAB+6, UPDT+1, UPDT+2, UPDT+3
>> LRIDT DFN+1*, LAB*, LAB+1, LAB+2, LAB+3, LAB+4, LAB+5, LAB+6
>> LRSS DFN+1*, LAB, LAB+1, LAB+2, LAB+3, LAB+4, LAB+5, LAB+6, UPDT+1, UPDT+2
, UPDT+3
>> P1 LAB+2
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