YTSCMIXG ;SLC/KCM - Score Case Mix Level ; 11/03/2020
Source file <YTSCMIXG.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 |
|
| LEVEL(QSTN,ADL,ADLD) | ; Return Case Mix Level given questions(.QSTN) and ADL score
|
|
| NEUROICD() | ; Return 1 if any applicable neurodiagnoses present
; expects QSTN from LEVEL |
|
| REPORT(YSDATA,YS) | ; add textual scores to report
; at this point YTQRRPT has already called GETSCORE^YTQAPI8 so ; ^TMP($J,"YSCOR") is defined and we're in the middle of ALLANS^YTQAPI2 ; YSDATA(2+n)=questionId^sequence^choiceId or text response |
|
| WRAP(IN,MAX) | ; Return with | and spacing in correct place
|
|
| QUESTIONS | ; question number and header text
|
| FileNo | Call Tags |
|---|---|
| ^YTT(601.75 - [#601.75] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | SCORE+4!, SCORE+5, SCORE+6*, SCORE+7*, SCORE+27*, SCORE+28*, SCORE+29*, REPORT+7, REPORT+8, REPORT+9 |
| ^YTT(601.75 - [#601.75] | REPORT+19, REPORT+20 |
| ^YTT(601.76 - [#601.76] | REPORT+18 |
| ^YTT(601.87 - [#601.87] | SCORE+25, SCORE+26, REPORT+5, REPORT+6 |
| Name | Line Occurrences |
|---|---|
| $$LEVEL | SCORE+23 |
| $$NEUROICD | LEVEL+32, LEVEL+33 |
| $$WRAP | REPORT+22, REPORT+32 |
| REPORT | DLLSTR+10 |
| SCORE | DLLSTR+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADL | SCORE+9~, SCORE+22*, SCORE+23, LEVEL~, LEVEL+14, LEVEL+15, LEVEL+16, LEVEL+19, LEVEL+20, LEVEL+26 , LEVEL+27, REPORT+4~, REPORT+10*, REPORT+12 |
| ADLD | SCORE+9~, SCORE+13*, SCORE+14*, SCORE+15*, SCORE+16*, SCORE+17*, SCORE+18*, SCORE+19*, SCORE+20*, SCORE+21* , SCORE+22, SCORE+23, SCORE+29, LEVEL~, LEVEL+25, LEVEL+30, LEVEL+31, LEVEL+32, LEVEL+33, REPORT+4~ , REPORT+9*, REPORT+10 |
| ADLNM | SCORE+9~, SCORE+26*, SCORE+29, REPORT+4~, REPORT+6*, REPORT+9 |
| CID | SCORE+9~, SCORE+11*, SCORE+12, REPORT+4~, REPORT+15*, REPORT+17, REPORT+19, REPORT+20 |
| CRIT | LEVEL+24~*, LEVEL+25 |
| CTXT | REPORT+4~, REPORT+20*, REPORT+21*, REPORT+22*, REPORT+29 |
| I | SCORE+9~, SCORE+10*, SCORE+11, REPORT+4~, REPORT+7*, REPORT+8, REPORT+9, REPORT+14*, REPORT+15, REPORT+34* , REPORT+35*, REPORT+36, REPORT+37, WRAP+1~, WRAP+3*, WRAP+6* |
| IN | WRAP~, WRAP+2, WRAP+3 |
| J | WRAP+1~, WRAP+2*, WRAP+4, WRAP+5* |
| LEG | REPORT+4~, REPORT+19*, REPORT+24*, REPORT+25*, REPORT+26*, REPORT+28*, REPORT+29 |
| LVL | SCORE+9~, SCORE+23*, SCORE+28, REPORT+4~, REPORT+8*, REPORT+11*, REPORT+12 |
| LVLNM | SCORE+9~, SCORE+25*, SCORE+28, REPORT+4~, REPORT+5*, REPORT+8 |
| MAX | WRAP~, WRAP+4 |
| NUM | REPORT+4~, REPORT+18*, REPORT+29 |
| Q10 | LEVEL+1~, LEVEL+6*, LEVEL+24 |
| Q13 | LEVEL+1~, LEVEL+7*, LEVEL+13 |
| Q14 | LEVEL+1~, LEVEL+8*, LEVEL+13 |
| Q15 | LEVEL+1~, LEVEL+9* |
| Q4 | LEVEL+1~, LEVEL+2*, LEVEL+30, LEVEL+31, LEVEL+32, LEVEL+33 |
| Q5 | LEVEL+1~, LEVEL+3*, LEVEL+24 |
| Q6 | LEVEL+1~, LEVEL+4*, LEVEL+24 |
| Q8 | LEVEL+1~, LEVEL+5*, LEVEL+19, LEVEL+20, LEVEL+25, LEVEL+26, LEVEL+27, LEVEL+30, LEVEL+31, LEVEL+32 , LEVEL+33 |
| QID | SCORE+9~, SCORE+11*, SCORE+12, REPORT+4~, REPORT+15*, REPORT+16, REPORT+17, REPORT+18, REPORT+24, REPORT+25 , REPORT+26 |
| QSTN | SCORE+9~, SCORE+23, LEVEL~ |
| QSTN( | SCORE+12* |
| QSTN(8535 | SCORE+14 |
| QSTN(8536 | SCORE+15 |
| QSTN(8537 | SCORE+16 |
| QSTN(8538 | SCORE+17, LEVEL+2 |
| QSTN(8539 | SCORE+18, LEVEL+3 |
| QSTN(8540 | SCORE+19, LEVEL+4 |
| QSTN(8541 | SCORE+20 |
| QSTN(8542 | LEVEL+5 |
| QSTN(8544 | SCORE+21, LEVEL+6 |
| QSTN(8547 | LEVEL+7 |
| QSTN(8549 | LEVEL+8 |
| QSTN(8550 | LEVEL+9 |
| QSTN(8551 | NEUROICD+2 |
| QTXT | REPORT+4~, REPORT+13*, REPORT+34*, REPORT+37 |
| QTXT( | REPORT+29*, REPORT+34 |
| QTXT(13 | REPORT+33* |
| SPNURS | LEVEL+12~*, LEVEL+13*, LEVEL+14, LEVEL+15, LEVEL+16 |
| SPTX | REPORT+4~, REPORT+13*, REPORT+17*, REPORT+30, REPORT+31*, REPORT+32*, REPORT+33 |
| STXT | REPORT+4~, REPORT+12*, REPORT+36 |
| TXT | WRAP+1~ |
| TXT( | WRAP+2*, WRAP+4*, WRAP+5*, WRAP+6 |
| TXT(1 | WRAP+6 |
| U | SCORE+11, SCORE+25, SCORE+26, REPORT+5, REPORT+6, REPORT+15, REPORT+18, REPORT+19 |
| WORD | WRAP+1~, WRAP+3*, WRAP+4, WRAP+5 |
| X | WRAP+1~, WRAP+6*, WRAP+7 |
| YS | DLLSTR~, DLLSTR+10, REPORT~ |
| YSDATA | DLLSTR~, DLLSTR+8, DLLSTR+10, SCORE~, REPORT~ |
| YSDATA( | SCORE+10, SCORE+11, REPORT+14, REPORT+15, REPORT+36*, REPORT+37* |
| YSDATA("" | REPORT+35 |
| YSMODE | DLLSTR~, DLLSTR+8, DLLSTR+10 |
| Name | Field # of Occurrence |
|---|---|
| $T(QUESTIONS+NUM | REPORT+29 |
