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 |
