YTSCORE ;SLC/KCM - Scoring for complex instruments ;Feb 28, 2024@15:02:07
Source file <YTSCORE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DLL | ; stub entry point for instruments scored by DLL
|
|
| DESGNTR(YSQN,DES) | ; Create DESIGNTR variable, used for Reports
|
|
| LOADANSW(YSDATA,YS) | ; patch 123, loads answers, builds YSDATA array
|
|
| SCOREINS(YSDATA,IEN71) | ;
; patch 123, scores responses (answers) for a given instrument ; YSDATA contains Answers for instrument |
|
| CHKSCRE() | ;
|
|
| LDSCORES(YSDATA,YS) | ; new call for patch 123
|
|
| UPDSCORE(YSDATA,YS) | ; files entries in MH RESULTS (601.92)
|
|
| CHKSCR(YSC,YSG) | ; return 1 if there are different values, 0 if values in scoring are the same
|
|
| ADDAUDIT(YSC,YSG) | ; add entry in AUDIT node, update value in existing MH RESULTS record
|
|
| ADDSCRE | ;add score to MH RESULTS
|
|
| OLDSCRES(YSCALE,YSAD) | ; if existing score, build array containing them
|
|
| SETREV(YSAD,IEN71) | ; set revision value in MH ADMINISTRATIONS to value in MH TEST AND SURVEYS
|
|
| LDTSCOR(TSARR,YSAD) | ;
|
|
| BYKEY(YSDATA) | ; use YSDATA to score by key and put into ^TMP($J,"YSCOR")
; expects scales to already be in ^TMP($J,"YSG") |
| RPC Name | Call Tags |
|---|---|
| YTQ GET RESULTS | LDSCORES |
| FileNo | Call Tags |
|---|---|
| ^YTT(601.71 - [#601.71] | GET1^DIQ |
| ^YTT(601.84 - [#601.84] | GET1^DIQ |
