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

Package: Registration

Routine: DGRPCR


Information

DGRPCR ;ALB/MRL,BAJ - CONSISTENCY FLAGGER, REBUILD FILE ; NOV 16, 2005

Source Information

Source file <DGRPCR.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 4 EN^DGRPC  ^DGRPCS  H^DGUTL  (CLOSE,QUE)^DGUTQ  
VA Fileman 4 ^%DT  ^%DTC  YN^DICN  DT^DICRW  
Income Verification Match 1 $$EN^IVMZ07C  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG CONSISTENCY REBUILD  

Entry Points

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

External References

Name Field # of Occurrence
^%DT D
^%DTC D
EN^DGRPC S+4, S+6
^DGRPCS DGRPCR+3
H^DGUTL S, S+7
CLOSE^DGUTQ Q
QUE^DGUTQ OK+3
YN^DICN K, OK+2
DT^DICRW DGRPCR+2
$$EN^IVMZ07C S+4, S+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,J
  • Line Location: DGRPCR+2
Function Call: WRITE
  • Prompt: !!,"LAST RUN COMPLETED: ",Y
  • Line Location: DGRPCR+3
Function Call: WRITE
  • Prompt: !!,"Do you want to delete the existing entries and rebuild the file"
  • Line Location: K+0
Function Call: WRITE
  • Prompt: !!?4,"Y - If you want to remove all existing entries from the INCONSISTENT DATA",!?9,"file and rebuild from scratch.",!?5,"N - If you just want to add newly identified inconsistencies to the",!?9,"existing file."
  • Line Location: K+1
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 check all patients who were admitted or registered on or after "
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !,Y," [Within the Past ",+DGDAY," day",$S(+DGDAY>1:"s",1:""),"]."
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !,"I will ",$S(DGKILL:"DELETE all existing entries prior to rebuilding",1:"add any new inconsistent data elements to the existing file"),"."
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: !!?4,"Y - If this is what you want to do.",!?4,"N - If you wish to STOP processing and reconsider this action."
  • Line Location: OK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DGRPCR+3, OK
^DG(43 - [#43] DGRPCR+3, S*, S+7*
^DGIN(38.5 - [#38.5] S+1!*
^DGPM - [#405] S+6
^DGPM("ATT1" S+5
^DPT("ADIS" S+3
^UTILITY($J Q!, S!, S+4*, S+6*

Label References

Name Line Occurrences
D D+1
K K+1
OK OK+2
Q DGRPCR+3, K, D, OK+2, S+7

Naked Globals

Name Field # of Occurrence
^("CON" DGRPCR+3
^(0 S+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% K*, K+1, OK+2*, Q!
%DT D*, OK!, Q!
%DT("A" D*
%DT(0 D*
DFN Q!, S+3*, S+4, S+6*
DGCONRUN DGRPCR+3, Q!
DGDAT D*, D+1, OK, Q!, S+3, S+5
DGDAY D*, OK, Q!
DGDD Q!, S+3*, S+5*
DGDD1 Q!, S+5*, S+6
DGEDCN Q!
DGKILL K*, OK+1, Q!, S+1
DGPGM OK+3*, Q!
DGTIME Q!, S, S+7
DGVAR OK+3*, Q!
DT D, D+1
I DGRPCR+2*, Q!
ION OK+3*
J DGRPCR+2*, Q!
PASS Q!, S+4*, S+6*
U DGRPCR+2*
X D, Q!
X1 D*, Q!
X2 D*, Q!
Y DGRPCR+3*, D, OK*, Q!

Marked Items

Name Field # of Occurrence
$T(T+I DGRPCR+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