YTSMPI2P ;SLC/PIJ - Score MMPI-2-RF ; 01/08/2016
;;5.01;MENTAL HEALTH;**123**;DEC 30,1994;Build 73
;
;Public, Supported ICRs
; #2056 - Fileman API - $$GET1^DIQ
;
Q
;
PROGNOTE ;
N DASHES,VSCALE,SCRS,FNOTE
S VSCALE=0
S FNOTE="|The highest and lowest T scores possible on each scale are indicated by a ""---"";|"
S FNOTE=FNOTE_"T scores are non-gendered.|"
S FNOTE=FNOTE_"|Scales marked with an asterisk have response percentages below 90%."
S $P(DASHES,"_",80)="_"
;
;-------------- Validity Checks --------------
;Cannot Say
I CNT("cannotSay")>18 D
.S TXT=TXT_"|INVALID RESULTS"
.S TXT=TXT_"|There are too many 'Cannot Say' items for this administration to be considered valid.|"
.S TXT=TXT_CNT("cannotSay")_" were skipped; 18 is the maximum allowed."
;
;VRIN-r T-score greater than 79
S SCRS=(TSARR("VRIN"))
I $P(SCRS,U,3)>79 D
.S TXT=TXT_"||INVALID RESULTS"
.S TXT=TXT_"|The T score for the Variable Response Inconsistency Scale (VRIN-r) is equal to,|"
.S TXT=TXT_"or greater than, 80."
;Is response percent below 70%
I $P(SCRS,U,4)<70 S VSCALE=1
;
;TRIN-r T-score greater than 79
S SCRS=TSARR("TRIN")
I $P(SCRS,U,3)>79 D
.S TXT=TXT_"||INVALID RESULTS"
.S TXT=TXT_"|The T score for the True Response Inconsistency Scale (TRIN-r) is equal to,|"
.S TXT=TXT_"or greater than, 80."
; // Is response percent below 70%
I $P(SCRS,U,4)<70 S VSCALE=1
;
;F-r T-score equals 120
S SCRS=TSARR("F-r")
I $P(SCRS,U,3)=120 D
.S TXT=TXT_"||INVALID RESULTS"
.S TXT=TXT_"|The T score for the Infrequent Responses Scale (F-r) is equal to 120."
; // Is response percent below 70%
I $P(SCRS,U,4)<70 S VSCALE=1
;
;Fp-r T-score greater than 99
S SCRS=TSARR("Fp-r")
I $P(SCRS,U,3)>99 D
.S TXT=TXT_"||INVALID RESULTS"
.S TXT=TXT_"|The T score for the Infrequent Psychopathology Responses Scale (Fp-r) is equal to,|"
.S TXT=TXT_"or greater than, 100."
;// Is response percent below 70%
I $P(SCRS,U,4)<70 S VSCALE=1
;
I VSCALE D
.S TXT=TXT_"||INVALID RESULTS"
.S TXT=TXT_"|One or more Validity Scale has a response percentage below 70%."
;
D VLDTYSC^YTSMPI2V
D HORCSC^YTSMPI2H
D SOCOSC^YTSMPI2S
D EIISC^YTSMPI2E
D PSYSC^YTSMPI2Y
D ITEM^YTSMPI2U
D RESP^YTSMPI2U
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYTSMPI2P 2276 printed Apr 09, 2024@21:17:24 Page 2
YTSMPI2P ;SLC/PIJ - Score MMPI-2-RF ; 01/08/2016
+1 ;;5.01;MENTAL HEALTH;**123**;DEC 30,1994;Build 73
+2 ;
+3 ;Public, Supported ICRs
+4 ; #2056 - Fileman API - $$GET1^DIQ
+5 ;
+6 QUIT
+7 ;
PROGNOTE ;
+1 NEW DASHES,VSCALE,SCRS,FNOTE
+2 SET VSCALE=0
+3 SET FNOTE="|The highest and lowest T scores possible on each scale are indicated by a ""---"";|"
+4 SET FNOTE=FNOTE_"T scores are non-gendered.|"
+5 SET FNOTE=FNOTE_"|Scales marked with an asterisk have response percentages below 90%."
+6 SET $PIECE(DASHES,"_",80)="_"
+7 ;
+8 ;-------------- Validity Checks --------------
+9 ;Cannot Say
+10 IF CNT("cannotSay")>18
Begin DoDot:1
+11 SET TXT=TXT_"|INVALID RESULTS"
+12 SET TXT=TXT_"|There are too many 'Cannot Say' items for this administration to be considered valid.|"
+13 SET TXT=TXT_CNT("cannotSay")_" were skipped; 18 is the maximum allowed."
End DoDot:1
+14 ;
+15 ;VRIN-r T-score greater than 79
+16 SET SCRS=(TSARR("VRIN"))
+17 IF $PIECE(SCRS,U,3)>79
Begin DoDot:1
+18 SET TXT=TXT_"||INVALID RESULTS"
+19 SET TXT=TXT_"|The T score for the Variable Response Inconsistency Scale (VRIN-r) is equal to,|"
+20 SET TXT=TXT_"or greater than, 80."
End DoDot:1
+21 ;Is response percent below 70%
+22 IF $PIECE(SCRS,U,4)<70
SET VSCALE=1
+23 ;
+24 ;TRIN-r T-score greater than 79
+25 SET SCRS=TSARR("TRIN")
+26 IF $PIECE(SCRS,U,3)>79
Begin DoDot:1
+27 SET TXT=TXT_"||INVALID RESULTS"
+28 SET TXT=TXT_"|The T score for the True Response Inconsistency Scale (TRIN-r) is equal to,|"
+29 SET TXT=TXT_"or greater than, 80."
End DoDot:1
+30 ; // Is response percent below 70%
+31 IF $PIECE(SCRS,U,4)<70
SET VSCALE=1
+32 ;
+33 ;F-r T-score equals 120
+34 SET SCRS=TSARR("F-r")
+35 IF $PIECE(SCRS,U,3)=120
Begin DoDot:1
+36 SET TXT=TXT_"||INVALID RESULTS"
+37 SET TXT=TXT_"|The T score for the Infrequent Responses Scale (F-r) is equal to 120."
End DoDot:1
+38 ; // Is response percent below 70%
+39 IF $PIECE(SCRS,U,4)<70
SET VSCALE=1
+40 ;
+41 ;Fp-r T-score greater than 99
+42 SET SCRS=TSARR("Fp-r")
+43 IF $PIECE(SCRS,U,3)>99
Begin DoDot:1
+44 SET TXT=TXT_"||INVALID RESULTS"
+45 SET TXT=TXT_"|The T score for the Infrequent Psychopathology Responses Scale (Fp-r) is equal to,|"
+46 SET TXT=TXT_"or greater than, 100."
End DoDot:1
+47 ;// Is response percent below 70%
+48 IF $PIECE(SCRS,U,4)<70
SET VSCALE=1
+49 ;
+50 IF VSCALE
Begin DoDot:1
+51 SET TXT=TXT_"||INVALID RESULTS"
+52 SET TXT=TXT_"|One or more Validity Scale has a response percentage below 70%."
End DoDot:1
+53 ;
+54 DO VLDTYSC^YTSMPI2V
+55 DO HORCSC^YTSMPI2H
+56 DO SOCOSC^YTSMPI2S
+57 DO EIISC^YTSMPI2E
+58 DO PSYSC^YTSMPI2Y
+59 DO ITEM^YTSMPI2U
+60 DO RESP^YTSMPI2U
+61 QUIT
