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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LRMLPRG

Package: Lab Service

Routine: LRMLPRG


Information

LRMLPRG ;BPFO/DTG - PURGE PGM FOR NTRT PROCESS ;02102016

Source Information

Source file <LRMLPRG.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 HOME^%ZIS  ^%ZTLOAD  ($$DT,$$NOW)^XLFDT  
VA FileMan 2 ^DIE  $$GET1^DIQ  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Lab Service 1 LR NDS AUDIT PURGE  

Entry Points

Name Comments DBIA/ICR reference
EN ; enter here from [LR NTRT EDIT PURGE]
CALL ; from task manager
QUEA ; walk ^LAB(60,,15 and trim older audits
Q1
Q2
QDONE

External References

Name Field # of Occurrence
HOME^%ZIS EN+6
^%ZTLOAD EN+5, CALL+4
^DIE Q2+7
$$GET1^DIQ QUEA+5, Q2+1
$$SITE^VASITE QUEA+3
$$DT^XLFDT QUEA+2
$$NOW^XLFDT EN+4, CALL+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Request Queued, #",ZTSK
  • Condition for execution: $D(ZTSK)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+6
Routine Call
  • DIE
  • Line Location:
    • Q2+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
60.28 GET1^DIQ
^LAB(66.4 - [#66.4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] Q1Q2Q2+5, Q2+8
^LAB(66.4 - [#66.4] QUEA+4

Label References

Name Line Occurrences
Q1 Q2
Q2 Q2+1, Q2+2, Q2+5, Q2+9
QDONE QUEA+3, QUEA+4, Q1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A QUEA+1~, Q2+1*, Q2+2, QDONE!
B QUEA+1~, QUEA+3*, QUEA+4, QDONE!
DA QUEA+1~, Q2+6*, QDONE!
DA(1 Q2+6*
DIDEL QUEA+1~, Q2+4*, QDONE!
DIE QUEA+1~, Q2+6*, QDONE!
DR QUEA+1~, Q2+6*, QDONE!
DT QUEA+2*, QUEA+7
DUZ EN+2
LD QUEA+1~, Q1+1*, Q2*, Q2+1, Q2+5, Q2+6, Q2+8, QDONE!
LDT QUEA+1~, Q2+2*, QDONE!
LRDUZ EN+1~, EN+2*
LT QUEA+1~, QUEA+9*, Q1*, Q2Q2+1, Q2+5, Q2+6, Q2+8, QDONE!
PDT QUEA+1~, QUEA+7*, Q2+2, QDONE!
PS QUEA+1~, QUEA+4*, QUEA+5, QDONE!
PURGEDAYS QUEA+1~, QUEA+5*, QUEA+6*, QUEA+7, QDONE!
U QUEA+2*, QUEA+3
ZTDESC EN+1~, EN+3*, CALL+1~, CALL+2*
ZTDTH EN+1~, EN+4*, CALL+1~, CALL+3*
ZTIO EN+1~, EN+4*, CALL+1~
>> ZTQUEUED QDONE+1
>> ZTREQ QDONE+1*
ZTRTN EN+1~, EN+4*, CALL+1~, CALL+3*
ZTSAVE EN+1~, CALL+1~
ZTSAVE("LRDUZ" EN+2*
ZTSK EN+1~, EN+5, EN+6!, CALL+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All