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