Routine: XDRDVAL1

Information

XDRDVAL1 ;SF-CIOFO/JLI - CHECK SPECIFIED ENTRY FOR PROBLEMS ;12/04/2001 14:04

Name	Comments	DBIA/ICR reference
EN	;
LOOP	;
EN1(FILE,IEN,ARRAY)	;
LISTPROB(DATA)	;
FILENAME(FILE)	;
ENPAIR(FILE,ARRAY,MERGEFLG)	; ENTRY POINT FOR CHECKING AN ARRAY OF PAIRS AT START OF MERGE
SENDMESG(XMSUB,XMTEXT)	;
RMOVPAIR(FROM,TO,IEN,ARRAY)	;	ICR #3168 Status: Active Usage: Private
PAIROUT(FILE,FROM,TO,IEN,DATA)	;
PAIRID(FILE,FROM,TO,IEN)	;
STRIP(X1)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!! Line Location: LOOP+5
Function Call: WRITE	Prompt: !," .... WORKING HARD (may take a while)...",! Line Location: LOOP+8
Function Call: WRITE	Prompt: @IOF,!!! Line Location: LOOP+12
Function Call: WRITE	Prompt: !!,"DFN=",+XDRY," ",$P(@(FILEDIC_(+XDRY)_",0)"),U) Line Location: LOOP+13
Function Call: WRITE	Prompt: " [",$P(^(0),U,9),"]" Line Location: LOOP+13
Function Call: WRITE	Prompt: !?10,"No Problems Found....",!! Line Location: LOOP+14
Function Call: WRITE	Prompt: @IOF Line Location: LISTPROB+11
Function Call: WRITE	Prompt: !,"Field ",FIELD," [",$P(^DD(FILE,FIELD,0),U),"] IENS=",IENS Line Location: LISTPROB+16
Function Call: WRITE	Prompt: !," value: ",X Line Location: LISTPROB+17
Function Call: WRITE	Prompt: !," ",^(NNOTE) Line Location: LISTPROB+18
Function Call: WRITE	Prompt: !! Line Location: ENPAIR+42
Function Call: WRITE	Prompt: !," ******** REDIRECTED TO" Line Location: ENPAIR+51
Function Call: WRITE	Prompt: !,"FROM: DFN=",FROM," ",FRNAME Line Location: PAIRID+5
Function Call: WRITE	Prompt: " [",FRSSN,"]" Condition for execution: FILE=2!(FILE=200) Line Location: PAIRID+5
Function Call: WRITE	Prompt: " FILE 15 IEN: ",IEN Line Location: PAIRID+5
Function Call: WRITE	Prompt: !,"TO: DFN=",TO," ",TONAME Line Location: PAIRID+6
Function Call: WRITE	Prompt: " [",TOSSN,"]" Condition for execution: FILE=2!(FILE=200) Line Location: PAIRID+6