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 |