YTSSBAFP ;SLC/KCM - Score SBAF-PTSD ; 3/25/22 2:02pm
Source file <YTSSBAFP.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) |
|
| SUM(QSTN,LIST) | ; return sum 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 |
|
| SCORTXT(SUM,N) | ; return score string
|
|
| AVERAGE(SUM,N) | ; return formatted average
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CID | SCORESV+2~, SCORESV+4*, SCORESV+5, SCORESV+6 |
| CNT | SUM+1~, SUM+4*, SUM+7*, SUM+9 |
| I | SCORESV+2~, SCORESV+3*, SCORESV+4, SCORESV+6, SCORESV+17*, SCORESV+18, SCORESV+19, SUM+1~, SUM+5*, SUM+13* , REPORT+3~, REPORT+4*, REPORT+5, REPORT+6 |
| J | SCORESV+2~, SCORESV+17*, SCORESV+20*, SCORESV+21 |
| LIST | SUM~, SUM+5, SUM+13 |
| MEAN | SUM+1~, SUM+4*, SUM+7*, SUM+9*, SUM+14 |
| N | DLLSTR+11~, DLLSTR+14*, DLLSTR+15, SCORTXT~, SCORTXT+2, AVERAGE~, AVERAGE+1 |
| NAME | REPORT+3~, REPORT+5*, REPORT+7 |
| PTSD | REPORT+3~, REPORT+7*, REPORT+10 |
| QID | SUM+1~, SUM+5*, SUM+6, SUM+7, SUM+13*, SUM+14, SUM+15 |
| QSTN | SCORESV+2~, SCORESV+7, SUM~ |
| QSTN( | SCORESV+6*, SUM+6, SUM+7, SUM+14, SUM+15 |
| SCLID | SCORESV+15~, SCORESV+18*, SCORESV+21 |
| SCLNM | SCORESV+15~, SCORESV+19*, SCORESV+21 |
| SCORES | DLLSTR+11~, DLLSTR+13, DLLSTR+15, REPORT~, REPORT+11* |
| SKIPS | SUM+1~, SUM+4*, SUM+6*, SUM+8 |
| SUM | SUM+1~, SUM+8*, SUM+13*, SUM+14*, SUM+15*, SUM+16, SCORTXT~, SCORTXT+1, SCORTXT+2, AVERAGE~ , AVERAGE+1 |
| TOTAL | SCORESV+2~, SCORESV+7*, SCORESV+21 |
| U | SCORESV+4, SCORESV+6, SCORESV+19 |
| VALUE | REPORT+3~, REPORT+6*, REPORT+7 |
| X | REPORT+3~, REPORT+8*, REPORT+9*, REPORT+10*, REPORT+11 |
| YS | DLLSTR~, DLLSTR+12 |
| YSDATA | DLLSTR~, DLLSTR+12 |
| YSDATA( | DLLSTR+15*, SCORESV+3, SCORESV+4, SCORESV+6 |
| YSDATA("" | DLLSTR+14 |
| YSTRNG | DLLSTR~, DLLSTR+9, DLLSTR+10 |
