ACRFIV12 ;IHS/OIRM/DSD/THL,AEF - ACRFIV11 CON'T; [ 7/20/2006 10:25 AM ]
Source file <ACRFIV12.m>
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
|
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^ACROBL - [#9002189] | Classic Fileman Calls |
^ACRDOC - [#9002196] | Classic Fileman Calls |
^AFSLAFP - [#9002325] | Classic Fileman Calls |
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 |
>> | 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* |