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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACRFIV12

Package: Commitment Register

Routine: ACRFIV12


Information

ACRFIV12 ;IHS/OIRM/DSD/THL,AEF - ACRFIV11 CON'T; [ 7/20/2006 10:25 AM ]

Source Information

Source file <ACRFIV12.m>

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  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Commitment Register 7 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 ACR*2.1*20.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 ;ACR*2.1*16.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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All