PRCFFU6 ;WISC/SJG-OBLIGATION PROCESSING UTILITIES ;4/27/94 2:46 PM
Source file <PRCFFU6.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 |
|---|---|---|
| COMP(REC442,REC410,FLAG) | ; Compare values from 1358 SOE and 1358 SOM
; REC442 - IEN for original obligated 1358 from 442 ; REC410 - IEN for adjusted unobligated 1358 from 410 ; Get original values from 442 ; FLAG = Return value for error check^increase/decrease condition |
|
| VAR | ; Set up variables
|
|
| VEN | ; Compare Vendor
; Compare external vendor name on adjustment with external vendor name ; from 442 |
|
| VEN1 | ||
| VEN2 | ||
| CP | ; Compare Control Point
|
|
| CC | ; Compare Cost Center
|
|
| BOC | ; Compare BOC
|
|
| AMT | ; Check for change in amounts
|
|
| UPDATE(REC442,REC410) | ; Update Node 22 in File 442
|
|
| AUTACC | ; Update Ending Date and Auto Accrual Flag
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMT | UPDATE+1*, UPDATE+6! |
| BOC | UPDATE+2*, UPDATE+4, UPDATE+6! |
| BOCFLAG | VAR+1~, VAR+2*, BOC+1*, AMT+5 |
| CCFLAG | VAR+1~, VAR+2*, CC+1*, AMT+8 |
| CHANGE | VAR+1~, VAR+2*, AMT+5*, AMT+6*, AMT+7*, AMT+8*, AMT+10 |
| CPFLAG | VAR+1~, VAR+2*, CP+1*, AMT+7 |
| DA | VAR+5~*, VAR+6~*, UPDATE+3~, UPDATE+5*, AUTACC+4* |
| DA(1 | UPDATE+3*, UPDATE+4 |
| DATE | AUTACC+2~, AUTACC+3* |
| DIC | VAR+5*!, VAR+6*!, UPDATE+4*, UPDATE+5, UPDATE+6! |
| DIC(0 | UPDATE+4* |
| DIE | UPDATE+5*, UPDATE+6!, AUTACC+4*! |
| DIQ | VAR+5*!, VAR+6*! |
| DIQ(0 | VAR+5*, VAR+6* |
| DR | VAR+5*!, VAR+6*!, UPDATE+5*, UPDATE+6!, AUTACC+4*! |
| ERFLAG | VAR+1~, VAR+2*, AMT+5*, AMT+6*, AMT+7*, AMT+8*, AMT+10 |
| FLAG | COMP~, AUTACC+2~, AUTACC+3* |
| >> IDFLAG | AMT+2*, AMT+3*, AMT+10 |
| LOOPX | VAR+1~, VAR+3*, VAR+4* |
| MSG | VEN1+4!, VEN1+9!, VEN2+3!, VEN2+14! |
| MSG( | VEN1+5*, VEN1+7*, VEN2+6*, VEN2+9*, VEN2+12* |
| MSG(1 | VEN1+5*, VEN2+4* |
| MSG(2 | VEN1+6*, VEN2+5* |
| MSG(3 | VEN1+7*, VEN2+7* |
| MSG(4 | VEN1+8*, VEN2+8* |
| MSG(5 | VEN2+10* |
| MSG(6 | VEN2+11* |
| MSG(7 | VEN2+13* |
| >> POIEN | AUTACC+4 |
| >> PRCFA( | VAR+3* |
| >> PRCFA("CHG" | VAR+4*, VEN1+10*, VEN2+2*, CP+1*, CC+1*, BOC+1* |
| >> PRCFA("VEND" | VEN1, VEN1+10*, VEN2+2*, AMT+6 |
| >> PRCTMP(410 | VEN1+6, VEN1+7, VEN2, VEN2+1, VEN2+7, VEN2+8 |
| >> PRCTMP(442 | VEN1+6, VEN1+7, VEN2, VEN2+1, VEN2+7, VEN2+8 |
| REC410 | COMP~, VAR+6, VEN1, VEN1+2, VEN1+3, VEN2, VEN2+1, VEN2+10, VEN2+11, CP+1 , CC+1, BOC+1, AMT+1, AMT+2, AMT+3, UPDATE~, UPDATE+1 |
| REC442 | COMP~, VAR+5, VEN1, VEN1+1, VEN1+3, VEN1+6, VEN1+7, VEN2, VEN2+1, VEN2+7 , VEN2+8, CP+1, CC+1, BOC+1, UPDATE~, UPDATE+1, UPDATE+2, UPDATE+3 |
| >> TMP("NEWACC" | AUTACC+3, AUTACC+4! |
| >> TMP("NEWDATE" | AUTACC+1, AUTACC+3, AUTACC+4! |
| TMP410 | VAR+1!, UPDATE+6! |
| TMP410(410 | VEN1, VEN1+2, VEN1+3, VEN2, VEN2+1, VEN2+10, VEN2+11, CP+1, CC+1, BOC+1 , AMT+1, AMT+2, AMT+3, UPDATE+1 |
| TMP442 | VAR+1!, UPDATE+6! |
| TMP442(442 | VEN1, VEN1+1, VEN1+3, CP+1, CC+1, BOC+1, UPDATE+1, UPDATE+2 |
| U | AUTACC+3 |
| >> X | UPDATE+4* |
| >> Y | UPDATE+5 |
