TIUCOPC ;SLC/TDP - Copy/Paste Copy Tracking ;Jul 29, 2020@10:19:38
Source file <TIUCOPC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PUTCOPY(INST,ARY,ERR) | ;Save to copy buffer
; Call using $$PUTCOPY^TIUCOPC(INST,.ARY,.ERR) |
|
| SVQ | ||
| NWDTENT(CDT,TIUNMSPC) | ;Add a new entry date (zero node) for COPY/PASTE in ^XTMP.
|
|
| GETCOPY(INST,DFN,ARY,STRTFRM,LIMIT) | ;Retrieve copy buffer
; Call using GETCOPY^TIUCOPC(INSTITUTION IEN,USER DFN,.ARY) |
|
| GETQ | ;I TIUERR'="" S ARY("0,0")=TIUERR
|
|
| CHKCOPY(INST,DFN) | ;Patient has copy buffer data
; Call using CHKCOPY^TIUCOPC(INSTITUTION IEN,USER DFN,.ARY) |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | FIND1^DIC |
