Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: YTSMPI2E

YTSMPI2E.m

Go to the documentation of this file.
  1. YTSMPI2E ;SLC/LLH - Score MMPI-2-RF ; 01/08/2016
  1. ;;5.01;MENTAL HEALTH;**123**;DEC 30,1994;Build 73
  1. ;
  1. ;Public, Supported ICRs
  1. ; #2056 - Fileman API - $$GET1^DIQ
  1. ;
  1. Q
  1. ; MMPI-2-RF EXTERNALIZING, INTERPERSONAL and INTEREST SCALES
  1. ;
  1. ;Scale^RawScore^TScore^CountofAnsweredQuestiona
  1. ;
  1. SETSCR ;
  1. ;TScores --- From TSARR array, piece 3
  1. N SCALE,TS
  1. F SCALE="JCP","SUB","AGG","ACT","FML","IPP","SAV","SHY","DSF","AES","MEC" D
  1. .S TS=$P(TSARR(SCALE),U,3)
  1. .I SCALE="JCP" S JCP=TS
  1. .I SCALE="SUB" S S=TS
  1. .I SCALE="AGG" S A=TS
  1. .I SCALE="ACT" S ACT=TS
  1. .I SCALE="FML" S F=TS
  1. .I SCALE="IPP" S IPP=TS
  1. .I SCALE="SAV" S SAV=TS
  1. .I SCALE="SHY" S SHY=TS
  1. .I SCALE="DSF" S D=TS
  1. .I SCALE="AES" S AES=TS
  1. .I SCALE="MEC" S M=TS
  1. Q
  1. BLDGRPH ; draw Validity Scale graph
  1. N I,J,NUMBER,PCENT,TLINE,VALSP,SCLINE,SCALE,GRPH
  1. N JCP,S,A,ACT,F,IPP,SAV,SHY,D,AES,M
  1. S GRPH=""
  1. D SETVAR
  1. F I=25:-1:0 S TLINE="",NUMBER="" D
  1. .I (I#5)=0 D NUM
  1. .I (I#5)'=0 S NUMBER=NUMBER_" :"
  1. .S TLINE=NUMBER
  1. .I (I=12)!(I=8)!(I=5)!(I=0) D
  1. ..F J=6:1:82 S TLINE=TLINE_"_"
  1. .E F J=6:1:82 S TLINE=TLINE_" "
  1. .S $E(TLINE,35)=":"
  1. .S $E(TLINE,70)=":"
  1. .S JCP=84,S=93,A=92,ACT=83,F=90,IPP=81,SAV=80,SHY=75,D=100,AES=73,M=78
  1. .D DMINMX(I)
  1. .S JCP=40,S=41,A=37,ACT=33,F=37,IPP=34,SAV=36,SHY=37,D=44,AES=33,M=38
  1. .D DMINMX(I)
  1. .D SETSCR
  1. .D SETSTAR
  1. .I $L(TLINE)>82 S TLINE=$E(TLINE,1,82)
  1. .S GRPH=GRPH_"|"_TLINE
  1. S TXT=TXT_GRPH
  1. S TXT=TXT_VALSP_"|"_SCLINE_"|"
  1. Q
  1. NUM ;
  1. S NUMBER=((I*4)+20)_"-:"
  1. I $L(NUMBER)<5 S NUMBER=" "_NUMBER
  1. Q
  1. SETVAR ;
  1. N SC,SP1,L
  1. S PCENT=0,SCALE="",TLINE=" ",SCLINE=" "
  1. S SP1=" ",L=":"
  1. S VALSP="| "_SP1_L_SP1_L_SP1_L_SP1_L_SP1_L_SP1_L_SP1_L_SP1_L_SP1_L_SP1_L_SP1_L
  1. F SCALE="JCP","SUB","AGG","ACT","FML","IPP","SAV","SHY","DSF","AES","MEC" D
  1. .S SC=SCALE,PCENT=$P(TSARR(SCALE),U,4) I PCENT<90 S SC="*"_SC
  1. .I $L(SC)<3 S SC=$$ADDSP^YTSMPI2U(SC,3)
  1. .S SCLINE=SCLINE_$$PAD^YTSMPI2U(SC,6)
  1. Q
  1. ;
  1. DMINMX(I) ;
  1. N K1
  1. F K1=0:1:3 D
  1. .I (I*4+(20-K1))=JCP D ; JCP
  1. ..S $E(TLINE,10,12)="---"
  1. .I (I*4+(20-K1))=S D ; SUB
  1. ..S $E(TLINE,17,19)="---"
  1. .I (I*4+(20-K1))=A D ; AGG
  1. ..S $E(TLINE,24,26)="---"
  1. .I (I*4+(20-K1))=ACT D ; ACT
  1. ..S $E(TLINE,31,33)="---"
  1. .I (I*4+(20-K1))=F D ; FML
  1. ..S $E(TLINE,38,40)="---"
  1. .I (I*4+(20-K1))=IPP D ; IPP
  1. ..S $E(TLINE,45,47)="---"
  1. .I (I*4+(20-K1))=SAV D ; SAV
  1. ..S $E(TLINE,52,54)="---"
  1. .I (I*4+(20-K1))=SHY D ; SHY
  1. ..S $E(TLINE,59,61)="---"
  1. .I (I*4+(20-K1))=D D ; DFS
  1. ..S $E(TLINE,66,68)="---"
  1. .I (I*4+(20-K1))=AES D ; AES
  1. ..S $E(TLINE,73,75)="---"
  1. .I (I*4+(20-K1))=M D ; MEC
  1. ..S $E(TLINE,80,82)="---"
  1. Q
  1. SETSTAR ;
  1. N K1
  1. F K1=0:1:3 D
  1. .I (I*4+(20-K1))=JCP D ; JCP
  1. ..S $E(TLINE,11)="*"
  1. .I (I*4+(20-K1))=S D ; SUB
  1. ..S $E(TLINE,18)="*"
  1. .I (I*4+(20-K1))=A D ; AGG
  1. ..S $E(TLINE,25)="*"
  1. .I (I*4+(20-K1))=ACT D ; ACT
  1. ..S $E(TLINE,32)="*"
  1. .I (I*4+(20-K1))=F D ; FML
  1. ..S $E(TLINE,39)="*"
  1. .I (I*4+(20-K1))=IPP D ; IPP
  1. ..S $E(TLINE,46)="*"
  1. .I (I*4+(20-K1))=SAV D ; SAV
  1. ..S $E(TLINE,53)="*"
  1. .I (I*4+(20-K1))=SHY D ; SHY
  1. ..S $E(TLINE,60)="*"
  1. .I (I*4+(20-K1))=D D ; DFS
  1. ..S $E(TLINE,67)="*"
  1. .I (I*4+(20-K1))=AES D ; AES
  1. ..S $E(TLINE,74)="*"
  1. .I (I*4+(20-K1))=M D ; MEC
  1. ..S $E(TLINE,81)="*"
  1. Q
  1. ;
  1. DSPSCOR ;
  1. N DATA,SCALE
  1. S TXT=TXT_"|"_$$ADDSP^YTSMPI2U("Raw ",9)
  1. F SCALE="JCP","SUB","AGG","ACT","FML","IPP","SAV","SHY","DSF","AES","MEC" D
  1. .S DATA=$$ADDSP^YTSMPI2U($P(TSARR(SCALE),U,2),7)
  1. .S TXT=TXT_DATA
  1. S TXT=TXT_"|"_$$ADDSP^YTSMPI2U("T Score ",9)
  1. F SCALE="JCP","SUB","AGG","ACT","FML","IPP","SAV","SHY","DSF","AES","MEC" D
  1. .S DATA=$$ADDSP^YTSMPI2U($P(TSARR(SCALE),U,3),7)
  1. .S TXT=TXT_DATA
  1. S TXT=TXT_"|"_$$ADDSP^YTSMPI2U("Resp % ",9)
  1. F SCALE="JCP","SUB","AGG","ACT","FML","IPP","SAV","SHY","DSF","AES","MEC" D
  1. .S DATA=$$ADDSP^YTSMPI2U($P(TSARR(SCALE),U,4),7)
  1. .S TXT=TXT_DATA
  1. Q
  1. EIISC ;
  1. S TXT=TXT_"|| MMPI-2-RF EXTERNALIZING, INTERPERSONAL and INTEREST SCALES |"
  1. S TXT=TXT_"| Externalizing Interpersonal Interest"
  1. ;build graph/chart
  1. D BLDGRPH
  1. ;display Raw, T Score, and % answered
  1. D DSPSCOR
  1. S TXT=TXT_"|"_FNOTE
  1. S TXT=TXT_"||JCP Juvenile Conduct Problems FML Family Problems AES Aesthetic-Literary Interests"
  1. S TXT=TXT_"|SUB Substance Abuse IPP Interpersonal Passivity MEC Mechanical-Physical Interests"
  1. S TXT=TXT_"|AGG Aggression SAV Social Avoidance"
  1. S TXT=TXT_"|ACT Activation SHY Shyness"
  1. S TXT=TXT_"| DSF Disaffiliativeness"
  1. S TXT=TXT_"|***eop***"
  1. Q