Routine: ACRFIV12

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Commitment Register	10	(DIC,DIE,FILE)^ACRFDIC N1166^ACRFIV11 BCHECK^ACRFIV12 SCHT^ACRFIV4 PAYDUE^ACRFIV41 (AMOUNT,FINAL,INVOICE)^ACRFPAY1 VENDOR^ACRFPAY8 PTYPE^ACRFPAY9 $$PAD^ACRFUTL $$NAME2^ACRFUTL1
VA Fileman	3	^%DTC FILE^DICN ^DIR

Package	Total	Caller Graph
Commitment Register	7	ACRFIV11 ACRFIV12 ACRFIV13 ACRFPAY ACRFPAY1 ACRFPAY2 ACRFPVEN

Package

Total

Caller Graph

Commitment Register

ACRFIV11 ACRFIV12 ACRFIV13 ACRFPAY ACRFPAY1 ACRFPAY2 ACRFPVEN

Entry Points

Name	Comments	DBIA/ICR reference
ACPT	;SET ACCOUNING POINT
BAT	;DETERMINE IF BATCH EXISTS FOR PAYMENT DATE AND TYPE (PO vs TRAVEL)
VENDOR	;EP;GATHER ALL VENDOR DATA ; SUBROUTINE REWRITTEN ACR2.120.10 IM18953
NEWBAT(ACRPAYDA,ACRBTYP,ACRACH,ACRFYDA,ACRBATNO,ACRBATDA)
COUNT(X,Y)	;EP;COUNT NUMBER OF PAYMENTS
DATES	;EP -- GET TRAVEL BEGIN AND END DATES
A1
AMOUNT	;CALCULATE PAYMENT AMOUNT
SEQNO1
BCHECK	;EP;TO CHECK FOR BATCH NUMBER AND CREATE NEW BATCH
AIRLINE	;EP;TO PAY AIRLINE EXPENSES
TRAVELER	;EP;GATHER TRAVELER DATA FOR TRAVEL PAYMENT
JDATE(X)	;EP;CALCULATE JULIAN DATE
UPPER(X)	;CONVERT TO UPPER CASE
SCHNO	;EP;TO CREATE THE NEXT TREASURY SCHEDULE NUMBER
SEQNO(ACRFYDA,ACRBATDA,ACRSEQNO)	;EP;FIND NEXT SEQUENCE NUMBER ;ACR2.116.06 IM15505

External References

Name	Field # of Occurrence
^%DTC	JDATE+3
DIC^ACRFDIC	A1+8
DIE^ACRFDIC	SCHNO+17, A1+48
FILE^ACRFDIC	SCHNO+9, BCHECK+7
N1166^ACRFIV11	A1+43
BCHECK^ACRFIV12	A1+41
SCHT^ACRFIV4	A1+38
PAYDUE^ACRFIV41	A1+35
AMOUNT^ACRFPAY1	AMOUNT+12
FINAL^ACRFPAY1	A1+33
INVOICE^ACRFPAY1	A1+24
VENDOR^ACRFPAY8	A1+22
PTYPE^ACRFPAY9	A1+30
$$PAD^ACRFUTL	NEWBAT+22
$$NAME2^ACRFUTL1	TRAVELER+4
FILE^DICN	NEWBAT+31
^DIR	DATES+16, DATES+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: A1+0
Function Call: WRITE	Prompt: !?22,"TRAVEL ORDER/VOUCHER for Airline Payment",! Line Location: A1+3
Function Call: WRITE	Prompt: ! Line Location: A1+16
Function Call: WRITE	Prompt: !,*7," ENDING DATE CANNOT BE BEFORE BEGINNING DATE!" Line Location: DATES+26
Routine Call	DIR Line Location: DATES+16 DATES+23

FileNo	Call Tags
^ACROBL - [#9002189]	Classic Fileman Calls
^ACRDOC - [#9002196]	Classic Fileman Calls
^AFSLAFP - [#9002325]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	UPPER+1
^ACRAL - [#9002193.7]	AMOUNT+4
^ACRAL("C"	AMOUNT+4
^ACRDOC - [#9002196]	A1+12, A1+14, TRAVELER+2, TRAVELER+6, TRAVELER+20, TRAVELER+21, TRAVELER+24, TRAVELER+29, DATES+9
^ACRLOCB - [#9002188]	A1+15, TRAVELER+29
^ACROUT	AIRLINE+1
^ACRSS - [#9002193]	AMOUNT+8, AMOUNT+9
^ACRSS("J"	AMOUNT+6
^ACRSYS(1	SCHNO+2, ACPT+1, A1+21, BAT+25
^AFSLAFP - [#9002325]	SEQNO+4, SEQNO1+2, BCHECK+10, BAT+7, BAT+9, BAT+22, BAT+32, BAT+33, COUNT+3, COUNT+5 , COUNT+8
^AFSLAFP("B"	BCHECK+3, BCHECK+8
^AFSLAFP("J"	BAT+4, BAT+6
^AFSLAFP("L"	NEWBAT+21, NEWBAT+23
^AUTTACPT - [#9999999.69]	ACPT+2
^AUTTDOCR - [#9999999.63]	TRAVELER+23
^AUTTVNDR - [#9999999.11]	VENDOR+3, VENDOR+4, VENDOR+5, VENDOR+7
^DD("DD"	DATES+12, DATES+20
^DD(9002325	NEWBAT+28
^DIC(5 - [#5]	VENDOR+41, TRAVELER+18
^VA(200 - [#200]	TRAVELER+9, TRAVELER+11

Name	Line Occurrences
$$COUNT	BAT+25
$$JDATE	NEWBAT+13
$$UPPER	VENDOR+8, VENDOR+42, VENDOR+43, VENDOR+44, VENDOR+45, TRAVELER+13, TRAVELER+15, TRAVELER+17
A1	AIRLINE+1
ACPT	SCHNO+10
AMOUNT	A1+18
DATES	DATES+26
NEWBAT	BAT+10, BAT+34
SEQNO1	SEQNO1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	COUNT+2~, COUNT+7, COUNT+8, COUNT+9, COUNT+10, COUNT+11!
>> ACR16	VENDOR+6*
>> ACR18	TRAVELER+21, TRAVELER+22
>> ACR27	TRAVELER+10*
>> ACR28	VENDOR+26, VENDOR+32, VENDOR+34, VENDOR+40, VENDOR+42*
>> ACR29	VENDOR+27, VENDOR+32, VENDOR+33, VENDOR+35, VENDOR+40, VENDOR+43, TRAVELER+12, TRAVELER+13*
>> ACR3	VENDOR+2, TRAVELER+25
>> ACR30	VENDOR+29, VENDOR+32, VENDOR+37, VENDOR+40, VENDOR+44, TRAVELER+16, TRAVELER+17*
>> ACR31	VENDOR+30, VENDOR+32, VENDOR+38, VENDOR+40, VENDOR+41, TRAVELER+18
>> ACR32	VENDOR+31, VENDOR+32, VENDOR+39, VENDOR+40, TRAVELER+19*
>> ACR33	VENDOR+7, VENDOR+8, TRAVELER+4*, TRAVELER+5
>> ACR56	VENDOR+10*
>> ACR58	VENDOR+9, TRAVELER+9
>> ACR64	TRAVELER+27*
>> ACR65	VENDOR+11*
>> ACR68	VENDOR+28, VENDOR+32, VENDOR+36, VENDOR+45, TRAVELER+14, TRAVELER+15
ACRACH	BAT+10, BAT+17, BAT+18, BAT+19, BAT+20, BAT+22, BAT+34, NEWBAT~, NEWBAT+14, NEWBAT+16 , NEWBAT+17, NEWBAT+18, NEWBAT+19, NEWBAT+20, NEWBAT+29
>> ACRACPT	SCHNO+10, SCHNO+11, ACPT+1, ACPT+2
ACRBATDA	SEQNO~, SEQNO+4, SEQNO1+2, BAT+10, BAT+24, BAT+25, BAT+29!, BAT+31, BAT+32!, BAT+33! , BAT+34, NEWBAT~, NEWBAT+32
ACRBATNO	BAT+1!, BAT+10, BAT+26!, BAT+28, BAT+32!, BAT+33!, BAT+34, NEWBAT~, NEWBAT+24
ACRBATNO(	BAT+9*, BAT+12, BAT+13
ACRBEG	TRAVELER+6, TRAVELER+7, TRAVELER+8, DATES+6!, DATES+10, DATES+11, DATES+12, DATES+18, DATES+24!, DATES+26
ACRBTYP	A1+17*, BAT+10, BAT+16, BAT+22, BAT+34, NEWBAT~, NEWBAT+14, NEWBAT+15, NEWBAT+29
>> ACRCANDA	AMOUNT+6, AMOUNT+7, AMOUNT+8, AMOUNT+9, AMOUNT+10, AMOUNT+14
>> ACRDOC	A1+12*, DATES+8
>> ACRDOC2	TRAVELER+24*
ACRDOCDA	AIRLINE+2!, A1+11*, A1+12, A1+14, A1+45, AMOUNT+4, AMOUNT+6, TRAVELER+2, TRAVELER+6, TRAVELER+7 , TRAVELER+8, TRAVELER+20, TRAVELER+21, TRAVELER+24, TRAVELER+29
>> ACRDUZ	TRAVELER+2*, TRAVELER+27
ACREND	TRAVELER+7, DATES+6!, DATES+10, DATES+19, DATES+20, DATES+25*, DATES+26
>> ACRFINAL	TRAVELER+26*
>> ACRFY	SCHNO+1, SCHNO+2, BCHECK+1, BCHECK+2, BCHECK+3, BCHECK+4, BCHECK+8
ACRFYDA	SEQNO~, SEQNO+4, SEQNO1+2, BCHECK+8*, BCHECK+9, BCHECK+10, BAT+6, BAT+7, BAT+9, BAT+10 , BAT+22, BAT+25, BAT+31, BAT+32, BAT+33, BAT+34, NEWBAT~, NEWBAT+21, NEWBAT+23, NEWBAT+25
ACRFYFUN	AIRLINE+2!, A1+15, TRAVELER+29
ACRINV	A1+1~
>> ACRIVDIS(	COUNT+19, COUNT+21
ACRIVPAY	A1+19, AMOUNT+1!
ACRIVPAY(	AMOUNT+14*, COUNT+15, COUNT+17
ACRIVTF	A1+2!, AMOUNT+4*, AMOUNT+5, AMOUNT+11, AMOUNT+13, AMOUNT+14
ACRJDATE	NEWBAT+12~, NEWBAT+13*, NEWBAT+22
>> ACRLBDA	A1+14*, A1+15
>> ACROBJDA	AMOUNT+8*, AMOUNT+10, AMOUNT+14
>> ACROUT	A1+23, A1+25, A1+31, A1+34, A1+36, TRAVELER+5, DATES+17, DATES+24*
ACRPAYDA	A1+36, BCHECK+1, BAT+3, BAT+4, BAT+10, BAT+34, NEWBAT~, NEWBAT+13, NEWBAT+29
>> ACRPAYDU	A1+36
ACRQUIT	AIRLINE+1, AIRLINE+2!, A1+9, A1+23, A1+25, A1+31, A1+34, A1+36, A1+42, A1+44 , BAT+1!, BAT+4, BAT+6, BAT+12, BAT+27, BAT+30!
>> ACRREF	A1+39*
>> ACRREF2	TRAVELER+20, TRAVELER+23
>> ACRSCHNO	SCHNO+11*, SCHNO+16
ACRSEQNO	SEQNO~, SEQNO1, SEQNO1+1, SEQNO1+2
>> ACRTCODE	TRAVELER+28*
ACRTMP	DATES+7~, DATES+9*, DATES+10
>> ACRV11	VENDOR+3*, VENDOR+9, VENDOR+10
>> ACRV13	VENDOR+4*, VENDOR+34, VENDOR+35, VENDOR+36, VENDOR+37, VENDOR+38, VENDOR+39
>> ACRV14	VENDOR+5*, VENDOR+26, VENDOR+27, VENDOR+28, VENDOR+29, VENDOR+30, VENDOR+31
ACRVDA	A1+20!, A1+23, VENDOR+1, VENDOR+3, VENDOR+4, VENDOR+5, VENDOR+6, VENDOR+7, VENDOR+11
ACRX	SCHNO+2, SCHNO+3, SCHNO+6, SCHNO+7, SCHNO+13, SCHNO+15, AMOUNT+2~, AMOUNT+3, AMOUNT+4*, DATES+8 , DATES+9
DA	SCHNO+14, A1+45, NEWBAT+12~
DA(1	SCHNO+6, SCHNO+13, NEWBAT+25*, NEWBAT+26
DA(2	SCHNO+5, SCHNO+12
DD	NEWBAT+30!
DIC	SCHNO+7, A1+4, BCHECK+5, NEWBAT+12~, NEWBAT+26
DIC("A"	A1+6*
DIC("B"	A1+21*
DIC("DR"	NEWBAT+29*
DIC("P"	NEWBAT+28*
DIC("S"	A1+7*
DIC(0	SCHNO+8, A1+5, BCHECK+6, NEWBAT+27
>> DIE	SCHNO+15, A1+46
DIR	DATES+5~
DIR("?"	DATES+15, DATES+22
DIR("A"	DATES+14, DATES+21
DIR("B"	A1+29, A1+32, AMOUNT+11, DATES+12, DATES+20*
DIR(0	DATES+13*
>> DIRUT	DATES+17, DATES+24
DO	NEWBAT+30!
DR	SCHNO+16, A1+47, NEWBAT+12~
DT	NEWBAT+29
>> DTOUT	DATES+17, DATES+24
DUZ	NEWBAT+29
I	NEWBAT+12~, NEWBAT+21*, NEWBAT+22
IOF	A1
J	BAT+2~, BAT+8, BAT+9, BAT+14, BAT+15, BAT+16, BAT+17, BAT+18, BAT+19, BAT+20 , BAT+22, COUNT+2~, COUNT+4, COUNT+10, COUNT+12, COUNT+17, COUNT+21*, COUNT+22
K	COUNT+2~, COUNT+4, COUNT+5, COUNT+8
U	ACPT+1, ACPT+2, A1+12, A1+14, A1+15, A1+21, AMOUNT+4, AMOUNT+8, AMOUNT+9, BAT+7 , BAT+9, BAT+22, BAT+24, BAT+25, BAT+28, BAT+32, BAT+33, NEWBAT+28, COUNT+3, COUNT+9 , VENDOR+7, VENDOR+9, VENDOR+10, VENDOR+26, VENDOR+27, VENDOR+28, VENDOR+29, VENDOR+30, VENDOR+31, VENDOR+34 , VENDOR+35, VENDOR+36, VENDOR+37, VENDOR+38, VENDOR+39, VENDOR+41, TRAVELER+2, TRAVELER+7, TRAVELER+8, TRAVELER+9 , TRAVELER+12, TRAVELER+14, TRAVELER+16, TRAVELER+18, TRAVELER+19, TRAVELER+20, TRAVELER+21, TRAVELER+23, TRAVELER+24, TRAVELER+29 , DATES+10
V	NEWBAT+12~, NEWBAT+14, NEWBAT+16, NEWBAT+17, NEWBAT+18, NEWBAT+19, NEWBAT+20, NEWBAT+22
X	SCHNO+4, SEQNO+1~, SEQNO+3, SEQNO+4, BCHECK+4, BAT+2~, BAT+3, BAT+4, BAT+6, BAT+11* , BAT+12, BAT+13, NEWBAT+12~, NEWBAT+21, NEWBAT+22, NEWBAT+23, NEWBAT+24, JDATE~, JDATE+1, JDATE+2 , JDATE+4, JDATE+5, JDATE+6, COUNT~, COUNT+3, COUNT+5, COUNT+8, COUNT+13~, COUNT+14, COUNT+15 , COUNT+17, COUNT+18, COUNT+19, COUNT+21, TRAVELER+1~, TRAVELER+2*, TRAVELER+4, TRAVELER+9, TRAVELER+10, TRAVELER+11 , UPPER~, DATES+5~
>> X1	JDATE+1*
>> X2	JDATE+2*
Y	SCHNO+11, SCHNO+14, A1+9, A1+11, SEQNO+1~, SEQNO+2, SEQNO+4, SEQNO1, SEQNO1+2, BAT+2~ , BAT+5, BAT+6, BAT+7, BAT+9, BAT+13, BAT+14, BAT+21, BAT+22, NEWBAT+12~, NEWBAT+32 , COUNT~, COUNT+3, COUNT+5, COUNT+8, COUNT+13~, COUNT+16, COUNT+17, COUNT+20, COUNT+21, UPPER+2 , DATES+5~, DATES+12~, DATES+18, DATES+20~, DATES+25
Z	BAT+2~, BAT+21, BAT+22, BAT+23, BAT+24, BAT+28, COUNT+2~, COUNT+3, COUNT+7, TRAVELER+1~ , TRAVELER+11, TRAVELER+12, TRAVELER+14, TRAVELER+16, TRAVELER+18, TRAVELER+19
Z(	COUNT+10*

Customize PDF page

Package: Commitment Register

Routine: ACRFIV12

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: