PRCHAMXG ;WISC/DJM-'CHANGES' ROUTINE #7 FOR 443.6 ;1/5/95 8:28 AM
Source file <PRCHAMXG.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | FILE^DICN ^DIE |
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 |
Package | Total | Caller Graph |
---|---|---|
IFCAP | 3 | ADMINISTRATIVE CERTIFICATIONS ITEM PRCHMA0 |
Name | Comments | DBIA/ICR reference |
---|---|---|
V | ;;5.1;IFCAP;;Oct 20, 2000
|
|
EN1 | ;SAVES 'FEDERAL SUPPLY CLASSIFICATION' IN 'ITEM' MULTIPLE
|
|
EN2 | ;SAVES 'DRUG TYPE CODE' IN 'ITEM' MULTIPLE
|
|
EN3 | ;SAVES 'FOOD GROUP' IN 'ITEM' MULTIPLE
|
|
EN4 | ;SAVES 'DIETETIC CONVERSION FACTOR' IN 'ITEM' MULTIPLE
|
|
EN5 | ;SAVES 'CONTRACT #' IN 'ITEM' MULTIPLE
|
|
EN6 | ;SAVES 'BACKORDER(EDI)' IN 'ITEM' MULTIPLE
|
|
EN7 | ;SAVES 'SUBSTITUTE(EDI)' IN 'ITEM' MULTIPLE
|
|
EN8 | ;SAVES 'CHANGES' INFORMATION FOR 'PROMPT PAYMENT TERMS' MULTIPLE, 'PROMPT PAYMENT PERCENT'
|
|
EN9 | ;SAVES 'DISCOUNT ITEM' IN 'DISCOUNT' MULTIPLE
|
|
EN10 | ;SAVES 'PERCENT/DOLLAR AMOUNT' IN 'DISCOUNT' MULTIPLE
|
|
EN11 | ;SAVES 'ADMINISTRATIVE CERTIFICATIONS'
|
|
EN12 | ;SAVES 'DESCRIPTION' MULTIPLE WITHIN 'ITEM' MULTIPLE
|
|
SAVE(FF,PRCHDA1,RECORD) | ;THIS WILL DO THE ACTUAL SAVING OF THE INFORMATION.
|
|
NEXT(DA,DA1,DA2) | ;COME HERE TO CREATE THE NEXT ENTRY IN THE 'CHANGES' MULTIPLE.
|
|
FIND | ||
ENTER |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(443.67 | NEXT+3 |
^PRC(443.6 - [#443.6] | SAVE+7, NEXT+3*, FIND |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AA | NEXT+2~, NEXT+3*, NEXT+4*, FIND*, ENTER |
ALREADY | SAVE+6~, SAVE+7*, SAVE+8 |
BB | NEXT+2~, FIND* |
D | SAVE+6~ |
D0 | SAVE+6~ |
D1 | SAVE+6~ |
D2 | SAVE+6~ |
DA | EN1+2, EN2+2, EN3+2, EN4+2, EN5+2, EN6+2, EN7+2, EN8+2, EN9+2, EN10+2 , EN11+2, EN12+2, SAVE+10~, SAVE+13*, NEXT~, NEXT+3, FIND, ENTER |
DA(1 | EN1+2, EN2+2, EN3+2, EN4+2, EN5+2, EN6+2, EN7+2, EN8+2, EN9+2, EN10+2 , EN11+2, EN12+2, SAVE+13*, ENTER* |
DA(2 | SAVE+13*, ENTER* |
DA1 | NEXT~, NEXT+3, FIND, ENTER |
DA2 | NEXT~, ENTER+1* |
DC | SAVE+12~ |
DD | SAVE+12~, NEXT+2~, ENTER! |
DE | SAVE+12~ |
DG | SAVE+12~ |
DH | SAVE+6~ |
DI | SAVE+12~ |
DIC | NEXT+2~, ENTER* |
DIC(0 | ENTER* |
DIE | SAVE+12~, SAVE+13* |
DIEL | SAVE+12~ |
DIFLD | SAVE+6~ |
DIG | SAVE+6~ |
DIH | SAVE+6~ |
DINUM | NEXT+2~, ENTER* |
DIOV | SAVE+6~ |
DIP | SAVE+6~ |
DISYS | SAVE+6~ |
DIU | SAVE+6~ |
DIV | SAVE+6~ |
DK | SAVE+12~ |
DL | SAVE+12~ |
DM | SAVE+12~ |
DO | SAVE+12~, NEXT+2~, ENTER! |
DOV | SAVE+6~ |
DP | SAVE+12~ |
DQ | SAVE+12~ |
DR | SAVE+12~, SAVE+14* |
DS | SAVE+6~ |
DU | SAVE+6~ |
DV | SAVE+6~ |
DW | SAVE+6~ |
F2NUMBER | SAVE+6~, SAVE+7* |
FF | EN1+1~, EN1+2*, EN1+3, EN2+1~, EN2+2*, EN2+3, EN3+1~, EN3+2*, EN3+3, EN4+1~ , EN4+2*, EN4+3, EN5+1~, EN5+2*, EN5+3, EN6+1~, EN6+2*, EN6+3, EN7+1~, EN7+2* , EN7+3, EN8+1~, EN8+2*, EN8+3, EN9+1~, EN9+2*, EN9+3, EN10+1~, EN10+2*, EN10+3 , EN11+1~, EN11+2*, EN11+3, EN12+1~, EN12+2*, EN12+3, SAVE~, SAVE+7 |
J | SAVE+6~ |
L | SAVE+6~ |
OLD | SAVE+6~, SAVE+9* |
>> PRCHAM | SAVE+7, SAVE+11, SAVE+13 |
PRCHDA | SAVE+6~, SAVE+9*, SAVE+11, SAVE+13 |
PRCHDA1 | EN1+1~, EN1+2*, EN1+3, EN2+1~, EN2+2*, EN2+3, EN3+1~, EN3+2*, EN3+3, EN4+1~ , EN4+2*, EN4+3, EN5+1~, EN5+2*, EN5+3, EN6+1~, EN6+2*, EN6+3, EN7+1~, EN7+2* , EN7+3, EN8+1~, EN8+2*, EN8+3, EN9+1~, EN9+2*, EN9+3, EN10+1~, EN10+2*, EN10+3 , EN11+1~, EN11+2*, EN11+3, EN12+1~, EN12+2*, EN12+3, SAVE~, SAVE+7, SAVE+11, SAVE+13 |
RECORD | EN1+1~, EN1+2*, EN1+3, EN2+1~, EN2+2*, EN2+3, EN3+1~, EN3+2*, EN3+3, EN4+1~ , EN4+2*, EN4+3, EN5+1~, EN5+2*, EN5+3, EN6+1~, EN6+2*, EN6+3, EN7+1~, EN7+2* , EN7+3, EN8+1~, EN8+2*, EN8+3, EN9+1~, EN9+2*, EN9+3, EN10+1~, EN10+2*, EN10+3 , EN11+1~, EN11+2*, EN11+3, EN12+1~, EN12+2*, EN12+3, SAVE~, SAVE+7 |
U | NEXT+4 |
X | SAVE+10~, NEXT+2~, ENTER* |
Y | EN1+1~, EN2+1~, EN3+1~, EN4+1~, EN5+1~, EN6+1~, EN7+1~, EN8+1~, EN9+1~, EN10+1~ , EN11+1~, EN12+1~, NEXT+2~, ENTER, ENTER+1 |