TIU199 ;BP/JML - TIU Alert Fix Tool ; 7/6/05 4:06pm
Source file <TIU199.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| TRIGGER | ; trigger code for the .05 field of file 8925.7
 ; note - do not "NEW" DA or X as these are passed in from FileMan  | 
|
| EN | ; MAIN DRIVER
 | 
|
| LOOP | ;
 | 
|
| GATHER | ; COLLECT DATA BASED ON SEARCH CRITERIA
 | 
|
| ;
 | 
||
| PROMPT() | ; PROMPT BASED ON DATA IN ^TMP($J) - QUIT VALUE DETERMINES FLOW IN LOOP/EN LINE TAGS
 | 
|
| HEAD | ;
 | 
|
| NODATA() | ;
 | 
|
| GETPAT(TIUDFN) | ;
 | 
|
| POST199 | ; REINDEX THE ABBREVIATION FIELD OF FILE 8925.1
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | Classic Fileman Calls | 
| ^TIU(8925.1 - [#8925.1] | Classic Fileman Calls |