PRCH58OB ;WISC/CLH-OBLIGATE,ADJUST 1358 ;11/28/94 15:06
Source file <PRCH58OB.m>
| 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 |
|
| FileNo | Call Tags |
|---|---|
| ^PRCS(410 - [#410] | Classic Fileman Calls |
| ^PRC(442 - [#442] | Classic Fileman Calls |