YTSMIOS2 ;BAL/KTL - Score MIOS+B-IPF_V2 ; 11/09/23 2:02pm
Source file <YTSMIOS2.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 |
|
| SUM(QSTN,LIST) | ; return sum for questions in LIST
|
|
| BIPF(QSTN,LIST) | ; return the B-IPF score from questions in LIST
; expects YSDATA |
|
| REPORT(SCORES,CHKTXT) | ; build the scoring display for the report
; expects ^TMP($J,"YSCOR",...) and ^TMP($J,"YSG") from DLLSTR ; YSDATA from DLLSTR ; YSDATA(2+n)=questionId^sequence^choiceId or text response |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | SCORESV+14!, SCORESV+15, SCORESV+16*, SCORESV+17*, SCORESV+20*, SCORESV+21, SCORESV+22, SCORESV+23, SCORESV+25*, SCORESV+26* , SCORESV+27*, SCORESV+28*, REPORT+5, REPORT+6, REPORT+7 |
| ^YTT(601.75 - [#601.75] | SCORESV+6, REPORT+22, REPORT+23, REPORT+24, REPORT+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BIPF | SCORESV+2~, SCORESV+11*, SCORESV+28, REPORT+4~, REPORT+11*, REPORT+30*, REPORT+34 |
| CHKTXT | DLLSTR+11~, DLLSTR+13, DLLSTR+16, REPORT~, REPORT+14*, REPORT+15, REPORT+18*, REPORT+19*, REPORT+20*, REPORT+21 , REPORT+22*, REPORT+23*, REPORT+24*, REPORT+25*, REPORT+26* |
| CID | SCORESV+2~, SCORESV+4*, SCORESV+5, SCORESV+6 |
| CNT | BIPF+2~, BIPF+3*, BIPF+7*, BIPF+9, BIPF+10 |
| I | SCORESV+2~, SCORESV+3*, SCORESV+4, SCORESV+6, SCORESV+21*, SCORESV+22, SCORESV+23, SUM+1~, SUM+3*, BIPF+2~ , BIPF+4*, REPORT+4~, REPORT+5*, REPORT+6, REPORT+7, REPORT+15*, REPORT+16, REPORT+17 |
| J | SCORESV+2~, SCORESV+21*, SCORESV+24*, SCORESV+25, SCORESV+26, SCORESV+27, SCORESV+28 |
| LIST | SUM~, SUM+3, BIPF~, BIPF+4 |
| N | DLLSTR+11~, DLLSTR+14*, DLLSTR+15, DLLSTR+16 |
| NAME | REPORT+4~, REPORT+6*, REPORT+8, REPORT+9, REPORT+10, REPORT+11 |
| QCNT | SCORESV+2~, SCORESV+3*, SCORESV+6* |
| QID | SUM+1~, SUM+3*, SUM+4, SUM+5, SUM+6, BIPF+2~, BIPF+4*, BIPF+5, BIPF+6, BIPF+7 |
| QSTN | SCORESV+2~, SCORESV+8, SCORESV+9, SCORESV+10, SCORESV+11, SUM~, BIPF~ |
| QSTN( | SCORESV+6*, SUM+4, SUM+5, SUM+6, BIPF+5, BIPF+6, BIPF+7 |
| SCLID | SCORESV+19~, SCORESV+22*, SCORESV+25, SCORESV+26, SCORESV+27, SCORESV+28 |
| SCLNM | SCORESV+19~, SCORESV+23*, SCORESV+25, SCORESV+26, SCORESV+27, SCORESV+28 |
| SCORES | REPORT~, REPORT+38* |
| SCOREVAL | DLLSTR+11~, DLLSTR+13, DLLSTR+15 |
| SHAME | SCORESV+2~, SCORESV+9*, SCORESV+25, REPORT+4~, REPORT+8*, REPORT+31 |
| SUM | SUM+1~, SUM+2*, SUM+3, SUM+4*, SUM+5*, SUM+6*, SUM+7, BIPF+2~, BIPF+3*, BIPF+4 , BIPF+7*, BIPF+10 |
| TOTAL | SCORESV+2~, SCORESV+8*, SCORESV+27, REPORT+4~, REPORT+10*, REPORT+33 |
| TRUST | SCORESV+2~, SCORESV+10*, SCORESV+26, REPORT+4~, REPORT+9*, REPORT+32 |
| U | SCORESV+4, SCORESV+6, SCORESV+23, REPORT+16, REPORT+17 |
| VALUE | REPORT+4~, REPORT+7*, REPORT+8, REPORT+9, REPORT+10, REPORT+11 |
| X | REPORT+4~, REPORT+14*, REPORT+17*, REPORT+18, REPORT+19, REPORT+20, REPORT+22, REPORT+23, REPORT+24, REPORT+25 , REPORT+28*, REPORT+31*, REPORT+32*, REPORT+33*, REPORT+34*, REPORT+35*, REPORT+36*, REPORT+37*, REPORT+38 |
| YS | DLLSTR~, DLLSTR+12 |
| YSDATA | DLLSTR~, DLLSTR+12 |
| YSDATA( | DLLSTR+15*, DLLSTR+16*, SCORESV+3, SCORESV+4, SCORESV+6, REPORT+15, REPORT+16, REPORT+17 |
| YSDATA("" | DLLSTR+14 |
| YSTRNG | DLLSTR~, DLLSTR+9, DLLSTR+10 |
