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 |