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 |