Routine: DENTDUP

Information

DENTDUP ;ISC2/HAG-CHECK FOR DUPLICATE RECORD ; 10/12/88 3:04 PM ;

Source file <DENTDUP.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,?5,"One moment please it may take awhile.",! Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: REPORT+0
Function Call: WRITE	Prompt: !,?6,Y,?28,Y2,?49,$E(Y3,1,3)_"-"_$E(Y3,4,5)_"-"_$E(Y3,6,9) Line Location: REPORT1+0
Function Call: READ	Timeout: DTIME Line Location: HOLD+0
Function Call: WRITE	Prompt: @IOF,!,?(80-$L(HD)/2),HD,!,?(80-$L(HD1)/2),HD1,!,?(80-$L(H3)/2),H3 Line Location: HDR+0