TIUCOPC ;SLC/TDP - Copy/Paste Copy Tracking ;Jul 29, 2020@10:19:38
Source file <TIUCOPC.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 |
|---|---|---|
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP( | PUTCOPY+98, PUTCOPY+99*, NWDTENT+8*, GETCOPY+65, GETCOPY+68, GETCOPY+70, GETCOPY+72, GETCOPY+77, CHKCOPY+28, CHKCOPY+30 , CHKCOPY+31 |
| ^XTMP("TIU COPY/PASTE:" | GETCOPY+50 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PUTCOPY+41~, PUTCOPY+50, GETCOPY+34~, CHKCOPY+10~ |
| %H | PUTCOPY+41~, NWDTENT+1~, GETCOPY+34~, GETCOPY+64!, CHKCOPY+10~ |
| %I | PUTCOPY+41~, GETCOPY+34~, CHKCOPY+10~ |
| ARY | PUTCOPY~, PUTCOPY+56, GETCOPY~, GETCOPY+37 |
| ARY( | PUTCOPY+59, PUTCOPY+60, GETCOPY+81* |
| ARY(0 | GETCOPY+92*, GETQ+1* |
| ARY(1 | PUTCOPY+57 |
| CAPP | PUTCOPY+43~, PUTCOPY+78*, PUTCOPY+99, GETCOPY+34~, GETCOPY+67*, GETCOPY+68*, GETCOPY+69*, GETCOPY+70, GETCOPY+72, GETCOPY+77 , GETCOPY+81, CHKCOPY+10~, CHKCOPY+29*, CHKCOPY+30*, CHKCOPY+31 |
| CAPP1 | GETCOPY+35~, GETCOPY+48*, GETCOPY+50, GETCOPY+69 |
| CDT | PUTCOPY+41~, PUTCOPY+51*, PUTCOPY+97, PUTCOPY+98, NWDTENT~, NWDTENT+5, NWDTENT+8, GETCOPY+34~, GETCOPY+36*, GETCOPY+47* , GETCOPY+50, GETCOPY+51*, GETCOPY+55*, GETCOPY+59, GETCOPY+61*, GETCOPY+63, GETCOPY+66*, CHKCOPY+10~, CHKCOPY+20*, CHKCOPY+25 |
| CDTM | PUTCOPY+41~, PUTCOPY+50* |
| CNT | GETCOPY+34~, GETCOPY+44*, GETCOPY+49*, GETCOPY+75*, GETCOPY+81, GETCOPY+90*, GETCOPY+92 |
| DATA | PUTCOPY+41~ |
| DATA0 | PUTCOPY+41~, PUTCOPY+60*, PUTCOPY+61, PUTCOPY+63, PUTCOPY+65, PUTCOPY+67, PUTCOPY+72, PUTCOPY+78, PUTCOPY+79 |
| DAYS | PUTCOPY+41~, NWDTENT+1~, GETCOPY+34~, GETCOPY+57*, GETCOPY+58, CHKCOPY+10~, CHKCOPY+22*, CHKCOPY+23*, CHKCOPY+24 |
| DFN | PUTCOPY+41~, PUTCOPY+61*, PUTCOPY+62, PUTCOPY+99, GETCOPY~, GETCOPY+42, GETCOPY+43, GETCOPY+50, GETCOPY+70, GETCOPY+72 , GETCOPY+77, CHKCOPY~, CHKCOPY+17, CHKCOPY+18, CHKCOPY+31 |
| DONE | GETCOPY+34~, GETCOPY+44*, GETCOPY+65, GETCOPY+68, GETCOPY+72, GETCOPY+74*, GETCOPY+92 |
| DT | GETCOPY+34~, GETCOPY+71*, GETCOPY+72*, GETCOPY+73*, GETCOPY+77, GETCOPY+81, CHKCOPY+10~ |
| DT1 | GETCOPY+34~, GETCOPY+46*, GETCOPY+50, GETCOPY+73 |
| DUZ(2 | PUTCOPY+52, GETCOPY+38, CHKCOPY+13 |
| ERR | PUTCOPY~ |
| ERR("ERR" | SVQ+1* |
| FIRST | GETCOPY+35~, GETCOPY+44*, GETCOPY+52*, GETCOPY+53, GETCOPY+69, GETCOPY+73* |
| FRETXT | PUTCOPY+43~, PUTCOPY+44*, PUTCOPY+72*, PUTCOPY+73, PUTCOPY+99 |
| IEN | PUTCOPY+41~, PUTCOPY+65*, PUTCOPY+66, PUTCOPY+68, PUTCOPY+70, PUTCOPY+71, PUTCOPY+99 |
| INST | PUTCOPY~, PUTCOPY+52*, PUTCOPY+53, PUTCOPY+54*, PUTCOPY+55, GETCOPY~, GETCOPY+38*, GETCOPY+39, GETCOPY+40*, GETCOPY+41 , CHKCOPY~, CHKCOPY+13*, CHKCOPY+14, CHKCOPY+15*, CHKCOPY+16, CHKCOPY+22 |
| LIMIT | GETCOPY~, GETCOPY+74 |
| LN | GETCOPY+34~, GETCOPY+76* |
| LNTTL | GETCOPY+34~, GETCOPY+44*, GETCOPY+74, GETCOPY+82* |
| MAXLN | GETCOPY+34~, GETCOPY+62*, GETCOPY+74 |
| NODE0 | GETCOPY+34~, GETCOPY+77*, GETCOPY+81 |
| PKG | PUTCOPY+41~, PUTCOPY+45*, PUTCOPY+67*, PUTCOPY+68, PUTCOPY+69*, PUTCOPY+70, PUTCOPY+74*, PUTCOPY+99 |
| PRFX | PUTCOPY+42~ |
| RSLT | CHKCOPY+10~, CHKCOPY+11*, CHKCOPY+28, CHKCOPY+30, CHKCOPY+32*, CHKCOPY+33 |
| SAVE | PUTCOPY+42~, PUTCOPY+48*, PUTCOPY+104*, SVQ+2 |
| STRT | GETCOPY+35~, GETCOPY+44*, GETCOPY+49*, GETCOPY+90 |
| STRTFRM | GETCOPY~, GETCOPY+45, GETCOPY+46, GETCOPY+47, GETCOPY+48, GETCOPY+49 |
| TIUACNT | PUTCOPY+42~ |
| TIUCNT | PUTCOPY+41~ |
| TIUCPDT | PUTCOPY+41~, PUTCOPY+63*, PUTCOPY+64, PUTCOPY+99 |
| TIUCPRCD | PUTCOPY+42~, PUTCOPY+58*, PUTCOPY+59*, PUTCOPY+60 |
| TIUERR | PUTCOPY+42~, PUTCOPY+46*, PUTCOPY+53*, PUTCOPY+55*, PUTCOPY+56*, PUTCOPY+57*, PUTCOPY+59, PUTCOPY+61*, PUTCOPY+62*, PUTCOPY+63* , PUTCOPY+64*, PUTCOPY+66, PUTCOPY+67*, PUTCOPY+68*, PUTCOPY+70*, PUTCOPY+71, PUTCOPY+73*, PUTCOPY+96*, PUTCOPY+98, SVQ , SVQ+1!, GETCOPY+35~, GETCOPY+36*, GETCOPY+37*, GETCOPY+39*, GETCOPY+41*, GETCOPY+42*, GETCOPY+43*, GETQ+1 |
| TIULN | PUTCOPY+42~ |
| TIULNG | PUTCOPY+43~ |
| TIUNMSPC | PUTCOPY+42~, PUTCOPY+97*, PUTCOPY+98, PUTCOPY+99, NWDTENT~, NWDTENT+8, GETCOPY+35~, GETCOPY+63*, GETCOPY+65*, GETCOPY+66 , GETCOPY+68, GETCOPY+70, GETCOPY+72, GETCOPY+77, CHKCOPY+10~, CHKCOPY+27*, CHKCOPY+28*, CHKCOPY+30, CHKCOPY+31 |
| TMPARY | PUTCOPY+41~, PUTCOPY+47* |
| TODATE | PUTCOPY+42~, NWDTENT+1~, NWDTENT+7*, NWDTENT+8 |
| TXT | PUTCOPY+42~ |
| TXTDATA | PUTCOPY+43~ |
| TXTHASH | PUTCOPY+43~, PUTCOPY+79*, PUTCOPY+96, PUTCOPY+99 |
| U | PUTCOPY+61, PUTCOPY+63, PUTCOPY+65, PUTCOPY+67, PUTCOPY+72, PUTCOPY+78, PUTCOPY+79, PUTCOPY+99, GETCOPY+45, GETCOPY+46 , GETCOPY+47, GETCOPY+48, GETCOPY+49, GETCOPY+81 |
| X | PUTCOPY+42~, PUTCOPY+51, NWDTENT+1~, NWDTENT+7, GETCOPY+35~, GETCOPY+55!, GETCOPY+61, GETCOPY+64!, CHKCOPY+10~, CHKCOPY+20! , CHKCOPY+27 |
| X1 | PUTCOPY+42~, NWDTENT+1~, NWDTENT+5*, GETCOPY+35~, GETCOPY+59*, CHKCOPY+10~, CHKCOPY+25* |
| X2 | PUTCOPY+42~, NWDTENT+1~, NWDTENT+4*, GETCOPY+35~, GETCOPY+58*, CHKCOPY+10~, CHKCOPY+24* |
| Y | PUTCOPY+43~ |