Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Entry Points | Interaction Calls | Used in RPC | FileMan Files Accessed Via FileMan Db Call | All

Print Page as PDF

Routine: MAGBVAL

Package: Imaging

Routine: MAGBVAL

Information

MAGBVAL ;WOIFO/GEK - BP Validate Site Params data array ; [ 12/27/2000 10:49 ]

Source Information

Source file <MAGBVAL.m>

Entry Points

Name	Comments	DBIA/ICR reference
VAL(MAGRY,MAGARRAY,ALL)	;RPC [MAGQBP VAL]
VALID(MAGF,MAGL,MAGD,MAGRES)	;internal call to validate value for field in a FM file. ; Function is boolean. Returns: ; 0 - Invalid ; 1 - Valid ; "" - Error ; Call this function before you set the FDA Array. ; MAGD - sent by reference because it could be Internal or External ; and if it is external and valid, it is changed to Internal. ; ; MAGF : File Number ; MAGL : Field Number ; MAGD : (sent by reference) data value of field ; MAGRES: (sent by reference) Result message
DEL(MAGF,MAGL,MAGRES)	;internal call to delete value of field
ERR	;
SETVAL(MAGRY,MAGFILE,MAGDATA)	;RPC [MAGQBP SETVAL] P222 Modify entries in MAGFILE. ; as of patch 223, this is used to set a modified value into the ; DEFAULT USER PREFERENCE field of IMAGING SITE PARAMS file. ; It can be modified in the future to Modify entries in any Imaging File. ; NOTE: Data is not validated. we must validate before we call UPDATE ; ======================== ; MAGFILE : two ^ pieces. ; Piece 1 is File Number ; Piece 2 is IEN ; example "2006.1^1" ; MAGDATA : is an array of Field^Value ; example ; MAGDATA(1)="100^135" <<< Field = 100 value = 135
RTRNERR(ETXT)	; There was error from UPDATE^DIE quit with error text
GETVAL(MAGRY,MFILE,MIEN,MFLDS)	;RPC [MAGQBP GETVAL] P222 USE GETS^DIQ TO GET FIELD VALUES. ; get values from File using GETS^DIQ ; ========================= ; MFILE is the FM File number example "2006.1" ; MIEN is the IEN for the file entry example "2" ; MFLDS is a ';' delimited string of Field Numbers. example "100;127;52;.01;.02;.03" ; ; MAGRY is the result array. MAGRY(0) is '1^Success' or '0^error message' ; each entry of array is a 3 "^" delimited string of Field Number^Internal Value^External Value ; example ; MAGRY(0)="1^Success" ; MAGRY(1)=".01^589^KANSAS CITY, MO" ; MAGRY(2)=".02^GB^GB" ; MAGRY(3)=".03^66^MAG1HKAN" ; MAGRY(4)="52^^" ; MAGRY(5)="100^1^FRANK,STUART (SETTING 1)" ; MAGRY(6)="127^^" ;

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Info | Source | Entry Points | Interaction Calls | Used in RPC | FileMan Files Accessed Via FileMan Db Call | All