Routine: MAGVAF01

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

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*

Customize PDF page

Package: Imaging

Routine: MAGVAF01

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 13

Entry Points

External References

Global Variables Directly Accessed

Local Variables

Legend: