YTSLEC ;ISP/LMT - Report for LEC ;Nov 29, 2023@08:59:02
Source file <YTSLEC.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,YSTRNG) | ; compute scores or report text based on YSTRNG
; input ; YSDATA(2)=adminId^patientDFN^instrumentName^dateGiven^isComplete ; YSDATA(2+n)=questionId^sequence^choiceId ; YS("AD")=adminId ; YSTRNG=1 for score, 2 for report ; output if YSTRNG=1: ^TMP($J,"YSCOR",n)=scaleId=score ; output if YSTRNG=2: append special "answers" to YSDATA |
|
| REPORT(YSDATA) | ;
|
|
| QFORMAT(YSCNT,YSQUESTION,YSINDENT) | ; format the question nicely
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^UTILITY($J | QFORMAT+8!, QFORMAT+15, QFORMAT+16, QFORMAT+20! |
| ^YTT(601.72 - [#601.72] | QFORMAT+10, QFORMAT+11 |
| ^YTT(601.75 - [#601.75] | REPORT+12 |
| Name | Line Occurrences |
|---|---|
| $$QFORMAT | REPORT+30 |
| $$REPORT | DLLSTR+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIWF | QFORMAT+2~, QFORMAT+7* |
| DIWL | QFORMAT+2~, QFORMAT+5*, QFORMAT+15, QFORMAT+16 |
| DIWR | QFORMAT+2~, QFORMAT+6* |
| U | REPORT+7, REPORT+8 |
| X | QFORMAT+2~, QFORMAT+11* |
| YS | DLLSTR~ |
| YSANSWER | REPORT+2~, REPORT+8*, REPORT+9, REPORT+12 |
| YSCHOICE | REPORT+2~, REPORT+11*, REPORT+12, REPORT+13, REPORT+21*, REPORT+22, REPORT+24, REPORT+28 |
| YSCNT | REPORT+2~, REPORT+27*, REPORT+29*, REPORT+30, QFORMAT~, QFORMAT+18 |
| YSDATA | DLLSTR~, DLLSTR+14, REPORT~ |
| YSDATA( | DLLSTR+17*, REPORT+5, REPORT+6 |
| YSDATA("" | DLLSTR+15 |
| YSHDR | REPORT+2~ |
| YSHDR( | REPORT+22 |
| YSHDR(5816 | REPORT+15* |
| YSHDR(5817 | REPORT+16* |
| YSHDR(5818 | REPORT+17* |
| YSHDR(5819 | REPORT+18* |
| YSI | REPORT+2~, REPORT+4*, REPORT+5*, REPORT+6, QFORMAT+2~, QFORMAT+10*, QFORMAT+11, QFORMAT+15*, QFORMAT+16, QFORMAT+17 |
| YSINDENT | QFORMAT~, QFORMAT+4*, QFORMAT+5, QFORMAT+18, QFORMAT+19 |
| YSLINE | QFORMAT+2~, QFORMAT+16*, QFORMAT+18, QFORMAT+19 |
| YSN | DLLSTR+9~, DLLSTR+15*, DLLSTR+16*, DLLSTR+17 |
| YSNODE | REPORT+2~, REPORT+6*, REPORT+7, REPORT+8 |
| YSQUESTION | REPORT+2~, REPORT+7*, REPORT+9, REPORT+13, REPORT+28*, REPORT+30, QFORMAT~, QFORMAT+10, QFORMAT+11 |
| YSRESULT | REPORT+2~, REPORT+20*, REPORT+22*, REPORT+25*, REPORT+30*, REPORT+32, QFORMAT+2~, QFORMAT+14*, QFORMAT+18*, QFORMAT+19* , QFORMAT+21 |
| YSSORT | REPORT+2~ |
| YSSORT( | REPORT+13*, REPORT+24, REPORT+28 |
| YSTEXT | DLLSTR+9~, DLLSTR+14*, DLLSTR+17 |
| YSTRNG | DLLSTR~, DLLSTR+11, DLLSTR+13 |
