You are here: Development Standards > Routines > Application-SpecificRoutines > FACOMP.PUB

# FACOMP.PUB

FACOMP.PUB is a public program that calculates an asset’s period depreciation.

`1010 ENTER C$,A1[ALL],A12$[ALL],A14$[ALL],ACPRD[ALL],D[ALL],D1$,DATEPLACED,`
`1010:FILE[ALL],CNVT$`

Variable | Description
C$ | The depreciation columns to compute depreciation for (set each position to 1 to calculate that column or “ ” to skip that column): C$(1,1) - Book column C$(2,1) - FedTax column C$(3,1) - Other column C$(4,1) - A.M.T. column
A1[ALL],A12$[ALL], A14$[ALL] | FAMAxxx variables of the same name (see the Fixed Assets File Layouts)
ACPRD[ALL] | Fixed Assets Accounting Periods Table values
D[ALL] | Returns the calculated depreciation values: D[0,0] - Book depreciation (base method) D[0,1] - Book depreciation (switch method) D[1,0] - FedTax depreciation (base method) D[1,1] - FedTax depreciation (switch method) D[2,0] - Other depreciation (base method) D[2,1] - Other depreciation (switch method) D[3,0] - A.M.T. depreciation (base method) D[3,1] - A.M.T. depreciation (switch method)
D1$ | Returns the switch-required flag for each column (“Y” - switch is required, “N” - no switch): D1$(1,1) - Book column D1$(2,1) - FedTax column D1$(3,1) - Other column D1$(4,1) - A.M.T. column
DATEPLACED | Date the asset was placed in service (Julian value)
FILE[ALL] | Standard file array used for the data file channel numbers
CNVT$ | Resource Manager Period Conversion table values (09$)

Exit Points | Explanation
EXIT | FACOMP.PUB normally exits without an error.
EXIT 1 | Returns 1 if the Period Conversion table is invalid.