YTSPHQ9 ;SLC/KCM - Score PHQ9 ; 01/08/2016
Source file <YTSPHQ9.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 |
|---|---|---|
| DLLSTR(YSDATA,YS,YSMODE) | ; main tag for both scores and report text
|
|
| SCORE(YSDATA) | ; iterate through answers and calculate score
; looks like this is in every scoring routine... ; SCOREINS^YTSCORE sets up ^TMP($J,"YSG") with scales ; if no scales are defined, we can't score instrument |
|
| REPORT(YSDATA) | ; return special question 9 text
; this was formerly handled in YTAPI2A ; Questions: 3382 = PHQ9 question #9 ; Choices: 1008 = Several days, 1009 = More than half the days, ; 1010 = Nearly every day |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | SCORE+4, SCORE+5!, SCORE+6*, SCORE+7*, SCORE+24!, SCORE+25*, SCORE+26* |
| ^YTT(601.87 - [#601.87] | SCORE+23 |
| Name | Line Occurrences |
|---|---|
| REPORT | DLLSTR+10 |
| SCORE | DLLSTR+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | REPORT+5~, REPORT+6*, REPORT+7, REPORT+8*, REPORT+9 |
| C | SCORE+9~, SCORE+13*, SCORE+16 |
| E | SCORE+9~, SCORE+10*, SCORE+21 |
| I | SCORE+9~, SCORE+11*, SCORE+12, SCORE+13, REPORT+5~, REPORT+7*, REPORT+8, REPORT+10*, REPORT+11 |
| Q | SCORE+9~, SCORE+12* |
| S | SCORE+9~, SCORE+10*, SCORE+17*, SCORE+19, SCORE+20, SCORE+23*, SCORE+26 |
| T | SCORE+9~, SCORE+10*, SCORE+17*, SCORE+19*, SCORE+20*, SCORE+21*, SCORE+26 |
| U | SCORE+12, SCORE+13, SCORE+23, REPORT+8 |
| V | SCORE+9~, SCORE+16*, SCORE+17, SCORE+19* |
| YS | DLLSTR~ |
| YSDATA | DLLSTR~, DLLSTR+8, DLLSTR+10, SCORE~, REPORT~ |
| YSDATA( | SCORE+11, SCORE+12, SCORE+13, REPORT+7, REPORT+8, REPORT+11* |
| YSDATA("" | REPORT+10 |
| YSMODE | DLLSTR~, DLLSTR+8, DLLSTR+10 |