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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGRPCK

Package: Registration

Routine: DGRPCK


Information

DGRPCK ;ALB/MRL - CONSISTENCY PURGE ; 11 FEB 1987

Source Information

Source file <DGRPCK.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 4 ^DGRPCF1  ^DGRPCS  H^DGUTL  (CLOSE,QUE)^DGUTQ  
VA FileMan 4 ^%DT  ^%DTC  YN^DICN  DT^DICRW  

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
Registration 1 DG CONSISTENCY PURGE  

Entry Points

Name Comments DBIA/ICR reference
OK
D
OK1
Q
S
C
T ;

External References

Name Field # of Occurrence
^%DT D
^%DTC D
^DGRPCF1 S+1
^DGRPCS DGRPCK+3
H^DGUTL S, S+2
CLOSE^DGUTQ Q
QUE^DGUTQ OK1+2
YN^DICN OK, OK1+1
DT^DICRW DGRPCK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,J
  • Line Location: DGRPCK+2
Function Call: WRITE
  • Prompt: !!,"LAST RUN COMPLETED: ",Y
  • Line Location: DGRPCK+3
Function Call: WRITE
  • Prompt: !!?4,"Y - If you want to purge data.",!?4,"N - If you don't wish to purge data."
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!?4,"SELECT A DATE IN THE PAST PLEASE!!",*7
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!,"I'm going to purge all patients from the INCONSISTENT DATA file who haven't been",!,"admitted or registered since "
  • Line Location: OK1+0
Function Call: WRITE
  • Prompt: Y," [",DGDAY," DAY",$S(DGDAY>1:"S",1:"")," AGO]."
  • Line Location: OK1+0
Function Call: WRITE
  • Prompt: !!?4,"Y - To start the purge process.",!?4,"N - To QUIT."
  • Line Location: OK1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DGRPCK+3, OK1
^DG(43 - [#43] DGRPCK+3, S*, S+2*
^DGIN(38.5 - [#38.5] S+1
^DGPM("APTT1" C
^DPT - [#2] C+1

Label References

Name Line Occurrences
C S+1
D D+1
OK OK
OK1 OK1+1
Q DGRPCK+3, OK, D, OK1+1, S+2

Naked Globals

Name Field # of Occurrence
^("CON" DGRPCK+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OK*, OK1+1*, Q!
%DT D*, OK1!, Q!
%DT("A" D*
%DT(0 D*
DFN Q!, S+1*, C, C+1
DGCONRUN DGRPCK+3, Q!
DGDAY D*, OK1, Q!
DGEDCN Q!, S+1*
DGKILL Q!, S+1, C*, C+2*
DGPGM OK1+2*, Q!
DGPURG D*, D+1, OK1, OK1+2*, Q!, C, C+2
DGTIME Q!, S, S+2
DGVAR OK1+2*, Q!
DIK Q!
DT D, D+1
I DGRPCK+2*, Q!
ION OK1+2*
J DGRPCK+2*, Q!
U DGRPCK+2*
X D, Q!, C+1*, C+2*
X1 D*, Q!
X2 D*, Q!
Y DGRPCK+3*, D, OK1*, Q!

Marked Items

Name Field # of Occurrence
$T(T+I DGRPCK+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All