YTSEQ5D ;SLC/KCM - Score EQ-5D-5L ; 3/25/22 2:02pm
Source file <YTSEQ5D.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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) |
|
| BLDQSTN(QSTN) | ; build list of questions and response values in .QSTN
; expects YSDATA from DLLSTR |
|
| REPORT(STATE) | ; Build EQ-5D-5L score string
|
|
| TESTSCR(YSAD) | ; Test scoring routine
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | SCORESV+12!, SCORESV+13, SCORESV+14*, SCORESV+15*, SCORESV+18*, SCORESV+19, SCORESV+20, SCORESV+21, SCORESV+23*, SCORESV+24* , SCORESV+25*, SCORESV+26*, SCORESV+27*, SCORESV+28*, REPORT+2, REPORT+3, REPORT+4 |
| ^YTT(601.72 - [#601.72] | BLDQSTN+6 |
| ^YTT(601.75 - [#601.75] | BLDQSTN+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTIVITY | SCORESV+2~, SCORESV+6*, SCORESV+25, REPORT+1~, REPORT+7*, REPORT+13 |
| ANXIETY | SCORESV+2~, SCORESV+8*, SCORESV+27, REPORT+1~, REPORT+9*, REPORT+15 |
| CID | BLDQSTN+2~, BLDQSTN+4*, BLDQSTN+5, BLDQSTN+8 |
| EQVAS | SCORESV+2~, SCORESV+9*, SCORESV+28 |
| I | SCORESV+17~, SCORESV+19*, SCORESV+20, SCORESV+21, BLDQSTN+2~, BLDQSTN+3*, BLDQSTN+4, BLDQSTN+7, REPORT+1~, REPORT+2* , REPORT+3, REPORT+4 |
| J | SCORESV+17~, SCORESV+19*, SCORESV+22*, SCORESV+23, SCORESV+24, SCORESV+25, SCORESV+26, SCORESV+27, SCORESV+28 |
| MOBILE | SCORESV+2~, SCORESV+4*, SCORESV+23, REPORT+1~, REPORT+5*, REPORT+11 |
| N | DLLSTR+11~, DLLSTR+14*, DLLSTR+15 |
| NAME | REPORT+1~, REPORT+3*, REPORT+5, REPORT+6, REPORT+7, REPORT+8, REPORT+9 |
| PAIN | SCORESV+2~, SCORESV+7*, SCORESV+26, REPORT+1~, REPORT+8*, REPORT+14 |
| QID | BLDQSTN+2~, BLDQSTN+4*, BLDQSTN+6, BLDQSTN+7, BLDQSTN+8 |
| QSTN | SCORESV+2~, SCORESV+3, BLDQSTN~ |
| QSTN( | BLDQSTN+7*, BLDQSTN+8* |
| QSTN(9049 | SCORESV+4 |
| QSTN(9050 | SCORESV+5 |
| QSTN(9051 | SCORESV+6 |
| QSTN(9052 | SCORESV+7 |
| QSTN(9053 | SCORESV+8 |
| QSTN(9054 | SCORESV+9 |
| SCLID | SCORESV+17~, SCORESV+20*, SCORESV+23, SCORESV+24, SCORESV+25, SCORESV+26, SCORESV+27, SCORESV+28 |
| SCLNM | SCORESV+17~, SCORESV+21*, SCORESV+23, SCORESV+24, SCORESV+25, SCORESV+26, SCORESV+27, SCORESV+28 |
| SCORES | DLLSTR+11~ |
| SELFCARE | SCORESV+2~, SCORESV+5*, SCORESV+24, REPORT+1~, REPORT+6*, REPORT+12 |
| SKIP | REPORT+1~, REPORT+10*, REPORT+11, REPORT+12, REPORT+13, REPORT+14, REPORT+15 |
| STATE | DLLSTR+11~, DLLSTR+13, DLLSTR+15, REPORT~, REPORT+16* |
| U | SCORESV+21, BLDQSTN+4, BLDQSTN+6, BLDQSTN+7, BLDQSTN+8 |
| VALUE | REPORT+1~, REPORT+4*, REPORT+5, REPORT+6, REPORT+7, REPORT+8, REPORT+9 |
| X | REPORT+1~, REPORT+10*, REPORT+11*, REPORT+12*, REPORT+13*, REPORT+14*, REPORT+15*, REPORT+16 |
| YS | DLLSTR~, DLLSTR+12, TESTSCR+1~, TESTSCR+3, TESTSCR+4, TESTSCR+5 |
| YS("AD" | TESTSCR+2* |
| YS("CODE" | TESTSCR+2* |
| YSAD | TESTSCR~, TESTSCR+2 |
| YSDATA | DLLSTR~, DLLSTR+12, TESTSCR+1~, TESTSCR+3, TESTSCR+4, TESTSCR+5 |
| YSDATA( | DLLSTR+15*, BLDQSTN+3, BLDQSTN+4, BLDQSTN+7 |
| YSDATA("" | DLLSTR+14 |
| YSTRNG | DLLSTR~, DLLSTR+9, DLLSTR+10 |
