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

YTSMPI2V.m

Go to the documentation of this file.
  1. YTSMPI2V ;SLC/PIJ - 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 VALIDITY SCALES
  1. ;
  1. ;Scale^RawScore^TScore^CountofAnsweredQuestiona
  1. SETSCR ;
  1. ;TScores --- From TSARR array, piece 3
  1. N SCALE,TS
  1. F SCALE="VRIN","TRIN","F-r","Fp-r","Fs","FBS-r","RBS","L-r","K-r" D
  1. .S TS=$P(TSARR(SCALE),U,3)
  1. .I SCALE="VRIN" S V=TS
  1. .I SCALE="TRIN" S T=TS
  1. .I SCALE="F-r" S F=TS
  1. .I SCALE="Fp-r" S FP=TS
  1. .I SCALE="Fs" S FS=TS
  1. .I SCALE="FBS-r" S FB=TS
  1. .I SCALE="RBS" S RB=TS
  1. .I SCALE="L-r" S L=TS
  1. .I SCALE="K-r" S K=TS
  1. Q
  1. BLDGRPH ; draw Validity Scale graph
  1. N I,J,NUMBER,PCENT,TLINE,VALSP,SCLINE,SCALE,GRPH
  1. N V,T,F,FP,FS,FB,RB,L,K
  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=8)!(I=0) D
  1. ..F J=6:1:72 S TLINE=TLINE_"_"
  1. .E F J=6:1:72 S TLINE=TLINE_" "
  1. .S (V,T,F,FP,FS,FB,RB)=120,L=105,K=72
  1. .D DMINMX(I)
  1. .S V=34,T=50,(F,FP,FS)=42,FB=26,RB=29,L=37,K=24
  1. .D DMINMX(I)
  1. .D SETSCR
  1. .D SETSTAR
  1. .I $L(TLINE)>72 S TLINE=$E(TLINE,1,72)
  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 SP1,L,SC
  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
  1. F SCALE="VRIN","TRIN","F-r","Fp-r","Fs","FBS-r","RBS","L-r","K-r" 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))=V D ; VRIN-r
  1. ..S $E(TLINE,11,13)="---"
  1. .I (I*4+(20-K1))=T D ; TRIN-r
  1. ..S $E(TLINE,17,19)="---"
  1. .I (I*4+(20-K1))=F D ; F-r
  1. ..S $E(TLINE,24,26)="---"
  1. .I (I*4+(20-K1))=FP D ; Fp-r
  1. ..S $E(TLINE,31,33)="---"
  1. .I (I*4+(20-K1))=FS D ; Fs
  1. ..S $E(TLINE,38,40)="---"
  1. .I (I*4+(20-K1))=FB D ; FBS-r
  1. ..S $E(TLINE,44,46)="---"
  1. .I (I*4+(20-K1))=RB D ; RBS
  1. ..S $E(TLINE,52,54)="---"
  1. .I (I*4+(20-K1))=L D ; L-r
  1. ..S $E(TLINE,59,61)="---"
  1. .I (I*4+(20-K1))=K D ; K-r
  1. ..S $E(TLINE,66,68)="---"
  1. Q
  1. ;
  1. SETSTAR ;
  1. N K1
  1. F K1=0:1:3 D
  1. .I (I*4+(20-K1))=V D ; VRIN-r
  1. ..S $E(TLINE,12)="*"
  1. .I (I*4+(20-K1))=T D ; TRIN-r
  1. ..S $E(TLINE,18)="*"
  1. .I (I*4+(20-K1))=F D ; F-r
  1. ..S $E(TLINE,25)="*"
  1. .I (I*4+(20-K1))=FP D ; Fp-r
  1. ..S $E(TLINE,32)="*"
  1. .I (I*4+(20-K1))=FS D ; Fs
  1. ..S $E(TLINE,39)="*"
  1. .I (I*4+(20-K1))=FB D ; FBS-r
  1. ..S $E(TLINE,45)="*"
  1. .I (I*4+(20-K1))=RB D ; RBS
  1. ..S $E(TLINE,53)="*"
  1. .I (I*4+(20-K1))=L D ; L-r
  1. ..S $E(TLINE,60)="*"
  1. .I (I*4+(20-K1))=K D ; K-r
  1. ..S $E(TLINE,67)="*"
  1. Q
  1. ;
  1. DSPSCOR ;
  1. N DATA,SCALE
  1. S TXT=TXT_"|"_$$ADDSP^YTSMPI2U("Raw ",9)
  1. F SCALE="VRIN","TRIN","F-r","Fp-r","Fs","FBS-r","RBS","L-r","K-r" 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="VRIN","TRIN","F-r","Fp-r","Fs","FBS-r","RBS","L-r","K-r" 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="VRIN","TRIN","F-r","Fp-r","Fs","FBS-r","RBS","L-r","K-r" D
  1. .S DATA=$$ADDSP^YTSMPI2U($P(TSARR(SCALE),U,4),7)
  1. .S TXT=TXT_DATA
  1. Q
  1. ;
  1. VLDTYSC ;
  1. S TXT=TXT_"||| MMPI-2-RF VALIDITY SCALES |"
  1. ;build graph/chart
  1. D BLDGRPH
  1. ;display Raw, T Score, and % answered
  1. D DSPSCOR
  1. S TXT=TXT_"||Cannot Say (Raw) "_CNT("cannotSay")
  1. S TXT=TXT_" Percent True of items answered "_CNT("trueCount")
  1. ;
  1. S TXT=TXT_"|"_FNOTE
  1. S TXT=TXT_"||VRIN-r Variable Response Inconsistency Fs Infrequent Somatic Responses"
  1. S TXT=TXT_"|TRIN-r True Response Inconsistency FBS-r Symptom Validity"
  1. S TXT=TXT_"|F-r Infrequent Responses RBS Response Bias Scale"
  1. S TXT=TXT_"|L-r Uncommon Virtues Fp-r Infrequent Psychopathology Responses"
  1. S TXT=TXT_"|K-r Adjustment Validity"
  1. S TXT=TXT_"||***eop***"
  1. Q