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 |