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 |  All
Print Page as PDF
Routine: XDRDPREL

Package: Toolkit

Routine: XDRDPREL


Information

XDRDPREL ;SF-IRMFO.SEA/JLI - PRELIMINARY IDENTIFICATION OF ENTRIES WITH BAD DATA ;9/19/96 09:19 [ 04/02/2003 8:47 AM ]

Source Information

Source file <XDRDPREL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZTLOAD  ($$HDIFF,$$HTE)^XLFDT  
VA Fileman 2 EN^DIQ1  ^DIR  
Toolkit 1 $$FILE^XDRDPICK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Toolkit 1 XDRDPRE1  

Entry Points

Name Comments DBIA/ICR reference
VIEW(XDRFL) ;
EN ;
EXIT
DQ ;

External References

Name Field # of Occurrence
^%ZTLOAD EN+15
EN^DIQ1 DQ+18
^DIR EN+4, EN+12, VIEW+22
$$FILE^XDRDPICK EN+1
$$HDIFF^XLFDT EN+9, VIEW+8
$$HTE^XLFDT EN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"A run was completed on "_$$HTE^XLFDT(^XTMP("XDRDPREL",XDRFL," DONE")),!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"There appears to be a job already running. You may either"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"view those data or check back in about 5 minutes.",!!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,"Queued as task ",ZTSK,!
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEW+10
Function Call: WRITE
  • Prompt: !!!,"RUN TIME: ",XTIME," CURRENT IEN: ",X(" CURR")," FILE ENTRIES: ",X(" TOTAL")
  • Line Location: VIEW+11
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+12
Function Call: WRITE
  • Prompt: !,$J(X(X),10)," ",XDRFNAM," entries are missing field # ",Y," ",$P(^DD(XDRFL,Y,0),U)
  • Line Location: VIEW+15
Function Call: WRITE
  • Prompt: !,$J(X("NO ZERO NODE"),10)," ",XDRFNAM," entries have NO zero node!"
  • Line Location: VIEW+16
Function Call: WRITE
  • Prompt: !,$J(X("BAD SSN"),10)," ",XDRFNAM," entries have bad SSN values (non-numeric, etc.)"
  • Line Location: VIEW+17
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+18
Function Call: WRITE
  • Prompt: !,$J(X(X),10)," ",XDRFNAM," entries are missing ",Y," of the fields above"
  • Line Location: VIEW+21
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+22
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • EN+12
    • VIEW+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DQ+3, VIEW+15
^DIC - [#1] EN+1, DQ+1
^XTMP("XDRDPREL" EN+2, EN+3, EN+8, EN+9

Label References

Name Line Occurrences
EXIT EN+1
VIEW EN+6, EN+13

Naked Globals

Name Field # of Occurrence
^( DQ+13*
^(" TIME" DQ+8*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA DQ+17*
>> DIC DQ+17*
>> DIQ DQ+17*
>> DIQ(0 DQ+17*
DIR EN+4!, EN+12!, VIEW+22!
DIR("A" EN+4*, EN+12*
DIR("B" EN+4*, EN+12*
DIR(0 EN+4*, EN+12*, VIEW+22*
>> DR DQ+16*
>> I DQ+20*, DQ+21, DQ+23
IOF VIEW+10
>> N DQ+19*, DQ+22*, DQ+32*, DQ+33, DQ+34
>> NTOT DQ+5*, DQ+9*, DQ+10
U EN+1, VIEW+15
X VIEW+1~, VIEW+5*, VIEW+6*, VIEW+13*, VIEW+14, VIEW+15, VIEW+18*, VIEW+19*, VIEW+20, VIEW+21
X( VIEW+6*, VIEW+13, VIEW+15, VIEW+19, VIEW+21
X(" CURR" VIEW+11
X(" DONE" VIEW+8
X(" START" VIEW+8
X(" TIME" VIEW+8
X(" TOTAL" VIEW+11
X("BAD SSN" VIEW+17
X("NO ZERO NO DE" , VIEW+16
>> XDRDA DQ+6*, DQ+8, DQ+14, DQ+17, DQ+20, DQ+21, DQ+25, DQ+26, DQ+31, DQ+36
>> XDRDR DQ+2*, DQ+3*, DQ+15, DQ+16
XDRFL EN+1*, EN+2, EN+3, EN+6, EN+7*, EN+8, EN+9, EN+13, EN+14*, DQ+1
, DQ+3, DQ+17, DQ+20, DQ+21, DQ+26, VIEW~, VIEW+15
>> XDRFNAM EN+1*, VIEW+15, VIEW+16, VIEW+17, VIEW+21
>> XDRGLB DQ+1*, DQ+6, DQ+7, DQ+11
>> XDRI DQ+3*
XDRN DQ+5!
XDRNV DQ+5!
XDRTMP DQ+4*, DQ+5, DQ+8, DQ+10, DQ+13, DQ+14, DQ+24, DQ+25, DQ+30, DQ+31
, DQ+35, DQ+36, DQ+37, DQ+38, VIEW+1~, VIEW+2*, VIEW+3, VIEW+4, VIEW+6, VIEW+7
XDRX DQ+17!
XDRX( DQ+20, DQ+21, DQ+26
>> XRUN VIEW+8*, VIEW+9
XTIME VIEW+1~, VIEW+9*, VIEW+11
>> XXX DQ+12*, DQ+13, DQ+14, DQ+23*, DQ+24, DQ+25, DQ+26*, DQ+27, DQ+28, DQ+29*
, DQ+30, DQ+31, DQ+34*, DQ+35, DQ+36
Y EN+5, EN+13, VIEW+1~, VIEW+14*, VIEW+15, VIEW+20*, VIEW+21
>> ZTDESC EN+15*
>> ZTIO EN+15*
>> ZTRTN EN+15*
>> ZTSAVE("XDRFL" EN+15*
>> ZTSK EN+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All