Prompt: !!,"This program sets the DFNs of a DINUM file appropriately.",!
Line Location: START+2
Function Call: WRITE
Prompt: !!,"Corrupted ^DIC!",!,"No ""GL"" node in zeroth node of file ",DIC,"."
Line Location: START+7
Function Call: WRITE
Prompt: !!,XBDIGBL,"0) does not exist."
Line Location: START+10
Function Call: WRITE
Prompt: !!,"File ",DIC," has no entries."
Line Location: START+11
Function Call: WRITE
Prompt: !!,"Corrupted ^DD!"
Line Location: START+12
Function Call: WRITE
Prompt: !!,"File ",DIC," is not a DINUM file."
Line Location: START+13
Function Call: WRITE
Prompt: !!,"Global ",$E(XBDIGBL,1,$L(XBDIGBL)-1)," now renumbered and stored in ^UTILITY(""XBDINUM"",",$J,!," High DFN=",XBDI3," Number of entries=",XBDI4
Line Location: START+19
Function Call: WRITE
Prompt: !!,"Duplicate entries found. Stored in ^UTILITY(""XBDIDUP"",",$J,!," Eliminate duplicates and rerun this job!"
Line Location: START+20
Function Call: WRITE
Prompt: !!,XBDIX," has been killed! Now being recreated."