YTSMCMIA ;BAL/KTL - Extension of YTSMCMI4 MHA ANSWERS SPECIAL HANDLING ; 9/14/18 3:19pm
Source file <YTSMCMIA.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABR | BRADJ2+1~, BRADJ2+2*, BRADJ2+4, BRADJ2+5 |
| ACC | BRADJ2+1~, BRADJ2+5*, BRADJ2+8, BRADJ2+17 |
| ADD | WADD+1~, WADD+4*, WADD+5 |
| ADJ | BRADJ1+1~, BRADJ1+8*, BRADJ1+12, BRADJ1+21*, BRADJ1+25, BRADJ2+8*, BRADJ2+12, BRADJ2+17*, BRADJ2+21 |
| ADJARR | BRADJ1+1~, BRADJ1+15!, BRADJ2+1~ |
| ADJARR( | BRADJ1+8, BRADJ1+21, SETADJ+3*, BRADJ2+8, BRADJ2+17 |
| ADVAL | ADDRSL+3~, ADDRSL+12*, ADDRSL+23 |
| ANS | ADDRSL+26~, ADDRSL+35*, ADDRSL+36, EXTANS+3~, EXTANS+6*, EXTANS+7*, EXTANS+8, EXTANS+10 |
| BEG | SETADJ+1~, SETADJ+2*, SETADJ+3 |
| BR | BRADJ1+1~, BRADJ1+11*, BRADJ1+12*, BRADJ1+13*, BRADJ1+14, BRADJ1+24*, BRADJ1+25*, BRADJ1+26*, BRADJ1+27, BRADJ2+11* , BRADJ2+12*, BRADJ2+13*, BRADJ2+14, BRADJ2+20*, BRADJ2+21*, BRADJ2+22*, BRADJ2+23, PR+2~, PR+6*, PR+7 |
| CCBR | BRADJ2+1~, BRADJ2+3*, BRADJ2+4, BRADJ2+5 |
| CNT | SCORESV+1~, SCORESV+7*, SCORESV+13*, SCORESV+16 |
| DATA | ADDRSL+14~, ADDRSL+16*, ADDRSL+17 |
| END | SETADJ+1~, SETADJ+2*, SETADJ+3 |
| I | ADDRSL+3~, ADDRSL+26~, ADDRSL+28*, ADDRSL+29, ADDRSL+31, SCORESV+1~, SCORESV+8*, SCORESV+9, SCORESV+10, SCORESV+11 , BR+1~, BR+2*, BR+4, BRADJ1+1~, BRADJ1+9*, BRADJ1+10, BRADJ1+22*, BRADJ1+23, SETADJ+1~, SETADJ+3* , BRADJ2+1~, BRADJ2+9*, BRADJ2+10, BRADJ2+18*, BRADJ2+19, PR+2~, PR+3*, PR+5, PR+9*, PR+10 |
| LINE | ADDRSL+1~, ADDRSL+2*, ADDRSL+10* |
| MHK | ADDRSL+26~, ADDRSL+31*, ADDRSL+32, ADDRSL+33, ADDRSL+34 |
| >> N | CALW+5* |
| NODE | ADDRSL+14~, ADDRSL+15*, ADDRSL+16 |
| NXTLIN | ADDRSL+3~, ADDRSL+5*, ADDRSL+6, ADDRSL+8 |
| NXTQUES | ADDRSL+1~, ADDRSL+8*, ADDRSL+9 |
| NXTSCL | ADDRSL+3~, ADDRSL+6*, ADDRSL+7 |
| PAIR | CALW+1~, CALW+3*, CALW+4, WADD~, WADD+2, WADD+3 |
| PCE | BR+1~, PR+2~ |
| PTR | EXTANS+3~, EXTANS+6*, EXTANS+9, EXTANS+10 |
| Q1 | WADD+1~, WADD+2*, WADD+4 |
| Q2 | WADD+1~, WADD+3*, WADD+4 |
| QUES | ADDRSL+26~, ADDRSL+32*, ADDRSL+35, EXTANS+6*, EXTANS+8, EXTANS+9 |
| QUEST | EXTANS+3~ |
| QUESTIONS | ADDRSL+3~, ADDRSL+4*, ADDRSL+9*, ADDRSL+13, ADDRSL+15 |
| RAW | ADDRSL+14~, ADDRSL+17*, ADDRSL+23, BR+5*, BR+6, PR+2~, PR+11*, PR+12 |
| RAWTYPE | ADDRSL+3~, ADDRSL+4*, ADDRSL+12 |
| RVAL | ADDRSL+3~, ADDRSL+12*, ADDRSL+23 |
| SCAL | BR+1~, BR+4*, BR+5, BR+6, BRADJ1+1~, BRADJ1+10*, BRADJ1+11, BRADJ1+14, BRADJ1+23*, BRADJ1+24 , BRADJ1+27, BRADJ2+10*, BRADJ2+11, BRADJ2+14, BRADJ2+19*, BRADJ2+20, BRADJ2+23, PR+2~, PR+5*, PR+6 , PR+7, PR+10*, PR+11, PR+12 |
| SCALE | ADDRSL+3~, ADDRSL+4*, ADDRSL+11 |
| SCALSTR | BR+1~, BRADJ1+1~, PR+2~ |
| SCARR | SCORESV+1~ |
| SCARR( | SCORESV+11*, SCORESV+12, SCORESV+14 |
| SCLRAW | ADDRSL+3~, ADDRSL+4*, ADDRSL+7 |
| SEQ | SCORESV+1~, SCORESV+9*, SCORESV+12*, SCORESV+14 |
| SNAM | ADDRSL+3~, ADDRSL+11*, ADDRSL+23, ADDRSL+24, ADDRSL+26~, ADDRSL+29*, ADDRSL+39, SCORESV+1~, SCORESV+10*, SCORESV+11 , SCORESV+14*, SCORESV+16 |
| STEND | BRADJ1+3*, BRADJ1+4, BRADJ1+5*, BRADJ1+6, BRADJ1+17*, BRADJ1+18, BRADJ1+19*, BRADJ1+20, SETADJ~, SETADJ+2 , BRADJ2+6*, BRADJ2+7, BRADJ2+15*, BRADJ2+16 |
| STR | EXTANS+3~, EXTANS+6* |
| TAR | ADDRSL+26~, ADDRSL+33*, ADDRSL+36 |
| TEXT | ADDRSL+1~, ADDRSL+2*, ADDRSL+4 |
| TOT | ADDRSL+26~, ADDRSL+30*, ADDRSL+36*, ADDRSL+39 |
| U | ADDRSL+13, ADDRSL+15, ADDRSL+17 |
| VAL | ADDRSL+26~, ADDRSL+34*, ADDRSL+36, SETADJ+1~, SETADJ+2*, SETADJ+3, BRFIX~, BRFIX+1*, BRFIX+2*, BRFIX+3 |
| X | EXTANS+3~, EXTANS+4*, EXTANS+5*, EXTANS+6 |
| XI | ADDRSL+1~, ADDRSL+13*, ADDRSL+15 |
| XRAW | BRADJ1+1~, BRADJ1+7*, BRADJ1+8, BRADJ1+21 |
| >> YBRS( | SCORESV+16, BR+6*, BRADJ1+11, BRADJ1+14*, BRADJ1+24, BRADJ1+27*, BRADJ2+11, BRADJ2+14*, BRADJ2+20, BRADJ2+23* , PR+6 |
| >> YBRS("A Gener | alized Anxiety" , BRADJ2+2 |
| >> YBRS("CC Majo | r Depression" , BRADJ2+3 |
| >> YPRS( | SCORESV+16, PR+7*, PR+12* |
| >> YSDATA( | ADDRSL+16, CALW+5*, EXTANS+5, EXTANS+6 |
| >> YSQANS( | WADD+2, WADD+3, EXTANS+8*, EXTANS+9* |
| >> YSQANS2( | ADDRSL+35, EXTANS+10* |
| YSRAWRSL | ADDRSL+27! |
| YSRAWRSL( | ADDRSL+23*, ADDRSL+24*, ADDRSL+39*, SCORESV+16, BR+5, PR+11 |
| YSRAWRSL("W I | nconsistency" , CALW+2*, CALW+5, WADD+5* |
| YSRAWRSL("X D | isclosure" , BRADJ1+7 |
