Routine: XDRDPREL

Information

XDRDPREL ;SF-IRMFO.SEA/JLI - PRELIMINARY IDENTIFICATION OF ENTRIES WITH BAD DATA ;9/19/96 09:19

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