Call Graph
Call Graph Total: 2
| Package | Total | Call Graph |
|---|---|---|
| Mental Health | 1 | LDSCORES^YTSCORE |
| VA FileMan | 1 | $$GET1^DIQ |
YTSPRM10 ;SLC/KCM - Score PROMIS10 ; 3/25/22 2:02pm
Source file <YTSPRM10.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) |
|
| SUM(QSTN,LIST) | ; return sum of values 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 |
|
| SCORSTR(RAW,T1,COL) | ; return formatted string of score
|
|
| TBLVAL(RAW,COLUMN) | ; return table value given RAW score and COLUMN
|
|
| TMAP | ; Map of raw scores to t-scores
|
|
| RECODE(RAW) | ; return recoded value for question 10
|
|
| MAP10 | ; Map for question 10
|
| FileNo | Call Tags |
|---|---|
| ^YTT(601.75 - [#601.75] | GET1^DIQ |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CID | SCORESV+2~, SCORESV+4*, SCORESV+5, SCORESV+6 |
| CNT | SUM+4~, SUM+5*, SUM+8*, SUM+9 |
| COL | SCORSTR~, SCORSTR+2 |
| COLUMN | TBLVAL~, TBLVAL+3 |
| GHLTH | SCORESV+2~, SCORESV+9*, SCORESV+26, REPORT+3~, REPORT+10*, REPORT+18 |
| GMENT | SCORESV+2~, SCORESV+8*, SCORESV+25, REPORT+3~, REPORT+9*, REPORT+13*, REPORT+17 |
| GPHYS | SCORESV+2~, SCORESV+7*, SCORESV+24, REPORT+3~, REPORT+8*, REPORT+12*, REPORT+16 |
| I | SCORESV+2~, SCORESV+3*, SCORESV+4, SCORESV+20*, SCORESV+21, SCORESV+22, SUM+4~, SUM+6*, REPORT+3~, REPORT+4* , REPORT+5, REPORT+6, RECODE+1~, RECODE+2* |
| J | SCORESV+2~, SCORESV+20*, SCORESV+23*, SCORESV+24, SCORESV+25, SCORESV+26, SCORESV+27 |
| LIST | SUM~, SUM+6, SUM+9 |
| N | DLLSTR+11~, DLLSTR+14*, DLLSTR+15, TBLVAL+1~, TBLVAL+3*, TBLVAL+4 |
| NAME | REPORT+3~, REPORT+5*, REPORT+8, REPORT+9, REPORT+10, REPORT+11 |
| QID | SCORESV+2~, SCORESV+4*, SCORESV+6, SUM+4~, SUM+6*, SUM+7, SUM+8 |
| QSTN | SCORESV+2~, SCORESV+7, SCORESV+8, SCORESV+9, SCORESV+10, SUM~ |
| QSTN( | SCORESV+6*, SUM+7*, SUM+8 |
| RAW | SCORSTR~, SCORSTR+1, SCORSTR+2, TBLVAL~, RECODE~, RECODE+2 |
| SCLID | SCORESV+18~, SCORESV+21*, SCORESV+24, SCORESV+25, SCORESV+26, SCORESV+27 |
| SCLNM | SCORESV+18~, SCORESV+22*, SCORESV+24, SCORESV+25, SCORESV+26, SCORESV+27 |
| SCORES | DLLSTR+11~, DLLSTR+13, DLLSTR+15, REPORT~, REPORT+20* |
| SOCL | SCORESV+2~, SCORESV+10*, SCORESV+27, REPORT+3~, REPORT+11*, REPORT+19 |
| SUM | SUM+4~, SUM+6*, SUM+8*, SUM+9 |
| T1 | SCORSTR~, SCORSTR+2 |
| TGMENT | REPORT+3~, REPORT+13*, REPORT+17 |
| TGPHYS | REPORT+3~, REPORT+12*, REPORT+16 |
| U | SCORESV+4, SCORESV+22, SCORESV+24, SCORESV+25, REPORT+12, REPORT+13, TBLVAL+3, RECODE+2 |
| VALUE | REPORT+3~, REPORT+6*, REPORT+7*, REPORT+8, REPORT+9, REPORT+10, REPORT+11 |
| X | REPORT+3~, REPORT+14*, REPORT+15*, REPORT+16*, REPORT+17*, REPORT+18*, REPORT+19*, REPORT+20, TBLVAL+1~, TBLVAL+2* , TBLVAL+3, RECODE+1~, RECODE+2* |
| Y | RECODE+1~, RECODE+2*, RECODE+3 |
| YS | DLLSTR~, DLLSTR+12 |
| YSDATA | DLLSTR~, DLLSTR+12 |
| YSDATA( | DLLSTR+15*, SCORESV+3, SCORESV+4 |
| YSDATA("" | DLLSTR+14 |
| YSTRNG | DLLSTR~, DLLSTR+9, DLLSTR+10 |
| Name | Field # of Occurrence |
|---|---|
| $T(MAP10+I | RECODE+2 |
| $T(TMAP+RAW | TBLVAL+2 |
