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

Package: Mental Health

Routine: YTMMPI2P


Information

YTMMPI2P ;SLC/DKG,ALB/ASF-TEST PKG: MMPI2 PROFILE ;Nov 09, 2023@15:02:43

Source Information

Source file <YTMMPI2P.m>

Entry Points

Name Comments DBIA/ICR reference
A ;
L ;
W ;
END ;
WL ;
WS ;
DTA ;
WAIT ;
; %% ANOTHER READER CALL ???? LOOK YSLFT = YSTOUT %%%
NK ;NON-K CORRECTED
HD ;
BOTTM ;
CR ;COPYRIGHT
WPO ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?YSLM,YSLL,"|"
  • Line Location: WL+1
Function Call: WRITE
  • Prompt: $S(B(I):$E($P(YSSNM1,",",I)_" ",1,3),1:" ")
  • Line Location: WL+2
Function Call: WRITE
  • Prompt: $S($D(V(I)):"|",1:" ")
  • Line Location: WL+2
Function Call: WRITE
  • Prompt: $S(B(I)=2:" + ",B(I):$E($P(YSSNM1,",",I)_" ",1,3),1:" ")
  • Line Location: WL+3
Function Call: WRITE
  • Prompt: $S($D(V(I)):"|",1:" ")
  • Line Location: WL+3
Function Call: WRITE
  • Prompt: $S(B(I):X,1:" ")
  • Line Location: WL+4
Function Call: WRITE
  • Prompt: "|",$E(YSLL,3,5)
  • Line Location: WL+5
Function Call: WRITE
  • Prompt: ?YSLM,YSLL,"|"
  • Line Location: WS+1
Function Call: WRITE
  • Prompt: $S(B(I):$P(YSSNM1,",",I)_"-",1:"---")
  • Line Location: WS+2
Function Call: WRITE
  • Prompt: $S($D(V(I)):"|",1:"-")
  • Line Location: WS+2
Function Call: WRITE
  • Prompt: "-",$S(B(I)=2:"+-",B(I):$P(YSSNM,",",I),1:"--")
  • Line Location: WS+3
Function Call: WRITE
  • Prompt: $S($D(V(I)):"|",1:"-")
  • Line Location: WS+3
Function Call: WRITE
  • Prompt: $S(B(I):X,1:"----")
  • Line Location: WS+4
Function Call: WRITE
  • Prompt: "|",$E(YSLL,3,5)
  • Line Location: WS+5
Function Call: READ
  • Variable: YSLFT
  • Timeout: DTIME
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: #
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: @IOF,!!?25,"K and Non-K Corrected Profile",!
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !?YSLM+6
  • Line Location: BOTTM+1
Function Call: WRITE
  • Prompt: $E($P(YSSNM,",",I)_" ",1,4)
  • Line Location: BOTTM+1
Function Call: WRITE
  • Prompt: !?2,"Raw Score:"
  • Line Location: BOTTM+2
Function Call: WRITE
  • Prompt: $J($P(YSRNK,U,I),4)
  • Line Location: BOTTM+2
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: I=3
  • Line Location: BOTTM+2
Function Call: WRITE
  • Prompt: !!?2,"K Corr.",?27,$J(X*.5,2,0),?$X+10,$J(X*.4,2,0),?$X+10,$J(X,2)," ",$J(X,2)," ",$J(X*.2,2,0)
  • Line Location: BOTTM+3
Function Call: WRITE
  • Prompt: !!?2,"T Score: "
  • Line Location: BOTTM+4
Function Call: WRITE
  • Prompt: $J($P(S,U,I),4)
  • Line Location: BOTTM+4
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: I=3
  • Line Location: BOTTM+4
Function Call: WRITE
  • Prompt: !!?2,"+Non-K Corr.",!?3,"T Score:",?26,$J(C(4),3),?$X+9,$J(C(7),3),?$X+9,$J(C(10),3)," ",$J(C(11),3)," ",$J(C(12),3)
  • Line Location: BOTTM+5
Function Call: WRITE
  • Prompt: !!?2,"? Cannot Say (Raw): ",YSQR
  • Line Location: BOTTM+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: BOTTM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WPO+3
Function Call: WRITE
  • Prompt: !,"Printed by: ",$P(^VA(200,DUZ,0),U),!
  • Line Location: WPO+4
Function Call: WRITE
  • Prompt: "Ordered by: ",$P(^(0),U)
  • Line Location: WPO+6
Info |  Source |  Entry Points |  Interaction Calls