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: YTPAI1

Package: Mental Health

Routine: YTPAI1


Information

YTPAI1 ;ALB/ASF-PAI TEST PROFILE ;11/7/95 13:45 ;

Source Information

Source file <YTPAI1.m>

Entry Points

Name Comments DBIA/ICR reference
A ;setup
TOP ;
L ;loop thru graph
W ;
END ;
WL ;
WS ;
BOTTOM ;
TS ;
RS ;
IR ;responses
IR1
IR2
SUBS ;sub scales
SS1 ;
BTEXT ;
CC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?30,"PAI Full Scale Profile"
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: !?19,"1 2 3 4 5 6 7 8 9 10 11 A B C D E Y Z"
  • Line Location: TOP+3
Function Call: WRITE
  • Prompt: !,$J(YSLL,4),"|"
  • Line Location: WL+2
Function Call: WRITE
  • Prompt: $S(B(I):C,1:" ")
  • Line Location: WL+3
Function Call: WRITE
  • Prompt: "|"
  • Condition for execution: I=4!(I=43)!(I=51)
  • 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):C,1:"---")
  • Line Location: WS+3
Function Call: WRITE
  • Prompt: "|"
  • Condition for execution: I=4!(I=43)!(I=51)
  • Line Location: WS+3
Function Call: WRITE
  • Prompt: "|",YSLL
  • Line Location: WS+4
Function Call: WRITE
  • Prompt: !?6,"I I N P S A A D M P S B A A D A S S N R D W"
  • Line Location: BOTTOM+2
Function Call: WRITE
  • Prompt: !?6,"C N I I O N R E A A C O N L R G U T O X O R"
  • Line Location: BOTTOM+3
Function Call: WRITE
  • Prompt: !?6,"N F M M M X D P N R Z R T C G G I R N R M M"
  • Line Location: BOTTOM+4
Function Call: WRITE
  • Prompt: !!?2,"T "
  • Line Location: TS+1
Function Call: WRITE
  • Prompt: $S(I=5!(I=48)!(I=52):" ",1:""),$P(S,U,I)," "
  • Line Location: TS+2
Function Call: WRITE
  • Prompt: !?9
  • Line Location: TS+3
Function Call: WRITE
  • Prompt: $S(I=9!(I=44)!(I=53):" ",1:""),$P(S,U,I)," "
  • Line Location: TS+3
Function Call: WRITE
  • Prompt: !!," Raw "
  • Line Location: RS+1
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: I=5!(I=44)!(I=52)
  • Line Location: RS+1
Function Call: WRITE
  • Prompt: $J($P(R,U,I),3)
  • Line Location: RS+1
Function Call: WRITE
  • Prompt: !?30,"PAI Item Responses",!
  • Line Location: IR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: IR+3
Function Call: WRITE
  • Prompt: $J(I,4),". "
  • Line Location: IR1+0
Function Call: WRITE
  • Prompt: $S($E(X,I)=1:"F ",$E(X,I)=2:"ST",$E(X,I)=3:"MT",$E(X,I)=4:"VT",1:" X")," "
  • Line Location: IR2+0
Function Call: WRITE
  • Prompt: !!?25,"PAI Subscale Profile"
  • Line Location: SUBS+2
Function Call: WRITE
  • Prompt: !?38,"<+3 4 5 6 7 8 9 9>"
  • Line Location: SUBS+3
Function Call: WRITE
  • Prompt: !?30,"Raw T",?40,"0....0....0....0....0....0....0....9"
  • Line Location: SUBS+4
Function Call: WRITE
  • Prompt: !!?2,"Missing Items = ",$L(X,"X")-1
  • Line Location: SUBS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SS1+2
Function Call: WRITE
  • Prompt: !?2,$P(^YTT(601,YSTEST,"S",I,0),U,2),?30,$J($P(R,U,I),3),$J($P(S,U,I),5)
  • Line Location: SS1+3
Function Call: WRITE
  • Prompt: ?41,YSLN1
  • Line Location: SS1+7
Function Call: WRITE
  • Prompt: !,^(Y,0)
  • Line Location: BTEXT+1
Function Call: WRITE
  • Prompt: !,"Copyright (c) 1989, 1990, 1991 by Psychological Assessment Resources Inc.",!,"Reproduced by permission."
  • Line Location: CC+0
Info |  Source |  Entry Points |  Interaction Calls