YTSASRS ;ISP/LMT - Scoring and Report for ASRS ;Dec 20, 2023@13:04:34
Source file <YTSASRS.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) |
|
| REPORT(YSDATA) | ; build the scoring display for the report
; expects ^TMP($J,"YSCOR",...) and ^TMP($J,"YSG") from DLLSTR ; YSDATA from DLLSTR |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | SCORESV+24!, SCORESV+25, SCORESV+26*, SCORESV+27*, SCORESV+29*, SCORESV+32, SCORESV+33, SCORESV+34, SCORESV+36*, REPORT+8 , REPORT+9, REPORT+10 |
| ^YTT(601.71 - [#601.71] | REPORT+35 |
| ^YTT(601.75 - [#601.75] | SCORESV+18, REPORT+41, REPORT+53 |
| ^YTT(601.76 - [#601.76] | REPORT+45, REPORT+46, REPORT+47 |
| Name | Line Occurrences |
|---|---|
| $$REPORT | DLLSTR+15 |
| SCORESV | DLLSTR+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| U | DLLSTR+18, DLLSTR+20, SCORESV+16, SCORESV+17, SCORESV+18, SCORESV+34, REPORT+34, REPORT+39, REPORT+40, REPORT+41 , REPORT+46, REPORT+47, REPORT+53, REPORT+57 |
| YS | DLLSTR~, DLLSTR+14 |
| YSANSWER | SCORESV+4~, SCORESV+18*, SCORESV+19, SCORESV+21, REPORT+4~, REPORT+41*, REPORT+42, REPORT+50 |
| YSCHOICEID | SCORESV+4~, SCORESV+17*, SCORESV+18, REPORT+4~, REPORT+40*, REPORT+41, REPORT+53 |
| YSCNT | REPORT+4~, REPORT+32*, REPORT+51*, REPORT+55 |
| YSCNTNT | REPORT+5~, REPORT+44*, REPORT+46*, REPORT+47 |
| YSDATA | DLLSTR~, DLLSTR+14, DLLSTR+15, REPORT~ |
| YSDATA( | DLLSTR+18*, DLLSTR+20*, SCORESV+15, SCORESV+16, SCORESV+17, REPORT+37, REPORT+38 |
| YSDATA("" | DLLSTR+16 |
| YSDATA(2 | REPORT+34 |
| YSI | SCORESV+4~, SCORESV+14*, SCORESV+15*, SCORESV+16, SCORESV+17, SCORESV+30*, SCORESV+32*, SCORESV+33, SCORESV+34, REPORT+4~ , REPORT+8*, REPORT+9, REPORT+10, REPORT+36*, REPORT+37*, REPORT+38 |
| YSINDENT | REPORT+4~, REPORT+30*, REPORT+52, REPORT+53 |
| YSINSNAM | REPORT+5~, REPORT+34*, REPORT+35*, REPORT+46 |
| YSJ | SCORESV+4~, SCORESV+31*, SCORESV+35*, SCORESV+36, REPORT+5~, REPORT+45*, REPORT+46 |
| YSN | DLLSTR+9~, DLLSTR+16*, DLLSTR+17*, DLLSTR+18, DLLSTR+19*, DLLSTR+20 |
| YSNAME | REPORT+4~, REPORT+9*, REPORT+12 |
| YSNODE | REPORT+4~, REPORT+38*, REPORT+39, REPORT+40 |
| YSPARTA | SCORESV+4~, SCORESV+12*, SCORESV+21*, SCORESV+36, REPORT+4~, REPORT+11*, REPORT+13*, REPORT+14*, REPORT+57 |
| YSPARTB | REPORT+4~, REPORT+31*, REPORT+52*, REPORT+53*, REPORT+55*, REPORT+57 |
| YSQIDNT | REPORT+5~, REPORT+43*, REPORT+47*, REPORT+48*, REPORT+52 |
| YSQUESTION | SCORESV+4~, SCORESV+16*, SCORESV+19, SCORESV+20, SCORESV+21, REPORT+4~, REPORT+39*, REPORT+42, REPORT+45, REPORT+50 , REPORT+52 |
| YSSCLID | SCORESV+4~, SCORESV+33*, SCORESV+36 |
| YSSCLNM | SCORESV+4~, SCORESV+34*, SCORESV+36 |
| YSSCRCARD | SCORESV+4~, REPORT+4~ |
| YSSCRCARD( | SCORESV+20, SCORESV+21, REPORT+50 |
| YSSCRCARD(9331 | SCORESV+6* |
| YSSCRCARD(9332 | SCORESV+7* |
| YSSCRCARD(9333 | SCORESV+8* |
| YSSCRCARD(9334 | SCORESV+9* |
| YSSCRCARD(9335 | SCORESV+10* |
| YSSCRCARD(9336 | SCORESV+11* |
| YSSCRCARD(9337 | REPORT+17* |
| YSSCRCARD(9338 | REPORT+18* |
| YSSCRCARD(9339 | REPORT+19* |
| YSSCRCARD(9340 | REPORT+20* |
| YSSCRCARD(9341 | REPORT+21* |
| YSSCRCARD(9342 | REPORT+22* |
| YSSCRCARD(9343 | REPORT+23* |
| YSSCRCARD(9344 | REPORT+24* |
| YSSCRCARD(9345 | REPORT+25* |
| YSSCRCARD(9346 | REPORT+26* |
| YSSCRCARD(9347 | REPORT+27* |
| YSSCRCARD(9348 | REPORT+28* |
| YSTEXT | DLLSTR+9~, DLLSTR+15*, DLLSTR+18, DLLSTR+20 |
| YSTRNG | DLLSTR~, DLLSTR+11, DLLSTR+13 |
| YSVAL | REPORT+4~, REPORT+10*, REPORT+13 |
