TIUPUTC1 ; SLC/JER,AJB - Document filer Cont'd - captioned header ;Jul 09, 2020@12:06:28
Source file <TIUPUTC1.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 |
|---|---|---|
| GETREC(HEADER,RECORD,TIUHDR) | ; ---- Look-up/create record (if LAYGO allowed)
|
|
| FAIL | ; Log Filing Error
; ---- If lookup fails, log 8925.4 error w/ hdr info. Create new ; 8925.2 buffer entry with hdr, text, & 8925.4 log #. ; Kill most of old buffer. Send file error alerts: |
|
| DICTDT(DATE) | ;TEST** -- Returns 1 if Discharge Summary's Dictation Date is in the future, 0 otherwise
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^TIU(8925 - [#8925] | CHK^DIE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | GETREC+13 |
| ^TIU(8925.1 - [#8925.1] | GETREC+7, GETREC+29, GETREC+30, GETREC+32, GETREC+39, GETREC+68, FAIL+4 |
| ^TIU(8925.2 - [#8925.2] | GETREC+24, GETREC+25 |
| ^TMP("TIUPUTC" | GETREC+6*, GETREC+12*, GETREC+16*, GETREC+36*, GETREC+70*, FAIL+6* |
| Name | Line Occurrences |
|---|---|
| $$DICTDT | GETREC+35 |
| FAIL | GETREC+45, GETREC+57 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | DICTDT+1~, DICTDT+2 |
| %DT | DICTDT+1~, DICTDT+2* |
| >> DA | GETREC+4, GETREC+10, GETREC+14, GETREC+24, GETREC+25, GETREC+68, FAIL+4 |
| DATE | DICTDT~, DICTDT+2 |
| DIC | GETREC+1~, GETREC+61* |
| DIC(0 | GETREC+61*, GETREC+62*, GETREC+63*, GETREC+65 |
| DLAYGO | GETREC+1~, GETREC+42* |
| HEADER | GETREC~, GETREC+2, GETREC+3 |
| RECORD | GETREC~ |
| RECORD("#" | GETREC+56*, GETREC+66* |
| RECORD("BOILON" | GETREC+9* |
| RECORD("FILE" | GETREC+8*, GETREC+10, GETREC+13, GETREC+42, GETREC+61 |
| RECORD("ROOT" | GETREC+13* |
| RECORD("TEXT" | GETREC+19*, GETREC+20* |
| RECORD("TYPE" | GETREC+8*, GETREC+29, GETREC+30, GETREC+32, GETREC+39, GETREC+45, GETREC+68, FAIL+4 |
| >> TIUBGN | GETREC+21, GETREC+25, GETREC+41 |
| TIUCAP | GETREC+22~, GETREC+28*, GETREC+29, GETREC+31 |
| TIUD1 | GETREC+1~, GETREC+7*, GETREC+8, GETREC+9, GETREC+14, GETREC+17, GETREC+19, GETREC+42, GETREC+62 |
| TIUD4 | GETREC+1~, GETREC+7*, GETREC+51, GETREC+56 |
| TIUDSFTR | GETREC+1~, GETREC+35* |
| >> TIUFDT | GETREC+36*, GETREC+41 |
| TIUFIELD | GETREC+22~, GETREC+30*, GETREC+31, GETREC+33, GETREC+35, GETREC+36, GETREC+37 |
| TIUHDR | GETREC~ |
| TIUHDR( | GETREC+33*, GETREC+36*, GETREC+37*, GETREC+40*, GETREC+53, GETREC+55, GETREC+63, GETREC+64 |
| TIUHDR("1307" | GETREC+35 |
| TIUHDR("TIUDDT" | GETREC+47 |
| TIUHDR(1202 | GETREC+48 |
| >> TIUI | GETREC+21, GETREC+24*, GETREC+25 |
| TIUJ | GETREC+52~, GETREC+54*, GETREC+59* |
| TIUKEY | GETREC+1~, GETREC+64*, GETREC+65 |
| >> TIULINE | GETREC+21, GETREC+25*, GETREC+26, GETREC+28, GETREC+33, GETREC+40 |
| TIUNOD | GETREC+22~, GETREC+29*, GETREC+30, GETREC+32, GETREC+39, GETREC+52~ |
| >> TIUREC("TYPE" | GETREC+35 |
| TIUREQ | GETREC+22~*, GETREC+32*, GETREC+37 |
| TIUVALID | GETREC+44~*, GETREC+45*, GETREC+47, GETREC+48, GETREC+51 |
| TIUVAR | GETREC+22~, GETREC+39*, GETREC+40, GETREC+52~*, GETREC+53*, GETREC+54, GETREC+55 |
| TIUVAR( | GETREC+54*, GETREC+59 |
| U | GETREC+8, GETREC+9, GETREC+14, GETREC+17, GETREC+19, GETREC+30, GETREC+32, GETREC+39, GETREC+42, GETREC+62 , GETREC+68, FAIL+4 |
| X | GETREC+1~, GETREC+3*, GETREC+4, GETREC+5, GETREC+10, GETREC+11, GETREC+14, GETREC+15, GETREC+65*, DICTDT+1~ , DICTDT+2* |
| Y | GETREC+1~, GETREC+3*, GETREC+4, GETREC+7, GETREC+8, GETREC+56, GETREC+57, GETREC+66, GETREC+67, DICTDT+1~ , DICTDT+2 |
| >> ZTQUEUED | GETREC+2, GETREC+5, GETREC+11, GETREC+15, GETREC+26, GETREC+31, GETREC+36, GETREC+41 |
