MAGBVAL ;WOIFO/GEK - BP Validate Site Params data array ; [ 12/27/2000 10:49 ]
Source file <MAGBVAL.m>
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^^" ; |
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 |
|
RPC Name | Call Tags |
---|---|
MAGQBP VAL | VAL |
MAGQBP GETVAL | GETVAL |
MAGQBP SETVAL | SETVAL |
FileNo | Call Tags |
---|---|
^MAG(2006.1 - [#2006.1] | GET1^DIQ |