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

YTSMPI2P.m

Go to the documentation of this file.
  1. YTSMPI2P ;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. ;
  1. PROGNOTE ;
  1. N DASHES,VSCALE,SCRS,FNOTE
  1. S VSCALE=0
  1. S FNOTE="|The highest and lowest T scores possible on each scale are indicated by a ""---"";|"
  1. S FNOTE=FNOTE_"T scores are non-gendered.|"
  1. S FNOTE=FNOTE_"|Scales marked with an asterisk have response percentages below 90%."
  1. S $P(DASHES,"_",80)="_"
  1. ;
  1. ;-------------- Validity Checks --------------
  1. ;Cannot Say
  1. I CNT("cannotSay")>18 D
  1. .S TXT=TXT_"|INVALID RESULTS"
  1. .S TXT=TXT_"|There are too many 'Cannot Say' items for this administration to be considered valid.|"
  1. .S TXT=TXT_CNT("cannotSay")_" were skipped; 18 is the maximum allowed."
  1. ;
  1. ;VRIN-r T-score greater than 79
  1. S SCRS=(TSARR("VRIN"))
  1. I $P(SCRS,U,3)>79 D
  1. .S TXT=TXT_"||INVALID RESULTS"
  1. .S TXT=TXT_"|The T score for the Variable Response Inconsistency Scale (VRIN-r) is equal to,|"
  1. .S TXT=TXT_"or greater than, 80."
  1. ;Is response percent below 70%
  1. I $P(SCRS,U,4)<70 S VSCALE=1
  1. ;
  1. ;TRIN-r T-score greater than 79
  1. S SCRS=TSARR("TRIN")
  1. I $P(SCRS,U,3)>79 D
  1. .S TXT=TXT_"||INVALID RESULTS"
  1. .S TXT=TXT_"|The T score for the True Response Inconsistency Scale (TRIN-r) is equal to,|"
  1. .S TXT=TXT_"or greater than, 80."
  1. ; // Is response percent below 70%
  1. I $P(SCRS,U,4)<70 S VSCALE=1
  1. ;
  1. ;F-r T-score equals 120
  1. S SCRS=TSARR("F-r")
  1. I $P(SCRS,U,3)=120 D
  1. .S TXT=TXT_"||INVALID RESULTS"
  1. .S TXT=TXT_"|The T score for the Infrequent Responses Scale (F-r) is equal to 120."
  1. ; // Is response percent below 70%
  1. I $P(SCRS,U,4)<70 S VSCALE=1
  1. ;
  1. ;Fp-r T-score greater than 99
  1. S SCRS=TSARR("Fp-r")
  1. I $P(SCRS,U,3)>99 D
  1. .S TXT=TXT_"||INVALID RESULTS"
  1. .S TXT=TXT_"|The T score for the Infrequent Psychopathology Responses Scale (Fp-r) is equal to,|"
  1. .S TXT=TXT_"or greater than, 100."
  1. ;// Is response percent below 70%
  1. I $P(SCRS,U,4)<70 S VSCALE=1
  1. ;
  1. I VSCALE D
  1. .S TXT=TXT_"||INVALID RESULTS"
  1. .S TXT=TXT_"|One or more Validity Scale has a response percentage below 70%."
  1. ;
  1. D VLDTYSC^YTSMPI2V
  1. D HORCSC^YTSMPI2H
  1. D SOCOSC^YTSMPI2S
  1. D EIISC^YTSMPI2E
  1. D PSYSC^YTSMPI2Y
  1. D ITEM^YTSMPI2U
  1. D RESP^YTSMPI2U
  1. Q