PRCHSF3 ;WISC/DJM-UPDATING THE LINE ITEM DISCOUNTS ON THE 'AMENDED' 443.6 RECORD ;8/31/95 11:29 AM
Source file <PRCHSF3.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;**118,138**;Oct 20, 2000;Build 18
|
|
| A1 | ||
| B | ;LOOP THROUGH ALL LINE ITEM ENTRIES AND ADD/UPDATE THE 'PRCH("AM",PRCHCN)' ARRAY.
|
|
| TOT | ;NOW LETS GET THE TOTAL FOR THIS DOCUMENT.
|
|
| LI | ;CREAT THE ENTRY FOR THE 3rd "^" PIECE OF PRCH("AM",PRCHCN) HERE.
|
|
| CN | ;CREATE THE 'PRCH("AM",PRCHCN)' ARRAY ELEMENT HERE, ALL THREE PARTS, FOR LINE ITEMS WITH A CONTRACT NUMBER.
|
|
| OM | ;CREATE THE 'PRCH("AM",PRCHCN)' ARRAY ELEMENT HERE, ALL THREE PARTS, FOR LINE ITEMS WITHOUT A CONTRACT NUMBER.
|
|
| UP | ;NOW LETS DO THE ACTUAL UPDATING OF THE DISCOUNT FOR EACH LINE ITEM.
|
|
| SET | ;DECIDE THE LINE ITEM NUMBERS TO DO THE DISCOUNT ADJUSTMENT.
|
|
| PCT | ;FOR EACH 'LINE ITEM NUMBER' WITH A DISCOUNT DO IT HERE.
|
|
| PCT1 | ||
| PCTQ | ;COME HERE IF THE USER SELECTED A 'QUANTITY' DISCOUNT.
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D0 | V+13 |
| >> D1 | V+13 |
| DIF | V+11~, TOT+2*, TOT+3 |
| I | V+11~, B+2*, B+5, B+9, UP+3* |
| J | V+11~, LI+1*, LI+2, LI+3 |
| K | V+11~, TOT+1*, PCTQ+2* |
| K2 | V+11~, TOT+1* |
| OTOT | V+11~, TOT+2* |
| PRCH | V+11~, A1*, A1+1, A1+4, A1+5!, B+1*, B+2*, B+3, B+4, CN+2 , UP+2*, UP+3*, PCTQ+3 |
| PRCH("AM" | LI+1, CN+1*, CN+2*, OM+1*, PCT+2*, PCTQ+2 |
| PRCHAC | V+11~, UP+3*, SET+1, SET+2*, PCT+1, PCTQ+2* |
| PRCHACT | V+12~, UP+3*, PCT1+1, PCTQ+2* |
| >> PRCHAM | V+13*, TOT+3 |
| PRCHAMT | V+12~, PCT+1*, PCT+2*, PCT1+3*, PCTQ+2* |
| PRCHAMX | V+11~, B+3*, B+4*, B+5*, CN+2, OM+1 |
| PRCHCN | V+11~, A1+1*, A1+4, A1+5!, B+5*, B+6, CN+1, CN+2, UP+3*, PCT+2 , PCTQ+2* |
| PRCHD | V+12~, PCT1*, PCT1+2 |
| PRCHDA | V+12~, PCT1+1*, PCT1+2*, PCT1+3 |
| PRCHDSC | V+11~, A1*, A1+2*, A1+3, A1+4, A1+5! |
| PRCHEC | V+11~, B+1*, CN+1*, OM+1* |
| PRCHL0 | V+11~, LI+1*, LI+2, LI+3, LI+4 |
| PRCHL1 | V+11~, LI+1*, LI+3 |
| PRCHL2 | V+11~, LI+2* |
| PRCHL3 | V+11~, LI+1, CN+1*, OM+1* |
| PRCHLCNT | V+11~, B+9*, PCTQ+2 |
| PRCHLI | V+11~, B+5*, LI+2*, LI+3*, LI+4*, CN+2, OM+1 |
| PRCHN | V+12~, PCT1*, PCT1+3 |
| PRCHP | V+12~, UP+3*, PCT1+1, PCT1+2 |
| >> PRCHPO | V+13*, A1, A1+1, A1+2, A1+3, A1+4, B+2, B+3, B+4, B+9 , TOT+1, TOT+2, TOT+3, TOT+4, CN+2, UP+3, PCT1, PCT1+3, PCTQ+3 |
| PRCHX | V+12~, PCTQ+2*, PCTQ+3 |
| RDIS | V+12~, A1+3*, A1+4, A1+5! |
| SHIP | V+11~, TOT+2* |
| TOT | V+11~, TOT+1*, TOT+2*, TOT+4 |
| U | A1+1, A1+4, B+4, B+5, B+9, TOT+1, TOT+2, TOT+3, TOT+4, LI+1 , CN+2, OM+1, UP+3, PCT+2, PCT1, PCT1+3, PCTQ+2, PCTQ+3 |
| Y | V+12~, PCT+1* |
