Routine: YTSCOREV

Information

YTSCOREV ;SLC/KCM - Update scores with revision change ; 9/15/2015

Name	Comments	DBIA/ICR reference
RESCORE	; background task to ensure all results recorded for administrations ; expects: YSRSREV (revision identifier) to be passed in ; examples: "0~1" for all instruments, "142~2" for one instrument ; quit if re-scoring has been completed
DIRECT	; enter here to run interactively without tasking ; expects: YSRSREV (revision identifier) to be passed in
QTASK(YSRSREV,RESUME)	; Create background task for rescoring administrations ; YSRSREV: revision ID (for example: 0~1, 142~2) ; RESUME: $H start time for task
SCOREONE(YS123ADM)	; score one adminstration
DIFFREV(IEN71,YS123ADM)	; return true if different revision
DELRSLTS(YS123ADM)	; delete the current results of an administration
ERRHND	; Handle errors & clear stack ; Grab the error code
MONLOOP	; monitor re-scoring loop
SHOWPROG	; show progress of re-scoring process ; loop through revId's and show progress
SHOWERRS	; browse the errors
GETCMD()	; Get the next command
SEC2HMS(SS)	; return "#h #m #s" from seconds
LSTREV	; list revised instruments

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MONLOOP+6
Function Call: WRITE	Prompt: ! Line Location: SHOWPROG+22
Function Call: WRITE	Prompt: !,"Progress -- Rescore "_TSTNAM_" to revision "_REVNUM Line Location: SHOWPROG+23
Function Call: WRITE	Prompt: !," Current Status: "_STS Line Location: SHOWPROG+24
Function Call: WRITE	Prompt: !," Administrations: "_+EVAL_" evaluated of "_TOTL Line Location: SHOWPROG+25
Function Call: WRITE	Prompt: !," Total Re-scored: "_SCRD Line Location: SHOWPROG+26
Function Call: WRITE	Prompt: !," Elapsed Time: "_TIME_" (in "_SESS_" sessions)" Line Location: SHOWPROG+27
Function Call: WRITE	Prompt: !!,"Errors Encountered: "_$G(^XTMP("YTS-RESCORE","ERRORS"),0),! Line Location: SHOWPROG+29
Function Call: WRITE	Prompt: !,ADM,?10,$P(^YTT(601.71,TEST,0),U) Line Location: LSTREV+6
Function Call: WRITE	Prompt: ?22,$P(^YTT(601.92,IEN,0),U,3) Line Location: LSTREV+7
Function Call: WRITE	Prompt: ?47,"was ",$P(^YTT(601.92,IEN,1,1,0),U,3,6) Line Location: LSTREV+8
Function Call: WRITE	Prompt: ?62,"now ",$P(^YTT(601.92,IEN,0),U,4,7) Line Location: LSTREV+9
Function Call: WRITE	Prompt: !!,"Admin Total: ",CNT Line Location: LSTREV+10