Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Mental Health 2 RD^YTPAI  (DTA,SCR)^YTREPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health 1 YTPAI  

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

External References

Name Field # of Occurrence
RD^YTPAI IR+1, SUBS+8
DTA^YTREPT TOP+1, SUBS+1
SCR^YTREPT WL+1, WS+1, IR+3, SS1+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTT(601 - [#601] WL+3, WS+3, SUBS+7, SS1+2, SS1+3, SS1+4, BTEXT+1

Label References

Name Line Occurrences
BOTTOM W+5
BTEXT RS+2, SUBS+9
END W+1, W+2
IR1 IR+3
L W+4
SS1 SUBS+7
WL W+2
WS W+1

Naked Globals

Name Field # of Occurrence
^( BTEXT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A( A+1*, L+1, WL+3, WS+3
>> B( L+1*, WL+3, WS+3
>> C WL+3*, WS+3*, SS1+4*, SS1+6
>> C( L+1
>> H( A+3*, A+5*, W+1
>> I A+3*, L+1*, WL+3*, WS+3*, TS+2*, TS+3*, RS+1*, IR+3*, IR1, IR2
, SUBS+7*, SS1+2, SS1+3, SS1+4, SS1+5
IOSL WL+1, WS+1, IR+3, SS1+1
IOST WL+1, WS+1, IR+3, SS1+1
>> J A+1*, A+3*, IR+3*
>> K IR+3*
>> R RS+1, SS1+3
>> S A+1, TS+2, TS+3, SS1+3, SS1+4, SS1+5
U A+1, WL+3, WS+3, TS+2, TS+3, RS+1, SUBS+7, SS1+2, SS1+3, SS1+4
, SS1+5
>> X IR2, SUBS+8
>> Y SS1+5*, SS1+6, BTEXT+1*
>> Y1 SS1+5*, SS1+6*
YSAST A+1!
>> YSBV A+1*, W+4
>> YSHS A+2*, A+3, A+5*, W+1*
>> YSIN2 A+4*, L+1, W+1
>> YSINC A+1*, A+4, W+4
>> YSLAST SUBS+6*, SS1+2*
>> YSLC1 A+4*, W+3*
>> YSLE A+1*, W+3
>> YSLFT W+1, W+2, IR+3
>> YSLL L+2*, WL+2, WL+4, WS+2, WS+4
>> YSLN SUBS+5*, SS1+6
>> YSLN1 SS1+6*, SS1+7
>> YSLV A+4*, L+1, L+2, W+1, W+4*
>> YSTEST WL+3, WS+3, SUBS+7, SS1+2, SS1+3, SS1+4, BTEXT+1
>> YSTOUT WL+1, WS+1, BOTTOM+1, SS1+1
>> YSTV A+1*, A+4
>> YSUOUT WL+1, WS+1, BOTTOM+1, SS1+1
>> YSVS A+2*
>> YSWS W+1*, W+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All