MAGVAF01 ;WOIFO/NST/DAC - Utilities for RPC calls ; 28 Feb 2013 9:58 AM
Source file <MAGVAF01.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IDF2FM(IDFDT) | ; converts date time in format YYYYMMDD.HHMMSS to FileMan format CYYMMDD.HHMMSS
|
|
| FM2IDF(FMDT) | ; converts date time in FileMan format CYYMMDD.HHMMSS to YYYYMMDD.HHMMSS
|
|
| GETFILNM(FILE) | ; Returns file name
|
|
| GETFILGL(FILE) | ; Get Global root of the file
|
|
| GETFLDID(FILE,FNAME) | ; Returns a field number
|
|
| GETFLDNM(FILE,FLDID) | ; Returns a field name
|
|
| ISFLDDT(FILE,FLDID) | ; Returns true(1) or false(0) if a field is from DATE/TIME type
|
|
| ISFLDWP(TYPEDEF,FILE,FLDID) | ; Returns true(1) or false(0) if a field is from Word-Processing type
|
|
| ISFLDSUB(TYPEDEF,FILE,FLDID) | ; Returns true(1) or false(0) if a field is from Word-Processing type or Multiple
|
|
| GETFLDS(MAGRY,MAGRYW,FILE,FLAGS) | ; Returns array with all fields in a file
; ; Input Parameters ; ================ ; FILE = FileMan file number ; FLAGS = I - add I(internal) to the field numbers in Result e.g .01I;2I;3I ; ; Return Values ; ============= ; ; Result=n1;n2;n3 (e.g. .01;2;3) - no multiple or word-processing fields ; ; MAGRY(n)=nth field name ; MAGRY(n,"TYPE")=type of the field (e.g. RP2006.916, 2006.9183, RD, RN, etc.) ; ; MAGRYW(n)=nth Word-Processing field name ; MAGRY(n,"TYPE")=type of the field (e.g. RP2006.916, 2006.9183, RD, RN, etc.) |
|
| GETSUBFL(FILE,FIELD) | ; Returns sub-file of a multiple field
|
|
| VALIDFLD(FILE,FIELD,VALUE,MESSAGE) | ; call to validate value for field in a FM file.
; Function is boolean. Returns: ; 0 - Invalid ; 1 - Valid ; FILE : File Number ; FIELD : Field Number ; VALUE : (sent by reference) data value of field ; MESSAGE (sent by reference) Result message ; |
|
| REQFLDS(MAGRY,FILE,FLDSVAL,FLDSARR,FLGWP) | ;
|
|
| STRWP(WP) | ; Return WP field value as a string
|
|
| WPEMPTY(WP) | ; Return 1 when WP field value is blank
|
|
| ADDRCD(MAGRY,FILE,FLDSVAL,FLDSVALW) | ; Add a new record to a file
|
|
| UPDRCD(MAGRY,FILE,FLDSVAL) | ; Update a record to a file
|
