PRCH58OB ;WISC/CLH-OBLIGATE,ADJUST 1358 ;11/28/94 15:06
Source file <PRCH58OB.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;;Oct 20, 2000
|
|
| COB(DA,TRNODE,PO,OB,X) | ;
|
|
| PAT(DA,PODA,PO,PATNUM) | ;get pat info, kill PRCHPO
|
|
| ADJ(DIC,PRC,DA) | ;
|
|
| VER(PRC,X) | ;verify entry
|
|
| PO(DA,PO) | ;PO data for adjustments
|
|
| OLDTT(DA,X) | ;old code sheet info
|
|
| POADJ(PO,PODA,TRNODE,AMT) | ;set adjustments in 442
|
|
| OBLK(PODA,PRCA) | ;look up obligation number
|
|
| BAL(PODA,AMT) | ;set the 8th node equal to obligation amount
|
|
| KILL(PO) | ;if 1358 obligation not completed, set dollar amounts on PAT to 0
|
|
| BAL1(PODA,AMT) | ;Set liquidation balance
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PRCS(410 - [#410] | Classic Fileman Calls |
| ^PRC(442 - [#442] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRC(442 - [#442] | COB+11, COB+12*, COB+13*, COB+14*, COB+15*, COB+29, COB+30, COB+32, PAT+2, VER+1 , PO+2, OLDTT+1, POADJ+9, BAL+1*, KILL+5, KILL+8*, BAL1+1 |
| ^PRCS(410 - [#410] | KILL+11, KILL+20 |
| Name | Field # of Occurrence |
|---|---|
| ^(8 | BAL1+1* |
| ^(9 | KILL+9! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMT | POADJ~, POADJ+2, POADJ+3*, POADJ+13*, BAL~, BAL+1, BAL1~, BAL1+1 |
| >> D | ADJ+3* |
| DA | COB~, COB+11, COB+12, COB+13, COB+14, COB+15, COB+29, COB+30, COB+32, PAT~ , PAT+1, ADJ~, PO~, PO+2, OLDTT~, OLDTT+1, POADJ+1~, POADJ+5*, POADJ+11*, KILL+3~ , KILL+10*, KILL+11!, KILL+12*, KILL+14! |
| DATE | COB+3~, COB+21* |
| DIC | ADJ~, OBLK+1~, OBLK+2* |
| DIC("A" | ADJ+1*, OBLK+4* |
| DIC("S" | ADJ+4*, OBLK+5*, OBLK+6* |
| DIC(0 | ADJ+2*, OBLK+3* |
| DIE | COB+23*, COB+26!, POADJ+1~, POADJ+4*, KILL+3~, KILL+11*!, KILL+14! |
| DR | COB+24*, COB+26!, POADJ+1~, POADJ+6*, POADJ+7*, KILL+3~, KILL+11*!, KILL+14! |
| FLAG | COB+3~, COB+22* |
| I | COB+3~, COB+8*, PO+1~, PO+2* |
| J | COB+3~ |
| OB | COB~, COB+6 |
| PATNUM | PAT~, PAT+3*, KILL+15 |
| PO | COB~, PAT~, PAT+1*, PO~, POADJ~, KILL~, KILL+5, KILL+8, KILL+12 |
| PO( | PO+2* |
| PO(0 | COB+4*, COB+5, COB+6*, COB+7*, COB+8*, COB+12, COB+14, PAT+2*, PAT+3, POADJ+7 , POADJ+9* |
| PO(1 | COB+9*, COB+13, COB+15 |
| PODA | PAT~, PAT+1*, PAT+2, POADJ~, POADJ+5, POADJ+9, POADJ+11, OBLK~, OBLK+8*, OBLK+9* , BAL~, BAL+1, BAL1~, BAL1+1 |
| PODA(0 | OBLK+10* |
| PODA(1 | OBLK+11* |
| PODA(2 | OBLK+12* |
| PRC | ADJ~, VER~ |
| PRC("SITE" | VER+1 |
| PRCA | OBLK~, OBLK+6 |
| PRCBBFY | COB+3~, COB+17* |
| >> PRCFA("RETRAN" | COB+16 |
| PRCHPO | PAT+4! |
| SUBSTA | COB+3~, COB+18* |
| >> TMP("NEWACC" | COB+20*, COB+22, COB+28! |
| >> TMP("NEWDATE" | COB+19*, COB+21, COB+27! |
| TRDA | KILL+3~, KILL+19*, KILL+20 |
| TRNODE | COB~, POADJ~ |
| TRNODE(0 | COB+18 |
| TRNODE(3 | COB+4, COB+9, COB+17 |
| TRNODE(4 | COB+7 |
| U | COB+17, COB+21, COB+22, PAT+3, POADJ+7, OBLK+11, OBLK+12, KILL+6, KILL+7, KILL+10 , KILL+19 |
| X | COB~, COB+3~, COB+5*, COB+6, VER~, VER+1*, OLDTT~, OLDTT+1*, POADJ+1~, POADJ+10* , KILL+3~, KILL+12*, KILL+14!, KILL+15*, KILL+17* |
| X1 | POADJ+1~, POADJ+2*, POADJ+13 |
| XXZ | KILL+3~, KILL+7*, KILL+9! |
| Y | OBLK+1~, OBLK+8, OBLK+9, OBLK+11, KILL+3~, KILL+12*, KILL+14! |
| Y(0 | OBLK+10, OBLK+12 |
| ZZX | KILL+3~, KILL+5*, KILL+6*, KILL+7*, KILL+8, KILL+10, KILL+11!, KILL+19 |