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 |