YTSNEOP2 ;SLC/PIJ - Score NEO-PI-3 ; 01/08/2016
;;5.01;MENTAL HEALTH;**123**;DEC 30,1994;Build 73
;
;Public, Supported ICRs
; #2056 - Fileman API - $$GET1^DIQ
;
Q
;
PROGNOTE ;
N ANS,TXT,TSCORE
S RSLT=RSLT_""
I (SKIP>40) D Q ; too many blanks, do not score
.S RSLT=RSLT_"||Too many questions were not answered and no report is possible."
.S RSLT=RSLT_"|The maximum allowed is 41; in this administration the number of skipped items was "_SKIP
I (VR'="") D Q ; // Random responding, should not score
.S RSLT=RSLT_"||There is a very strong indication that the respondent answered the "
.S RSLT=RSLT_"|items in a random fashion. This is not a valid administration. |"
.S RSLT=RSLT_VR
I (VA=0)!(VA=1) D ; // Question A (Validity 1)
.S RSLT=RSLT_"||WARNING: The validity of the results is in question. "
.S RSLT=RSLT_"|The respondent said they did not answer the questions honestly or accurately."
.S RSLT=RSLT_"|The report provided below may be valid depending on why the respondent"
.S RSLT=RSLT_"|answered Question A with Strongly disagree or Disagree."
I (VB=1) D ; // Question B (Validity 2)
.S RSLT=RSLT_"||Validity concern:"
.S RSLT=RSLT_"|The respondent said they did not answer all the questions."
.S RSLT=RSLT_"|There are "_SKIP_" skipped questions. If there are"
.S RSLT=RSLT_"|more than 41 unanswered questions, the report is not valid."
I (VC=1) D ; // Question C (Validity 3)
.S RSLT=RSLT_"||Validity concern:"
.S RSLT=RSLT_"|The respondent said they did not enter all their answers in the correct location."
.S RSLT=RSLT_"|The report provided below may be valid depending on why the respondent"
.S RSLT=RSLT_"|answered Question C with a No."
I (THREE+FOUR)>150 D
.S RSLT=RSLT_"||Validity concern, Acquiescence:"
.S RSLT=RSLT_"|The respondent has agreed, or strong agreed, with more than 150 items."
.S RSLT=RSLT_"|This is very unusual; 99% of volunteer respondents did not agree with more"
.S RSLT=RSLT_"|than 150 items. Interpret these data with caution."
I (THREE+FOUR)<=50 D
.S RSLT=RSLT_"||Validity concern, Nay-Saying:"
.S RSLT=RSLT_"|The respondent has agreed, or strong agreed, with less than 50 items."
.S RSLT=RSLT_"|This is very unusual; 99% of volunteer respondents agreed with more"
.S RSLT=RSLT_"|than 50 items. Interpret these data with caution."
S RSLT=RSLT_"|| RAW T-Score Range"
S RSLT=RSLT_"| Domains"
S RSLT=RSLT_"|| N: Neuroticism "_" "_$P(TSARR("Neuroticism"),U,2)_" "_$$GETRTEXT^YTSNEOP1($P(TSARR("Neuroticism"),U,2))
S RSLT=RSLT_"| E: Extraversion "_" "_$P(TSARR("Extraversion"),U,2)_" "_$$GETRTEXT^YTSNEOP1($P(TSARR("Extraversion"),U,2))
S RSLT=RSLT_"| O: Openness "_" "_$P(TSARR("Openness"),U,2)_" "_$$GETRTEXT^YTSNEOP1($P(TSARR("Openness"),U,2))
S RSLT=RSLT_"| A: Agreeableness "_" "_$P(TSARR("Agreeableness"),U,2)_" "_$$GETRTEXT^YTSNEOP1($P(TSARR("Agreeableness"),U,2))
S RSLT=RSLT_"| C: Conscientiousness "_" "_$P(TSARR("Conscientiousness"),U,2)_" "_$$GETRTEXT^YTSNEOP1($P(TSARR("Conscientiousness"),U,2))
S RSLT=RSLT_"|| Neuroticism Facets"
S ANS=$G(TSARR("N1")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"|| N1: Anxiety"_$J($P(ANS,U,2),20)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("N2")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| N2: Angry Hostility"_$J($P(ANS,U,2),12)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("N3")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| N3: Depression"_$J($P(ANS,U,2),17)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("N4")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| N4: Self-Consciousness"_$J($P(ANS,U,2),9)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("N5")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| N5: Impulsiveness"_$J($P(ANS,U,2),14)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("N6")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| N6: Vulnerability"_$J($P(ANS,U,2),14)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S RSLT=RSLT_"|| Extraversion Facets"
S ANS=$G(TSARR("E1")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"|| E1: Warmth"_$J($P(ANS,U,2),21)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("E2")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| E2: Gregariousness"_$J($P(ANS,U,2),13)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("E3")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| E3: Assertiveness"_$J($P(ANS,U,2),14)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("E4")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| E4: Activity"_$J($P(ANS,U,2),19)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("E5")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| E5: Excitement-Seeking"_$J($P(ANS,U,2),9)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("E6")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| E6: Positive Emotions"_$J($P(ANS,U,2),10)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S RSLT=RSLT_"|| Openness Facets"
S ANS=$G(TSARR("O1")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"|| O1: Fantasy"_$J($P(ANS,U,2),20)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("O2")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| O2: Aesthetics"_$J($P(ANS,U,2),17)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("O3")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| O3: Feelings"_$J($P(ANS,U,2),19)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("O4")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| O4: Actions"_$J($P(ANS,U,2),20)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("O5")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| O5: Ideas"_$J($P(ANS,U,2),22)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("O6")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| O6: Values"_$J($P(ANS,U,2),21)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S RSLT=RSLT_"|| Agreeableness Facets"
S ANS=$G(TSARR("A1")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"|| A1: Trust"_$J($P(ANS,U,2),22)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("A2")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| A2: Straightforwardness"_$J($P(ANS,U,2),8)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("A3")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| A3: Altruism"_$J($P(ANS,U,2),19)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("A4")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| A4: Compliance"_$J($P(ANS,U,2),17)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("A5")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| A5: Modesty"_$J($P(ANS,U,2),20)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("A6")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| A6: Tender-Mindedness"_$J($P(ANS,U,2),10)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S RSLT=RSLT_"|| Conscientiousness Facets"
S ANS=$G(TSARR("C1")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"|| C1: Competence"_$J($P(ANS,U,2),17)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("C2")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| C2: Order"_$J($P(ANS,U,2),22)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("C3")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| C3: Dutifulness"_$J($P(ANS,U,2),16)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("C4")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| C4: Achievement Striving"_$J($P(ANS,U,2),7)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("C5")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| C5: Self-Discipline"_$J($P(ANS,U,2),12)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S ANS=$G(TSARR("C6")),TXT=$$GETRTEXT^YTSNEOP1($P(ANS,U,3))
S RSLT=RSLT_"| C6: Deliberation"_$J($P(ANS,U,2),15)_$J($P(ANS,U,3),10)_$J(TXT,(15+$L(TXT)-9))
S RSLT=RSLT_"|| Summary of Responses"
S RSLT=RSLT_"|| SD: "_$J(100*(ZERO/240),0,2)
S RSLT=RSLT_"% D: "_$J(100*(ONE/240),0,2)
S RSLT=RSLT_"% N: "_$J(100*(TWO/240),0,2)
S RSLT=RSLT_"% A: "_$J(100*(THREE/240),0,2)
S RSLT=RSLT_"% SA: "_$J(100*(FOUR/240),0,2)
S RSLT=RSLT_"% Skip: "_SKIP
;
D SUMTXT^YTSNEOP3
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYTSNEOP2 8437 printed Dec 13, 2024@02:20:24 Page 2
YTSNEOP2 ;SLC/PIJ - Score NEO-PI-3 ; 01/08/2016
+1 ;;5.01;MENTAL HEALTH;**123**;DEC 30,1994;Build 73
+2 ;
+3 ;Public, Supported ICRs
+4 ; #2056 - Fileman API - $$GET1^DIQ
+5 ;
+6 QUIT
+7 ;
PROGNOTE ;
+1 NEW ANS,TXT,TSCORE
+2 SET RSLT=RSLT_""
+3 ; too many blanks, do not score
IF (SKIP>40)
Begin DoDot:1
+4 SET RSLT=RSLT_"||Too many questions were not answered and no report is possible."
+5 SET RSLT=RSLT_"|The maximum allowed is 41; in this administration the number of skipped items was "_SKIP
End DoDot:1
QUIT
+6 ; // Random responding, should not score
IF (VR'="")
Begin DoDot:1
+7 SET RSLT=RSLT_"||There is a very strong indication that the respondent answered the "
+8 SET RSLT=RSLT_"|items in a random fashion. This is not a valid administration. |"
+9 SET RSLT=RSLT_VR
End DoDot:1
QUIT
+10 ; // Question A (Validity 1)
IF (VA=0)!(VA=1)
Begin DoDot:1
+11 SET RSLT=RSLT_"||WARNING: The validity of the results is in question. "
+12 SET RSLT=RSLT_"|The respondent said they did not answer the questions honestly or accurately."
+13 SET RSLT=RSLT_"|The report provided below may be valid depending on why the respondent"
+14 SET RSLT=RSLT_"|answered Question A with Strongly disagree or Disagree."
End DoDot:1
+15 ; // Question B (Validity 2)
IF (VB=1)
Begin DoDot:1
+16 SET RSLT=RSLT_"||Validity concern:"
+17 SET RSLT=RSLT_"|The respondent said they did not answer all the questions."
+18 SET RSLT=RSLT_"|There are "_SKIP_" skipped questions. If there are"
+19 SET RSLT=RSLT_"|more than 41 unanswered questions, the report is not valid."
End DoDot:1
+20 ; // Question C (Validity 3)
IF (VC=1)
Begin DoDot:1
+21 SET RSLT=RSLT_"||Validity concern:"
+22 SET RSLT=RSLT_"|The respondent said they did not enter all their answers in the correct location."
+23 SET RSLT=RSLT_"|The report provided below may be valid depending on why the respondent"
+24 SET RSLT=RSLT_"|answered Question C with a No."
End DoDot:1
+25 IF (THREE+FOUR)>150
Begin DoDot:1
+26 SET RSLT=RSLT_"||Validity concern, Acquiescence:"
+27 SET RSLT=RSLT_"|The respondent has agreed, or strong agreed, with more than 150 items."
+28 SET RSLT=RSLT_"|This is very unusual; 99% of volunteer respondents did not agree with more"
+29 SET RSLT=RSLT_"|than 150 items. Interpret these data with caution."
End DoDot:1
+30 IF (THREE+FOUR)<=50
Begin DoDot:1
+31 SET RSLT=RSLT_"||Validity concern, Nay-Saying:"
+32 SET RSLT=RSLT_"|The respondent has agreed, or strong agreed, with less than 50 items."
+33 SET RSLT=RSLT_"|This is very unusual; 99% of volunteer respondents agreed with more"
+34 SET RSLT=RSLT_"|than 50 items. Interpret these data with caution."
End DoDot:1
+35 SET RSLT=RSLT_"|| RAW T-Score Range"
+36 SET RSLT=RSLT_"| Domains"
+37 SET RSLT=RSLT_"|| N: Neuroticism "_" "_$PIECE(TSARR("Neuroticism"),U,2)_" "_$$GETRTEXT^YTSNEOP1($PIECE(TSARR("Neuroticism"),U,2))
+38 SET RSLT=RSLT_"| E: Extraversion "_" "_$PIECE(TSARR("Extraversion"),U,2)_" "_$$GETRTEXT^YTSNEOP1($PIECE(TSARR("Extraversion"),U,2))
+39 SET RSLT=RSLT_"| O: Openness "_" "_$PIECE(TSARR("Openness"),U,2)_" "_$$GETRTEXT^YTSNEOP1($PIECE(TSARR("Openness"),U,2))
+40 SET RSLT=RSLT_"| A: Agreeableness "_" "_$PIECE(TSARR("Agreeableness"),U,2)_" "_$$GETRTEXT^YTSNEOP1($PIECE(TSARR("Agreeableness"),U,2))
+41 SET RSLT=RSLT_"| C: Conscientiousness "_" "_$PIECE(TSARR("Conscientiousness"),U,2)_" "_$$GETRTEXT^YTSNEOP1($PIECE(TSARR("Conscientiousness"),U,2))
+42 SET RSLT=RSLT_"|| Neuroticism Facets"
+43 SET ANS=$GET(TSARR("N1"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+44 SET RSLT=RSLT_"|| N1: Anxiety"_$JUSTIFY($PIECE(ANS,U,2),20)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+45 SET ANS=$GET(TSARR("N2"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+46 SET RSLT=RSLT_"| N2: Angry Hostility"_$JUSTIFY($PIECE(ANS,U,2),12)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+47 SET ANS=$GET(TSARR("N3"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+48 SET RSLT=RSLT_"| N3: Depression"_$JUSTIFY($PIECE(ANS,U,2),17)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+49 SET ANS=$GET(TSARR("N4"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+50 SET RSLT=RSLT_"| N4: Self-Consciousness"_$JUSTIFY($PIECE(ANS,U,2),9)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+51 SET ANS=$GET(TSARR("N5"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+52 SET RSLT=RSLT_"| N5: Impulsiveness"_$JUSTIFY($PIECE(ANS,U,2),14)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+53 SET ANS=$GET(TSARR("N6"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+54 SET RSLT=RSLT_"| N6: Vulnerability"_$JUSTIFY($PIECE(ANS,U,2),14)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+55 SET RSLT=RSLT_"|| Extraversion Facets"
+56 SET ANS=$GET(TSARR("E1"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+57 SET RSLT=RSLT_"|| E1: Warmth"_$JUSTIFY($PIECE(ANS,U,2),21)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+58 SET ANS=$GET(TSARR("E2"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+59 SET RSLT=RSLT_"| E2: Gregariousness"_$JUSTIFY($PIECE(ANS,U,2),13)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+60 SET ANS=$GET(TSARR("E3"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+61 SET RSLT=RSLT_"| E3: Assertiveness"_$JUSTIFY($PIECE(ANS,U,2),14)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+62 SET ANS=$GET(TSARR("E4"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+63 SET RSLT=RSLT_"| E4: Activity"_$JUSTIFY($PIECE(ANS,U,2),19)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+64 SET ANS=$GET(TSARR("E5"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+65 SET RSLT=RSLT_"| E5: Excitement-Seeking"_$JUSTIFY($PIECE(ANS,U,2),9)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+66 SET ANS=$GET(TSARR("E6"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+67 SET RSLT=RSLT_"| E6: Positive Emotions"_$JUSTIFY($PIECE(ANS,U,2),10)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+68 SET RSLT=RSLT_"|| Openness Facets"
+69 SET ANS=$GET(TSARR("O1"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+70 SET RSLT=RSLT_"|| O1: Fantasy"_$JUSTIFY($PIECE(ANS,U,2),20)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+71 SET ANS=$GET(TSARR("O2"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+72 SET RSLT=RSLT_"| O2: Aesthetics"_$JUSTIFY($PIECE(ANS,U,2),17)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+73 SET ANS=$GET(TSARR("O3"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+74 SET RSLT=RSLT_"| O3: Feelings"_$JUSTIFY($PIECE(ANS,U,2),19)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+75 SET ANS=$GET(TSARR("O4"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+76 SET RSLT=RSLT_"| O4: Actions"_$JUSTIFY($PIECE(ANS,U,2),20)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+77 SET ANS=$GET(TSARR("O5"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+78 SET RSLT=RSLT_"| O5: Ideas"_$JUSTIFY($PIECE(ANS,U,2),22)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+79 SET ANS=$GET(TSARR("O6"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+80 SET RSLT=RSLT_"| O6: Values"_$JUSTIFY($PIECE(ANS,U,2),21)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+81 SET RSLT=RSLT_"|| Agreeableness Facets"
+82 SET ANS=$GET(TSARR("A1"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+83 SET RSLT=RSLT_"|| A1: Trust"_$JUSTIFY($PIECE(ANS,U,2),22)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+84 SET ANS=$GET(TSARR("A2"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+85 SET RSLT=RSLT_"| A2: Straightforwardness"_$JUSTIFY($PIECE(ANS,U,2),8)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+86 SET ANS=$GET(TSARR("A3"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+87 SET RSLT=RSLT_"| A3: Altruism"_$JUSTIFY($PIECE(ANS,U,2),19)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+88 SET ANS=$GET(TSARR("A4"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+89 SET RSLT=RSLT_"| A4: Compliance"_$JUSTIFY($PIECE(ANS,U,2),17)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+90 SET ANS=$GET(TSARR("A5"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+91 SET RSLT=RSLT_"| A5: Modesty"_$JUSTIFY($PIECE(ANS,U,2),20)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+92 SET ANS=$GET(TSARR("A6"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+93 SET RSLT=RSLT_"| A6: Tender-Mindedness"_$JUSTIFY($PIECE(ANS,U,2),10)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+94 SET RSLT=RSLT_"|| Conscientiousness Facets"
+95 SET ANS=$GET(TSARR("C1"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+96 SET RSLT=RSLT_"|| C1: Competence"_$JUSTIFY($PIECE(ANS,U,2),17)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+97 SET ANS=$GET(TSARR("C2"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+98 SET RSLT=RSLT_"| C2: Order"_$JUSTIFY($PIECE(ANS,U,2),22)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+99 SET ANS=$GET(TSARR("C3"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+100 SET RSLT=RSLT_"| C3: Dutifulness"_$JUSTIFY($PIECE(ANS,U,2),16)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+101 SET ANS=$GET(TSARR("C4"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+102 SET RSLT=RSLT_"| C4: Achievement Striving"_$JUSTIFY($PIECE(ANS,U,2),7)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+103 SET ANS=$GET(TSARR("C5"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+104 SET RSLT=RSLT_"| C5: Self-Discipline"_$JUSTIFY($PIECE(ANS,U,2),12)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+105 SET ANS=$GET(TSARR("C6"))
SET TXT=$$GETRTEXT^YTSNEOP1($PIECE(ANS,U,3))
+106 SET RSLT=RSLT_"| C6: Deliberation"_$JUSTIFY($PIECE(ANS,U,2),15)_$JUSTIFY($PIECE(ANS,U,3),10)_$JUSTIFY(TXT,(15+$LENGTH(TXT)-9))
+107 SET RSLT=RSLT_"|| Summary of Responses"
+108 SET RSLT=RSLT_"|| SD: "_$JUSTIFY(100*(ZERO/240),0,2)
+109 SET RSLT=RSLT_"% D: "_$JUSTIFY(100*(ONE/240),0,2)
+110 SET RSLT=RSLT_"% N: "_$JUSTIFY(100*(TWO/240),0,2)
+111 SET RSLT=RSLT_"% A: "_$JUSTIFY(100*(THREE/240),0,2)
+112 SET RSLT=RSLT_"% SA: "_$JUSTIFY(100*(FOUR/240),0,2)
+113 SET RSLT=RSLT_"% Skip: "_SKIP
+114 ;
+115 DO SUMTXT^YTSNEOP3
+116 QUIT
