YTSPRM10 ;SLC/KCM - Score PROMIS10 ; 3/25/22 2:02pm
Source file <YTSPRM10.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DLLSTR(YSDATA,YS,YSTRNG) | ; compute scores or report text based on YSTRNG
; input ; YSDATA(2)=adminId^patientDFN^instrumentName^dateGiven^isComplete ; YSDATA(2+n)=questionId^sequence^choiceId ; YS("AD")=adminId ; YSTRNG=1 for score, 2 for report ; output if YSTRNG=1: ^TMP($J,"YSCOR",n)=scaleId=score ; output if YSTRNG=2: append special "answers" to YSDATA |
|
SCORESV | ; calculate the score
; expects YSDATA from DLLSTR (YSDATA from LOADANSW^YTSCORE,SCALEG^YTQAPI3) |
|
SUM(QSTN,LIST) | ; return sum of values for questions in LIST
|
|
REPORT(SCORES) | ; build the scoring display for the report
; expects ^TMP($J,"YSCOR",...) and ^TMP($J,"YSG") from DLLSTR ; YSDATA from DLLSTR |
|
SCORSTR(RAW,T1,COL) | ; return formatted string of score
|
|
TBLVAL(RAW,COLUMN) | ; return table value given RAW score and COLUMN
|
|
TMAP | ; Map of raw scores to t-scores
|
|
RECODE(RAW) | ; return recoded value for question 10
|
|
MAP10 | ; Map for question 10
|
FileNo | Call Tags |
---|---|
^YTT(601.75 - [#601.75] | GET1^DIQ |