YTSFAST ;SLC/KCM - Score FAST ; 01/08/2016
Source file <YTSFAST.m>
| Package | Total | Call Graph |
|---|---|---|
| Mental Health | 1 | (DESGNTR,LDSCORES)^YTSCORE |
| VA FileMan | 1 | $$GET1^DIQ |
| 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 |
|
| OLDFAST() | ;
; expects YSDATA from DLLSTR |
|
| 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 |
|
| QSTNS | ; FAST questions -- ;;oldQuestionID^newChoiceID^QuestionText
|
| FileNo | Call Tags |
|---|---|
| ^YTT(601.75 - [#601.75] | GET1^DIQ |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANSID | REPORT+9~, REPORT+16*, REPORT+19 |
| ANSWER | REPORT+9~, REPORT+17*, REPORT+18*, REPORT+19 |
| CID | SCORESV+3~, SCORESV+4*, SCORESV+6, REPORT+3~, REPORT+5*, REPORT+6, REPORT+7 |
| DATA | OLDFAST+2~, OLDFAST+5*, OLDFAST+6, OLDFAST+7 |
| DES | OLDFAST+2~, OLDFAST+8, OLDFAST+10, OLDFAST+11, OLDFAST+12, OLDFAST+13, OLDFAST+14, OLDFAST+15 |
| I | SCORESV+3~, SCORESV+17*, SCORESV+18, SCORESV+19, REPORT+3~, REPORT+4*, REPORT+5 |
| J | SCORESV+3~, SCORESV+17*, SCORESV+20*, SCORESV+21 |
| LEG | OLDFAST+2~, OLDFAST+9*, OLDFAST+10, OLDFAST+11, OLDFAST+12, OLDFAST+13, OLDFAST+14, OLDFAST+15 |
| N | DLLSTR+11~ |
| NODE | OLDFAST+2~, OLDFAST+4*, OLDFAST+5, REPORT+9~, REPORT+12*, REPORT+19* |
| OLDFAST | REPORT+9~, REPORT+10*, REPORT+11, REPORT+17, REPORT+18 |
| OLDQSTN | REPORT+9~, REPORT+15*, REPORT+17 |
| QCID | REPORT+9~, REPORT+15*, REPORT+18 |
| QID | REPORT+3~, REPORT+5*, REPORT+7 |
| QLST | REPORT+3~ |
| QLST( | REPORT+7*, REPORT+17 |
| QNUM | REPORT+9~, REPORT+13*, REPORT+16 |
| QSTN | SCORESV+3~, SCORESV+4*, SCORESV+5 |
| QTXT | REPORT+9~, REPORT+15*, REPORT+19 |
| SCLID | SCORESV+15~, SCORESV+18*, SCORESV+21 |
| SCLNM | SCORESV+15~, SCORESV+19*, SCORESV+21 |
| SCORES | DLLSTR+11~ |
| STAGE | OLDFAST+3*, OLDFAST+10*, OLDFAST+11*, OLDFAST+12*, OLDFAST+13*, OLDFAST+14*, OLDFAST+15*, OLDFAST+16, SCORESV+3~, SCORESV+6* , SCORESV+7*, SCORESV+21 |
| THISCID | REPORT+9~, REPORT+11*, REPORT+18 |
| U | OLDFAST+6, OLDFAST+7, SCORESV+4, SCORESV+6, SCORESV+19, REPORT+5, REPORT+10, REPORT+11, REPORT+15 |
| X | REPORT+9~, REPORT+14*, REPORT+15 |
| YS | DLLSTR~, DLLSTR+12 |
| YSCDA | OLDFAST+2~, OLDFAST+7*, OLDFAST+9 |
| YSDATA | DLLSTR~, DLLSTR+12, DLLSTR+13, REPORT~ |
| YSDATA( | OLDFAST+4, OLDFAST+5, REPORT+4, REPORT+5, REPORT+19* |
| YSDATA("" | REPORT+12 |
| YSDATA(3 | SCORESV+4, REPORT+10, REPORT+11 |
| YSQN | OLDFAST+2~, OLDFAST+6*, OLDFAST+8 |
| YSTRNG | DLLSTR~, DLLSTR+9, DLLSTR+10 |
| Name | Field # of Occurrence |
|---|---|
| $T(QSTNS+QNUM | REPORT+14 |