YTSMCMIA ;BAL/KTL - Extension of YTSMCMI4 MHA ANSWERS SPECIAL HANDLING ; 9/14/18 3:19pm
Source file <YTSMCMIA.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ADDRSL | ||
SCOREDAT | ;SCALE IEN|RAW VALUE STORAGE TYPE|QUES#^QUES#...
|
|
CALW | ; Calculate the W Scale
|
|
WADD(PAIR) | ;
|
|
SCORESV | ;
|
|
EXTANS | ;
|
|
BR | ;Get the Base Rate for each scale
|
|
BRADJ1 | ;Adjust the Base Rate score for scales 1-8B and S-PP depending on the X Raw Score
|
|
SETADJ(STEND) | ; Set up the Base Rate Adjustment Array
|
|
BRADJ2 | ;Adjust the Base Rate based on Scales A and CC
|
|
PR | ;Get the Percentile for each scale based on adjusted Base Rate for Personality/Psychopathology
; Get the Percentile for each Facet Scale based on RAW score for Grossman Facet Scales |
|
BRFIX(VAL) | ;If adjusted base rate <0 set to 0. If >115 set to 115 PATCH X
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^YTT(601.75 - [#601.75] | GET1^DIQ |
^YTT(601.87 - [#601.87] | GET1^DIQ |
^YTT(601.91 - [#601.91] | GET1^DIQ |