YTSMCMI4 ;BAL/KTL - MHAX ANSWERS SPECIAL HANDLING #2 ; 9/14/18 3:19pm
Source file <YTSMCMI4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DLLSTR(YSDATA,YS,YSTRNG) | ;
; YSTRNG = 1 Score Instr ; YSTRNG = 2 get Rpt Ans and Text |
|
| DATA1 | ;Extract results&calc
|
|
| INVRPT() | ;
; Check for Invalid Report ; Raw V > 1 ;Invalidity Index elev ; Raw X > 114 ! Raw X < 7 ;Scale X outside range ; All Scales 1-8B Base Rate < 60 ; All scls too low ; Raw W > 19 ;Inconsistency Index elevated ; More than 13 responses skipped for X ; INVRPT of 1 = YES, INVALID ; 0 = NO, OK TO PROCEED |
|
| INVALID(INVSTR) | ;
; Text for invalid rpt |
|
| INVSCL | ;
|
|
| EXTANS | ;
|
|
| EXTRSL | ;
; Extract the Raw score-store by Scale Name |
|
| EX2 | ;T-SCORE NOT IN ^TMP($J,"YSCOR")
|
|
| HIGHPT | ; Highpoint Hdr
|
|
| BRADJH | ; BR Adjustment Hdr
|
|
| INVDH | ; Invalidity Hdr
|
|
| INCNH | ; Inconsistency Hdr
|
|
| CALCW | ; Calc the W Scale
|
|
| WADD(PAIR) | ;
|
|
| ELEV | ; Calc 3 highest Personality Scores from BR
; Order of Importance after BR: S,C,P,1,2A,2B,3,4A,4B,5,6A,6B,7,8A,8B ; Result is HIARR("FINAL") |
|
| NOTEW | ; Noteworthy
; Use YSQANS(question number)=1/2 (True/False) ; YSQANS(question number,"PTR")=pointer to MH QUESTION |
|
| SETNOT | ;
|
|
| MODIND | ;
|
|
| CPP | ;
|
|
| SPP | ;
|
|
| CS | ;
|
|
| SCS | ;
|
|
| TOP3 | ;
|
|
| FACET | ;
|
|
| RSLWRN | ; Result warning
|
|
| NTWRTHY | ;
|
|
| RESP | ;
|
|
| RPTBLK(ANS,SCALSTR) | ;
|
|
| RPTBLK1(ANS,SCALSTR) | ;
|
|
| MAKSTR(TXT,LEN,JUST,CHAR) | ;
; TXT =Text ; LEN =Total Len ; JUST=R/L Justified, def=R ; CHAR=Char PAD, def=" " |
|
| MAKGRP(NUM,MAX) | ;
; String of "*" for graph |
|
| YSARRAY(YSARRAY) | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^YTT(601.75 - [#601.75] | GET1^DIQ |
| ^YTT(601.87 - [#601.87] | GET1^DIQ |
