Routine: ACRFUFMU

Package	Total	Call Graph
Commitment Register	6	DIE^ACRFDIC $$REQTP^ACRFSSU $$CKVEND^ACRFUFMU (CHSSET,SETVND)^ACRFUFMZ $$UPPER^ACRFUTL $$DUNS^ACRFVLK
VA Fileman	1	^DIE

Package	Total	Caller Graph
Commitment Register	7	ACRFEA42 ACRFUFMD ACRFUFMI ACRFUFMU ACRFUFMX ACRFUFMZ ACRFVLK3

Entry Points

Name	Comments	DBIA/ICR reference
MATCH()	;EP;
CCVEN()	;EP; RETRIEVE CREDIT CARD VENDOR FROM FMS SYSTEM DEFAULT FILE
SFX(X)	;EP; ;----- RETURNS SUFFIX
NAMCHK(ACRV)	;EP; CHECK VENDOR NAME AND INACTIVE STATUS
EFTAT(X)	;EP;----- RETURNS EFT ACCOUNT TYPE INFORMATION
ORGSET(X)	; SET MISSING ORG/IND FIELD IF VALID NUMBER
SETDATE(ACR)	;
MZIP(X)	; ;----- RETURNS MAILING ADDRESS - ZIP
DOL(X,Z)	;EP; EXTRINSIC FUNCTION TO RETURN ; X = DOLLAR AMOUNT IN 0000123456 FORMAT (FROM DHR) ; Z = REVERSE CODE FROM TRANSACTION NUMBER
CHS()	;EP - CHECK FOR CHS DOCUMENTS *********
BANK(ACRV)	;EP; CHECK EFT BANKING INFORMATION
IDATE(X)	;EP ;----- RETURNS DATE INACTIVATED
EIN(X)	;EP; ;----- RETURNS EIN NO
ORG(X)	;EP; ;----- RETURNS INDIVIDUAL/ORGANIZATION INDICATOR
EFTSRT(X)	;EP; ;----- RETURNS EFT SUB-ROUTING TRANSIT NUMBER
VEN(X)	;EP; EXTRINSIC FUNCTION TO FIND VENDOR THROUGH CROSS-REFERENCES ; X = EIN FROM CORE ; RETURNS VENDOR FILE POINTER OR 0
EINCHK(ACRV)	;EP; CHECK EIN FOR VENDORS WITH THE SAME EIN NO
VENDOR(ACR)	;EP; FIND VENDOR FROM PO,TRAINING OR TRAVEL (SSN FROM NEW PERSON) ; ENTERS WITH FMS DOCUMENT IEN ; RETURNS VENDOR FROM FMS DOCUMENT (PO OR TRAINING)
EFTRT(X)	;EP; ;----- RETURNS EFT ROUTING TRANSIT NUMBER
PRG(X)	; ; X = DEPARTMENT ACCOUNT POINTER
ADDCHK(ACRV)	;EP; CHECK VENDOR MAILING ADDRESS ZIP
RCK(ACRR)	;EXTRINSIC FUNCTION TO CHECKSUM THE EFT BANK ROUTING NUMBER ; ENTERS WITH THE ROUTING NUMBER = ACRR
SETCK(ACRMSG,ACR)	;EP; ONLY ENTER NO MATCHES ONCE
CKVEND(ACRV)	;EP; CHECK FOR MISSING VENDOR DATA
PIECE	;EP;
UPPER(X,Z)	; CONVERT TO UPPER CASE
OCC(Z)	;CHECK OBJECT CLASS CODE FOR FI PAID ; -- Enters with CORE Object Class Code
MATCH2(ACRXX,I,ACRV)	;EP; FIND MATCH IN ARRAY
DUPCHK(ACRIEN,ACRXIEN)	;EP; CHECK EIN FOR VENDORS WITH THE SAME EIN NO ; IF DIFFERENT BANK ACCOUNTS OR DUNS NOT A DUPLICATE ; Enters with: ACRIEN = Vendor file IEN ; ACRXIEN = Possible duplicate IEN ; Returns: 0 = not a duplicate ; 1 = is a duplicate
VNAME(X)	;EP ;----- RETURNS NAME OF VENDOR
DUNSCHK(ACRV)	; EP - CHECK FOR DUNS
EFTDA(X)	;EP; ;----- RETURNS EFT DEPOSITOR ACCOUNT NUMBER

Name	Field # of Occurrence
DIE^ACRFDIC	SETDATE+5, UPPER+7, ORGSET+5
$$REQTP^ACRFSSU	VENDOR+6
$$CKVEND^ACRFUFMU	SETCK+25
CHSSET^ACRFUFMZ	SETCK+13
SETVND^ACRFUFMZ	SETCK+27
$$UPPER^ACRFUTL	UPPER+3
$$DUNS^ACRFVLK	DUNSCHK+6, DUPCHK+11, DUPCHK+12
^DIE	DUNSCHK+12

FileNo	Call Tags
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACRDOC - [#9002196]	VENDOR+9, VENDOR+12, VENDOR+15, VENDOR+16
^ACRSYS(1	CCVEN+3
^ACRZ(	SETCK+5
^ACRZ("CEIN"	CKVEND+17*
^ACRZ("NOMATCH"	SETCK+5, SETCK+6!, SETCK+15, SETCK+21*
^ACRZ("TR"	SETCK+17, SETCK+18*
^ACRZ("VNDR"	SETCK+24
^AUTTCAN - [#9999999.57]	PIECE+4
^AUTTOBJC - [#9999999.59]	PIECE+2
^AUTTPRG - [#9999999.62]	PRG+5
^AUTTVNDR - [#9999999.11]	BANK+5, VNAME+6, IDATE+6, EIN+6, SFX+6, MZIP+6, EFTAT+12, EFTRT+6, EFTDA+6, EFTSRT+6 , ORG+7, VEN+8, VEN+9, DUPCHK+8, DUPCHK+9
^AUTTVNDR("C"	VEN+11, VEN+12
^AUTTVNDR("E"	EINCHK+39, EINCHK+42

Name	Line Occurrences
$$CCVEN	VENDOR+8
$$DUPCHK	EINCHK+46
$$EFTAT	BANK+8
$$EFTDA	BANK+10
$$EFTRT	BANK+9
$$EIN	EINCHK+8, EINCHK+47
$$IDATE	CKVEND+21, EINCHK+45, SETDATE+1
$$MZIP	ADDCHK+6
$$OCC	SETCK+11, CHS+5
$$ORG	EINCHK+30
$$RCK	BANK+14
$$SFX	EINCHK+28, EINCHK+47
$$VNAME	NAMCHK+7
ADDCHK	CKVEND+19
BANK	CKVEND+20
DUNSCHK	CKVEND+12
EINCHK	CKVEND+13
NAMCHK	CKVEND+11
ORGSET	EINCHK+31
SETDATE	BANK+12, BANK+16, BANK+19, NAMCHK+10, NAMCHK+18, EINCHK+11, EINCHK+27, EINCHK+34, EINCHK+37
UPPER	NAMCHK+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	CKVEND+9*, CKVEND+17, SETCK~, SETCK+5, SETCK+6, SETCK+13, SETCK+15, SETCK+17, SETCK+18, SETCK+21 , VENDOR~, VENDOR+6, VENDOR+9, VENDOR+12, VENDOR+15, VENDOR+16, SETDATE~, SETDATE+1, SETDATE+3
>> ACRACNT	BANK+10*, BANK+11, BANK+13
>> ACRAP	CHS+3, CHS+4, CHS+8, CHS+9, CHS+10, CHS+11, CHS+12, CHS+13, CHS+14, CHS+15 , CHS+16, CHS+17, CHS+18
ACRBANK	BANK+4~, BANK+5*, BANK+6
>> ACRBNK	DUPCHK+8*, DUPCHK+10
>> ACRCAN	PIECE+4*, MATCH+1
>> ACRCANDA	PIECE+3, PIECE+4
>> ACRCCAN	MATCH+1, CHS+2
>> ACRCDOC	CHS+7
>> ACRCEIN	CKVEND+7*, CKVEND+14, CKVEND+16, CKVEND+17, CKVEND+18
>> ACRCFY	MATCH+3, MATCH+4, SETCK+12
>> ACRCHS	SETCK+11
>> ACRCOCC	MATCH+2, SETCK+11, CHS+5
>> ACRCORE	CKVEND+8*, CKVEND+17, SETCK+18, SETCK+21, SETCK+26
>> ACRCREF	CHS+1
>> ACRCTYP	CKVEND+6, SETCK+16, VENDOR+5, VENDOR+14
ACRDUN	DUNSCHK+5~, DUNSCHK+6, DUNSCHK+7, DUNSCHK+8, DUPCHK+11*, DUPCHK+13
ACRE1	NAMCHK+6~, NAMCHK+11, NAMCHK+13, NAMCHK+14, NAMCHK+15*, NAMCHK+16
ACRE2	NAMCHK+6~, NAMCHK+12*, NAMCHK+16
ACRE3	CHS+6~, CHS+7*, CHS+8, CHS+9, CHS+10, CHS+11, CHS+12, CHS+13, CHS+14, CHS+15 , CHS+16, CHS+17, CHS+18, CHS+19
ACREFTT	BANK+4~, BANK+8*, BANK+17, BANK+18
>> ACREIN	CKVEND+15, EINCHK+8*, EINCHK+9, EINCHK+12, EINCHK+26, EINCHK+29, EINCHK+40
ACREINP	EINCHK+6~, EINCHK+29*, EINCHK+32, EINCHK+33, EINCHK+35, EINCHK+36, ORGSET+1, ORGSET+4
>> ACRERR	CKVEND+5, CKVEND+6, CKVEND+18, CKVEND+22, CKVEND+23, BANK+7, BANK+13, BANK+15, BANK+18, ADDCHK+9 , NAMCHK+9, NAMCHK+17, DUNSCHK+13, EINCHK+10, EINCHK+13, EINCHK+26, EINCHK+33, EINCHK+36, EINCHK+44, EINCHK+47 , EINCHK+49, SETCK+25
>> ACRFY	MATCH+3, MATCH+4, SETCK+12
ACRIEN	DUPCHK~, DUPCHK+8, DUPCHK+11
ACRLAST	RCK+9~, RCK+18*, RCK+19
>> ACRMATCH	MATCH2+3, MATCH2+4, MATCH2+5*, MATCH2+6
>> ACRMCNT	SETCK+7, SETCK+22
ACRMSG	SETCK~, SETCK+21
>> ACRNODUP	EINCHK+39, DUPCHK+7
>> ACROCC	PIECE+2*, MATCH+2
>> ACROCCDA	PIECE+1, PIECE+2
>> ACRORG	EINCHK+30*, EINCHK+31, EINCHK+32, EINCHK+33
ACRR	RCK~, RCK+6
ACRRT	BANK+4~, BANK+9*, BANK+14, BANK+15
>> ACRRTYP	VENDOR+6*, VENDOR+7, VENDOR+11, VENDOR+13
>> ACRSFX	CKVEND+15, EINCHK+7, EINCHK+28, EINCHK+48, EINCHK+49
>> ACRSTR	SETCK+21, SETCK+26*
ACRTEIN	CKVEND+10~, CKVEND+15*, CKVEND+16, CKVEND+17, CKVEND+18
ACRTOT8	RCK+9~, RCK+10, RCK+15, RCK+16, RCK+19
ACRTOT9	RCK+9~, RCK+16*, RCK+17, RCK+19
>> ACRTRTOT	SETCK+19*
ACRV	MATCH2~, MATCH2+3, CKVEND~, CKVEND+11, CKVEND+12, CKVEND+13, CKVEND+19, CKVEND+20, CKVEND+21, BANK~ , BANK+5, BANK+8, BANK+9, BANK+10, BANK+12, BANK+16, BANK+19, ADDCHK~, ADDCHK+6, NAMCHK~ , NAMCHK+7, NAMCHK+10, NAMCHK+14, NAMCHK+18, DUNSCHK~, DUNSCHK+6, DUNSCHK+9, EINCHK~, EINCHK+8, EINCHK+11 , EINCHK+27, EINCHK+28, EINCHK+30, EINCHK+31, EINCHK+34, EINCHK+37, EINCHK+43, EINCHK+46, SETCK+23, SETCK+24 , SETCK+25, VENDOR+4~, VENDOR+7, VENDOR+8, VENDOR+9, VENDOR+10, VENDOR+11, VENDOR+12, VENDOR+15, VENDOR+16 , VENDOR+17*, VENDOR+18
>> ACRVNAM	NAMCHK+7*, NAMCHK+8, NAMCHK+11, NAMCHK+12, NAMCHK+13, NAMCHK+14, NAMCHK+15, NAMCHK+17
ACRX	RCK+5~, RCK+6, RCK+7, RCK+8, RCK+11, RCK+18
>> ACRXBNK	DUPCHK+9*, DUPCHK+10
>> ACRXDUN	DUPCHK+12*, DUPCHK+13
ACRXEIN	EINCHK+6~, EINCHK+38, EINCHK+39, EINCHK+40, EINCHK+42
ACRXIEN	EINCHK+6~, EINCHK+41, EINCHK+42, EINCHK+43, EINCHK+45, EINCHK+46, EINCHK+47, DUPCHK~, DUPCHK+9, DUPCHK+12
ACRXX	MATCH2~
ACRXX(1	MATCH2+2, MATCH2+3, MATCH2+4
ACRZIP	ADDCHK+5~, ADDCHK+6*, ADDCHK+7, ADDCHK+9
ACRZIP2	ADDCHK+5~, ADDCHK+7*, ADDCHK+8
>> DA	DUNSCHK+9, SETDATE+3, UPPER+5, ORGSET+3
>> DIE	DUNSCHK+10, SETDATE+2, UPPER+4, ORGSET+2
>> DR	DUNSCHK+11, SETDATE+4, UPPER+6, ORGSET+4
DT	SETDATE+4
HIT	SETCK+2~, SETCK+3, SETCK+5, SETCK+16, SETCK+20, VEN+5~, VEN+6*
I	MATCH2~, MATCH2+2, MATCH2+3, MATCH2+4, EINCHK+6~, SETCK+2~, SETCK+4, SETCK+5, RCK+9~, RCK+11 , RCK+12, RCK+13, RCK+14, RCK+15, VEN+5~, VEN+7*, VEN+8, VEN+9
J	SETCK+2~
NAME	UPPER+2~, UPPER+3*, UPPER+6
P	RCK+9~
P(	RCK+11*, RCK+12, RCK+13, RCK+14
PP	RCK+9~
PP(	RCK+12, RCK+13, RCK+14*, RCK+15
PP(9	RCK+16
QUIT	SETCK+2~, SETCK+3, SETCK+4, SETCK+8, SETCK+10, SETCK+11, SETCK+14*
STR	SETCK+2~
U	PIECE+2, PIECE+4, CKVEND+17, CKVEND+18, CKVEND+22, BANK+5, BANK+7, BANK+13, BANK+15, BANK+18 , ADDCHK+9, NAMCHK+9, NAMCHK+17, DUNSCHK+13, EINCHK+10, EINCHK+26, EINCHK+33, EINCHK+36, EINCHK+47, EINCHK+49 , VNAME+6, IDATE+6, EIN+6, SFX+6, MZIP+6, EFTAT+12, EFTRT+6, EFTDA+6, EFTSRT+6, ORG+7 , SETCK+18, SETCK+21, SETCK+26, VENDOR+9, VENDOR+12, VENDOR+15, VENDOR+16, PRG+5, DUPCHK+8, DUPCHK+9 , CCVEN+3
V1	VENDOR+4~
V2	VENDOR+4~
X	VNAME~, VNAME+6, IDATE~, IDATE+6, EIN~, EIN+6, SFX~, SFX+6, MZIP~, MZIP+6 , EFTAT~, EFTAT+12, EFTRT~, EFTRT+6, EFTDA~, EFTDA+6, EFTSRT~, EFTSRT+6, ORG~, ORG+7 , PRG~, PRG+5, DOL~, DOL+4, VEN~, VEN+4, VEN+8, VEN+9, VEN+11, VEN+12 , CCVEN+2~, CCVEN+3, CCVEN+4, CCVEN+5, UPPER~, UPPER+5, ORGSET~, ORGSET+3
Y	VNAME+4~, VNAME+5, VNAME+6, VNAME+7, IDATE+4~, IDATE+5, IDATE+6, IDATE+7, EIN+4~, EIN+5* , EIN+6, EIN+7, SFX+4~, SFX+5, SFX+6, SFX+7, MZIP+4~, MZIP+5, MZIP+6, MZIP+7 , EFTAT+10~, EFTAT+11, EFTAT+12, EFTAT+13, EFTRT+4~, EFTRT+5, EFTRT+6, EFTRT+7, EFTDA+4~, EFTDA+5 , EFTDA+6, EFTDA+7, EFTSRT+4~, EFTSRT+5, EFTSRT+6, EFTSRT+7, ORG+5~, ORG+6, ORG+7, ORG+8 , PRG+3~, PRG+4, PRG+5, PRG+6, DOL+3~, DOL+4, DOL+5, DOL+6, VEN+5~, VEN+6 , VEN+7, VEN+9, VEN+10, VEN+12, VEN+13*, VEN+14
Z	EINCHK+6~, EINCHK+12, EINCHK+14, EINCHK+15, EINCHK+16, EINCHK+17, EINCHK+18, EINCHK+19, EINCHK+20, EINCHK+21* , EINCHK+22, EINCHK+23, EINCHK+24*, EINCHK+25, DOL~, DOL+5, VEN+5~, OCC~, OCC+3, OCC+5 , OCC+6, OCC+7, OCC+8, OCC+9, OCC+10, OCC+11, OCC+12, UPPER~, UPPER+3

Customize PDF page

Package: Commitment Register

Routine: ACRFUFMU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 7

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: