PRCFDT ;WISC/LEM-PROVIDE 'NET' PERCENT TRANSFORMS ;8/11/95 09:35
Source file <PRCFDT.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | ^DIC FILE^DICN ^DIE |
| Generic Code Sheet | 1 | DATA^GECSSGET |
| 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
|
|
| INPUT | ||
| OUTPUT | ||
| DISC | ; COMPUTE FMS LINE LIQ AMT FROM TOTAL AMT & DISCOUNT TERMS
; INPUT: PRCF("CIDA") - IEN FOR PAYMENT/INVOICE TRACKING RECORD ; PRCFA("LAMT") - AMOUNT CERTIFIED FOR THIS INVOICE ; OUTPUT: PRCFA("LIQ") - FMS COMPUTED LIQUIDATION AMOUNT |
|
| SUM | ;
; INPUT: PRCF("CIDA") - IEN FOR PAYMENT/INVOICE TRACKING RECORD ; PRCFA("CAMT") - TOTAL INVOICE AMOUNT CERTIFIED FOR PAYMENT ; OUTPUT: OK - 1 IF SUM OF LINE AMOUNTS = TOTAL AMOUNT CERTIFIED ; - 0 IF AMOUNTS NOT EQUAL |
|
| SCREEN | ; CHECK BOC
|
|
| OBLIG(PRCA) | ; Check for an original entry SO or MO on the P.O.
|
|
| LOOKUP(X,PARTIAL) | ; X = STA-PAT # - LOOKUP returns next available PARTIAL #.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PRCF(421.9 - [#421.9] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | OBLIG+8 |
| ^DD(421.5 | OUTPUT+4 |
| ^PRC(442 - [#442] | OBLIG+1, OBLIG+3, OBLIG+4, OBLIG+7, OBLIG+9 |
| ^PRCF(421.5 - [#421.5] | OUTPUT+3, OUTPUT+4*, DISC+6, DISC+7, SUM+7, SUM+8 |
| ^PRCF(421.9 - [#421.9] | LOOKUP+3*, LOOKUP+4, LOOKUP+6* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AMT | OUTPUT+8* |
| CTR | OUTPUT+5~*, OUTPUT+6*, OUTPUT+10 |
| DA | OUTPUT+2~, OUTPUT+10* |
| DA(1 | OUTPUT+2*, OUTPUT+3, OUTPUT+4, OUTPUT+7 |
| DD | OUTPUT+9!, LOOKUP+1! |
| DIC | OUTPUT+7~*, OUTPUT+10, LOOKUP+1~* |
| DIC(0 | OUTPUT+7*, LOOKUP+1* |
| DIE | OUTPUT+10~* |
| DISC | DISC+5~, DISC+7*, DISC+8 |
| DO | OUTPUT+9!, LOOKUP+1! |
| DOC | OBLIG+2~, OBLIG+4*, OBLIG+5, OBLIG+6, OBLIG+7 |
| DR | OUTPUT+11~* |
| >> FMSL | OUTPUT+10* |
| GECSDATA | OBLIG+10~, OBLIG+11, OBLIG+12, OBLIG+13 |
| GECSDATA( | OBLIG+12, OBLIG+13 |
| HIGHDISC | DISC+5~*, DISC+8*, DISC+10 |
| I | OUTPUT+5~*, OUTPUT+6, OUTPUT+8, OUTPUT+10, DISC+5~*, DISC+6*, DISC+7, SUM+6~*, SUM+7*, SUM+8 |
| LAMT | SUM+6~, SUM+8*, SUM+9 |
| NODE | OUTPUT+3~*, OUTPUT+4 |
| >> OK | SUM+6*, SUM+11* |
| >> P | LOOKUP+4*, LOOKUP+5*, LOOKUP+6 |
| PARTIAL | LOOKUP~, LOOKUP+3*, LOOKUP+6* |
| PRCA | OBLIG~, OBLIG+1*, OBLIG+3, OBLIG+5*, OBLIG+6*, OBLIG+12*, OBLIG+13*, OBLIG+15 |
| >> PRCF("CAMT" | SUM+5, SUM+11 |
| >> PRCF("CIDA" | OUTPUT+2, DISC+4, DISC+6, DISC+7, SUM+5, SUM+7, SUM+8 |
| >> PRCF("PODA" | OBLIG+1, OBLIG+3, OBLIG+4, OBLIG+7, OBLIG+9 |
| >> PRCF("TAMT" | SUM+6*, SUM+9*, SUM+11 |
| >> PRCFA("LAMT" | DISC+4, DISC+10 |
| >> PRCFA("LIQ" | DISC+10* |
| >> PRCFD( | OUTPUT+5, OUTPUT+8 |
| >> PRCFX("SA" | SCREEN+1 |
| PRCI | OBLIG+2~*, OBLIG+3*, OBLIG+4, OBLIG+5, OBLIG+6, OBLIG+9, OBLIG+12, OBLIG+13 |
| U | OUTPUT+4, OUTPUT+8, DISC+7, SUM+8, OBLIG+7, OBLIG+9, LOOKUP+3, LOOKUP+4, LOOKUP+6 |
| X | INPUT, INPUT+1*, INPUT+3!, OUTPUT+8*, SCREEN+1, OBLIG+2~, OBLIG+8*, OBLIG+9*, OBLIG+11, LOOKUP~ |
| X0 | INPUT~*, INPUT+1 |
| >> Y | OUTPUT*, OUTPUT+9, OUTPUT+10, LOOKUP+2, LOOKUP+3, LOOKUP+4, LOOKUP+6 |