- 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 Feb 18, 2025@23:46:34 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