YTQRCDB4 ;BAL/KTL - Report Builder Header ; 03/08/2024
Source file <YTQRCDB4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLDHDR(RESULTS,ADMIN,MAXWIDTH) | ; Build header with patient information for Patient Entry
|
|
| LOADTLT(TLT) | ; Load template for RPT into .TLT split by "|" chars
; resulting TLT array uses $C(10) to represent line breaks |
|
| HDR | ;Standard report header
|
|
| 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)
|
| FileNo | Call Tags |
|---|---|
| ^YTT(601.84 - [#601.84] | GET1^DIQ |
