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

Package: Patient Data Exchange

Routine: VAQPUR


Information

VAQPUR ;ALB/JRP - PURGING;15JUL93

Source Information

Source file <VAQPUR.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Patient Data Exchange 2 $$PURGER^VAQPUR10  ($$DOBFMT,$$NOW)^VAQUTL99  
VA FileMan 2 C^%DTC  ^DIR  
Kernel 1 ^%ZTLOAD  

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

Package Total Caller Graph
Patient Data Exchange 3 VAQ PDX PURGE  VAQ PURGE BY ENTERED DATE  VAQ PURGE BY ENTERED LIFE  
Registration 3 VAQ PDX PURGE  VAQ PURGE BY ENTERED DATE  VAQ PURGE BY ENTERED LIFE  

Entry Points

Name Comments DBIA/ICR reference
DEFAULT ;ENTRY POINT TO USE DEFAULT LIFETIME FOR PURGING
USERLIF ;ENTRY POINT TO GET LIFETIME FOR PURGING FROM USER
USERDAT ;ENTRY POINT TO GET DATE TO USE FOR PURGING FROM USER
TASKIT ;TASKS PURGER USING DATE PROVIDED BY USER

External References

Name Field # of Occurrence
C^%DTC DEFAULT+17, USERLIF+21, USERDAT+10, USERDAT+17
^%ZTLOAD TASKIT+12
^DIR USERLIF+13, USERDAT+23
$$PURGER^VAQPUR10 DEFAULT+20
$$DOBFMT^VAQUTL99 USERDAT+11
$$NOW^VAQUTL99 DEFAULT+16, USERLIF+20, USERDAT+8, USERDAT+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: TASKIT+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: TASKIT+19
Function Call: WRITE
  • Prompt: "Purging of PDX Transactions has been queued."
  • Line Location: TASKIT+20
Function Call: WRITE
  • Prompt: !,?2,"Task number: ",ZTSK
  • Line Location: TASKIT+21
Function Call: WRITE
  • Prompt: !!
  • Line Location: TASKIT+22
Routine Call
  • DIR
  • Line Location:
    • USERLIF+13
    • USERDAT+23

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VAT(394.81 - [#394.81] DEFAULT+8, DEFAULT+9

Label References

Name Line Occurrences
TASKIT DEFAULT+22, USERLIF+24, USERDAT+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H DEFAULT+5~, USERLIF+5~, USERDAT+5~
DIR USERLIF+5~, USERDAT+5~
DIR("?" USERLIF+10*, USERLIF+11*, USERLIF+12*, USERDAT+20*, USERDAT+21*, USERDAT+22*
DIR("A" USERLIF+8*, USERDAT+19*
DIR("B" USERLIF+9*, USERDAT+12*
DIR(0 USERLIF+7*, USERDAT+18*
DIROUT USERLIF+14!, USERDAT+24!
DIRUT USERLIF+14!, USERDAT+24!
DT DEFAULT+15, USERLIF+19, USERDAT+7, USERDAT+14
DTOUT USERLIF+14!, USERDAT+24!
DUOUT USERLIF+14!, USERDAT+24!
VAQDATE DEFAULT+5~, DEFAULT+18*, DEFAULT+20, USERLIF+5~, USERLIF+22*, USERDAT+25*, TASKIT+5
X DEFAULT+5~, DEFAULT+18, USERLIF+5~, USERLIF+22, USERDAT+5~, USERDAT+11, USERDAT+18
X1 DEFAULT+5~, DEFAULT+8*, DEFAULT+9, DEFAULT+15*, DEFAULT+16*, DEFAULT+20*, USERLIF+5~, USERLIF+19*, USERLIF+20*, USERDAT+5~
, USERDAT+7*, USERDAT+8*, USERDAT+11*, USERDAT+12, USERDAT+14*, USERDAT+15*
X2 DEFAULT+5~, DEFAULT+7*, DEFAULT+9*, DEFAULT+10*, DEFAULT+12*, DEFAULT+14*, USERLIF+5~, USERLIF+16*, USERLIF+18*, USERDAT+5~
, USERDAT+9*, USERDAT+16*
Y USERLIF+5~, USERLIF+16, USERDAT+5~, USERDAT+25
ZTDESC TASKIT+1~, TASKIT+4*
ZTDTH TASKIT+1~, TASKIT+8*
ZTIO TASKIT+1~, TASKIT+7*
>> ZTQUEUED DEFAULT+20
ZTRTN TASKIT+1~, TASKIT+3*
ZTSAVE TASKIT+1~
ZTSAVE("VAQDATE" TASKIT+5*
ZTSAVE("VAQINTR" TASKIT+6*
ZTSK TASKIT+1~, TASKIT+9*, TASKIT+14, TASKIT+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All