YTSCIA ;SLC/KCM - Score CIA ; 3/25/22 2:02pm
Source file <YTSCIA.m>
Package | Total | Call Graph |
---|---|---|
Mental Health | 1 | 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 |
|
SCORESV | ; calculate the score
; expects YSDATA from DLLSTR (YSDATA from LOADANSW^YTSCORE,SCALEG^YTQAPI3) |
|
REPORT(SCORES) | ; build the scoring display for the report
; expects ^TMP($J,"YSCOR",...) and ^TMP($J,"YSG") from DLLSTR ; YSDATA from DLLSTR |
FileNo | Call Tags |
---|---|
^YTT(601.75 - [#601.75] | GET1^DIQ |
Name | Line Occurrences |
---|---|
REPORT | DLLSTR+13 |
SCORESV | DLLSTR+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CID | SCORESV+2~, SCORESV+4*, SCORESV+5, SCORESV+6 |
CNT | SCORESV+2~, SCORESV+7*, SCORESV+8*, SCORESV+9, SCORESV+10 |
I | SCORESV+2~, SCORESV+3*, SCORESV+4, SCORESV+21*, SCORESV+22, SCORESV+23, REPORT+3~, REPORT+4*, REPORT+5, REPORT+6 |
J | SCORESV+2~, SCORESV+21*, SCORESV+24*, SCORESV+25 |
N | DLLSTR+11~, DLLSTR+14*, DLLSTR+15 |
NAME | REPORT+3~, REPORT+5*, REPORT+8 |
QID | SCORESV+2~, SCORESV+4*, SCORESV+6, SCORESV+7*, SCORESV+8* |
QSTN | SCORESV+2~ |
QSTN( | SCORESV+6*, SCORESV+8 |
SCLID | SCORESV+19~, SCORESV+22*, SCORESV+25 |
SCLNM | SCORESV+19~, SCORESV+23*, SCORESV+25 |
SCORES | DLLSTR+11~, DLLSTR+13, DLLSTR+15, REPORT~, REPORT+9* |
SUM | SCORESV+2~, SCORESV+7*, SCORESV+8*, SCORESV+10 |
TOTAL | SCORESV+2~, SCORESV+9*, SCORESV+10*, SCORESV+11*, SCORESV+25, REPORT+3~, REPORT+8*, REPORT+9 |
U | SCORESV+4, SCORESV+23 |
VALUE | REPORT+3~, REPORT+6*, REPORT+7*, REPORT+8 |
YS | DLLSTR~, DLLSTR+12 |
YSDATA | DLLSTR~, DLLSTR+12 |
YSDATA( | DLLSTR+15*, SCORESV+3, SCORESV+4 |
YSDATA("" | DLLSTR+14 |
YSTRNG | DLLSTR~, DLLSTR+9, DLLSTR+10 |