Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | 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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 MSG^DIALOG  FIELD^DID  (CHK,FILE,UPDATE)^DIE  CLEAN^DILF  ($$EXTERNAL,$$VFIELD)^DILFD  ($$GET1,GETS)^DIQ  
Imaging 1 $$DUZ2PLC^MAGBAPIP  
Kernel 1 $$EC^%ZOSV  
RPC Broker 1 $$BROKER^XWBLIB  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Imaging 3 MAGQBP GETVAL  MAGQBP SETVAL  MAGQBP VAL  

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^^"
;

External References

Name Field # of Occurrence
$$EC^%ZOSV ERR+2
MSG^DIALOG VALID+38
FIELD^DID VALID+21
CHK^DIE VALID+34
FILE^DIE DEL+10
UPDATE^DIE SETVAL+39
CLEAN^DILF ERR+5, SETVAL+42
$$EXTERNAL^DILFD VALID+27
$$VFIELD^DILFD VALID+18
$$GET1^DIQ VAL+37
GETS^DIQ GETVAL+29
$$DUZ2PLC^MAGBAPIP VAL+26, DEL+3, SETVAL+21, GETVAL+22
$$BROKER^XWBLIB VALID+16, SETVAL+17, GETVAL+24

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
Routine Call
  • DIALOG
  • Line Location:
    • VALID+38
Routine Call
  • DIE
  • Line Location:
    • VALID+34
Routine Call
  • DIE
  • Line Location:
    • DEL+10
Routine Call
  • DIE
  • Line Location:
    • SETVAL+39

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("ERRTN" ERR+4
^GEK("SETVAL" SETVAL+14*, SETVAL+15*

Label References

Name Line Occurrences
$$VALID VAL+42, SETVAL+30
@( ERR+4
DEL VALID+31
RTRNERR SETVAL+40, GETVAL+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AITEM VAL+22~, VAL+33*, VAL+35, VAL+43
ALL VAL~, VAL+25*, VAL+33
CT VAL+22~, VAL+29*, VAL+33*, GETVAL+18~, GETVAL+26*, GETVAL+32*, GETVAL+34*, GETVAL+35
DAT1 VAL+22~, VAL+41*, VAL+43
DATA SETVAL+16~, SETVAL+26*, SETVAL+27, SETVAL+28
>> DIERR SETVAL+40
ERR ERR+1~, ERR+2*, ERR+3
ETXT RTRNERR~, RTRNERR+2*, RTRNERR+3
FLAGS GETVAL+18~, GETVAL+25, GETVAL+27*, GETVAL+29
FLD SETVAL+16~, SETVAL+27*, SETVAL+30, SETVAL+35
I SETVAL+15*, GETVAL+18~, GETVAL+26*, GETVAL+33*, GETVAL+35
ITEM SETVAL+16~, SETVAL+24*, SETVAL+25, SETVAL+26
MAGARRAY VAL~, VAL+31
MAGARRAY( VAL+33, VAL+35, VAL+43*
MAGD VALID~, VALID+26, VALID+27, VALID+28, VALID+34, VALID+36*
MAGDATA SETVAL~
MAGDATA( SETVAL+15, SETVAL+24, SETVAL+26
MAGERR VAL+22~, VAL+29*, VAL+33*, VAL+34*, VAL+42*, VAL+50, SETVAL+16~, SETVAL+23*, SETVAL+24, SETVAL+32*
, SETVAL+37, SETVAL+38, GETVAL+20!
MAGF VALID~, VALID+18, VALID+19, VALID+21, VALID+27, VALID+29, VALID+31, VALID+34, DEL~, DEL+1
, DEL+9
MAGFILE SETVAL~, SETVAL+14, SETVAL+19, SETVAL+20
MAGGDAT VAL+21~, VAL+35*, VAL+37*, VAL+39, VAL+41, VAL+42, VAL+43
MAGGFDA DEL+8!, SETVAL+16~
MAGGFDA( DEL+9*, SETVAL+35*
MAGGFLD VAL+21~, VAL+35*, VAL+37, VAL+42, VAL+43
MAGGMSG DEL+2~, DEL+8!, DEL+11, DEL+13
MAGIENS VAL+21~, VAL+27*, VAL+37, DEL+2~, DEL+4*, DEL+9
MAGL VALID~, VALID+18, VALID+19, VALID+21, VALID+27, VALID+29, VALID+31, VALID+34, DEL~, DEL+1
, DEL+9
MAGLABEL VALID+15~, VALID+22*, VALID+28
MAGMSG VALID+14~
MAGOUT GETVAL+18~, GETVAL+20!
MAGOUT( GETVAL+33, GETVAL+35
MAGPLC VAL+21~, VAL+26*, VAL+27
MAGPT VALID+14~, VALID+26, VALID+27*, VALID+28*
MAGR VALID+14~, VALID+34, VALID+36
MAGRES VAL+21~, VAL+42, VALID~, VALID+19*, VALID+27*, VALID+28*, VALID+31, VALID+39*, DEL~, DEL+11*
, DEL+13*
MAGRESA VALID+14~, VALID+38
MAGRESA(1 VALID+39
MAGRY VAL~, SETVAL~, SETVAL+40, GETVAL~, GETVAL+20!
MAGRY( VAL+33*, GETVAL+35*
MAGRY(0 VAL+28*, VAL+31*, VAL+48*, VAL+50*, VAL+53*, ERR+3*, SETVAL+33*, SETVAL+41*, GETVAL+30*, GETVAL+31*
MAGSP VALID+14~
MAGSP("LABEL" VALID+22
MAGSP("SPECIFIER" VALID+26
MAGVAL VAL+23~
MAGVALLB VAL+23~
MAGWIN VALID+15~, VALID+16*, VALID+29, DEL+1, SETVAL+17~*, SETVAL+25, SETVAL+31, SETVAL+34, SETVAL+37, RTRNERR+3
, GETVAL+18~, GETVAL+24*, GETVAL+25, GETVAL+28
MAGXERR SETVAL+16~, GETVAL+18~, GETVAL+30
MAGXERR("DIERR" RTRNERR+2
MAGXIEN SETVAL+16~
MFILE SETVAL+16~, SETVAL+19*, SETVAL+21, SETVAL+30, SETVAL+35, GETVAL~, GETVAL+22, GETVAL+25, GETVAL+29, GETVAL+33
, GETVAL+35
MFLDS GETVAL~, GETVAL+25, GETVAL+29
MIEN SETVAL+16~, SETVAL+20*, SETVAL+21*, SETVAL+22*, SETVAL+35, GETVAL~, GETVAL+22*, GETVAL+23*, GETVAL+25, GETVAL+28
, GETVAL+29, GETVAL+33, GETVAL+35
N0 GETVAL+19~
NODEL VALID+31, SETVAL+16~, SETVAL+29*
>> RES SETVAL+30, SETVAL+33
U VAL+35
VAL SETVAL+16~, SETVAL+28*, SETVAL+30, SETVAL+34, SETVAL+35
X VAL+22~, DEL+3*, DEL+4
Y VAL+22~, GETVAL+18~, GETVAL+30

Marked Items

Name Field # of Occurrence
$T( VAL+24, SETVAL+18, GETVAL+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All