TIUCOPUT ;SLC/TDP - Copy/Paste API and RPC utilities ;03/22/2016 10:31
Source file <TIUCOPUT.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925.04 | UNQDT+3, UNQDT+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | DTCHK+1~ |
| %H | DTCHK+1~ |
| %I | DTCHK+1~ |
| BDD | DTCHK+1~, DTCHK+5, DTCHK+6*, DTCHK+7*, DTCHK+8*, DTCHK+9* |
| C | CPYTXT~ |
| C( | CPYTXT+17* |
| C(0 | CPYTXT+18 |
| CDTM | DTCHK+1~ |
| CNTR | RBLDARY+2~, RBLDARY+3*, RBLDARY+6*, RBLDARY+7 |
| CRGLN | RBLDARY~, RBLDARY+17, RBLDARY+21 |
| CTMP | CPYTXT+1~ |
| CTMP( | CPYTXT+5*, CPYTXT+7, CPYTXT+8, CPYTXT+9!, CPYTXT+12, CPYTXT+13, CPYTXT+14! |
| DD | DTCHK+1~, DTCHK+5*, DTCHK+7, DTCHK+8, DTCHK+9 |
| DFN | DFNCHK~, DFNCHK+2 |
| DIC | GDFIL+1~, GDFIL+4* |
| DIC(0 | GDFIL+4* |
| DT | DTCHK~, DTCHK+2, DTCHK+3, DTCHK+4, DTCHK+5, DTCHK+10 |
| ENT | RBLDARY+1~, RBLDARY+8*, RBLDARY+9, RBLDARY+10, RBLDARY+11, RBLDARY+32, RBLDARY+34, RBLDARY+37, RBLDARY+38, RBLDARY+39 |
| ENTRY | GDFIL+1~, GDFIL+10*, GDFIL+11 |
| ERARY | VROOT~, VROOT+1, VROOT+2 |
| ERR | DFNCHK+1~ |
| ETXT | RBLDARY+1~, RBLDARY+35*, RBLDARY+37, RBLDARY+38*, RBLDARY+39 |
| EXT | RBLDARY+1~ |
| FILE | GDPKG+4~, GDPKG+13*, GDPKG+14*, GDPKG+15*, GDPKG+17, GDFIL~, GDFIL+3*, GDFIL+5, GDFIL+12* |
| FILIEN | GDFIL+1~, GDFIL+7*, GDFIL+9, GDFIL+12 |
| FILNM | GDFIL~, GDFIL+8* |
| GBL | GDPKG+4~, GDPKG+16*, GDPKG+17, GDFIL+1~, GDFIL+9*, GDFIL+10 |
| IEN | GDPKG~, GDPKG+5, GDPKG+17, GDFIL~, GDFIL+2, GDFIL+10 |
| LN | CPYTXT+1~, CPYTXT+15*, CPYTXT+16*, CPYTXT+17, RBLDARY+1~, RBLDARY+22*, RBLDARY+23*, RBLDARY+24, RBLDARY+26, RBLDARY+27 , RBLDARY+32, RBLDARY+33, RBLDARY+34, RBLDARY+36*, RBLDARY+37*, RBLDARY+38, RBLDARY+39 |
| LNCNT | RBLDARY+1~, RBLDARY+22*, RBLDARY+34* |
| MM | DTCHK+1~, DTCHK+4*, DTCHK+7, DTCHK+8 |
| NOTXT | RBLDARY+1~, RBLDARY+22*, RBLDARY+28*, RBLDARY+30*, RBLDARY+32*, RBLDARY+33, RBLDARY+34 |
| NTXT | RBLDARY+1~, RBLDARY+29*, RBLDARY+32* |
| PARNT | RBLDARY+1~, RBLDARY+7*, RBLDARY+11 |
| PCT | RBLDARY~ |
| PKG | GDPKG~, GDPKG+6*, GDPKG+12, GDPKG+13*, GDPKG+14, GDPKG+15, GDPKG+16 |
| PSTXT | CPYTXT~, RBLDARY~ |
| PSTXT( | CPYTXT+4, CPYTXT+5, CPYTXT+16, CPYTXT+17, RBLDARY+5, RBLDARY+9*, RBLDARY+10*, RBLDARY+11*, RBLDARY+14, RBLDARY+15 , RBLDARY+32, RBLDARY+34*, RBLDARY+37, RBLDARY+38, RBLDARY+39! |
| PSTXT("" | RBLDARY+8 |
| SMPST | CPYTXT+1~, CPYTXT+2*, CPYTXT+18*, CPYTXT+19 |
| SRC | GDPKG~, GDPKG+7*, GDPKG+10, GDPKG+11 |
| SRCPKG | GDPKG+4~, GDPKG+10*, GDPKG+11*, GDPKG+12 |
| SUB | RBLDARY+2~, RBLDARY+20*, RBLDARY+21 |
| TEXT | RBLDARY+1~, RBLDARY+24*, RBLDARY+25*, RBLDARY+26, RBLDARY+30, RBLDARY+31 |
| TIUCNT | RBLDARY+1~ |
| TIUCPRCD | CPYTXT~, CPYTXT+4, CPYTXT+5, CPYTXT+7, CPYTXT+8, CPYTXT+9, CPYTXT+12, CPYTXT+13, CPYTXT+14, CPYTXT+16 , CPYTXT+17, RBLDARY~, RBLDARY+5, RBLDARY+7, RBLDARY+9, RBLDARY+14, RBLDARY+15 |
| TIUDT | UNQDT~, UNQDT+3, UNQDT+5*, UNQDT+6 |
| TIULN | RBLDARY+1~, RBLDARY+19*, RBLDARY+21 |
| TIULNG | RBLDARY+1~, RBLDARY+17*, RBLDARY+19 |
| TM | DTCHK+1~, DTCHK+10* |
| TMPARY | RBLDARY+2~, RBLDARY+40! |
| TMPARY( | RBLDARY+21*, RBLDARY+23, RBLDARY+24, RBLDARY+26!, RBLDARY+33!, RBLDARY+34 |
| TXT | CPYTXT+1~, CPYTXT+6*, CPYTXT+7, CPYTXT+8*, CPYTXT+10*, CPYTXT+12, CPYTXT+13* |
| TXTDATA | RBLDARY+2~, RBLDARY+15*, RBLDARY+17, RBLDARY+21 |
| TYPE | ERMSG~ |
| U | GDFIL+7, GDFIL+8, RBLDARY+10, RBLDARY+11 |
| UNIQ | UNQDT+1~, UNQDT+2*, UNQDT+4, UNQDT+6* |
| VLD | DTCHK+1~ |
| X | DTCHK+1~, UNQDT+1~, UNQDT+4*, UNQDT+5, GDFIL+1~, GDFIL+5*, CPYTXT+1~, CPYTXT+3*, CPYTXT+4*, CPYTXT+5 , CPYTXT+6*, CPYTXT+7*, CPYTXT+8, CPYTXT+9, CPYTXT+11*, CPYTXT+12*, CPYTXT+13, CPYTXT+14, RBLDARY+2~, RBLDARY+3* , RBLDARY+5*, RBLDARY+14, RBLDARY+15, RBLDARY+20, RBLDARY+21, RBLDARY+23, RBLDARY+24, RBLDARY+26, RBLDARY+33, RBLDARY+34 |
| Y | GDFIL+1~, GDFIL+6, GDFIL+7, GDFIL+8, RBLDARY+2~, RBLDARY+12*, RBLDARY+14*, RBLDARY+15 |
| YY | DTCHK+1~, DTCHK+3*, DTCHK+7 |