Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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

Source Information

Source file <XDRDPREL.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls