Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: YTSNPIQ

Package: Mental Health

Routine: YTSNPIQ


Information

YTSNPIQ ;SLC/KCM - Reporting logic for NPI-Q ; 3/25/22 2:02pm

Source Information

Source file <YTSNPIQ.m>

Entry Points

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
Info |  Source |  Entry Points