TIUPS169 ; SLC/MAM - After installing TIU*1*169 ; 7/27/2004
Source file <TIUPS169.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BEGIN | ; Create DDEFS
|
|
MAIN | ; Create DDEFS for C&P
|
|
MAINX | ; Exit
; -- Leave latest error arrays ^TMP("DIERR",$J) & TIUIERR around until ; now in case modules are run separately for debugging: |
|
PARENT(NUM) | ; Return IEN of parent new DDEF should be added to
|
|
PARENTX | ||
FILE(NUM,TIUDA) | ; File fields for new DDEF TIUDA
; Files ALL FIELDS set in "FILEDATA" nodes of ^TMP: ; ^TMP("TIU169",$J,"FILEDATA",NUM,Field#) |
|
CREATE(NUM) | ; Create new DDEF entry
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^TIU(8925.1 - [#8925.1] | Classic Fileman Calls |