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 |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: MAGVAF01

Package: Imaging

Routine: MAGVAF01


Information

MAGVAF01 ;WOIFO/NST/DAC - Utilities for RPC calls ; 28 Feb 2013 9:58 AM

Source Information

Source file <MAGVAF01.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 MSG^DIALOG  ($$GET1,FIELD)^DID  (CHK,UPDATE,WP)^DIE  ^DIK  ($$EXTERNAL,$$FLDNUM,$$ROOT,$$VFIELD)^DILFD  
Imaging 2 ($$GETFILGL,$$GETFLDID,$$GETFLDS,$$ISFLDSUB,$$VALIDFLD,$$WPEMPTY,REQFLDS)^MAGVAF01  ($$FAILED,$$ISOK,$$OK,$$RESDEL)^MAGVAF02  

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: 13

Package Total Caller Graph
Imaging 13 MAGNVQ03  MAGVAC01  MAGVAD01  MAGVAD02  MAGVAF01  MAGVAF03  MAGVAG04  MAGVAKL1  
MAGVAQ01  MAGVAU01  MAGVRS41  MAGVRS44  MAGVRS51  

Entry Points

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

External References

Name Field # of Occurrence
MSG^DIALOG VALIDFLD+28
$$GET1^DID GETFILNM+1, GETFLDNM+1, ISFLDDT+1, ISFLDWP+3, ISFLDWP+4, ISFLDWP+5, ISFLDSUB+3, ISFLDSUB+4, ISFLDSUB+5, GETFLDS+32
, GETSUBFL+1
FIELD^DID VALIDFLD+15
CHK^DIE VALIDFLD+24
UPDATE^DIE ADDRCD+29, UPDRCD+16
WP^DIE ADDRCD+40
^DIK ADDRCD+48
$$EXTERNAL^DILFD VALIDFLD+20
$$FLDNUM^DILFD GETFLDID+1
$$ROOT^DILFD GETFILGL+1
$$VFIELD^DILFD VALIDFLD+13
$$GETFILGL^MAGVAF01 ADDRCD+46
$$GETFLDID^MAGVAF01 VALIDFLD+11, REQFLDS+10, ADDRCD+21, ADDRCD+39, UPDRCD+10
$$GETFLDS^MAGVAF01 ADDRCD+6
$$ISFLDSUB^MAGVAF01 GETFLDS+26, GETFLDS+38
$$VALIDFLD^MAGVAF01 ADDRCD+24, UPDRCD+12
$$WPEMPTY^MAGVAF01 REQFLDS+9
REQFLDS^MAGVAF01 ADDRCD+8, ADDRCD+12
$$FAILED^MAGVAF02 REQFLDS+13, REQFLDS+24, ADDRCD+26, ADDRCD+31, ADDRCD+44, UPDRCD+4, UPDRCD+14, UPDRCD+18
$$ISOK^MAGVAF02 ADDRCD+9, ADDRCD+13
$$OK^MAGVAF02 REQFLDS+30, ADDRCD+53, UPDRCD+19
$$RESDEL^MAGVAF02 REQFLDS+13, REQFLDS+24, ADDRCD+26, ADDRCD+31, ADDRCD+44, ADDRCD+53, UPDRCD+4, UPDRCD+14, UPDRCD+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( GETFLDS+24, GETFLDS+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ADDRCD+43~, ADDRCD+47*
DEL GETFLDS+18~, GETFLDS+35*, GETFLDS+39, GETFLDS+40*
DIK ADDRCD+43~, ADDRCD+46*
ERR REQFLDS+1~, REQFLDS+6*, REQFLDS+7, REQFLDS+14*, REQFLDS+18, REQFLDS+21, REQFLDS+25*, REQFLDS+28, ADDRCD+3~, ADDRCD+18*
, ADDRCD+19, ADDRCD+24*, ADDRCD+26, ADDRCD+37, ADDRCD+42*, ADDRCD+51, UPDRCD+3~, UPDRCD+7*, UPDRCD+8, UPDRCD+12*
, UPDRCD+14
FIELD GETSUBFL~, GETSUBFL+1, VALIDFLD~, VALIDFLD+11*, VALIDFLD+13, VALIDFLD+14, VALIDFLD+15, VALIDFLD+20, VALIDFLD+21, VALIDFLD+24
, REQFLDS+10*, REQFLDS+11, REQFLDS+16, REQFLDS+20*, REQFLDS+21*, REQFLDS+22, REQFLDS+23, ADDRCD+1~, ADDRCD+21*, ADDRCD+22
, ADDRCD+23, ADDRCD+24, UPDRCD+1~, UPDRCD+10*, UPDRCD+11, UPDRCD+12
FILE GETFILNM~, GETFILNM+1, GETFILGL~, GETFILGL+1, GETFLDID~, GETFLDID+1, GETFLDNM~, GETFLDNM+1, ISFLDDT~, ISFLDDT+1
, ISFLDWP~, ISFLDWP+3, ISFLDWP+4, ISFLDSUB~, ISFLDSUB+3, ISFLDSUB+4, GETFLDS~, GETFLDS+24, GETFLDS+25, GETFLDS+26
, GETFLDS+32, GETFLDS+38, GETSUBFL~, GETSUBFL+1, VALIDFLD~, VALIDFLD+11, VALIDFLD+13, VALIDFLD+14, VALIDFLD+15, VALIDFLD+20
, VALIDFLD+21, VALIDFLD+24, REQFLDS~, REQFLDS+10, REQFLDS+12, REQFLDS+23, ADDRCD~, ADDRCD+6, ADDRCD+8, ADDRCD+12
, ADDRCD+21, ADDRCD+23, ADDRCD+24, ADDRCD+39, ADDRCD+40, ADDRCD+46, UPDRCD~, UPDRCD+10, UPDRCD+11, UPDRCD+12
, UPDRCD+18
FILESUB ISFLDSUB+1~, ISFLDSUB+4*, ISFLDSUB+5
FLAGS GETFLDS~, GETFLDS+21
FLDID GETFLDNM~, GETFLDNM+1, ISFLDDT~, ISFLDDT+1, ISFLDWP~, ISFLDWP+3, ISFLDWP+4, ISFLDSUB~, ISFLDSUB+3, ISFLDSUB+4
, GETFLDS+18~, GETFLDS+25*, GETFLDS+26, GETFLDS+27, GETFLDS+28, GETFLDS+31, GETFLDS+32
FLDNAME REQFLDS+1~, REQFLDS+5*, REQFLDS+7*, REQFLDS+8, REQFLDS+9, REQFLDS+10, REQFLDS+12, ADDRCD+1~, ADDRCD+17*, ADDRCD+19*
, ADDRCD+20, ADDRCD+21, ADDRCD+23, ADDRCD+24, ADDRCD+36*, ADDRCD+37*, ADDRCD+39, ADDRCD+44, UPDRCD+1~, UPDRCD+6*
, UPDRCD+8*, UPDRCD+9, UPDRCD+10, UPDRCD+11, UPDRCD+12
FLDS GETFLDS+18~, GETFLDS+23*, GETFLDS+39*, GETFLDS+42
FLDSARR REQFLDS~, REQFLDS+4, ADDRCD+4~, ADDRCD+6, ADDRCD+8
FLDSARR( ADDRCD+22!
FLDSARRW ADDRCD+4~, ADDRCD+6, ADDRCD+12
FLDSVAL REQFLDS~, ADDRCD~, ADDRCD+8, UPDRCD~
FLDSVAL( REQFLDS+7, REQFLDS+8, REQFLDS+9, ADDRCD+19, ADDRCD+20, ADDRCD+23, ADDRCD+24, UPDRCD+8, UPDRCD+11, UPDRCD+12
FLDSVAL("PK" UPDRCD+4, UPDRCD+5
FLDSVALW ADDRCD~, ADDRCD+12
FLDSVALW( ADDRCD+37
FLGWP REQFLDS~, REQFLDS+8, REQFLDS+9
FMDT FM2IDF~, FM2IDF+1, FM2IDF+3, FM2IDF+4
FNAME GETFLDID~, GETFLDID+1
I GETFLDS+18~, GETFLDS+22*, GETFLDS+24*, GETFLDS+25, GETFLDS+27, GETFLDS+31, GETFLDS+35*, GETFLDS+36*, GETFLDS+38, GETFLDS+39
, STRWP+1~, STRWP+2*, STRWP+4*, STRWP+5, WPEMPTY+1~, WPEMPTY+2*, WPEMPTY+4*, WPEMPTY+5
IDFDT IDF2FM~, IDF2FM+1, IDF2FM+3, IDF2FM+4
IENS ADDRCD+1~, ADDRCD+16*, ADDRCD+23, ADDRCD+35*, ADDRCD+40, UPDRCD+1~, UPDRCD+5*, UPDRCD+11
IVAL GETFLDS+19~, GETFLDS+21*, GETFLDS+39
MAGDA ADDRCD+2~, ADDRCD+32*, ADDRCD+35, ADDRCD+47, ADDRCD+53
MAGMSG VALIDFLD+9~
MAGNFDA ADDRCD+2~, UPDRCD+2~
MAGNFDA( ADDRCD+23*, UPDRCD+11*
MAGNIEN ADDRCD+2~, UPDRCD+2~
MAGNIEN(1 ADDRCD+32
MAGNXE ADDRCD+2~, ADDRCD+38!, UPDRCD+2~
MAGNXE("DIERR" ADDRCD+31, ADDRCD+41, UPDRCD+18
MAGPT VALIDFLD+9~, VALIDFLD+19, VALIDFLD+20*, VALIDFLD+21*
MAGR VALIDFLD+9~, VALIDFLD+24, VALIDFLD+26
MAGRESA VALIDFLD+9~, VALIDFLD+28
MAGRESA(1 VALIDFLD+29
MAGRY GETFLDS~, GETFLDS+20!, REQFLDS~, REQFLDS+13*, REQFLDS+24*, REQFLDS+30*, ADDRCD~, ADDRCD+8, ADDRCD+9, ADDRCD+12
, ADDRCD+13, ADDRCD+26*, ADDRCD+31*, ADDRCD+44*, ADDRCD+53*, UPDRCD~, UPDRCD+4*, UPDRCD+14*, UPDRCD+18*, UPDRCD+19*
MAGRY( GETFLDS+31*, GETFLDS+32*, GETFLDS+36
MAGRYW GETFLDS~, GETFLDS+20!
MAGRYW( GETFLDS+27*, GETFLDS+28*
MAGSP VALIDFLD+9~
MAGSP("SPECIFIER" VALIDFLD+19
MAGTIME IDF2FM+2~, IDF2FM+3*, IDF2FM+4, FM2IDF+2~, FM2IDF+3*, FM2IDF+4
MESSAGE VALIDFLD~, VALIDFLD+14*, VALIDFLD+21*, VALIDFLD+29*, ADDRCD+3~, ADDRCD+24, ADDRCD+26, UPDRCD+3~, UPDRCD+12, UPDRCD+14
MSG REQFLDS+1~, REQFLDS+12*, REQFLDS+13, REQFLDS+23*, REQFLDS+24
RESULT STRWP+1~, STRWP+3*, STRWP+5*, STRWP+7, WPEMPTY+1~, WPEMPTY+3*, WPEMPTY+4, WPEMPTY+5*, WPEMPTY+7
TFLDSARR REQFLDS+2~, REQFLDS+4*
TFLDSARR( REQFLDS+16!, REQFLDS+21, REQFLDS+22, REQFLDS+23
TYPEDEF ISFLDWP~, ISFLDWP+2*, ISFLDWP+5*, ISFLDSUB~, ISFLDSUB+2*, ISFLDSUB+5*
VALUE VALIDFLD~, VALIDFLD+19, VALIDFLD+20, VALIDFLD+21, VALIDFLD+24
WP REQFLDS+3~, REQFLDS+9*, STRWP~, WPEMPTY~
WP( STRWP+4, STRWP+5, WPEMPTY+4, WPEMPTY+5
WPFILE ISFLDWP+1~, ISFLDWP+4*, ISFLDWP+5
WPFLD ADDRCD+1~, ADDRCD+39*, ADDRCD+40
WPTYPE GETFLDS+19~, GETFLDS+26, GETFLDS+28, GETFLDS+38
X ADDRCD+4~, ADDRCD+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Local Variables  | All