- 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 Mar 13, 2025@21:25:18 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
