Routine: TIUCOPP

Information

TIUCOPP ;SLC/TDP - Copy/Paste Paste Tracking ;Jul 30, 2020@11:14:22

Source file <TIUCOPP.m>

Name	Comments	DBIA/ICR reference
PUTPASTE(INST,ARY,ERR,SVARY)	;Save Pasted Text ; Call using $$PUTPASTE^TIUCOPP(INST,.ARY,.ERR)
SVPSTQ
PRNTFND(PSTXTIEN,TIUCPRCD,ARY)	;
KLLCHLD(PRNT)	;Kill off child paste entries
SVPST	;Save the paste information
GETPASTE(TIUIEN,INST,APP,ARY,ZERO)	;Retrieve pasted text ; Call using GETPASTE^TIUCOPP(NOTE IEN,INSTITUTION IEN,CALLING APPLICATION,.RETURN ARRAY)
GETPSTQ
CHKPASTE(TIUIEN,INST)	;Check pasted text exists for a document ; Call using $$CHKPASTE^TIUCOPP(DOCUMENT IDENTIFIER,INSTITUTION IEN)