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 |  Interaction Calls
Print Page as PDF
Routine: YTNEOPI1

Package: Mental Health

Routine: YTNEOPI1


Information

YTNEOPI1 ;ALB/ASF-NEO PI-R TEST PROFILE ;7/28/95 12:56 ;

Source Information

Source file <YTNEOPI1.m>

Entry Points

Name Comments DBIA/ICR reference
A ;setup
TOP ;
L ;loop thru graph
W ;
END ;
WL ;
WS ;
BOTTOM ;
IR ;responses
IR1
IR2
VALD ;validity index
VTXT
241
RAND ;randon resp
YN ;yea_nea
SS ;scale skips
SS1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?30,"NEO PI-R Profile",!?5,"Factors"
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: ?16,Z3,!?5,"N E O A C",?16,Z4
  • Line Location: TOP+3
Function Call: WRITE
  • Prompt: !,$J($E(Z2,(76-YSLV))_YSLL,4),"|"
  • Line Location: WL+2
Function Call: WRITE
  • Prompt: $S(B(I):$E(Z1,I)_" ",1:" ")
  • Line Location: WL+3
Function Call: WRITE
  • Prompt: "|"
  • Condition for execution: I=35
  • Line Location: WL+3
Function Call: WRITE
  • Prompt: "|",YSLL
  • Line Location: WL+4
Function Call: WRITE
  • Prompt: !,$J(YSLL,4),"|"
  • Line Location: WS+2
Function Call: WRITE
  • Prompt: $S(B(I):$E(Z1,I)_"-",1:"--")
  • Line Location: WS+3
Function Call: WRITE
  • Prompt: "|"
  • Condition for execution: I=35
  • Line Location: WS+3
Function Call: WRITE
  • Prompt: "|",YSLL
  • Line Location: WS+4
Function Call: WRITE
  • Prompt: !?5,"N E O A C",?16,Z3,!?16,Z4
  • Line Location: BOTTOM+2
Function Call: WRITE
  • Prompt: !!,"Copyright (c) 1985, 1988, 1992, 1994 by Psychological Assessment Resources Inc.",!,"Reproduced by permission."
  • Line Location: BOTTOM+3
Function Call: WRITE
  • Prompt: !?30,"NEO PI-R Item Responses",!
  • Line Location: IR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: IR+3
Function Call: WRITE
  • Prompt: !," Validity A. "
  • Line Location: IR+4
Function Call: WRITE
  • Prompt: !!?30,"Summary of Responses",!?3
  • Line Location: IR+6
Function Call: WRITE
  • Prompt: $S(J=1:"SD",J=2:"D",J=3:"N",J=4:"A",J=5:"SA",1:"X"),": ",$J(J1,5,2),"% "
  • Line Location: IR+7
Function Call: WRITE
  • Prompt: $J(I,4),". "
  • Line Location: IR1+0
Function Call: WRITE
  • Prompt: $S($E(X,I)=1:"SD",$E(X,I)=2:" D",$E(X,I)=3:" N",$E(X,I)=4:" A",$E(X,I)=5:"SA",1:" X")," "
  • Line Location: IR2+0
Function Call: WRITE
  • Prompt: !!?30,"Validity Indices",!
  • Line Location: VALD+1
Function Call: WRITE
  • Prompt: !,"Profile not scored as respondant has skipped more",!,"than 41 items.",!
  • Line Location: VALD+3
Function Call: WRITE
  • Prompt: !,"Validity indices are within normal limits and the obtained",!,"test data appear to be valid.",!
  • Line Location: VTXT+0
Function Call: WRITE
  • Prompt: !,"TEST RESULTS ARE NOT CONSIDERED VALID. The profile will",!,"be printed but it should only be used if the administrator has reason to"
  • Line Location: VTXT+2
Function Call: WRITE
  • Prompt: !,"believe that the profile is valid despite these indications of inaccurate",!,"or random responding."
  • Line Location: VTXT+3
Function Call: WRITE
  • Prompt: !,"The respondant has denied answering the questions honestly and accurately."
  • Line Location: 241+0
Function Call: WRITE
  • Prompt: !,"The rater has used the same response option repeatedly in a manner",!,"that suggests random responding."
  • Line Location: RAND+1
Function Call: WRITE
  • Prompt: !,"This profile should be interpreted with CAUTION because a strong acquiescence",!,"bias may have influnced the results."
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: !,"This profile should be interpreted with CAUTION because a strong nay-saying",!,"bias may have influnced the results."
  • Line Location: YN+3
Function Call: WRITE
  • Prompt: !,"The following facet scale(s) have more than 3 skipped items:"
  • Line Location: SS1+0
Function Call: WRITE
  • Prompt: !?3,$P(^YTT(601,YSTEST,"S",I,0),U,2)
  • Line Location: SS1+1
Info |  Source |  Entry Points |  Interaction Calls