PRCHAMYC ;WISC/DJM-UPDATING THE LINE ITEM DISCOUNTS ON THE AMENDED 442 RECORD ;2/17/95 11:00 AM
Source file <PRCHAMYC.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;**91**;Oct 20, 2000
|
|
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 |
---|---|
>> I | V+14*, V+17, V+20, UP+3*, PCT+3 |
>> J | LI+1*, LI+2, LI+3 |
>> K | PCTQ+2* |
>> PRCH | V+14*, V+15, V+16, CN+2, UP+2*, UP+3*, PCT+3, PCTQ+3 |
>> PRCH("AM" | V+12!, LI+1, CN+1*, CN+2*, OM+1*, PCT+2*, PCTQ+2 |
>> PRCHAC | UP+3*, SET+1, SET+2*, PCT+1, PCTQ+2* |
>> PRCHACT | UP+3*, PCT1+1, PCTQ+2* |
>> PRCHAMT | PCT+1*, PCT+2*, PCT+3, PCT1+3*, PCTQ+2* |
>> PRCHAMX | V+15*, V+16*, V+17*, CN+2, OM+1 |
>> PRCHCN | V+17*, V+18, CN+1, CN+2, UP+3*, PCT+2, PCTQ+2* |
>> PRCHD | PCT1*, PCT1+2 |
>> PRCHDA | PCT1+1*, PCT1+2*, PCT1+3 |
>> PRCHEC | V+14*, CN+1*, OM+1* |
>> PRCHL0 | LI+1*, LI+2, LI+3, LI+4 |
>> PRCHL1 | LI+1*, LI+3 |
>> PRCHL2 | LI+2* |
>> PRCHL3 | LI+1, CN+1*, OM+1* |
>> PRCHLCNT | V+20*, PCT+3, PCTQ+2 |
>> PRCHLI | V+17*, LI+2*, LI+3*, LI+4*, CN+2, OM+1 |
>> PRCHN | PCT1*, PCT1+3 |
>> PRCHP | UP+3*, PCT1+1, PCT1+2 |
>> PRCHPO | V+14, V+15, V+16, V+20, CN+2, UP+3, PCT+3, PCT1, PCT1+3, PCTQ+3 |
>> PRCHX | PCTQ+2*, PCTQ+3 |
U | V+16, V+17, V+20, LI+1, CN+2, OM+1, UP+3, PCT+2, PCT+3, PCT1 , PCT1+3, PCTQ+2, PCTQ+3 |
>> Y | PCT+1* |