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 |