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

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,MAGF,!,MAGL
  • Line Location: VALID+29
Function Call: WRITE
  • Prompt: !,"IN DEL File: ",MAGF," Field: ",MAGL
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"ITEM ",ITEM
  • Line Location: SETVAL+25
Function Call: WRITE
  • Prompt: !,"VALID FAILED"
  • Line Location: SETVAL+31
Function Call: WRITE
  • Prompt: !,"VAL ",VAL
  • Line Location: SETVAL+34
Function Call: WRITE
  • Prompt: !,"MAGERR ",MAGERR
  • Line Location: SETVAL+37
Function Call: WRITE
  • Prompt: !,"RTRNERR: ",ETXT
  • Line Location: RTRNERR+3
Function Call: WRITE
  • Prompt: !,"FILE: ",MFILE," IEN: ",MIEN," FLDS: ",MFLDS," FLAGS: ",$G(FLAGS)
  • Line Location: GETVAL+25
Function Call: WRITE
  • Prompt: !,"MIEN: ",MIEN
  • Line Location: GETVAL+28

Used in RPC

RPC Name Call Tags
MAGQBP VAL VAL
MAGQBP GETVAL GETVAL
MAGQBP SETVAL SETVAL

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MAG(2006.1 - [#2006.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All