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* |