PRCHAMXC ;WISC/DJM-'CHANGES' ROUTINES #3 FOR 443.6 ;5/12/95 11:58 AM
Source file <PRCHAMXC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
V | ;;5.1;IFCAP;;Oct 20, 2000
|
|
EN1 | ;SAVES 'ADMINISTRATIVE CERTIFICATIONS'
|
|
EN2 | ;SAVES 'DESCRIPTION LINE COUNT'
|
|
EN3 | ;SAVES 'DIRECT DELIVERY PATIENT' IN MAIN FILE
|
|
EN4 | ;SAVES 'EST.SHIPPING' IN MAIN FILE
|
|
EN5 | ;SAVES 'FCP' IN MAIN FILE
|
|
EN6 | ;SAVES 'COST CENTER' IN MAIN FILE
|
|
EN7 | ;SAVES 'REQUESTING SERVICE' IN MAIN FILE
|
|
EN8 | ;SAVES 'F.O.B. POINT' IN MAIN FILE
|
|
EN9 | ;SAVES 'DISCOUNT ITEM' IN 'DISCOUNT' MULTIPLE
|
|
EN10 | ;SAVES 'PERCENT/DOLLAR AMOUNT' IN 'DISCOUNT' MULTIPLE
|
|
EN11 | ;SAVES 'EST. SHIPPING BOC' IN MAIN FILE
|
|
EN12 | ;SAVES 'GOV'T B/L NO.' IN MAIN FILE
|
|
EN13 | ;SAVES 'SHIP VIA' IN MAIN FILE
|
|
EN14 | ;SAVES 'GBL P.O. NUMBER' IN MAIN FILE
|
|
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 |