Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: YTQAPI2D

YTQAPI2D.m

Go to the documentation of this file.
  1. YTQAPI2D ;SLC/BLD- MHAX ANSWERS SPECIAL HANDLING #2 ; 9/27/18 10:27am
  1. ;;5.01;MENTAL HEALTH;**147,150**;Dec 30, 1994;Build 210
  1. ;
  1. ; This routine was split from YTQAPI2A.
  1. ; This routine handles limited complex reporting requirements without
  1. ; modifying YS_AUX.DLL by adding free text "answers" that can be used by
  1. ; a report.
  1. ;,
  1. ; Assumptions: EDIT incomplete instrument should ignore the extra answers
  1. ; since there are no associated questions. GRAPHING should ignore the
  1. ; answers since they not numeric.
  1. ;
  1. SPECIAL(TSTNM,YSDATA,N,YSAD,YSTSTN,QUIT) ; add "hidden" computed question text
  1. ;
  1. N ANSWER,DEPSCORE,IEN,KEY,LP,PCT,PTSD,SATTSCORE,SCORES,SCRE,SUCSCORE,SUISCORE,SWHENSCORES,TEXT,TEXT1,TEXT2
  1. N TEXT2A,TEXT2B,TOT,YSCORE,YSCREC,SUISCRN,ALLQUES,POSTXT1,POSTXT2,QUE1621,QUE67,QUE915
  1. ;
  1. I TSTNM="AD8" D Q
  1. .N TOTAL,TXT
  1. .S N=N+1
  1. .D GETSCORE^YTQAPI8(.YSCORE,.YS)
  1. .I ^TMP($J,"YSCOR",1)'="[DATA]" Q
  1. .S TOTAL=$P(^TMP($J,"YSCOR",2),"=",2)
  1. .I TOTAL>1 S TXT="COGNITIVE IMPAIRMENT IS LIKELY TO BE PRESENT."
  1. .I TOTAL<2 S TXT="NORMAL COGNITION"
  1. .S YSDATA(N)="7771^9999;1^"_TXT S N=N+1
  1. ;
  1. I TSTNM="EPDS" D Q
  1. .N TOTAL,TXT,EPDS
  1. .S N=N+1
  1. .D GETSCORE^YTQAPI8(.YSCORE,.YS)
  1. .I ^TMP($J,"YSCOR",1)'="[DATA]" Q
  1. .D YSARRAY^YTQAPI2C(.EPDS)
  1. .I $G(EPDS(10)) D
  1. ..S TXT="Question 10 that assesses ""thought of harming"" oneself was answered in the "
  1. ..S TXT2="POSITIVE direction, additional clinical assessment is indicated."
  1. ..S YSDATA(N)="7771^9999;1^"_TXT S N=N+1
  1. ..S YSDATA(N)="7772^9999;1^"_TXT2 S N=N+1
  1. ;
  1. I TSTNM="FTND" D
  1. .Q
  1. .N TOTAL,TXT,FTND,TEXT1,TEXT2,TEXT3,TXT2
  1. .S N=N+1
  1. .D GETSCORE^YTQAPI8(.YSCORE,.YS)
  1. .I ^TMP($J,"YSCOR",1)'="[DATA]" Q
  1. .;D YSARRAY^YTQAPI2C(.FTND)
  1. .S TOTAL=$P(^TMP($J,"YSCOR",2),"=",2)
  1. .S TEXT1=" indicating "
  1. .;S TEXT2="nicotine dependence."
  1. .I TOTAL<3 S TEXT3="VERY LOW nicotine dependence."
  1. .I TOTAL>2,TOTAL<5 S TEXT3="LOW nicotine dependence."
  1. .I TOTAL=5 S TEXT3="MEDIUM nicotine dependence."
  1. .I TOTAL>5,TOTAL<8 S TEXT3="HIGH nicotine dependence."
  1. .I TOTAL>7 S TEXT3="VERY HIGH nicotine dependence."
  1. .S YSDATA(N)="7771^9999;1^"_TOTAL_TEXT1_TEXT3
  1. .;
  1. ;
  1. ;
  1. ;I $L($T(SPECIAL^YTQAPI2E)) D SPECIAL^YTQAPI2E(TSTNM,.YSDATA,N,.YSAD,.YSTSTN)
  1. Q