TIUCOPUT ;SLC/TDP - Copy/Paste API and RPC utilities ;03/22/2016 10:31
Source file <TIUCOPUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DFNCHK(DFN) | ;Verify user is valid
|
|
| DTCHK(DT) | ;Verify date is valid
|
|
| UNQDT(TIUDT) | ;Make sure paste date is unique
|
|
| GDPKG(IEN,PKG,SRC) | ; Package and ien are valid
; GMRC = Consults (#123) ; TIU = Text Integration Utilities (#8925) ; OR = CPRS (#100) |
|
| GDFIL(IEN,FILE,FILNM) | ; File and ien are valid
|
|
| VROOT(ERARY) | ;Check for invalid error array
|
|
| ERMSG(TYPE) | ;Send an error message to TIU CACS mail group
|
|
| CPYTXT(PSTXT,TIUCPRCD,C) | ;FORMAT COPIED TEXT
|
|
| RBLDARY(PSTXT,TIUCPRCD,CRGLN,PCT) | ;Save new array values
|
| FileNo | Call Tags |
|---|---|
| ^DIC - [#1] | Classic Fileman Calls, GET1^DIQ |
| ^VA(200 - [#200] | FIND1^DIC |
