PRCFFUD ;WISC/SJG-UTILITY FOR CARRY FORWARD ;7/24/00 23:14
Source file <PRCFFUD.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| V | ;;5.1;IFCAP;**181**;Oct 20, 2000;Build 6
|
|
| OBDT() | ; Check if obligation processing date is valid for the open quarter
|
|
| QUIT | ||
| NEW410 | ; Create an entry in File 410 for any PO that does not have a request
|
|
| AMEND | ; Create an entry in File 410 for each amendment to a purchase order
; Case 1 - amendment with no cancelled documents |
|
| PO | ; Updating Running Balance Status Field (#449) in File 410 for
; purchase order |
|
| AMD | ; Updating Running Balance Status Field (#449) in File 410 for
; purchase order amendment |
|
| EDIT410(TRDAIEN,TRSTAT) | ; Edit running balance status and running balance quarter fields in 410
|
|
| AMDAMT() | ; Get dollar amount for AMENDMENT from amendment multiple
|
|
| AMDAMT1() | ; Get dollar amount for AMENDMENT from zero node
|
|
| MSG1 | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMDAMT | AMEND+6~*, AMEND+7, AMEND+16~, AMEND+17*, AMEND+26, AMEND+30*, AMEND+33, AMEND+39~*, AMEND+40, AMDAMT+1~ , AMDAMT+3*, AMDAMT+4, AMDAMT1+1~, AMDAMT1+2*, AMDAMT1+3 |
| AMDDATE | OBDT+1~, OBDT+9, OBDT+15*, OBDT+23* |
| AMDEXT | AMEND+3~*, AMEND+7, AMEND+26, AMEND+31*, AMEND+33, AMEND+39*, AMEND+40 |
| AMDNO | AMEND+16~ |
| FCP | AMEND+16~, AMEND+20*, AMEND+25*, AMEND+26 |
| GOFLAG | OBDT+1~, OBDT+2*, OBDT+33*, OBDT+37*, OBDT+39*, OBDT+41*, OBDT+44*, OBDT+46*, OBDT+48*, QUIT |
| LOOP | AMEND+21~, AMEND+22*, AMEND+23, PO+6~*, PO+7* |
| MOP | OBDT+1~, OBDT+3*, OBDT+9, OBDT+30 |
| MSG | MSG1+1!, MSG1+4! |
| MSG(1 | MSG1+2* |
| MSG(2 | MSG1+3* |
| NEW410 | NEW410+3~, NEW410+7, AMEND+6~, AMEND+11, AMEND+28, AMEND+35, AMEND+42, AMD+4 |
| OLDFCP | AMEND+16~, AMEND+20, AMEND+23* |
| P410 | NEW410+3~, NEW410+5*, NEW410+6*, NEW410+7, AMEND+6~, AMEND+7*, AMEND+8*, AMEND+10*, AMEND+11, AMEND+26* , AMEND+27*, AMEND+28, AMEND+33*, AMEND+34*, AMEND+35, AMEND+40*, AMEND+41*, AMEND+42 |
| >> PO | OBDT+3, OBDT+4, OBDT+8, NEW410+5, AMEND+7, AMEND+40, PO+3, PO+4, PO+7 |
| >> PO(0 | NEW410+4, NEW410+5, AMEND+7, AMEND+10, AMEND+25, AMEND+33, AMEND+40, AMDAMT1+2 |
| POAMT | NEW410+3~, NEW410+4*, NEW410+5 |
| PODATE | OBDT+1~, OBDT+8*, OBDT+9*, OBDT+27 |
| POREF | AMEND+16~, AMEND+18*, AMEND+19*, AMEND+26, AMEND+31*, AMEND+32*, AMEND+33 |
| >> PRC("BBFY" | NEW410+6, AMEND+8, AMEND+27, AMEND+34, AMEND+41 |
| >> PRC("FYQDT" | NEW410+6, AMEND+8, AMEND+27, AMEND+34, AMEND+41 |
| >> PRC("SITE" | OBDT+5 |
| >> PRCFA("AMEND#" | OBDT+8, OBDT+9, OBDT+12, OBDT+13, OBDT+15, OBDT+16, OBDT+20, OBDT+21, OBDT+23, OBDT+24 , AMEND+3, AMEND+22, AMEND+23, AMDAMT+1, AMDAMT+3 |
| >> PRCFA("AUTHE" | AMEND+14, AMEND+38 |
| >> PRCFA("CANCEL" | AMEND+5, AMEND+14, AMEND+38 |
| >> PRCFA("FCP" | AMEND+20, AMEND+25 |
| >> PRCFA("NEW410" | NEW410+7*, AMEND+11*, AMEND+42* |
| >> PRCFA("NEWPODA" | AMEND+31 |
| >> PRCFA("NEWREF" | AMEND+31 |
| >> PRCFA("OBLDATE" | OBDT+27, NEW410+5, AMEND+7, AMEND+26, AMEND+33, AMEND+40 |
| >> PRCFA("OLDPODA" | AMEND+18 |
| >> PRCFA("OLDREF" | AMEND+18 |
| >> PRCFA("PO" | AMEND+18, AMEND+19, AMEND+31, AMEND+32 |
| >> PRCFA("PODA" | OBDT+14, OBDT+22, AMEND+10, AMEND+19, AMEND+22, AMEND+23, AMEND+32, AMDAMT+2 |
| >> PRCFA("REF" | NEW410+5, AMEND+7, AMEND+19, AMEND+32, AMEND+40 |
| >> PRCFA("RETRAN" | OBDT+11, OBDT+19, NEW410+1, AMEND+2, PO+2, AMD+2 |
| >> PRCFMO | NEW410+4, AMDAMT1+2 |
| >> PRCHAUTH | AMEND+9 |
| >> PRCHPO | AMEND+9 |
| >> PRCTMP( | OBDT+13!, OBDT+15, OBDT+16!, OBDT+21!, OBDT+23, OBDT+24!, AMDAMT+3 |
| >> PRCTMP(442 | PO+3, PO+4 |
| PRIMARY | OBDT+1~, OBDT+4*, OBDT+31, OBDT+35, OBDT+42 |
| RBQTR | OBDT+1~, OBDT+31*, OBDT+32 |
| SDATE1 | OBDT+1~, OBDT+27*, OBDT+28 |
| SDATE2 | OBDT+1~, OBDT+27*, OBDT+28 |
| SDATE3 | OBDT+1~, OBDT+27*, OBDT+28 |
| SDATE4 | OBDT+1~, OBDT+32* |
| SPIECE1 | OBDT+1~, OBDT+28*, OBDT+37, OBDT+39, OBDT+44, OBDT+46, OBDT+48 |
| SPIECE2 | OBDT+1~, OBDT+28*, OBDT+33, OBDT+37, OBDT+39, OBDT+41, OBDT+44, OBDT+46, OBDT+48 |
| SPIECE3 | OBDT+1~, OBDT+28*, OBDT+37, OBDT+39, OBDT+41, OBDT+44, OBDT+46, OBDT+48 |
| SPIECE4 | OBDT+1~, OBDT+32*, OBDT+33 |
| STNQTR | OBDT+1~, OBDT+5*, OBDT+27 |
| SUBINFO | OBDT+12~*, OBDT+14, OBDT+20~*, OBDT+22, AMDAMT+1~*, AMDAMT+2 |
| TRDAIEN | EDIT410~, EDIT410+1 |
| TRSTAT | EDIT410~, EDIT410+1 |
| U | OBDT+28, OBDT+32, NEW410+5, NEW410+6, AMEND+7, AMEND+8, AMEND+9, AMEND+10, AMEND+18, AMEND+19 , AMEND+25, AMEND+26, AMEND+27, AMEND+31, AMEND+32, AMEND+33, AMEND+34, AMEND+40, AMEND+41 |