TIUPUTA ; SLC/JER - Utilities for C & P Look-up, etc. ;26-MAY-1999 16:38:37
Source file <TIUPUTA.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
FILE(SUCCESS,AMIEDA,TIUX,RTYPE) | ; Call FM Filer to commit updates to DB
|
|
FIXX | ||
LOOKUPX | ||
FIX | ; Filing error resolution code for C&P's
|
|
LOADTIUX(TIUARR,TIUBUF) | ; Load TIUX array with header and text
|
|
ADDTEXT(AMIEDA,TIUX) | ; File Text
|
|
CALLDIC(TIUX) | ; Call ^DIC
|
|
LOOKUP | ; Look-up code used by router/filer
; Required: TIUCPFN, TIUSSN |
|
FOLLOWUP(TIUDA) | ; Post-filing code for C&P's
|
|
DICW(TIUDA) | ; Write identifiers
|
Name | Field # of Occurrence |
---|---|
^DIC | CALLDIC+2, FIX+12 |
FILE^DIE | FOLLOWUP+4, FILE+4 |
EN^DIQ | FIX+13 |
$$PATIENT^TIULA | LOOKUP+8 |
$$POSTFILE^TIULC1 | FIX+23 |
SETPARM^TIULE | LOADTIUX+1 |
$$NAME^TIULO | DICW+3 |
$$SSN^TIULO | DICW+3 |
$$NAME^TIULS | DICW+3 |
$$STRIP^TIULS | LOADTIUX+7, LOADTIUX+21 |
$$TRNSFRM^TIUPEFIX | LOADTIUX+22 |
ALERTDEL^TIUPEVNT | FIXX |
MAIN^TIUPEVNT | LOADTIUX+8, FILE+7 |
RESOLVE^TIUPEVNT | FIXX+1 |
BUFPURGE^TIUPUTC | FIXX+2 |
$$WHATYPE^TIUPUTU | LOADTIUX+7 |
$$READ^TIUU | FIX+14 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DVB(396.3 | LOOKUP+13, DICW+2 |
^DVB(396.4 | LOOKUP+9, DICW+2, ADDTEXT+1, ADDTEXT+3*, ADDTEXT+4* |
^DVB(396.6 | DICW+3 |
^TIU(8925.1 - [#8925.1] | LOADTIUX+9, LOADTIUX+16, LOADTIUX+18, LOADTIUX+20, FILE+7 |
^TIU(8925.2 - [#8925.2] | LOADTIUX+3, LOADTIUX+4, LOADTIUX+13, LOADTIUX+14, LOADTIUX+28, LOADTIUX+30 |
Name | Line Occurrences |
---|---|
$$CALLDIC | LOOKUP+15 |
ADDTEXT | FIX+20 |
FILE | FIX+22 |
LOADTIUX | FIX+18 |
LOOKUPX | LOOKUP+3, LOOKUP+5, LOOKUP+10, LOOKUP+12, LOOKUP+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | FIX+5~ |
A | FIX+8~ |
AMIEDA | FIX+5~, FIX+13*, FIX+15, FIX+20, FIX+22, FIX+24, ADDTEXT~, ADDTEXT+1, ADDTEXT+3, ADDTEXT+4 , FILE~, FILE+2, FILE+8 |
>> BUFDA | FIX+17 |
CPDFN | LOOKUP+2~, LOOKUP+13*, LOOKUP+14 |
D0 | FIX+8~ |
DA | CALLDIC+1~, FIX+8~, FIX+13* |
DFN | LOOKUP+2~, LOOKUP+8*, LOOKUP+14 |
DIC | CALLDIC+1~, CALLDIC+2*, FIX+8~, FIX+9* |
DIC("A" | FIX+11* |
DIC("W" | FIX+10* |
DIC(0 | CALLDIC+2*, FIX+9* |
>> DIROUT | FIX+7, FIX+15 |
DK | FIX+8~ |
DL | FIX+8~ |
DT | LOADTIUX+31, ADDTEXT+4 |
>> DTOUT | FIX+15 |
>> DUOUT | FIX+7, FIX+15 |
DVBCP0 | DICW+1~, DICW+2*, DICW+3 |
DVBCPR0 | DICW+1~, DICW+2*, DICW+3 |
DX | FIX+8~ |
>> ERRDA | FIXX+1 |
FDA | FOLLOWUP+1~, FILE+1~, FILE+7 |
FDARR | FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+3, FILE+1~, FILE+2*, FILE+3 |
FLAGS | FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+4, FILE+1~, FILE+2*, FILE+4 |
IENS | FOLLOWUP+1~, FOLLOWUP+2*, FILE+1~, FILE+2* |
RTYPE | FILE~, FILE+7 |
S | FIX+8~ |
SUCCESS | FIX+5~, FIX+22, FIXX+4, FILE~, FILE+6*, FILE+8* |
TIU | FOLLOWUP+1~ |
TIU25070 | LOOKUP+2~, LOOKUP+9*, LOOKUP+12 |
TIU2507R | LOOKUP+2~, LOOKUP+9*, LOOKUP+10, LOOKUP+13 |
TIUARR | LOADTIUX~ |
TIUARR( | LOADTIUX+21*, LOADTIUX+22*, LOADTIUX+23*, LOADTIUX+24! |
TIUARR("TEXT" | LOADTIUX+30*, LOADTIUX+31* |
TIUBGN | LOADTIUX+1~, LOADTIUX+2*, LOADTIUX+11, LOADTIUX+14, LOADTIUX+25 |
TIUBUF | FIX+5~, FIX+17*, FIX+18, FIXX, FIXX+2, LOADTIUX~, LOADTIUX+3, LOADTIUX+4, LOADTIUX+8, LOADTIUX+13 , LOADTIUX+14, LOADTIUX+28, LOADTIUX+30, FILE+7 |
TIUCAP | LOADTIUX+12~, LOADTIUX+15*, LOADTIUX+16 |
>> TIUCPFN | LOOKUP+3, LOOKUP+9, LOOKUP+15 |
TIUD1 | LOADTIUX+6~, LOADTIUX+9* |
TIUD4 | LOADTIUX+6~, LOADTIUX+9* |
TIUDA | FOLLOWUP~, FOLLOWUP+2, DICW~, DICW+2 |
>> TIUDONE | FIXX+4* |
TIUFLD | LOADTIUX+12~, LOADTIUX+18*, LOADTIUX+19, LOADTIUX+21, LOADTIUX+22, LOADTIUX+23, LOADTIUX+24 |
>> TIUHDR( | LOOKUP+6! |
TIUHSIG | LOADTIUX+1~, LOADTIUX+2*, LOADTIUX+5 |
TIUI | LOADTIUX+1~, LOADTIUX+3*, LOADTIUX+4, LOADTIUX+11, LOADTIUX+13*, LOADTIUX+14, LOADTIUX+27, LOADTIUX+28*, LOADTIUX+30, ADDTEXT+1~* , ADDTEXT+2*, ADDTEXT+3 |
TIUJ | LOADTIUX+26~*, LOADTIUX+29*, LOADTIUX+30, LOADTIUX+31, ADDTEXT+1~*, ADDTEXT+3*, ADDTEXT+4 |
TIULINE | LOADTIUX+1~, LOADTIUX+4*, LOADTIUX+5, LOADTIUX+7, LOADTIUX+11, LOADTIUX+14*, LOADTIUX+15, LOADTIUX+21, LOADTIUX+25 |
TIUMSG | FOLLOWUP+1~, FILE+1~, FILE+5, FILE+7 |
TIUMSG(1 | FILE+6 |
TIUN | LOADTIUX+12~, LOADTIUX+16*, LOADTIUX+17, LOADTIUX+18, LOADTIUX+20 |
TIUOUT | FIX+5~, FIX+7, FIX+12*, FIX+14* |
>> TIUPOST | FIX+23*, FIX+25 |
TIUPRM0 | FIX+5~, LOADTIUX+1, LOADTIUX+2 |
TIUPRM1 | FIX+5~ |
>> TIUREC("#" | FIX+24* |
TIUREQ | LOADTIUX+12~*, LOADTIUX+20*, LOADTIUX+23 |
>> TIUSSN | LOOKUP+3, LOOKUP+4*, LOOKUP+5, LOOKUP+8 |
>> TIUTYPE | FIX+22, FIX+23 |
TIUX | CALLDIC~, CALLDIC+2, FIX+5~, FIX+18, FIX+20, FIX+22, ADDTEXT~, FILE~, FILE+3 |
TIUX("TEXT" | FIX+21!, ADDTEXT+2, ADDTEXT+3 |
TYPE | LOADTIUX+1~, LOADTIUX+10*, LOADTIUX+16, LOADTIUX+18, LOADTIUX+20, LOADTIUX+22 |
U | LOOKUP+9, LOOKUP+12, DICW+2, DICW+3, LOADTIUX+2, LOADTIUX+18, LOADTIUX+20, LOADTIUX+31, ADDTEXT+1, ADDTEXT+4 , FILE+6, FILE+7 |
VA | DICW+1~ |
VADM | DICW+1~ |
VAERR | DICW+1~ |
X | CALLDIC+1~, CALLDIC+2*, FIX+8~, DICW+1~, LOADTIUX+1~, LOADTIUX+7*, LOADTIUX+8 |
>> XQADATA | FIX+17, FIXX+1 |
Y | LOOKUP+3*, LOOKUP+5*, LOOKUP+10*, LOOKUP+12*, LOOKUP+14*, LOOKUP+15*, CALLDIC+1~, CALLDIC+3, FIX+8~, FIX+12 , FIX+13, DICW+1~, LOADTIUX+1~, LOADTIUX+7*, LOADTIUX+8, LOADTIUX+9, LOADTIUX+10 |