YTSNPIQ ;SLC/KCM - Reporting logic for NPI-Q ; 3/25/22 2:02pm
Source file <YTSNPIQ.m>
| 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 |
|
| REPORT(SUMMARY,SCORES) | ; build .SCORE string
; expects YSDATA for answers |
|
| MKLN(SYM,PRES,SEV,DIS) | ; return a summary line
|
|
| BLDQSTN(QSTN) | ; build list of questions and response values in .QSTN
; expects YSDATA,YSTRNG from DLLSTR |
|
| BLDSCR(SCORES) | ; build array of .SCORES
; expects ^TMP($J,"YSCOR") from DLLSTR |
