YTQRRPT ;SLC/LLH - Report Builder ; 08/13/2018
Source file <YTQRRPT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLDRPT(RESULTS,ADMIN,MAXWIDTH) | ;
|
|
| LOADTLT(TLT,RPT) | ; Load template for RPT into .TLT split by "|" chars
; resulting TLT array uses $C(10) to represent line breaks |
|
| RMVDOTS(X) | ; Return X with the initial line feed / dots removed
|
|
| WRAPTLT(TLT,MAX) | ; Wrap lines in TLT that are >WIDTH by adding $C(10)
|
|
| FIXP(RSTR,RESULTS) | ;
|
|
| GETDATA | ;
|
|
| ADMINFO(ADATA,ADMIN) | ;
|
|
| PATINFO(PDATA,DFN) | ;
|
|
| SWAPIT | ;
|
|
| SWAP | ;
|
|
| SWAPANS | ;
|
|
| FMTANS(ANS) | ; return answer string with $C(10))_" " for "|" chars
|
|
| SETSCL | ;
|
|
| WRAP(TX,MAX) | ; If length of TX > MAX, wrap by adding $C(10)
|
|
| ADDOUT(S) | ; add string to out array (expects OUT)
|
|
| VARYAUDC(TLT,ADMIN) | ; modify .TLT for AUDC based on patient sex
|
| FileNo | Call Tags |
|---|---|
| ^YTT(601.84 - [#601.84] | GET1^DIQ |
