TIUPUTU ; SLC/JER - Utilities for Filer/Router ;1/16/04
Source file <TIUPUTU.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 11 | SENDADD^TIUALRT UPDTIRT^TIUDIRT AUDIT^TIUEDI1 $$GETRECNW^TIUEDI3 ($$CHKSUM,$$IDATE,$$NOW)^TIULC ($$DIVISION,$$DOCCLASS,$$PNAME,$$WHOCOSIG,$$WHOSIGNS,DOCPRM)^TIULC1 GETTIU^TIULD $$DATE^TIULS MAIN^TIUMOVE ENQ^TIUPXAP1 RELEASE^TIUT |
| VA FileMan | 2 | ^DIC (,FILE)^DIE |
| Kernel | 1 | $$FMADD^XLFDT |
| 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 |
|---|---|---|
| LOOKUP | ; Look-up code used by router/filer
; Required: TIUSSN, TIUADT |
|
| LOOKUPX | ||
| CANEDIT(DA) | ; Check whether or not document is released
|
|
| MAKEADD() | ; Create an addendum record
|
|
| STUFREC(DA,PARENT) | ; Stuff fixed field data
|
|
| DELTEXT(DA) | ; Delete existing text in preparation for replacement
|
|
| WHATYPE(X) | ; Identify document type
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
| WHATYPE2(X) | ; Identify document type
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
| WHATITLE(X) | ; Identify document type
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
| FOLLOWUP(TIUDA) | ; Post-filing code for Discharge Summaries
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | MAKEADD+4, WHATYPE+6, WHATYPE2+6, WHATITLE+6 |
| ^DIE | MAKEADD+6, DELTEXT+2 |
| FILE^DIE | STUFREC+25, FOLLOWUP+7, FOLLOWUP+9 |
| SENDADD^TIUALRT | LOOKUP+24 |
| UPDTIRT^TIUDIRT | FOLLOWUP+11 |
| AUDIT^TIUEDI1 | FOLLOWUP+12 |
| $$GETRECNW^TIUEDI3 | LOOKUP+15 |
| $$CHKSUM^TIULC | FOLLOWUP+12 |
| $$IDATE^TIULC | LOOKUP+6, LOOKUP+11, LOOKUP+12, STUFREC+20 |
| $$NOW^TIULC | STUFREC+8, STUFREC+15, STUFREC+21 |
| $$DIVISION^TIULC1 | LOOKUP+10 |
| $$DOCCLASS^TIULC1 | MAKEADD+6 |
| $$PNAME^TIULC1 | LOOKUP+14 |
| $$WHOCOSIG^TIULC1 | FOLLOWUP+6 |
| $$WHOSIGNS^TIULC1 | FOLLOWUP+5 |
| DOCPRM^TIULC1 | LOOKUP+13 |
| GETTIU^TIULD | FOLLOWUP+3 |
| $$DATE^TIULS | STUFREC+22 |
| MAIN^TIUMOVE | LOOKUP+8 |
| ENQ^TIUPXAP1 | FOLLOWUP+10 |
| RELEASE^TIUT | FOLLOWUP+11 |
| $$FMADD^XLFDT | LOOKUP+6 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925 - [#8925] | LOOKUP+19, CANEDIT+1, STUFREC+10, STUFREC+11, STUFREC+13, STUFREC+14, FOLLOWUP+8 |
| Name | Field # of Occurrence |
|---|---|
| ^(12 | FOLLOWUP+8 |
| ^(13 | CANEDIT+1 |
| ^(15 | CANEDIT+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | LOOKUP+2~, CANEDIT~, CANEDIT+1, MAKEADD+1~, MAKEADD+5*, MAKEADD+6, MAKEADD+7, STUFREC~, STUFREC+2, DELTEXT~ |
| DFN | LOOKUP+2~, LOOKUP+8, LOOKUP+9, LOOKUP+15, STUFREC+4 |
| DIC | MAKEADD+1~, MAKEADD+3*, MAKEADD+6, WHATYPE+3~, WHATYPE+4*, WHATYPE2+3~, WHATYPE2+4*, WHATITLE+3~, WHATITLE+4* |
| DIC("S" | WHATYPE+5*, WHATYPE+6!, WHATYPE2+5*, WHATYPE2+6!, WHATITLE+5*, WHATITLE+6! |
| DIC(0 | MAKEADD+3*, WHATYPE+4*, WHATYPE2+4*, WHATITLE+4* |
| DIE | MAKEADD+1~, MAKEADD+6*, DELTEXT+1~, DELTEXT+2* |
| DLAYGO | MAKEADD+1~, MAKEADD+3* |
| DR | MAKEADD+1~, MAKEADD+6*, DELTEXT+1~, DELTEXT+2* |
| FDA | STUFREC+1~, FOLLOWUP+1~ |
| FDARR | STUFREC+1~, STUFREC+2*, STUFREC+4, STUFREC+5, STUFREC+6, STUFREC+7, STUFREC+8, STUFREC+10, STUFREC+11, STUFREC+12 , STUFREC+13, STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+23, STUFREC+24, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+4 , FOLLOWUP+5, FOLLOWUP+6, FOLLOWUP+9 |
| FLAGS | STUFREC+1~, STUFREC+2*, STUFREC+25, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+7, FOLLOWUP+9 |
| IENS | STUFREC+1~, STUFREC+2*, FOLLOWUP+1~, FOLLOWUP+2* |
| PARENT | STUFREC~, STUFREC+3, STUFREC+9, STUFREC+10, STUFREC+11, STUFREC+12, STUFREC+13, STUFREC+14 |
| >> RECORD("TYPE" | LOOKUP+13, LOOKUP+14 |
| TIU | LOOKUP+2~, LOOKUP+8, LOOKUP+9, LOOKUP+15, FOLLOWUP+1~, FOLLOWUP+3, FOLLOWUP+11 |
| TIU("AD#" | STUFREC+7 |
| TIU("EDT" | LOOKUP+11, STUFREC+6, FOLLOWUP+4 |
| TIU("INST" | STUFREC+17 |
| TIU("LDT" | LOOKUP+12, STUFREC+7, STUFREC+12, STUFREC+18, STUFREC+19, STUFREC+22* |
| TIU("LOC" | LOOKUP+10, STUFREC+16 |
| TIU("TS" | STUFREC+8 |
| TIU("VISIT" | STUFREC+4 |
| >> TIUADT | LOOKUP+3, LOOKUP+6, LOOKUP+11 |
| TIUATYP | MAKEADD+1~, MAKEADD+2*, MAKEADD+3, MAKEADD+6 |
| TIUDA | FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+5, FOLLOWUP+6, FOLLOWUP+8, FOLLOWUP+11, FOLLOWUP+12 |
| TIUDAD | LOOKUP+2~, LOOKUP+20*, LOOKUP+23, LOOKUP+24 |
| >> TIUDICDT | LOOKUP+12, STUFREC+20*, STUFREC+21 |
| TIUDPRM | LOOKUP+2~, LOOKUP+13, LOOKUP+15 |
| TIUEDIT | LOOKUP+2~, LOOKUP+17*, LOOKUP+19, LOOKUP+20 |
| TIUEDT | LOOKUP+2~, LOOKUP+6*, LOOKUP+7, LOOKUP+8 |
| TIUFPRIV | MAKEADD+1~*, WHATYPE+3~*, WHATYPE2+3~*, WHATITLE+3~* |
| >> TIUHDR( | LOOKUP+22! |
| >> TIUINST | LOOKUP+10* |
| TIULDT | LOOKUP+2~, LOOKUP+6*, LOOKUP+8 |
| TIUMSG | STUFREC+1~, FOLLOWUP+1~ |
| >> TIUNEW | LOOKUP+15 |
| TIURDT | STUFREC+1~, STUFREC+18*, STUFREC+21*, STUFREC+22, STUFREC+24 |
| >> TIUSSN | LOOKUP+3, LOOKUP+4*, LOOKUP+5, LOOKUP+8 |
| >> TIUTYP(1 | LOOKUP+14*, LOOKUP+15 |
| TIUXCRP | LOOKUP+2~* |
| U | LOOKUP+14, CANEDIT+1, STUFREC+4, STUFREC+6, STUFREC+7, STUFREC+8, STUFREC+10, STUFREC+11, STUFREC+12, STUFREC+13 , STUFREC+14, STUFREC+16, STUFREC+17, STUFREC+22, FOLLOWUP+4, FOLLOWUP+8 |
| X | MAKEADD+1~, MAKEADD+3*, DELTEXT+1~, WHATYPE~, WHATYPE2~, WHATITLE~ |
| Y | LOOKUP+3*, LOOKUP+5*, LOOKUP+7*, LOOKUP+9*, LOOKUP+11*, LOOKUP+12*, LOOKUP+15*, LOOKUP+16, LOOKUP+17, LOOKUP+19 , LOOKUP+20*, LOOKUP+21, LOOKUP+23, LOOKUP+24, MAKEADD+1~, MAKEADD+5, DELTEXT+1~, WHATYPE+3~, WHATYPE+7, WHATYPE2+3~ , WHATYPE2+7, WHATITLE+3~, WHATITLE+7 |
