Routine: YTKILINC

Information

YTKILINC ;SLC/TGA-KILL INCOMPLETE TESTS ;11/19/90 16:41 ;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option deletes incomplete tests and interviews which",!,"have been incomplete for longer than 30 days." Line Location: S+1
Function Call: READ	Variable: A Timeout: DTIME Line Location: S+2
Function Call: WRITE	Prompt: !!,"I will list any instruments I delete.",!! Line Location: S+3
Function Call: WRITE	Prompt: ! Line Location: ENP+3
Function Call: WRITE	Prompt: !,"DELETED ",$S($D(^YTT(601,T,0)):$P(^(0),U),1:"UNKOWN INSTRUMENT")," FOR ",$S($D(^DPT(P,0)):$P(^(0),U),1:"UNKNOWN PATIENT")," - ",$S(YSX:YSX,1:"?")," DAYS OLD" Line Location: D+3
Function Call: WRITE	Prompt: @IOF,!,"Deleted Incomplete Tests/Interviews",!! Line Location: HD+1

FileNo	Call Tags
^YTD(601.4 - [#601.4]	Classic Fileman Calls