Routine: PSO7P274

Information

PSO7P274 ;SMT - PSO*7*274 Activity Log Cleanup ; 10/11/07 12:16pm

Name	Comments	DBIA/ICR reference
QUIT	;
STATUS	;show status of job running
STOP	;stop job command
ST()	;status
INITXTMP(NAMSP,TITLE,LIFE)	;create ^Xtmp according to SAC std
NAMSP()	;
EN	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"This job has been run before to completion on " Line Location: PSO7P274+20
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",2)),!! Line Location: PSO7P274+21
Function Call: WRITE	Prompt: "If you want to run it again, the global subscript ^XTMP('"_NAMSP_"') must be",! Line Location: PSO7P274+22
Function Call: WRITE	Prompt: "deleted prior to doing so.",!! Line Location: PSO7P274+23
Function Call: WRITE	Prompt: !,"Halting..." Line Location: PSO7P274+33
Function Call: WRITE	Prompt: !,"Currently processing:" Line Location: STATUS+2
Function Call: WRITE	Prompt: !,"COMPLETED ON ",$$FMTE^XLFDT($P($G(^XTMP($$NAMSP,0,"LAST")),"^",2)),! Line Location: STATUS+4
Function Call: WRITE	Prompt: !?5,"Date being processed > ",$$FMTE^XLFDT($P(^XTMP($$NAMSP,0,"LAST"),"^",3)) Line Location: STATUS+5
Function Call: WRITE	Prompt: !?5," RX # > ",$P(^XTMP($$NAMSP,0,"LAST"),"^",4) Line Location: STATUS+6
Function Call: WRITE	Prompt: !,"COMPLETED ON ",$$FMTE^XLFDT($P($G(^XTMP($$NAMSP,0,"LAST")),"^",2)),! Line Location: STATUS+10
Function Call: WRITE	Prompt: !,"TALLY MISSING EXPIRATION DATES Job - set to STOP Soon" Line Location: STOP+2
Function Call: WRITE	Prompt: !!,"Check Status to be sure it has stopped and is not running..." Line Location: STOP+3
Function Call: WRITE	Prompt: !," (D STATUS^PSOTEXP1)" Line Location: STOP+4
Function Call: WRITE	Prompt: !,"* NOT CURRENTLY RUNNING! *",! Line Location: ST+3