Routine: XMUTPUR0

Information

XMUTPUR0 ;(KVAMC)/XXX-Purge "AI" X-ref ;01/21/2003 07:50

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"We will kill all nodes older than ",$$FMTE^XLFDT(XMDT),"." Line Location: INIT+16
Function Call: WRITE	Prompt: !!,"***** Starting at ",$P($$HTE^XLFDT($H),"@",2),! Line Location: INIT+17
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: PROCESS+10
Function Call: WRITE	Prompt: ".",XMCNT Line Location: PROCESS+10
Function Call: WRITE	Prompt: !,"Nodes Reviewed:",?16,$J($FN(XMCNT,","),10),!,"Nodes Killed:",?16,$J($FN(XMKILL,","),10),!,"Nodes Remaining:",?16,$J($FN(XMCNT-XMKILL,","),10) Line Location: PROCESS+14
Function Call: WRITE	Prompt: !,"***** Finished at ",$P($$HTE^XLFDT($H),"@",2) Line Location: PROCESS+15